mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-28 05:17:49 +00:00
19 lines
422 B
QBasic
19 lines
422 B
QBasic
|
5 RANDOMIZE TIMER
|
||
|
10 A = 25
|
||
|
20 CLS
|
||
|
25 FOR B = 1 TO A
|
||
|
30 PRINT "* ";
|
||
|
35 NEXT B
|
||
|
37 PRINT
|
||
|
40 PRINT "HOW MANY TO TAKE AWAY"
|
||
|
45 INPUT C
|
||
|
50 IF C > 3 THEN PRINT "YOU CAN ONLY TAKE AWAY 1,2, OR 3 STONES.": GOTO 40
|
||
|
60 A = A - C
|
||
|
65 IF A = 0 THEN PRINT "YOU WIN!": END
|
||
|
70 D = (A MOD 4)
|
||
|
75 IF D = 0 THEN D = INT(3 * RND(1)) + 1
|
||
|
80 PRINT "I TOOK AWAY "; D; "STONES"
|
||
|
83 SLEEP
|
||
|
85 A = A - D
|
||
|
90 IF A = 0 THEN PRINT "I WIN": END
|
||
|
100 GOTO 20
|