how to continue a program after a loop

[kasi]

i have figured out the button, but i just have one more problem after the loop the "Enter the number of the first die you have rolled:" doesn't get outputted, how would i program it so the "Enter the number of the first die you have rolled:" get outputted

code:

import GUI procedure di2 var die : array 1 .. 6 of procedure dice die (1) := die1 die (2) := die2 die (3) := die3 die (4) := die4 die (5) := die5 die (6) := die6 die (Rand.Int (1, 6)) var d : array 1..6 of procedure dice d(1):= d1 d(2):= d2 d(3):= d3 d(4):= d4 d(5):= d5 d(6):= d6 d (Rand.Int (1, 6)) end di2 procedure dice locate(1,1) end dice var dice1:int put"If you want to play dice click on the button below" dice1:=GUI.CreateButton(25,25,0,"Click to roll the dice",di2) loop exit when GUI.ProcessEvent end loop  var diee,dce,total,num1,num2:int put"Enter the number of the first die you have rolled:" get diee

[rdrake]

Turing:

loop     if GUI.ProcessEvent then         break     end if end loop

...I think.

[Nick]

looK up return

[Tony]

I think GUI.ProcessEvent return false unless GUI.Quit (or equivalent) is called. This is an arbitrary convention, to accommodate

Turing:

loop    exit when GUI.ProcessEvent end loop

structure.

rdrake's code is equivalent to the above, since exit when condition is the same as

code:

if condition then    exit end if

So you could break out of the loop by setting the exit flag with GUI.Quit in your di2 procedure. Though keep in mind that as soon as you exit that loop, your GUI will stop working since nothing is monitoring it.

[Nick]

another thing is

code:

var exit:boolean:=false proc something() exit:=true end something gui button call something() loop exit when gui exit when exit end loop

so u got 2 exit commands

[Mazer]

Why the fuck?

EDIT: Oh hey, I found a way to do it with 3 exit commands

code:

var exit:boolean:=false var quit:boolean:=false proc something() exit:=true end something proc orother() quit:=true end orother gui button call something() gui button call orother() loop exit when gui exit when exit exit when quit end loop

Gotta keep your options open in the early stages, right?