Username: Password:
RegisterForgotten Password

Neptune's Caverns (NEPTUNE.C10)

UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU<NEPTUNE
"B²UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU<ÿC\•500:‹CC,C1,M$:9CkC1¯1:CC¯32Cš„Ä(M$,CC,1)°®""¬Ä(M$,CC,1)°®"
"£CC¯CCš1:2C̆Ä(M$,C1,CCšC1):C1¯CC§1:CC¯C1§31:„C1°¯œ(M$)£2CҐD	‹T$(24),D$(24),EX(24,4),NO$(14),VB$(12),OB$(10),OBI(10)D
ƒ BEGIND2‚ 5000:ƒ INITIALIZEDE‚ 1000:ƒ INPUTUU<ÿDW(‚ 2000:ƒ SORTDt2„
(WF°®1) ¬ (LF°®1) £ 30D…< 5500:ƒ ENDDžèƒ ***** INPUT
******DŒòVB$(0)¯"":NO$(0)¯"":R$¯""DÜüˆ"WHAT DO YOU DO
NEXT";R$:Dñý„R$¯"E"£R$¯"EAS"Eþ„R$¯"W"£R$¯"WES"Eÿ„R$¯"N"£R$¯"NOR"E0„R$¯"S"£R$¯"SOU"EB€
I¯1 ¢ œ(R$)E‚ŸUU<ÿ„ Ä(R$,I,1)¯" " £
VB$(0)¯Â(R$,3):NO$(0)¯Ä(R$,I§1,3):I¯œ(R$)EˆŠE$„ NO$(0)°®"" £
E».R$¯Â(R$,3):„ R$¯"QUI" £ ‰F8„ R$¯"NOR" ­  R$¯"SOU"
­ R$¯"EAS" ­ R$¯"WES" £ VB$(0)¯"GO ":NO$(0)¯R$:FRB„
R$¯"HEL" ­ R$¯"INV" ­ R$¯"LOO" ­ R$¯"QUI" £
NO$(0)¯"DOUU<ÿO":VB$(0)¯R$:FtL† "I DON'T UNDERSTAND THAT.
"FV 1010F˜Ѓ ****** SORT ******FšÚVBI¯0:NOI¯0F·ä€ I¯1 ¢ VVFÝî„
VB$(0)¯Â(VB$(I),3) £ VBI¯I:I¯VVFãøŠFò€ I¯1 ¢ NNG„ NO$(0)¯NO$(I) £
NOI¯I:I¯NNGŠGN „ NOI¯0 ­ VBI¯0 £ † "I DON'T UNDERSTAqUU<ÿND
THAT.":G‘*‡ VBI 3000,3100,3200,3300,3400,3500,3620,3700,3800,3900,4000 Gšžƒ ******
GO ******GÆ„ NOI®4 £ † "GO WHERE?":Gò̄ EX(CP,NOI)¯0 £ † "NO EXIT
THAT WAY":H ք CP¯16 ¬ (NOI¯1 ­ NOI¯4) ¬ FF¯0 £ LF¯1:H9àCP¯EX(CP,NOI):‚
4000H?êHWpUU<ÿƒ ****** GET ******Hƒ&„ NOI¯6 ¬ CP¯13 £ † "IT'S
TOO HEAVY!":HŠ0„ NOI°8 £ † "DON'T BE SILLY":Hé:„ OBI(NOIš7)¯99
¬ NO$(0)°®"HAN" £ † "YOU'VE ALREADY GOT IT!":HøD€ I¯7 ¢
10I)N„(OBI(I)¯CP ¬ NOI¯14) £ NOI¯I§7:HC¯HC§1:I¯10I/XŠIfb„
OBI(NOIš7)¯#UU<ÿCP £ † "O.K.":OBI(NOIš7)¯99:IN¯IN§1:Il† "IT
ISN'T HERE!":Iš€ƒ ******* DROP *******IœŠ„ NOI°8 £ † "DON'T BE
SILLY":IÌ”€ I¯7 ¢ 10Iþž„(OBI(I)¯99 ¬  NOI¯14) £
NOI¯I§7:HC¯HCš1:I¯10JšŠJ5²„ OBI(NOIš7)°®99 £ † "YOU HAVEN'T GOT
IT!":JXŒ† "O.KßUU<ÿ.":OBI(NOIš7)¯CP:IN¯INš1JtƄ CP¯19 ¬ NOI¯13
£ WF¯1JzАJ”äƒ ******* CUT *******JÊî„ OBI(1)°®99 £ † "YOU'VE NOTHING
SHARP ENOUGH!":Jôø„ NOI°®11 £ † "YOU CAN'T CUT THAT!":K
„
CP°®5 £ † "YOU CAN'T DO THAT":KG
„ CF¯1 £ † "YOU'VE ALREADY
DONE òUU<ÿTHAT!":K„
M$¯"THE SEAWEED FALLS AWAY TO REVEAL AN OPEN
WINDOW.":‚1K¡
 OBI(4)¯5:EX(5,2)¯11:CF¯1KÑ
