Old D&D adventure game in Applesoft BASIC

dungeonmodule.txt

 90  HOME 
 100  PRINT " "
 110  PRINT " "
 120  PRINT " "
 130  PRINT " "
 135  PRINT "      *THE EYE OF ET
ERNAL DEATH*"
 140  PRINT "   -----------------
--------------"
 150  PRINT "            BY M.E.W
HITE"
 154  PRINT : PRINT : PRINT : PRINT 
: PRINT 
 156  PRINT "       COPYWRITE BY 
WHITE PROGRAMS INC"
 160  FOR PAUSE = 1 TO 3500: NEXT 
PAUSE
 170  HOME 
 180  PRINT "   << THE EYE OF ETE
RNAL DEATH >>"
 190  PRINT " "
 200  PRINT " A COMPUTER OPERATED
 D&D GAME"
 210  PRINT " "
 220  PRINT "   WELCOME FELLOW AD
VETURERS TO"
 230  PRINT "   A NEW WORLD,IT IS
 NOW THE DARK"
 240  PRINT "   AGES POSIBLY AROU
ND 1000 A.D. ."
 250  PRINT "   YOU ARE LOOKING F
OR RICHES AND"
 260  PRINT "   ADVENTURE IN THIS
 WONDERFUL NEW"
 270  PRINT "   LAND AND WITH A L
ITTLE BRAINS,"
 280  PRINT "   THATS WHAT YOU WI
LL FIND."
 290  PRINT " "
 300  PRINT "   PLAYING THIS GAME
 IS VERY EASY"
 310  PRINT "   ALL YOU HAVE TO D
O IS ENTER THE"
 320  PRINT "   NUMBER OF THE CHO
ICE GIVEN,AND"
 330  PRINT "   THEN TYPE THE KEY
 LABLED 'RETURN'"
 340  PRINT "   YOUR CHARACTER CH
OICES ARE LISTED"
 350  PRINT "   ON THE NEXT PAGE.
"
 360  PRINT " "
 370  INPUT "   TYPE YOUR NAME TO
 CONTINUE";H$
 380  GOTO 400
 395  PRINT " TYPETAX ERROR???": GOTO 
370
 400  GR 
 410  TEXT 
 420  HOME 
 422  FOR BEEP = 1 TO 15
 425 SOUND =  PEEK ( - 16336)
 427  NEXT BEEP
 430  PRINT " "
 440  PRINT "          CHARACTER 
MENU"
 450  PRINT " "
 460  PRINT "   1  MORANDO THE MA
GIC USER"
 470  PRINT " "
 480  PRINT "   2  GORMON THE THI
EF"
 490  PRINT "  "
 500  PRINT "   3  OMANDER THE FI
GHTER"
 510  PRINT " "
 520  PRINT "   4  LOSPER THE CLE
RIC/PRIEST"
 530  PRINT " "
 540  PRINT " "
 550  INPUT "   TYPE THE FIRST NA
ME OF YOUR CHOICE";A$
 560  IF A$ = "MORANDO" GOTO 700
 570  IF A$ = "GORMON" GOTO 1000
 580  IF A$ = "OMANDER" GOTO 1300

 590  IF A$ = "LOSPER" GOTO 1600
 610  PRINT "   TYPETAX ERROR???"
: GOTO 550
 620  FOR PAUSE = 1 TO 1000: NEXT 
PAUSE
 700  HOME 
 710  PRINT "     MORANDO THE MAG
IC USER"
 720  PRINT " "
 730  PRINT "HIT POINTS 50 "
 740  PRINT " "
 750  PRINT "  SPELLS"
 760  PRINT "--------------------
-------------"
 770  PRINT " "
 780  PRINT "CHARM MONSTER"
 790  PRINT " "
 800  PRINT "MAGIC MISSLE"
 810  PRINT " "
 820  PRINT "GEM OF SEE THROUGH"
 830  PRINT " "
 840  INPUT "TYPE 5 TO START THE 
