"COMPONE for PLANETFALL
(C) COPYRIGHT 1983 INFOCOM, INC. ALL RIGHTS RESERVED
This file contains all the rooms, objects, and actions associated
with Complex One / the Western Complex / the Kalamontee Compleks."
<ROOM UNDERWATER
(IN ROOMS)
(DESC "Underwater")
(LDESC
"You are momentarily disoriented as you enter the turbulent waters.
Currents buffet you against the sharp rocks of an underwater
cliff. A dim light filters down from above.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 35
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(UP TO CRAG)
(DOWN TO UNDERWATER)
(WEST TO UNDERWATER)
(NORTH TO UNDERWATER)
(SOUTH TO UNDERWATER)
(ACTION UNDERWATER-F)>
<GLOBAL DROWN 0> ;"you die if you return to Underwater or stay too long"
<ROUTINE UNDERWATER-F (RARG)
<COND (<EQUAL? .RARG ,M-END>
<COND (<G? ,DROWN 2>
"A mighty undertow drags you across some underwater obstructions.">)>)>>
<ROOM CRAG
(IN ROOMS)
(DESC "Crag")
(LDESC
"You have reached a cleft in the cliff wall where the island rises from the
water. The edge of the cleft displays recently exposed rock where it collapsed
under the weight of the escape pod. About two meters below, turbulent waters
swirl against sharp rocks. A small structure clings to the face of the cliff
about eight meters above you. Even an out-of-shape Ensign Seventh Class could
probably climb up to it.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN"10 ;"UP" 40
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(DOWN TO UNDERWATER)
(UP TO BALCONY)
(VALUE 3)
(PSEUDO "STRUCTURE" STRUCTURE-PSEUDO "CLEFT" CLEFT-PSEUDO)
(ACTION CRAG-F)>
<ROUTINE CRAG-F (RARG)
<COND (<EQUAL? .RARG ,M-ENTER>
<SETG DROWN 3>)>>
<ROOM BALCONY
(IN ROOMS)
(DESC "Balcony")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN"25 ;"UP" 30
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(DOWN PER WATER-LEVEL-F)
(UP TO WINDING-STAIR)
(PSEUDO "PLAQUE" PLAQUE-PSEUDO)
(ACTION BALCONY-F)>
<ROUTINE BALCONY-F (RARG)
<COND (<EQUAL? .RARG ,M-LOOK>
<TELL
"This is an octagonal room, half carved into and half built out from the cliff
wall. Through the shattered windows which ring the outer wall you can see
ocean to the horizon. A weathered metal plaque with barely readable lettering
rests below the windows. The language seems to be a corrupt form of
Galalingua. A steep stairway, roughly cut into the face of the cliff, leads
upward. ">
<COND (<EQUAL? ,DAY 1>
<TELL
"A rocky crag can be seen about eight meters below." CR>)
(<EQUAL? ,DAY 2>
<TELL
"The ocean waters swirl below. The crag where you landed yesterday is
now underwater!" CR>)
(<EQUAL? ,DAY 3>
<TELL
"Ocean waters are lapping at the base of the balcony." CR>)>)>>
<ROOM WINDING-STAIR
(IN ROOMS)
(DESC "Winding Stair")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN"15 ;"UP" 30
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(DOWN PER WATER-LEVEL-F)
(UP TO COURTYARD)
(ACTION WINDING-STAIR-F)>
<ROUTINE WINDING-STAIR-F (RARG)
<COND (<EQUAL? .RARG ,M-LOOK>
<TELL
"The middle of a long, steep stairway carved into the face of a cliff.">
<COND (<EQUAL? ,DAY 4>
<TELL
" You hear the lapping of water from below.">)
(<EQUAL? ,DAY 5>
<TELL
" You can see ocean water splashing against the steps below you.">)>
<CRLF>)>>
<ROOM COURTYARD
(IN ROOMS)
(DESC "Courtyard")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN"15 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(DOWN TO WINDING-STAIR)
(SOUTH TO WINDING-STAIR)
(WEST TO WEST-WING)
(NORTH TO PLAIN-HALL)
(GLOBAL STAIRS)
(PSEUDO "CASTLE" CASTLE-PSEUDO "RUBBLE" RUBBLE-PSEUDO)
(ACTION COURTYARD-F)>
<ROUTINE COURTYARD-F (RARG)
<COND (<EQUAL? .RARG ,M-LOOK>
<TELL
"You are in the courtyard of an ancient stone edifice, vaguely reminiscent of
the castles you saw during your leave on Ramos Two. It has decayed to
the point where it can probably be termed a ruin. Openings lead north and west,
and a stairway downward is visible to the south. ">
<COND (<EQUAL? ,DAY 6 7>
<TELL
"From the direction of the stairway comes the sound of ocean surf.">)
(<EQUAL? ,DAY 8>
<TELL
"Ocean water washes against the top few steps.">)>
<CRLF>)>>
<ROUTINE WATER-LEVEL-F ()
(T ,UNDERWATER)>)
(<EQUAL? ,HERE ,WINDING-STAIR>
(T ,UNDERWATER)>)
<COND (<L? ,DAY 6> ,WINDING-STAIR)
(T ,UNDERWATER)>)>>
<ROOM WEST-WING
(IN ROOMS)
(DESC "West Wing")
(LDESC
"This was once the west wing of the castle, but the walls are now mostly
rubble, allowing a view of the cliff and ocean below. Rubble blocks all exits
save one, eastward to the courtyard.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(EAST TO COURTYARD)
(DOWN "Certain death.")
(PSEUDO "CASTLE" CASTLE-PSEUDO "RUBBLE" RUBBLE-PSEUDO)>
<ROOM PLAIN-HALL
(IN ROOMS)
(DESC "Plain Hall")
(LDESC
"This is a featureless hall leading north and south. Although the hallway is
old and dusty, the construction is of a much more modern style than the
castle to the south. A similar hall branches off to the northeast.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 25 ;"NORTH" 0>)
(SOUTH TO COURTYARD)
(NORTH TO REC-AREA)
(NE TO REC-CORRIDOR)
<ROOM REC-AREA
(IN ROOMS)
(DESC "Rec Area")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(NORTH TO CONFERENCE-ROOM IF CONFERENCE-DOOR IS OPEN)
(SOUTH TO PLAIN-HALL)
(EAST TO REC-CORRIDOR)
(GLOBAL CONFERENCE-DOOR)
(PSEUDO "GAMES" GAMES-PSEUDO "TAPES" TAPES-PSEUDO)
(ACTION REC-AREA-F)>
The current setting of the COMBINATION-DIAL.
The correct combination for the COMBINATION-DIAL. The value is set after your first move; see I-RANDOM-INTERRUPTS.
Note that peeking at this value in the State tab won’t help you much! The TELEPORTATION-CARD is in the same place as the COMBINATION-PAPER clue. This must have been a guard against brute-force guessing; it serves equally well against Visible Zorker cheats.
<ROUTINE REC-AREA-F (RARG)
<COND (<EQUAL? .RARG ,M-LOOK>
<TELL
"This is a recreational facility of some sort. Games and tapes are scattered
about the room. Hallways head off to the east and south, and to the north is
a door which is ">
<COND (<FSET? ,CONFERENCE-DOOR ,OPENBIT>
<TELL "open">)
(T
<TELL
"closed and locked. A dial on the door is currently set to "
N ,DIAL-NUMBER>)>
<TELL "." CR>)>>
<ROOM CONFERENCE-ROOM
(IN ROOMS)
(DESC "Conference Room")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(SOUTH TO REC-AREA IF CONFERENCE-DOOR IS OPEN)
(OUT TO REC-AREA IF CONFERENCE-DOOR IS OPEN)
(IN TO BOOTH-1)
(NORTH TO BOOTH-1)
(PSEUDO "BOOTH" NEAR-BOOTH-PSEUDO)
(GLOBAL CONFERENCE-DOOR TABLES)
(ACTION CONFERENCE-ROOM-F)>
<ROUTINE CONFERENCE-ROOM-F (RARG)
<COND (<EQUAL? .RARG ,M-LOOK>
<TELL
"This is a fairly square room, almost filled by a round conference table.
To the south is a door which is ">
<TELL
". To the north is a small room about the size of a phone booth." CR>)>>
<OBJECT CONFERENCE-DOOR
(IN LOCAL-GLOBALS)
(DESC "door")
(SYNONYM DOOR)
(ACTION CONFERENCE-DOOR-F)>
<OBJECT COMBINATION-DIAL
(IN REC-AREA)
(DESC "combination dial")
(SYNONYM DIAL)
(ADJECTIVE COMBINATION)
(ACTION COMBINATION-DIAL-F)>
<ROUTINE COMBINATION-DIAL-F ()
<COND (<VERB? EXAMINE>
<TELL
"The dial can be turned to any number between 0 and 1000." CR>)
(<AND <VERB? SET>
<COND (<FSET? ,COMBINATION-DIAL ,MUNGEDBIT>
<TELL
"The dial has somehow become fused and won't move." CR>)
(<EQUAL? ,P-NUMBER ,DIAL-NUMBER>
<TELL "That's what the dial is set to now!" CR>)
(<EQUAL? ,P-NUMBER ,NUMBER-NEEDED>
<SETG DIAL-NUMBER 0>
<FSET ,CONFERENCE-DOOR ,OPENBIT>
<TELL
"The door swings open, and the dial resets to 0." CR>)
(<G? ,P-NUMBER 1000>
<TELL
"The dial cannot be turned to a number that high." CR>)
(T
<SETG DIAL-NUMBER ,P-NUMBER>
<TELL "The dial is now set to " N ,P-NUMBER "." CR>)>)>>
<ROUTINE CONFERENCE-DOOR-F ()
<COND (<VERB? OPEN>
<COND (<FSET? ,CONFERENCE-DOOR ,OPENBIT>
<ALREADY-OPEN>)
(T
<TELL
"The door is locked. You probably have to turn the dial to some number to
open it." CR>)
(T
<TELL
"The door seems to be locked from the other side." CR>)>)>)
(<VERB? CLOSE>
<COND (<FSET? ,CONFERENCE-DOOR ,OPENBIT>
<FCLEAR ,CONFERENCE-DOOR ,OPENBIT>
<TELL
"The door closes and you hear a click as it locks." CR>)
(T
<IS-CLOSED>)>)>>
<ROOM BOOTH-1
(IN ROOMS)
(DESC "Booth 1")
(LDESC
"This is a tiny room with a large \"1\" painted on the wall. A panel contains
a slot about ten centimeters wide, a beige button labelled \"2\" and a tan
button labelled \"3.\"")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(SOUTH TO CONFERENCE-ROOM)
(OUT TO CONFERENCE-ROOM)
(PSEUDO "BOOTH" IN-BOOTH-PSEUDO)
<ROOM REC-CORRIDOR
(IN ROOMS)
(DESC "Rec Corridor")
(LDESC
"This is a wide, east-west hallway. Portals lead north and south, and another
corridor branches southwest.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 25 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(WEST TO REC-AREA)
(NORTH TO DORM-B)
(SOUTH TO DORM-A)
(EAST TO MESS-CORRIDOR)
(SW TO PLAIN-HALL)
<ROOM DORM-A
(IN ROOMS)
(DESC "Dorm A")
(LDESC
"This is a very long room lined with multi-tiered bunks. Flimsy partitions
between the tiers may have provided a modicum of privacy. These spartan
living quarters could have once housed many hundreds, but it seems quite
deserted now. There are openings at the north and south ends of the room.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(SOUTH TO SANFAC-A)
(NORTH TO REC-CORRIDOR)
(GLOBAL BED)
(PSEUDO "PARTITION" PARTITION-PSEUDO)>
<ROOM SANFAC-A
(IN ROOMS)
(DESC "SanFac A")
(LDESC
"This must be the sanitary facility for the adjacent dormitory. The fixtures
are dry and dusty, the room dead and deserted. You marvel at how little the
millenia and cultural gulfs have changed toilet bowl design. The only exit is
north.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(NORTH TO DORM-A)
(PSEUDO "FIXTURES" TOILET-PSEUDO "TOILET" TOILET-PSEUDO)>
<ROOM DORM-B
(IN ROOMS)
(DESC "Dorm B")
(LDESC
"This is a very long room lined with multi-tiered bunks. Flimsy partitions
between the tiers may have provided a modicum of privacy. These spartan
living quarters could have once housed many hundreds, but it seems quite
deserted now. There are openings at the north and south ends of the room.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(SOUTH TO REC-CORRIDOR)
(NORTH TO SANFAC-B)
(GLOBAL BED)
(PSEUDO "PARTITION" PARTITION-PSEUDO)>
<ROOM SANFAC-B
(IN ROOMS)
(DESC "SanFac B")
(LDESC
"This must be the sanitary facility for the adjacent dormitory. The fixtures
are dry and dusty, the room dead and deserted. You marvel at how little the
millenia and cultural gulfs have changed toilet bowl design. The only exit is
south.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(SOUTH TO DORM-B)
(PSEUDO "FIXTURES" TOILET-PSEUDO "TOILET" TOILET-PSEUDO)>
<ROOM DORM-C
(IN ROOMS)
(DESC "Dorm C")
(LDESC
"This is a very long room lined with multi-tiered bunks. Flimsy partitions
between the tiers may have provided a modicum of privacy. These spartan
living quarters could have once housed many hundreds, but it seems quite
deserted now. There are openings at the north and south ends of the room.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(NORTH TO DORM-CORRIDOR)
(SOUTH TO SANFAC-C)
(GLOBAL BED)
(PSEUDO "PARTITION" PARTITION-PSEUDO)>
<ROOM SANFAC-C
(IN ROOMS)
(DESC "SanFac C")
(LDESC
"This must be the sanitary facility for the adjacent dormitory. The fixtures
are dry and dusty, the room dead and deserted. You marvel at how little the
millenia and cultural gulfs have changed toilet bowl design. The only exit is
north.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(NORTH TO DORM-C)
(PSEUDO "FIXTURES" TOILET-PSEUDO "TOILET" TOILET-PSEUDO)>
<ROOM DORM-D
(IN ROOMS)
(DESC "Dorm D")
(LDESC
"This is a very long room lined with multi-tiered bunks. Flimsy partitions
between the tiers may have provided a modicum of privacy. These spartan
living quarters could have once housed many hundreds, but it seems quite
deserted now. There are openings at the north and south ends of the room.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(SOUTH TO DORM-CORRIDOR)
(NORTH TO SANFAC-D)
(GLOBAL BED)
(PSEUDO "PARTITION" PARTITION-PSEUDO)>
<ROOM SANFAC-D
(IN ROOMS)
(DESC "SanFac D")
(LDESC
"This must be the sanitary facility for the adjacent dormitory. The fixtures
are dry and dusty, the room dead and deserted. You marvel at how little the
millenia and cultural gulfs have changed toilet bowl design. The only exit is
south.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(SOUTH TO DORM-D)
(PSEUDO "FIXTURES" TOILET-PSEUDO "TOILET" TOILET-PSEUDO)>
<ROOM MESS-CORRIDOR
(IN ROOMS)
(DESC "Mess Corridor")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(SOUTH TO MESS-HALL)
(NORTH TO STORAGE-WEST IF STORAGE-WEST-DOOR IS OPEN)
(EAST TO DORM-CORRIDOR)
(WEST TO REC-CORRIDOR)
(GLOBAL STORAGE-WEST-DOOR)
(ACTION MESS-CORRIDOR-F)>
<ROUTINE MESS-CORRIDOR-F (RARG)
<COND (<EQUAL? .RARG ,M-LOOK>
<TELL
"This is a wide, east-west hallway with a large portal to the south. A
small door to the north is ">
<COND (<NOT ,PADLOCK-REMOVED>
<TELL " and hooked with a simple steel padlock">
<TELL " which hangs unlocked">)
(T
<TELL " which is also closed">)>)>
<TELL "." CR>)>>
<OBJECT STORAGE-WEST-DOOR
(IN LOCAL-GLOBALS)
(DESC "door")
(SYNONYM DOOR)
(ACTION STORAGE-WEST-DOOR-F)>
<ROUTINE STORAGE-WEST-DOOR-F ()
<COND (<VERB? OPEN>
<COND (<FSET? ,STORAGE-WEST-DOOR ,OPENBIT>
<ALREADY-OPEN>)
<FSET ,STORAGE-WEST-DOOR ,OPENBIT>
<TELL "Opened." CR>)
(T
<TELL
"The door cannot be opened until the padlock is removed." CR>)>)
(<VERB? CLOSE>
<COND (<FSET? ,STORAGE-WEST-DOOR ,OPENBIT>
<FCLEAR ,STORAGE-WEST-DOOR ,OPENBIT>
<TELL "The door is now closed." CR>)
(T
<IS-CLOSED>)>)
(<VERB? UNLOCK>
<TELL "The door itself isn't locked.">
<TELL
" It is the padlock on the door which is locked.">)>
<TELL CR>)>>
<OBJECT PADLOCK
(IN MESS-CORRIDOR)
(DESC "padlock")
(SYNONYM PADLOCK PAD LOCK)
(ADJECTIVE SIMPLE STEEL METAL)
(SIZE 10)
(FLAGS MUNGBIT NDESCBIT TAKEBIT TRYTAKEBIT)
(ACTION PADLOCK-F)>
<GLOBAL PADLOCK-REMOVED <>> ;"is the padlock still on the door?"
<ROUTINE PADLOCK-F ()
<TELL
"You can't see or reach the lock from inside the cell." CR>)
(<AND <VERB? OPEN-WITH>
<RTRUE>)
(<VERB? UNLOCK OPEN>
<COND (<NOT ,PRSI>
<TELL "You can't open it with your hands." CR>)
<TELL
"Tsk, tsk ... the padlock seems to be fused shut." CR>)
(T
<TELL "The padlock springs open." CR>)>)
(T
<TELL "That doesn't work." CR>)>)
(T
<TELL "The padlock is already unlocked." CR>)>)
(<VERB? CLOSE LOCK>
<TELL "The padlock closes with a sharp click." CR>)
(T
<TELL "The padlock is already locked." CR>)>)
(<AND <VERB? TAKE>
<NOT ,PADLOCK-REMOVED>>
<SETG PADLOCK-REMOVED T>
<FCLEAR ,PADLOCK ,TRYTAKEBIT>
<RFALSE>)
<TELL "The padlock is locked to the door." CR>)>)
(<VERB? MUNG>
<TELL
"And, as we go into the next round, it's Padlock 1, Adventurer 0..." CR>)>>
<ROOM STORAGE-WEST
(IN ROOMS)
(DESC "Storage West")
(LDESC
"This is a small room obviously intended as a storage area.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(SOUTH TO MESS-CORRIDOR IF STORAGE-WEST-DOOR IS OPEN)
(OUT TO MESS-CORRIDOR IF STORAGE-WEST-DOOR IS OPEN)
(VALUE 4)
(GLOBAL SHELVES STORAGE-WEST-DOOR)>
<OBJECT CAN
(IN STORAGE-WEST)
(DESC "tin can")
(LDESC
"There is a large tin can, labelled \"Spam and Egz,\" sitting here.")
(FDESC
"On a small shelf is a large, unopened tin can. It has a plain white
label which reads \"Spam and Egz.\"")
(SIZE 15)
(SYNONYM CAN)
(ADJECTIVE LARGE TIN UNOPENED)
(FLAGS TAKEBIT)
(ACTION CAN-F)>
<ROUTINE CAN-F ()
<COND (<VERB? EXAMINE>
<TELL
"This is a rather normal tin can. It is large and is labelled \"Spam
and Egz.\"" CR>)
(<VERB? OPEN>
<TELL
"You certainly can't open it with your hands, and you don't seem to have
found a can opener yet." CR>)>>
<OBJECT LADDER
(IN STORAGE-WEST)
(DESC "ladder")
(FDESC
"A heavy-duty extendable ladder is leaning against the rear wall.")
(LDESC
"There is a large aluminum ladder here.")
(SYNONYM LADDER)
(ADJECTIVE HEAVY DUTY ALUMINUM LARGE)
(SIZE 80)
(FLAGS TAKEBIT)
(ACTION LADDER-F)>
<GLOBAL LADDER-EXTENDED <>> ;"is the ladder extended?"
<GLOBAL LADDER-FLAG <>> ;"is the ladder spanning the rift?"
<ROUTINE LADDER-F ()
<COND (<VERB? TAKE>
<COND (,LADDER-EXTENDED
<TELL
"You can't possibly carry the ladder while it's extended." CR>)>)
(<VERB? EXAMINE>
<TELL
"It is a heavy-duty ladder built of sturdy aluminum tubing. It is currently ">
<COND (,LADDER-EXTENDED
<TELL
"extended to its full length of about 8 meters, but could be collapsed to
a shorter length for easier carrying." CR>)
(T
<TELL
"collapsed and is around two-and-a-half meters long, but if extended would
obviously be much longer." CR>)>)
(<VERB? OPEN>
<COND (,LADDER-EXTENDED
<TELL "The ladder is already extended." CR>)
(<OR <EQUAL? ,HERE ,STORAGE-EAST ,STORAGE-WEST ,BOOTH-2>
<EQUAL? ,HERE ,UPPER-ELEVATOR ,LOWER-ELEVATOR>>
<TELL
"You can't extend the ladder in this tiny space!" CR>)
(<IN? ,LADDER ,ADVENTURER>
<TELL
"You couldn't possibly extend the ladder while you're holding it." CR>)
(T
<FSET ,LADDER ,TRYTAKEBIT>
<SETG LADDER-EXTENDED T>
<SETG C-ELAPSED 36>
<TELL
"The ladder extends to a length of around eight meters." CR>)>)
(<VERB? CLOSE>
<COND (,LADDER-EXTENDED
<SETG C-ELAPSED 21>
<COND (,LADDER-FLAG
<SETG LADDER-FLAG <>>
<REMOVE ,LADDER>
<TELL
"As the ladder shortens it plunges into the rift." CR>)
(T
<SETG LADDER-EXTENDED <>>
<FCLEAR ,LADDER ,TRYTAKEBIT>
<TELL
"The ladder collapses to a length of around two-and-a-half meters." CR>)>)
(T
<TELL
"The ladder is already in its collapsed state." CR>)>)
(<AND <VERB? SPAN ATTRACT>
<COND (,LADDER-FLAG
<TELL "The ladder already spans the rift." CR>)
(T
<COND (,LADDER-EXTENDED
<SETG LADDER-FLAG T>
<TELL
"The ladder swings out across the rift and comes to rest on the far edge,
spanning the precipice." CR>)
(T
<REMOVE ,LADDER>
<TELL
"The ladder, far too short to reach the other edge of the rift, plunges into
the rift and is lost forever." CR>)>)>)
(<VERB? CLIMB-UP CLIMB-FOO>
<COND (,LADDER-FLAG
<TELL "You can't climb a horizontal ladder!" CR>)
(<IN? ,LADDER ,ADVENTURER>
<TELL
"That would be a neat trick, considering that you're holding it." CR>)>)>>
<ROOM DORM-CORRIDOR
(IN ROOMS)
(DESC "Dorm Corridor")
(LDESC
"This is a wide, east-west hallway with openings to the north and south.
To the east, the corridor stretches off into the distance. That section of
the hallway is lined with a motorized walkway (no longer running) that
was probably intended to transport people or cargo down that tremendously
long hall.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 160 ;"NE" 0 ;"NORTH" 0>)
(NORTH TO DORM-D)
(SOUTH TO DORM-C)
(WEST TO MESS-CORRIDOR)
(EAST PER LONG-HALL-F)
(PSEUDO "WALKWAY" WALKWAY-PSEUDO)>
<ROOM MESS-HALL
(IN ROOMS)
(DESC "Mess Hall")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(NORTH TO MESS-CORRIDOR)
(OUT TO MESS-CORRIDOR)
(SOUTH TO KITCHEN IF KITCHEN-DOOR IS OPEN)
(IN TO KITCHEN IF KITCHEN-DOOR IS OPEN)
(GLOBAL TABLES KITCHEN-DOOR SLOT)
(PSEUDO "BENCH" BENCH-PSEUDO "BENCHE" BENCH-PSEUDO)
(ACTION MESS-HALL-F)>
<ROUTINE MESS-HALL-F (RARG)
<COND (<EQUAL? .RARG ,M-LOOK>
<TELL
"This is a large hall lined with tables and benches. An opening to the north
leads back to the corridor. A door to the south is ">
<TELL ". Next to the door is a small slot." CR>)>>
<OBJECT KITCHEN-DOOR
(IN LOCAL-GLOBALS)
(DESC "door")
(SYNONYM DOOR)
(ADJECTIVE KITCHEN)
(ACTION KITCHEN-DOOR-F)>
<ROUTINE KITCHEN-DOOR-F ()
<COND (<VERB? OPEN>
<TELL
"A light flashes \"Pleez yuuz kitcin akses kard.\"" CR>)>>
<ROOM KITCHEN
(IN ROOMS)
(DESC "Kitchen")
(LDESC
"This is the food production and dispensary area for the dining hall to the
north. Of particular interest is a machine near the door. You should probably
examine it more closely.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(NORTH TO MESS-HALL)
(OUT TO MESS-HALL)
(GLOBAL KITCHEN-DOOR)
(PSEUDO "SPOUT" SPOUT-PSEUDO "BUTTON" BUTTON-PSEUDO)
(VALUE 4)>
<OBJECT DISPENSER
(IN KITCHEN)
(DESC "dispenser unit")
(SYNONYM UNIT NICHE MACHIN DISPEN)
(ADJECTIVE DISPEN)
(ACTION DISPENSER-F)>
<OBJECT CANTEEN
(IN MESS-HALL)
(DESC "canteen")
(FDESC
"Although the room is quite barren, an octagonally-shaped
canteen is sitting on one of the benches.")
(SYNONYM CANTEEN)
(ADJECTIVE OCTAGONAL)
(CAPACITY 5)
(SIZE 10)
<ROUTINE DISPENSER-F ()
<COND (<VERB? EXAMINE>
<TELL
"This wall-mounted unit contains an octagonal niche beneath a spout. ">
<TELL
"A canteen is resting in the niche, its mouth lying just below the spout. ">)>
<TELL
"Above the spout is a button. The machine is labelled \"Hii Prooteen Likwid
Dispensur.\"" CR>)
(<VERB? CLOSE>
<NO-CLOSE>
<RTRUE>)
(<VERB? PUT>
<TELL "The canteen fits snugly into the octagonal niche,
its mouth resting just below the spout of the machine." CR>)
(T
<TELL "It doesn't fit in the niche." CR>)>)>>
<OBJECT HIGH-PROTEIN
(DESC "quantity of protein-rich liquid")
(SYNONYM LIQUID FLUID FOOD QUANTITY)
(ADJECTIVE BROWN PROTEIN-RICH)
(SIZE 5)
(FLAGS FOODBIT)
(ACTION HIGH-PROTEIN-F)>
<ROUTINE HIGH-PROTEIN-F ("AUX" (X <>))
<COND (<VERB? EAT>
<COND (<NOT <IN? ,CANTEEN ,ADVENTURER>>
<NOT-HOLDING>)
(T
<COND (<EQUAL? ,HUNGER-LEVEL 0>
<TELL ,NOT-HUNGRY CR>)
(T
<REMOVE ,HIGH-PROTEIN>
<SETG C-ELAPSED 15>
<SETG HUNGER-LEVEL 0>
<ENABLE <QUEUE I-HUNGER-WARNINGS 3600>>
<TELL
"Mmmm....that was good. It certainly quenched your thirst and satisfied your
hunger." CR>)>)>)
(<AND <VERB? POUR>
<EQUAL? ,PRSO ,HIGH-PROTEIN>>
<COND (<NOT <IN? ,CANTEEN ,ADVENTURER>>
<TELL "Maybe if you were holding the canteen..." CR>
<RTRUE>)
(<NOT ,PRSI>
(<EQUAL? ,PRSI ,FUNNEL-HOLE>
<COND (<IN? ,CHEMICAL-FLUID ,FLASK>
<SET X T>)>
<SETG CHEMICAL-REQUIRED 10>
<REMOVE ,HIGH-PROTEIN>
<PERFORM ,V?POUR ,CHEMICAL-FLUID ,FUNNEL-HOLE>
<COND (.X
<MOVE ,CHEMICAL-FLUID ,FLASK>)>
<RTRUE>)
(T
<REMOVE ,HIGH-PROTEIN>
<TELL
"The protein-rich fluid pours over the " D ,PRSI " and then dries up." CR>)>)>>
<ROUTINE WORTHLESS-ACTION ()
<TELL
"A worthless action -- and much too difficult for a poorly-written program
like this one to handle." CR>>
<ROOM CORRIDOR-JUNCTION
(IN ROOMS)
(DESC "Corridor Junction")
(LDESC
"A north-south corridor intersects the main corridor here. To the west, the
main corridor extends as far as you can see; a non-working walkway from
that direction ends here. To the east, the corridor widens into a well-lit
area.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 160 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 30 ;"NE" 0 ;"NORTH" 0>)
(NORTH TO ADMIN-CORRIDOR-S)
(SOUTH TO MECH-CORRIDOR-N)
(WEST PER LONG-HALL-F)
(EAST TO ELEVATOR-LOBBY)
(PSEUDO "WALKWAY" WALKWAY-PSEUDO)>
<ROUTINE LONG-HALL-F ()
<TELL
"You walk down the long, featureless hallway for a long time. Finally,
you see ">
<SETG C-ELAPSED 160>
<COND (<EQUAL? ,HERE ,CORRIDOR-JUNCTION>
<TELL "some doorways ahead..." CR CR>
(T
<TELL "an intersection ahead..." CR CR>
<ROOM ADMIN-CORRIDOR-S
(IN ROOMS)
(DESC "Admin Corridor South")
(LDESC
"This section of hallway seems to have suffered some minor structural
damage. The walls are cracked, and a jagged crevice crosses the floor.
An opening leads east and the corridor heads north and south.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(SOUTH TO CORRIDOR-JUNCTION)
(NORTH TO ADMIN-CORRIDOR)
(EAST TO SANFAC-E)
(ACTION ADMIN-CORRIDOR-S-F)>
<ROUTINE ADMIN-CORRIDOR-S-F (RARG)
<COND (<AND <EQUAL? .RARG ,M-END>
<PROB 20>>
<TELL
"You catch, out of the corner of your eye, a glint of light from the direction
of the floor." CR>)>>
<OBJECT CREVICE
(IN ADMIN-CORRIDOR-S)
(DESC "crevice")
(SYNONYM CREVICE CRACK HOLE)
(ADJECTIVE NARROW JAGGED)
(FLAGS NDESCBIT)
(ACTION CREVICE-F)>
<ROUTINE CREVICE-F ()
<COND (<VERB? REACH>
<TELL "The crevice is too narrow to reach into." CR>)
(<VERB? LOOK-INSIDE EXAMINE SEARCH>
<TELL "Nothing there but bunches of dust." CR>)
(T
<TELL
"Lying at the bottom of the narrow crack, partly covered by layers of dust,
is a shiny steel key!" CR>)>)>>
<OBJECT KEY
(IN ADMIN-CORRIDOR-S)
(DESC "key")
(FDESC "Lying at the bottom of a narrow crevice is a shiny object.")
(SIZE 3)
(SYNONYM KEY METAL OBJECT)
(ADJECTIVE PIECE STEEL IRON SHINY)
(FLAGS ACIDBIT TAKEBIT TOOLBIT INVISIBLE TRYTAKEBIT)
(ACTION KEY-F)>
<ROUTINE KEY-F ()
<COND (<AND <VERB? TAKE ZATTRACT MOVE>
<TELL
"These are heavy-duty pliers, too large to reach into this narrow crack." CR>)
<RTRUE>)
(,PRSI
<TELL "Nice try." CR>)
(T
<TELL
"Either the crevice is too narrow, or your fingers are too large." CR>)>)
(<AND <VERB? PUT>
<TELL
"And you wonder why you're still only an Ensign Seventh Class?" CR>)>>
<ROOM ADMIN-CORRIDOR
(IN ROOMS)
(DESC "Admin Corridor")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(SOUTH TO ADMIN-CORRIDOR-S)
(NORTH PER LADDER-EXIT-F)
(WEST TO SYSTEMS-MONITORS)
(GLOBAL RIFT)
(PSEUDO "RUBBLE" RUBBLE-PSEUDO)
(ACTION ADMIN-CORRIDOR-F)>
<ROUTINE ADMIN-CORRIDOR-F (RARG)
<COND (<AND ,LADDER-FLAG
<EQUAL? .RARG ,M-ENTER>>
(<EQUAL? .RARG ,M-LOOK>
<TELL
"The hallway, in fact the entire building, has been rent apart here, presumably
by seismic upheaval. You can see the sky through the severed roof above, and
the ground is thick with rubble. To the north is a gaping rift, at least eight
meters across and thirty meters deep. ">
<COND (,LADDER-FLAG
<TELL "A metal ladder spans the rift. ">)>
<TELL
"A wide doorway, labelled \"Sistumz Moniturz,\" leads west." CR>)>>
<ROOM ADMIN-CORRIDOR-N
(IN ROOMS)
(DESC "Admin Corridor North")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(SOUTH PER LADDER-EXIT-F)
(NORTH TO TRANSPORTATION-SUPPLY)
(EAST TO PLAN-ROOM)
(WEST TO SMALL-OFFICE)
(VALUE 4)
(GLOBAL RIFT)
(ACTION ADMIN-CORRIDOR-N-F)>
<ROUTINE ADMIN-CORRIDOR-N-F (RARG)
<COND (<AND ,LADDER-FLAG
<EQUAL? .RARG ,M-ENTER>>
(<EQUAL? .RARG ,M-LOOK>
<TELL
"The corridor ends here. Portals lead west, north, and east. Signs above these
portals read, respectively, \"Administraativ Awfisiz,\" \"Tranzportaashun
Suplii,\" and \"Plan Ruum.\" To the south is a wide rift">
<COND (,LADDER-FLAG
<TELL ", spanned by a metal ladder,">)>
<TELL
" separating this area from the rest of the building." CR>)>>
<ROUTINE LADDER-EXIT-F ()
<COND (,LADDER-FLAG
<SETG C-ELAPSED 33>
<TELL
"You slowly make your way across the swaying ladder. You can see sharp,
pointy rocks at the bottom of the rift, far below..." CR CR>
<COND (<EQUAL? ,HERE ,ADMIN-CORRIDOR-N>
(T
,ADMIN-CORRIDOR-N)>)
(T
<TELL "The rift is too wide to jump across." CR>
<RFALSE>)>>
<OBJECT RIFT
(IN LOCAL-GLOBALS)
(DESC "rift")
(SYNONYM RIFT GULF PRECIPICE HOLE)
(ADJECTIVE WIDE DEEP GAPING)
(FLAGS NDESCBIT)
(ACTION RIFT-F)>
<ROUTINE RIFT-F ()
<COND (<VERB? LEAP>
"You get a brief (but much closer) view of the sharp and nasty rocks at
the bottom of the rift.">)
(<AND <VERB? PUT>
<REMOVE ,PRSO>
<COND (<EQUAL? ,PRSO ,SCRUB-BRUSH>
<TELL
"You watch with tremendous satisfaction as the brush is lost forever." CR>)
(T
<TELL
"The " D, PRSO " sails gracefully into the rift." CR>)>)
(<VERB? EXAMINE LOOK-INSIDE>
<TELL
"The rift is at least eight meters wide and more than thirty meters deep. The
bottom is covered with sharp and nasty rocks." CR>)>>
<ROOM SANFAC-E
(IN ROOMS)
(DESC "SanFac E")
(LDESC
"Here is another sanitary facility. Like the others, it is dusty and
non-functional.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(WEST TO ADMIN-CORRIDOR-S)
(OUT TO ADMIN-CORRIDOR-S)
(PSEUDO "FIXTURES" TOILET-PSEUDO "TOILET" TOILET-PSEUDO)>
<ROOM SYSTEMS-MONITORS
(IN ROOMS)
(DESC "Systems Monitors")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(EAST TO ADMIN-CORRIDOR)
(OUT TO ADMIN-CORRIDOR)
(GLOBAL TABLES)
(PSEUDO "MONITORS" MONITORS-PSEUDO "EQUIPM" EQUIPMENT-PSEUDO)
(ACTION SYSTEMS-MONITORS-F)>
<ROUTINE SYSTEMS-MONITORS-F (RARG)
<COND (<EQUAL? .RARG ,M-LOOK>
<TELL
"This is a large room filled with tables full of strange equipment. ">
<DESCRIBE-MONITORS>)>>
<ROUTINE DESCRIBE-MONITORS ()
<TELL
"The far wall is filled with a number of monitors. Of these,
the ones labelled ">
<COND (,DEFENSE-FIXED
<TELL "PLANATEREE DEFENS, ">)>
<COND (,COURSE-CONTROL-FIXED
<TELL "PLANATEREE KORS KUNTROOL, ">)>
<COND (,COMM-FIXED
<TELL "KUMUUNIKAASHUNZ, ">)>
<TELL
"LIIBREREE, REEAKTURZ, and LIIF SUPORT are green, but the one">
<COND (<NOT <AND ,DEFENSE-FIXED
,COMM-FIXED>>
<TELL "s">)>
<TELL " labelled ">
<COND (<NOT ,DEFENSE-FIXED>
<TELL "PLANATEREE DEFENS, ">)>
<COND (<NOT ,COURSE-CONTROL-FIXED>
<TELL "PLANATEREE KORS KUNTROOL, ">)>
<COND (<NOT ,COMM-FIXED>
<TELL "KUMUUNIKAASHUNZ, ">)>
<COND (<NOT <AND ,DEFENSE-FIXED
,COMM-FIXED>>
<TELL "and ">)>
<TELL "PRAJEKT KUNTROOL indicate">
<COND (<AND ,DEFENSE-FIXED ,COURSE-CONTROL-FIXED ,COMM-FIXED>
<TELL "s">)>
<TELL " a malfunctioning condition." CR>>
<ROOM PLAN-ROOM
(IN ROOMS)
(DESC "Plan Room")
(LDESC
"This is a small room whose far wall is covered with many small cubbyholes,
all empty. The left wall is covered with an enormous map, labelled
\"Kalamontee Kompleks\", showing two installations connected by a long
hallway. Near the upper part of this map is a red arrow saying \"Yuu ar
heer.\" The right wall is covered with a similar map, labelled \"Lawanda
Kompleks\", showing two installations, one apparently buried deep
underground.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(WEST TO ADMIN-CORRIDOR-N)
(PSEUDO "CUBBYHOLE" CUBBYHOLE-PSEUDO "MAPS" MAPS-PSEUDO)>
<ROOM TRANSPORTATION-SUPPLY
(IN ROOMS)
(DESC "Transportation Supply")
(LDESC "You have just located a serious bug.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(SOUTH TO ADMIN-CORRIDOR-N)
(NORTH TO TRANSPORTATION-SUPPLY)
(EAST TO TRANSPORTATION-SUPPLY)
(WEST TO TRANSPORTATION-SUPPLY)
(OUT TO ADMIN-CORRIDOR-N)
(FLAGS RLANDBIT)>
<ROOM SMALL-OFFICE
(IN ROOMS)
(DESC "Small Office")
(LDESC
"You have entered a small office of some sort. A small desk faces the main
doorway which lies to the east. Another exit leads west.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(EAST TO ADMIN-CORRIDOR-N)
(WEST TO LARGE-OFFICE)
<OBJECT SMALL-DESK
(IN SMALL-OFFICE)
(DESC "small desk")
(SYNONYM DESK DRAWER)
(ADJECTIVE SMALL)
(CAPACITY 10)
(ACTION DESK-F)>
<OBJECT KITCHEN-CARD
(IN SMALL-DESK)
(DESC "kitchen access card")
(SYNONYM CARD CARDS)
(ADJECTIVE KITCHEN ACCESS)
(SIZE 3)
(TEXT "The card is embossed \"kitcin akses kard.\"")
(VALUE 1)>
<OBJECT UPPER-ELEVATOR-CARD
(IN SMALL-DESK)
(DESC "upper elevator access card")
(SYNONYM CARD CARDS)
(ADJECTIVE UPPER ELEVATOR ACCESS)
(SIZE 3)
(TEXT "The card is embossed \"upur elivaatur akses kard.\"")
(VALUE 1)>
<OBJECT SHUTTLE-CARD
(IN LARGE-DESK)
(DESC "shuttle access card")
(SYNONYM CARD CARDS)
(ADJECTIVE SHUTTL ACCESS)
(SIZE 3)
(TEXT "The card is embossed \"shutul akses kard.\"")
(VALUE 1)>
<OBJECT LOWER-ELEVATOR-CARD
(DESC "lower elevator access card")
(SYNONYM CARD CARDS)
(ADJECTIVE LOWER ELEVATOR ACCESS)
(SIZE 3)
(TEXT "The card is embossed \"loowur elivaatur akses kard.\"")
(VALUE 1)>
<ROOM LARGE-OFFICE
(IN ROOMS)
(DESC "Large Office")
(LDESC
"This is a large, plush office. The far wall is one large picture window,
scratched but unbroken, offering a view of this installation and the ocean
beyond. In front of the window is a wide wooden desk. The only exit is east.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(EAST TO SMALL-OFFICE)
<OBJECT LARGE-DESK
(IN LARGE-OFFICE)
(DESC "large desk")
(SYNONYM DESK DRAWER)
(ADJECTIVE LARGE WIDE WOODEN)
(CAPACITY 20)
(ACTION DESK-F)>
<ROUTINE DESK-F ()
<COND (<VERB? SEARCH EXAMINE>
<TELL "The desk has a drawer which is currently ">
<TELL "." CR>)>>
<ROOM MECH-CORRIDOR-N
(IN ROOMS)
(DESC "Mech Corridor North")
(LDESC
"Entrances to rooms lie to the east and west from this north-south hall.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(EAST TO STORAGE-EAST)
(WEST TO PHYSICAL-PLANT)
(NORTH TO CORRIDOR-JUNCTION)
(SOUTH TO MECH-CORRIDOR)
<ROOM MECH-CORRIDOR
(IN ROOMS)
(DESC "Mech Corridor")
(LDESC
"Entrances to rooms lie to the east and west from this north-south hall.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(EAST TO REACTOR-CONTROL)
(WEST TO PHYSICAL-PLANT)
(NORTH TO MECH-CORRIDOR-N)
(SOUTH TO MECH-CORRIDOR-S)
<ROOM MECH-CORRIDOR-S
(IN ROOMS)
(DESC "Mech Corridor South")
(LDESC
"The corridor ends here with doorways to the southwest, south, and southeast.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 25 ;"SOUTH" 0
;"SE" 25 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(NORTH TO MECH-CORRIDOR)
(SW TO TOOL-ROOM)
(SOUTH TO MACHINE-SHOP)
(SE TO ROBOT-SHOP)
<ROOM STORAGE-EAST
(IN ROOMS)
(DESC "Storage East")
(LDESC
"A small room for storage. The exit is to the west.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(WEST TO MECH-CORRIDOR-N)
(GLOBAL SHELVES)>
<OBJECT OIL-CAN
(IN STORAGE-EAST)
(DESC "oil can")
(FDESC
"One dusty shelf, otherwise bare, holds a small oil can.")
(SYNONYM CAN)
(ADJECTIVE SMALL OIL)
(SIZE 10)
(ACTION OIL-CAN-F)>
<ROUTINE OIL-CAN-F ()
<COND (<VERB? POUR>
<COND (<NOT ,PRSI>
<RTRUE>)
(<VERB? EMPTY>
<TELL
"Pretty much impossible -- you could only do that one drop at a time." CR>)>>
<OBJECT CARTON
(IN STORAGE-EAST)
(DESC "cardboard box")
(FDESC
"On the floor beneath the shelves sits a small cardboard box.")
(SYNONYM BOX CARTON)
(ADJECTIVE SMALL CARDBOARD)
(SIZE 10)
(CAPACITY 50)
(ACTION CARTON-F)>
<ROUTINE CARTON-F ()
<COND (<VERB? CLOSE>
<NO-CLOSE>
<RTRUE>)>>
<OBJECT CRACKED-BOARD
(IN CARTON)
(DESC "cracked seventeen-centimeter fromitz board")
(SYNONYM BOARD BOARDS)
(ADJECTIVE CRACKED SEVENTEEN CENTIMETER FROMITZ)
(SIZE 10)
(ACTION CRACKED-BOARD-F)>
<ROUTINE CRACKED-BOARD-F ()
<COND (<VERB? EXAMINE>
<TELL " This one looks as though it's been dropped." CR>)>>
<OBJECT MEGAFUSE-B
(IN CARTON)
(DESC "B-series megafuse")
(SYNONYM FUSE MEGAFUSE)
(ADJECTIVE B-SERIES B SERIES MEGA)
(SIZE 5)
<OBJECT MEGAFUSE-K
(IN CARTON)
(DESC "K-series megafuse")
(SYNONYM FUSE MEGAFUSE)
(ADJECTIVE K-SERIES K SERIES MEGA)
(SIZE 5)
<OBJECT GOOD-BEDISTOR
(IN CARTON)
(DESC "good ninety-ohm bedistor")
(SYNONYM BEDISTOR)
(ADJECTIVE GOOD NINETY OHM)
(SIZE 8)
(ACTION GOOD-BEDISTOR-F)>
<ROUTINE GOOD-BEDISTOR-F ()
<COND (<AND <VERB? TAKE>
"Kerzap!! You should know better than to touch an active bedistor!">)>>
<ROOM PHYSICAL-PLANT
(IN ROOMS)
(DESC "Physical Plant")
(LDESC
"This is a huge, dim room with exits in the northeast and southeast
corners. The room is criss-crossed with catwalks and is filled with
heavy equipment presumably intended to heat and ventilate this complex.
Hardly any of the equipment is still operating.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(NE TO MECH-CORRIDOR-N)
(SE TO MECH-CORRIDOR)
(PSEUDO "EQUIPM" EQUIPMENT-PSEUDO "CATWALK" CATWALK-PSEUDO)>
<ROOM REACTOR-CONTROL
(IN ROOMS)
(DESC "Reactor Control")
(LDESC
"This room contains many dials and gauges for controlling a massive planetary
power reactor which, according to a diagram on the wall, must be buried far
below this very complex. The exit is to the west. To the east is a metal door,
and next to it, a button. A dark stairway winds downward.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN"20 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(WEST TO MECH-CORRIDOR)
(EAST TO REACTOR-ELEVATOR IF REACTOR-ELEVATOR-DOOR IS OPEN)
(IN TO REACTOR-ELEVATOR IF REACTOR-ELEVATOR-DOOR IS OPEN)
(DOWN TO REACTOR-ACCESS-STAIRS)
(PSEUDO "BUTTON" REACTOR-BUTTON-PSEUDO "DIAGRAM" DIAGRAM-PSEUDO)
(GLOBAL CONTROLS STAIRS REACTOR-ELEVATOR-DOOR)>
<ROOM REACTOR-ACCESS-STAIRS
(IN ROOMS)
(DESC "Reactor Access Stairs")
(LDESC "You have just located a serious bug.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 30
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(DOWN TO REACTOR-ACCESS-STAIRS)
(UP TO REACTOR-CONTROL)
(FLAGS RLANDBIT)
(GLOBAL STAIRS)>
<OBJECT REACTOR-ELEVATOR-DOOR
(IN LOCAL-GLOBALS)
(DESC "reactor elevator door")
(SYNONYM DOOR)
(ADJECTIVE REACTOR ELEVATOR)
(FLAGS DOORBIT)
(ACTION REACTOR-ELEVATOR-DOOR-F)>
<ROUTINE REACTOR-ELEVATOR-DOOR-F ()
<COND (<VERB? OPEN CLOSE>
<TELL "It won't budge." CR>)>>
<ROUTINE I-REACTOR-DOOR-CLOSE ()
<ENABLE <QUEUE I-REACTOR-DOOR-CLOSE -1>>
<COND (<NOT <EQUAL? ,HERE ,REACTOR-ELEVATOR>>
<FCLEAR ,REACTOR-ELEVATOR-DOOR ,OPENBIT>
<COND (<EQUAL? ,HERE ,REACTOR-CONTROL>
<TELL CR "The elevator door slides shut." CR>)>
<DISABLE <INT I-REACTOR-DOOR-CLOSE>>)>>
<ROOM REACTOR-ELEVATOR
(IN ROOMS)
(DESC "Reactor Elevator")
(LDESC
"This is an elevator with a door to the west, currently open. A control panel
contains an Up button, a Down button, and a small slot.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(WEST TO REACTOR-CONTROL)
(OUT TO REACTOR-CONTROL)
(GLOBAL REACTOR-ELEVATOR-DOOR SLOT ELEVATOR-BUTTON CONTROLS)>
<ROOM TOOL-ROOM
(IN ROOMS)
(DESC "Tool Room")
(LDESC
"This is apparently a storage room for tools. Exits lead northeast and east.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 25 ;"NORTH" 0>)
(NE TO MECH-CORRIDOR-S)
(EAST TO MACHINE-SHOP)
(GLOBAL SHELVES)>
;"LASER stuff has been moved to COMPTWO with the inside-the-computer stuff"
<OBJECT FLASK
(IN TOOL-ROOM)
(DESC "glass flask")
(FDESC
"Sitting on the floor below the lowest shelf is a large glass flask.")
(SYNONYM FLASK)
(ADJECTIVE GLASS LARGE PLASTIC)
(SIZE 10)
(CAPACITY 2)
(ACTION FLASK-F)>
<ROUTINE FLASK-F ()
<COND (<VERB? EXAMINE>
<TELL
"The flask has a wide mouth and looks large enough to hold one or two liters.
It is made of glass, or perhaps some tough plastic">
<COND (<IN? ,CHEMICAL-FLUID ,FLASK>
<TELL ", and is filled with a milky white fluid">)>
<TELL "." CR>)
(<VERB? CLOSE>
<NO-CLOSE>
<RTRUE>)
(<AND <VERB? EMPTY>
<IN? ,CHEMICAL-FLUID ,FLASK>
<EQUAL? ,PRSI ,FUNNEL-HOLE>>
<PERFORM ,V?POUR ,CHEMICAL-FLUID ,FUNNEL-HOLE>
<RTRUE>)>>
<OBJECT MAGNET
(IN TOOL-ROOM)
(SIZE 10)
(DESC "curved metal bar")
(FDESC "On an upper shelf is a metal bar, curved into a U-shape.")
(SYNONYM MAGNET BAR)
(ADJECTIVE CURVED METAL HORSESHOE)
(FLAGS TRYTAKEBIT TAKEBIT)
(ACTION MAGNET-F)>
<ROUTINE MAGNET-F ()
<COND (<VERB? TAKE>
<RFALSE>)
(<VERB? ATTRACT PUT-ON>
<NOT <IN? ,MAGNET ,ADVENTURER>>>
<NOT-HOLDING>)
<MOVE ,KEY ,ADVENTURER>
<TELL
"The key jumps against the ends of the magnet and sticks there. Proud of your
feat, you remove the key from the magnet." CR>)
<MOVE ,KEY ,ADVENTURER>
<FCLEAR ,KEY ,TRYTAKEBIT>
<TELL
"With a spray of dust and a loud clank, a piece of metal leaps from the
crevice and affixes itself to the magnet. It is a steel key! With a tug,
you remove the key from the magnet." CR>)>)>>
<ROUTINE I-MAGNET ()
<COND (<IN? ,MAGNET ,ADVENTURER>
<COND (<HELD? ,KITCHEN-CARD>
<FSET ,KITCHEN-CARD ,SCRAMBLEDBIT>)
(<HELD? ,SHUTTLE-CARD>
<FSET ,SHUTTLE-CARD ,SCRAMBLEDBIT>)
<FSET ,TELEPORTATION-CARD ,SCRAMBLEDBIT>)
<FSET ,UPPER-ELEVATOR-CARD ,SCRAMBLEDBIT>)
<FSET ,LOWER-ELEVATOR-CARD ,SCRAMBLEDBIT>)
<FSET ,MINI-CARD ,SCRAMBLEDBIT>)
<FSET ,ID-CARD ,SCRAMBLEDBIT>)>)
(T
<DISABLE <INT I-MAGNET>>)>
<RFALSE>>
<OBJECT PLIERS
(IN TOOL-ROOM)
(DESC "pair of wide-nosed pliers")
(SYNONYM PAIR PLIERS)
(ADJECTIVE WIDE-NOSED WIDE NOSED)
(SIZE 15)
(FLAGS TAKEBIT)>
<ROOM MACHINE-SHOP
(IN ROOMS)
(DESC "Machine Shop")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(NORTH TO MECH-CORRIDOR-S)
(EAST TO ROBOT-SHOP)
(WEST TO TOOL-ROOM)
(PSEUDO "SPOUT" CHEM-SPOUT-PSEUDO)
(ACTION MACHINE-SHOP-F)>
<ROUTINE MACHINE-SHOP-F (RARG)
<COND (<EQUAL? .RARG ,M-LOOK>
<TELL
"This room is probably some sort of machine shop filled with a variety
of unusual machines. Doorways lead north, east, and west.|
|
Standing against the rear wall is a large dispensing machine with a
spout. ">
<COND (<NOT <EQUAL? ,SPOUT-PLACED ,GROUND>>
<TELL
"Sitting under the spout is ">
<COND (<FSET? ,SPOUT-PLACED ,VOWELBIT>
<TELL "an ">)
(T
<TELL "a ">)>
<TELL D ,SPOUT-PLACED". ">)>
<TELL
"The dispenser is lined with brightly-colored buttons. The first four
buttons, labelled \"KUULINTS 1 - 4\", are colored red, blue, green, and
yellow. The next three buttons, labelled \"KATALISTS 1 - 3\", are colored
gray, brown, and black. The last two buttons are both white. One of
these is square and says \"BAAS.\" The other white button is round and
says \"ASID.\"" CR>)
(<AND <EQUAL? .RARG ,M-END>
<EQUAL? ,SPOUT-PLACED ,GROUND>
<PROB 15>>
<SETG FLOYD-SPOKE T>
<TELL
"Floyd pushes one of the dispenser buttons. Fluid pours from the spout and
splashes across the floor. Floyd jumps up and down, giggling." CR>)>>
A commented-out digging machine. A part for it (also commented out) would have been found in the LAB-UNIFORM, so this was probably a discarded puzzle idea.
(IN MACHINE-SHOP)
(DESC "wheelbarrow-like machine")
(FDESC
"In the far corner is an odd machine, somewhat reminiscent of a wheelbarrow.")
(SYNONYM WHEELBARROW MACHINE DIGGER)
(ADJECTIVE ODD)>
<OBJECT CHEMICAL-DISPENSER
(IN MACHINE-SHOP)
(DESC "chemical dispenser")
(SYNONYM DISPEN MACHIN)
(ADJECTIVE DISPEN LARGE CHEMICAL)
(ACTION CHEMICAL-DISPENSER-F)>
<GLOBAL SPOUT-PLACED <>>
<ROUTINE CHEMICAL-DISPENSER-F ()
<COND (<AND <VERB? PUT-UNDER>
<EQUAL? ,PRSI ,CHEMICAL-DISPENSER>>
<COND (<EQUAL? ,SPOUT-PLACED ,GROUND>
<TELL
"The " D ,PRSO " is now sitting under the spout." CR>
<SETG SPOUT-PLACED ,PRSO>)
(T
<TELL
"The " D ,SPOUT-PLACED " is already resting under the spout." CR>)>)>>
<OBJECT RED-BUTTON
(IN MACHINE-SHOP)
(DESC "red button")
(SYNONYM BUTTON)
(ADJECTIVE RED)
(FLAGS NDESCBIT)
(C-MOVE 1)
(ACTION CHEM-BUTTON-F)>
<OBJECT BLUE-BUTTON
(IN MACHINE-SHOP)
(DESC "blue button")
(SYNONYM BUTTON)
(ADJECTIVE BLUE)
(FLAGS NDESCBIT)
(C-MOVE 2)
(ACTION CHEM-BUTTON-F)>
<OBJECT GREEN-BUTTON
(IN MACHINE-SHOP)
(DESC "green button")
(SYNONYM BUTTON)
(ADJECTIVE GREEN)
(FLAGS NDESCBIT)
(C-MOVE 3)
(ACTION CHEM-BUTTON-F)>
<OBJECT YELLOW-BUTTON
(IN MACHINE-SHOP)
(DESC "yellow button")
(SYNONYM BUTTON)
(ADJECTIVE YELLOW)
(FLAGS NDESCBIT)
(C-MOVE 4)
(ACTION CHEM-BUTTON-F)>
<OBJECT GRAY-BUTTON
(IN MACHINE-SHOP)
(DESC "gray button")
(SYNONYM BUTTON)
(ADJECTIVE GRAY GREY)
(FLAGS NDESCBIT)
(C-MOVE 5)
(ACTION CHEM-BUTTON-F)>
<OBJECT BROWN-BUTTON
(IN MACHINE-SHOP)
(DESC "brown button")
(SYNONYM BUTTON)
(ADJECTIVE BROWN)
(FLAGS NDESCBIT)
(C-MOVE 6)
(ACTION CHEM-BUTTON-F)>
<OBJECT BLACK-BUTTON
(IN MACHINE-SHOP)
(DESC "black button")
(SYNONYM BUTTON)
(ADJECTIVE BLACK)
(FLAGS NDESCBIT)
(C-MOVE 7)
(ACTION CHEM-BUTTON-F)>
<OBJECT ROUND-WHITE-BUTTON
(IN MACHINE-SHOP)
(DESC "round white button")
(SYNONYM BUTTON)
(ADJECTIVE WHITE ROUND)
(FLAGS NDESCBIT)
(C-MOVE 8)
(ACTION CHEM-BUTTON-F)>
<OBJECT SQUARE-WHITE-BUTTON
(IN MACHINE-SHOP)
(DESC "square white button")
(SYNONYM BUTTON)
(ADJECTIVE SQUARE WHITE)
(FLAGS NDESCBIT)
(C-MOVE 9)
(ACTION CHEM-BUTTON-F)>
<GLOBAL CHEMICAL-FLAG 0>
<GLOBAL COLOR-LTBL
<PLTABLE
"red"
"blue"
"green"
"yellow"
"gray"
"brown"
"black"
"clear"
"clear">>
<ROUTINE CHEM-BUTTON-F ()
<COND (<VERB? PUSH>
<COND (<FSET? ,CHEMICAL-DISPENSER ,MUNGEDBIT>
<TELL
"The machine coughs a few times, but nothing else happens." CR>)
(<EQUAL? ,SPOUT-PLACED ,FLASK>
<COND (<IN? ,CHEMICAL-FLUID ,FLASK>
<TELL
"Another dose of the chemical fluid pours out of the spout, splashes over
the already-full flask, spills onto the floor, and dries up." CR>)
(T
<MOVE ,CHEMICAL-FLUID ,FLASK>
<TELL "The flask fills with some ">
<SETG CHEMICAL-FLAG <GETP ,PRSO ,P?C-MOVE>>
<TELL <GET ,COLOR-LTBL <GETP ,PRSO ,P?C-MOVE>>>
<TELL
" chemical fluid. The fluid gradually turns milky white." CR>)>)
(<AND <EQUAL? ,SPOUT-PLACED ,CANTEEN>
<TELL
"Chemical fluid gushes from the spout. Unfortunately, the mouth of the canteen
is very narrow, and the fluid just splashes over it." CR>)
(T
<TELL
"Some sort of chemical fluid pours out of the spout, spills all over the "
D ,SPOUT-PLACED ", and dries up." CR>
<COND (<AND <EQUAL? ,PRSO ,ROUND-WHITE-BUTTON
<OR <FSET? ,SPOUT-PLACED ,ACIDBIT>
<FSET? ,SPOUT-PLACED ,MUNGBIT>>>
<SETG CHEMICAL-FLAG 9>
<PERFORM ,V?POUR ,CHEMICAL-FLUID ,SPOUT-PLACED>
<RTRUE>)>
<RTRUE>)>)>>
<ROOM ROBOT-SHOP
(IN ROOMS)
(DESC "Robot Shop")
(LDESC
"This room, with exits west and northwest, is filled with robot-like
devices of every conceivable description, all in various states of
disassembly.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 25 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(WEST TO MACHINE-SHOP)
(NW TO MECH-CORRIDOR-S)
(PSEUDO "DEVICE" DEVICES-PSEUDO)>
<OBJECT FLOYD
(IN ROBOT-SHOP)
(DESC "multiple purpose robot")
(FDESC
"Only one robot, about four feet high, looks even remotely close to being
in working order.")
(SYNONYM FLOYD COMPAR ROBOT COMPAN)
(ADJECTIVE MULTIP PURPOS DIM- DIM WITTED)
(CAPACITY 5)
(ACTION FLOYD-F)>
<GLOBAL CARD-STOLEN <>> ;"true if you took elev. card from turned-off Floyd"
<ROUTINE FLOYD-F ("AUX" X N)
<SETG FLOYD-SPOKE T>
<COND (<AND <VERB? GIVE>
<SETG WINNER ,ADVENTURER>
<RTRUE>)
(<AND <VERB? SGIVE>
<SETG WINNER ,ADVENTURER>
<RTRUE>)
(<VERB? WALK>
<COND (<AND <EQUAL? ,HERE ,REPAIR-ROOM>
(<AND <EQUAL? ,HERE ,BIO-LOCK-EAST>
(<AND <EQUAL? ,HERE ,RADIATION-LOCK-EAST>
<TELL"\"After you.\"" CR>)
(T
<TELL
"Floyd looks slightly embarrassed. \"You know me and my sense of direction.\"
Then he looks up at you with wide, trusting eyes. \"Tell Floyd
a story?\"" CR>)>
<COND (<FLUSH>
<RFATAL>)>
<RTRUE>)
(<VERB? THROUGH>
<COND (<FLUSH> <RFATAL>)>
<RTRUE>)
(<AND <VERB? TAKE>
<EQUAL? ,PRSO ,GOOD-BOARD>>
<COND (<NOT <IN? ,GOOD-BOARD ,ROBOT-HOLE>>
<TELL
"Floyd looks half-bored and half-annoyed. ""Floyd already did that.
How about some leap-frogger?\"" CR>)
<MOVE ,GOOD-BOARD ,ADVENTURER>
<FCLEAR ,GOOD-BOARD ,NDESCBIT>
<FSET ,GOOD-BOARD ,TAKEBIT>
<SETG C-ELAPSED 22>
<TELL
"Floyd shrugs. \"If you say so.\" He vanishes for a few minutes, and returns
holding the fromitz board. It seems to be in good shape. He tosses it toward
you, and you just manage to catch it before it smashes." CR>)
(T
<TELL
"\"Huh?\" asks Floyd. \"What fromitz board?\"" CR>)>)
(<AND <VERB? FOLLOW>
<TELL "\"Okay!\"" CR>)
(<VERB? HELLO>
<SETG WINNER ,ADVENTURER>
<RTRUE>)
(<VERB? DROP>
<COND (<PROB 50>
<TELL
"Floyd shrugs and drops the " D ,PRSO "." CR>)
(T
<TELL
"Floyd clutches the " D ,PRSO " even more tightly. \"Floyd won't,\" he says
defiantly." CR>)>)
(T
<FLOYD-NOT-HAVE>)>)
(T
<TELL
"Floyd whines, \"Enough talking! Let's play Hider-and-Seeker.\"" CR>
<RFATAL>)>)
(<VERB? CLOSE>
<TELL "Huh?" CR>)
(<VERB? LOOK-INSIDE REACH>
<RTRUE>)
<SETG FLOYD-SPOKE T>
<COND (<VERB? LAMP-ON>
<TELL "He's already been activated." CR>)
(<VERB? LAMP-OFF>
<TELL
"Floyd, shocked by this betrayal from his new-found friend, whimpers
and keels over">
<COND (<FIRST? ,FLOYD>
<TELL
", dropping what he was carrying." CR>)
(T
<TELL "." CR>)>
<SET X <FIRST? ,FLOYD>>
<REPEAT ()
<COND (.X
<SET N <NEXT? .X>>
<MOVE .X ,HERE>
<SET X .N>)
(T
<RETURN>)>>)
(<VERB? EXAMINE>
<TELL
"From its design, the robot seems to be of the multi-purpose sort. It is
slightly cross-eyed, and its mechanical mouth forms a lopsided grin." CR>)
(<VERB? KISS>
<TELL
"You receive a painful electric shock." CR>)
(<VERB? SCOLD>
<TELL
"Floyd looks defensive. \"What did Floyd do wrong?\"" CR>)
(<VERB? PLAY-WITH>
<SETG C-ELAPSED 30>
<TELL
"You play with Floyd for several centichrons until you drop to the floor,
exhausted. Floyd pokes at you gleefully. \"C'mon! Let's play some more!\"" CR>)
(<VERB? LISTEN>
<TELL "Floyd is babbling about this and that." CR>)
(<AND <VERB? TAKE>
<TELL
"You manage to lift Floyd a few inches off the ground, but he is too heavy
and you drop him suddenly. Floyd gives a surprised squeal and moves
a respectable distance away." CR>)
(<VERB? ATTACK MUNG>
<TELL
"Floyd starts dashing around the room. \"Oh boy oh boy oh boy! I haven't played
Chase and Tag for years! You be It! Nah, nah!\""CR>)
(<VERB? KICK SHAKE>
<TELL
"\"Why you do that?\" Floyd whines. \"I think a wire now shaken loose.\"
He goes off into a corner and sulks." CR>)
(<VERB? HELLO TALK>
<TELL
"\"Hi!\" Floyd grins and bounces up and down." CR>)
(<VERB? SEARCH SCRUB OPEN>
<TELL
"Floyd giggles and pushes you away. \"You're tickling Floyd!\" He clutches at
his side panels, laughing hysterically. Oil drops stream from his eyes." CR>)
(<AND <VERB? GIVE PUT>
<COND (<EQUAL? ,PRSO ,LAZARUS-PART>
<REMOVE ,FLOYD>
<SETG FLOYD-FOLLOW <>>
<MOVE ,LAZARUS-PART ,HERE>
<TELL
"At first, Floyd is all grins because of your gift. Then, he realizes what
it is, begins weeping, drops the breastplate, and rushes out of the room." CR>)
<TELL
"Floyd looks at the goo. \"Yech! Got any Number Seven Heavy Grease?\"" CR>)
(<OR <FIRST? ,FLOYD>
<PROB 25>>
<TELL
"Floyd examines the " D, PRSO ", shrugs, and drops ">
<TELL "them." CR>)
(T
<TELL "it." CR>)>)
(T
<TELL
"\"Neat!\" exclaims Floyd. He thanks you profusely." CR>)>)
(<AND <VERB? SHOW>
<NOT ,COMPUTER-FLAG>>
(<EQUAL? ,PRSO ,ROBOT-HOLE>
<EQUAL? ,PRSO ,PSEUDO-OBJECT>>
<TELL
"\"Too intellectual for Floyd. Any paddleball sets around?\"" CR>)
(<OR <EQUAL? ,PRSO ,ID-CARD ,SHUTTLE-CARD>
<EQUAL? ,PRSO ,KITCHEN-CARD
<TELL
"Floyd scratches his head. \"Aren't those things usually blue?\"" CR>)
(<AND <EQUAL? ,PRSO ,LOWER-ELEVATOR-CARD>
<NOT ,CARD-REVEALED>>
<SETG CARD-REVEALED T>
<TELL
"\"I've got one just like that!\" says Floyd. He looks through several
of his compartments, then glances at you suspiciously." CR>)
(T
<TELL
"Floyd looks over the " D, PRSO ". \"Can you play any games with it?\"
he asks." CR>)>)
(<VERB? RUB>
<TELL "Floyd gives a contented sigh." CR>)
(<VERB? SMELL>
<TELL
"Floyd smells faintly of ozone and light machine oil." CR>)
(<VERB? ASK-FOR>
<MOVE ,PRSI ,ADVENTURER>
<TELL
"\"Okay,\" says Floyd, handing you the " D, PRSI ", \"but only
because you're Floyd's best friend.\"" CR>)
(T
<FLOYD-NOT-HAVE>)>)>)
(T
<COND (<VERB? LAMP-ON>
<COND (,FLOYD-INTRODUCED
(T
<TELL "Nothing happens." CR>
<COND (<NOT ,FLOYD-SCORE-FLAG>
<SETG FLOYD-SCORE-FLAG T>
<RTRUE>)>)
(<VERB? LAMP-OFF>
<TELL "The robot doesn't seem to be on." CR>)
(<VERB? EXAMINE>
<TELL
"The de-activated robot is leaning against the wall, its head lolling to the
side. It is short, and seems to be equipped for general-purpose work. It has
apparently been turned off." CR>)
(<VERB? SEARCH OPEN>
<COND (<AND <NOT ,CARD-REVEALED>
<NOT ,CARD-STOLEN>>
<FCLEAR ,LOWER-ELEVATOR-CARD ,INVISIBLE>
<MOVE ,LOWER-ELEVATOR-CARD ,ADVENTURER>
<SETG CARD-STOLEN T>
<TELL
"In one of the robot's compartments you find and take a magnetic-striped card
embossed \"Loowur Elavaatur Akses Kard.\"" CR>)
(T
<TELL
"Your search discovers nothing in the robot's compartments except a
single crayon which you leave where you found it." CR>)>)>)>>
<ROUTINE FLOYDS-FAMOUS-DOOR-ROUTINE ()
<COND (<EQUAL? ,PRSO ,ROBOT-HOLE>
(<EQUAL? ,PRSO ,BIO-DOOR-EAST>
<TELL "\"You go first,\" says Floyd." CR>)
(T
<TELL "Floyd scratches his head and looks at you." CR>)>>
<ROUTINE FLUSH ()
<COND (,P-CONT
<SETG P-CONT <>>
<TELL CR
"Floyd scratches his head and looks at you. \"What else were you saying to
Floyd? I can't remember.\"" CR>
<RTRUE>)
(T
<RFALSE>)>>
<ROUTINE FLOYD-INTO-LAB ()
<COND (,FLOYD-WAITING
<TELL "\"As soon as you open the door, dummy.\"" CR>)
(T
<TELL
"\"Are you kidding? Floyd not going in THERE without a good reason.\"" CR>)>>
<ROUTINE FLOYD-NOT-HAVE ()
<TELL "\"Floyd does not one of those have!\"" CR>>
<GLOBAL FLOYD-SCORE-FLAG <>>
<GLOBAL FLOYD-SPOKE <>> ;"so Floyd doesn't do two things on the same turn"
<GLOBAL FLOYD-FOLLOW <>> ;"checks if Floyd was in room where you just were"
<GLOBAL FLOYD-REACTIVATED <>> ;"checks if Floyd has been turned on before"
<GLOBAL FLOYD-INTRODUCED <>> ;"checks if Floyd has met you before"
<ROUTINE FLOYD-COMES-ALIVE ("AUX" FOO)
<COND (,FLOYD-REACTIVATED
<SETG FLOYD-SPOKE T>
<TELL
"Floyd jumps to his feet, hopping mad. \"Why you turn Floyd off?\" he
asks accusingly." CR>)
(T
<SETG FLOYD-INTRODUCED T>
<SETG FLOYD-SPOKE T>
<TELL
"Suddenly, the robot comes to life and its head starts swivelling about.
It notices you and bounds over. \"Hi! I'm B-19-7, but to everyperson I'm
called Floyd. Are you a doctor-person or a planner-person? ">
<COND (<SET FOO <FIRST? ,ADVENTURER>>
<TELL
"That's a nice " D .FOO " you are having there. ">)>
<TELL
"Let's play Hider-and-Seeker you with me.\"" CR>)>)>
<SETG FLOYD-REACTIVATED T>>
The general handler for Floyd following you around and doing stuff. It usually runs every turn when Floyd is active (has RLANDBIT), but it’s given a short delay the first time you turn him on (see here.) It’s also sometimes given a delay if Floyd wants some alone time.
<ENABLE <QUEUE I-FLOYD -1>>
<CRLF>
<COND (<NOT ,FLOYD-INTRODUCED>
<SETG FLOYD-INTRODUCED T>
<TELL CR
"The robot, now apparently active, notices you enter. \"Hi,\"
he says. \"I'm Floyd!\"" CR>)
(<AND ,FLOYD-FOLLOW
<PROB 6>>
<REMOVE ,FLOYD>
<SETG FLOYD-FOLLOW <>>
<TELL CR
"Floyd says \"Floyd going exploring. See you later.\"
He glides out of the room." CR>)
(T
<SETG FLOYD-FOLLOW T>
<COND (<AND <PROB 40>
<NOT ,FLOYD-SPOKE>>
<TELL "Floyd ">
<TELL "." CR>
<RTRUE>)>)>)
(T ;"Floyd is active but not present"
<COND (<AND ,FLOYD-FOLLOW <PROB 80>>
<COND (<IN? ,LAZARUS-PART ,HERE>
<SETG FLOYD-FOLLOW <>>
<TELL CR
"Floyd starts to follow you but notices the Lazarus breast plate.
He sniffs and leaves the room." CR>
<RTRUE>)>
<TELL "Floyd follows you." CR>
<KLUDGE>)
(T
<SETG FLOYD-FOLLOW <>>
<COND (<NOT ,FLOYD-INTRODUCED>
<CRLF>
<RTRUE>)>
<TELL CR
"Floyd scampers into the booth. \"Oooo,
this is a tiny room,\" he remarks." CR>)
(<OR
<AND <EQUAL? ,HERE ,BIO-LOCK-EAST
<NOT ,FLOYD-GAVE-UP>>
<EQUAL? ,HERE ,RADIATION-LOCK-EAST
<COND (<NOT ,FLOYD-INTRODUCED>
<CRLF>
<RTRUE>)>
<TELL CR
This was a somewhat obscure reference even in the 1980s. The first human-built nuclear reactor was an experiment in a disused squash court beneath the University of Chicago.
(<OR <EQUAL? ,HERE ,ALFIE-CONTROL-EAST
<EQUAL? ,HERE ,BETTY-CONTROL-EAST
<EQUAL? ,HERE ,UPPER-ELEVATOR ,LOWER-ELEVATOR
<COND (<NOT ,FLOYD-INTRODUCED>
<CRLF>
<RTRUE>)>
<TELL CR "Floyd bounces into the ">
<COND (<EQUAL? ,HERE ,UPPER-ELEVATOR
<TELL "elevator">)
<TELL "room">)
(T
<TELL "cabin">)>
<TELL
". \"Hey, wait for Floyd!\" he yells, smiling broadly." CR>)
(<EQUAL? ,HERE ,MINI-BOOTH>
<COND (<NOT ,FLOYD-INTRODUCED>
<CRLF>
<RTRUE>)>
<TELL CR
"\"Hi,\" whispers Floyd, tiptoeing in. \"Are we going to teleport into
the computer like Achilles always used to do?\"" CR>)
(<PROB 30>
<RFALSE>)>
<COND (,FLOYD-INTRODUCED
<COND (<AND <PROB 15>
<NOT <IN? ,ADVENTURER ,BED>>>
<TELL CR
"Floyd rushes into the room and barrels into you. \"Oops, sorry,\" he says.
\"Floyd not looking at where he was going to.\"" CR>)
(T
<TELL CR
"Floyd bounds into the room. \"Floyd here now!\" he cries." CR>)>
<KLUDGE>)
(T
<CRLF>
<CALL-ME-FLOYD>)>)>)>)>
<SETG FLOYD-SPOKE <>>>
<ROUTINE CALL-ME-FLOYD ()
<SETG FLOYD-INTRODUCED T>
<TELL
"The robot you were fiddling with in the Robot Shop bounds into the room.
\"Hi!\" he says, with a wide and friendly smile. \"You turn Floyd on?
Be Floyd's friend, yes?\"" CR>>
This is called when Floyd follows you into a new room. It handles a couple of one-time location responses.
<COND (<AND <EQUAL? ,HERE ,REPAIR-ROOM>
<NOT ,ACHILLES-FLAG>>
<SETG ACHILLES-FLAG T>
<SETG FLOYD-SPOKE T>
<TELL
"Floyd points at the fallen robot. \"That's Achilles. He was in charge of
repairing machinery. He repaired Floyd once. I never liked him much; he
wasn't friendly like other robots. Looks like he fell down the stairs.
He always had trouble with one of his feet working right. A Planner-person
once told me that's why they named him Achilles.\"" CR>)
(<AND <EQUAL? ,HERE ,COMPUTER-ROOM>
<NOT ,COMPUTER-FLAG>>
<COMPUTER-ACTION>)>>
<OBJECT DEAD-FLOYD
(DESC "mangled robot")
(LDESC
"Your former companion, Floyd, is lying on the ground in a pool of oil.")
(SYNONYM FLOYD ROBOT COMPAN)
(ADJECTIVE MANGLE DEAD FORMER)
(ACTION DEAD-FLOYD-F)>
<ROUTINE DEAD-FLOYD-F ()
<COND (<VERB? EXAMINE>
<TELL
"You turn to look at Floyd, but a tremendous sense of loss overcomes you, and
you turn away." CR>)
(<VERB? LAMP-ON>
<TELL
"As you touch Floyd's on-off switch, it falls off in your hands." CR>)
(<VERB? LAMP-OFF>
<TELL
"I'm afraid that Floyd has already been turned off, permanently, and gone to
that great robot shop in the sky." CR>)>>
<GLOBAL FLOYDISMS
<PLTABLE
"paces impatiently"
"absent-mindedly recites the first six hundred digits of pi"
"lowers his voice and tells you the latest rumors about Dr. Fizpick"
"recalls the time he bruised his knee"
"chants the death scene from \"Carmen\""
"cranes his neck to see what you are doing"
"rubs his head affectionately against your shoulder"
"asks if you want to play Hucka-Bucka-Beanstalk"
"examines himself for signs of rust"
"absent-mindedly oils one of his joints"
"wanders restlessly around the room"
"notices a mouse scurrying by and tries to hide behind you"
"sings an ancient ballad, totally out of key"
"frets about the possibility of his batteries failing"
"reminisces about his friend Lazarus, a medical robot"
"relates some fond memories about his robotic friend Lazarus"
"whistles tunelessly"
"tells you about the time he helped someone sharpen a pencil"
"yawns and looks bored"
"produces a crayon from one of his compartments and scrawls
his name on the wall">>
^L
;Elevator department
<ROOM ELEVATOR-LOBBY
(IN ROOMS)
(DESC "Elevator Lobby")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST"30 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(NORTH PER ELEVATOR-ENTER-F)
(SOUTH PER ELEVATOR-ENTER-F)
(WEST TO CORRIDOR-JUNCTION)
(EAST TO BOOTH-2)
(IN TO BOOTH-2)
(GLOBAL UPPER-ELEVATOR-DOOR LOWER-ELEVATOR-DOOR)
(PSEUDO "BOOTH" NEAR-BOOTH-PSEUDO)
(ACTION ELEVATOR-LOBBY-F)>
<ROUTINE ELEVATOR-LOBBY-F (RARG)
<COND (<EQUAL? .RARG ,M-LOOK>
<TELL
"This is a wide, brightly lit lobby. A blue metal door to the north is ">
<COND (<AND <FSET? ,UPPER-ELEVATOR-DOOR ,OPENBIT>
<EQUAL? ,UPPER-ELEVATOR-UP <>>>
<TELL "open">)
(T
<TELL "closed">)>
<TELL
" and a larger red metal door to the south is ">
<COND (<AND <FSET? ,LOWER-ELEVATOR-DOOR ,OPENBIT>
<EQUAL? ,LOWER-ELEVATOR-UP T>>
<COND (<AND <FSET? ,UPPER-ELEVATOR-DOOR ,OPENBIT>
<EQUAL? ,UPPER-ELEVATOR-UP <>>>
<TELL "also ">)>
<TELL "open">)
(T
<COND (<OR <NOT <FSET? ,UPPER-ELEVATOR-DOOR ,OPENBIT>>
<EQUAL? ,UPPER-ELEVATOR-UP T>>
<TELL "also ">)>
<TELL "closed">)>
<TELL
". Beside the blue door is a blue button, and beside the red door is
a red button. A corridor leads west. To the east is a small room
about the size of a telephone booth." CR>)>>
<ROOM UPPER-ELEVATOR
(IN ROOMS)
(DESC "Upper Elevator")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(OUT PER ELEVATOR-EXIT-F)
(SOUTH PER ELEVATOR-EXIT-F)
(UP "You'll have to use the elevator controls.")
(DOWN "You'll have to use the elevator controls.")
(GLOBAL LIGHTS CONTROLS SLOT ELEVATOR-BUTTON UPPER-ELEVATOR-DOOR)
(ACTION UPPER-ELEVATOR-F)>
<ROUTINE UPPER-ELEVATOR-F (RARG)
<COND (<EQUAL? .RARG ,M-LOOK>
<TELL
"You have entered a tiny room with a sliding door to the south which is ">
<TELL
". A control panel contains an Up button, a Down button, and a
narrow slot." CR>)
(<AND <EQUAL? .RARG ,M-END>
<NOT <FSET? ,UPPER-ELEVATOR-DOOR ,OPENBIT>>
<PROB 10>>
<TELL
"Some innocuous Hawaiian music oozes from the elevator's intercom." CR>)>>
<ROOM LOWER-ELEVATOR
(IN ROOMS)
(DESC "Lower Elevator")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(NORTH PER ELEVATOR-EXIT-F)
(OUT PER ELEVATOR-EXIT-F)
(UP "You'll have to use the elevator controls.")
(DOWN "You'll have to use the elevator controls.")
(GLOBAL LIGHTS CONTROLS SLOT ELEVATOR-BUTTON LOWER-ELEVATOR-DOOR)
(ACTION LOWER-ELEVATOR-F)>
<ROUTINE LOWER-ELEVATOR-F (RARG)
<COND (<EQUAL? .RARG ,M-LOOK>
<TELL
"This is a medium-sized room with a door to the north which is ">
<TELL
". A control panel contains an Up button, a Down button, and
a narrow slot." CR>)>>
<ROUTINE ELEVATOR-ENTER-F ()
<COND (<AND <FSET? ,UPPER-ELEVATOR-DOOR ,OPENBIT>
<EQUAL? ,UPPER-ELEVATOR-UP <>>>
(T
<RFALSE>)>)
<COND (<AND <FSET? ,LOWER-ELEVATOR-DOOR ,OPENBIT>
<EQUAL? ,LOWER-ELEVATOR-UP T>>
(T
<RFALSE>)>)>>
<ROUTINE ELEVATOR-EXIT-F ()
<COND (<EQUAL? ,HERE ,UPPER-ELEVATOR>
<COND (<FSET? ,UPPER-ELEVATOR-DOOR ,OPENBIT>
<COND (<EQUAL? ,UPPER-ELEVATOR-UP T>
(T
,ELEVATOR-LOBBY)>)
(T
<RFALSE>)>)
(<EQUAL? ,HERE ,LOWER-ELEVATOR>
<COND (<FSET? ,LOWER-ELEVATOR-DOOR ,OPENBIT>
<COND (<EQUAL? ,LOWER-ELEVATOR-UP T>
(T
,WAITING-AREA)>)
(T
<RFALSE>)>)>>
<OBJECT UPPER-ELEVATOR-DOOR
(IN LOCAL-GLOBALS)
(DESC "blue door")
(SYNONYM DOOR)
(ADJECTIVE UPPER ELEVATOR BLUE)
(ACTION UPPER-ELEVATOR-DOOR-F)>
<ROUTINE UPPER-ELEVATOR-DOOR-F ()
<COND (<VERB? OPEN>
<COND (<FSET? ,UPPER-ELEVATOR-DOOR ,OPENBIT>
<ALREADY-OPEN>)
(T
<TELL "It won't budge." CR>)>)
(<VERB? CLOSE>
<COND (<FSET? ,UPPER-ELEVATOR-DOOR ,OPENBIT>
<TELL "You can't close it yourself." CR>)
(T
<IS-CLOSED>)>)>>
<OBJECT LOWER-ELEVATOR-DOOR
(IN LOCAL-GLOBALS)
(DESC "red door")
(SYNONYM DOOR)
(ADJECTIVE RED LOWER ELEVATOR)
(ACTION LOWER-ELEVATOR-DOOR-F)>
<ROUTINE LOWER-ELEVATOR-DOOR-F ()
<COND (<VERB? OPEN>
<COND (<AND <FSET? ,LOWER-ELEVATOR-DOOR ,OPENBIT>
<EQUAL? ,HERE ,ELEVATOR-LOBBY>
<EQUAL? ,LOWER-ELEVATOR-UP T>>
<ALREADY-OPEN>)
(<AND <FSET? ,LOWER-ELEVATOR-DOOR ,OPENBIT>
<EQUAL? ,HERE ,WAITING-AREA>
<EQUAL? ,LOWER-ELEVATOR-UP <>>>
<ALREADY-OPEN>)
(T
<TELL "It won't budge." CR>)>)
(<VERB? CLOSE>
<COND (<AND <FSET? ,LOWER-ELEVATOR-DOOR ,OPENBIT>
<EQUAL? ,HERE ,ELEVATOR-LOBBY>
<EQUAL? ,LOWER-ELEVATOR-UP T>>
<TELL "You can't close it yourself." CR>)
(<AND <FSET? ,LOWER-ELEVATOR-DOOR ,OPENBIT>
<EQUAL? ,HERE ,WAITING-AREA>
<EQUAL? ,LOWER-ELEVATOR-UP <>>>
<TELL "You can't close it yourself." CR>)
(T
<IS-CLOSED>)>)>>
<ROUTINE DOOR-CLOSED ()
<TELL "The door is closed." CR>>
<OBJECT BLUE-ELEVATOR-BUTTON
(IN ELEVATOR-LOBBY)
(DESC "blue button")
(SYNONYM BUTTON)
(ADJECTIVE BLUE NORTH)
(FLAGS NDESCBIT)
(ACTION BLUE-ELEVATOR-BUTTON-F)>
<OBJECT RED-ELEVATOR-BUTTON
(IN ELEVATOR-LOBBY)
(DESC "red button")
(SYNONYM BUTTON)
(ADJECTIVE RED SOUTH)
(FLAGS NDESCBIT)
(ACTION RED-ELEVATOR-BUTTON-F)>
<ROUTINE BLUE-ELEVATOR-BUTTON-F ()
<COND (<AND <VERB? PUSH>
<EQUAL? ,UPPER-ELEVATOR-UP T>>
<COND (<EQUAL? <GET <INT I-UPPER-ELEVATOR-ARRIVE> ,C-ENABLED?> 1>
<TELL "Patience, patience..." CR>)
(T
<ENABLE<QUEUE I-UPPER-ELEVATOR-ARRIVE<+<RANDOM 20> 40>>>
<TELL
"You hear a faint whirring noise from behind the blue door." CR>)>)>>
<ROUTINE RED-ELEVATOR-BUTTON-F ()
<COND (<AND <VERB? PUSH>
<EQUAL? ,LOWER-ELEVATOR-UP <>>>
<COND (<EQUAL? <GET <INT I-LOWER-ELEVATOR-ARRIVE> ,C-ENABLED?> 1>
<TELL "Patience, patience..." CR>)
(T
<ENABLE<QUEUE I-LOWER-ELEVATOR-ARRIVE<+<RANDOM 40> 80>>>
<TELL "The red door begins vibrating a bit." CR>)>)>>
<ROUTINE I-UPPER-ELEVATOR-ARRIVE ()
<FSET ,UPPER-ELEVATOR-DOOR ,OPENBIT>
<SETG UPPER-ELEVATOR-UP <>>
<DISABLE <INT I-UPPER-ELEVATOR-ARRIVE>>
<COND (<EQUAL? ,HERE ,ELEVATOR-LOBBY>
<TELL CR
"The door at the north end of the room slides open." CR>)
(T
<RFALSE>)>>
<ROUTINE I-LOWER-ELEVATOR-ARRIVE ()
<FSET ,LOWER-ELEVATOR-DOOR ,OPENBIT>
<SETG LOWER-ELEVATOR-UP T>
<DISABLE <INT I-LOWER-ELEVATOR-ARRIVE>>
<COND (<EQUAL? ,HERE ,ELEVATOR-LOBBY>
<TELL CR
"The door at the south end of the room slides open." CR>)
(T
<RFALSE>)>>
<OBJECT ELEVATOR-BUTTON
(IN LOCAL-GLOBALS)
(DESC "button")
(SYNONYM BUTTON)
(FLAGS NDESCBIT)
(ACTION ELEVATOR-BUTTON-F)>
;"*-ELEVATOR-UP should be <> if elevator is at bottom of shaft and T if
elevator is at top of shaft"
<GLOBAL LOWER-ELEVATOR-UP <>>
<GLOBAL UPPER-ELEVATOR-UP T>
<GLOBAL ELEVATOR-IN-TRANSIT <>> ;"should be T if elevator is in transit"
<GLOBAL LOWER-ELEVATOR-ON <>> ;"elevator enabled by card in slot?"
<GLOBAL UPPER-ELEVATOR-ON <>> ;"elevator enabled by card in slot?"
<ROUTINE ELEVATOR-BUTTON-F ()
<COND (<VERB? PUSH-UP>
<COND (<AND <EQUAL? ,HERE ,LOWER-ELEVATOR>
<EQUAL? ,LOWER-ELEVATOR-UP <>>
<EQUAL? ,LOWER-ELEVATOR-ON T>
<EQUAL? ,ELEVATOR-IN-TRANSIT <>>>
<TELL ,ELEVATOR-STARTS CR>
<FCLEAR ,LOWER-ELEVATOR-DOOR ,OPENBIT>
<SETG ELEVATOR-IN-TRANSIT T>
<ENABLE <QUEUE I-LOWER-ELEVATOR-TRIP 100>>)
(<AND <EQUAL? ,HERE ,UPPER-ELEVATOR>
<EQUAL? ,UPPER-ELEVATOR-UP <>>
<EQUAL? ,UPPER-ELEVATOR-ON T>
<EQUAL? ,ELEVATOR-IN-TRANSIT <>>>
<TELL ,ELEVATOR-STARTS CR>
<FCLEAR ,UPPER-ELEVATOR-DOOR ,OPENBIT>
<SETG ELEVATOR-IN-TRANSIT T>
<ENABLE <QUEUE I-UPPER-ELEVATOR-TRIP 50>>)
(T
<TELL "Nothing happens." CR>)>)
(<VERB? PUSH-DOWN>
<COND (<AND <EQUAL? ,HERE ,LOWER-ELEVATOR>
<EQUAL? ,LOWER-ELEVATOR-UP T>
<EQUAL? ,LOWER-ELEVATOR-ON T>
<EQUAL? ,ELEVATOR-IN-TRANSIT <>>>
<TELL ,ELEVATOR-STARTS CR>
<FCLEAR ,LOWER-ELEVATOR-DOOR ,OPENBIT>
<SETG ELEVATOR-IN-TRANSIT T>
<ENABLE <QUEUE I-LOWER-ELEVATOR-TRIP 100>>)
(<AND <EQUAL? ,HERE ,UPPER-ELEVATOR>
<EQUAL? ,UPPER-ELEVATOR-UP T>
<EQUAL? ,UPPER-ELEVATOR-ON T>
<EQUAL? ,ELEVATOR-IN-TRANSIT <>>>
<TELL ,ELEVATOR-STARTS CR>
<FCLEAR ,UPPER-ELEVATOR-DOOR ,OPENBIT>
<SETG ELEVATOR-IN-TRANSIT T>
<ENABLE <QUEUE I-UPPER-ELEVATOR-TRIP 50>>)
(T
<TELL "Nothing happens." CR>)>)
(<VERB? PUSH>
<TELL
"You must specify whether you want to push the Up button or
the Down button." CR>)>>
<ROUTINE I-TURNOFF-UPPER-ELEVATOR ()
<COND (,ELEVATOR-IN-TRANSIT
<ENABLE <QUEUE I-TURNOFF-UPPER-ELEVATOR 120>>)
(T
<SETG UPPER-ELEVATOR-ON <>>
<COND (<EQUAL? ,HERE ,UPPER-ELEVATOR>
<TELL CR ,ELEVATOR-LIGHT-OFF CR>)>)>
<RFALSE>>
<ROUTINE I-TURNOFF-LOWER-ELEVATOR ()
<COND (,ELEVATOR-IN-TRANSIT
<ENABLE <QUEUE I-TURNOFF-LOWER-ELEVATOR 120>>)
(T
<SETG LOWER-ELEVATOR-ON <>>
<COND (<EQUAL? ,HERE ,LOWER-ELEVATOR>
<TELL CR ,ELEVATOR-LIGHT-OFF CR>)>)>
<RFALSE>>
<GLOBAL ELEVATOR-LIGHT-OFF "A recording says \"Elevator no longer enabled.\"">
<GLOBAL ELEVATOR-STARTS
"The elevator door slides shut. After a moment, you feel a sensation of
vertical movement.">
<ROUTINE I-UPPER-ELEVATOR-TRIP ()
<COND (<EQUAL? ,UPPER-ELEVATOR-UP T>
<SETG UPPER-ELEVATOR-UP <>>
<SETG ELEVATOR-IN-TRANSIT <>>
<FSET ,UPPER-ELEVATOR-DOOR ,OPENBIT>
<CRLF>
(T
<SETG UPPER-ELEVATOR-UP T>
<SETG ELEVATOR-IN-TRANSIT <>>
<FSET ,UPPER-ELEVATOR-DOOR ,OPENBIT>
<CRLF>
<ELEVATOR-DOOR-OPENS>)>>
<ROUTINE I-LOWER-ELEVATOR-TRIP ()
<COND (<EQUAL? ,LOWER-ELEVATOR-UP T>
<SETG LOWER-ELEVATOR-UP <>>
<SETG ELEVATOR-IN-TRANSIT <>>
<FSET ,LOWER-ELEVATOR-DOOR ,OPENBIT>
<CRLF>
(T
<SETG LOWER-ELEVATOR-UP T>
<SETG ELEVATOR-IN-TRANSIT <>>
<FSET ,LOWER-ELEVATOR-DOOR ,OPENBIT>
<CRLF>
<ELEVATOR-DOOR-OPENS>)>>
<ROUTINE ELEVATOR-DOOR-OPENS ()
<TELL "The elevator door slides open." CR>>
<ROOM BOOTH-2
(IN ROOMS)
(DESC "Booth 2")
(LDESC
"This is a tiny room with a large \"2\" painted on the wall. A panel contains
a slot about ten centimeters wide, a brown button labelled \"1\" and a tan
button labelled \"3.\"")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(WEST TO ELEVATOR-LOBBY)
(OUT TO ELEVATOR-LOBBY)
(PSEUDO "BOOTH" IN-BOOTH-PSEUDO)
<ROOM TOWER-CORE
(IN ROOMS)
(DESC "Tower Core")
(LDESC
"This is a small, circular room. A sliding door leads north, and a spiral
staircase heads upwards. Other exits lie to the northeast and southwest.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 30
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(NORTH TO UPPER-ELEVATOR)
(UP TO HELIPAD)
(SW TO OBSERVATION-DECK)
(NE TO COMM-ROOM)
(VALUE 4)
(GLOBAL STAIRS UPPER-ELEVATOR-DOOR)>
<ROOM HELIPAD
(IN ROOMS)
(DESC "Helipad")
(LDESC
"You are at the center of a wide, flat area atop the tower. A fence
prevents you from approaching the perimeter, so your view is limited to
cloud-filled sky. A large vehicle, severely weathered and topped with rotor
blades, lies nearby. A spiral staircase leads down into the tower.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN"15 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(DOWN TO TOWER-CORE)
(IN TO HELICOPTER)
(EAST "A fence keeps you away from the edge, where you would probably
be swept over the brink by the high winds.")
(WEST "A fence keeps you away from the edge, where you would probably
be swept over the brink by the high winds.")
(NORTH "A fence keeps you away from the edge, where you would probably
be swept over the brink by the high winds.")
(SOUTH "A fence keeps you away from the edge, where you would probably
be swept over the brink by the high winds.")
(PSEUDO "FENCE" FENCE-PSEUDO)
(GLOBAL STAIRS HELICOPTER-OBJECT)>
<OBJECT HELICOPTER-OBJECT
(IN LOCAL-GLOBALS)
(DESC "large vehicle")
(SYNONYM VEHICLE HELICOPTER)
(ADJECTIVE LARGE)
(ACTION HELICOPTER-OBJECT-F)>
<ROUTINE HELICOPTER-OBJECT-F ()
<COND (<VERB? THROUGH BOARD WALK-TO>
<GOTO ,HELICOPTER>)
(T
<TELL "You're in it!" CR>)>)
(<VERB? EXIT DROP DISEMBARK>
<COND (<EQUAL? ,HERE ,HELICOPTER>
(T
<TELL "You're not in it!" CR>)>)
(<VERB? FLY>
<COND (<EQUAL? ,HERE ,HELICOPTER>
<TELL "The controls seem to be locked." CR>)
(T
<TELL "You're not even in it!" CR>)>)>>
<ROOM HELICOPTER
(IN ROOMS)
(DESC "Helicopter")
(LDESC
"This is a large vehicle with a lot of cargo space. A complex control panel
is closed and locked. Everything is covered with a thick layer of rust.
Through the windows of the vehicle you can see a wide Helipad, and beyond
that, endless ocean far below. Several doors lead out to the Helipad.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(OUT TO HELIPAD)
(PSEUDO "LOCK" LOCK-PSEUDO)
(GLOBAL OCEAN CONTROLS WINDOW HELICOPTER-OBJECT)>
<ROOM COMM-ROOM
(IN ROOMS)
(DESC "Comm Room")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(SW TO TOWER-CORE)
(GLOBAL LIGHTS)
(PSEUDO "CABLES" CABLES-PSEUDO "ENUNCI" ENUNCIATOR-PSEUDO)
(ACTION COMM-ROOM-F)>
<ROUTINE COMM-ROOM-F (RARG)
<COND (<EQUAL? .RARG ,M-LOOK>
<TELL
"This is a small room with no windows. The sole exit is southwest. Two wide
consoles fill either end of the room; thick cables lead up into the ceiling.|
|
The console on the left side of the room is labelled \"Reeseev Staashun.\" A
bright red light, labelled \"Tranzmishun Reeseevd\", is blinking rapidly.
Next to the light is a glowing button marked \"Mesij Plaabak.\"|
|
The console on the right side of the room is labelled \"Send Staashun.\" A
screen on the console displays a message. Next to the screen is a flashing
sign which says ">
<COND (,COMM-SHUTDOWN
<SHUTDOWN>)
<TELL "\"Tranzmishun in pragres.\"">)
(T
<TELL "\"Malfunkshun in Sendeeng Kuulint Sistum.\"">)>
<TELL " Next to this console is an enunciator">
<COND (<OR ,COMM-FIXED ,COMM-SHUTDOWN>
<TELL " whose lights are all dark">)>
<TELL
". On the console next to the enunciator panel is a funnel-shaped hole
labelled \"Kuulint Sistum Manyuuwul Oovuriid.\"" CR>)
(<AND <EQUAL? .RARG ,M-END>
<NOT ,COMM-FIXED>
<NOT ,COMM-SHUTDOWN>
<SETG JUST-ENTERED <>>
<TELL "A ">
<COND (<EQUAL? ,CHEMICAL-REQUIRED 1>
<TELL "red">)
(<EQUAL? ,CHEMICAL-REQUIRED 2>
<TELL "blue">)
(<EQUAL? ,CHEMICAL-REQUIRED 3>
<TELL "green">)
(<EQUAL? ,CHEMICAL-REQUIRED 4>
<TELL "yellow">)
(<EQUAL? ,CHEMICAL-REQUIRED 5>
<TELL "gray">)
(<EQUAL? ,CHEMICAL-REQUIRED 6>
<TELL "brown">)
(<EQUAL? ,CHEMICAL-REQUIRED 7>
<TELL "black">)>
<TELL
" colored light is flashing on the enunciator panel." CR>)>>
<GLOBAL JUST-ENTERED T>
<ROUTINE I-UNENTER ()
<SETG JUST-ENTERED T>
<DISABLE <INT I-UNENTER>>)>
<RFALSE>>
<OBJECT RECEIVE-CONSOLE
(IN COMM-ROOM)
(DESC "communications receive console")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(SYNONYM CONSOLE CONTRO)
(ADJECTIVE COMMUNICATIONS RECEIVE LEFT FIRST)
(FLAGS NDESCBIT)>
<OBJECT PLAYBACK-BUTTON
(IN COMM-ROOM)
(DESC "glowing button")
(SYNONYM BUTTON)
(ADJECTIVE GLOWIN PLAYBA)
(FLAGS NDESCBIT)
(ACTION PLAYBACK-BUTTON-F)>
<ROUTINE PLAYBACK-BUTTON-F ()
<COND (<VERB? PUSH>
<TELL
"A voice fills the room ... the voice of the Feinstein's communications
officer! \"Stellar Patrol Ship Feinstein to planetside ... Please respond
on frequency 48.5 ... SPS Feinstein to planetside ... Please come in ...\"
After a pause you hear the officer, in a quieter voice, say \"Admiral, no
response on any of the standard frequen...\" The sentence is cut short by the
sound of an explosion and a loud burst of static, followed by silence." CR>)>>
<OBJECT SEND-CONSOLE
(IN COMM-ROOM)
(DESC "communication send console")
(SYNONYM CONSOLE CONTRO)
(ADJECTIVE COMMUNICATIONS SEND RIGHT SECOND)
(FLAGS NDESCBIT)>
<OBJECT COMM-SCREEN
(IN COMM-ROOM)
(DESC "screen")
(SYNONYM COMMUNICATIONS MESSAGE SCREEN)
(TEXT
"\"Tuu enee ship uv xe Sekund Galaktik Yuunyun: Planitwiid plaag haz struk
entiir popyuulaashun. Tiim iz kritikul. Eemurjensee asistins reekwestid.
<reepeet mesij>\"")>
<OBJECT FUNNEL-HOLE
(IN COMM-ROOM)
(DESC "funnel-shaped hole")
(SYNONYM HOLE)
(ADJECTIVE FUNNEL SHAPED)
(FLAGS NDESCBIT)>
<OBJECT CHEMICAL-FLUID
(DESC "quantity of chemical fluid")
(SYNONYM QUANTITY LIQUID FLUID CHEMICAL)
(ADJECTIVE MILKY WHITE CHEMICAL)
(ACTION CHEMICAL-FLUID-F)>
<ROUTINE RANDOMIZE-ORDER ("AUX" (COUNT 0) TEMP)
<REPEAT ()
<COND (<G? <SET COUNT <+ .COUNT 1>> 7>
<RETURN>)
(T
<PUT ,ORDER-LTBL .COUNT <>>)>>
<SET COUNT 0>
<REPEAT ()
<COND (<G? <SET COUNT <+ .COUNT 1>> 7>
<RETURN>)
(T
<SET TEMP <RANDOM 7>>
<COND (<OR <EQUAL? .TEMP <GET ,ORDER-LTBL 1>
<GET ,ORDER-LTBL 2>
<GET ,ORDER-LTBL 3>>
<EQUAL? .TEMP <GET ,ORDER-LTBL 4>
<GET ,ORDER-LTBL 5>
<GET ,ORDER-LTBL 6>>
<EQUAL? .TEMP <GET ,ORDER-LTBL 7>>>
<SET COUNT <- .COUNT 1>>)
(T
<PUT ,ORDER-LTBL .COUNT .TEMP>)>)>>>
<GLOBAL ORDER-LTBL
<LTABLE 0 0 0 0 0 0 0>>
<ROUTINE CHEMICAL-FLUID-F ()
<COND (<VERB? EAT>
"Mmmmm....that tasted just like delicious poisonous chemicals!">)
(<AND <VERB? PUT>
<EQUAL? ,PRSI ,CHEMICAL-FLUID>>
<RTRUE>)
(<AND <VERB? THROW POUR>
<TELL "You're not holding the flask." CR>
<RTRUE>)>
<REMOVE ,CHEMICAL-FLUID>
<TELL
"The mutants lap up the chemical, howling with delight. One immediately
grows three new mouths." CR>)
(<VERB? PUT POUR>
<TELL "You're not holding the flask." CR>
<RTRUE>)
<RTRUE>)>
<REMOVE ,CHEMICAL-FLUID>
<COND (<NOT ,PRSI>
<COND (<EQUAL? ,PRSI ,FUNNEL-HOLE>
<COND (<EQUAL? ,CHEMICAL-FLAG ,CHEMICAL-REQUIRED>
<SETG CHEMICAL-REQUIRED
<GET ,ORDER-LTBL ,STEPS-TO-GO>>
<SETG STEPS-TO-GO <- ,STEPS-TO-GO 1>>
<TELL
"The liquid disappears into the hole. The lights on the enunciator
panel blink rapidly ">
<COND (<EQUAL? ,STEPS-TO-GO 0>
<SETG COMM-FIXED T>
<SETG CHEMICAL-REQUIRED 10>
<TELL
"and then go dark. The coolant system warning light goes off, and another
flashes, indicating that the help message is now being sent." CR>)
(T
<TELL "and all go off except one, a ">
<COND (<EQUAL? ,CHEMICAL-REQUIRED 1>
<TELL "red">)
(<EQUAL? ,CHEMICAL-REQUIRED 2>
<TELL "blue">)
(<EQUAL? ,CHEMICAL-REQUIRED 3>
<TELL "green">)
(<EQUAL? ,CHEMICAL-REQUIRED 4>
<TELL "yellow">)
(<EQUAL? ,CHEMICAL-REQUIRED 5>
<TELL "gray">)
(<EQUAL? ,CHEMICAL-REQUIRED 6>
<TELL "brown">)
(<EQUAL? ,CHEMICAL-REQUIRED 7>
<TELL "black">)>
<TELL " light." CR>)>)
(T
<SETG COMM-SHUTDOWN T>
<COND (,COMM-FIXED
<SETG COMM-FIXED <>>)>
<TELL
"An alarm sounds briefly, and a sign flashes ">
<SHUTDOWN>
<TELL
" A moment later, the lights in the room dim and the send
console shuts down." CR>)>)
(<EQUAL? ,CHEMICAL-FLAG 8 9>
<COND (<EQUAL? ,PRSI ,SPOUT-PLACED>
<SETG SPOUT-PLACED ,GROUND>)>
<REMOVE ,PRSI>
<TELL
"The " D ,PRSI " dissolves right before your eyes!">
<COND (<AND <EQUAL? ,PRSI ,BAD-BEDISTOR>
<NOT <FSET? ,BAD-BEDISTOR ,TOUCHBIT>>>
<CUBE-SEEMS>)
(<AND <EQUAL? ,PRSI ,GOOD-BEDISTOR>
<SETG COURSE-CONTROL-FIXED <>>
<CUBE-SEEMS>)>
<CRLF>
<RTRUE>)
<TELL
"A puff of smoke rises from the crevice." CR>)
(T
<TELL
"Although the chemical has no effect on the crevice, it does seem to have
dissolved the key that was lying in it." CR>)>
<REMOVE ,KEY>
(<EQUAL? ,PRSI ,HIGH-PROTEIN ,MEDICINE>
"Unfortunately, those two liquids seem to react quite violently with each
other. The resulting exothermic reaction might have been interesting to
watch from a distance of, say, several hundred feet.">)
(<EQUAL? ,PRSI ,ME ,ADVENTURER ,HANDS>
"Have you always had this desire to see melting flesh?">)
<TELL
"Floyd yelps. \"Hey, cut it out! That stuff burns!\"" CR>)
<TELL "The microbe writhes in pain. ">
<COND (<EQUAL? ,PRSI ,CHRONOMETER>
<SETG MUNGED-TIME ,INTERNAL-MOVES>)>
<TELL
"The " D ,PRSI " seems to undergo some damage as a result of your action." CR>
<SETG COURSE-CONTROL-FIXED <>>
<REMOVE ,GOOD-BEDISTOR>
<TELL
"The bedistor also happens to dissolve." CR>)>
<RTRUE>)
(T
<CHEMICAL-POURS>)>)
(T
<CHEMICAL-POURS>)>)>>
<ROUTINE CUBE-SEEMS ()
<TELL
" Unfortunately, the cube seems to undergo some damage as well.">>
<ROUTINE CHEMICAL-POURS ()
<TELL
"The chemical pours all over the " D ,PRSI ", making quite a mess." CR>>
<ROUTINE STRIP-DISSOLVES ()
"The chemical drips all over the silicon strip, which immediately begins to
dissolve. As it does so, you plunge into the void below.">>
<GLOBAL COMM-SHUTDOWN <>>
<ROUTINE SHUTDOWN ()
<TELL
"\"Kuulint Sistum Imbalins Kritikul -- Shuteeng Down Awl Sistumz.\"">>
<ROUTINE COMM-SETUP () ;"was called by GO - now by I-RANDOM-INTERRUPTS"
<SETG OLD-SHOTS <+ 2 <RANDOM 3>>>
<SETG NEW-SHOTS <+ 20 <RANDOM 10>>>
<SETG STEPS-TO-GO <+ 1 <RANDOM 2>>>
<SETG CHEMICAL-REQUIRED <GET ,ORDER-LTBL <+ ,STEPS-TO-GO 1>>>>
<GLOBAL COMM-FIXED <>>
<GLOBAL CHEMICAL-REQUIRED 0>
<GLOBAL STEPS-TO-GO 0>
<ROOM OBSERVATION-DECK
(IN ROOMS)
(DESC "Observation Deck")
(LDESC
"This is a balcony girdling the tower. The view is breathtaking; the tower
must be half a kilometer tall. From here it is clear that you are on an
island. The dormitory section of the complex is visible on the other side
of the island, and the rest of the complex sprawls out directly below. In
the distance, about 20 kilometers to the east, you can spot another island
similar to this one. The only exit is a doorway leading northeast.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(NE TO TOWER-CORE)
(GLOBAL OCEAN)>
<ROOM WAITING-AREA
(IN ROOMS)
(DESC "Waiting Area")
(LDESC
"This is a concrete platform sparsely furnished with benches. The platform
continues to the east, and to the south is a metal door.")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(EAST TO KALAMONTEE-PLATFORM)
(SOUTH PER OTHER-ELEVATOR-ENTER-F)
(IN PER OTHER-ELEVATOR-ENTER-F)
(PSEUDO "BENCH" BENCH-PSEUDO "BENCHE" BENCH-PSEUDO)
(GLOBAL LOWER-ELEVATOR-DOOR)
<ROUTINE OTHER-ELEVATOR-ENTER-F ()
<COND (<AND <FSET? ,LOWER-ELEVATOR-DOOR ,OPENBIT>
<NOT ,LOWER-ELEVATOR-UP>>
(T
<RFALSE>)>>
<ROOM KALAMONTEE-PLATFORM
(IN ROOMS)
(DESC "Kalamontee Platform")
(C-MOVE <TABLE
;"OUT" 0 ;"IN" 0 ;"DOWN" 0 ;"UP" 0
;"NW" 0 ;"WEST" 0 ;"SW" 0 ;"SOUTH" 0
;"SE" 0 ;"EAST" 0 ;"NE" 0 ;"NORTH" 0>)
(WEST TO WAITING-AREA)
(SOUTH PER SHUTTLE-ENTER-F)
(NORTH PER SHUTTLE-ENTER-F)
(VALUE 4)
(GLOBAL GLOBAL-SHUTTLE)
(ACTION KALAMONTEE-PLATFORM-F)>
<ROUTINE KALAMONTEE-PLATFORM-F (RARG)
<COND (<EQUAL? .RARG ,M-LOOK>
<TELL
"This is a wide, flat strip of concrete which continues westward. ">
<COND (<AND ,BETTY-AT-KALAMONTEE ,ALFIE-AT-KALAMONTEE>
<TELL
"Open shuttle cars lie on the north and south sides of the platform. ">)
<TELL
"An open shuttle car lies to the north. ">)
<TELL
"A large transport of some sort lies to the south, its open door
beckoning you to enter. ">)>
<TELL "A faded sign on the wall reads \"Shutul Platform --
Kalamontee Staashun.\"" CR>)>>