15 lines
449 B
Text
15 lines
449 B
Text
command guessTheNumber
|
|
local tNumber, tguess
|
|
put random(10) into tNumber
|
|
repeat until tguess is tNumber
|
|
ask question "Please enter a number between 1 and 10" titled "Guess the number"
|
|
if it is not empty then
|
|
put it into tguess
|
|
if tguess is tNumber then
|
|
answer "Well guessed!"
|
|
end if
|
|
else
|
|
exit repeat
|
|
end if
|
|
end repeat
|
|
end guessTheNumber
|