GAME";LUD
 850  IF LUD = 5 GOTO 2000
 860  IF LUD <  > 5 GOTO 870
 870  PRINT "TYPETAX ERROR???"
 1000  HOME 
 1010  PRINT "     GORMON THE THI
EF"
 1020  PRINT " "
 1030  PRINT "HIT POINTS 50"
 1040  PRINT " "
 1050  PRINT "  WEAPONS"
 1060  PRINT "-------------------
-------------"
 1070  PRINT "SHORT SWORD"
 1080  PRINT " "
 1090  PRINT "DAGGER"
 1100  PRINT " "
 1110  INPUT "TYPE 5 TO START THE
 GAME";LUD
 1120  IF LUD = 5 GOTO 2000
 1130  IF LUD <  > 5 GOTO 1140
 1140  PRINT "TYPETAX ERROR???": GOTO 
1110
 1300  HOME 
 1310  PRINT "     OMANDER THE FI
GHTER"
 1320  PRINT " "
 1330  PRINT "HIT POINTS 50"
 1340  PRINT " "
 1350  PRINT "WEAPONS"
 1360  PRINT "-------------------
---------------"
 1370  PRINT " "
 1380  PRINT "LONGSWORD"
 1390  PRINT " "
 1400  PRINT "CROSSBOW"
 1410  PRINT " "
 1420  PRINT "DAGGER"
 1430  PRINT " "
 1440  INPUT "TYPE 5 TO START THE
 GAME";LOM
 1450  IF LOM = 5 GOTO 2000
 1460  IF LOM <  > 5 GOTO 1470
 1470  PRINT "TYPETAX ERROR???": GOTO 
1440
 1600  HOME 
 1610  PRINT "   LOSPER THE CLERI
C/PRIEST"
 1620  PRINT " "
 1630  PRINT "HIT POINTS 50"
 1640  PRINT " "
 1650  PRINT "WEAPONS"
 1660  PRINT "-------------------
--------------"
 1670  PRINT " "
 1680  PRINT "HOLY WATER"
 1690  PRINT " "
 1700  PRINT "BOW AND ARROW"
 1710  PRINT " "
 1720  INPUT " TYPE 5 TO START TH
E GAME";LUM
 1730  IF LUM = 5 GOTO 2000
 1740  IF LUM <  > 5 GOTO 1750
 1750  PRINT "TYPETAX ERROR???": GOTO 
1720
 2000  HOME 
 2001  PRINT "    << EYE OF ETEAR
NAL DEATH >>"
 2002  PRINT " "
 2003  PRINT H$
 2005  PRINT "NOW THAT YOU HAVE C
HOSEN A NEW"
 2010  PRINT "CHARACTER YOU ARE R
EADY TO START THE"
 2020  PRINT "GAME.REMEMBER TO TY
PE THE 'RETURN'"
 2030  PRINT "KEY AFTER EVERY STA
TEMENT."
 2040  PRINT " "
 2050  PRINT " "
 2060  INPUT "IF YOU'RE READY,TYP
E 4 TO START";LOU
 2070  IF LOU = 4 GOTO 2100
 2080  IF LOU <  > 4 GOTO 2090
 2090  PRINT "TYPETAX ERROR???": GOTO 
2060
 2100  HOME 
 2105  PRINT " "
 2107  PRINT "     << EYE OF ETER
NAL DEATH >>"
 2108  PRINT : PRINT 
 2109  PRINT A$
 2110  PRINT "YOU HAVE BEEN SEARC
HING FOR HOURS"
 2120  PRINT "AND AT LAST YOU HAV
E FOUND IT"
 2130  PRINT "THE ENTRANCE TO THE
 DUNGEON!!"
 2140  PRINT "AND YOU HAVE DECIDE
