Code: Select all
5 DIM N(1)
10 PRINT AT 10,0;"temple of horrors"
11 INPUT N$
12 PRINT "WELCOME TO YOUR DOOM"
13 PRINT N$
14 LET A$=INKEY$
# REM AVAILBLE AREAS ARE MARKED
20 REM [HEX:\
26,3B,26,2E,31,27,31,2A,\
00,26,37,2A,26,38,00,26,\
37,2A,00,32,26,37,30,2A,\
29 ]
21 PRINT "YOU ARE IN THE SPAWN AREA. YOU HAVE 10 HEALTH AND 0 XP"
22 PRINT "SWORD AND SHIELD OR MAGE?"
23 INPUT A$
# REM PEN AND PAPER NEEDED. MAGE GETS
# 50 MAGIC BONUS
24 REM [HEX:\
35,2A,33,00,26,33,29,00,\
35,26,35,2A,37,00,33,2A,\
2A,29,2A,29,1B,00,32,26,\
2C,2A,00,2C,2A,39,38,00,\
21,1C,00,32,26,2C,2E,28,\
00,27,34,33,3A,38 ]
25 IF A$="SHIELD" THEN GOTO 130
26 LET H=9
27 LET W=0
# REM STAFF IS NOT A WEAPON
28 REM [HEX:\
38,39,26,2B,2B,00,2E,38,\
00,33,34,39,00,26,00,3C,\
2A,26,35,34,33 ]
29 GOSUB 100
30 PRINT "EXPLORE THE MAZE OR REST?"
31 LET A$=INKEY$
32 IF A$="E" THEN GOTO 40
33 IF A$="R" THEN PRINT "YOUR MAX HEALTH IS REDUCED BY 1. YOU AWAKE BUT FEEL LIGHTHEADED"
# REM RESTING WITHOUT EATING REDUCES 1
# HP
34 REM [HEX:\
37,2A,38,39,2E,33,2C,00,\
3C,2E,39,2D,34,3A,39,00,\
2A,26,39,2E,33,2C,00,37,\
2A,29,3A,28,2A,38,00,1D,\
2D,35 ]
35 LET F=0
36 IF F>0 THEN LET H=1
37 PRINT "EXPLORE FOR MONSTERS?"
38 INPUT A$
39 IF A$="Y" THEN PRINT "GENERATING MONSTERS..."
40 LET M=34
41 LET ATT=3
# REM MAX IS 3 DAMAGE
42 REM [HEX:\
32,26,3D,00,2E,38,00,1F,\
00,29,26,32,26,2C,2A ]
43 LET MHP=21
44 PRINT "o««o"
45 PRINT " mm"
46 PRINT " ww"
47 PRINT " »"
48 PRINT "MONSTER ATTACKS FIRST"
49 PRINT " *************"
50 PRINT " ***************"
51 PRINT "attack«phase"
52 PRINT "****************"
53 LET ATT=INT (1)
54 PRINT "THE MONSTER ATTACKS YOU FOR ";AT;"DAMAGE"
55 PRINT "USE SPELL OR DODGE?"
56 INPUT A$
57 IF A$="USE SPELL" THEN PRINT "MAGIC CAST, NOW 42"
# REM DAMAGE TALLY
58 REM [HEX:\
29,26,32,26,2C,2A,00,39,\
26,31,31,3E ]
59 DIM D(2)
60 LET D=30
61 IF D>30 THEN PRINT "MONSTER HAS DIED"
62 PRINT "YOU GET GOLD AND XP"
# REM GOLD AND XP TO BE ADDED LATER
63 REM [HEX:\
2C,34,31,29,00,26,33,29,\
00,3D,35,00,39,34,00,27,\
2A,00,26,29,29,2A,29,00,\
31,26,39,2A,37 ]
130 PRINT "STATS?"
131 INPUT A$
132 LET DF=SQR 3
133 LET ATT=ACS 2
134 PRINT DF,ATT
(You add to edit the "AT" lines (41-53-133), if the variable is tokenized as "PRINT "AT")