42 lines
866 B
QBasic
42 lines
866 B
QBasic
REM --- PIG Dice game test
|
|
REM --- Created: 2022-03-30
|
|
REM --- Created for TinyBASIC implemented by cyningstan/Damian Gareth Walker
|
|
|
|
REM --- Variable List
|
|
REM
|
|
REM R - A random number returned by the Random Number Generator
|
|
REM D - Current die roll
|
|
REM T - TOTAL SAVED
|
|
LET T=0
|
|
|
|
REM --- Initialise the random number seed
|
|
10 PRINT "Enter a number:"
|
|
INPUT R
|
|
|
|
REM --- MAIN GAME LOOP
|
|
20 PRINT "YOUR CURRENT TOTAL IS ",T
|
|
PRINT "Would you like to roll? (0 no, 1 yes)"
|
|
INPUT Q
|
|
|
|
30 IF Q=0 THEN GOTO 300
|
|
|
|
REM --- CHECK IF BUSTED
|
|
GOSUB 200
|
|
LET D=1+R-R/6*6
|
|
PRINT "YOU ROLLED ",D
|
|
IF D=1 THEN GOTO 50
|
|
LET T=T+D
|
|
GOTO 20
|
|
|
|
REM --- BUSTED!
|
|
50 PRINT "BUSTED!"
|
|
LET T=0
|
|
GOTO 20
|
|
|
|
200 LET R=5*R+35
|
|
LET R=R-R/6547*6547
|
|
RETURN
|
|
|
|
300 PRINT "YOUR SCORE IS ",T
|
|
PRINT "GOODBYE"
|