D TO ENTER"
 2170  PRINT " "
 2180  PRINT "THE WALLS ARE SLIMY
 AND THE CORRIDOR"
 2190  PRINT "IS DARK.THERE ARE T
HREE DIFFERENT WAYS"
 2200  PRINT "YOU CAN GO;NORTH,EA
ST,OR WEST "
 2210  INPUT "WHICH WAY DO YOU WA
NT TO GO?";L$
 2220  IF L$ = "NORTH" GOTO 2300
 2230  IF L$ = "EAST" GOTO 4000
 2240  IF L$ = "WEST" GOTO 6000
 2300  HOME 
 2306 NUMBER =  INT (6 *  RND (1)
) + 1
 2307  IF NUMBER < 3 GOTO 2309
 2308  IF NUMBER > 3 GOTO 2400
 2309  HOME 
 2310  PRINT "      "
 2320  PRINT A$
 2330  PRINT "YOU SEE A LIGHT UP 
THIS PASSAGE!!!"
 2340  PRINT : PRINT 
 2350  INPUT "ARE YOU GOING UP TH
IS PASSAGE?";O$
 2361  IF O$ = "YES" GOTO 3000
 2363  IF O$ = "NO" GOTO 2364
 2364  PRINT 
 2365  INPUT "WHICH PASSAGE THEN?
";T$
 2367  IF T$ = "EAST" GOTO 4000
 2368  IF T$ = "WEST" GOTO 6000
 2370  IF T$ = "NORTH" GOTO 3000
 2400  HOME 
 2405  PRINT : PRINT : PRINT 
 2407  PRINT A$
 2410  PRINT "THE PASSAGE GOES NO
RTH FOR ABOUT 120'"
 2420  PRINT "UNTILL YOU COME TO 
ANOTHER INTERSECTION"
 2430  PRINT "IN WHICH YOU MAY GO
 EAST OR WEST.THE"
 2440  PRINT "WESTERN CORRIDOR IS
 VERY DARK AND"
 2450  PRINT "SHOWS NO SIGNS OF L
IFE,HOWEVER,THE"
 2460  PRINT "EASTERN PASSAGE SHI
NES AS IF THERE WAS "
 2470  PRINT "A LIGHT DOWN IT."
 2480  PRINT : PRINT 
 2490  INPUT "WHICH WAY NOW?";B$
 2500  IF B$ = "EAST" GOTO 4000
 2510  IF B$ = "WEST" GOTO 6000
 2520  PRINT "TYPETAX ERROR???": GOTO 
2490
 3000  HOME 
 3020  PRINT A$
 3100  PRINT "THE PASSAGE GOES NO
RTH FOR ABOUT 120'"
 3110  PRINT "UNTILL YOU COME TO 
AN INTERSECTION AND"
 3120  PRINT "THE LIGHT SOURCE!!T
HE LIGHT IS MADE BY"
 3130  PRINT "A TORCH ENCLOSED IN
 A GLASS CASE.THE"
 3140  PRINT "CORRIDOR GOES EAST 
OR WEST WITH WHAT"
 3150  PRINT "LIKE ANOTHER LIGHT 
SOURCE DOWN THE"
 3160  PRINT "WESTERN PASSAGE.THE
 EAST ONE LOOKS"
 3165  PRINT "VERY DARK."
 3167  PRINT : PRINT : PRINT "WHA
T WILL YOU DO NOW?"
 3170  PRINT : PRINT 
 3180  PRINT 
 3190  PRINT "GO WEST"
 3200  PRINT 
 3210  PRINT "GO EAST"
 3220  PRINT 
 3230  PRINT "EXAMINE THE LIGHT S
OURCE"
 3240  PRINT 
 3250  INPUT "TYPE YOUR CHOICE";Z
$
 3260  IF Z$ = "WEST" GOTO 6000
 3270  IF Z$ = "EAST" GOTO 4000
 3280  IF Z$ = "EXAMINE THE LIGHT
 SOURCE" GOTO 3300
 3290  PRINT "TYPETAX ERROR???": GOTO 
