165 lines
1.5 KiB
Plaintext
165 lines
1.5 KiB
Plaintext
title "Magic 8 Ball"
|
||
|
||
resize 0, 0, 340, 150
|
||
center
|
||
|
||
bgcolor 0, 0, 255
|
||
cls graphics
|
||
|
||
formid 1
|
||
formtext "Think of a question and select the magic button."
|
||
staticform 10, 10, 310, 20
|
||
bgcolor 0, 0, 0
|
||
fgcolor 255, 0, 255
|
||
colorform
|
||
|
||
formid 2
|
||
formtext "Magic Button"
|
||
buttonform 115, 50, 100, 20
|
||
bgcolor 255, 0, 0
|
||
fgcolor 0, 0, 255
|
||
colorform
|
||
|
||
do
|
||
|
||
|
||
if forms = 2 then
|
||
|
||
gosub magicbutton
|
||
|
||
endif
|
||
|
||
button k, 27
|
||
|
||
wait
|
||
|
||
loop k = 0
|
||
|
||
end
|
||
|
||
sub magicbutton
|
||
|
||
let r = int(rnd * 20) + 1
|
||
|
||
if r = 1 then
|
||
|
||
alert "It is certain."
|
||
|
||
endif
|
||
|
||
if r = 2 then
|
||
|
||
alert "It is decidedly so."
|
||
|
||
endif
|
||
|
||
if r = 3 then
|
||
|
||
alert "Without a doubt."
|
||
|
||
endif
|
||
|
||
if r = 4 then
|
||
|
||
alert "Yes – definitely."
|
||
|
||
endif
|
||
|
||
if r = 5 then
|
||
|
||
alert "You may rely on it."
|
||
|
||
endif
|
||
|
||
if r = 6 then
|
||
|
||
alert "As I see it", comma, " yes."
|
||
|
||
endif
|
||
|
||
if r = 7 then
|
||
|
||
alert "Most likely."
|
||
|
||
endif
|
||
|
||
if r = 8 then
|
||
|
||
alert "Outlook good."
|
||
|
||
endif
|
||
|
||
if r = 9 then
|
||
|
||
alert "Yes."
|
||
|
||
endif
|
||
|
||
if r = 10 then
|
||
|
||
alert "Signs point to yes."
|
||
|
||
endif
|
||
|
||
if r = 11 then
|
||
|
||
alert "Reply hazy", comma, " try again."
|
||
|
||
endif
|
||
|
||
if r = 12 then
|
||
|
||
alert "Ask again later."
|
||
|
||
endif
|
||
|
||
if r = 13 then
|
||
|
||
alert "Better not tell you now."
|
||
|
||
endif
|
||
|
||
if r = 14 then
|
||
|
||
alert "Cannot predict now."
|
||
|
||
endif
|
||
|
||
if r = 15 then
|
||
|
||
alert "Concentrate and ask again."
|
||
|
||
endif
|
||
|
||
if r = 16 then
|
||
|
||
alert "Don't count on it."
|
||
|
||
endif
|
||
|
||
if r = 17 then
|
||
|
||
alert "My reply is no."
|
||
|
||
endif
|
||
|
||
if r = 18 then
|
||
|
||
alert "My sources say no."
|
||
|
||
endif
|
||
|
||
if r = 19 then
|
||
|
||
alert "Outlook not so good."
|
||
|
||
endif
|
||
|
||
if r = 20 then
|
||
|
||
alert "Very doubtful."
|
||
|
||
endif
|
||
|
||
return
|