Magic 8-ball: Difference between revisions
Content added Content deleted
Basicgames (talk | contribs) |
Basicgames (talk | contribs) |
||
| Line 900: | Line 900: | ||
=={{header|Craft Basic}}== |
=={{header|Craft Basic}}== |
||
<syntaxhighlight lang="basic"> |
<syntaxhighlight lang="basic">title "Magic 8 Ball" |
||
title "Magic 8 Ball" |
|||
resize 0, 0, 340, 150 |
resize 0, 0, 340, 150 |
||
| Line 927: | Line 925: | ||
if |
if forms = 2 then |
||
gosub magicbutton |
gosub magicbutton |
||
| Line 943: | Line 941: | ||
sub magicbutton |
sub magicbutton |
||
let r = |
let r = int(rnd * 20) + 1 |
||
if r = 1 then |
if r = 1 then |
||