3250
 3300  HOME 
 3310 MUMBER =  INT (6 *  RND (1)
) + 1
 3320  IF MUMBER > 3 GOTO 3340
 3330  IF MUMBER < 3 GOTO 3500
 3340  PRINT "      "
 3350  PRINT A$
 3360  PRINT "YOU HAVE JUST BEEN 
SHOCKED BY AN"
 3370  PRINT "UNKNOWN FORCE!!!YOU
R HIT POINTS ARE"
 3380 SUN = 50 - 8
 3390  PRINT SUN
 3400  PRINT : PRINT 
 3410  PRINT "YOU ARE OK THOUGH S
INCE YOU CAN TAKE"
 3420  PRINT "A FULL 50 HIT POINT
S OF DAMIGE BEFORE"
 3430  PRINT "BEING KILLED.YOU NO
W MAY GO EAST OR "
 3440  PRINT "WEST DOWN THE CORRI
DOR."
 3450  PRINT : PRINT 
 3460  INPUT "WHICH WAY NOW?";R$
 3470  IF R$ = "EAST" GOTO 4000
 3480  IF R$ = "WEST" GOTO 6000
 3490  PRINT "TYPETAX ERROR???": GOTO 
3460
 3500  HOME 
 3510  PRINT "      "
 3520  GOSUB 10000
 4000  HOME 
 4010  PRINT : PRINT : PRINT 
 4020  PRINT "THE PASSAGE GOES EA
ST FOR ABOUT "
 4030  PRINT "50' AND THEN IT GOE
S NORTH ."
 4033  PRINT : PRINT "WHAT WILL Y
OU DO NOW?"
 4035  PRINT : PRINT "GO NORTH"
 4037  PRINT : PRINT "LOOK FOR SE
CRET DOORS"
 4039  PRINT : INPUT "TYPE YOUR C
HOICE ";G$
 10000  HOME 
 10010  PRINT A$
 10020  PRINT "NOW YOU SEE COMING
 DOWN THE PASSAGE"
 10030  PRINT "TO THE WEST A A HU
MAN FORM WRAPPED IN"
 10040  PRINT "RAGS.IT IS NOW STA
RTING TO MOAN."
 10050  PRINT : PRINT 
 10060  PRINT A$
 10065  PRINT "THESE ARE YOUR WEA
PONS;"
 10066  PRINT 
 10070  IF A$ = "MORANDO" GOTO 10
100
 10080  IF A$ = "GORMON" GOTO 101
55
 10085  IF A$ = "OMANDER" GOTO 10
200
 10087  IF A$ = "LOSPER" GOTO 102
50
 10100  PRINT A$
 10120  PRINT "THESE ARE YOUR WEA
PONS;"
 10125  PRINT 
 10130  PRINT 
 10135  IF U$ = "CHARM MONSTER" GOTO 
10140
 10137  IF U$ = "MAGIC MISSLE" GOTO 
10140
 10140 MUNGER =  INT (6 *  RND (1
)) + 1
 10142  IF MUNGER > 3 GOTO 10400
 10143  IF MUNGER < 3 GOTO 10144
 10144  FOR BEEP = 1 TO 20
 10145 SOUND =  PEEK ( - 16336)
 10146  NEXT BEEP
 10147  PRINT "YOU MISSED!!!"
 10148  GOSUB 20000
 10150  GOTO 10300
 10155  PRINT 
 10175  PRINT "SHORT SWORD"
 10177  PRINT 
 10179  PRINT "DAGGER "
 10180  PRINT 
 10184  INPUT "WHICH WILL YOU USE
? ";E$
 10185  IF E$ = "DAGGER" GOTO 101
88
 10186  IF E$ = "SHORT SWORD" GOTO 
