820 IF OB(31,0) < > -1 THEN PRINT "BUT I HAVE NO FOOD!!": GOSUB 1800: GOTO 140
830 IF OB(NO,0) < >CP THEN PRINT "I DON'T SEE IT.": GOSUB 1800: GOTO 140
840 IF NO = 10 THEN PRINT "THE HYDRA WHARFS DOWN THE FOOD.":OB(31,0) = 0:OB$(10) = "A GIANT HYDRA RUBBING HIS STOMACH": GOSUB 1800: GOTO 140
850 IF NO = 20 THEN PRINT "THE BUGS IN THESE CAVES ONLY EAT HUMAN FLESH.": GOSUB 1800: GOTO 140
860 IF NO < >3 THEN PRINT "YOU CAN'T BE SERIOUS.": GOSUB 1800: GOTO 140
870 PRINT "IT REFUSES TO EAT THE FOOD.": GOSUB 1800: GOTO 140
880 IF VB < >14 THEN 960
890 IF NO = 10 AND OB(33,0) = CP THEN PRINT "THE UNDERTAKER JUST TOOK HIM AWAY.":OB(33,0) = 0: GOSUB 1800: GOTO 140
900 IF OB(NO,0) < >CP AND OB(NO,0) < > -1 THEN PRINT "I DON'T SEE IT AND I'M NOT HOLDING IT, SO HOW CAN I HIT IT?": GOSUB 1800: GOTO 140
910 IF NO = 3 THEN PRINT "NO!!! I KIND OF LIKE THE PARROT! POLLY WANT A CRACKER?"
920 IF NO = 10 THEN PRINT "OKAY... THE HYDRA GRUNTS >>DAMN MOSQUITOS<<"
930 IF NO = 20 THEN PRINT "YUCH! I DON'T WANT TO TOUCH!!!"
940 IF NO = 3 OR NO = 10 OR NO = 20 THEN GOSUB 1800: GOTO 140
950 PRINT "OKAY... OUCH! I HURT MY HAND!": GOSUB 1800: GOTO 140
960 IF VB = 15 THEN PRINT "I CAN'T KILL ANYTHING, I'M TOO WEAK. BUT MAYBE IF YOU WERE MORE SPECIFIC...": GOSUB 1800: GOTO 140
970 IF VB < >16 THEN 1060
980 IF OB(33,0) = CP AND NO = 10 THEN PRINT "IT IS ALREADY BURNT TO A CRISP.": GOSUB 1800: GOTO 140
990 IF OB(6,0) < > -1 THEN PRINT "I DON'T HAVE A LIGHTER OR MATCHES!!": GOSUB 1800: GOTO 140
1000 IF NO = 3 THEN PRINT "NEVER!! YOU KNOW SOMETHING, YOU'RE A SADIST.": GOSUB 1800: GOTO 140
1010 IF NO = 10 AND OB(10,0) = CP THEN OB(10,0) = 0:OB(33,0) = CP: PRINT "THE HYDRA CRUMBLES TO THE GROUND DEAD.": GOSUB 1800: GOTO 140
1020 IF NO = 20 THEN PRINT "THE BUG CANNOT BE BURNED. <GULP>": GOSUB 1800: GOTO 140
1030 IF NO = 10 THEN OB(10,0) = 0
1040 PRINT "IT DOESN'T BURN."
1050 GOSUB 1800: GOTO 140
1060 IF VB = 17 THEN PRINT "AND JUST WHO DO YOU THINK I AM, ROCKY??": GOSUB 1800: GOTO 140
1070 IF VB = 18 THEN PRINT "I DON'T KNOW HOW TO LIGHT THINGS. IF YOU WANT ME TO BURN SOMETHING, TELL ME SO!": GOSUB 1800: GOTO 140
1080 IF VB < >19 THEN 1170
1090 IF NO$ = "COIN" THEN NO$ = "QUARTER":NO = 7
1100 IF NO = 0 THEN PRINT "I DON'T KNOW WHAT ONE IS.": GOSUB 1800: GOTO 140
1110 IF NO = 7 THEN 1130
1120 IF OB(NO,0) < > -1 THEN PRINT "I'M NOT HOLDING IT RIGHT NOW.": GOSUB 1800: GOTO 140
1130 IF CP < >27 THEN PRINT "I DON'T SEE ANY COKE MACHINES HERE.": GOSUB 1800: GOTO 140
1140 IF NO < >7 THEN PRINT "THAT IS RIDICULOUS.": GOSUB 1800: GOTO 140
1150 IF OB(NO,0) < > -1 THEN PRINT "I HAVE NO MONEY.": GOSUB 1800: GOTO 140
1160 IF OB(7,0) = -1 AND CP = 27 THEN PRINT "ALL RIGHT. CHICKLIK CHINGGGG! A COKE POPPED OUT. THERE IS NOW A BOTTLE OF COKE HERE.":OB(7,0) = 0:NT = NT -1:OB(12,0) = 27: GOSUB 1800: GOTO 140
1170 REM
1180 IF VB < >21 THEN 1260
1190 IF NO < >18 AND OB(NO,0) = -1 THEN PRINT "IT'S KIND OF HEAVY, YOU KNOW.": GOSUB 1800: GOTO 140
1200 IF OB(NO,0) < > -1 THEN PRINT "FIRST YOU HAVE TO HELP ME FIND IT, DUMMY!": GOSUB 1800: GOTO 140
1320 IF CP = 1 AND OB(14,0) = -1 AND OB(22,0) = 1 THEN PRINT "OKAY!!!": GOTO 1510
1330 IF CP < >1 THEN PRINT "I CAN'T.": GOSUB 1800: GOTO 140
1340 IF VB < >26 THEN 1380
1350 IF OB(14,0) < > -1 THEN PRINT "I CAN'T. I HAVE NO TOOLS.": GOSUB 1800: GOTO 140
1360 PRINT "I CAN'T. I DON'T SEE THE FRIBULATING GONKULATOR AROUND ME.": IF OB(22,0) = -1 THEN PRINT "I THINK I HAVE TO DROP IT FIRST."
1370 GOSUB 1800: GOTO 140
1380 IF VB < >27 THEN 1460
1390 IF NO = 0 THEN PRINT "WHAT THE DEVIL IS A "NO$"??": GOSUB 1800: GOTO 140
1400 IF NO = 20 OR NO = 10 THEN IF OB(NO,0) = CP THEN PRINT "YUCH!!! I'D NEVER EAT A "NO$"!!!": GOSUB 1800: GOTO 140
1410 IF NO = 10 AND OB(33,0) = CP THEN PRINT "WELL...IT'S COOKED NOW, BUT IT STILL LOOKS RATHER GROSS.": GOSUB 1800: GOTO 140
1420 IF OB(NO,0) < > -1 THEN PRINT "I'M NOT HOLDING IT.": GOSUB 1800: GOTO 140
1430 IF NO = 3 AND OB(3,0) = -1 THEN PRINT "I'D RATHER NOT. I DON'T CARE FOR PARROT MEAT.": GOSUB 1800: GOTO 140
1440 IF NO = 31 AND OB(31,0) = -1 THEN NT = NT -1: PRINT "MMMM! IT WAS FILET MIGNON, MY FAVORITE DISH.":OB(31,0) = 0: GOSUB 1800: GOTO 140
1450 PRINT "I THINK THAT "OB$(NO)" WOULD GIVE": PRINT "ME INDIGESTION, AND I DON'T HAVE ANY PEPTO-BISMOL.": GOSUB 1800: GOTO 140
1460 IF VB < >30 THEN 1500
1470 IF CP < >10 AND CP < >11 THEN PRINT "NOTHING HAPPENED.": GOSUB 1800: GOTO 140
1480 PRINT "NICE TRY, BUT THAT'S AN OLD, WORN OUT MAGIC WORD."
1490 GOSUB 1800: GOTO 140
1500 PRINT "I DON'T KNOW HOW TO DO THAT.": GOSUB 1800: GOTO 140
1510 FOR I = 1 TO 1000: NEXT I
1520 PRINT "OUT OF A MAXIMUM OF 175 POINTS, YOU HAVESCORED ";:J = 0
1530 FOR I = 1 TO LO: IF OB(I,0) = 1 THEN J = J +OB(I,1)
1540 NEXT I
1550 PRINT J" POINTS."
1560 IF J = 175 THEN PRINT "ALL OF ADVENTUREDOM PAYS TRIBUTE TO YOU,ADVENTURER GRANDMASTER!": GOTO 1640
1570 IF J >165 THEN PRINT "YOUR SCORE PUTS YOU IN MASTER ADVENTURERCLASS 'A'.": GOTO 1640
1580 IF J >150 THEN PRINT "YOUR SCORE PUTS YOU IN MASTER ADVENTURERCLASS 'B'.": GOTO 1640
1590 IF J >140 THEN PRINT "YOU HAVE REACHED A 'JUNIOR MASTER' STATUS.": GOTO 1640
1600 IF J >120 THEN PRINT "YOU MAY NOW CONSIDER YOURSELF A 'SEASONED ADVENTURER'.": GOTO 1640
1610 IF J >110 THEN PRINT "YOU HAVE ACHIEVED THE RATING: 'EXPERIENCED ADVENTURER'.": GOTO 1640
1620 IF J >100 THEN PRINT "YOUR SCORE QUALIFIES YOU AS A 'NOVICE CLASS' ADVENTURER.": GOTO 1640
1630 PRINT "YOU ARE OBVIOUSLY A RANK AMATEUR. BETTER LUCK NEXT TIME."
1640 PRINT : INPUT "DO YOU WANT TO PLAY AGAIN? ";AG$:AG$ = LEFT$(AG$,1): IF AG$ = "N" THEN HOME : END
1645 IF AG$ < >"Y" THEN 1520
1650 FOR K = 1 TO LEN(NA$): POKE 24576 +K, ASC( MID$ (NA$,K,1)): NEXT K: POKE 24576 +K,191
1660 CLEAR :CO = 0:NA$ = ""
1670 CO = CO +1:PE = PEEK(24576 +CO): IF PE < >191 THEN NA$ = NA$ + CHR$(PE): GOTO 1670
1680 GOTO 20
1690 PRINT "GADZOOKS!!! A GIANT BUG JUST WALKED IN TO KILL ME!!!"
1700 FF = 1
1710 GOSUB 1800
1720 IF NO$ = "SESAME" AND VB$ = "OPEN" THEN PRINT "THE BUG HAS SHRUNKEN TO ITS PROPER SIZE AND SCURRIED AWAY.": GOTO 1780
1730 IF NO < >20 OR VB < >15 THEN PRINT "HELP ME!!! I'M BEING DEVOURED BY A GIANTBUG!!! THE END IS NEAR! OW!! THIS HURTS!I'M DYING...DYING...DEAD.": GOTO 1510
1740 IF OB(2,0) < > -1 THEN NO = 2: PRINT "I DON'T HAVE A SWORD!!!": GOTO 1730
1750 IF SW = 8 THEN PRINT "MY SWORD IS DULL, REMEMBER???":NO = 2: GOTO 1730
1760 PRINT "DING! DONG! THE BUG IS DEAD! THE BUG IS DEAD!!"
1770 SW = SW +1: IF SW = 8 THEN PRINT "MY SWORD IS DULL NOW."
1780 GOSUB 1800: GOTO 140
1790 END
1800 PRINT : PRINT "ENTER YOUR COMMAND -->";:CM$ = ""
1801 GET GT$: IF ASC(GT$) = 13 THEN 1809
1802 IF ASC(GT$) < >8 THEN 1807
1803 IF LEN(CM$) < = 1 THEN CM$ = "": GOTO 1808
1804 CM$ = LEFT$(CM$, LEN(CM$) -1): GOTO 1808
1807 CM$ = CM$ +GT$
1808 PRINT GT$;: GOTO 1801
1809 PRINT
1810 IF CM$ = "ABRA CADABRA" AND F5 <3 AND FF = 1 THEN NO$ = "SESAME":VB$ = "OPEN":FF = 0:F5 = F5 +1: RETURN
1820 VB$ = "":NO$ = "":VB = 0:NO = 0
1830 LC = LEN(CM$): FOR I = 1 TO LC: IF MID$ (CM$,I,1) < >" " THEN VB$ = VB$ + MID$ (CM$,I,1): NEXT I
1840 FOR I = 1 TO NV: IF VB$(I) = VB$ THEN VB = I: GOTO 1860
1845 NEXT I
1850 VB = 0:NO$ = VB$: GOTO 1880
1860 IF LEN(VB$) +1 > LEN(CM$) THEN NO = 0: RETURN
1870 NO$ = RIGHT$(CM$, LEN(CM$) -1 - LEN(VB$))
1880 FOR I = 1 TO NN: IF NO$(I) = NO$ THEN 1900
1885 NEXT I
1890 NO = 0: RETURN
1900 NO = I: RETURN
1910 PRINT P$(CP): PRINT
1920 FOR I = 1 TO LO: IF OB(I,0) = CP THEN PRINT "THERE IS "OB$(I)" HERE."
1930 NEXT I
1940 PRINT "I CAN GO : ";:F2 = 0
1950 FOR I = 1 TO 4: IF P(CP,I) < >0 THEN PRINT NO$(I +22)" ";:F2 = 1
1960 NEXT I: IF F2 = 0 THEN PRINT "NOWHERE!": GOTO 1970
1965 PRINT
1970 IF CP = 18 AND OB(3,0) = -1 THEN PRINT : PRINT M1$
1980 IF INT( RND(1) *35) = 5 AND CP < >1 AND CP < >37 AND CP < >27 THEN PRINT : GOTO 1690
1990 IF FD >4 THEN PRINT : PRINT "IF YOU'D LIKE, YOU CAN MAKE IT EASIER ONYOURSELF BY TYPING N, S, E, OR W INSTEAD OF NORTH, SOUTH, ETC.":FD = 0
2000 RETURN
2010 NP = 37: DIM P$(NP)
2030 P$(1) = "I'M ON A SHIP. A COMPUTER SCREEN HERE SAYS: 'SHIP WILL NOT FUNCTION, FRIBULATING GONKULATOR IS BURNED OUT.' IT'S OBVIOUS THAT THE SHIP HAS CRASHED."
2040 DATA 2,6,5,4:P$(2) = "I'M IN A COBBLESTONE HALLWAY. I CAN HEARCHIRPING NEARBY, SOUNDS LIKE BUGS...": DATA 8,1,3,5
2050 P$(3) = "I'M IN A DARK ROOM...OH NO!!! THERE ARE GIANT BUGS ALL AROUND ME!!!": DATA 0,0,0,2
2060 P$(4) = "I'M IN A SMALL ROOM. A SCRIBBLING HERE SAYS: 'HAR HAR HAR! YOU'LL NEVER MAKE IT! >> ARBADAC ARBA <<'": DATA 7,0,1,0
2070 P$(5) = "I'M IN A DUSTY COBBLESTONE HALLWAY.": DATA 0,25,2,1
2080 P$(6) = "I'M IN A DUSTY PLACE. IT IS VERY DARK INHERE. I'M SCARED!": DATA 1,24,0,0
2090 P$(7) = "I'M IN A LOW CRAWL SPACE. IT SEEMS AS IFWE'RE NOT SUPPOSED TO BE HERE...": DATA 0,4,15,0
2100 P$(8) = "I'M IN A ROOM WITH ROCK WALLS. IMBEDDED IN THE WALLS ARE SCATTERED RUBIES.": DATA 9,2,0,13
2110 P$(9) = "I'M IN A DARK ROOM. THIS ONE IS NOT SO SCARY. I THINK I HEAR GRUNTS AND GROANS NEARBY.": DATA 10,8,23,0
2120 P$(10) = "I'M ON THE SOUTH SIDE OF A CHASM. MOLTENLAVA IS BENEATH ME.": DATA 11,9,0,0
2130 P$(11) = "I'M ON THE NORTH SIDE OF THE CHASM.": DATA 16,10,0,0
2140 P$(12) = "I'M IN A MAZE OF TWISTY PASSAGES.": DATA 12,12,13,14
2150 P$(13) = P$(12): DATA 13,13,8,12
2160 P$(14) = P$(12): DATA 14,15,12,14
2170 P$(15) = P$(12): DATA 14,15,15,7
2180 P$(16) = "I'M ON A WOOD PLATFORM. A SIGN WARNS: 'GO BACK! GO SOUTH!!' THERE IS A RICKEDYBRIDGE TO THE NORTH.": DATA 17,11,0,0
2190 P$(17) = "I'M IN A DUSTY PASSAGE. A SIGN POINTS EAST AND SAYS: 'TO TROLLS PLACE -->' A RICKEDY BRIDGE EXTENDS SOUTHWARD. MARKINGS IN THE DUST INDICATE THAT SOMEONE WAS HERE RECENTLY.": DATA 0,16,18,0
2200 P$(18) = "A VOICE BOOMS OUT: 'WHO DARES TO ENTER MY PALACE???' (SOUNDS LIKE A TROLL TO ME!)": DATA 0,0,19,0
2210 P$(19) = "I'M IN THE TROLL'S PALACE. IT'S BREATH- TAKING!! THE CEILING IS SO HIGH, I CAN'TEVEN SEE IT!": DATA 0,20,0,0
2220 P$(20) = "I'M AT ONE END OF A SECRET PASSAGE.": DATA 119,0,0,21
2230 P$(21) = "I'M IN A SECRET PASSAGE.": DATA 21,22,20,21
2240 P$(22) = P$(21): DATA 21,22,22,23
2250 P$(23) = P$(21): DATA 23,23,22,9
2260 P$(24) = "I'M IN A HUGE ICE CAVERN. THE CEILING AND WALLS ARE COMPLETELY ICE.": DATA 6,26,25,0
2270 P$(25) = "I'M IN A ROOM WITH MANY ANIMALS... WAIT! THEY'VE ALL RUN AWAY.": DATA 5,0,0,0
2280 P$(26) = "I AM IN A ROOM WITH TRACES OF SLIME ON THE FLOORS AND WALLS.": DATA 24,29,27,28
2290 P$(27) = "I'M IN...AL'S DINER?!? THERE'S A COKE MACHINE HERE. IT SAYS: 'ENJOY COCA-COLA.25 CENTS (NO CANADIAN COINS PLEASE)'.": DATA 0,0,0,26
2300 P$(28) = "I'M IN A HUGE PIT.": DATA 0,0,26,0
2320 P$(29) = "I'M IN THE HYDRA ROOM. THE WALLS ARE ALLSLIME. BOY, I'VE NEVER SEEN ANYTHING SO GROSS IN MY LIFE!": DATA 26,30,31,32
2330 P$(30) = "I'M IN THE DRAGON ROOM. IT SEEMS TO BE DECORATED WITH DRAGONS.": DATA 29,34,0,33
2340 P$(31) = "I'M IN A TORTURE CHAMBER. LET'S GET OUT OF HERE QUICK!!": DATA 31,31,31,29
2350 P$(32) = "THIS IS THE CLAM ROOM. THE WALLS ARE SOLID CLAMSHELL EMBEDDED IN LIMESTONE.": DATA 0,0,29,0
2360 P$(33) = "I'M IN A MAMMOTH GARDEN FULL OF PLANTS.": DATA 0,0,30,0
2370 P$(34) = "I'M IN THE VELVET ROOM. THE WALLS AND CEILING ARE VELVET.": DATA 30,34,35,0
2380 P$(35) = "I'M IN AN ARABIAN ROOM WITH GUITARS PLAYING NEARBY. THERE IS AN OIL SLICK HERE. LOOKS LIKE MACHINE OIL, 10-W-30.": DATA 36,37,0,34
2390 P$(36) = "I'M IN THE TREASURE ROOM. MANY DWARVES GUARD SOME PETTY TREASURE. NOTHING TO FLIP OVER, ANYWAY.": DATA 0,35,0,0
2400 P$(37) = "I'M AT MAC'S EARTH-DIGGER BODY SHOP.": DATA 35,0,0,0
2410 DIM P(37,4): FOR I = 1 TO 37: FOR J = 1 TO 4: READ P(I,J): NEXT J,I
2420 LO = 33: DIM OB$(LO),OB(LO,1)
2425 DIM XX(LO,1)
2430 OB$(1) = "A SET OF KEYS": DATA 6,0:OB$(2) = "A SHINY SWORD": DATA 16,0
2440 OB$(3) = "A PARROT IN A CAGE": DATA 25,5:OB$(4) = "A GOLD NUGGET": DATA 4,10
2450 OB$(5) = "A 35,000 KARAT DIAMOND": DATA 7,10:OB$(6) = "A CIGARETTE LIGHTER": DATA 28,0
2460 OB$(7) = "A QUARTER": DATA 28,0:OB$(8) = "AN ENORMOUS EMERALD": DATA 32,15
2470 OB$(9) = "SOME SILVER BARS": DATA 33,15:OB$(10) = "A GIANT HYDRA": DATA 29,0
2480 OB$(11) = "A MING VASE": DATA 30,10:OB$(12) = "A BOTTLE OF COKE": DATA 0,0
2490 OB$(13) = "AN EMPTY COKE BOTTLE": DATA 0,0:OB$(14) = "SOME TOOLS": DATA 34,0
2500 OB$(15) = "A LARGE RUBY": DATA 8,15:OB$(16) = "SOME GOLD BARS": DATA 19,20
2510 OB$(17) = "A DIAMOND NECKLACE": DATA 19,25:OB$(18) = "A MAGIC WAND": DATA 14,0
2520 OB$(22) = "A FRIBULATING GONKULATOR": DATA 37,50
2560 FOR I = 1 TO 20: READ OB(I,0),OB(I,1): NEXT I
2570 OB(22,0) = OB(19,0):OB(22,1) = OB(19,1)
2580 OB(19,1) = 0:OB(19,0) = 0
2590 OB(31,0) = 27:OB(31,1) = 0
2600 DATA KEYS,SWORD,PARROT,NUGGET,DIAMOND,LIGHTER,QUARTER,EMERALD,SILVER,HYDRA,VASE,COKE,BOTTLE,TOOLS,RUBY,GOLD,NECKLACE,WAND,SIGN,BUG,ALEXANDER,GONKULATOR,NORTH,SOUTH,EAST,WEST
2610 DATA N,S,E,W,FOOD,SKELETONS
2620 NN = 32: DIM NO$(NN)
2630 FOR I = 1 TO NN: READ NO$(I): NEXT I
2640 DATA GO,GET,LOOK,INVEN,SCORE,DROP,HELP,SAVE,LOAD,QUIT,SAY,DRINK,FEED,HIT,KILL,BURN,FIGHT,LIGHT,INSERT,TAKE,WAVE,RELEASE,CONTINUE,DESTROY,SIR,FIX,EAT,?,INVENTORY,HOCUS
2650 NV = 30: DIM VB$(NV): FOR I = 1 TO NV: READ VB$(I): NEXT I
2660 M1$ = "THE PARROT CHANTS: 'SIR ALEXANDER...SIR ALEXANDER!'"
2670 M2$ = "THE TROLL SCURRIES AWAY IN FEAR."
2680 M3$ = "GULP GULP GULP! (BURP) - THAT WAS REFRESHING!"
2690 DIM H$(NP)
2700 H$(25) = "THIS PARROT TALKS..."
2710 H$(29) = "CIGAR? CIGARETTE? TIPPARILLO?"
2720 H$(10) = "YOU KNOW, THIS WORLD IS ENCHANTED..."
2730 H$(12) = "YOU CAN MAKE THE PASSAGES LOOK LESS ALIKE BY DROPPING THINGS."