historicalsource
/
abyss
mirror of https://github.com/historicalsource/abyss
1
0
Fork 0
Code Issues Releases Wiki Activity
abyss/sub-bay.zap

1083 lines
39 KiB
Plaintext
Raw Permalink Blame History

.FUNCT RT-RM-SUB-BAY:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: ICALL RT-PRINT-OBJ,RM-SUB-BAY,K-ART-THE
PRINTI ", which seems cavernous compared to the other cramped compartments aboard Deepcore. It is dominated by the MoonPool, which looks just like a huge swimming pool, except that it is open to the sea below.
Along one edge of the MoonPool is a large dive locker. A door in the port bulkhead leads to the shower room. Aft is the gas-mix room, and in the fore wall is the doorway that leads to the corridor.
"
RFALSE
?CCL3: EQUAL? CONTEXT,M-BEG \?CCL8
FSET? TH-PLASTIC-CARD,FL-SEEN \FALSE
FSET? CH-COFFEY,FL-BROKEN /FALSE
CALL1 GAME-VERB?
ZERO? STACK \FALSE
EQUAL? PRSA,V?GIVE-SWP /FALSE
EQUAL? PRSA,V?GIVE \?CCL20
EQUAL? PRSO,TH-PLASTIC-CARD \?CCL20
EQUAL? PRSI,CH-COFFEY /FALSE
?CCL20: ZERO? GL-COFFEY-SHOOT \?CCL26
INC 'GL-COFFEY-SHOOT
PRINTR " Coffey fires a bullet just past your head. ""Next one's for you, drill boy."""
?CCL26: PRINTI " Coffey raises his aim until the gun is pointed right between your eyes. ""Bye, bye, Mr Chips."" He starts to squeeze the trigger. The last thing you notice before you die is how perfectly round the end of a gun's barrel is.
"
CALL1 RT-END-OF-GAME
RSTACK
?CCL8: EQUAL? CONTEXT,M-ENTERED \?CCL28
FSET? TH-PLASTIC-CARD,FL-SEEN \?CCL31
ZERO? GL-RETURN2-DONE? \FALSE
MOVE TH-DRY-SUIT,HERE
FCLEAR TH-DRY-SUIT,FL-WORN
MOVE CH-CATFISH,RM-SUB-BAY
MOVE CH-COFFEY,RM-SUB-BAY
SET 'GL-RETURN2-DONE?,TRUE-VALUE
PRINTR " You surface in the MoonPool. Catfish grabs your hand and hoists you to firm ground as easily as if you were a child. He helps you out of your dive suit and into dry clothes.
Suddenly Coffey comes into the room and levels his gun at your chest. ""I'll take those codes,"" he announces."
?CCL31: FSET? LG-BUCKLED-DOOR,FL-OPEN \FALSE
ZERO? GL-RETURN1-DONE? \FALSE
MOVE TH-DRY-SUIT,HERE
FCLEAR TH-DRY-SUIT,FL-WORN
MOVE CH-LINDSEY,RM-SUB-BAY
MOVE CH-COFFEY,RM-MESS-HALL
MOVE CH-CATFISH,RM-MESS-HALL
FSET CH-CATFISH,FL-ASLEEP
SET 'GL-RETURN1-DONE?,TRUE-VALUE
PRINTR " You surface in the MoonPool. Lindsey pulls you out of the water. She strips you of the cumbersome dive suit, towels you off, and helps you into dry clothes.
Then she says, ""Bud we've got a problem. Coffey caught Catfish trying to break into the dive locker in the Sub-bay. The asshole knocked Catfish over the head with the butt of his gun and then dragged him to the mess hall. Now he's standing over him in the mess hall and claiming that Cat's a Russian spy. He says as soon at Catfish comes around, he's going to give him a summary court martial, find him guilty, and shoot him on the spot!"""
?CCL28: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-TH-MOON-POOL:ANY:0:1,CONTEXT
ZERO? CONTEXT \FALSE
EQUAL? PRSA,V?ENTER \FALSE
EQUAL? HERE,RM-SUB-BAY \?CCL8
CALL2 RT-DO-WALK,P?DOWN
RSTACK
?CCL8: EQUAL? HERE,RM-UNDER-MOONPOOL \FALSE
CALL2 RT-DO-WALK,P?UP
RSTACK
.FUNCT RT-TH-FIRE:ANY:0:1,CONTEXT
ZERO? CONTEXT \FALSE
EQUAL? PRSA,V?EXTINGUISH \FALSE
IN? TH-WATER-HOSE,WINNER \?CCL8
FSET? TH-WATER-HOSE,FL-ON \?CCL8
REMOVE TH-FIRE
ICALL2 RT-DEQUEUE,RT-I-FIRE-1
ICALL2 RT-DEQUEUE,RT-I-FIRE-2
PRINTR " The water hisses into the wall of flame without appearing to have any effect. Then, slowly, the intensity of the fire seems to lessen. After a few moments, the flames die back, and all that remains of the fire are charred bits of smouldering embers."
?CCL8: PRINT K-HOW-INTEND-MSG
CRLF
RTRUE
.FUNCT RT-I-FIRE-1:ANY:0:0
ADD GL-MOVES,6
ICALL RT-QUEUE,RT-I-FIRE-2,STACK
EQUAL? HERE,RM-SUB-BAY \FALSE
PRINTR " The flames reach the wooden locker, and it starts to burn."
.FUNCT RT-I-FIRE-2:ANY:0:0
PRINTI " Suddenly the dive locker explodes with tremendous fury, ripping a gaping hole in the roof of the Sub-bay. Seconds later you are engulfed by a wall of water and you drown.
"
CALL1 RT-END-OF-GAME
RSTACK
.FUNCT RT-TH-WATER-HOSE:ANY:0:1,CONTEXT
ZERO? CONTEXT \FALSE
EQUAL? PRSA,V?TURN-ON \FALSE
CALL1 RT-TH-NOZZLE
RSTACK
.FUNCT RT-TH-NOZZLE:ANY:0:1,CONTEXT
ZERO? CONTEXT \FALSE
EQUAL? PRSA,V?OPEN,V?TURN-ON,V?TURN \FALSE
ZERO? GL-WATER-PUMP-ON /?CCL8
FSET TH-WATER-HOSE,FL-ON
PRINTR " A stream of water leaps from the nozzle."
?CCL8: PRINTR " Nothing happens."
.FUNCT RT-TH-OXYGEN-CYLINDER:ANY:0:1,CONTEXT
RFALSE
.FUNCT RT-CH-COFFEY:ANY:0:1,CONTEXT
ZERO? CONTEXT \FALSE
ZERO? NOW-PRSI /?CCL5
EQUAL? PRSA,V?GIVE \FALSE
IN? CH-COFFEY,RM-SUB-BAY \FALSE
FSET? TH-PLASTIC-CARD,FL-SEEN \FALSE
EQUAL? PRSO,TH-PLASTIC-CARD \FALSE
MOVE TH-PLASTIC-CARD,CH-COFFEY
REMOVE TH-GUN
FSET CH-COFFEY,FL-BROKEN
FSET TH-COMPRESSOR,FL-BROKEN
MOVE CH-COFFEY,RM-COMPRESSION-CHAMBER
SET 'OHERE,HERE
SET 'HERE,RM-GAS-MIX-ROOM
MOVE CH-PLAYER,RM-GAS-MIX-ROOM
PRINTR " Coffey bends over the wiring codes, glancing up occasionally to make sure you don't try to attack him.
Suddenly you notice a strange phenomenon in the MoonPool behind him. Some water is slowly forming into a shining column and rising above the surrounding surface. After a few moments, a sort of three-fingered hand forms at the end of the column. As you stare at in fascination, it slowly, silently, creeps up behind Coffey, who remains oblivious to its presence.
[GRAPHIC]
Suddenly the pseudopod reaches out and snatches the gun from Coffey. He whips around in time to see the column disappear below the surface of the water, carrying his gun with it.
Something inside Coffey seems to snap. He looks at you wildly and shouts, ""I know you're behind this, Brigman. I don't know what you want from that sub, but I'm gonna make sure you never see it again."" He turns and runs from the room.
You follow Coffey. When he reaches the compressor room, Coffey brandishes a tool over the compressor. As he sees you enter, he thrusts the tool deep into the workings of the machine. It screams to a halt with an ear-piercing shriek. Coffey yells over the noise, ""Up yours, Brigman!"" and dashes out of the cylinder.
He then runs into the compression chamber. Through the open door to the compression chamber, you can see Coffey tugging at the hatch that leads up to Cab Three. He is unable to open it because Lindsey has locked it from the other side."
?CCL5: EQUAL? PRSA,V?ASK-ABOUT \FALSE
EQUAL? PRSI,CH-SEALS \?CCL19
PRINTR " ""Goddam bitch killed some of my best men."""
?CCL19: EQUAL? PRSI,LG-MONTANA \?CCL21
PRINTR " ""I took a quick look at her before I had to come back. They closed the mid-ships hatch, but it's clear that some of the interior bulkheads are buckled. We're probably going to need some explosives to move around in there. There's a gash in her side up near the bow, but the opening isn't big enough for a man to fit through."""
?CCL21: EQUAL? PRSI,TH-SAFE \?CCL23
FSET? TH-SAFE,FL-SEEN /?CCL26
PRINTR " It'll be in his cabin, just forward of the attack center."
?CCL26: PRINTR " I don't know how to open it. Each captain sets his own combination."
?CCL23: EQUAL? PRSI,TH-PLASTIC-CARD \?CCL28
FSET? CH-COFFEY,FL-BROKEN /?CCL31
PRINTR " ""Different missiles have different wiring diagrams. When you want to disarm one, you need the wiring codes to tell you the order to cut the wires."""
?CCL31: FSET? CH-COFFEY,FL-ASLEEP \?CCL33
PRINTR " One of mnemonic series:
Oxford rows great big wide yachts.
Yankees rarely win over Green Bay.
Get rid of your wet bananas.
Go west, young boy, or rot."
?CCL33: PRINTR " ""I ain't tellin you nothing, pinko."""
?CCL28: EQUAL? PRSI,TH-FLATBED \?CCL35
PRINTR " ""The goddam bitch just rode it into the trench. I'll get even with her yet."""
?CCL35: EQUAL? PRSI,TH-MISSILE-TIMER \?CCL37
PRINTR " ""They set it for 12 hours so they'd have enough time to get away and save their skins. It may be booby-trapped, so we can't risk trying to disable it. Our only hope is to disarm the MIRV."""
?CCL37: EQUAL? PRSI,TH-MISSILE-ACCESS-KEY \?CCL39
PRINTR " ""There's always a duplicate access key on board somewhere. Usually the executive officer has it, but it's not as important as the missile firing key, so sometimes he just hangs it on the wall in the maintenance room so the technicians can get to it if they need it."""
?CCL39: FSET? CH-COFFEY,FL-BROKEN \?CCL41
PRINTR " ""Coffey, James G.; Lieutenant U.S. Navy; Serial Number 5894256"""
?CCL41: PRINTR " ""I don't know about that."""
.FUNCT RT-CH-ONE-NIGHT:ANY:0:1,CONTEXT
ZERO? CONTEXT \FALSE
ZERO? NOW-PRSI \FALSE
EQUAL? PRSA,V?ASK-ABOUT \FALSE
EQUAL? PRSI,TH-UFO \FALSE
PRINTR " ""I only saw it for a moment. It was big and shiny. But until it started pulling us into the trench it somehow seemed, well, sort of friendly."""
.FUNCT RT-TH-DRY-SUIT:ANY:0:1,CONTEXT
ZERO? CONTEXT \FALSE
EQUAL? PRSA,V?EXAMINE \?CCL5
PRINTI " It is a custom-made, one-piece dry suit that was designed especially for you. It zips up the front and includes flippers, a weight belt, and a helmet. The helmet has two threaded sockets on the side, and the faceplate is"
ICALL2 RT-OPEN-MSG,TH-FACEPLATE
PRINTR "."
?CCL5: EQUAL? PRSA,V?WEAR \FALSE
EQUAL? WINNER,CH-PLAYER \?CCL10
ICALL RT-MOVE-ALL,CH-PLAYER,HERE
MOVE TH-DRY-SUIT,CH-PLAYER
FSET TH-DRY-SUIT,FL-WORN
PRINTR " You drop everything you were carrying, strip down to your bathing suit, and step into the dry suit. You pull up the zipper and adjust the weight belt."
?CCL10: PRINTI " The dry suit won't fit"
ICALL RT-PRINT-OBJ,WINNER,K-ART-THE
PRINTR "."
.FUNCT RT-TH-FACEPLATE:ANY:0:1,CONTEXT
ZERO? CONTEXT \FALSE
EQUAL? PRSA,V?EXAMINE \FALSE
PRINTI " The faceplate is"
ICALL2 RT-OPEN-MSG,TH-FACEPLATE
PRINTR "."
.FUNCT RT-TH-HELMET:ANY:0:1,CONTEXT
ZERO? CONTEXT \FALSE
EQUAL? PRSA,V?EXAMINE \FALSE
PRINTI " The helmet has two threaded sockets on the side, and the faceplate is"
ICALL2 RT-OPEN-MSG,TH-FACEPLATE
PRINTR "."
.FUNCT RT-TH-HOOK-1:ANY:0:1,CONTEXT
RFALSE
.FUNCT RT-TH-LIFT-BAG:ANY:0:1,CONTEXT,L
ZERO? CONTEXT \FALSE
EQUAL? PRSA,V?TAKE \?CCL5
ZERO? GL-LIFT-OBJ /?CCL5
FSET? GL-LIFT-OBJ,FL-TAKEABLE /TRUE
PRINTI " The lift bag is tied to"
ICALL RT-PRINT-OBJ,GL-LIFT-OBJ,K-ART-THE
PRINTR "."
?CCL5: EQUAL? PRSA,V?ATTACH,V?TIE-TO \?CCL11
EQUAL? PRSO,TH-LIFT-BAG \?CCL11
SET 'GL-LIFT-OBJ,PRSI
LOC PRSI >L
EQUAL? L,LOCAL-GLOBALS,GLOBAL-OBJECTS \?CND14
SET 'L,HERE
?CND14: MOVE TH-LIFT-BAG,L
PRINTI " You tie the lift bag to"
ICALL RT-PRINT-OBJ,GL-LIFT-OBJ,K-ART-THE
PRINTR "."
?CCL11: EQUAL? PRSA,V?EXAMINE \?CCL17
ZERO? GL-LIFT-OBJ /?CCL20
PRINTI " The lift bag is tied to"
ICALL RT-PRINT-OBJ,GL-LIFT-OBJ,K-ART-THE
PRINTR "."
?CCL20: PRINTI " The lift bag is a"
FSET? TH-LIFT-BAG,FL-LOCKED \?CCL23
PRINTI "n inflated"
JUMP ?CND21
?CCL23: PRINTI " collapsed"
?CND21: PRINTI " watertight sack "
FSET? TH-LIFT-BAG,FL-BROKEN \?CCL26
PRINTR "that has been sliced open."
?CCL26: PRINTR "with a small nylon loop at the top and two loose ropes hanging down from the bottom. Attached to the bag is a CO2 cannister that has a red button on it."
?CCL17: EQUAL? PRSA,V?INFLATE \?CCL28
PRINT K-HOW-INTEND-MSG
CRLF
RTRUE
?CCL28: EQUAL? PRSA,V?CUT \FALSE
EQUAL? PRSI,TH-KNIFE \FALSE
FSET TH-LIFT-BAG,FL-BROKEN
PRINTI " You slice the fabric with your knife,"
FSET? TH-LIFT-BAG,FL-LOCKED \?CND33
PRINTI " releasing the gas"
FSET? HERE,FL-WATER \?CCL37
PRINTI " in a huge bubble and"
JUMP ?CND33
?CCL37: PRINTI " and"
?CND33: PRINTI " rendering the bag completely useless.
"
FSET? TH-LIFT-BAG,FL-LOCKED \?CCL40
EQUAL? LG-MIDSHIP-HATCH,GL-LIFT-OBJ \?CCL40
FCLEAR LG-MIDSHIP-HATCH,FL-OPEN
PRINTR " The hatch slams shut."
?CCL40: IN? TH-LIFT-BAG,CH-PLAYER \TRUE
FSET? HERE,FL-WATER \TRUE
FSET? HERE,FL-INDOORS \TRUE
PRINTR " The bag no longer contrains your movements."
.FUNCT RT-TH-CO2-CANNISTER:ANY:0:1,CONTEXT
ZERO? CONTEXT \FALSE
EQUAL? PRSA,V?LOOK-ON,V?EXAMINE \FALSE
PRINTR " The cannister has a red button on it."
.FUNCT RT-TH-RED-BUTTON:ANY:0:1,CONTEXT
ZERO? CONTEXT \FALSE
EQUAL? PRSA,V?EXAMINE \?CCL5
PRINTR " Pretty normal-looking red button."
?CCL5: EQUAL? PRSA,V?PUSH \FALSE
FSET? TH-CO2-CANNISTER,FL-BROKEN \?CCL10
PRINTR " Nothing happens."
?CCL10: FSET TH-CO2-CANNISTER,FL-BROKEN
FSET? TH-LIFT-BAG,FL-BROKEN \?CCL13
PRINTI " The gas rushes into the lift bag and out the gash in the fabric"
FSET? HERE,FL-WATER \?CND14
PRINTI ", rising quickly out of sight in a large bubble"
?CND14: PRINTR "."
?CCL13: FSET TH-LIFT-BAG,FL-LOCKED
PRINTI " The bag inflates like a hot air balloon"
IN? TH-LIFT-BAG,CH-PLAYER \?CCL18
FSET? HERE,FL-WATER \?CCL21
EQUAL? HERE,RM-UNDER-MOONPOOL \?CCL24
PRINTR ", pulling you up to the surface of the MoonPool."
?CCL24: FSET? HERE,FL-INDOORS \?CCL26
PRINTR ", pulling you up until you hit the ceiling."
?CCL26: PRINTI ". Before you know what's happening, the extra lift starts to pull you rapidly toward the surface. Your ears pop and you feel excruciating pain in your elbows and knees. Mercifully, you pass out before suffering the gruesome death of sudden decompression.
"
CALL1 RT-END-OF-GAME
RSTACK
?CCL21: PRINTR "."
?CCL18: EQUAL? GL-LIFT-OBJ,LG-MIDSHIP-HATCH \?CCL28
FSET LG-MIDSHIP-HATCH,FL-OPEN
PRINTR ". The hatch slowly swings open."
?CCL28: FSET? HERE,FL-WATER \?CCL30
EQUAL? HERE,RM-UNDER-MOONPOOL /TRUE
FSET? HERE,FL-INDOORS \TRUE
RTRUE
?CCL30: PRINTR "."
.FUNCT RT-RM-COMPRESSION-CHAMBER:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: ICALL RT-PRINT-OBJ,RM-COMPRESSION-CHAMBER,K-ART-THE
PRINTI ". This is a tiny cylinder constructed from HY-150 Steel, designed to withstand pressures of up to 300 atmospheres, or 10,000 feet below sea-level. Along one wall is a bench that is built like a window seat. There is a hatch in the ceiling. A door in the fore bulkhead leads out to the gas-mix room.
"
RFALSE
?CCL3: EQUAL? CONTEXT,M-EXIT \?CCL8
CALL2 RT-IS-QUEUED?,RT-I-UFO-MESSAGE
ZERO? STACK /FALSE
ICALL2 RT-DEQUEUE,RT-I-UFO-MESSAGE
MOVE CH-COFFEY,RM-SUB-BAY
MOVE CH-HIPPY,RM-SUB-BAY
PRINTI " You start to leave, but One-Night plucks at your sleeve and holds you back. "
PRINT K-UFO-MSG
RTRUE
?CCL8: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-LG-CHAMBER-HATCH:ANY:0:1,CONTEXT
ZERO? CONTEXT \FALSE
EQUAL? PRSA,V?OPEN \FALSE
FSET? LG-CHAMBER-HATCH,FL-OPEN /FALSE
ZERO? GL-CAB-DOCKED? \?CCL10
PRINTR " Since a cab is not docked, the hatch refuses to open."
?CCL10: IN? CH-COFFEY,RM-CAB-THREE \FALSE
FSET? CH-COFFEY,FL-ALIVE \FALSE
FSET LG-CHAMBER-HATCH,FL-OPEN
ICALL2 RT-DEQUEUE,RT-I-RETURN-2
ICALL2 RT-DEQUEUE,RT-I-RETURN-3
ICALL2 RT-DEQUEUE,RT-I-RETURN-4
ADD GL-MOVES,1
ICALL RT-QUEUE,RT-I-UFO-MESSAGE,STACK
MOVE CH-COFFEY,RM-COMPRESSION-CHAMBER
MOVE CH-HIPPY,RM-COMPRESSION-CHAMBER
MOVE CH-ONE-NIGHT,RM-COMPRESSION-CHAMBER
PRINTI " You open the hatch and an exhausted Coffey drops into the chamber. He no longer looks crisp and military. His uniform is ragged and there is a gash in his right shoulder. He slumps onto the bench. Hippy is next through the hatch. He hangs briefly by one arm and then lets go. Another pair of legs dangles from the ceiling, and then One-Night falls to the floor with a loud groan. Her clothes are soaked, and she is shivering from the cold.
"
MARGIN 50,50
PRINTI "[GRAPHIC #4: Shot in the compression chamber of the three of them - beat up and exhausted.]
"
MARGIN 0,0
PRINTI " You wait a moment, expecting the other SEALS to come through the hatch, but no one does. Coffey looks at you angrily. ""Dead,"" he says. They're all dead."" He points accusingly at One-Night, ""And it's all "
HLIGHT K-H-BLD
PRINTI "her"
HLIGHT K-H-NRM
PRINTI " fault."" You look at One-Night, but she just shakes her head.
Coffey wipes his face with his sleeve. ""By the time we got over to the Montana, the other submersible had already cleared out. I ordered Flatbed to check out the stern of the ship while I reconnoitered the bow. But when I returned to the rendezvous point, no one was there. Then I saw "
HLIGHT K-H-BLD
PRINTI "Miss"
HLIGHT K-H-NRM
PRINTR " Standing free-swimming towards the Cab. We brought her in through the hatch, and she told us some bullshit story about being sucked into the trench in the wake of a glowing ship and then crashing Flatbed into a wall.""
""I don't know what really happened, but I do know that this bitch has killed three of my best men and that she's going to pay for it.""
""But wait, it gets better. Whoever those bastards in the submersible were, they've armed one of the MIRVs and attached a timer to it that's set to go off in 12 hours.""
""They must have taken the access key from the sub captain's body and then used it to open up the MIRV. I took a look at that timer. No way we can disable it safely. Our only hope is to find the duplicate access key. Then we gotta break into the captain's safe, get the missile wiring codes, and cut the wires.""
The three of them struggle to their feet and start to leave, but One-Night catches your eye and signals you to wait."
.FUNCT RT-I-LEAVE-1:ANY:0:0
ADD GL-MOVES,1
ICALL RT-QUEUE,RT-I-LEAVE-2,STACK
MOVE CH-ONE-NIGHT,RM-SUB-BAY
MOVE CH-HIPPY,RM-SUB-BAY
MOVE CH-COFFEY,RM-SUB-BAY
EQUAL? HERE,RM-CORRIDOR \FALSE
PRINTR " One-Night, Hippy, and the SEALs disappear aft into the sub-bay."
.FUNCT RT-I-LEAVE-2:ANY:0:0
ADD GL-MOVES,1
ICALL RT-QUEUE,RT-I-LEAVE-3,STACK
FCLEAR CH-ONE-NIGHT,FL-NO-DESC
MOVE CH-ONE-NIGHT,RM-CAB-THREE
MOVE CH-HIPPY,RM-GAS-MIX-ROOM
MOVE CH-COFFEY,RM-GAS-MIX-ROOM
EQUAL? HERE,RM-SUB-BAY \FALSE
PRINTR " One-Night drops through Flatbed's hatch. Monk and Willhite gather up their dive gear and follow her, pulling the hatch shut behind them. The big submersible sinks into the MoonPool and then disappears from sight. Coffey picks up a case marked ""FSB -- MARK IV,"" puts it in the dive locker, and pockets the key. Then he follows Hippy and Schoenick into the gas-mix room."
.FUNCT RT-I-LEAVE-3:ANY:0:0
ADD GL-MOVES,1
ICALL RT-QUEUE,RT-I-LEAVE-4,STACK
MOVE CH-HIPPY,RM-COMPRESSION-CHAMBER
MOVE CH-COFFEY,RM-COMPRESSION-CHAMBER
EQUAL? HERE,RM-GAS-MIX-ROOM \FALSE
PRINTR " Hippy, Coffey, and Schoenick enter the compression chamber."
.FUNCT RT-I-LEAVE-4:ANY:0:0
FCLEAR CH-HIPPY,FL-NO-DESC
FCLEAR CH-COFFEY,FL-NO-DESC
MOVE CH-HIPPY,RM-CAB-THREE
MOVE CH-COFFEY,RM-CAB-THREE
EQUAL? HERE,RM-GAS-MIX-ROOM,RM-COMPRESSION-CHAMBER \FALSE
PRINTC TAB
EQUAL? HERE,RM-GAS-MIX-ROOM \?CND4
PRINTI "Through the "
FSET? LG-CHAMBER-DOOR,FL-OPEN \?CCL8
PRINTI "door"
JUMP ?CND6
?CCL8: PRINTI "window"
?CND6: PRINTI " you see "
?CND4: PRINTR "Hippy and the two SEALs climb up into Cab Three and pull the hatch shut behind them. Moments later you hear a 'clank' as Cab Three pulls away from Deepcore's hull."
.FUNCT RT-I-RETURN-1:ANY:0:0
ADD GL-MOVES,10
ICALL RT-QUEUE,RT-I-RETURN-2,STACK
SET 'GL-CAB-DOCKED?,TRUE-VALUE
FSET RM-CAB-THREE,FL-BROKEN
PRINTR " The intercom buzzes and you hear One-Night's voice: ""This is Cab Three docking over the compression chamber, boss. The heater's busted and we've got wounded. Come open the hatch before we freeze to death."""
.FUNCT RT-I-RETURN-2:ANY:0:0
ADD GL-MOVES,10
ICALL RT-QUEUE,RT-I-RETURN-3,STACK
PRINTR " The intercom buzzes and you hear One-Night again. ""Better hurry, boss. I don't know if we're all gonna make it."""
.FUNCT RT-I-RETURN-3:ANY:0:0
ADD GL-MOVES,5
ICALL RT-QUEUE,RT-I-RETURN-4,STACK
PRINTR " The intercom buzzes for a moment, and then trails off into silence."
.FUNCT RT-I-RETURN-4:ANY:0:0
FCLEAR CH-COFFEY,FL-ALIVE
FCLEAR CH-HIPPY,FL-ALIVE
FCLEAR CH-ONE-NIGHT,FL-ALIVE
RFALSE
.FUNCT RT-I-UFO-MESSAGE:ANY:0:0
MOVE CH-COFFEY,RM-SUB-BAY
MOVE CH-HIPPY,RM-SUB-BAY
PRINTI " When Coffey and Hippy have left, One-Night plucks your sleeve and says,"
PRINT K-UFO-MSG
RTRUE
.FUNCT RT-RM-CAB-THREE:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "climb up into"
?CND4: PRINTI " Cab Three. It is a small submersible which was designed to shuttle passengers between the surface and Deepcore. There is a chair for the pilot up front, and four jump seats in the back. The only exit is through the hatch in the floor.
"
RFALSE
?CCL3: EQUAL? CONTEXT,M-ENTERED \?CCL8
IN? CH-COFFEY,RM-CAB-THREE \FALSE
FSET? CH-COFFEY,FL-ALIVE /FALSE
PRINTR " The lifeless bodies of Coffey, One-Night and Hippy gaze at you accusingly with the wide-eyed stare of the dead."
?CCL8: EQUAL? CONTEXT,M-BEG \?CCL15
FSET? RM-CAB-THREE,FL-BROKEN /FALSE
IN? CH-LINDSEY,RM-CAB-THREE \FALSE
EQUAL? PRSA,V?WALK-TO \FALSE
EQUAL? PRSO,LG-MONTANA \FALSE
SET 'GL-CAB-DOCKED?,FALSE-VALUE
PRINTI """Right-o."" Lindsey starts flicking levers and pushing buttons. You feel a jerk as the cab separates itself from Deepcore, and then watch out the front viewport as Lindsey maneuvers the Cab along the ocean floor toward the submarine.
"
ADD GL-MOVES,19 >GL-MOVES
ICALL1 CLOCKER
MOVE RM-CAB-THREE,RM-MISSILE-HATCH
PRINTR " After ten minutes or so, Cab Three passes over the lip of the chasm and sinks slowly towards the submarine. The submersible settles precariously onto the curved wall of the Montana."
?CCL15: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-OUT-CAB:ANY:0:1,QUIET
ZERO? GL-CAB-DOCKED? /?CCL3
ZERO? QUIET \?CTR5
FSET? LG-CHAMBER-HATCH,FL-OPEN \?CCL6
?CTR5: RETURN RM-COMPRESSION-CHAMBER
?CCL6: PRINTR " The hatch isn't open."
?CCL3: LOC RM-CAB-THREE
RSTACK
.FUNCT RT-I-CAB-FIXED:ANY:0:0
FCLEAR RM-CAB-THREE,FL-BROKEN
MOVE CH-LINDSEY,RM-CAB-THREE
PRINTR "The intercom buzzes. ""This is Lindsey. I'm pleased to report that Cab Three is ready for action."""
.FUNCT RT-TH-CAB-HOOKAH:ANY:0:1,CONTEXT
ZERO? CONTEXT \FALSE
EQUAL? PRSA,V?CUT \FALSE
EQUAL? PRSI,TH-KNIFE \FALSE
ZERO? GL-FALLING-INTO-TRENCH? /FALSE
ICALL2 RT-DEQUEUE,RT-I-INTO-TRENCH-1
ICALL2 RT-DEQUEUE,RT-I-INTO-TRENCH-2
ADD GL-MOVES,1
ICALL RT-QUEUE,RT-I-OUT-OF-AIR-1,STACK
REMOVE RM-CAB-THREE
MOVE CH-LINDSEY,RM-ALIEN-CHAMBER
PRINTR " You take a deep breath, reach up, and sever the hookah. You begin to rise back up to the level of the Montana. Glancing down, you see the Cab disappearing into the inky blackness of the trench. Lindsey hasn't been able to free herself. She looks up at you as she is being dragged down. She reaches her hand toward you and her eyes send you a silent plea for help. Then she disappears into the darkness."
.FUNCT RT-RM-GAS-MIX-ROOM:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " a small antechamber between the sub-bay and the compression chamber, which are fore and aft respectively. On the wall is a small video screen with a black button below it. The door to the compression chamber is"
ICALL2 RT-OPEN-MSG,LG-CHAMBER-DOOR
PRINTI ".
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-CORRIDOR:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "step out into"
?CND4: ICALL RT-PRINT-OBJ,RM-CORRIDOR,K-ART-THE
PRINTI " that connects Deepcore's port and starboard sides. Towards the bow is a door that leads to the command module. Aft is the entrance to the sub-bay. There is a small panel set into the floor below your feet.
"
RFALSE
?CCL3: EQUAL? CONTEXT,M-ENTERED \?CCL8
EQUAL? GL-PUPPY,CH-CATFISH \FALSE
CALL1 RT-CLEAR-PUPPY
RSTACK
?CCL8: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-TH-PANEL:ANY:0:1,CONTEXT
RFALSE
.FUNCT RT-RM-LADDER-A2:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " the middle level of ladderwell A. A corridor leads to the starboard side of Deepcore. A hatch in the port bulkhead opens onto the electronics room. The lounge is forward, and aft is the mess hall.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-LOUNGE:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " the lounge, which is where most crew members congregate during their time off. A couch with a curved back fits along the starboard cylinder wall. It faces a small television that is hooked up to a VCR. The only exit is through the aft hatchway.
"
ZERO? GL-BATTERY-LEAK /FALSE
PRINTI " You see a stream of water coming from the ceiling. It pours down the wall and disappears in the room below.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-INFIRMARY:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " the infirmary. The only exit is the door in the port wall.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-MESS-HALL:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " This is Deepcore's mess hall. There is a circular table in the middle of the room and a few chairs have been stacked against the wall. The forward exit leads to ladderwell A. The aft exit opens onto the galley.
"
RFALSE
?CCL3: EQUAL? CONTEXT,M-ENTERED \?CCL5
IN? CH-COFFEY,RM-MESS-HALL \FALSE
IN? CH-CATFISH,RM-MESS-HALL \FALSE
FSET? CH-CATFISH,FL-ASLEEP \FALSE
ZERO? GL-CATFISH-SPY-MSG? \FALSE
SET 'GL-CATFISH-SPY-MSG?,TRUE-VALUE
PRINTI " Coffey looks up as you enter. ""Oh, there you are Brigman. I'll bet you didn't know that your favorite boy here is a Russkie, didja?"" He gestures to Catfish with his gun, and you see that his hand is trembling. ""I caught him red-handed. And when he wakes up, he's gonna find out how it feels to be both Red "
HLIGHT K-H-BLD
PRINTI "and"
HLIGHT K-H-NRM
PRINTR " dead."""
?CCL5: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-GALLEY:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " This is a fully equipped galley that has everything including the kitchen sink. You see a microwave, refrigerator, sink, and even a garbage compactor. You can go both fore and aft from here.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-PANTRY:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " the pantry. The food supplies are stored in the cupboards that line the walls. There are exits both fore and aft.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-TH-HOOK-2:ANY:0:1,CONTEXT
RFALSE
.FUNCT RT-TH-GAME-BAG:ANY:0:1,CONTEXT
RFALSE
.FUNCT RT-RM-WALDORF:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " The Waldorf, which is what the crew irreverently calls your living quarters because it is the only stateroom aboard Deepcore that has its own sink. Rank hath its privileges. The room is in its usual state of chaos. Your bunk is situated with the head near the forward hatch and the foot next to the hatch in the aft bulkhead.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-PERSONAL-STORAGE-1:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " This is a storage room for personal effects. Your locker is on the wall near the hatch leading forward to your stateroom. The locker belonging to Hippy is next to the door in the aft bulkhead.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-ZOOTOWN:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "step into"
?CND4: PRINTI " Hippy's living quarters, known to the crew as 'Zootown' because of the succession of unusual pets he has brought aboard Deepcore. Hatches here lead fore and aft.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-LADDER-C2:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " the middle level of ladderwell C. A hatch in the forward bulkhead opens into Hippy's living quarters. There is a yellow button here, with a sign underneath it.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-TH-S-BILGE-BUTT:ANY:0:1,CONTEXT
RFALSE
.FUNCT RT-RM-LADDER-A1:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " the lowest level of ladderwell A. A hatch in the port bulkhead opens onto the laundry room. The Port Battery room is just forward of here, and aft is Port Life Support.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-LAUNDRY:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " the laundry room. The washer and dryer flank a shelf that contains laundry supplies. The only exit is the door in the starboard wall.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-PT-LIFE-SUPPORT:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " the port life support room. All around you is a jungle of fittings, gauges, and circuit boards. They control the CO2 scrubbers, dehumidifiers, heaters and other devices that make life possible 2,000 feet below the surface. Exits here lead fore and aft.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-COMPRESSOR-ROOM:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " the compressor room. You see a dark labyrinth of pipes emanating from the huge compressor that supplies air to the hookahs. "
FSET? TH-COMPRESSOR,FL-BROKEN /?CTR8
FSET? TH-COMPRESSOR,FL-ON /?CCL9
?CTR8: PRINTI "The eerie silence makes an unsettling contrast to the normal cacophany in the cylinder."
JUMP ?CND7
?CCL9: PRINTI "It's hard to hear yourself think over the roar of the machinery."
?CND7: PRINTI " There are hatchways leading out of both the forward and aft bulkheads.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-TH-COMPRESSOR:ANY:0:1,CONTEXT
RFALSE
.FUNCT RT-RM-LADDER-D1:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " the lowest level of ladderwell D. A hatch in the forward bulkhead leads to tri-mix storage, and another leads aft to your office.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-TOOL-PUSHER-OFFICE:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "step into"
?CND4: PRINTI " your office, a tiny cubicle with stacks of paperwork, tech manuals and waterstained centerfolds. The hatch in the forward bulkhead leads to ladderwell D, and the starboard hatch opens onto the tool room.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-DRILL-ROOM:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " the drill room, the working heart of Deepcore. In the center of the room is the massive turntable that spins the drill string when the rig is operating. Everything in the room is coated with the pungent, greasy chemical compound called 'drilling mud.' The only exit is through the hatch in the port bulkhead.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-LADDER-B1:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " the lowest level of ladderwell B. A hatch in the starboard bulkhead opens onto the starboard head. The starboard battery room is just forward of here, and aft is starboard life support.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-SB-BATTERY-ROOM:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " This is one of the rooms that contain the huge fuelcells that power Deepcore. The powercels are surrounded by a wire cage that is festooned with signs that warn of the dangers of electricity. The fuelcells are humming ominously - as usual - and an acrid, ozone smell fills the air. The only exit is through the hatch in the aft bulkhead.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-SB-HEAD:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " the starboard head. It is sparingly furnished with a shower, sink, and chemical toilet. The only exit is in the port bulkhead.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-SB-LIFE-SUPPORT:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " the starboard life support room. All around you is a jungle of fittings, gauges, and circuit boards. They control the CO2 scrubbers, dehumidifiers, heaters and other devices that make life possible 2,000 feet below the surface. Exits here lead fore and aft.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-PUMP-ROOM:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " the pump room. The machinery here controls the fresh water supply all over Deepcore. You can exit either fore or aft.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-FRESH-WATER-STORAGE:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " fresh water storage, where Deepcore's entire water supply is kept in one huge tank. There are doors in both the forward and aft walls.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-LADDER-C1:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " the lowest level of ladderwell C. The only exits are the ladder leading up and the hatch in the forward wall.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-LADDER-A3:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " the uppermost level of ladderwell A. Forward from here is the port observation deck. The female living quarters are aft. A hatch in the port bulkhead leads to the port head.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-PT-HEAD:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " the port head. It is sparingly furnished with a shower, sink, and chemical toilet. The only exit is in the starboard bulkhead.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-MOTEL-QUICK:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " the female living quarters, nicknamed ""Motel Quick"" by the crew. Exits hee lead both fore and aft.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-PERSONAL-STORAGE-2:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " This is a storage room for personal effects. One-Night's locker is on the wall near the forward hatch leading to Motel Quick. The locker belonging to Catfish is next to the door in the aft bulkhead.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-SWAMP:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " the drill crew's living quarters, appropriately nicknamed ""The Swamp."" The hatch to ladderwell D is in the aft bulkhead, and there is a door in the forward bulkhead as well.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-LADDER-D3:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " the highest level of ladderwell D. The only exits are the ladder leading down and the hatch in the forward bulkhead.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-LADDER-B3:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " the uppermost level of ladderwell B. Hatchways fore, aft, and starboard lead to the starboard observation deck, the computer center, and the infirmary, respectively.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-SB-OBS-DECK:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " the starboard observation deck, which has a huge domed plexiglass window that lets you look out onto the ocean floor. The only exit is in the aft bulkhead.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-COMPUTER-CENTER:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " This is Deepcore's computer center. On the desk is a dumb terminal to the mainframe aboard the Benthic Explorer on the surface. There is some text on the screen. Exits here lead fore and aft.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-ELECTRONICS-SHOP:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "step into"
?CND4: PRINTI " the electronics shop, which has become Hippy's personal domain. His workbench backs onto a storage unit that contains hundreds of clear plastic drawers, which in turn contain thousands of connectors, pins, and other spare parts. The workbench also has one large central drawer above the kneehole. The only exit is in the starboard bulkhead.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-TH-ELEC-SHOP-DRAWER:ANY:0:1,CONTEXT
RFALSE
.FUNCT RT-RM-LAB:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " This is Deepcore's biomedical lab. The room is cleaner than most of the other rooms aboard the habitat, but it has a curious, fishy odor to it. Exits lead fore and aft.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-TAPE-LIBRARY:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " Deepcore's tape library. The walls are covered with videotapes that range in subject matter from the serious to the scatological. You can exit either forward or aft.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.FUNCT RT-RM-LADDER-C3:ANY:0:1,CONTEXT
EQUAL? CONTEXT,M-F-LOOK,M-V-LOOK,M-LOOK \?CCL3
PRINTI " You "
EQUAL? CONTEXT,M-LOOK \?CCL6
PRINTI "are in"
JUMP ?CND4
?CCL6: PRINTI "enter"
?CND4: PRINTI " the highest level of ladderwell C. You see a hatch in the forward bulkhead and a ladder leading down.
"
RFALSE
?CCL3: ZERO? CONTEXT \FALSE
RFALSE
.ENDI
Reference in New Issue View Git Blame Copy Permalink