10188
 10188 WUNGER =  INT (6 *  RND (1
)) + 1
 10189  IF WUNGER > 3 GOTO 10400
 10190  IF WUNGER < 3 GOTO 10192
 10192  FOR BEEP = 1 TO 15
 10194 SOUND =  PEEK ( - 16336)
 10195  NEXT BEEP
 10196  PRINT "YOU MISSED!!!"
 10197  FOR PAUSE = 1 TO 2500: NEXT 
PAUSE
 10198  GOSUB 20000
 10199  FOR PAUSE = 1 TO 2500: NEXT 
PAUSE
 10200  PRINT 
 10205  PRINT "LONGSWORD"
 10207  PRINT 
 10210  PRINT "CROSSBOW"
 10215  PRINT 
 10217  PRINT "DAGGER"
 10219  PRINT 
 10220  INPUT "WHICH ONE WILL YOU
 USE?";F$
 10223  IF F$ = "LONGSWORD" GOTO 
10230
 10225  IF F$ = "CROSSBOW" GOTO 1
0230
 10227  IF F$ = "DAGGER" GOTO 102
30
 10230 UNGER =  INT (6 *  RND (1)
) + 1
 10234  IF UNGER > 3 GOTO 10400
 10235  IF UNGER < 3 GOTO 10236
 10236  FOR BEEP = 1 TO 15
 10238 SOUND =  PEEK ( - 16336)
 10240  NEXT BEEP
 10244  PRINT "YOU MISSED!!!"
 10246  FOR PAUSE = 1 TO 2500: NEXT 
PAUSE
 10247  GOSUB 20000
 10248  GOTO 10300
 10250  PRINT 
 10255  PRINT "HOLY WATER"
 10257  PRINT : PRINT "BOW AND AR
ROW"
 10259  PRINT : INPUT "WHICH WILL
 YOU USE? ";R$
 10260  IF R$ = "HOLY WATER" GOTO 
10270
 10265  IF R$ = "BOW AND ARROW" GOTO 
10270
 10270 DUNGER =  INT (6 *  RND (1
)) + 1
 10272  IF DUNGER > 3 GOTO 10400
 10273  IF DUNGER < 3 GOTO 10275
 10275  PRINT "YOU MISSED!!!"
 10277  FOR BEEP = 1 TO 15
 10280 SOUND =  PEEK ( - 16336)
 10285  NEXT BEEP
 10288  GOSUB 20000
 10290  GOTO 10300
 10300  HOME 
 10310  PRINT "IT IS NOW THE MONS
TERS ATTACK"
 10400  PRINT "YOU HIT!!!!!"
 10410  GOTO 20900
 20000  PRINT "THESE ARE YOUR CHO
ICES OF WHAT TO DO"
 20010  PRINT 
 20020  PRINT "RUN"
 20030  PRINT 
 20040  PRINT "STAY AND FIGHT"
 20045  PRINT 
 20047  INPUT "WHICH WILL YOU DO?
";Q$
 20050  IF Q$ = "RUN" GOTO 20080
 20060  IF Q$ = "STAY AND FIGHT" GOTO 
20090
 20070  PRINT "TYPETAX ERROR???":
 GOTO 20000
 20080  GOTO 20100
 20090  RETURN 
 20100  PRINT "YOU GO NORTH FOR A
BOUT 50' YOU COME TO A DOOR"

 20200  PRINT "THE MONSTER IS STI
LL AFTER YOU."
 20300  PRINT : PRINT : INPUT "WH
AT DO YOU WANT TO DO?";A$
 20400  IF A$ = "OPEN DOOR" THEN 
20700
 20500  IF A$ = "USE GEM OF SEE T
HROUGH" THEN 20800
 20600  IF A$ = "FIGHT" THEN  INPUT 
"WHAT WILL YOU USE";S$
 20700  GOTO 10142
 20800  PRINT "YOU SEE A CLOSET,A
 CHAIR,AND A TABLE."