1716 lines
58 KiB
Plaintext
1716 lines
58 KiB
Plaintext
"ROOMS for
|
|
SUSPENDED
|
|
(c) Copyright 1982 Infocom, Inc. All Rights Reserved.
|
|
"
|
|
|
|
;"ROOM DESCS & DECLAR FOR SUSPENSION"
|
|
|
|
<ROOM CPU-ROOM
|
|
(IN ROOMS)
|
|
(DESC "Central Chamber")
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(SYNONYM CHAMBER GLOBE)
|
|
(ADJECTIVE CENTRAL)
|
|
(WEST TO WEATHER-BANKS)
|
|
(EAST TO SERVO-SYSTEMS)
|
|
(SOUTH TO RTD-BANKS)
|
|
(NE TO CORRIDOR-1)
|
|
(GLOBAL WIRING)
|
|
(ROOMDESCS <PLTABLE
|
|
"I'm in a large room which looks like the inside of a globe. The walls seem sculptured with wiring, swirling around the room's perimeter, leading into a tall column. The column itself has a door on its face. Doorways lead to the west, south, east and northeast."
|
|
"Sonar indicates a large, spherical open area with a hollow column running from floor to ceiling. The column reflects sonar evenly indicating no distinguishing external characteristics."
|
|
"All around me charges flow, shaped by the very nature of this room. The electrons are being channeled into an electrical column, central to this environment."
|
|
"A small humming can be detected from a column which extends from floor to ceiling."
|
|
"It hops and skips and leaves a bit, and can't decide if it should quit. It tells the world what it should know, but doesn't know when it's been shown."
|
|
"The CLC indicates this area is tagged as the Central Processing Unit due to an object, the CPU, which sits in the center of the room.">)
|
|
(ACTION CPU-FCN)
|
|
(STATION CPU-ROOM)
|
|
(LINE 1)
|
|
(CORRIDOR 8)>
|
|
|
|
<ROUTINE CPU-FCN ("OPTIONAL" (RARG <>))
|
|
<COND (<EQUAL? .RARG ,M-BEG>
|
|
<COND (<AND <IRIS?>
|
|
<VERB? WALK>
|
|
<EQUAL? ,PRSO ,P?NE>>
|
|
<ROBOT-TELL
|
|
"I can't go in that direction. Internal mapping does not extend into those
|
|
areas.">
|
|
<RTRUE>)>)>>
|
|
|
|
<ROOM WEATHER-BANKS
|
|
(IN ROOMS)
|
|
(DESC "Weather Monitors")
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(SYNONYM MONITO)
|
|
(ADJECTIVE WEATHE)
|
|
(EAST TO CPU-ROOM)
|
|
(WEST TO SUPPLIES-NORTH)
|
|
(SOUTH TO SUPPLIES-SOUTH)
|
|
(ACTION WEATHER-BANKS-FCN)
|
|
(ROOMDESCS <PLTABLE
|
|
"All around me I see meters indicating the state of the weather conditions on all three planet-side continents."
|
|
"This large area has smooth walls."
|
|
"My receptors detect huge electrical flow through the walls and meters all around me."
|
|
0
|
|
"They puff and billow and strain a bit, roar then ebb with time."
|
|
"I detect communication between devices here and the CLC.">)
|
|
(LINE 1)
|
|
(STATION WEATHER-BANKS)
|
|
(GLOBAL MONITOR)>
|
|
|
|
<ROUTINE WEATHER-BANKS-FCN ("OPTIONAL" (RARG <>) "AUX" STR)
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<LONG-DESCS>
|
|
<COND (<AND <IRIS?>
|
|
,IRIS-FIXED>
|
|
<COND (<L? ,DEGREES 31>
|
|
<COND (<L? ,WINDS 10>
|
|
<SET STR "snow">)
|
|
(<L? ,WINDS 30>
|
|
<SET STR "snowstorm">)
|
|
(<L? ,WINDS 60>
|
|
<SET STR "heavy snow">)
|
|
(<L? ,WINDS 80>
|
|
<SET STR "blinding snowstorm">)
|
|
(<L? ,WINDS 100>
|
|
<SET STR "blizzard">)
|
|
(ELSE
|
|
<SET STR "raging blizzard">)>)
|
|
(<L? ,DEGREES 41>
|
|
<COND (<L? ,WINDS 10>
|
|
<SET STR "light sleet">)
|
|
(<L? ,WINDS 20>
|
|
<SET STR "heavy sleet">)
|
|
(<L? ,WINDS 30>
|
|
<SET STR "blinding sleet">)
|
|
(<L? ,WINDS 40>
|
|
<SET STR "wall of sleet">)
|
|
(<L? ,WINDS 50>
|
|
<SET STR "torrential sleet">)
|
|
(ELSE
|
|
<SET STR "raging sleet storm">)>)
|
|
(ELSE
|
|
<COND (<L? ,WINDS 10>
|
|
<SET STR "fine, light mist">)
|
|
(<L? ,WINDS 20>
|
|
<SET STR "light drizzle">)
|
|
(<L? ,WINDS 30>
|
|
<SET STR "rain shower">)
|
|
(<L? ,WINDS 40>
|
|
<SET STR "downpour">)
|
|
(<L? ,WINDS 50>
|
|
<SET STR "wall of rain">)
|
|
(ELSE
|
|
<SET STR "hurricane-like storm">)>)>
|
|
<TELL
|
|
"The monitors for surface weather show:|
|
|
">
|
|
<FIXED-FONT-ON>
|
|
<TELL "|
|
|
TEMP: " N ,DEGREES " WINDS: " N ,WINDS "|
|
|
PRECIPITATION: a " .STR "|
|
|
TOWER PRESSURES: Tower 1 -- " N ,PRESSURE1 "|
|
|
Tower 2 -- " N ,PRESSURE2 "|
|
|
Tower 3 -- " N ,PRESSURE3>
|
|
<CRLF>
|
|
<FIXED-FONT-OFF>
|
|
<WEATHER-ROBOTS>)>
|
|
<RTRUE>)>>
|
|
|
|
<ROUTINE WEATHER-ROBOTS ("AUX" (COUNT 0) (OFFSET 0) OBJ CHECK-LOC)
|
|
<COND (<IN? ,IRIS ,WEATHER-BANKS>
|
|
<SET CHECK-LOC ,WEATHER>)
|
|
(<IN? ,IRIS ,RTD-BANKS>
|
|
<SET CHECK-LOC ,RTD>)
|
|
(T
|
|
<SET CHECK-LOC ,HYDRO>)>
|
|
<REPEAT ()
|
|
<COND (<IN? <GET ,NAME-TBL .OFFSET> .CHECK-LOC>
|
|
<SET COUNT <+ .COUNT 1>>)>
|
|
<COND (<G? <SET OFFSET <+ .OFFSET 1>> 5>
|
|
<RETURN>)>>
|
|
<COND (<EQUAL? .COUNT 0> <RTRUE>)>
|
|
<TELL "Through the monitors I can see ">
|
|
<SET OFFSET 0>
|
|
<REPEAT ()
|
|
<COND (<AND <IN? <SET OBJ <GET ,NAME-TBL .OFFSET>> .CHECK-LOC>
|
|
<NOT <EQUAL? ,WINNER .OBJ>>>
|
|
<TELL D .OBJ>
|
|
<COND (<EQUAL? .COUNT 1>
|
|
<RETURN>)
|
|
(<EQUAL? .COUNT 2>
|
|
<TELL " and ">)
|
|
(T <TELL ", ">)>
|
|
<SET COUNT <- .COUNT 1>>)>
|
|
<SET OFFSET <+ .OFFSET 1>>>
|
|
<TELL " in the " SD .CHECK-LOC "." CR>>
|
|
|
|
<ROOM SUPPLIES-SOUTH
|
|
(IN ROOMS)
|
|
(DESC "Sub Supply Room")
|
|
(FLAGS ONBIT RLANDBIT)
|
|
(SYNONYM SUPPLY)
|
|
(ADJECTIVE SUB)
|
|
(NORTH TO WEATHER-BANKS)
|
|
(WEST TO SUPPLIES-MID)
|
|
(GLOBAL DEBRIS)
|
|
(ROOMDESCS <PLTABLE
|
|
"I am in a sub-station of the supply rooms. The room is small, with debris littering the floor."
|
|
"Sonar detects totally irregular patterns on the walls as if shelving had been mounted there."
|
|
"The air here is still. No vibrational activity."
|
|
0
|
|
"It burns and wields tremendous light and makes our joints delight its might."
|
|
0>)
|
|
(LINE 1)
|
|
(STATION WEATHER-BANKS)>
|
|
|
|
<ROOM CORRIDOR-1
|
|
(IN ROOMS)
|
|
(DESC "Angling Corridor")
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(SYNONYM CORRID)
|
|
(ADJECTIVE ANGLING)
|
|
(SW TO CPU-ROOM)
|
|
(NE TO CORRIDOR-2)
|
|
(ROOMDESCS <PLTABLE
|
|
"This is a long, angling corridor which continues to the northeast."
|
|
"I am in a narrow, long, straight tunnel with smooth walls."
|
|
0
|
|
"The steady hum of the air conditioning seems to drown out subtler noises."
|
|
"Through which it all flows, we are as one."
|
|
"I can feel the emanations of my parent machine, the CLC, nearby.">)
|
|
(LINE 1)
|
|
(STATION CORRIDOR-1)
|
|
(CORRIDOR 8)
|
|
(GLOBAL AIRCON)>
|
|
|
|
<ROOM SUPPLIES-MID
|
|
(IN ROOMS)
|
|
(DESC "Middle Supply Room")
|
|
(SYNONYM SUPPLY)
|
|
(ADJECTIVE MIDDLE)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(GLOBAL DEBRIS)
|
|
(NORTH TO SUPPLIES-NORTH)
|
|
(EAST TO SUPPLIES-SOUTH)
|
|
(ROOMDESCS <PLTABLE
|
|
"This is the middle of an L-shaped supply room. Scattered about on the floor
|
|
are all kinds of debris. Nothing looks salvageable."
|
|
"I keep bumping into all sorts of junk on the floor, none of which seems to
|
|
be intact." 0 0 "From junk we spring, to junk we go." 0 >)
|
|
(LINE 1)
|
|
(STATION SUPPLIES-MID)>
|
|
|
|
<ROOM SUPPLIES-NORTH
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Main Supply Room")
|
|
(SYNONYM SUPPLY)
|
|
(ADJECTIVE MAIN)
|
|
(ROOMDESCS <PLTABLE "foo">)
|
|
(EAST TO WEATHER-BANKS)
|
|
(SOUTH TO SUPPLIES-MID)
|
|
(ACTION SUPPLIES-N-FCN)
|
|
(GLOBAL DEBRIS)
|
|
(LINE 1)
|
|
(STATION SUPPLIES-NORTH)>
|
|
|
|
<GLOBAL LDSUPPLIES
|
|
<PLTABLE
|
|
"I'm in the northernmost portion of a large, messy area where debris is scattered about as if something had shaken it loose from the walls. Sitting near the wall is a machine which has a little orange button on its face. Beside the button are two small sockets, one red and one yellow"
|
|
"Moving about here is difficult due to the debris scattered about but I can detect a medium-sized object distinct from the jumble. Sonar detects two small depressions beside a raised spot in the object"
|
|
"A strange apparatus sits before me, processing electrons internally. This device seems active, though some internal mechanisms are exposed. There are two receptacles, designed to hold small circuitry, and a button beside them"
|
|
"I can hear the slight noise of machinery operating here"
|
|
"This is another fine mess you've got me into. Umm, umm umm! A processor sits on the floor, munching and spitting electrons. Button, button, who's got the button while the socks ablaze with color"
|
|
"CLC reports this area is abnormal in its arrangement. A GG-1 sits here, barely operating">>
|
|
|
|
<GLOBAL WIRE-FIRST
|
|
<PLTABLE
|
|
" The front panel is open and a "
|
|
" The front panel is open and a "
|
|
" The front panel is open and a "
|
|
""
|
|
" This thing has exposed itself, showing a "
|
|
" A front panel is open and a ">>
|
|
|
|
<GLOBAL WIRE-SECOND
|
|
<PLTABLE
|
|
" is exposed."
|
|
" is exposed."
|
|
" is exposed."
|
|
""
|
|
"."
|
|
" is exposed">>
|
|
|
|
<ROUTINE SUPPLIES-N-FCN ("OPTIONAL" (RARG <>) "AUX" OBJ)
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<COND (<AND <IRIS?> <NOT ,IRIS-FIXED>>
|
|
<TELL <PICK-ONE ,IRIS-BLIND> CR> <RFATAL>)
|
|
(T <TELL <GET ,LDSUPPLIES ,ROFF>>
|
|
<COND (<AND <SET OBJ <FIRST? ,SOCKET1>>
|
|
<NOT <AUDA?>>>
|
|
<TELL ". A " D .OBJ " sits in the " D ,SOCKET1>)
|
|
(<NOT <AUDA?>>
|
|
<TELL ". The " D ,SOCKET1 " is empty">)>
|
|
<COND (<AND <SET OBJ <FIRST? ,SOCKET2>>
|
|
<NOT <AUDA?>>>
|
|
<COND (<FIRST? ,SOCKET1>
|
|
<TELL ", and">)
|
|
(T
|
|
<TELL ", but">)>
|
|
<TELL " a " D .OBJ
|
|
" sits in the " D ,SOCKET2>)
|
|
(<NOT <AUDA?>>
|
|
<COND (<FIRST? ,SOCKET1>
|
|
<TELL
|
|
", but the " D ,SOCKET2 " is empty">)
|
|
(T
|
|
<TELL " as is the " D ,SOCKET2>)>)>
|
|
<TELL ".">
|
|
<COND (<AND <IN? ,ORANGE-WIRE ,MACHINE>
|
|
<FSET? ,MACHINE ,OPENBIT>>
|
|
<TELL <GET ,WIRE-FIRST ,ROFF> D ,ORANGE-WIRE
|
|
<GET ,WIRE-SECOND ,ROFF>>)>
|
|
<COND (<AND <IN? ,FUSE ,MACHINE>
|
|
<FSET? ,MACHINE ,OPENBIT>
|
|
<NOT <AUDA?>>>
|
|
<COND (<IRIS?> <TELL
|
|
" A small glass fuse it sits in the panel.">)
|
|
(<POET?> <TELL
|
|
" Meanwhile, a " D ,FUSE " monitors the situation.">)
|
|
(ELSE <TELL
|
|
" A " D ,FUSE " sits in the panel.">)>)>
|
|
<COND (<AND <FSET? ,MACHINE ,OPENBIT>
|
|
<NOT <AUDA?>>>
|
|
<TELL <GET ,CIRCLE-DESCS ,ROFF>>)>)>
|
|
<COND (<AND <IN? ,NEWCHIP0 ,SOCKET1>
|
|
<IN? ,NEWCHIP2 ,SOCKET2>>
|
|
<COND (<OR <SENSA?> <POET?> <AUDA?>
|
|
<AND <IRIS?> ,IRIS-FIXED>>
|
|
<TELL " " <GET ,FLASHING ,ROFF>>)>)>
|
|
<CRLF>
|
|
<RTRUE>)>>
|
|
|
|
<GLOBAL CIRCLE-DESCS
|
|
<PLTABLE
|
|
" On the front panel is a series of eight circles."
|
|
" On the front panel a series of eight raised circles is visible."
|
|
" I can sense a delicate tracery of circuitry going into eight circles on the front panel."
|
|
" "
|
|
" On the exposed panel is a little piano with only eight circle keys."
|
|
" The panel has eight circles mounted in it.">>
|
|
|
|
<GLOBAL FLASHING
|
|
<PLTABLE
|
|
"The orange button is flashing."
|
|
""
|
|
"Electricity pulses through the button."
|
|
"Metal parts click and gears whir."
|
|
"Button flashes while time passes."
|
|
"">>
|
|
|
|
<ROOM CORRIDOR-2
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Bending Corridor")
|
|
(SYNONYM CORRID)
|
|
(ADJECTIVE BENDING)
|
|
(SW TO CORRIDOR-1)
|
|
(EAST TO HALLWAY-JUNCTION)
|
|
(ROOMDESCS <PLTABLE
|
|
0
|
|
"I've approached a bend in the tube. One section continues to the east, while
|
|
the other section goes to the southwest."
|
|
"Vibrational activity picked up, though intensity too slight to determine
|
|
locational fix at this point."
|
|
"With audio sensors on full power I can detect some 'background' noise coming
|
|
from the east."
|
|
"Into all lives the flow proceeds, weaving its web of mystery like that of an
|
|
enigmatic spider."
|
|
"My source signals become stronger and clearer to the east.">)
|
|
(LINE 1)
|
|
(STATION CORRIDOR-2)
|
|
(CORRIDOR 24)>
|
|
|
|
<ROOM RTD-BANKS
|
|
(IN ROOMS)
|
|
(DESC "Transit Monitors")
|
|
(SYNONYM MONITO)
|
|
(ADJECTIVE TRANSI)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(NORTH TO CPU-ROOM)
|
|
(ROOMDESCS <PLTABLE
|
|
0
|
|
"Sonar indicates these walls are filled with irregularities which could be
|
|
monitors."
|
|
"Surges of electrical flow can be detected from small units mounted on the
|
|
walls, most probably meters."
|
|
0
|
|
"They bounce back and forth like metro's gnomes."
|
|
"The CLC is not linked to these devices.">)
|
|
(ACTION TRANSIT-MONITOR-FCN)
|
|
(LINE 1)
|
|
(STATION CPU-ROOM)
|
|
(GLOBAL MONITOR)>
|
|
|
|
<ROUTINE TRANSIT-MONITOR-FCN ("OPTIONAL" (RARG <>))
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<LONG-DESCS>
|
|
<COND (<OR <NOT <IRIS?>>
|
|
<AND <IRIS?>
|
|
<NOT ,IRIS-FIXED>>>
|
|
<RTRUE>)>
|
|
<TELL
|
|
"All around I can see monitors which show the status of the Transit Systems on the surface of the planet. The monitors describe the following situation:|
|
|
">
|
|
<FIXED-FONT-ON>
|
|
<TELL "|
|
|
FLOATERS AIRBORNE: " N ,FLOATERS "000|
|
|
TAXIS IN USE: " N ,TAXIS "000|
|
|
GLIDE RAMP SPEEDS: " N ,RAMP-SPEED " mph|
|
|
FLOATER CRASH RATE: " N ,CRASH-RATE "0|
|
|
TAXI ACCIDENT RATE: " N ,COLLISIONS "0|
|
|
GLIDE RAMP CASUALTIES: " N ,RAMP-KILLS "0|
|
|
">
|
|
<FIXED-FONT-OFF>
|
|
<WEATHER-ROBOTS>)>>
|
|
|
|
<ROOM SERVO-SYSTEMS
|
|
(IN ROOMS)
|
|
(FLAGS ONBIT RLANDBIT)
|
|
(WEST TO CPU-ROOM)
|
|
(DESC "Hydroponics Monitors")
|
|
(SYNONYM MONITO)
|
|
(ADJECTIVE HYDROP)
|
|
(ACTION HYDROMONITORS-FCN)
|
|
(GLOBAL MONITOR)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"This area has walls with irregular protrusions, most likely some kind of
|
|
monitors or meters."
|
|
"Meters and electrons within this room seem extremely variable with each
|
|
passing second."
|
|
"I hear a voice saying, \"Food, food for the truth\"."
|
|
"They move like snakes, without a bone."
|
|
"Nothing here is linked to the CLC.">)
|
|
(LINE 1)
|
|
(STATION CPU-ROOM)>
|
|
|
|
<ROUTINE HYDROMONITORS-FCN ("OPTIONAL" (RARG <>) "AUX" STRW STRM STRL WL ML LL)
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<COND (<NOT <IRIS?>>
|
|
<LONG-DESCS>
|
|
<RTRUE>)
|
|
(<NOT ,IRIS-FIXED>
|
|
<LONG-DESCS>
|
|
<RTRUE>)>
|
|
<SET WL <+ <ABS <- ,WATER-LEVEL ,WATER-OPT>> 0>>
|
|
<SET ML <+ <ABS <- ,MINERALS ,MINERALS-OPT>> 0>>
|
|
<SET LL <+ <ABS <- ,WATTS ,WATTS-OPT>> 0>>
|
|
<COND (<G? ,WATER-LEVEL ,WATER-OPT>
|
|
<SET STRW "high">)
|
|
(<EQUAL? ,WATER-LEVEL ,WATER-OPT>
|
|
<SET STRW " =">)
|
|
(<SET STRW "low">)>
|
|
<COND (<G? ,MINERALS ,MINERALS-OPT>
|
|
<SET STRM "high">)
|
|
(<EQUAL? ,MINERALS ,MINERALS-OPT>
|
|
<SET STRM " =">)
|
|
(<SET STRM "low">)>
|
|
<COND (<G? ,WATTS ,WATTS-OPT>
|
|
<SET STRL "high">)
|
|
(<EQUAL? ,WATTS ,WATTS-OPT>
|
|
<SET STRL " =">)
|
|
(<SET STRL "low">)>
|
|
<TELL
|
|
"Through the monitors I can see the following information:|
|
|
">
|
|
<FIXED-FONT-ON>
|
|
<TELL "|
|
|
LEVEL SETTING OUTPUT|
|
|
WATER: "> <NUMBER-PRINT ,WATER-LEVEL>
|
|
<NUMBER-PRINT <GET ,DIALSETS 4>>
|
|
<TELL .STRW CR>
|
|
<TELL "MINERALS: ">
|
|
<NUMBER-PRINT ,MINERALS>
|
|
<NUMBER-PRINT <GET ,DIALSETS 5>>
|
|
<TELL .STRM CR>
|
|
<TELL "LIGHTING: ">
|
|
<NUMBER-PRINT ,WATTS>
|
|
<NUMBER-PRINT <GET ,DIALSETS 6>>
|
|
<TELL .STRL CR>
|
|
<TELL "FOOD TONS: ">
|
|
<COND (<AND <L? ,FOOD-TONS 100>
|
|
<G? ,FOOD-TONS 9>>
|
|
<TELL " ">)
|
|
(<L? ,FOOD-TONS 10>
|
|
<TELL " ">)>
|
|
<TELL N ,FOOD-TONS>
|
|
<TELL " ">
|
|
<COND (<G? ,FOOD-TONS 75>
|
|
<TELL "optimal">)
|
|
(<G? ,FOOD-TONS 50>
|
|
<TELL " fair">)
|
|
(<G? ,FOOD-TONS 25>
|
|
<TELL " poor">)
|
|
(T <TELL "critical">)>
|
|
<CRLF>
|
|
<FIXED-FONT-OFF>
|
|
<WEATHER-ROBOTS>
|
|
<RTRUE>)>>
|
|
|
|
<ROUTINE FIXED-FONT-ON () <PUT 0 8 <BOR <GET 0 8> 2>>>
|
|
|
|
<ROUTINE FIXED-FONT-OFF() <PUT 0 8 <BAND <GET 0 8> -3>>>
|
|
|
|
<ROUTINE NUMBER-PRINT (NUM)
|
|
<COND (<L? .NUM 10>
|
|
<TELL " ">)
|
|
(<L? .NUM 100>
|
|
<TELL " ">)>
|
|
<TELL N .NUM>
|
|
<TELL " ">
|
|
<RFALSE>>
|
|
|
|
<ROOM NORTH-ENTRY
|
|
(IN ROOMS)
|
|
(DESC "Hallway T")
|
|
(SYNONYM T)
|
|
(ADJECTIVE HALLWAY)
|
|
(NORTH TO STERILE-AREA)
|
|
(WEST TO DEAD-END-1)
|
|
(EAST TO HALL-STOP1)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"I have reached a T intersection in the east/west hallway."
|
|
"I can detect a lot of electrical movement to the west from this location. A strong bath of ultraviolet can also be detected."
|
|
"A low whirring noise, barely audible, can be detected from the west."
|
|
"Intersections, like the choices of life, are metered by the flow."
|
|
"Warning: CLC communique indicates approaching Off-Limits area.">)
|
|
(LINE 3)
|
|
(STATION NORTH-ENTRY)
|
|
(CORRIDOR 2)>
|
|
|
|
<ROOM DEAD-END-1
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(SYNONYM END)
|
|
(ADJECTIVE DEAD)
|
|
(DESC "Dead End")
|
|
(EAST TO NORTH-ENTRY)
|
|
(ROOMDESCS <PLTABLE
|
|
0
|
|
"I have reached the end of the western passage."
|
|
"I have reached the end of the western passage."
|
|
"I have reached the end of the western passage."
|
|
"I have reached the end of the western passage."
|
|
"I have reached the end of the western passage.">)
|
|
(LINE 3)
|
|
(STATION DEAD-END-1)
|
|
(CORRIDOR 2)>
|
|
|
|
<ROOM DECON-CHAMBER
|
|
(IN ROOMS)
|
|
(DESC "Decontamination Chamber")
|
|
(SYNONYM CHAMBER)
|
|
(ADJECTIVE DECONT)
|
|
(WEST TO STERILE-AREA)
|
|
(EAST TO ENTRY-AREA)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"I have entered a small room. Overhead a small nozzle extends down from
|
|
the ceiling, and doorways can be detected to the west and east."
|
|
"A quick analysis of the molecular structure of the air in this area shows the
|
|
vestiges of a sterilization compound. In addition, an ultraviolet source can be
|
|
detected directly overhead."
|
|
"A small hissing can be detected overhead, as if a small port leaked a
|
|
semi-liquid compound."
|
|
"To be barren in more ways than one is an indication of our lot in life,
|
|
such as we know life."
|
|
"Warning: CLC communique indicates too close to Off-Limits area.">)
|
|
(LINE 4)
|
|
(STATION DECON-CHAMBER)
|
|
(CORRIDOR 1)>
|
|
|
|
<ROOM STERILE-AREA
|
|
(IN ROOMS)
|
|
(DESC "Sterilization Chamber")
|
|
(SYNONYM CHAMBER)
|
|
(ADJECTIVE STERIL)
|
|
(WEST "CLC WARNING!! Further westward movement prohibited to all robots.")
|
|
(SOUTH TO NORTH-ENTRY)
|
|
(EAST TO DECON-CHAMBER)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"A thorough scanning of this area indicates I am at some kind of a dead
|
|
end. There is some kind of structure, probably a set of benches, extending from the north wall."
|
|
"I can detect a lot of electrical movement to the west from this location. A strong bath of ultraviolet can also be detected from the east."
|
|
"A loud whirring noise can be detected from the west."
|
|
"We all reach the ends of our life lines at some point."
|
|
"Warning: CLC communique indicates we are at the Off-Limits area.">)
|
|
(LINE 4)
|
|
(STATION STERILE-AREA)
|
|
(CORRIDOR 1)>
|
|
|
|
<ROOM ENTRY-AREA
|
|
(IN ROOMS)
|
|
(DESC "Entry Area")
|
|
(SYNONYM ENTRY)
|
|
(EAST TO TOOL-AREA)
|
|
(WEST TO DECON-CHAMBER)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"I am in a small, square room with no distinguishing features detectable."
|
|
"I can detect a lot of electrical movement from the west. A strong bath
|
|
of ultraviolet can also be detected."
|
|
"A low, whirring noise, barely detectable, can be heard from the west."
|
|
"The crux, the mandible mandella of humane existence, is like the
|
|
patterns all around me."
|
|
"Warning!! CLC communique indicates off-limits area nearby!">)
|
|
(LINE 4)
|
|
(STATION ENTRY-AREA)
|
|
(CORRIDOR 1)>
|
|
|
|
<ROOM TOOL-AREA
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Small Supply Room")
|
|
(SYNONYM SUPPLY)
|
|
(ADJECTIVE SMALL)
|
|
(WEST TO ENTRY-AREA)
|
|
(EAST TO REC-AREA)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"I can detect a small area, cluttered with things which extend from the
|
|
walls. Doorways lead to the east and the west."
|
|
"A strange container exists by the east wall of this room which is being fed electrical vibrations."
|
|
"The air here is very still."
|
|
"Tools for industry, tools for the dead."
|
|
"CLC indicates this area not for robot use.">)
|
|
(LINE 4)
|
|
(STATION TOOL-AREA)
|
|
(CORRIDOR 1)>
|
|
|
|
<ROOM HALL-STOP1
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Hallway")
|
|
(WEST TO NORTH-ENTRY)
|
|
(EAST TO HALL-STOP2)
|
|
(ROOMDESCS <PLTABLE
|
|
0
|
|
"I am near the start of a long, straight passageway."
|
|
"I can perceive small vibrations emanating from the north. This general
|
|
area seems to be chemically active."
|
|
"I can hear some slight noise coming from the north and the west, though
|
|
it is too distant to accurately describe."
|
|
"All things continue given their right place and the correct opportunity."
|
|
"I am moving toward an area which the CLC warns is not normally within
|
|
the realm of the robot maintenance crew.">)
|
|
(LINE 3)
|
|
(STATION HALL-STOP1)
|
|
(CORRIDOR 2)>
|
|
|
|
<ROOM HALL-STOP2
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(WEST TO HALL-STOP1)
|
|
(EAST TO HALL-STOP3)
|
|
(DESC "Hallway")
|
|
(ROOMDESCS <PLTABLE 0
|
|
"Sonar detects the hallway continuing east and west."
|
|
"There are no abnormal disturbances to report within the permanent
|
|
environment in this area." 0
|
|
"All things must enter, as all things must leave."
|
|
"CLC referencing indicates I am not empowered to take actions within
|
|
this general area.">)
|
|
(LINE 3)
|
|
(STATION HALL-STOP2)
|
|
(CORRIDOR 2)>
|
|
|
|
<ROOM HUMAN-ENTRY
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Sloping Corridor")
|
|
(SYNONYM CORRID)
|
|
(ADJECTIVE SLOPING)
|
|
(SOUTH PER WEDGE-FCN)
|
|
(NORTH TO HALL-STOP3)
|
|
(GLOBAL STEP)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"Sonar detects the corridor descends to the north in a gentle slope. The
|
|
intersection to the south is raised above this level."
|
|
"Sensory units detect a strong energy flow in the intersection to the
|
|
south."
|
|
0
|
|
"Oh, the travesty of descent, the joyousness of having one's spirit
|
|
lifted beyond measure to another glorious level."
|
|
"CLC can be detected to the south. Its signals reach me in a straight line. Signal intensity 5.">)
|
|
(ACTION JUNCTION-FCN)
|
|
(LINE 3)
|
|
(STATION HUMAN-ENTRY)
|
|
(CORRIDOR 4)>
|
|
|
|
<ROUTINE WEDGE-FCN ()
|
|
<COND (<EQUAL? ,WEDGE-PLACED 2>
|
|
<COND (<EQUAL? ,WINNER-HERE ,HALLWAY-JUNCTION>
|
|
,HUMAN-ENTRY)
|
|
(<EQUAL? ,WINNER-HERE ,HUMAN-ENTRY>
|
|
,HALLWAY-JUNCTION)>)
|
|
(ELSE
|
|
<ROBOT-TELL "I can't climb the step.">
|
|
<RFALSE>)>>
|
|
|
|
<ROOM HALLWAY-JUNCTION
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Hallway Junction")
|
|
(SYNONYM JUNCTION)
|
|
(ADJECTIVE HALLWAY)
|
|
(WEST TO CORRIDOR-2)
|
|
(EAST TO CORRIDOR-3)
|
|
(SOUTH TO OUTSIDE-CLC)
|
|
(NORTH PER WEDGE-FCN)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"Sonar detects an intersection here, with a small dropoff to the north."
|
|
"I detect a strong flux of energy here -- transmissions of all types meeting as
|
|
if at the hub of some giant wheel."
|
|
"I can tell I've reached an intersection by the way sounds bounce off the
|
|
walls."
|
|
"Life is filled with choice. Decisions always make my eyes moist."
|
|
"Request directions which would send me in a southerly direction as linkup
|
|
seems imminent.">)
|
|
(GLOBAL STEP)
|
|
(ACTION JUNCTION-FCN)
|
|
(LINE 1)
|
|
(STATION HALLWAY-JUNCTION)
|
|
(CORRIDOR 20)>
|
|
|
|
<ROUTINE JUNCTION-FCN ("OPTIONAL" (RARG <>))
|
|
<COND (<EQUAL? .RARG ,M-BEG>
|
|
<COND (<EQUAL? ,WEDGE-PLACED 2>
|
|
<FSET ,WEDGE ,NDESCBIT>
|
|
<MOVE ,WEDGE ,WINNER-HERE>)> ;"New Code"
|
|
<RFALSE>)
|
|
(<EQUAL? .RARG ,M-LOOK>
|
|
<LONG-DESCS>
|
|
<COND (<AND <EQUAL? ,WEDGE-PLACED 2>
|
|
<NOT <AUDA?>>>
|
|
<TELL
|
|
"The " D ,WEDGE " is positioned by the step." CR>
|
|
<MOVE ,WEDGE ,WINNER-HERE>)
|
|
(ELSE <FCLEAR ,WEDGE ,NDESCBIT>)>)
|
|
(<EQUAL? .RARG ,M-ENTER>
|
|
<COND (<EQUAL? ,WEDGE-PLACED 2>
|
|
<MOVE ,WEDGE ,WINNER-HERE>)
|
|
(ELSE <FCLEAR ,WEDGE ,NDESCBIT>)>)>>
|
|
|
|
<ROOM OUTSIDE-CLC
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Outer Library Area")
|
|
(SYNONYM LIBRARY)
|
|
(ADJECTIVE OUTER)
|
|
(SOUTH TO PERIPH-1)
|
|
(NORTH TO HALLWAY-JUNCTION)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"Sonar indicates a closed-in area to the south, with small pedestals extending
|
|
up from the floor. The hallway goes on to the north."
|
|
"I can sense strong data emanations coming from the south, channeling through
|
|
this hallway to the northern junction."
|
|
"The air to the south is still within a closed chamber, while the air to the
|
|
north circulates freely."
|
|
"Akin to knowledge is only freedom."
|
|
"CLC identifier tagging detected directly to the south.">)
|
|
(LINE 1)
|
|
(STATION OUTSIDE-CLC)>
|
|
|
|
<ROOM PERIPH-1
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Index Peripheral")
|
|
(SYNONYM PERIPH)
|
|
(ADJECTIVE INDEX)
|
|
(SW TO PERIPH-4)
|
|
(SE TO PERIPH-2)
|
|
(SOUTH TO CLC-CORE)
|
|
(NORTH TO OUTSIDE-CLC)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"Before me is a pedestal, rising from the ground."
|
|
"The pedestal before me emanates tremendous data flows and transmits a radio homing signal, no doubt aimed toward Whiz."
|
|
"I can still detect the air changes to the north, indicating there is an
|
|
exit in that direction for me."
|
|
"The root of all knowledge, of all existence, lies before us for the taking."
|
|
"CLC identifier shows the object before me as the Index pedestal.">)
|
|
(LINE 1)
|
|
(STATION PERIPH-1)>
|
|
|
|
<ROOM PERIPH-2
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Technical Peripheral")
|
|
(SYNONYM PERIPH)
|
|
(ADJECTIVE TECHNI)
|
|
(SW TO PERIPH-3)
|
|
(NW TO PERIPH-1)
|
|
(WEST TO CLC-CORE)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"Before me stands another pedestal."
|
|
"This pedestal emits the same kind of data flow as the others."
|
|
"I sense I am getting further away from the air currents which are readable
|
|
to me."
|
|
"Another grasp of the all-knowing Universe stands before me. Ah, to be able to
|
|
learn what it holds, the might of the mind is like no other."
|
|
"CLC tagged object before me indicates it is the Technical pedestal.">)
|
|
(LINE 1)
|
|
(STATION PERIPH-2)>
|
|
|
|
<ROOM PERIPH-3
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Advisory Peripheral")
|
|
(SYNONYM PERIPH)
|
|
(ADJECTIVE ADVISO)
|
|
(NW TO PERIPH-4)
|
|
(NE TO PERIPH-2)
|
|
(NORTH TO CLC-CORE)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"Before me stands a third unit similar in all outward appearances to the
|
|
others."
|
|
"This object too emits an incredible homing signal and transmits data."
|
|
"I am further away from detectable air currents than I should be."
|
|
"Giving advice is easy. Taking advice isn't."
|
|
"CLC tagged object indicates it is the Advisory pedestal before me.">)
|
|
(LINE 1)
|
|
(STATION PERIPH-3)>
|
|
|
|
<ROOM PERIPH-4
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Historical Peripheral")
|
|
(SYNONYM PERIPH)
|
|
(ADJECTIVE HISTOR)
|
|
(NE TO PERIPH-1)
|
|
(SE TO PERIPH-3)
|
|
(EAST TO CLC-CORE)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"Another pedestal structure lies before me."
|
|
"More data flows detected within this area, especially directly before me."
|
|
"The air within this area is still, though the object before me emits a faint
|
|
high-frequency tinging."
|
|
"Complicated life, like that of the Chinese Mandarin, continues to obscure."
|
|
"CLC tagged object before me is the Historical pedestal.">)
|
|
(LINE 1)
|
|
(STATION PERIPH-4)>
|
|
|
|
<ROOM CLC-CORE
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Central Core")
|
|
(SYNONYM CLC CORE)
|
|
(ADJECTIVE CENTRAL)
|
|
(WEST TO PERIPH-4)
|
|
(EAST TO PERIPH-2)
|
|
(NORTH TO PERIPH-1)
|
|
(SOUTH TO PERIPH-3)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"Sonar detects a small railing, most likely for safety purposes, directly
|
|
before me. Beyond that railing is a huge cavern."
|
|
"I can feel a tremendous flow of energy within this area. It is unlike
|
|
anything else in its intensity and scope."
|
|
"Small updrafts can be heard as minute air currents directly before me."
|
|
"The root of our beings, the truth behind all of our existence, lies before
|
|
me."
|
|
"Directly before me is the Central Core. There is no available plug-in device within this area.">)
|
|
(LINE 1)
|
|
(STATION CLC-CORE)>
|
|
|
|
<ROOM CORRIDOR-3
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(WEST TO HALLWAY-JUNCTION)
|
|
(EAST TO CORRIDOR-4)
|
|
(SE TO ROBOT-PASSAGE)
|
|
(DESC "Southeast Junction")
|
|
(SYNONYM JUNCTION)
|
|
(ADJECTIVE SOUTHE)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"I perceive another passageway heading off to the southeast from here."
|
|
"Friendly vibrations can be detected from the southeast." 0
|
|
"To forgive is innocent, but to repair is all mine."
|
|
"CLC indicates I've gone too far to the east for an interface.">)
|
|
(LINE 2)
|
|
(STATION CORRIDOR-3)
|
|
(CORRIDOR 16)>
|
|
|
|
<ROOM ROBOT-PASSAGE
|
|
(IN ROOMS)
|
|
(NW TO CORRIDOR-3)
|
|
(SE TO ROBOT-Z)
|
|
(DESC "Southeast Passage")
|
|
(SYNONYM PASSAGE)
|
|
(ADJECTIVE SOUTHE)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"This tubular passageway continues to the southeast. I can detect a bend in it
|
|
toward the south."
|
|
"My receptors are picking up strong data transmissions to the west of here.
|
|
Overhead I can trace an electrical flow that continues to the southeast."
|
|
0
|
|
"There once was a cowboy named Mix|
|
|
Who managed just one shot in six|
|
|
He looked quite surpised|
|
|
When he opened his eyes|
|
|
And saw that his gun wasn't fixed."
|
|
"CLC tags indicate a robot-oriented area exists to the southeast.">)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(LINE 2)
|
|
(STATION ROBOT-PASSAGE)>
|
|
|
|
<ROOM ROBOT-Z
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Bending Passage")
|
|
(SYNONYM PASSAGE)
|
|
(ADJECTIVE BENDING)
|
|
(ROOMDESCS <PLTABLE
|
|
0
|
|
"Sonar detects a large area to the south with many obstacles within the
|
|
structure."
|
|
"The data transmissions are still detectable from the west. This area is
|
|
filled with all kinds of electrical devices and what seems like motors."
|
|
0
|
|
"Did you ever have the feeling you were running on a treadmill? Sometimes life is like that."
|
|
"CLC tagged area indicates robot repair mechanisms close by.">)
|
|
(NW TO ROBOT-PASSAGE)
|
|
(SOUTH TO REPAIR1)
|
|
(LINE 2)
|
|
(STATION ROBOT-Z)>
|
|
|
|
<ROOM REPAIR1
|
|
(IN ROOMS)
|
|
(DESC "Alpha Repair")
|
|
(SYNONYM REPAIR)
|
|
(ADJECTIVE ALPHA)
|
|
(GLOBAL STEP)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(NORTH TO ROBOT-Z)
|
|
(SOUTH TO REPAIR2)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"Before me is a walkway which has wheels and all sorts of odd protuberances which my sonar has a hard time deciphering. Sonar also detects a small step at the base of it."
|
|
"Strong electrical interference can be detected within this environment."
|
|
"I can hear the sound of gears and cogs, coming from a noisy walkway."
|
|
"Running, running, getting nowhere amid the hustle and bustle of life."
|
|
"I am in what the CLC describes as a repair area for robot units.">)
|
|
(ACTION REPAIRX-FCN)
|
|
(LINE 2)
|
|
(STATION REPAIR1)>
|
|
|
|
<ROOM REPAIR2
|
|
(IN ROOMS)
|
|
(DESC "Beta Repair")
|
|
(SYNONYM REPAIR)
|
|
(ADJECTIVE BETA)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(NORTH TO REPAIR1)
|
|
(SOUTH TO REPAIR3)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"I'm in the center of a large area with a walkway in the center."
|
|
"I detect slight vibrational activity from a conveying mechanism."
|
|
"I can hear the meshing of gears and cogs, coming from a noisy walkway."
|
|
"We're getting nowhere fast, glider, but at least we're not getting there slowly."
|
|
"CLC indicators coming from the west.">)
|
|
(ACTION REPAIRX-FCN)
|
|
(LINE 2)
|
|
(STATION REPAIR2)>
|
|
|
|
<ROOM REPAIR3
|
|
(IN ROOMS)
|
|
(NORTH TO REPAIR2)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"I have reached the south end of this area. The walkway ends here."
|
|
"Vibrational activity and electrical emanations detected from the north are
|
|
stronger than those in the immediate vicinity."
|
|
"Noise of machinery can be detected coming from the north."
|
|
"Oh, to reach the end of one's previous existence, to travel the roadways of
|
|
life when they are most needed, only to end up here, reborn."
|
|
"The CLC indicates that this is the end of the Robot Repair area.">)
|
|
(DESC "Gamma Repair")
|
|
(SYNONYM REPAIR)
|
|
(ADJECTIVE GAMMA)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(ACTION REPAIRX-FCN)
|
|
(GLOBAL WIRING)
|
|
(LINE 2)
|
|
(STATION REPAIR3)>
|
|
|
|
<ROUTINE REPAIRX-FCN ("OPTIONAL" (RARG <>) "AUX" OBJ)
|
|
<COND (<EQUAL? .RARG ,M-BEG>
|
|
<COND (<EQUAL? ,WEDGE-PLACED 1>
|
|
<FSET ,WEDGE ,NDESCBIT>)>
|
|
<RFALSE>)
|
|
(<EQUAL? .RARG ,M-LOOK>
|
|
<LONG-DESCS>
|
|
<TELL "The " D ,CONVEYERBELTA " is ">
|
|
<COND (<NOT ,BELT-ON>
|
|
<TELL "not ">)>
|
|
<TELL "in motion">
|
|
<COND (<AND <EQUAL? ,WINNER-HERE ,REPAIR1>
|
|
<SET OBJ <FIRST? ,CONVEYERBELTA>>>)
|
|
(<AND <EQUAL? ,WINNER-HERE ,REPAIR2>
|
|
<SET OBJ <FIRST? ,CONVEYERBELTB>>>)
|
|
(<AND <EQUAL? ,WINNER-HERE ,REPAIR3>
|
|
<SET OBJ <FIRST? ,CONVEYERBELTC>>>)>
|
|
<COND (.OBJ
|
|
<TELL ", moving ">
|
|
<COND (<NOT <GETP .OBJ ,P?ROBOT>>
|
|
<TELL "a ">)>
|
|
<TELL D .OBJ>)>
|
|
<TELL "." CR>
|
|
<COND (<AND <EQUAL? ,WEDGE-PLACED 1>
|
|
<EQUAL? ,WINNER-HERE ,REPAIR1>>
|
|
<TELL "The " D ,WEDGE
|
|
" is positioned at the base of the "
|
|
D ,CONVEYERBELTA "." CR>)
|
|
(ELSE <FCLEAR ,WEDGE ,NDESCBIT>)>)>>
|
|
|
|
<ROOM HALL-STOP3
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(SOUTH TO HUMAN-ENTRY)
|
|
(EAST TO HALL-STOP4)
|
|
(WEST TO HALL-STOP2)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"I have reached a junction in the hallway. The east/west hallway meets with a southern corridor."
|
|
"Photonic sensors detect a shift in reflective activity indicating a corridor
|
|
which starts to the south."
|
|
0
|
|
"East side, west side, all around the south."
|
|
"Standard robotic areas can be detected to the south.">)
|
|
(DESC "Access Hallway")
|
|
(SYNONYM HALLWAY)
|
|
(ADJECTIVE ACCESS)
|
|
(LINE 3)
|
|
(STATION HALL-STOP3)
|
|
(CORRIDOR 6)>
|
|
|
|
<ROOM REC-AREA
|
|
(IN ROOMS)
|
|
(DESC "Activities Area")
|
|
(SYNONYM ACTIVI)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"I'm in a small room with exits to the west and east. Sonar detects odd
|
|
objects within the room whose purpose eludes my perceptive abilities."
|
|
"There is a lot of vibrational and electrical activity within this location,
|
|
though none of its purposes seem immediately evident."
|
|
0
|
|
"Ah. Just what I needed. A spot amid the jungle of worries -- a place to
|
|
relax, to call my own, to stretch out and enjoy myself."
|
|
"I have determined this area to be for the private use of Human visitors.">)
|
|
(EAST TO SLEEP-CHAMBER)
|
|
(WEST TO TOOL-AREA)
|
|
(SOUTH TO HALL-STOP4)
|
|
(LINE 4)
|
|
(STATION REC-AREA)
|
|
(CORRIDOR 1)>
|
|
|
|
<ROOM HALL-STOP4
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(NORTH TO REC-AREA)
|
|
(WEST TO HALL-STOP3)
|
|
(EAST TO HALL-STOP5)
|
|
(ROOMDESCS <PLTABLE 0 "I'm in an east/west hallway." "I'm in an east/west hallway." "I'm in an east/west hallway." "I'm in an east/west hallway."
|
|
"I'm in an east/west hallway.">)
|
|
(DESC "Hallway")
|
|
(LINE 5)
|
|
(STATION HALL-STOP4)
|
|
(CORRIDOR 2)>
|
|
|
|
<ROOM SLEEP-CHAMBER
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Sleep Chamber")
|
|
(SYNONYM CHAMBER)
|
|
(ADJECTIVE SLEEP)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"I'm in a small room which has flat extensions jutting from the walls."
|
|
"There seems to be a complete absence of activity in this area."
|
|
0
|
|
"To sleep, perchance to dream. Ah, what foods these morsels be."
|
|
"CLC indicates this is a Human habitation area.">)
|
|
(SOUTH TO HALL-STOP5)
|
|
(WEST TO REC-AREA)
|
|
(ACTION SLEEP-CHAMBER-FCN)
|
|
(LINE 4)
|
|
(STATION SLEEP-CHAMBER)
|
|
(CORRIDOR 33)>
|
|
|
|
<ROUTINE SLEEP-CHAMBER-FCN ("OPTIONAL" (RARG <>))
|
|
<COND (<AND <EQUAL? .RARG ,M-END>
|
|
<EQUAL? ,PRSO ,TOOLBAG>
|
|
<IN? ,TOOLBAG ,WINNER>
|
|
<VERB? TAKE>>
|
|
<SETG RTHIEF ,WINNER>
|
|
<DISABLE <INT I-STEAL>>
|
|
<ENABLE <QUEUE I-CHASEAUDA -1>>)>>
|
|
|
|
|
|
<ROOM HALL-STOP5
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Hallway Corner")
|
|
(SYNONYM CORNER)
|
|
(ADJECTIVE HALLWAY)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"The east/west corridor ends here and starts off to the south. To the north
|
|
is a small room."
|
|
"Sensory mechanisms detect a room to the north, a hallway to the west and to
|
|
the south."
|
|
0
|
|
"Lemme see, which way did I go? Who am I, anyway? What am I doing here, and why am I asking all these questions? Life is so confusing."
|
|
"CLC peripheral device detected to the south.">)
|
|
(NORTH TO SLEEP-CHAMBER)
|
|
(SOUTH TO HALL-T)
|
|
(WEST TO HALL-STOP4)
|
|
(LINE 5)
|
|
(STATION HALL-STOP5)
|
|
(CORRIDOR 34)>
|
|
|
|
<ROOM HALL-T
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Hallway Branch")
|
|
(SYNONYM BRANCH)
|
|
(ADJECTIVE HALLWAY)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"I've reached a 'T' in the long, north/south hallway."
|
|
"Mechanical activity located to the east."
|
|
0
|
|
"The wheels of fate lie to the east, as all philosophers know."
|
|
"CLC peripheral detected to the south.">)
|
|
(NORTH TO HALL-STOP5)
|
|
(EAST TO FCMAINT)
|
|
(SOUTH TO LOWER-CORE)
|
|
(LINE 5)
|
|
(STATION HALL-T)
|
|
(CORRIDOR 32)>
|
|
|
|
<ROOM FCMAINT
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Maintenance Access")
|
|
(SYNONYM ACCESS)
|
|
(ADJECTIVE MAINTE)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"I've reached the end of the eastern corridor. Before me, high overhead, is a strange combination of circular protuberances."
|
|
"Mechanical devices can be detected far out of range."
|
|
0
|
|
"Round and round she goes, where she stops, nobody knows."
|
|
"CLC signals are weaker in this area.">)
|
|
(WEST TO HALL-T)
|
|
(LINE 5)
|
|
(STATION HALL-T)
|
|
(ACTION FCMAINT-FCN)>
|
|
|
|
<GLOBAL FCWHEEL
|
|
<PLTABLE
|
|
0
|
|
"Sonar detects a circular object mounted on the wall high overhead, out of
|
|
reach. A small spray is also detected, going upward through the ceiling."
|
|
"Sensory mechanisms can detect a low concentration of acid in the air. Its origin is directly overhead. Approximately 99.87 percent of these acid droplets are going up into the room above."
|
|
"I can hear hissing coming from high overhead here."
|
|
"The turning of the screw, like the delicate machinations of life, goes on
|
|
far out of the reach of ordinary mortals."
|
|
"CLC tagged device WH located high overhead.">>
|
|
|
|
<ROUTINE FCMAINT-FCN ("OPTIONAL" (RARG <>))
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<LONG-DESCS>
|
|
<FCLEAR ,WHEEL ,NDESCBIT>
|
|
<COND (<AND <NOT <EQUAL? <GET ,FCWHEEL ,ROFF> 0>>
|
|
<NOT ,ACID-FIXED>>
|
|
<TELL <GET ,FCWHEEL ,ROFF> CR>
|
|
<FSET ,WHEEL ,NDESCBIT>)>
|
|
<RTRUE>)>>
|
|
|
|
<ROOM LOWER-CORE
|
|
(IN ROOMS)
|
|
(DESC "Library Entrance")
|
|
(SYNONYM ENTRANCE)
|
|
(ADJECTIVE LIBRARY)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"Sonar scan indicates the corridor continues to the south, but off to the west
|
|
is a small, circular object before a huge, circular object."
|
|
"Huge electrical activity has been detected to the west."
|
|
0
|
|
"The answers to none of our questions awaits, granting the whiz kid can
|
|
audience to the west, which he can't, poor air-head."
|
|
"Library Core detected directly to the west.">)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(WEST TO INNER-CORE)
|
|
(NORTH TO HALL-T)
|
|
(SOUTH TO HALL-END)
|
|
(LINE 5)
|
|
(STATION LOWER-CORE)
|
|
(CORRIDOR 32)>
|
|
|
|
<ROOM INNER-CORE
|
|
(IN ROOMS)
|
|
(DESC "Library Core")
|
|
(SYNONYM CORE)
|
|
(ADJECTIVE LIBRARY)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"Before me is a huge cylinder, the CLC, which extends out of my sonar's scanning range."
|
|
"An interfacing device sits before me, capable of interacting with the huge
|
|
data flow behind it."
|
|
0
|
|
"Ah, great master, tell all!"
|
|
"Standing before the Library Core, the human-interactive peripheral. This
|
|
peripheral allows no interaction with robots.">)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(EAST TO LOWER-CORE)
|
|
(LINE 5)
|
|
(STATION LOWER-CORE)>
|
|
|
|
<ROOM HALL-END
|
|
(IN ROOMS)
|
|
(DESC "Hallway End")
|
|
(SYNONYM END)
|
|
(ADJECTIVE HALLWAY)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"Sonar detects the end of the southern hallway. To the east is a long, narrow
|
|
area which travels out of my receiving range."
|
|
"Sensory input indicates the end of the southern hallway here, with extremely
|
|
violent force fields and electrical disturbances to the east."
|
|
"I can hear the crackling of ozone in the air to the east."
|
|
"This path through life may be more dangerous than it looks. After all, appearances can be deceiving."
|
|
"CLC warns that the area to the east is dangerous.">)
|
|
(NORTH TO LOWER-CORE)
|
|
(EAST "CLC WARNING: Dangerous force fields prevent eastern movement.")
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(LINE 5)
|
|
(STATION HALL-END)
|
|
(CORRIDOR 96)>
|
|
|
|
<ROOM CORRIDOR-4
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Short Corridor")
|
|
(SYNONYM CORRID)
|
|
(ADJECTIVE SHORT)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"I have reached a place in the corridor where the floor rises up to the northeast. Sonar can detect a huge open area directly to the east."
|
|
"Wiring etched into the walls branches off to the northeast from here, while an incredibly powerful source of energy is easily detectable to the east."
|
|
"I can hear a difference in the air currents and air conditioning circuits here
|
|
as if another passage started to the northeast."
|
|
"The great interpreter of all our daily occurences lies ahead, while a walk in
|
|
the sky waits for me to the northeast."
|
|
"CLC indicates I have arrived at a northeast branch in the corridor." >)
|
|
(WEST TO CORRIDOR-3)
|
|
(NE TO NE-PASSAGE1)
|
|
(EAST TO ACIDMIST)
|
|
(LINE 2)
|
|
(STATION CORRIDOR-4)
|
|
(CORRIDOR 144)
|
|
(ACTION BEWARE-MIST-FCN)
|
|
(GLOBAL WIRING)>
|
|
|
|
<ROUTINE BEWARE-MIST-FCN ("OPTIONAL" (RARG <>))
|
|
<COND (<AND <EQUAL? .RARG ,M-LOOK>
|
|
<NOT ,ACID-FIXED>
|
|
<NOT <WHIZ?>>
|
|
<NOT <WALDO?>>>
|
|
<LONG-DESCS>
|
|
<TELL <GET ,BEWARE-TBL ,ROFF> CR>)>>
|
|
|
|
<GLOBAL BEWARE-TBL
|
|
<PLTABLE "" ""
|
|
"WARNING: Sensors indicate a light mist, analyzed as a penetrating acid, floats in the air to the east."
|
|
"I can hear a faint hissing coming through the floor to the east."
|
|
"Bathe in luxuriating, though scorching, solvents." "" >>
|
|
|
|
<ROOM NE-PASSAGE1
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(SW TO CORRIDOR-4)
|
|
(NE TO NE-PASSAGE2)
|
|
(DESC "Rising Passage")
|
|
(SYNONYM PASSAGE)
|
|
(ADJECTIVE RISING)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"I am on an inclined surface which continues northeast and southwest. The
|
|
slant of the floor here indicates that I am between levels."
|
|
"Internal mechanisms indicate this area joins two different levels."
|
|
"Far off, near the top of this rising passage, I can hear a loud wind."
|
|
"Like levels of the Inferno, I slide into despair and climb to new heights."
|
|
"CLC internally informs me I am between the Main level and the Skywalk.">)
|
|
(LINE 0)
|
|
(STATION NE-PASSAGE1)
|
|
(CORRIDOR 128)>
|
|
|
|
|
|
|
|
<ROOM NE-PASSAGE2
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Top Passage")
|
|
(SYNONYM PASSAGE)
|
|
(ADJECTIVE TOP)
|
|
(SW TO NE-PASSAGE1)
|
|
(NORTH TO SKY1)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"I am at the top of a passage which descends to the southwest. Before me, to
|
|
the north, is the entrance to an east/west walkway."
|
|
"Internal sensory mechanisms indicate an area of violent motion lies to the
|
|
north, while internal mapping indicates a descending passage to the southwest."
|
|
"The roar of wind comes from the north and is overwhelming. Turning down my
|
|
audio-sensitivity."
|
|
"Whisk me away, zip me today.|
|
|
Come out far, far far away.|
|
|
Mail me home, pop me to stay|
|
|
Flung to the north, where I can't say."
|
|
"CLC indicates I am directly to the south of the Skywalk. A passage descends
|
|
to the southwest." >)
|
|
(LINE 0)
|
|
(STATION NE-PASSAGE2)
|
|
(CORRIDOR 128)>
|
|
|
|
<ROOM SKY1
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Skywalk Alpha")
|
|
(SYNONYM ALPHA)
|
|
(ADJECTIVE SKYWAL)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"Sonar detects a long tube directly to the north, while the skywalk continues
|
|
to the west from here."
|
|
"Sensory receptors detect incredible electrical and ionic disturbances coming
|
|
from the north of here."
|
|
"I can hear the tremendous roar of wind in a tunnel to the north."
|
|
"Pop the message in the tube and out comes the medium massage."
|
|
"This area is described by the CLC as a transporter tube.">)
|
|
(SOUTH TO NE-PASSAGE2)
|
|
(WEST TO SKY2)
|
|
(NORTH TO WEATHER)
|
|
(ACTION SKY-FCN)
|
|
(LINE 0)
|
|
(STATION SKY1)
|
|
(CORRIDOR 256)>
|
|
|
|
<ROOM SKY2
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Skywalk Beta")
|
|
(SYNONYM BETA)
|
|
(ADJECTIVE SKYWAL)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"Sonar detects a long tube directly to the north, while the skywalk continues
|
|
to the east and west of here."
|
|
"Sensory receptors detect incredible electrical and ionic disturbances coming
|
|
from the north of here. Similar disturbances can be detected from the east and
|
|
west."
|
|
"I can hear the tremendous roar of wind in a tunnel to the north. An exact
|
|
duplication of this sound can be detected from the east and west, though their
|
|
intensities are somewhat less."
|
|
"Pop the message in the tube and out comes the medium rare."
|
|
"This area is described by the CLC as a transporter tube.">)
|
|
(EAST TO SKY1)
|
|
(WEST TO SKY3)
|
|
(NORTH TO HYDRO)
|
|
(ACTION SKY-FCN)
|
|
(LINE 0)
|
|
(STATION SKY2)
|
|
(CORRIDOR 256)>
|
|
|
|
<ROOM SKY3
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Skywalk Gamma")
|
|
(SYNONYM GAMMA)
|
|
(ADJECTIVE SKYWAL)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"Sonar detects a long tube directly to the north, while the skywalk continues
|
|
to the east from here."
|
|
"Sensory receptors detect incredible electrical and ionic disturbances coming
|
|
from the north of here."
|
|
"I can hear the tremendous roar of wind in a tunnel to the north."
|
|
"Pop the message in the tube and out comes the medium massage."
|
|
"This area is described by the CLC as a transporter tube.">)
|
|
(NORTH TO RTD)
|
|
(EAST TO SKY2)
|
|
(ACTION SKY-FCN)
|
|
(LINE 0)
|
|
(STATION SKY3)
|
|
(CORRIDOR 256)>
|
|
|
|
<ROUTINE SKY-FCN ("OPTIONAL" (RARG <>))
|
|
<COND (<EQUAL? .RARG M-END>
|
|
<COND (<VERB? DROP>
|
|
<ROBOT-TELL "The " <>>
|
|
<TELL D ,PRSO " is whisked up by the force of the tube."
|
|
CR>
|
|
<COND (<IN? ,PRSO ,SKY1>
|
|
<MOVE ,PRSO ,WEATHER>)
|
|
(<IN? ,PRSO ,SKY2>
|
|
<MOVE ,PRSO ,HYDRO>)
|
|
(<IN? ,PRSO ,SKY3>
|
|
<MOVE ,PRSO ,RTD>)>)>)>>
|
|
|
|
<ROOM WEATHER
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Weather Control Area")
|
|
(SYNONYM CONTRO)
|
|
(ADJECTIVE WEATHE)
|
|
(GLOBAL CONTROL-PANELS)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"I'm in a small area at the end of the jet tube. Sonar detects a small console within reach of my extensions and mounted on this panel are three dials."
|
|
"I'm in a small but electrically intensive area. I can detect three variable potentiometers on a small console."
|
|
0
|
|
"Slippin' 'n' slidin', turn the dials and we'll be ridin'." 0>)
|
|
(SOUTH TO SKY1)
|
|
(LINE 0)
|
|
(STATION SKY1)
|
|
(ACTION DESCRIBE-CONTROLS-FCN)>
|
|
|
|
<ROUTINE DESCRIBE-CONTROLS-FCN ("OPTIONAL" (RARG <>) "AUX" D1 D2 D3 (DOFF 0))
|
|
<COND (<EQUAL? .RARG ,M-LOOK>
|
|
<LONG-DESCS>
|
|
<COND (<AUDA?>
|
|
<RTRUE>)>
|
|
<COND (<EQUAL? ,WINNER-HERE ,WEATHER>
|
|
<SET D1 ,WDIAL1>
|
|
<SET D2 ,WDIAL2>
|
|
<SET D3 ,WDIAL3>)
|
|
(T
|
|
<SET DOFF 3>
|
|
<SET D1 ,LEVER1>
|
|
<SET D2 ,LEVER2>
|
|
<SET D3 ,LEVER3>)>
|
|
<TELL "The " D .D1 " is set to " N <GET ,DIALSETS <+ 1 .DOFF>>
|
|
", the " D .D2 " is set to " N <GET ,DIALSETS <+ 2 .DOFF>>
|
|
", and the " D .D3 " is set to " N <GET ,DIALSETS <+ 3 .DOFF>>
|
|
"." CR>)>>
|
|
|
|
<ROOM HYDRO
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Hydroponics Control Area")
|
|
(SYNONYM CONTRO)
|
|
(ADJECTIVE HYDROP)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"I have entered a small room. My sonar units and delicate touching extensions
|
|
indicate there are a series of three levers on a small panel."
|
|
"I am in a small room whose primary purpose is obvious by tracing the flow of
|
|
electrons. The three levers before me are linked to the Hydroponics section,
|
|
and they control the nutrient levels in the hydroponics tanks."
|
|
0
|
|
"Push a lever and out pops a food pellet. What a life for a rat."
|
|
"I'm in the Hydroponics Control area. CLC indicates that the three levers on
|
|
the small panel are for mixing nutrient levels. More data on levers available at the CLC Technical Peripheral.">)
|
|
(SOUTH TO SKY2)
|
|
(LINE 0)
|
|
(STATION SKY2)
|
|
(ACTION DESCRIBE-CONTROLS-FCN)
|
|
(GLOBAL CONTROL-PANELS)>
|
|
|
|
<ROOM RTD
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Transit Control Area")
|
|
(SYNONYM CONTRO)
|
|
(ADJECTIVE TRANSI)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"I am in a tiny room. Sonar can detect three bumps on a panel before me."
|
|
"I am in a room which has three switching devices. These devices connect directly to the surface."
|
|
0
|
|
"Hacks and Hackies, drivers all.|
|
|
Control the flow and nothing falls|
|
|
Except for those up in the air|
|
|
But all in all, what's best is fair.|
|
|
They roam around in tough young gangs|
|
|
and corner those with metal fangs|
|
|
They zip along and throw you free|
|
|
Like Broncos on the wild prairie."
|
|
"CLC indicates there are switching devices for all surface transportation in this room.">)
|
|
(SOUTH TO SKY3)
|
|
(LINE 0)
|
|
(STATION SKY3)
|
|
(GLOBAL CONTROL-PANELS)>
|
|
|
|
<ROOM ACIDMIST
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Cavernous Room")
|
|
(SYNONYM CAVERNOUS)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"Sonar detects a large open area, with three huge objects far off to the east."
|
|
"Photon receptors indicate this area is extremely large."
|
|
"I can hear distant machinery humming from the east." "Twice the size of life, this area makes me feel like a dwarf." 0>)
|
|
(WEST TO CORRIDOR-4)
|
|
(EAST TO MIDMIST)
|
|
(ACTION ACIDMIST-FCN)
|
|
(LINE 2)
|
|
(STATION ACIDMIST)
|
|
(CORRIDOR 16)>
|
|
|
|
<ROUTINE ACIDMIST-FCN ("OPTIONAL" (RARG <>))
|
|
<COND (<EQUAL? .RARG ,M-BEG>
|
|
<COND (<NOT ,ACID-FIXED>
|
|
<COND (<EQUAL? <GET ,DEADBOTS ,ROFF> 0>
|
|
<PUT ,DEADBOTS ,ROFF 1>
|
|
<RFALSE>)>)>)
|
|
(<AND <EQUAL? .RARG ,M-LOOK>
|
|
<NOT ,ACID-FIXED>>
|
|
<LONG-DESCS>
|
|
<COND (<NOT <WHIZ?>>
|
|
<TELL <GET ,MISTY-TBL ,ROFF> CR>)>
|
|
<RTRUE>)>>
|
|
|
|
<GLOBAL MISTY-TBL
|
|
<PLTABLE 0
|
|
"I can feel little things dropping onto my outer shell."
|
|
"Light is diffracted in this area and an analysis shows it is composed of a
|
|
slowly-working acid. The source of the mist comes from below."
|
|
"I can hear a hissing coming up from the floor."
|
|
"Raindrops keep fallin' on my head|
|
|
And before you know it I'll|
|
|
wake up dead... a puddle of lead.">>
|
|
|
|
<ROOM MIDMIST
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "East End")
|
|
(SYNONYM END)
|
|
(ADJECTIVE EAST)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"I have reached the east end of the huge open area. Directly before me is the
|
|
entrance into the lower reaches of the Beta FC. Access to the other computers is available through the northeast and southeast."
|
|
"This is incredible. The amount of energy flowing around me makes it difficult
|
|
to keep myself oriented. Directly before me is the entrance into the huge FC."
|
|
"I can hear the huge fans which have to be associated with the FCs."
|
|
"Ah, Mama! Here I am, your sonny boy, returned after a lifetime of wandering!"
|
|
"CLC transmits a welcome signal originating from the Beta FC, directly before me.">)
|
|
(WEST TO ACIDMIST)
|
|
(SE TO FC3)
|
|
(EAST TO FC2)
|
|
(NE TO FC1)
|
|
(LINE 2)
|
|
(STATION MIDMIST)
|
|
(CORRIDOR 16)>
|
|
|
|
<ROOM FC3
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Gamma FC")
|
|
(SYNONYM FC)
|
|
(ADJECTIVE GAMMA)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"Sensors detect a small, narrow tube to the north of here, while surrounding me is a huge object, the Gamma FC itself."
|
|
"Sensory mechanisms detect a tremendous channeling and flow of electrical and
|
|
data energy into an object surrounding me. Sensors detect a similar channeling to an object to the north."
|
|
0
|
|
"The third stage of our journey begins here, the music goes round and round."
|
|
"I stand within the third Filtering Computer, a massive device used to interface us with you and control the surface systems.">)
|
|
(NORTH TO TUBE1)
|
|
(NW TO MIDMIST)
|
|
(LINE 2)
|
|
(STATION FC3)
|
|
(GLOBAL AIRCON)>
|
|
|
|
<ROOM TUBE1
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Secondary Channel")
|
|
(SYNONYM CHANNEL)
|
|
(ADJECTIVE SECOND)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"I've entered a narrow tube which rests on a north/south axis. Many cables of small diameter travel within this tube, side by side in a groove. Sonar also detects a small hole in the side of the tube. Above this hole is a recessed sign."
|
|
"Sensory mechanisms detect the disquieting flow of electricity within this
|
|
tube. The flow is concentrated within the small cables which line a groove in the floor. There is a small hole in the wall of the tube awaiting a plug, while slightly higher up rests a sign."
|
|
"I can hear whirring and clicking as if of some hungry beast to the north and
|
|
south here."
|
|
"Connections are what make life worth living. In each direction we find our
|
|
source of disorientation, our metaphysical essence. Linkups are possible,
|
|
connecting our distant cousin with our essence, our very presence here. There's a signpost overhead -- the next stop..."
|
|
"CLC tagged location indicates I am within a connecting tube. The connecting
|
|
cables for the filtering computers line this floor, resting in their grooves. A small plug, PL-1, sits within the wall beneath the ACS.">)
|
|
(NORTH TO FC2)
|
|
(SOUTH TO FC3)
|
|
(GLOBAL CABLES TVHOLE SIGNPOST)
|
|
;(ACTION TUBE-FCN)
|
|
(LINE 2)
|
|
(STATION TUBE1)>
|
|
|
|
;<ROUTINE TUBE-FCN ("OPTIONAL" (RARG <>))
|
|
<COND (<EQUAL? .RARG ,M-BEG>
|
|
<COND (<AND <VERB? WALK WALK-TO FOLLOW MOVE-ROBOT-TO-LOC>
|
|
<IN? ,TV ,WINNER>
|
|
,TV-ON>
|
|
<ROBOT-TELL "(Unplugging the " <>>
|
|
<TELL D ,TV " first.)" CR>
|
|
<CRLF>
|
|
<SETG TV-ON <>>
|
|
<RFALSE>)>)>>
|
|
|
|
<ROOM FC2
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Beta FC")
|
|
(SYNONYM FC)
|
|
(ADJECTIVE BETA)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"I am standing inside a structure of incredible complexity. A narrow tube runs
|
|
to the north, while another one runs to the south. Another tunnel-like tube
|
|
leads to the west."
|
|
"I am within an immense device which contains immeasurable circuitry and
|
|
switching devices. I can detect connections to the north and south of this
|
|
device."
|
|
"I can hear the tremendous roar of air conditioning here. Air currents flow to
|
|
the north, the west, and the south."
|
|
"Amid the nervous neurons, the synaptic links make jumps akin to imagination
|
|
found only in Wonderland."
|
|
"I am within the Beta FC.">)
|
|
(NORTH TO TUBE2)
|
|
(SOUTH TO TUBE1)
|
|
(WEST TO MIDMIST)
|
|
(LINE 2)
|
|
(STATION FC2)
|
|
(GLOBAL WIRING AIRCON)>
|
|
|
|
<ROOM TUBE2
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Primary Channel")
|
|
(SYNONYM CHANNEL)
|
|
(ADJECTIVE PRIMARY)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"I've entered a narrow tube which rests on a north/south axis. Many cables travel within this tube, each one resting on the groove in the floor. Sonar also detects a small hole in the side of the tube, right below a recessed sign."
|
|
"Sensory mechanisms detect the disquieting flow of electricity within this
|
|
tube. The flow is concentrated within the small cables which line the floor.
|
|
There is a small hole in the wall of the tube awaiting a plug. Above this hole is a sign."
|
|
"I can hear whirring and clicking as if of some hungry beast to the north and
|
|
south here."
|
|
"Connections are what make life worth living. In each direction we find our
|
|
source of disorientation, our metaphysical essence. Linkups are possible,
|
|
connecting our distant cousin with our essence. There's a signpost up ahead -- the next stop, the Ozonezone."
|
|
"CLC tagged location indicates I am within a connecting tube. The connecting
|
|
cables for the filtering computers line this floor, resting in their
|
|
individual grooves. A small plug, PL-1, sits within the wall, right below the ACS.">)
|
|
(NORTH TO FC1)
|
|
(SOUTH TO FC2)
|
|
(GLOBAL CABLES TVHOLE SIGNPOST)
|
|
(LINE 2)
|
|
(STATION TUBE2)>
|
|
|
|
<ROOM FC1
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Alpha FC")
|
|
(SYNONYM FC)
|
|
(ADJECTIVE ALPHA)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"Sensors detect a small, narrow tube to the south of here, while surrounding me is a huge object, the Alpha FC."
|
|
"Sensory mechanisms detect a tremendous channeling and flow of electrical and
|
|
data energy into an object surrounding me. Sensors detect a similar channeling to an object to the south."
|
|
0
|
|
"The first stage of our journey begins here, the music goes round and round."
|
|
"I stand within the first Filtering Computer, a massive device used to interface us with you and maintain the surface systems.">)
|
|
(SOUTH TO TUBE2)
|
|
(LINE 2)
|
|
(STATION FC1)
|
|
(GLOBAL AIRCON)>
|
|
|
|
<ROOM CAR-AREA
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Vehicle Debarkation Area")
|
|
(SYNONYM DEBARK)
|
|
(ADJECTIVE VEHICL)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"Sonar detects the end of the southern hallway. To the west is a long, narrow
|
|
area which travels out of my receiving range."
|
|
"Sensory input indicates the end of the southern hallway here, with extremely
|
|
violent force fields and electrical disturbances to the west."
|
|
"I can hear the crackling of ozone in the air to the west."
|
|
"I got my license through the mail, but that never stopped Franklin from chancing my ability."
|
|
"CLC warns that the area to the west is dangerous.">)
|
|
(NORTH TO BIO-INT)
|
|
(WEST "CLC WARNING: Dangerous force fields prevent western movement.")
|
|
(LINE 5)
|
|
(STATION CAR-AREA)
|
|
(CORRIDOR 64)>
|
|
|
|
<ROOM BIO-INT
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Biology Corridor")
|
|
(SYNONYM CORRID)
|
|
(ADJECTIVE BIOLOG)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"Sonar detects an intersection with a narrow passageway leading off to the
|
|
west."
|
|
"My sensory apparatus detects some strange vibrational emanations coming from both the north and the west. The area to the south is rife with destructive ionic activity."
|
|
0
|
|
"We know where we were born, and now we are approaching your area of rebirth."
|
|
"CLC tagged area indicates the Biological Section contains materials potentially dangerous to your survival.">)
|
|
(NORTH TO CRYOUNITS)
|
|
(SOUTH TO CAR-AREA)
|
|
(WEST TO BIO-LAB)
|
|
(LINE 5)
|
|
(STATION BIO-INT)>
|
|
|
|
<ROOM BIO-LAB
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Biological Laboratory")
|
|
(SYNONYM LABORA LAB)
|
|
(ADJECTIVE BIOLOG)
|
|
(EAST TO BIO-INT)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"Sonar detects a large structure within this room. The large structure sits in
|
|
the center of the room."
|
|
"Quite a bit of electrical, ionic, and vibrational energy are being generated
|
|
in this room. The walls are lined with miles of wiring and circuitry."
|
|
0
|
|
"Ashes from gnashes, dust to bust, we all go round the circle."
|
|
"This area is identified as the Biological Lab. Equipment here is available
|
|
for clone revivification.">)
|
|
(LINE 5)
|
|
(STATION BIO-INT)
|
|
(GLOBAL WIRING)>
|
|
|
|
<ROOM CRYOUNITS
|
|
(IN ROOMS)
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(DESC "Cryogenic Area")
|
|
(SYNONYM CRYOGE)
|
|
(ROOMDESCS <PLTABLE 0
|
|
"Large canisters, similar in appearance to the cylinder in the Central Chamber, fill this area. Sonar can also detect a large straight rod extending from the
|
|
wall."
|
|
"Detection devices show a channelling of electrical and data information into
|
|
the large objects in this area. An electrical switch of some kind is mounted
|
|
on the wall."
|
|
"I can hear the humming of air conditioning within this room."
|
|
"Happy birthday to you,|
|
|
Happy birthday to you.|
|
|
Happy birthday dear human,|
|
|
Happy birthday to you!"
|
|
"This area contains human clones, each in a canister, replacements for future generations of controllers.">)
|
|
(SOUTH TO BIO-INT)
|
|
(LINE 5)
|
|
(STATION CRYOUNITS)
|
|
(GLOBAL AIRCON)>
|
|
|
|
<ROOM UD-TUBE
|
|
(IN ROOMS)
|
|
(DESC "UD Tube")
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(EAST TO STERILE-AREA)
|
|
(SYNONYM DEAD)>
|
|
|
|
<ROOM HELL
|
|
(IN ROOMS)
|
|
(DESC "Hell")
|
|
(FLAGS RLANDBIT ONBIT)
|
|
(SYNONYM HELL)> |