Instantly share code, notes, and snippets.

Embed
What would you like to do?
Old D&D adventure game in Applesoft BASIC
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."
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment