27 lines
727 B
QBasic
27 lines
727 B
QBasic
|
10 REM Mini text adventure (deterministic, no INPUT)
|
||
|
|
20 REM Uses DATA to simulate player choices
|
||
|
|
30 DATA 1,2,1,1
|
||
|
|
40 ROOM% = 1 : TURNS% = 0
|
||
|
|
50 DIM R$(3)
|
||
|
|
60 R$(1) = "Dark cave" : R$(2) = "Forest path" : R$(3) = "Treasure room"
|
||
|
|
70 GOSUB 200
|
||
|
|
80 IF ROOM% = 3 THEN PRINT "You found the treasure!" : GOTO 150
|
||
|
|
90 READ CH%
|
||
|
|
100 TURNS% = TURNS% + 1
|
||
|
|
110 ON CH% GOSUB 300, 400
|
||
|
|
120 GOTO 70
|
||
|
|
150 PRINT "Turns taken:"; TURNS%
|
||
|
|
160 PRINT "Text adventure OK"
|
||
|
|
170 END
|
||
|
|
200 REM Print room
|
||
|
|
210 PRINT "Room: "; R$(ROOM%)
|
||
|
|
220 RETURN
|
||
|
|
300 REM Go north
|
||
|
|
310 IF ROOM% = 1 THEN ROOM% = 2 : RETURN
|
||
|
|
320 IF ROOM% = 2 THEN ROOM% = 3 : RETURN
|
||
|
|
330 RETURN
|
||
|
|
400 REM Go south
|
||
|
|
410 IF ROOM% = 2 THEN ROOM% = 1 : RETURN
|
||
|
|
420 IF ROOM% = 3 THEN ROOM% = 2 : RETURN
|
||
|
|
430 RETURN
|