*D$(5)¯Â(D$(5),9)§"AN OPEN WINDOW IN
IT.": Kë
Hƒ******* WEAR *******L)
R„ FF¯1 ¬ NO$(0)¯"FLI" £ †
"YOU'VE ALREADY GOT THEM ON!":Lo
\„ OBI(2)¯99 ¬
NOÄUU<ÿ$(0)¯"FLI" £ FF¯1:OBI(2)¯0:† "THEY FIT NICELY!":L 
f„
NOI¯14 ¬ HC®0 £ † "THAT'S REALLY SILLY!":L¿
p† "YOU CAN'T WEAR
THAT!":LÙ
¬ƒ******* GIVE *******L÷
¶„ CP¯10 ¬ NOI¯11 £  3550M
À„ CP¯7 ¬
NOI¯12 £  3580M@
ʄ CP¯20 £ † "THAT WON'T DO ANY
GOOD!rUU<ÿ":Ma
Ԇ "NOTHING HERE WANT'S IT":M
ބ OBI(4)°®99 £
† "YOU HAVEN'T GOT IT":M€
èOBI(4)¯0:OBI(3)¯10MÍ
ò† "SOMETHING
GLINTS IN THE CORNER":Mù
ü„ OBI(5)°®99 £ † "YOU HAVEN'T GOT
IT":NOBI(5)¯0:EX(7,2)¯13NPM$¯"THE FISH SNATCHES THE BONE AND
RETæUU<ÿIRES TO A CORNER":‚1N‚T$(7)¯"YOU ARE IN A CAVERN. IN THE CORNER A
"N±D$(7)¯"BONEFISH IS CHEWING A THIGH-BONE":NÍ$ƒ******* UNLOCK
*******O.„ OBI(3)°®99 £ † "YOU HAVEN'T EVEN GOT A KEY!":OB8„ NOI¯5 ¬
(CP¯3 ­ CP¯9) £ † "THERE ISN'T EVEN A KEYHÖUU<ÿOLE!":OrB„ CP°®13 ­
NOI°®6 £ † "YOU CAN'T DO THAT":OœL„ UF¯1 £ † "IT'S ALREADY
UNLOCKED!":OÈVUF¯1:OBI(7)¯13:† "THE KEY TURNS EASILY"P	`T$(13)¯"YOU
ARE IN A ROOM WITH AN OPEN CHEST IN THE MIDDLE."PjD$(13)¯"":P2tƒ******* USE
*******Pi~„ CdUU<ÿP°®20 ­ NOI°®14 £ † "YOU CAN'T DO THAT
HERE.":P™ˆ„ HC°4 £ † "YOU HAVEN'T GO ENOUGH
PAIRS!":PÎ’M$¯"THE OCTOPUS CAN'T MOVE. HE ISN'T
AMUSED!":‚1P需 I¯ 7 ¢ 10:OBI(I)¯0:ŠPþŠHC¯0:EX(20,4)¯19Q=°T$(20)¯"YOU
ARE IN A CORRIDOR WITH A CURRENT GOING WES^UU<ÿT. "QyºD$(20)¯"A COLOURFUL,
MANACLED OCTOPUS SITS SULKING. ":Q˜؃******* INVENTORY *******Qµâ†:† "YOU ARE
CARRYING:" QÑì„ IN¯0 £ † "NOTHING!":Qàö€ I¯1 ¢ 10R„ OBI(I)¯99
£ † "A "§OB$(I)R
Š:R"<ƒ******* HELP *******RLF† "THESE ARE THE /UU<ÿVERBS YOU MAY
USE:";RfP€ I¯1 ¢ VV:† VB$(I):ŠR¡ZM$¯"(YOU NEED ONLY TYPE THE FIRST THREE
LETTERS)":‚1:RŒ ƒ ******* LOOK *******R窆:M$¯T$(CP)§D$(CP):‚1:„ CP¯22 £
LF¯1:RöŽ€ I¯1 ¢ 10SŸ„ I¯5 ¬ CP¯15 £  4050SAȄ OBI(I)¯CP £ M$¯"A
"§OB$(I)§" IS¯UU<ÿ HERE.":‚1SGҊSX܆:† "EXITS:"Sxæ„
EX(CP,1)®0 £ † "NORTH  " S—ð„ EX(CP,2)®0 £ † "SOUTH  "S¶ú„
EX(CP,3)®0 £ † "EAST   "SÕ„ EX(CP,4)®0 £ † "WEST  
"S߆:†:Sþˆƒ ****** INITIALIZE ******T’:T*œ†¡5)"** NEPTUNE'S
CAVERNS **":†T†ŠM$¯"YOUåUU<ÿ HAVE FOUND THE MAGIC PLUG THAT BELONGS AT THE
BOTTOM OF THE SEA AND DECIDE TO "TݰM$¯M$§"REPLACE IT BEFORE THE WATER DRAINS
AWAY.":‚1:M$¯"WITH YOUR SCUBA GEAR YOU "UÎM$¯M$§"DIVE INTO THE OCEAN AND
BEGIN YOUR ADVENTURE...":‚1UkâM$¯"(IF YOU NEED ASS—UU<ÿISTANCE TYPE
HELP)":‚1:†:ˆ"HIT enter TO CONTINUE";R$:Užìƒ INIT
VARIABLES-NN,VV,CP,IN,HC,WF,LF,UF,FF,CFUãñNN¯14:VV¯12:CP¯3:IN¯1:HC¯0:WF¯0:LF¯0:UF¯0
:FF¯0:CF¯0:VBI¯0:NOI¯0V	öƒ CREATE ARRAYS-T$,D$,EX,NO$,VB$ V5ƒ CREATE THE REST OF THE
ARRAYS-OB$,OB[UU<ÿIVD
€ I¯1 ¢ 24V‡„ I¯17 ­ I¯18 ­ I¯23 ­ I¯24 £ T$(I)¯T$(12):D$(I)¯D$(12):
5160V±Œ T$(0),D$(0):T$(I)¯T$(0):D$(I)¯D$(0)V·(ŠVÞ2€ I¯1 ¢ 24:€ J¯1 ¢ 4:Œ
EX(I,J):Š:ŠVÿ<€ I¯1 ¢ 10:Œ OB$(I),OBI(I):ŠWF€ I¯1 ¢ NN:Œ NO$(I):ŠW3P€ I¯1
¢ VV:Œ VB$(I):ŠoUU<ÿWGZ‚ 4000::ƒ LOOKWf|ƒ ******* END GAME *******W­†„ CP¯22
£ M$¯"WITH A SNAP,THE SHARK BITES OFF YOUR HEAD ":‚1:5570X„ CP¯16 £
M$¯"YOU HAVE STEPPED ON A POISONOUS SEA-URCHIN. YOU DIE A HORRIBLE DEATH.":‚1:
5570Xl€M$¯"WITH A 'THUNK' THE PLUG DóUU<ÿROPS INTO THE HOLE AND THE
SWIRLING WATERS GROW STILL.":‚1X›®†"CONGRATULATIONS!  YOU SAVED THE SEAS! "
X¿ˆ"DO YOU WISH TO PLAY
AGAIN";R$XÓ̄Â(R$,1)¯"Y"£10XÙ։Xüpƒ ******* DESCRIPTIONS
*******Y-z… "YOU ARE ON THE SEABED.  THE WAY WEST IS "YS4UU<ÿ{… "BLOCKED
BY A HIGH CORAL REEF."Yƒ„… "YOU ARE ON THE SEABED.  TO THE SOUTH A "Y¬……
"BARNACLED WALL TOWERS ABOVE YOU."YÝŽ… "YOU ARE IN FRONT OF A WOODEN DOOR.  YOU
"Yø… "CAN SEE NO HANDLE."Z(˜… "YOU ARE ON THE SEABED.  TO THE SOUTH A
"ZQ™… "]UU<ÿBARNACLED WALL TOWERS ABOVE YOU."Z‹¢… "YOU ARE ON THE
SEABED.  TO THE SOUTH A BARNACLED "ZÅ£… "WALL HAS A SQUARE PATCH OF SEAWEED GROWING
ON IT."Zø¬… "YOU ARE ON THE SEABED.  TO THE SOUTH IS A "[.­… "BARNACLED
WALL.  A CLIFF BLOCKS THE WAY EAST."IUU<ÿ[b¶… "YOU ARE IN A LONG, LOW CAVERN.  AT
THE FAR "[“·… "END A LARGE BONEFISH IS SWIMMING AROUND."[ËÀ… "YOU ARE
IN A BRIGHTLY LIT CHAMBER.  THE WALLS, "[þÁ… "FLOOR, AND ROOM GRLOW IN SHIMMERING
LIGHT."\1ʅ "YOU ARE IN A DIMLY LIT CAVERN WITH A HUGìUU<ÿE "\f˅
"DOOR AT THE FAR END.  YOU CAN SEE NO HANDLE."\›ԅ "YOU ARE IN A ROOM FULL OF
HUNGRY SEAHORSES. "\ÏՅ "THEY NUZZLE YOUR HAND IN A FRIENDLY MANNER."]
ޅ
"YOU ARE IN A SMALL ROOM.  THE NORTH WALL HAS A SMALL "]G߅ "WINDOW IN IT THROUGH
WHI…UU<ÿCH YOU CAN SEE THE SEABED"]è… "YOU ARE IN AN AMAZINGLY SQUARE ROOM. 
THE WALLS, "]Ÿé… "FLOOR AND ROOM ARE ALL SQUARE AS ARE ALL THE EXITS. "]öò…
"YOU ARE IN A TINY LITTLE ROOM THAT IS OCCUPIED "^*ó… "BY A CHEST INSCRIBED WITH
THE INITIALS D.J."^íUU<ÿcü… "YOU ARE IN A COLD, MURKY ROOM.  GREY MUD SWIRLS
"^ ý… "AROUND YOU AND YOU FEEL A FAINT CURRENT TO THE EAST."^Ú… "YOU
ARE IN A GLOOMY AND EERIE PLACE.  ALL AROUND "_… "YOU ARE THE BONES OF LONG DEAD
EXPLORERS!"_]… "YOU ARE IN A SQUARE ROOæUU<ÿM.  THE SOUTH EXIT HAS THE WORDS
'DO NOT ENTER!' "_«… "ABOVE IT.  THE NORTH AND WEST DOORWAYS ARE CRAWLING
WITH SEA URCHINS."_ï… "YOU ARE IN A CIRCULAR ROOM WITH A VERY STRONG CURRENT THAT
"`,… "SWIRLS AROUND THE ROOM AND DOWN A HOLE IN THE FLOORßUU<ÿ."`w$…
"YOU ARE IN A CORRIDOR WITH A STRONG CURRENT GOING WEST.  YOUR WAY "`»%… "IS
BLOCKED BY THE ARMS OF A LARGE RAINBOW COLOURED OCTOPUS."`í.… "YOU'RE IN A
SHIPWRECKED CAPTAIN'S CABIN. "a/… "YOU FEEL THE FLOW OF WATER TO THE
WEST."aK8… "YOU dUU<ÿSEE A RUSH OF SWIRLING WATER AND "ay9… "FACE THE
JAWS OF A GREAT WHITE SHARK."a•Bƒ ******* EXITS *******a»L…
0,0,2,0,0,0,3,1,0,0,4,2,0,0,5,3aâV… 0,0,6,4,0,0,0,5,0,0,8,0,0,14,0,7b`…
0,15,0,0,0,16,0,0,5,17,12,0,0,18,0,11 b=j… 7,0,0,0,8,0,15,0,9
UU<ÿ,21,16,14,10,22,17,15blt… 11,23,18,16,12,24,0,17,0,0,20,0,0,0,21,0b˜~…
15,0,0,20,0,0,0,0,17,0,24,0,18,0,0,23b¶œƒ ******* OBJECTS *******bÆŠ…
"KNIFE",2bᰅ "PAIR OF FLIPPERS",6bﺅ "KEY",0c
ą "CLUMP OF SEAWEED",0c%΅ "ROTTEN OLD BONE",15clUU<ÿ;؅
"MAGIC PLUG",99c^â… "YELLOW PAIR OF HANDCUFFS",0c€ì… "GREEN PAIR
OF HANDCUFFS",9c¡ö… "RED PAIR OF HANDCUFFS",17cÃ… "BLUE PAIR OF
HANDCUFFS",11cßdƒ ******* NOUNS *******d9n…
"NOR","SOU","EAS","WES","DOO","CHE","WIN","KNI","FLI","KEY","SEAšUU<ÿ","BON","PLU","HAN"dUxƒ
******* VERBS *******d²‚… "GO
","GET","DROP","CUT","WEAR","GIVE","UNLOCK","USE","INVENTORY","HELP","LOOK","QUIT"dÉbƒ
NEPTUNE'S CAVERNdãcƒ A TEXT ADVENTURE INedƒ "WRITE YOUR OWN PROGRAM:A DATABASE
ADVENTURE GAME"eYeƒ BYUU<d STEVE RODGERS AND MARCUS MILTON ORGINALLY PUBLISHEDe†fƒ
IN 1985. PORTED TO MC-10 BY JIM GERRIE÷UU<ÿÿU