16 lines
449 B
Plaintext
16 lines
449 B
Plaintext
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
|