historicalsource
/
stationfall
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Gamma Version

master
historicalsource 2019-04-14 16:09:56 -04:00
parent 9c713ddb55
commit 24f2323694
19 changed files with 9660 additions and 7237 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

962
globals.zap
View File

File diff suppressed because it is too large Load Diff

507
globals.zil
View File

@ -12,8 +12,6 @@
<ADJ-SYNONYM MY MINE>
<SYNONYM SHOP STORE>
<GLOBAL LIT T>
<GLOBAL MOVES 0>
@ -59,32 +57,49 @@
(DESC "direction")
(SYNONYM DIRECT)
(ADJECTIVE NORTH SOUTH EAST WEST NW NE SW SE)
;(ACTION INTDIR-F)>
(ACTION INTDIR-F)>
;<ROUTINE INTDIR-F ()
<COND (<VERB? DRIVE>
<ROUTINE INTDIR-F ()
<COND (<VERB? SET>
<TELL
"Okay, you're now facing in that direction, but you don't see
anything you didn't see before." CR>)
;(<VERB? DRIVE>
<COND (<IN? ,PROTAGONIST ,FORKLIFT>
<PERFORM ,V?DRIVE-DIR ,FORKLIFT ,INTDIR>
<RTRUE>)
(T
<SETG AWAITING-REPLY 1>
<QUEUE I-REPLY <+ ,C-ELAPSED 2>>
<TELL "Are there wheels are your shoes?" CR>)>)>>
<TELL "Are there wheels in your shoes?" CR>)>)>>
<OBJECT INTNUM
(IN GLOBAL-OBJECTS)
(DESC "number")
(SYNONYM NUMBER)
(SYNONYM NUMBER ONE TWO THREE)
(ACTION INTNUM-F)>
<ROUTINE INTNUM-F ()
<COND (<AND <VERB? ENTER>
<EQUAL? ,P-PRSA-WORD ,W?ENTER>
<GLOBAL-IN? ,KEYPAD ,HERE>>
<PERFORM ,V?TYPE ,INTNUM>
<RTRUE>)
(<AND <VERB? PUSH>
<GLOBAL-IN? ,KEYPAD ,HERE>>
<COND (<AND <OR <NOUN-USED ,W?ONE ,INTNUM>
<NOUN-USED ,W?TWO ,INTNUM>
<NOUN-USED ,W?THREE ,INTNUM>>
<GLOBAL-IN? ,KEYPAD ,HERE>
<VERB? PUSH TYPE>>
<TELL
"[Use numerals: for example, TYPE 5 rather than TYPE FIVE.]" CR>)
(<AND <VERB? EXAMINE SHOOT ON OFF KILL MUNG>
<EQUAL? <GET ,WELDER-TABLE ,WELDER-TABLE-POINTER>
,P-NUMBER>
<IN? ,WELDER ,HERE>>
<COND (<PRSO? ,INTNUM>
<PERFORM-PRSA ,WELDER ,PRSI>)
(T
<PERFORM-PRSA ,PRSO ,WELDER>)>)
(<OR <AND <VERB? ENTER>
<EQUAL? ,P-PRSA-WORD ,W?ENTER>
<GLOBAL-IN? ,KEYPAD ,HERE>>
<AND <VERB? PUSH>
<GLOBAL-IN? ,KEYPAD ,HERE>>>
<PERFORM ,V?TYPE ,INTNUM>
<RTRUE>)
(<AND <VERB? SET>
@ -97,7 +112,19 @@
(T
<SETG DIAL-SETTING ,P-NUMBER>
<TELL "\"Click.\"" CR>)>)
(<TOUCHING? ,INTNUM>
(<VERB? WAIT-FOR>
<COND (<G? ,P-NUMBER 40>
<TELL ,TOO-LONG-TO-WAIT>)
(T
<V-WAIT>)>)
(<VERB? WAIT-UNTIL>
<COND (<AND <G? ,P-NUMBER ,INTERNAL-MOVES>
<L? <- ,P-NUMBER ,INTERNAL-MOVES> 41>>
<V-WAIT>)
(T
<TELL ,TOO-LONG-TO-WAIT>)>)
(<OR <TOUCHING? ,INTNUM>
<VERB? SHOOT>>
<TELL ,HUH>)>>
<OBJECT PSEUDO-OBJECT
@ -113,7 +140,7 @@
<OBJECT HIM
(IN GLOBAL-OBJECTS)
(SYNONYM HIM HIMSELF)
(SYNONYM HIM HER HIMSELF HERSELF)
(DESC "him")
(FLAGS NARTICLEBIT TOUCHBIT)>
@ -241,8 +268,7 @@ Always return RFALSE (not handled) if you have resolved the problem."
<ROUTINE GROUND-F ()
<COND (<VERB? CLIMB-ON ENTER>
<SETG C-ELAPSED 31>
<TELL
"You sit down on the floor. After a brief rest, you stand again." CR>)
<TELL "After a brief squat on the floor, you stand again." CR>)
(<VERB? LOOK-UNDER>
<IMPOSSIBLES>)
(<VERB? LEAVE>
@ -281,11 +307,17 @@ the Pet Store would never have uncovered: a panel mounted in the ceiling." CR>)
<PERFORM ,V?LOOK>
<RTRUE>)>>
<OBJECT AIR
(IN GLOBAL-OBJECTS)
(DESC "air")
(SYNONYM AIR)
(FLAGS NARTICLEBIT VOWELBIT)>
<OBJECT GLOBAL-ROOM
(IN GLOBAL-OBJECTS)
(DESC "room")
(SYNONYM ROOM PLACE LOCATI AREA)
(ADJECTIVE LARGE SMALL)
(SYNONYM ROOM SHOP STORE OFFICE)
(ADJECTIVE LARGE SMALL REC PET)
(ACTION GLOBAL-ROOM-F)>
<ROUTINE GLOBAL-ROOM-F ()
@ -295,15 +327,16 @@ the Pet Store would never have uncovered: a panel mounted in the ceiling." CR>)
<V-WALK-AROUND>)
(<VERB? LEAVE EXIT DISEMBARK>
<DO-WALK ,P?OUT>)
(<AND <VERB? WALK-AROUND>
<EQUAL? ,HERE ,BARBERSHOP>
<NOT ,MIRROR-BROKEN>
<ULTIMATELY-IN? ,PLATINUM-DETECTOR>
<FSET? ,PLATINUM-DETECTOR ,ACTIVEBIT>>
<PERFORM ,V?FOLLOW ,PLATINUM-DETECTOR>
<RTRUE>)
(<VERB? SEARCH>
<COND (<AND <EQUAL? ,HERE ,REC-SHOP>
<IN? ,FOIL ,LOCAL-GLOBALS>>
<MOVE ,FOIL ,HERE>
<THIS-IS-IT ,FOIL>
<TELL
"Behind one of the simulation booths, you spot a large piece of trans-molecular
reflective foil! It's probably a promotional item, left over from last year's
mega-hit simulation booth simulation, \"Platinum Pagans of Paradise.\"" CR>)
<COND (<NOT ,LIT>
<TELL ,TOO-DARK CR>)
(<AND <EQUAL? ,HERE ,GREASY-STRAW>
<IN? ,NECTAR ,LOCAL-GLOBALS>>
<MOVE ,NECTAR ,HERE>
@ -348,10 +381,12 @@ mega-hit simulation booth simulation, \"Platinum Pagans of Paradise.\"" CR>)
<COND (<VERB? LOOK-INSIDE>
<COND (<EQUAL? ,HERE ,SHADY-DANS>
<TELL ,DANS-LOT-DESC CR>)
(<EQUAL? ,HERE ,DOCKING-BAY-2 ,CARGO-BAY>
<TELL "You see the interior of" TR ,SPACETRUCK-OBJECT>)
(<AND <EQUAL? ,SPACETRUCK-COUNTER 5>
<EQUAL? ,COURSE-PICKED ,RIGHT-COURSE>>
<TELL "You see an empty docking bay." CR>)
(<EQUAL? ,SPACETRUCK-COUNTER 0>
(<EQUAL? ,SPACETRUCK-COUNTER -1>
<TELL "You see a large cargo bay." CR>)
(<AND <EQUAL? ,SPACETRUCK-COUNTER 4>
<EQUAL? ,COURSE-PICKED ,RIGHT-COURSE>>
@ -380,8 +415,27 @@ around a space station." CR>)
(ACTION SIGN-F)>
<ROUTINE SIGN-F ()
<COND (<VERB? READ>
<COND (<EQUAL? ,HERE ,GREASY-STRAW>
<COND (<AND <EQUAL? ,HERE ,DOME>
<NOT <IN? ,HOUSING ,DOME>>>
<CANT-SEE ,SIGN>)
(<VERB? READ>
<COND (<EQUAL? ,HERE ,DOME>
<PERFORM ,V?READ ,HOUSING>
<RTRUE>)
(<EQUAL? ,HERE ,GYM>
<TELL
"\"IMPORTANT! The " D ,EXERCISE-MACHINE " has diagnostic frequencies which
communicate with each other on frequency 710. Do not bring anything which
broadcasts on that frequency within range of the machine!\"">
<COND (<NOT <IN? ,EXERCISE-MACHINE ,GYM>>
<TELL
" Strangely, you don't see any " 'EXERCISE-MACHINE " anywhere in the gym.">)>
<CRLF>)
(<EQUAL? ,HERE ,SHIPPING-ROOM>
<TELL
"\"Always return the forklift to the shipping room when it's not in
use! THIS MEANS YOU!\"" CR>)
(<EQUAL? ,HERE ,GREASY-STRAW>
<TELL ,RESTAURANT-SIGN-TEXT CR>)
(<EQUAL? ,HERE ,TRADING-POST>
<TELL
@ -394,22 +448,13 @@ FREZONE (tm) explosive available.\"" CR>)
"\"SPECIAL!!! The best pet a lonely spacer could ever hope for!|
" D ,BALLOON "s are fascinating critters. Filled with hydrogen, they float
freely through the air like small dirigibles.|
With their translucent bodies and irridescent skin, they're a beautiful
addition to the decor of any living bubble. They are docile and friendly. And,
they are easy to care for, feeding on airborne spores!|
With their translucent bodies and iridescent skin, they're a beautiful
addition to the decor of any living bubble. Docile and friendly, " D ,BALLOON
"s are easy to care for, feeding on airborne spores!|
Limited supply!! Order yours today!!\"|
You recall one fact about " D ,BALLOON "s which the sign fails to mention:
they propel themselves around by ejecting digestive gasses. This makes them
one of the smelliest pets imaginable." CR>)
(<EQUAL? ,HERE ,GYM>
<TELL
"\"IMPORTANT! The " D ,EXERCISE-MACHINE " has diagnostic frequencies which
communicate with each other on frequency 710. Do not bring anything which
broadcasts on that frequency within range of the machine!\"">
<COND (<NOT <IN? ,EXERCISE-MACHINE ,GYM>>
<TELL
" Strangely, you don't see any exercise machine anywhere in the gym.">)>
<CRLF>)
(<EQUAL? ,HERE ,OPIUM-DEN>
<TELL
"The sign is from the government's latest anti-drug crusade. It depicts
@ -495,7 +540,7 @@ of multi-part forms, it's far outside your area of expertise." CR>)>)
(SYNONYM HANDS HAND FINGER)
(ADJECTIVE BARE MY YOUR)
(DESC "your hand")
(FLAGS TOUCHBIT NARTICLEBIT PARTBIT)
(FLAGS TOUCHBIT NARTICLEBIT)
(ACTION HANDS-F)>
<ROUTINE HANDS-F ("AUX" ACTOR)
@ -544,7 +589,7 @@ Oops, I guess not.">)
<RTRUE>)>>
<OBJECT PROTAGONIST
(IN DECK-FIVE)
(IN DECK-TWELVE)
(SYNONYM PROTAG)
(DESC "it")
(FLAGS NARTICLEBIT NDESCBIT INVISIBLE ACTORBIT)>
@ -578,7 +623,7 @@ Oops, I guess not.">)
<V-INVENTORY>)
(<AND <VERB? KILL MUNG>
<PRSO? ,ME>>
<JIGS-UP "Okay.">)
<JIGS-UP "If you insist.">)
(<VERB? SHOOT>
<JIGS-UP "Wow! A hole where your torso used to be!">)
(<VERB? FIND WHERE>
@ -586,7 +631,7 @@ Oops, I guess not.">)
(<VERB? FOLLOW>
<TELL "It would be hard not to." CR>)
(<VERB? EXAMINE>
<TELL "That's difficult unless your eyes are prehensile." CR>)
<V-DIAGNOSE>)
(<VERB? ALARM>
<TELL "You are!" CR>)
(<VERB? TAKE>
@ -603,7 +648,7 @@ Oops, I guess not.">)
(IN GLOBAL-OBJECTS)
(DESC "game")
(SYNONYM GAME GAMES HUCKA HIDER)
(ASK-FLOYD-ABOUT "Floyd loves games! Let's play!")>
(FLOYD-ASK-ABOUT "Floyd loves games! Let's play!")>
<OBJECT GRUE
(IN GLOBAL-OBJECTS)
@ -619,58 +664,66 @@ Oops, I guess not.">)
spaceship during the 22nd century. Grues spread throughout the galaxy alongside
man. Now extinct on all civilized planets, they still exist in some backwater
corners of the galaxy. Their favorite diet is Lieutenants First Class, but
their insatiable appetite is tempered by their fear of light." CR>)>>
their insatiable appetite is tempered by their fear of light." CR>)
(<OR <TOUCHING? ,GRUE>
<VERB? EXAMINE WALK-TO>>
<TELL "There's no grue in sight, fortunately." CR>)>>
<ROUTINE SLOT-F ()
<ROUTINE FORM-SLOT-F ()
<COND (<AND <VERB? PUT>
<PRSI? ,PSEUDO-OBJECT>>
<COND (<PRSO? ,CRUMPLED-FORM>
<TELL
"The form almost slides into the slot, but its degree of crumpledness is
just a bit too high." CR>)
(<OR <AND <PRSO? ,ROBOT-USE-AUTHORIZATION-FORM>
<EQUAL? ,HERE ,ROBOT-POOL>>
<AND <PRSO? ,CLASS-THREE-SPACECRAFT-ACTIVATION-FORM>
<EQUAL? ,HERE ,SPACETRUCK>>
<AND <PRSO? ,VILLAGE-FORM>
<EQUAL? ,HERE ,SOUTH-CONNECTION
,EAST-CONNECTION>>>
"The form's crumpledness prevents it from sliding into the slot." CR>)
(<AND <PRSO? ,CLASS-THREE-SPACECRAFT-ACTIVATION-FORM>
<EQUAL? ,HERE ,SPACETRUCK>>
<COND (<AND <EQUAL? ,HERE ,SPACETRUCK>
<BOTH-SEATS-NOT-OCCUPIED>>
<TELL "The form is spit back out. ">
<RECORDING
"Safety precautions forbid the activation of the vehicle unless both
the pilot and copilot seats are occupied">
<RTRUE>)
(<AND <PRSO? ,VILLAGE-FORM>
<NOT ,VILLAGE-FORM-VALIDATED>>
<TELL "The form is spit back out. ">
<RECORDING
"This form has not been validated by the station commander">
<RTRUE>)>
<REMOVE ,PRSO>
<FSET ,PRSO ,NDESCBIT>
<TELL
"The form is swallowed up, followed by a long pause for
triple-redundancy processing. ">
<COND (<PRSO? ,ROBOT-USE-AUTHORIZATION-FORM>
<RECORDING
"Authorization approved. Use keypad to enter the
bin number of the desired robot">)
(<PRSO? ,VILLAGE-FORM>
<SETG SCORE <+ ,SCORE 4>>
<SETG ROBOT-EVILNESS <+ ,ROBOT-EVILNESS 1>>
<FSET ,IRIS-HATCH ,OPENBIT>
<TELL
"The hatch begins irising open, then sparks and smokes and grinds to a halt.
However, it's about half dilated, wide enough to pass through." CR>)
the pilot and copilot seats are occupied">)
(T
<REMOVE ,PRSO>
<FSET ,PRSO ,NDESCBIT>
<TELL ,FORM-ACCEPTED>
<RECORDING
"Spacecraft activated. Type in the course heading">)>)
(<AND <PRSO? ,ROBOT-USE-AUTHORIZATION-FORM>
<EQUAL? ,HERE ,ROBOT-POOL>>
<REMOVE ,PRSO>
<FSET ,PRSO ,NDESCBIT>
<TELL ,FORM-ACCEPTED>
<RECORDING
"Authorization approved. Type the bin number of the desired robot">)
(<AND <PRSO? ,ASSIGNMENT-COMPLETION-FORM>
<EQUAL? ,HERE ,DECK-TWELVE>>
<TELL ,FORM-REJECTED>
<RECORDING
"This form has not been validated by a commanding officer">)
(<AND <PRSO? ,VILLAGE-FORM>
<EQUAL? ,HERE ,SOUTH-CONNECTION ,EAST-CONNECTION>>
<COND (<NOT ,VILLAGE-FORM-VALIDATED>
<TELL ,FORM-REJECTED>
<RECORDING
"This form has not been validated by a commanding officer">)
(T
<SETG SCORE <+ ,SCORE 6>>
<SETG ROBOT-EVILNESS <+ ,ROBOT-EVILNESS 1>>
<FSET ,IRIS-HATCH ,OPENBIT>
<REMOVE ,PRSO>
<FSET ,PRSO ,NDESCBIT>
<TELL
"The hatch begins irising open, then sparks and smokes and grinds to a halt.
However, it's about half dilated, wide enough to pass through. Beyond, you
can see a small, dingy connecting tube, rather than the clean and brightly-lit
Sub-Module connector you might have expected." CR>)>)
(<PRSO? ,ROBOT-USE-AUTHORIZATION-FORM
,CLASS-THREE-SPACECRAFT-ACTIVATION-FORM
,ASSIGNMENT-COMPLETION-FORM>
<TELL "The form is rejected." CR>)
,ASSIGNMENT-COMPLETION-FORM
,VILLAGE-FORM>
<TELL ,FORM-REJECTED>
<RECORDING "Improper form for this location">)
(<L? <GETP ,P?SIZE ,PRSO> 3>
<TELL
"The slot swallows" T ,PRSO " and then spits it back." CR>)
@ -681,10 +734,10 @@ However, it's about half dilated, wide enough to pass through." CR>)
<ROUTINE BOTH-SEATS-NOT-OCCUPIED ()
<COND (<AND <IN? ,PROTAGONIST ,PILOT-SEAT>
<EQUAL? ,COPILOT-SEAT <LOC ,FLOYD> <LOC ,HELEN> <LOC ,REX>>>
<IN? ,FLOYD ,COPILOT-SEAT>>
<RFALSE>)
(<AND <IN? ,PROTAGONIST ,COPILOT-SEAT>
<EQUAL? ,PILOT-SEAT <LOC ,FLOYD> <LOC ,HELEN> <LOC ,REX>>>
<IN? ,FLOYD ,COPILOT-SEAT>>
<RFALSE>)
(T
<RTRUE>)>>
@ -756,9 +809,7 @@ asleep in short order." CR>)
<TELL "You are now in bed." CR>)>)
(<AND <VERB? DISEMBARK STAND EXIT DROP>
<QUEUED? ,I-FALL-ASLEEP>>
<TELL
"How could you suggest such a thing when you're so tired and this
bed is so comfy?" CR>)
<TELL "But you're so tired and this bed is so comfy!" CR>)
(<VERB? LEAVE EXIT DROP>
<PERFORM ,V?DISEMBARK ,BED>
<RTRUE>)
@ -766,18 +817,20 @@ bed is so comfy?" CR>)
<PRSI? ,BED>>
<MOVE ,PRSO ,HERE>
<TELL
"The " D ,PRSO " bounces off the bed and lands on the floor." CR>)
"The " D ,PRSO " bounces off the bed" ,LANDS-ON-FLOOR CR>)
(<AND <VERB? LOOK-UNDER>
<IN? ,PROTAGONIST ,BED>>
<TELL
"You're IN the bed, so unless you have x-ray vision..." CR>)
"You're IN the bed, so unless you have X-ray vision..." CR>)
(<AND <VERB? LOOK-UNDER>
<EQUAL? ,HERE ,COMMANDERS-QUARTERS>
<NOT <FSET? ,VALIDATION-STAMP ,TOUCHBIT>>>
<FSET ,VALIDATION-STAMP ,TOUCHBIT>
<MOVE ,VALIDATION-STAMP ,HERE>
<THIS-IS-IT ,VALIDATION-STAMP>
<TELL "You discover a validation stamp!" CR>)>>
<TELL "You discover a " 'VALIDATION-STAMP "!" CR>)
(<VERB? DRILL KILL SHOOT>
<TELL "That would be a clear case of mattresscide!" CR>)>>
<OBJECT SLEEP
(IN GLOBAL-OBJECTS)
@ -793,8 +846,10 @@ bed is so comfy?" CR>)
<GLOBAL SLEEPY-LEVEL 0>
<ROUTINE I-SLEEP-WARNINGS ()
<COND (<AND <G? ,PLATO-ATTACK-COUNTER 0>
<IN? ,PLATO ,HERE>>
<COND (<OR <AND <IN? ,WELDER ,HERE>
<G? ,SLEEPY-LEVEL 3>>
<AND <G? ,PLATO-ATTACK-COUNTER 0>
<IN? ,PLATO ,HERE>>>
<QUEUE I-HUNGER-WARNINGS 2>
<RFALSE>)>
<SETG SLEEPY-LEVEL <+ ,SLEEPY-LEVEL 1>>
@ -852,13 +907,12 @@ the deserted, plague-stricken world where you met Floyd. A hot flush creeps
over you, indicating that the virulent disease that conquered this planet is
beginnning its insidious work on you"
"You find yourself on Deck Five of the Duffy, walking nonchalantly along, when
suddenly you remember that you were supposed to have Handwriting Legibility
Evaluation Forms -- all nine parts, for every member of the crew -- on Captain
Fussbottom's desk by 7800. It's 7790, and those forms are stored on the other
side of the ship. You begin running down the corridor, but the floor is turning
into a thick syrup. You can hear the Captain calling your name, louder and
louder, as you struggle to move your legs"
"You are strolling across Deck Four of the Duffy, when suddenly you remember
that you were supposed to have Handwriting Legibility Evaluation Forms -- all
nine parts, for every member of the crew -- on Captain Fussbottom's desk by
7800. It's 7790, and those forms are stored on the other side of the ship.
You try to run, but the floor is covered with glue. You can hear the Captain
calling your name, louder and louder, as you struggle to move your legs"
"You gulp down the last of your Ramosian Fire Nectar and ask the andro-waiter
for another pitcher. This pub makes the finest Nectar on all of Ramos Two, and
@ -874,29 +928,31 @@ Suddenly the school bully leaps from behind a bush and pushes your head under
the water. You try to scream, but cannot. You feel your life draining away"
"You wake up in a huge stadium, watching an important ceremony. It's a Stellar
Patrol promotion ceremony on Tremain! Suddenly you hear your name echoing over
the PA system -- and down below you see YOURSELF walking up the steps to the
stage! The presiding admiral describes your heroic deeds on Resida, mentioning
that you were awarded the key to the planet, and then asks the ceremonial
question, \"Do you accept promotion to Lieutenant First Class?\" You try to
yell \"No!\" from your seat in the stands, but the words catch in your throat"
Patrol promotion ceremony on Tremain! Suddenly your own name echoes over the
PA system -- and down below you see YOURSELF walking up the steps to the stage!
The presiding admiral describes your heroism on Resida, mentioning that you
were awarded the key to the planet, and then asks the ceremonial question,
\"Do you accept promotion to Lieutenant First Class?\" You try to yell \"No!\"
from the stands, but the words are lost in the vastness of the stadium"
"You find yourself floating in a spacepod outside the docking bays of a large
space station. All the doors are closed. You snap on the radio, and discover
that Floyd is in charge within the station. \"Open the pod bay doors, Floyd,\"
you tell him, but he replies, \"I'm sorry, I can't do that,\" and begins
laughing and your air is beginning to run out"
"You find yourself in a spacepod outside the docking bays of a large space
station. All the doors are closed. You snap on the radio, and discover that
Floyd is in charge within the station. \"Open the pod bay doors, Floyd,\" you
tell him but he replies, \"I'm sorry, I can't do that,\" and begins laughing
and your air is beginning to run out"
"At last, the Duffy is approaching Space Station Delta Upsilon Upsilon Phi for
the ship's first rec leave in almost six months. It's even worth the six solid
days of paperwork necessary for a standard half-day leave. Stationfall is only
millichrons away, but suddenly you realize that you're all alone on the Duffy!
Frantic, you dash to the deserted bridge, but it's too late to keep the
out-of-control Duffy from ramming the massive space station! The hull of the
station falls toward you">>
"At last, the Duffy is approaching station Delta Upsilon Upsilon Phi -- your
first rec leave in almost six months. It's even worth the six solid days of
paperwork necessary for a standard half-day leave. Stationfall is millichrons
away, but suddenly you realize that you're all alone on the Duffy! Frantic,
you dash to the deserted bridge, but it's too late to stop the out-of-control
Duffy from ramming the massive space station! The hull of the station rushes
toward you">>
<ROUTINE WAKING-UP ("AUX" X N)
<CRLF> <CRLF>
<COND (<NOT <IN? ,PROTAGONIST ,BED>>
<MOVE ,PROTAGONIST ,HERE>)>
<COND (<FSET? ,SPACESUIT ,WORNBIT>
<JIGS-UP
"You dream of being buried alive in an ancient Egyptian pyramid, inside the
@ -906,7 +962,7 @@ gag as the air in the coffin runs low.|
who go to sleep inside space suits with limited oxygen supplies.">)
(<AND <NOT <EQUAL? ,COURSE-PICKED ,RIGHT-COURSE>>
<EQUAL? ,HERE ,SPACETRUCK>>
<TELL "You wake up gasping for air! The spacetruck">
<TELL "You wake up gasping for air! The " 'SPACETRUCK-OBJECT>
<COND (<RUNNING? ,I-SPACETRUCK>
<TELL " is dead in uncharted space and it">)
(T
@ -919,21 +975,23 @@ who go to sleep inside space suits with limited oxygen supplies.">)
the Duffy's brig, and furthermore, you are wearing the uniform of an Ensign
Ninth Class! You trace the clanging noise to a pipe in your cell.|
Placing your ear against the pipe, you hear, \"Psst! Grapevine news! Some
dumb kripping " ,LFC " fell asleep on Deck Five in the middle of some big
dumb kripping " ,LFC " fell asleep on Deck Twelve in the middle of some big
assignment! The poor trot-head's been broken to Ensign Ninth, and there's
talk of a court martial!\"|
talk of a court-martial!\"|
Sure enough, the next morning you are led in front of a firing squad.
Moral: don't screw up vital assignments like picking up " ,FORM-NAME>
<JIGS-UP ".">)
(<AND <NOT <IN? ,PROTAGONIST ,BED>>
<FSET? ,DOCKING-BAY-2 ,TOUCHBIT>
<PROB <* ,DAY 40>>>
(<OR <AND <IN? ,PROTAGONIST ,HERE>
<FSET? ,DOCKING-BAY-2 ,TOUCHBIT>
<PROB <* ,DAY 40>>>
<AND <ULTIMATELY-IN? ,OSTRICH-NIP>
<IN? ,OSTRICH ,HERE>>>
<JIGS-UP
"A movement awakens you in the middle of the night! Through unfocused
eyes you see a large machine rolling menacingly closer! A bright light
leaps from it, straight toward...">)
(<PROB 60>
<TELL "..." <PICK-ONE ,DREAMS> "..." CR CR>)>
<TELL "..." <PICK-ONE ,DREAMS> ,ELLIPSIS>)>
<SETG DAY <+ ,DAY 1>>
<SETG ROBOT-EVILNESS <+ ,ROBOT-EVILNESS 1>>
<I-ROBOT-EVILNESS>
@ -944,30 +1002,36 @@ leaps from it, straight toward...">)
<COND (<G? ,DAY 2>
<SETG MOVES 9947>)
(T
<QUEUE I-MESSAGE 943>
<SETG SCORE <+ ,SCORE 3>>
<SETG MOVES ,INTERNAL-MOVES>)>
<FCLEAR ,AUTO-DOOR ,TOUCHBIT>
<QUEUE I-SLEEP-WARNINGS 5900>
<COND (<NOT <ULTIMATELY-IN? ,BOTTLE ,VACUUM-STORAGE>>
;<COND (<NOT <ULTIMATELY-IN? ,BOTTLE ,VACUUM-STORAGE>>
<COND (<FSET? ,BOTTLE ,OPENBIT>
<SETG CARBON-DIOXIDE-GONE T>)>
<SETG FROZEN-LEVEL 0>
<DEQUEUE I-MELT-CARBON-DIOXIDE>)>
<COND (<NOT <ULTIMATELY-IN? ,EXPLOSIVE ,VACUUM-STORAGE>>
<REMOVE ,EXPLOSIVE>
<MOVE ,EXPLOSIVE ,DECK-TWELVE> ;"REMOVE-CAREFULLY don't print"
<REMOVE-CAREFULLY ,EXPLOSIVE>
<DEQUEUE I-EXPLOSIVE-MELT>)>
<COND (<FSET? ,HEADLAMP ,ONBIT>
<FCLEAR ,HEADLAMP ,ACTIVEBIT>
<FCLEAR ,HEADLAMP ,ONBIT>
<SETG HEADLAMP-COUNTER 0>)>
<COND (<G? ,SOUP-WARMTH 0>
<COND (<FSET? ,THERMOS ,OPENBIT>
<SETG SOUP-WARMTH 0>)
(T
<SETG SOUP-WARMTH <- ,SOUP-WARMTH 30>>)>)>
<FSET ,OSTRICH ,TOUCHBIT>
<COND (<AND <IN? ,OSTRICH ,HERE>
<IN? ,OSTRICH-NIP ,HERE>>
<REMOVE ,OSTRICH-NIP>)>
<ROB ,PROTAGONIST ,HERE>
<USL>
<TELL "***** NOVEM " N <+ ,DAY 3> ", 11349 *****" CR CR "You awake ">
<COND (<QUEUED? ,I-LIGHTS-OUT>
<COND (<NOT ,LIT>
<TELL "in darkness.">)
(<QUEUED? ,I-LIGHTS-OUT>
<DEQUEUE I-LIGHTS-OUT>
<I-LIGHTS-OUT T>
<TELL
@ -996,9 +1060,8 @@ to throw at you.">)
<COND (<AND <RUNNING? ,I-SPACETRUCK>
<EQUAL? ,COURSE-PICKED ,RIGHT-COURSE>>
<QUEUE I-WELDER -1>
<QUEUE I-FLOYD -1> ;"to get ints. in the proper order"
<QUEUE I-PLATO 750>
<DEQUEUE ,I-SPACETRUCK>
<FCLEAR ,SPACETRUCK ,WEIGHTLESSBIT>
<SETG SCORE <+ ,SCORE 5>>
<SETG SPACETRUCK-COUNTER 5>
<TELL
@ -1008,17 +1071,21 @@ of the space station's docking bays." CR>)>
<FCLEAR ,ELEVATOR ,WEIGHTLESSBIT>
<FSET ,EXERCISE-MACHINE ,TOUCHBIT>
<MOVE ,EXERCISE-MACHINE ,COMPUTER-CONTROL>
<ROB ,EXERCISE-MACHINE ,GYM>
<COND (<FSET? ,CHRONOMETER ,WORNBIT>
<TELL " ">
<PERFORM ,V?EXAMINE ,CHRONOMETER>)>)>
<COND (<AND <FSET? ,FLOYD ,ACTIVEBIT>
<NOT <IN? ,FLOYD ,FACTORY>>>
<NOT <IN? ,FLOYD ,FACTORY>>
<NOT <EQUAL? ,HERE ,AIRLOCK>>>
<SETG FLOYD-SPOKE T>
<TELL " Floyd ">
<COND (<G? ,ROBOT-EVILNESS 12>
<COND (<G? ,ROBOT-EVILNESS 13>
<TELL "is rudely kicking you">
<COND (<IN? ,PROTAGONIST ,BED>
<TELL "r mattress">)>
<TELL
"is rudely kicking your mattress. \"Trot it! Will you kripping wake up
already? Floyd's getting bored!\"" CR>)
". \"Trot it! Will you kripping wake up already? Floyd getting bored!\"" CR>)
(T
<TELL "bounces impatiently at ">
<COND (<IN? ,PROTAGONIST ,BED>
@ -1037,16 +1104,17 @@ friend,\" says Floyd with unbounded exuberance and a wide grin." CR>
<I-PLATO T>)
(T
<TELL ". \"About time you woke up, you lazy ">
<COND (<G? ,ROBOT-EVILNESS 8>
<COND (<G? ,ROBOT-EVILNESS 9>
<TELL
"slob!\" says Floyd. \"It's getting pretty trotting dull around her">)
"slob!\" says Floyd. \"It's getting pretty trotting dull around he">)
(T
<TELL
"bones!\" says Floyd. \"Let's explore around some mor">)>
<TELL "e!\"" CR>)>)>
"bones!\" says Floyd. \"Let's explore around some mo">)>
<TELL "re!\"" CR>)>)>
<MOVE ,FLOYD ,HERE>)>
<CRLF>
<V-LOOK>>
<COND (,LIT
<CRLF>
<V-LOOK>)>>
;"thirst and hunger"
@ -1092,28 +1160,38 @@ probably pass out." CR>)
<COND (<VERB? EXAMINE>
<COND (<EQUAL? ,WELDER-COUNTER 1>
<TELL
"This welder, which is marked \"Welder Number "
N <GET ,WELDER-TABLE ,WELDER-TABLE-POINTER>
",\" seems to be moving purposefully toward you,
"This welder, which is marked \"Welder Number " N <GET ,WELDER-TABLE
,WELDER-TABLE-POINTER> ",\" seems to be moving purposefully toward you,
its welding extensions quivering with...excitement?" CR>)
(<EQUAL? ,WELDER-COUNTER 2>
<TELL
"There definitely seems to be something menacing about its behavior." CR>)
(T
<TELL "The welder is now almost upon you!" CR>)>)
(<VERB? WHAT>
<TELL
"A " 'WELDER " is a very simple machine which repairs any leaks or holes in
the hull of any sort of space habitat. Because of the potentially catastrophic
effects of a break in the integrity of a hull on the habitat's air supply, "
'WELDER "s are kept active at all times, roaming around with their sensing
devices alert for the tiniest leak." CR>)
(<VERB? SHOOT>
<REMOVE ,WELDER>
<PUT ,WELDER-TABLE ;"that # welder should never show up again"
,WELDER-TABLE-POINTER
<GET ,WELDER-TABLE ,NUMBER-OF-WELDERS>>
<SETG NUMBER-OF-WELDERS <- ,NUMBER-OF-WELDERS 1>>
<SETG WELDER-COUNTER 0>
<COND (<EQUAL? ,NUMBER-OF-WELDERS 0>
<DEQUEUE I-WELDER>)>
<PUT ,WELDER-TABLE ;"that # welder should never show up again"
,WELDER-TABLE-POINTER
<GET ,WELDER-TABLE ,NUMBER-OF-WELDERS>>
<TELL
"The welder is enveloped by red-hot plasma rays. It glows ever brighter in
the heat of the rays, seems to shimmer like a mirage, and then suddenly
vanishes! A wave of hot vapor pushes you backwards.">
<COND (<VISIBLE? ,EXPLOSIVE>
<TELL
" As the heat wave hits the explosive, it " ,SUBLIMES-INTO-FREZONE>
<REMOVE-CAREFULLY ,EXPLOSIVE>)>
<COND (<AND <IN? ,OSTRICH ,HERE>
<FSET? ,OSTRICH ,TOUCHBIT>>
<TELL " ">
@ -1141,7 +1219,12 @@ vanishes! A wave of hot vapor pushes you backwards.">
<COND (<IN? ,WELDER ,HERE>
<TELL " ">
<SETG WELDER-COUNTER <+ ,WELDER-COUNTER 1>>
<COND (<EQUAL? ,WELDER-COUNTER 2>
<COND (<NOT ,LIT>
<REMOVE ,WELDER>
<SETG WELDER-COUNTER 0>
<TELL "Y" ,HEAR-WELDER-LEAVE>
<RTRUE>)
(<EQUAL? ,WELDER-COUNTER 2>
<TELL "The welder moves closer. ">)
(<NOT <EQUAL? ,WELDER-COUNTER 3>>
<JIGS-UP
@ -1152,14 +1235,16 @@ same two extensions at that moment.">)>
(<G? ,WELDER-COUNTER 0>
<REMOVE ,WELDER>
<SETG WELDER-COUNTER 0>
<TELL
" Nearby, you hear the welder move off in another direction." CR>)
<TELL " Nearby, y" ,HEAR-WELDER-LEAVE>)
(<AND <NOT <FSET? ,HERE ,NWELDERBIT>>
<NOT <IN? ,PROTAGONIST ,BED>>
,LIT
<PROB ,NUMBER-OF-WELDERS>>
<COND (<AND <G? ,PLATO-ATTACK-COUNTER 0>
<IN? ,PLATO ,HERE>>
<RFALSE>)
(<AND <EQUAL? ,HERE ,SPACETRUCK>
<NOT <FSET? ,SPACETRUCK-HATCH ,OPENBIT>>>
<RFALSE>)>
<MOVE ,WELDER ,HERE>
<SETG WELDER-COUNTER <+ ,WELDER-COUNTER 1>>
@ -1167,16 +1252,9 @@ same two extensions at that moment.">)>
<TELL " You spot a " 'WELDER " approaching. ">
<COND (<NOT <FSET? ,WELDER ,TOUCHBIT>>
<FSET ,WELDER ,TOUCHBIT>
<TELL
"A " 'WELDER " is a very simple machine which repairs any leaks or holes in
the hull of any sort of space habitat. Because of the potentially catastrophic
effects of a break in the integrity of a hull on the habitat's air supply, "
'WELDER "s are kept active at all times, roaming around with their sensing
devices alert for the tiniest leak. ">)>
<PERFORM ,V?WHAT ,WELDER>)>
<PERFORM ,V?EXAMINE ,WELDER>
<STOP>)
(T
<RFALSE>)>>
<STOP>)>>
;"utility routines and shared strings"
@ -1202,17 +1280,12 @@ devices alert for the tiniest leak. ">)>
(T
<RFALSE>)>>
<ROUTINE CANT-SEE ("OPTIONAL" (OBJ <>) (STRING <>))
<ROUTINE CANT-SEE (OBJ)
<SETG P-WON <>>
<TELL ,YOU-CANT>
<TELL "see">
<COND (<OR <NOT .OBJ>
<AND .OBJ
<NOT <NAME? .OBJ>>>>
<TELL ,YOU-CANT "see">
<COND (<NOT <NAME? .OBJ>>
<TELL " any">)>
<COND (<NOT .OBJ>
<TELL " " .STRING>)
(<EQUAL? .OBJ ,PRSI>
<COND (<EQUAL? .OBJ ,PRSI>
<PRSI-PRINT>)
(T
<PRSO-PRINT>)>
@ -1223,23 +1296,23 @@ devices alert for the tiniest leak. ">)>
<TELL ,YOU-CANT .STRING A ,PRSO "!" CR>>
<ROUTINE TELL-HIT-HEAD ()
<TELL
"You hit your head against" T ,PRSO " as you attempt this." CR>>
<TELL "You hit your head against" T ,PRSO " as you attempt this." CR>>
<ROUTINE REMOVE-CAREFULLY (OBJ "AUX" (ALSO <>))
<COND (<AND ,TIMER-CONNECTED
<EQUAL? .OBJ ,TIMER ,DETONATOR>>
<SETG TIMER-CONNECTED <>>
<SET ALSO T>
<TELL
" (The timer is, of course, no longer attached to the detonator.)">)
<COND (<VISIBLE? ,DETONATOR>
<TELL " (The timer is" ,NO-LONGER-ATTACHED>)>)
(<AND ,EXPLOSIVE-CONNECTED
<EQUAL? .OBJ ,EXPLOSIVE ,DETONATOR>>
<SETG EXPLOSIVE-CONNECTED <>>
<TELL " (The explosive is, of course, ">
<COND (.ALSO
<TELL "also ">)>
<TELL "no longer attached to the detonator.)">)>
<COND (<VISIBLE? ,DETONATOR>
<TELL " (The explosive is">
<COND (.ALSO
<TELL " also">)>
<TELL ,NO-LONGER-ATTACHED>)>)>
<FSET .OBJ ,TOUCHBIT>
<FCLEAR .OBJ ,TRYTAKEBIT>
<REMOVE .OBJ>>
@ -1264,12 +1337,6 @@ devices alert for the tiniest leak. ">)>
(T
<RFALSE>)>>
<ROUTINE OFF-VEHICLE? (OBJ) ;"tells to print GET OFF versus GET OUT OF"
<COND (<EQUAL? .OBJ ,BED>
<RTRUE>)
(T
<RFALSE>)>>
<ROUTINE OPEN-CLOSED (OBJ)
<COND (<FSET? .OBJ ,OPENBIT>
<TELL "open">)
@ -1286,7 +1353,10 @@ devices alert for the tiniest leak. ">)>
<COND (,HANGING-IN-AIR
<TELL " while you're hanging way up here">)
(<NOT <IN? ,PROTAGONIST ,HERE>>
<TELL " from" T <LOC ,PROTAGONIST>>)>
<TELL " from" T <LOC ,PROTAGONIST>>)
(<AND <PRSO? ,FLOYD ,REX ,HELEN>
<NOT <PRSO? ,ROBOT-PICKED>>>
<TELL " from outside the bin">)>
<TELL ,PERIOD-CR>
<STOP>>
@ -1341,12 +1411,15 @@ devices alert for the tiniest leak. ">)>
<ROUTINE ANTI-LITTER (OBJ)
<REMOVE .OBJ>
<TELL ". The ">
<COND (<EQUAL? .OBJ ,SOUP>
<TELL "bowl">)
<COND (<EQUAL? .OBJ ,LEASH>
<TELL "leash">)
(T
<TELL "cup">)>
<TELL
" instantly vaporizes, part of the galactic anti-litter program." CR>>
" instantly vaporizes, part of the galactic anti-litter program.">
<COND (<NOT <EQUAL? .OBJ ,LEASH>>
<CRLF>)>
<RTRUE>>
;<ROUTINE UNIMPORTANT-THING-F ()
<TELL "That's not important; leave it alone." CR>>
@ -1367,7 +1440,7 @@ devices alert for the tiniest leak. ">)>
<GLOBAL LOOK-AROUND "Look around you.|">
<GLOBAL CANT-FROM-HERE "You can't do that from here.|">
;<GLOBAL CANT-FROM-HERE "You can't do that from here.|" >
<GLOBAL HOLDING-IT "You're holding it!|">
@ -1414,9 +1487,6 @@ visible to you is a slot (for inserting your form) and a keypad
"Request for Stellar Patrol Issue Regulation Black Form Binders Request Form
Forms">
<GLOBAL TYPE-NUMERALS
"[Use numerals: for example, TYPE 5 rather than TYPE FIVE.]|">
<GLOBAL BLASTED-OPEN "The thick side wall of the tank has been blasted open">
<GLOBAL NEXT-TIME "Next time, say what number to set it to.|">
@ -1428,10 +1498,6 @@ Forms">
"Spanning the entire garden is a transparent dome, providing a breathtaking
view of the heavens in all their splendor.">
<GLOBAL CONTROL-BOX-DESC
"The control box contains a keypad for typing the number of the level you
want to go to.">
<GLOBAL STRIKE-POWER-SOURCE
" strike the machine's power source, inducing an overload implosion
in said power source.">
@ -1445,4 +1511,47 @@ in said power source.">
<GLOBAL DANS-LOT-DESC
"Through the large, dirty window, you can see Dan's used spaceship lot. The
spaceships floating in Dan's lot all have their prices whitewashed on their
viewports, along with phrases like \"A steal!\" and \"Just reduced!\"">
viewports, along with phrases like \"A steal!\" and \"Just reduced!\"">
<GLOBAL ALREADY-IN-MODE "You are already in that mode.|">
<GLOBAL VIOLATION-OF-ACT
"That might get you into serious trouble as a violation of the Comprehensive
Forms Destruction and Mutilation Act of 11309 GY.|">
<GLOBAL HEAR-WELDER-LEAVE "ou hear the welder move off in another direction.|">
<GLOBAL NO-LONGER-ATTACHED
", of course, no longer attached to the detonator.)">
<GLOBAL FORM-ACCEPTED
"The form is swallowed up, followed by a long pause for triple-redundancy
processing. ">
<GLOBAL FORM-REJECTED "The form is rejected. ">
<GLOBAL SUBLIMES-INTO-FREZONE
"suddenly sublimes into a puff of FREZONE (tm) gas.">
<GLOBAL UNFAMILIAR "For those unfamiliar with PLANETFALL, ">
<GLOBAL CLUTTERED-BUBBLE "| You have entered a cluttered space bubble ">
<GLOBAL AT-SECOND-GLANCE
" in the center... Oops. At second glance, you realize that the ">
<GLOBAL FORKLIFT-DESC
" between the arms of the frozen exercise machine, smoke pouring from its
engine vents like steam from the nostrils of an angry bull.">
<GLOBAL DETACH "You detach the detonator from ">
<GLOBAL PATHETIC-SQUAWK " The ostrich gives a pathetic squawk of terror ">
<GLOBAL MAKE-OUT-AN-M "ou can just make out a letter \"M.\"|">
<GLOBAL LANDS-ON-FLOOR " and lands on the floor.">
<GLOBAL LADDER-LEADS ", and a ladder leads both upward and downward.">
<GLOBAL TOO-LONG-TO-WAIT "That's too long to wait.|">

443
misc.zap
View File

@ -21,22 +21,22 @@
.FUNCT APRINT,OBJ
FSET? OBJ,NARTICLEBIT \?ELS3
FSET? OBJ,NARTICLEBIT \?CCL3
PRINTC 32
JUMP ?CND1
?ELS3: FSET? OBJ,VOWELBIT \?ELS5
?CCL3: FSET? OBJ,VOWELBIT \?CCL5
PRINTI " an "
JUMP ?CND1
?ELS5: PRINTI " a "
?CCL5: PRINTI " a "
?CND1: PRINTD OBJ
RTRUE
.FUNCT TPRINT,OBJ
FSET? OBJ,NARTICLEBIT \?ELS3
FSET? OBJ,NARTICLEBIT \?CCL3
PRINTC 32
JUMP ?CND1
?ELS3: PRINTI " the "
?CCL3: PRINTI " the "
?CND1: PRINTD OBJ
RTRUE
@ -67,14 +67,15 @@
START::
?FCN: SET 'WINNER,PROTAGONIST
SET 'HERE,DECK-FIVE
SET 'HERE,DECK-TWELVE
RANDOM 1220
ADD 4430,STACK >INTERNAL-MOVES
SET 'MOVES,INTERNAL-MOVES
SUB 8100,INTERNAL-MOVES
CALL QUEUE,I-SLEEP-WARNINGS,STACK
CALL QUEUE,I-HUNGER-WARNINGS,1330
PRINTI "It's been five years since your planetfall on Resida. Your heroics in saving that doomed world resulted in a big promotion, but your life of dull scrubwork has been replaced by a life of dull paperwork. Today you find yourself amidst the administrative maze of Deck Five on a typically exciting task: an emergency mission to Space Station Gamma Delta Gamma 777-G 59/59 Sector Alpha-Mu-79 to pick up a supply of "
CALL QUEUE,I-BLATHER,-1
PRINTI "It's been five years since your planetfall on Resida. Your heroics in saving that doomed world resulted in a big promotion, but your life of dull scrubwork has been replaced by a life of dull paperwork. Today you find yourself amidst the administrative maze of Deck Twelve on a typically exciting task: an emergency mission to Space Station Gamma Delta Gamma 777-G 59/59 Sector Alpha-Mu-79 to pick up a supply of "
PRINT FORM-NAME
PRINT ELLIPSIS
CALL V-VERSION
@ -95,7 +96,7 @@ START::
SET 'OBJ,FALSE-VALUE
SET 'PTBL,TRUE-VALUE
CALL PARSER >P-WON
ZERO? P-WON /?ELS3
ZERO? P-WON /?CCL3
GET P-PRSI,P-MATCHLEN >ICNT
GET P-PRSO,P-MATCHLEN >OCNT
EQUAL? PRSA,V?WALK /?CND4
@ -108,193 +109,187 @@ START::
EQUAL? STACK,IT \?PRG9
PUT P-PRSI,CNT,P-IT-OBJECT
SET 'TMP,TRUE-VALUE
?REP10: ZERO? TMP \?CND19
?REP10: ZERO? TMP \?CND16
SET 'CNT,0
?PRG22: IGRTR? 'CNT,OCNT /?CND19
?PRG18: IGRTR? 'CNT,OCNT /?CND16
GET P-PRSO,CNT
EQUAL? STACK,IT \?PRG22
EQUAL? STACK,IT \?PRG18
PUT P-PRSO,CNT,P-IT-OBJECT
?CND19: SET 'CNT,0
?CND4: ZERO? OCNT \?ELS36
PUSH OCNT
JUMP ?CND32
?ELS36: GRTR? OCNT,1 \?ELS38
?CND16: SET 'CNT,0
?CND4: ZERO? OCNT \?CCL27
SET 'NUM,OCNT
JUMP ?CND25
?CCL27: GRTR? OCNT,1 \?CCL29
SET 'TBL,P-PRSO
ZERO? ICNT \?ELS41
ZERO? ICNT \?CCL32
SET 'OBJ,FALSE-VALUE
JUMP ?CND39
?ELS41: GET P-PRSI,1 >OBJ
?CND39: PUSH OCNT
JUMP ?CND32
?ELS38: GRTR? ICNT,1 \?ELS45
JUMP ?CND30
?CCL32: GET P-PRSI,1 >OBJ
?CND30: SET 'NUM,OCNT
JUMP ?CND25
?CCL29: GRTR? ICNT,1 \?CCL34
SET 'PTBL,FALSE-VALUE
SET 'TBL,P-PRSI
GET P-PRSO,1 >OBJ
PUSH ICNT
JUMP ?CND32
?ELS45: PUSH 1
?CND32: SET 'NUM,STACK
ZERO? OBJ \?CND48
EQUAL? ICNT,1 \?CND48
SET 'NUM,ICNT
JUMP ?CND25
?CCL34: SET 'NUM,1
?CND25: ZERO? OBJ \?CND35
EQUAL? ICNT,1 \?CND35
GET P-PRSI,1 >OBJ
?CND48: EQUAL? PRSA,V?WALK \?ELS55
?CND35: EQUAL? PRSA,V?WALK \?CCL41
CALL PERFORM-PRSA,PRSO >V
JUMP ?CND53
?ELS55: ZERO? NUM \?ELS57
JUMP ?CND39
?CCL41: ZERO? NUM \?CCL43
GETB P-SYNTAX,P-SBITS
BAND STACK,P-SONUMS
ZERO? STACK \?ELS60
ZERO? STACK \?CCL46
CALL PERFORM-PRSA >V
SET 'PRSO,FALSE-VALUE
JUMP ?CND53
?ELS60: ZERO? LIT \?ELS62
JUMP ?CND39
?CCL46: ZERO? LIT \?CCL48
PRINT TOO-DARK
CRLF
CALL STOP
JUMP ?CND53
?ELS62: PRINTI "There isn't anything to "
JUMP ?CND39
?CCL48: PRINTI "There isn't anything to "
GET P-ITBL,P-VERBN >TMP
EQUAL? PRSA,V?TELL \?ELS67
EQUAL? PRSA,V?TELL \?CCL51
PRINTI "talk to"
JUMP ?CND65
?ELS67: ZERO? P-OFLAG \?THN70
ZERO? P-MERGED /?ELS69
?THN70: GET TMP,0
JUMP ?CND49
?CCL51: ZERO? P-OFLAG \?CTR52
ZERO? P-MERGED /?CCL53
?CTR52: GET TMP,0
PRINTB STACK
JUMP ?CND65
?ELS69: GETB TMP,2 >?TMP1
JUMP ?CND49
?CCL53: GETB TMP,2 >?TMP1
GETB TMP,3
CALL WORD-PRINT,?TMP1,STACK
?CND65: PRINTC 33
?CND49: PRINTC 33
CRLF
SET 'V,FALSE-VALUE
CALL STOP
JUMP ?CND53
?ELS57: SET 'P-NOT-HERE,0
JUMP ?CND39
?CCL43: SET 'P-NOT-HERE,0
SET 'P-MULT,FALSE-VALUE
GRTR? NUM,1 \?CND76
GRTR? NUM,1 \?CND56
SET 'P-MULT,TRUE-VALUE
?CND76: SET 'TMP,FALSE-VALUE
?PRG79: IGRTR? 'CNT,NUM \?ELS83
GRTR? P-NOT-HERE,0 \?ELS86
?CND56: SET 'TMP,FALSE-VALUE
?PRG58: IGRTR? 'CNT,NUM \?CCL62
GRTR? P-NOT-HERE,0 \?CCL65
PRINTI "[The "
EQUAL? P-NOT-HERE,NUM /?CND87
EQUAL? P-NOT-HERE,NUM /?CND66
PRINTI "other "
?CND87: PRINTI "object"
EQUAL? P-NOT-HERE,1 /?CND90
?CND66: PRINTI "object"
EQUAL? P-NOT-HERE,1 /?CND68
PRINTC 115
?CND90: PRINTI " that you mentioned "
EQUAL? P-NOT-HERE,1 /?ELS95
?CND68: PRINTI " that you mentioned "
EQUAL? P-NOT-HERE,1 /?CCL72
PRINTI "are"
JUMP ?CND93
?ELS95: PRINTI "is"
?CND93: PRINTI "n't here.]"
JUMP ?CND70
?CCL72: PRINTI "is"
?CND70: PRINTI "n't here.]"
CRLF
JUMP ?CND53
?ELS86: ZERO? TMP \?CND53
JUMP ?CND39
?CCL65: ZERO? TMP \?CND39
CALL REFERRING
JUMP ?CND53
?ELS83: ZERO? PTBL /?ELS104
JUMP ?CND39
?CCL62: ZERO? PTBL /?CCL76
GET P-PRSO,CNT >OBJ1
JUMP ?CND102
?ELS104: GET P-PRSI,CNT >OBJ1
?CND102: ZERO? PTBL /?ELS112
PUSH OBJ1
JUMP ?CND108
?ELS112: PUSH OBJ
?CND108: SET 'PRSO,STACK
ZERO? PTBL /?ELS120
PUSH OBJ
JUMP ?CND116
?ELS120: PUSH OBJ1
?CND116: SET 'PRSI,STACK
GRTR? NUM,1 /?THN127
JUMP ?CND74
?CCL76: GET P-PRSI,CNT >OBJ1
?CND74: ZERO? PTBL /?CCL79
SET 'PRSO,OBJ1
JUMP ?CND77
?CCL79: SET 'PRSO,OBJ
?CND77: ZERO? PTBL /?CCL82
SET 'PRSI,OBJ
JUMP ?CND80
?CCL82: SET 'PRSI,OBJ1
?CND80: GRTR? NUM,1 /?CCL84
GET P-ITBL,P-NC1
GET STACK,0
EQUAL? STACK,W?ALL,W?BOTH,W?EVERYT \?CND124
?THN127: CALL DONT-ALL,OBJ1
ZERO? STACK \?PRG79
EQUAL? OBJ1,IT \?ELS136
EQUAL? STACK,W?ALL,W?BOTH,W?EVERYT \?CND83
?CCL84: CALL DONT-ALL,OBJ1
ZERO? STACK \?PRG58
EQUAL? OBJ1,IT \?CCL92
PRINTD P-IT-OBJECT
JUMP ?CND134
?ELS136: EQUAL? OBJ1,HIM \?ELS138
JUMP ?CND90
?CCL92: EQUAL? OBJ1,HIM \?CCL94
PRINTD P-HIM-OBJECT
JUMP ?CND134
?ELS138: PRINTD OBJ1
?CND134: PRINTI ": "
?CND124: SET 'TMP,TRUE-VALUE
JUMP ?CND90
?CCL94: PRINTD OBJ1
?CND90: PRINTI ": "
?CND83: SET 'TMP,TRUE-VALUE
CALL PERFORM-PRSA,PRSO,PRSI >V
EQUAL? V,M-FATAL \?PRG79
?CND53: EQUAL? V,M-FATAL \?CND144
EQUAL? V,M-FATAL \?PRG58
?CND39: EQUAL? V,M-FATAL \?CND97
SET 'P-CONT,FALSE-VALUE
?CND144: CALL CLOCKER-VERB?
ZERO? STACK /?ELS149
EQUAL? PRSA,V?TELL /?ELS149
ZERO? P-WON /?ELS149
?CND97: CALL CLOCKER-VERB?
ZERO? STACK /?CCL101
EQUAL? PRSA,V?TELL /?CCL101
ZERO? P-WON /?CCL101
CALL RUNNING?,I-SPACETRUCK
ZERO? STACK /?ELS154
LESS? SPACETRUCK-COUNTER,5 \?ELS154
ZERO? STACK /?CND105
LESS? SPACETRUCK-COUNTER,5 \?CND105
SET 'C-ELAPSED,240
JUMP ?CND152
?ELS154: CALL QUEUED?,I-TIMER
ZERO? STACK /?CND152
SET 'C-ELAPSED,10
?CND152: GETP HERE,P?ACTION
?CND105: GETP HERE,P?ACTION
CALL STACK,M-END >V
JUMP ?CND1
?ELS149: SET 'C-ELAPSED,0
?CCL101: SET 'C-ELAPSED,0
JUMP ?CND1
?ELS3: SET 'P-CONT,FALSE-VALUE
?CND1: ZERO? P-WON /FALSE
?CCL3: SET 'P-CONT,FALSE-VALUE
?CND1: ZERO? P-WON /?CND109
ADD INTERNAL-MOVES,C-ELAPSED >INTERNAL-MOVES
FSET? CHRONOMETER,WORNBIT \?ELS171
LESS? DAY,3 \?ELS174
FSET? CHRONOMETER,WORNBIT \?CCL113
LESS? DAY,3 \?CCL116
SET 'MOVES,INTERNAL-MOVES
JUMP ?CND169
?ELS174: SET 'MOVES,9947
JUMP ?CND169
?ELS171: SET 'MOVES,0
?CND169: ZERO? C-ELAPSED /?CND179
JUMP ?CND111
?CCL116: SET 'MOVES,9947
JUMP ?CND111
?CCL113: SET 'MOVES,0
?CND111: ZERO? C-ELAPSED /?CND117
CALL CLOCKER >V
?CND179: SET 'POSTPONE-ATTACK,FALSE-VALUE
SET 'C-ELAPSED,7
?CND117: SET 'POSTPONE-ATTACK,FALSE-VALUE
SET 'FLOYD-TRYTAKEN,FALSE-VALUE
SET 'P-PRSA-WORD,FALSE-VALUE
SET 'PRSA,FALSE-VALUE
SET 'PRSO,FALSE-VALUE
SET 'PRSI,FALSE-VALUE
RETURN PRSI
?CND109: SET 'C-ELAPSED,7
RETURN C-ELAPSED
.FUNCT DONT-ALL,OBJ1,L
LOC OBJ1 >L
EQUAL? OBJ1,NOT-HERE-OBJECT \?ELS5
EQUAL? OBJ1,NOT-HERE-OBJECT \?CCL3
INC 'P-NOT-HERE
RTRUE
?ELS5: EQUAL? PRSA,V?TAKE \?ELS7
ZERO? PRSI /?ELS7
?CCL3: EQUAL? PRSA,V?TAKE \?CCL5
ZERO? PRSI /?CCL5
IN? PRSO,PRSI \TRUE
?ELS7: CALL ACCESSIBLE?,OBJ1
?CCL5: CALL ACCESSIBLE?,OBJ1
ZERO? STACK /TRUE
EQUAL? P-GETFLAGS,P-ALL \FALSE
ZERO? PRSI /?ELS18
ZERO? PRSI /?CCL15
EQUAL? PRSO,PRSI /TRUE
?ELS18: EQUAL? PRSA,V?TAKE \?ELS22
FSET? OBJ1,TAKEBIT /?ELS27
?CCL15: EQUAL? PRSA,V?TAKE \?CCL19
FSET? OBJ1,TAKEBIT /?CCL22
FSET? OBJ1,TRYTAKEBIT \TRUE
?ELS27: EQUAL? L,WINNER,HERE,PRSI /?ELS31
?CCL22: EQUAL? L,WINNER,HERE,PRSI /?CCL26
LOC WINNER
EQUAL? L,STACK /?ELS31
EQUAL? L,STACK /?CCL26
FSET? L,SURFACEBIT \TRUE
FSET? L,TAKEBIT /TRUE
RFALSE
?ELS31: ZERO? PRSI \FALSE
?CCL26: ZERO? PRSI \FALSE
CALL ULTIMATELY-IN?,PRSO
ZERO? STACK /FALSE
RTRUE
?ELS22: EQUAL? PRSA,V?PUT-ON,V?PUT,V?DROP /?THN53
EQUAL? PRSA,V?SGIVE,V?GIVE \?ELS50
?THN53: IN? OBJ1,WINNER \TRUE
?ELS50: EQUAL? PRSA,V?PUT-ON,V?PUT \FALSE
?CCL19: EQUAL? PRSA,V?PUT-ON,V?PUT,V?DROP /?PRD41
EQUAL? PRSA,V?SGIVE,V?GIVE \?CCL39
?PRD41: IN? OBJ1,WINNER \TRUE
?CCL39: EQUAL? PRSA,V?PUT-ON,V?PUT \FALSE
IN? PRSO,WINNER /FALSE
CALL ULTIMATELY-IN?,PRSO,PRSI
ZERO? STACK \TRUE
@ -308,32 +303,32 @@ START::
EQUAL? PRSA,V?RESTORE,V?SAVE,V?$RANDOM /FALSE
EQUAL? PRSA,V?SCRIPT,V?QUIT,V?RESTART /FALSE
EQUAL? PRSA,V?SUPER-BRIEF,V?BRIEF,V?UNSCRIPT /FALSE
EQUAL? PRSA,V?VERBOSE \TRUE
RFALSE
EQUAL? PRSA,V?VERBOSE /FALSE
RTRUE
.FUNCT FAKE-ORPHAN,IT-WAS-USED=0,TMP,?TMP1
CALL ORPHAN,P-SYNTAX,FALSE-VALUE
GET P-OTBL,P-VERBN >TMP
PRINTI "[Be specific: Wh"
ZERO? IT-WAS-USED /?ELS3
ZERO? IT-WAS-USED /?CCL3
PRINTI "at object"
JUMP ?CND1
?ELS3: PRINTC 111
?CCL3: PRINTC 111
?CND1: PRINTI " do you want to "
ZERO? TMP \?ELS9
ZERO? TMP \?CCL6
PRINTI "tell"
JUMP ?CND7
?ELS9: GETB P-VTBL,2
ZERO? STACK \?ELS11
JUMP ?CND4
?CCL6: GETB P-VTBL,2
ZERO? STACK \?CCL8
GET TMP,0
PRINTB STACK
JUMP ?CND7
?ELS11: GETB TMP,2 >?TMP1
JUMP ?CND4
?CCL8: GETB TMP,2 >?TMP1
GETB TMP,3
CALL WORD-PRINT,?TMP1,STACK
PUTB P-VTBL,2,0
?CND7: SET 'P-OFLAG,TRUE-VALUE
?CND4: SET 'P-OFLAG,TRUE-VALUE
SET 'P-WON,FALSE-VALUE
GETB P-SYNTAX,P-SPREP1
CALL PREP-PRINT,STACK
@ -349,80 +344,78 @@ START::
ZERO? DEBUG /?CND1
PRINTI "[Perform: "
PRINTN A
ZERO? O /?CND5
ZERO? O /?CND3
PRINTI " / PRSO = "
EQUAL? A,V?WALK /?ELS11
EQUAL? A,V?WALK /?CCL7
PRINTD O
JUMP ?CND5
?ELS11: PRINTN O
?CND5: ZERO? I /?CND14
JUMP ?CND3
?CCL7: PRINTN O
?CND3: ZERO? I /?CND8
PRINTI " / PRSI = "
PRINTD I
?CND14: PRINTC 93
?CND8: PRINTC 93
CRLF
?CND1: SET 'OA,PRSA
SET 'OO,PRSO
SET 'OI,PRSI
SET 'PRSA,A
ZERO? P-WALK-DIR \?CND18
EQUAL? IT,O,I \?CND18
ZERO? P-WALK-DIR \?CND10
EQUAL? IT,O,I \?CND10
CALL VISIBLE?,P-IT-OBJECT
ZERO? STACK /?ELS25
EQUAL? IT,O \?ELS28
ZERO? STACK /?CCL16
EQUAL? IT,O \?CCL19
SET 'O,P-IT-OBJECT
JUMP ?CND18
?ELS28: SET 'I,P-IT-OBJECT
JUMP ?CND18
?ELS25: ZERO? I \?ELS35
JUMP ?CND10
?CCL19: SET 'I,P-IT-OBJECT
?CND10: ZERO? P-WALK-DIR \?CND25
EQUAL? HIM,O,I \?CND25
CALL VISIBLE?,P-HIM-OBJECT
ZERO? STACK /?CCL31
EQUAL? HIM,O \?CCL34
SET 'O,P-HIM-OBJECT
JUMP ?CND25
?CCL16: ZERO? I \?CCL22
CALL FAKE-ORPHAN,TRUE-VALUE
RETURN 8
?ELS35: CALL REFERRING
?CCL22: CALL REFERRING
RETURN 8
?CND18: ZERO? P-WALK-DIR \?CND40
EQUAL? HIM,O,I \?CND40
CALL VISIBLE?,P-HIM-OBJECT
ZERO? STACK /?ELS47
EQUAL? HIM,O \?ELS50
SET 'O,P-HIM-OBJECT
?CCL34: SET 'I,P-HIM-OBJECT
?CND25: SET 'PRSO,O
SET 'PRSI,I
EQUAL? A,V?WALK /?CCL42
EQUAL? NOT-HERE-OBJECT,PRSO,PRSI \?CCL42
CALL D-APPLY,STR?1,NOT-HERE-OBJECT-F >V
ZERO? V /?CCL42
SET 'P-WON,FALSE-VALUE
JUMP ?CND40
?ELS50: SET 'I,P-HIM-OBJECT
JUMP ?CND40
?ELS47: ZERO? I \?ELS57
?CCL31: ZERO? I \?CCL37
CALL FAKE-ORPHAN
RETURN 8
?ELS57: CALL REFERRING,TRUE-VALUE
?CCL37: CALL REFERRING,TRUE-VALUE
RETURN 8
?CND40: SET 'PRSO,O
SET 'PRSI,I
EQUAL? A,V?WALK /?ELS64
EQUAL? NOT-HERE-OBJECT,PRSO,PRSI \?ELS64
CALL D-APPLY,STR?1,NOT-HERE-OBJECT-F >V
ZERO? V /?ELS64
SET 'P-WON,FALSE-VALUE
JUMP ?CND62
?ELS64: SET 'O,PRSO
?CCL42: SET 'O,PRSO
SET 'I,PRSI
CALL THIS-IS-IT,PRSI
CALL THIS-IS-IT,PRSO
GETP WINNER,P?ACTION
CALL D-APPLY,STR?2,STACK >V
ZERO? V \?CND62
ZERO? V \?CND40
GET PREACTIONS,A
CALL D-APPLY,STR?3,STACK >V
ZERO? V \?CND62
ZERO? I /?ELS75
ZERO? V \?CND40
ZERO? I /?CCL52
GETP I,P?ACTION
CALL D-APPLY,STR?4,STACK >V
ZERO? V \?CND62
?ELS75: ZERO? O /?ELS79
EQUAL? A,V?WALK /?ELS79
ZERO? V \?CND40
?CCL52: ZERO? O /?CCL56
EQUAL? A,V?WALK /?CCL56
GETP O,P?ACTION
CALL D-APPLY,STR?5,STACK >V
ZERO? V \?CND62
?ELS79: GET ACTIONS,A
ZERO? V \?CND40
?CCL56: GET ACTIONS,A
CALL D-APPLY,FALSE-VALUE,STACK >V
ZERO? V /?CND62
?CND62: SET 'PRSA,OA
ZERO? V /?CND40
?CND40: SET 'PRSA,OA
SET 'PRSO,OO
SET 'PRSI,OI
RETURN V
@ -430,31 +423,30 @@ START::
.FUNCT D-APPLY,STR,FCN,FOO=0,RES
ZERO? FCN /FALSE
ZERO? DEBUG /?CND8
ZERO? STR \?ELS14
ZERO? DEBUG /?CND4
ZERO? STR \?CCL8
PRINTI " Default ->"
CRLF
JUMP ?CND8
?ELS14: PRINTI " "
JUMP ?CND4
?CCL8: PRINTI " "
PRINT STR
PRINTI " -> "
?CND8: ZERO? FOO /?ELS21
CALL FCN,FOO
JUMP ?CND17
?ELS21: CALL FCN
?CND17: SET 'RES,STACK
ZERO? DEBUG /?CND25
ZERO? STR /?CND25
EQUAL? RES,M-FATAL \?ELS32
?CND4: ZERO? FOO /?CCL11
CALL FCN,FOO >RES
JUMP ?CND9
?CCL11: CALL FCN >RES
?CND9: ZERO? DEBUG /?CND12
ZERO? STR /?CND12
EQUAL? RES,M-FATAL \?CCL18
PRINTI "Fatal"
CRLF
RETURN RES
?ELS32: ZERO? RES \?ELS34
?CCL18: ZERO? RES \?CCL20
PRINTI "Not handled"
RETURN RES
?ELS34: PRINTI "Handled"
?CCL20: PRINTI "Handled"
CRLF
?CND25: RETURN RES
?CND12: RETURN RES
.FUNCT DEQUEUE,RTN
@ -486,8 +478,8 @@ START::
GET C,C-TICK
ZERO? STACK /FALSE
GET C,C-TICK
GRTR? STACK,1 \TRUE
RFALSE
GRTR? STACK,1 /FALSE
RTRUE
?CND3: ADD C,C-INTLEN >C
JUMP ?PRG1
@ -495,69 +487,68 @@ START::
.FUNCT QUEUE,RTN,TICK,C,E,INT=0
ADD C-TABLE,C-TABLELEN >E
ADD C-TABLE,C-INTS >C
?PRG1: EQUAL? C,E \?ELS5
ZERO? INT /?ELS8
?PRG1: EQUAL? C,E \?CCL5
ZERO? INT /?CCL8
SET 'C,INT
JUMP ?CND6
?ELS8: LESS? C-INTS,C-INTLEN \?CND12
?CCL8: LESS? C-INTS,C-INTLEN \?CND9
PRINTI "Bug2"
CRLF
?CND12: SUB C-INTS,C-INTLEN >C-INTS
LESS? C-INTS,C-MAXINTS \?CND15
?CND9: SUB C-INTS,C-INTLEN >C-INTS
LESS? C-INTS,C-MAXINTS \?CND11
SET 'C-MAXINTS,C-INTS
?CND15: ADD C-TABLE,C-INTS >INT
?CND11: ADD C-TABLE,C-INTS >INT
?CND6: PUT INT,C-RTN,RTN
JUMP ?REP2
?ELS5: GET C,C-RTN
EQUAL? STACK,RTN \?ELS19
?CCL5: GET C,C-RTN
EQUAL? STACK,RTN \?CCL14
SET 'INT,C
JUMP ?REP2
?ELS19: GET C,C-RTN
?REP2: GRTR? INT,CLOCK-HAND \?CND16
ADD TICK,3
SUB 0,STACK >TICK
?CND16: PUT INT,C-TICK,TICK
RETURN INT
?CCL14: GET C,C-RTN
ZERO? STACK \?CND3
SET 'INT,C
?CND3: ADD C,C-INTLEN >C
JUMP ?PRG1
?REP2: GRTR? INT,CLOCK-HAND \?CND22
ADD TICK,3
SUB 0,STACK >TICK
?CND22: PUT INT,C-TICK,TICK
RETURN INT
.FUNCT CLOCKER,E,TICK,RTN,FLG=0,Q?=0,OWINNER
.FUNCT CLOCKER,E,TICK,RTN,FLG=0,Q?=0,OWINNER,X
ADD C-TABLE,C-INTS >CLOCK-HAND
ADD C-TABLE,C-TABLELEN >E
SET 'OWINNER,WINNER
SET 'WINNER,PROTAGONIST
?PRG1: EQUAL? CLOCK-HAND,E \?ELS5
?PRG1: EQUAL? CLOCK-HAND,E \?CCL5
SET 'CLOCK-HAND,E
SET 'WINNER,OWINNER
RETURN FLG
?ELS5: GET CLOCK-HAND,C-RTN
?CCL5: GET CLOCK-HAND,C-RTN
ZERO? STACK /?CND3
GET CLOCK-HAND,C-TICK >TICK
LESS? TICK,-1 \?ELS10
LESS? TICK,-1 \?CCL9
SUB 0,TICK
SUB STACK,3
PUT CLOCK-HAND,C-TICK,STACK
SET 'Q?,CLOCK-HAND
JUMP ?CND3
?ELS10: ZERO? TICK /?CND3
GRTR? TICK,0 \?CND13
?CCL9: ZERO? TICK /?CND3
GRTR? TICK,0 \?CND11
SUB TICK,C-ELAPSED >TICK
LESS? TICK,0 \?CND16
LESS? TICK,0 \?CND13
SET 'TICK,0
?CND16: PUT CLOCK-HAND,C-TICK,TICK
?CND13: ZERO? TICK /?CND19
?CND13: PUT CLOCK-HAND,C-TICK,TICK
?CND11: ZERO? TICK /?CND15
SET 'Q?,CLOCK-HAND
?CND19: GRTR? TICK,0 /?CND3
?CND15: GRTR? TICK,0 /?CND3
GET CLOCK-HAND,C-RTN >RTN
ZERO? TICK \?CND25
ZERO? TICK \?CND19
PUT CLOCK-HAND,C-RTN,0
?CND25: CALL RTN
ZERO? STACK /?CND28
?CND19: CALL RTN >X
ZERO? X /?CND21
SET 'FLG,TRUE-VALUE
?CND28: ZERO? Q? \?CND3
?CND21: ZERO? Q? \?CND3
GET CLOCK-HAND,C-RTN
ZERO? STACK /?CND3
SET 'Q?,TRUE-VALUE

31
misc.zil
View File

@ -186,7 +186,7 @@ the sequel...\""
<ROUTINE GO () ;"NOTE: this routine CANNOT have any local variables"
<SETG WINNER ,PROTAGONIST>
<SETG HERE ,DECK-FIVE>
<SETG HERE ,DECK-TWELVE>
<SETG INTERNAL-MOVES <+ 4430 <RANDOM 1220>>>
<SETG MOVES ,INTERNAL-MOVES>
;<COND (<EQUAL? <GETB 0 56> 0>
@ -195,13 +195,14 @@ the sequel...\""
<SETG INTERNAL-MOVES 6860>)>
<QUEUE I-SLEEP-WARNINGS <- 8100 ,INTERNAL-MOVES>>
<QUEUE I-HUNGER-WARNINGS 1330>
<QUEUE I-BLATHER -1>
<TELL
"It's been five years since your planetfall on Resida. Your heroics in saving
that doomed world resulted in a big promotion, but your life of dull scrubwork
has been replaced by a life of dull paperwork. Today you find yourself amidst
the administrative maze of Deck Five on a typically exciting task: an emergency
mission to Space Station Gamma Delta Gamma 777-G 59/59 Sector Alpha-Mu-79 to
pick up a supply of " ,FORM-NAME ,ELLIPSIS>
the administrative maze of Deck Twelve on a typically exciting task: an
emergency mission to Space Station Gamma Delta Gamma 777-G 59/59 Sector
Alpha-Mu-79 to pick up a supply of " ,FORM-NAME ,ELLIPSIS>
<V-VERSION>
<USL>
<CRLF>
@ -347,9 +348,7 @@ pick up a supply of " ,FORM-NAME ,ELLIPSIS>
,P-WON ;"fake YOU CANT SEE responses set P-WON to false">
<COND (<AND <RUNNING? ,I-SPACETRUCK>
<L? ,SPACETRUCK-COUNTER 5>>
<SETG C-ELAPSED 240>)
(<QUEUED? ,I-TIMER>
<SETG C-ELAPSED 10>)>
<SETG C-ELAPSED 240>)>
<SET V <APPLY <GETP ,HERE ,P?ACTION> ,M-END>>)
(T
<SETG C-ELAPSED 0>)>)
@ -367,13 +366,14 @@ pick up a supply of " ,FORM-NAME ,ELLIPSIS>
<COND (<NOT <EQUAL? ,C-ELAPSED 0>>
<SET V <CLOCKER>>)>
<SETG POSTPONE-ATTACK <>>
<SETG C-ELAPSED 7> ;"default length of move"
<SETG FLOYD-TRYTAKEN <>>
<SETG P-PRSA-WORD <>>
;"else, when input is just a direction, P-PRSA-WORD will remain
whatever it was for the previous turn"
<SETG PRSA <>>
<SETG PRSO <>>
<SETG PRSI <>>)>>
<SETG PRSI <>>)>
<SETG C-ELAPSED 7> ;"default length of move">
;<ROUTINE TOO-DARK-FOR-IT? ()
<COND (<AND <NOT ,LIT>
@ -425,9 +425,9 @@ pick up a supply of " ,FORM-NAME ,ELLIPSIS>
<ROUTINE CLOCKER-VERB? ()
<COND (<NOT <EQUAL? ,PROTAGONIST ,WINNER>>
<RTRUE> ;"or else FLOYD, HELP doesn't run the clock")
(<VERB? VERSION HELP SCORE $RECORD $UNRECORD $COMMAND $RANDOM
SAVE RESTORE RESTART QUIT SCRIPT UNSCRIPT
<RTRUE> ;"or else FLOYD, HELP doesn't run the clock")
(<VERB? VERSION HELP SCORE $RECORD $UNRECORD $COMMAND
$RANDOM SAVE RESTORE RESTART QUIT SCRIPT UNSCRIPT
BRIEF SUPER-BRIEF VERBOSE>
<RFALSE>)
(T
@ -661,7 +661,7 @@ pick up a supply of " ,FORM-NAME ,ELLIPSIS>
<PUT .INT ,C-TICK .TICK>
.INT>
<ROUTINE CLOCKER ("AUX" E TICK RTN (FLG <>) (Q? <>) OWINNER)
<ROUTINE CLOCKER ("AUX" E TICK RTN (FLG <>) (Q? <>) OWINNER X)
;<SETG ELAPSED-MOVES <+ ,ELAPSED-MOVES 1>>
;<COND (,DEBUG
<TELL " [Elapsed time: " N ,C-ELAPSED " millichrons.]|">)>
@ -700,7 +700,10 @@ pick up a supply of " ,FORM-NAME ,ELLIPSIS>
1>>)>>
<COND (<ZERO? .TICK>
<PUT ,CLOCK-HAND ,C-RTN 0>)>
<COND (<APPLY .RTN>
;<COND (<APPLY .RTN>
<SET FLG T>)>
<SET X <APPLY .RTN>>
<COND (<NOT <ZERO? .X>>
<SET FLG T>)>
<COND (<AND <NOT .Q?>
<NOT

1387
parser.zap
View File

File diff suppressed because it is too large Load Diff

56
parser.zil
View File

@ -190,7 +190,7 @@ with 'P-'. Local variables are not restricted in any way."
<SET OLEN <GETB ,P-LEXV ,P-LEXWORDS>>)>
<SETG P-LEN <GETB ,P-LEXV ,P-LEXWORDS>>
<COND (<ZERO? ,P-LEN>
<TELL "[I beg your pardon]" CR>
<TELL "[I beg your pardon?]" CR>
<RFALSE>)
(<EQUAL? <GET ,P-LEXV .PTR> ,W?OOPS>
<COND (<EQUAL? <GET ,P-LEXV <+ .PTR ,P-LEXELEN>> ;"rfix 36"
@ -352,11 +352,10 @@ with 'P-'. Local variables are not restricted in any way."
<+ <* .PTR 2> 2>>>>
<PUTB ,P-VTBL 3 <GETB ,P-LEXV <+ .CNT 1>>>)
(<OR <SET VAL <WT? .WRD ,PS?PREPOSITION 0>>
<AND <OR <EQUAL? .WRD ,W?ALL ,W?ONE ,W?BOTH>
<EQUAL? .WRD ,W?EVERYT>
<WT? .WRD ,PS?ADJECTIVE>
<WT? .WRD ,PS?OBJECT>>
<SET VAL 0>>>
<EQUAL? .WRD ,W?ALL ,W?ONE ,W?BOTH>
<EQUAL? .WRD ,W?EVERYT>
<WT? .WRD ,PS?ADJECTIVE>
<WT? .WRD ,PS?OBJECT>>
<COND (<AND .VAL
<EQUAL? .WRD ,W?BACK>
<NOT <EQUAL? .VERB ,ACT?HAND>>>
@ -395,9 +394,8 @@ with 'P-'. Local variables are not restricted in any way."
;"Next expr added to fix FORD, TELL ME WHY"
<EQUAL? ,WINNER ,PROTAGONIST>>
<TELL
"[The proper way to speak to other characters is CHARACTER, DO THIS.
See the instruction manual section entitled \"Communicating With
Infocom's Interactive Fiction.\"]" CR>
"[The way to speak to other characters is described in the instruction manual
section entitled \"Communicating With Infocom's Interactive Fiction.\"]" CR>
<RFALSE>)
(T
<CANT-USE .PTR>
@ -1019,7 +1017,8 @@ OOPS-INBUF, leaving the appropriate pointers in AGAIN-LEXV"
(<AND <EQUAL? .WRD ,W?IT ,W?THEM>
<ACCESSIBLE? ,P-IT-OBJECT>>
<TELL D ,P-IT-OBJECT>)
(<AND <EQUAL? .WRD ,W?HIM ,W?HIMSELF>
(<AND <EQUAL? .WRD ,W?HIM ,W?HIMSELF
,W?HER ,W?HERSELF>
<ACCESSIBLE? ,P-HIM-OBJECT>>
<TELL D ,P-HIM-OBJECT>)
;(<AND <EQUAL? .WRD ,W?HER ,W?HERSELF>
@ -1032,7 +1031,7 @@ OOPS-INBUF, leaving the appropriate pointers in AGAIN-LEXV"
<SET BEG <REST .BEG ,P-WORDLEN>>>>
<ROUTINE NAME? (WRD)
<COND (<EQUAL? .WRD ,W?FLOYD ,W?PLATO>
<COND (<EQUAL? .WRD ,W?FLOYD ,W?PLATO ,W?OLIVER ,W?THERMOS>
<RTRUE>)
(T
<RFALSE>)>>
@ -1273,7 +1272,7 @@ OOPS-INBUF, leaving the appropriate pointers in AGAIN-LEXV"
<SET PTR <REST .PTR ,P-WORDLEN>>
<SET WRD .NW>)>>>
<BUZZ ASS ASSHOLE BITCH BASTARD COCK COCKSU CUNT DAMN DAMNED
<BUZZ ASS ASSHOLE BITCH BASTARD COCK COCKSU CUNT DAMN DAMNED
FUCK FUCKED FUCKING SHIT SHITHEAD SHITTY TROT KRIP MEGAKRIP TROTTING>
<ROUTINE NAUGHTY-WORD? (WORD)
@ -1293,8 +1292,8 @@ OOPS-INBUF, leaving the appropriate pointers in AGAIN-LEXV"
<ROUTINE ADJ-CHECK (WRD ADJ ADJN)
<COND (<NOT .ADJ>
<RTRUE>)
(<EQUAL? .WRD ,W?INNER ,W?OUTER ,W?LARGE ,W?SMALL
,W?TWELVE ,W?TWENTY>
(<EQUAL? .WRD ,W?INNER ,W?OUTER ,W?LARGE ,W?SMALL ,W?MEDIUM
,W?TWELVE ,W?TWENTY ,W?PROCESSING ,W?DISPEN>
<RTRUE>)
(T
<RFALSE>)>>
@ -1334,10 +1333,11 @@ OOPS-INBUF, leaving the appropriate pointers in AGAIN-LEXV"
<COND (.GCHECK
<GLOBAL-CHECK .TBL>)
(T
<COND (<OR ,LIT <VERB? TELL>>
<FCLEAR ,WINNER ;,PROTAGONIST ,TRANSBIT>
<COND (<OR ,LIT
<VERB? TELL>>
<FCLEAR ,WINNER ;,PROTAGONIST ,OPENBIT>
<DO-SL ,HERE ,SOG ,SIR>
<FSET ,WINNER ;,PROTAGONIST ,TRANSBIT>)
<FSET ,WINNER ;,PROTAGONIST ,OPENBIT>)
(<AND <FSET? <LOC ,WINNER ;,PROTAGONIST> ,VEHBIT>
<THIS-IT? <LOC ,WINNER ;,PROTAGONIST>>>
<OBJ-FOUND <LOC ,WINNER ;,PROTAGONIST> .TBL>)>
@ -1402,8 +1402,7 @@ OOPS-INBUF, leaving the appropriate pointers in AGAIN-LEXV"
<COND (.VRB
<SETG P-SLOCBITS .XBITS>
<COND (<OR ,LIT
<EQUAL? ,PRSA ,V?TELL>
<EQUAL? ,PRSA ,V?WHERE ,V?WHAT>>
<EQUAL? ,PRSA ,V?TELL ,V?WHERE ,V?WHAT>>
;"Changed 6/10/83 - MARC"
<OBJ-FOUND ,NOT-HERE-OBJECT .TBL>
<SETG P-XNAM ,P-NAM>
@ -1418,7 +1417,9 @@ OOPS-INBUF, leaving the appropriate pointers in AGAIN-LEXV"
<SETG P-NAM <>>
<SETG P-ADJ <>>
<RFALSE>)
(<ZERO? .LEN> <SET GCHECK T> <AGAIN>)>
(<ZERO? .LEN>
<SET GCHECK T>
<AGAIN>)>
<SETG P-SLOCBITS .XBITS>
<PUT-ADJ-NAM>
<SETG P-NAM <>>
@ -1481,7 +1482,12 @@ OOPS-INBUF, leaving the appropriate pointers in AGAIN-LEXV"
<RTRUE>)>
<SET RLEN .LEN>
<COND (<NOT <EQUAL? ,WINNER ,PROTAGONIST>>
<TELL "\"I don't understand whether you mean ">)
<TELL "\"I don't understand wh">
<COND (<EQUAL? ,P-ADJ ,W?YOUR ,W?MY>
<TELL "at you mean!\"" CR>
<RTRUE>)
(T
<TELL"ether you mean ">)>)
(T
<TELL "[Which">
<COND (<OR ,P-OFLAG
@ -1493,7 +1499,13 @@ OOPS-INBUF, leaving the appropriate pointers in AGAIN-LEXV"
<CLAUSE-PRINT ,P-NC1 ,P-NC1L <>>)
(T
<CLAUSE-PRINT ,P-NC2 ,P-NC2L <>>)>
<TELL " do you mean, ">)>
<TELL " do you mean">
<COND (<AND <EQUAL? ,HERE ,ROBOT-POOL>
<EQUAL? ,P-NAM ,W?ROBOT>>
<TELL "?]" CR>
<RTRUE>)
(T
<TELL ", ">)>)>
<REPEAT ()
<SET TLEN <+ .TLEN 1>>
<SET OBJ <GET .TBL .TLEN>>

BIN
s6.zip
View File

Binary file not shown.

2517
s6dat.zap
View File

File diff suppressed because it is too large Load Diff

93
s6pur.zap
View File

@ -4,8 +4,18 @@
PURTBL::
PT?1::
PT?15:: .TABLE
PT?1:: .TABLE
6
W?DOOR
0
FAKE-DOOR-F
W?SLOT
0
FORM-SLOT-F
.ENDT
PT?2::
PT?16:: .TABLE
6
W?FORM
0
@ -15,11 +25,11 @@ PT?15:: .TABLE
BOXED-FORMS-F
.ENDT
PT?2:: .TABLE
PT?3:: .TABLE
12
W?SLOT
0
SLOT-F
FORM-SLOT-F
W?BIN
W?FIRST
BIN-F
@ -31,17 +41,17 @@ PT?2:: .TABLE
BIN-F
.ENDT
PT?3:: .TABLE
PT?4:: .TABLE
6
W?SLOT
0
SLOT-F
FORM-SLOT-F
W?BUTTON
W?RED
RED-BUTTON-F
.ENDT
PT?4:: .TABLE
PT?5:: .TABLE
9
W?SCREEN
W?DISPEN
@ -54,7 +64,7 @@ PT?4:: .TABLE
DISPENSER-HOLE-F
.ENDT
PT?5:: .TABLE
PT?6:: .TABLE
6
W?CELL
W?CELLS
@ -64,51 +74,57 @@ PT?5:: .TABLE
BRIG-LOCK-F
.ENDT
PT?6::
PT?10:: .TABLE
PT?7::
PT?11:: .TABLE
3
W?SLOT
0
SLOT-F
.ENDT
PT?7:: .TABLE
3
W?BUTTON
W?RED
COMM-BUTTON-F
FORM-SLOT-F
.ENDT
PT?8:: .TABLE
6
W?BUTTON
W?RED
COMM-BUTTON-F
W?SCREEN
0
SCREEN-F
.ENDT
PT?9:: .TABLE
3
W?BUTTON
W?RED
LOG-READER-BUTTON-F
.ENDT
PT?9:: .TABLE
PT?10:: .TABLE
3
W?DIAL
0
DIAL-F
.ENDT
PT?11:: .TABLE
3
PT?12:: .TABLE
6
W?SEAT
0
THEATRE-SEAT-F
W?BOOTH
W?PROJECTION
PROJECTION-BOOTH-F
.ENDT
PT?12:: .TABLE
PT?13:: .TABLE
3
W?DOME
W?TRANSPARENT
DOME-OBJECT-F
.ENDT
PT?13::
PT?14:: .TABLE
PT?14::
PT?15:: .TABLE
6
W?SHIP
W?ALIEN
@ -118,21 +134,11 @@ PT?14:: .TABLE
ALIEN-SHIP-PSEUDO-F
.ENDT
PT?16:: .TABLE
3
W?BOX
W?CONTROL
CONTROL-BOX-F
.ENDT
PT?17:: .TABLE
6
W?SHOP
W?REC
REC-SHOP-OBJECT-F
W?AREA
W?REC
REC-SHOP-OBJECT-F
3
W?COMPUTER
0
COMPUTER-F
.ENDT
PT?18:: .TABLE
@ -143,20 +149,27 @@ PT?18:: .TABLE
.ENDT
PT?19:: .TABLE
3
W?MIRROR
W?GLASS
MIRROR-F
.ENDT
PT?20:: .TABLE
3
W?POSTER
0
TRAVEL-AGENCY-POSTER-F
.ENDT
PT?20:: .TABLE
PT?21:: .TABLE
3
W?HOLE
W?SMALL
DOC-HOLE-F
.ENDT
PT?21:: .TABLE
PT?22:: .TABLE
3
W?SLOT
0

722
s6str.zap
View File

@ -21,362 +21,388 @@ STRBEG::
.GSTR STR?15,"close"
.GSTR STR?16,"disconnect the timer"
.GSTR STR?17,"disconnect the explosive"
.GSTR STR?18,"dress"
.GSTR STR?19,"open"
.GSTR STR?20,"get onto"
.GSTR STR?21,"get into"
.GSTR STR?22,"look"
.GSTR STR?23,"Kicking"
.GSTR STR?24,"Knocking on"
.GSTR STR?25,"sound"
.GSTR STR?26,"look inside"
.GSTR STR?27,"look through"
.GSTR STR?28,"indecis"
.GSTR STR?29,"Pulling"
.GSTR STR?30,"move"
.GSTR STR?31,"Trying to destroy"
.GSTR STR?32,"negat"
.GSTR STR?33,"ff"
.GSTR STR?34,"n"
.GSTR STR?35,"pick"
.GSTR STR?36,"put it in the presser"
.GSTR STR?37,"Pushing"
.GSTR STR?38,"Playing in this way with"
.GSTR STR?39,"read"
.GSTR STR?40,"roll"
.GSTR STR?41,"search"
.GSTR STR?42,"Turning"
.GSTR STR?43,"Shaking"
.GSTR STR?44,"."
.GSTR STR?45,"smell"
.GSTR STR?46,"spray"
.GSTR STR?47,"move that much"
.GSTR STR?48,"taste"
.GSTR STR?49,"Touching"
.GSTR STR?50,"Keyboard is only active following authorization"
.GSTR STR?51,"You have already made your selection"
.GSTR STR?52,"That bin is unoccupied"
.GSTR STR?53,"Error"
.GSTR STR?54,"Fuel levels at zero"
.GSTR STR?55,"Course set. Launch in approximately 30 millichrons"
.GSTR STR?56,"Safety precautions forbid the acceptance of course settings unless both the pilot and copilot seats are occupied"
.GSTR STR?57,"You are already at that level"
.GSTR STR?58,"Select a level between 1 and 9"
.GSTR STR?59,"The instant you press the button, the elevator begins plunging down the shaft! It's worse than just free-fall; the elevator is actually in a power dive!!! You punch frantically at the keypad..."
.GSTR STR?60,"You have not deposited a coin"
.GSTR STR?61,"This dispenser offers only 9 selections"
.GSTR STR?62,"Sorry, that items is sold out. Please contact your PX Officer regarding re-stocking of dispenser"
.GSTR STR?63,"walk"
.GSTR STR?64,"wear"
.GSTR STR?65,"posit"
.GSTR STR?66,"remove"
.GSTR STR?67," is as worthwhile as cleaning a grotch cage."
.GSTR STR?68," accomplishes nothing."
.GSTR STR?69," has no desirable effect."
.GSTR STR?70,"Fat chance."
.GSTR STR?71,"A valiant attempt."
.GSTR STR?72,"You can't be serious."
.GSTR STR?73,"Not bloody likely."
.GSTR STR?74,"What a concept."
.GSTR STR?75,"Nice try."
.GSTR STR?76,"You are behaving like a demented Denebian slime devil."
.GSTR STR?77,"Dream on."
.GSTR STR?78,"It's the looney bin for you!"
.GSTR STR?79,"You have lost your mind."
.GSTR STR?80,"A waste of time."
.GSTR STR?81,"A worthless action -- and much too difficult for a poorly-written program like this one to handle."
.GSTR STR?82,"Useless. Unhelpful."
.GSTR STR?83,"There's another turn down the drain."
.GSTR STR?84,"Why bother?"
.GSTR STR?85,"with"
.GSTR STR?86,"Done. You might remain alive long enough to type EXAMINE MY STUMP. Oops, I guess not."
.GSTR STR?87,"Okay."
.GSTR STR?88,"Wow! A hole where your torso used to be!"
.GSTR STR?89,"I was going to ask you the same question!"
.GSTR STR?90,"Floyd loves games! Let's play!"
.GSTR STR?91,"Safety precautions forbid the activation of the vehicle unless both the pilot and copilot seats are occupied"
.GSTR STR?92,"This form has not been validated by the station commander"
.GSTR STR?93,"Authorization approved. Use keypad to enter the bin number of the desired robot"
.GSTR STR?18,"crumple"
.GSTR STR?19,"dress"
.GSTR STR?20,"open"
.GSTR STR?21,"get onto"
.GSTR STR?22,"get into"
.GSTR STR?23,"look"
.GSTR STR?24,"Kicking"
.GSTR STR?25,"Knocking on"
.GSTR STR?26,"You plummet down the shaft..."
.GSTR STR?27,"sound"
.GSTR STR?28,"look inside"
.GSTR STR?29,"look through"
.GSTR STR?30,"indecis"
.GSTR STR?31,"Pulling"
.GSTR STR?32,"move"
.GSTR STR?33,"Trying to destroy"
.GSTR STR?34,"negat"
.GSTR STR?35,"ff"
.GSTR STR?36,"n"
.GSTR STR?37,"pick"
.GSTR STR?38,"put it in the presser"
.GSTR STR?39,"Pushing"
.GSTR STR?40,"Playing in this way with"
.GSTR STR?41,"read"
.GSTR STR?42,"roll"
.GSTR STR?43,"search"
.GSTR STR?44,"Turning"
.GSTR STR?45,"Shaking"
.GSTR STR?46,"."
.GSTR STR?47,"smell"
.GSTR STR?48,"spray"
.GSTR STR?49,"move that much"
.GSTR STR?50,"taste"
.GSTR STR?51,"Touching"
.GSTR STR?52,"Keyboard is only active following authorization"
.GSTR STR?53,"You have already made your selection"
.GSTR STR?54,"That bin is unoccupied"
.GSTR STR?55,"Error"
.GSTR STR?56,"Fuel levels at zero"
.GSTR STR?57,"Course set. Launch in approximately 30 millichrons"
.GSTR STR?58,"Safety precautions forbid the acceptance of course settings unless both the pilot and copilot seats are occupied"
.GSTR STR?59,"Select a level between 1 and 9"
.GSTR STR?60,"The instant you press the button, the elevator begins plunging down the shaft! It's worse than just free-fall; the elevator is actually in a power dive!!! You punch frantically at the keypad..."
.GSTR STR?61,"You are already at that level"
.GSTR STR?62,"You have not deposited a coin"
.GSTR STR?63,"This dispenser offers only 9 selections"
.GSTR STR?64,"Sorry, that item is sold out. Please contact your PX Officer regarding restocking of dispenser"
.GSTR STR?65,"walk"
.GSTR STR?66,"wear"
.GSTR STR?67,"posit"
.GSTR STR?68,"remove"
.GSTR STR?69," is as worthwhile as cleaning a grotch cage."
.GSTR STR?70," accomplishes nothing."
.GSTR STR?71," has no desirable effect."
.GSTR STR?72,"Fat chance."
.GSTR STR?73,"A valiant attempt."
.GSTR STR?74,"You can't be serious."
.GSTR STR?75,"Not bloody likely."
.GSTR STR?76,"What a concept."
.GSTR STR?77,"Nice try."
.GSTR STR?78,"You are behaving like a demented Denebian slime devil."
.GSTR STR?79,"Dream on."
.GSTR STR?80,"It's the looney bin for you!"
.GSTR STR?81,"You have lost your mind."
.GSTR STR?82,"A waste of time."
.GSTR STR?83,"A worthless action -- and much too difficult for a poorly-written program like this one to handle."
.GSTR STR?84,"Useless. Unhelpful."
.GSTR STR?85,"There's another turn down the drain."
.GSTR STR?86,"Why bother?"
.GSTR STR?87,"with"
.GSTR STR?88,"Done. You might remain alive long enough to type EXAMINE MY STUMP. Oops, I guess not."
.GSTR STR?89,"If you insist."
.GSTR STR?90,"Wow! A hole where your torso used to be!"
.GSTR STR?91,"I was going to ask you the same question!"
.GSTR STR?92,"Floyd loves games! Let's play!"
.GSTR STR?93,"Safety precautions forbid the activation of the vehicle unless both the pilot and copilot seats are occupied"
.GSTR STR?94,"Spacecraft activated. Type in the course heading"
.GSTR STR?95,"slot"
.GSTR STR?96,"The quiet, dusty corridors stir disturbing memories. You're back on Resida, the deserted, plague-stricken world where you met Floyd. A hot flush creeps over you, indicating that the virulent disease that conquered this planet is beginnning its insidious work on you"
.GSTR STR?97,"You find yourself on Deck Five of the Duffy, walking nonchalantly along, when suddenly you remember that you were supposed to have Handwriting Legibility Evaluation Forms -- all nine parts, for every member of the crew -- on Captain Fussbottom's desk by 7800. It's 7790, and those forms are stored on the other side of the ship. You begin running down the corridor, but the floor is turning into a thick syrup. You can hear the Captain calling your name, louder and louder, as you struggle to move your legs"
.GSTR STR?98,"You gulp down the last of your Ramosian Fire Nectar and ask the andro-waiter for another pitcher. This pub makes the finest Nectar on all of Ramos Two, and you and your shipmates are having a pretty rowdy time. Through the windows of the pub you can see a mighty, ancient castle, shining in the light of the three Ramosian moons. The Fire Nectar spreads through your blood and you begin to feel drowsy"
.GSTR STR?99,"You wake up in a huge stadium, watching an important ceremony. It's a Stellar Patrol promotion ceremony on Tremain! Suddenly you hear your name echoing over the PA system -- and down below you see YOURSELF walking up the steps to the stage! The presiding admiral describes your heroic deeds on Resida, mentioning that you were awarded the key to the planet, and then asks the ceremonial question, ""Do you accept promotion to Lieutenant First Class?"" You try to yell ""No!"" from your seat in the stands, but the words catch in your throat"
.GSTR STR?100,"You find yourself floating in a spacepod outside the docking bays of a large space station. All the doors are closed. You snap on the radio, and discover that Floyd is in charge within the station. ""Open the pod bay doors, Floyd,"" you tell him, but he replies, ""I'm sorry, I can't do that,"" and begins laughing and your air is beginning to run out"
.GSTR STR?101,"At last, the Duffy is approaching Space Station Delta Upsilon Upsilon Phi for the ship's first rec leave in almost six months. It's even worth the six solid days of paperwork necessary for a standard half-day leave. Stationfall is only millichrons away, but suddenly you realize that you're all alone on the Duffy! Frantic, you dash to the deserted bridge, but it's too late to keep the out-of-control Duffy from ramming the massive space station! The hull of the station falls toward you"
.GSTR STR?102,"You dream of being buried alive in an ancient Egyptian pyramid, inside the sarcophagus with some long-dead pharaoh. Phew, does he stink! You gasp and gag as the air in the coffin runs low.
.GSTR STR?95,"Authorization approved. Type the bin number of the desired robot"
.GSTR STR?96,"This form has not been validated by a commanding officer"
.GSTR STR?97,"Improper form for this location"
.GSTR STR?98,"slot"
.GSTR STR?99,"The quiet, dusty corridors stir disturbing memories. You're back on Resida, the deserted, plague-stricken world where you met Floyd. A hot flush creeps over you, indicating that the virulent disease that conquered this planet is beginnning its insidious work on you"
.GSTR STR?100,"You are strolling across Deck Four of the Duffy, when suddenly you remember that you were supposed to have Handwriting Legibility Evaluation Forms -- all nine parts, for every member of the crew -- on Captain Fussbottom's desk by 7800. It's 7790, and those forms are stored on the other side of the ship. You try to run, but the floor is covered with glue. You can hear the Captain calling your name, louder and louder, as you struggle to move your legs"
.GSTR STR?101,"You gulp down the last of your Ramosian Fire Nectar and ask the andro-waiter for another pitcher. This pub makes the finest Nectar on all of Ramos Two, and you and your shipmates are having a pretty rowdy time. Through the windows of the pub you can see a mighty, ancient castle, shining in the light of the three Ramosian moons. The Fire Nectar spreads through your blood and you begin to feel drowsy"
.GSTR STR?102,"You wake up in a huge stadium, watching an important ceremony. It's a Stellar Patrol promotion ceremony on Tremain! Suddenly your own name echoes over the PA system -- and down below you see YOURSELF walking up the steps to the stage! The presiding admiral describes your heroism on Resida, mentioning that you were awarded the key to the planet, and then asks the ceremonial question, ""Do you accept promotion to Lieutenant First Class?"" You try to yell ""No!"" from the stands, but the words are lost in the vastness of the stadium"
.GSTR STR?103,"You find yourself in a spacepod outside the docking bays of a large space station. All the doors are closed. You snap on the radio, and discover that Floyd is in charge within the station. ""Open the pod bay doors, Floyd,"" you tell him but he replies, ""I'm sorry, I can't do that,"" and begins laughing and your air is beginning to run out"
.GSTR STR?104,"At last, the Duffy is approaching station Delta Upsilon Upsilon Phi -- your first rec leave in almost six months. It's even worth the six solid days of paperwork necessary for a standard half-day leave. Stationfall is millichrons away, but suddenly you realize that you're all alone on the Duffy! Frantic, you dash to the deserted bridge, but it's too late to stop the out-of-control Duffy from ramming the massive space station! The hull of the station rushes toward you"
.GSTR STR?105,"You dream of being buried alive in an ancient Egyptian pyramid, inside the sarcophagus with some long-dead pharaoh. Phew, does he stink! You gasp and gag as the air in the coffin runs low.
This dream, incidentally, is not a particularly unusual one among people who go to sleep inside space suits with limited oxygen supplies."
.GSTR STR?103,"A movement awakens you in the middle of the night! Through unfocused eyes you see a large machine rolling menacingly closer! A bright light leaps from it, straight toward..."
.GSTR STR?104,"You collapse from extreme thirst and hunger."
.GSTR STR?105,"A powerful arc of raw energy bridges the gap between two of the monster's welding extensions. Unfortunately, you were pretty much right between the same two extensions at that moment."
.GSTR STR?106,"It's too dark to see a thing."
.GSTR STR?107,"You're not holding"
.GSTR STR?108,"There's nothing "
.GSTR STR?109,"You can see"
.GSTR STR?110,"It seems that"
.GSTR STR?111,"You can't "
.GSTR STR?112,"You'll have to "
.GSTR STR?113,"Look around you.
.GSTR STR?106,"A movement awakens you in the middle of the night! Through unfocused eyes you see a large machine rolling menacingly closer! A bright light leaps from it, straight toward..."
.GSTR STR?107,"You collapse from extreme thirst and hunger."
.GSTR STR?108,"A powerful arc of raw energy bridges the gap between two of the monster's welding extensions. Unfortunately, you were pretty much right between the same two extensions at that moment."
.GSTR STR?109,"It's too dark to see a thing."
.GSTR STR?110,"You're not holding"
.GSTR STR?111,"There's nothing "
.GSTR STR?112,"You can see"
.GSTR STR?113,"It seems that"
.GSTR STR?114,"You can't "
.GSTR STR?115,"You'll have to "
.GSTR STR?116,"Look around you.
"
.GSTR STR?114,"You can't do that from here.
.GSTR STR?117,"You're holding it!
"
.GSTR STR?115,"You're holding it!
.GSTR STR?118,"[There seems to be a noun missing in that sentence.]
"
.GSTR STR?116,"[There seems to be a noun missing in that sentence.]
.GSTR STR?119,"You see only blackness.
"
.GSTR STR?117,"You see only blackness.
.GSTR STR?120,"You already did that. Senility strikes again!
"
.GSTR STR?118,"You already did that. Senility strikes again!
.GSTR STR?121,".
"
.GSTR STR?119,".
"
.GSTR STR?120,"...
.GSTR STR?122,"...
"
.GSTR STR?121,"Nothing happens.
.GSTR STR?123,"Nothing happens.
"
.GSTR STR?122,"Failed.
.GSTR STR?124,"Failed.
"
.GSTR STR?123,"Okay.
.GSTR STR?125,"Okay.
"
.GSTR STR?124,"Huh?
.GSTR STR?126,"Huh?
"
.GSTR STR?125,"You can't go that way.
.GSTR STR?127,"You can't go that way.
"
.GSTR STR?126,"It already is!
.GSTR STR?128,"It already is!
"
.GSTR STR?127,"""Floyd does not one of those have!""
.GSTR STR?129,"""Floyd does not one of those have!""
"
.GSTR STR?128,"Like most fromitz boards, it is a twisted maze of silicon circuits. It is square, approximately seventeen centimeters on each side.
.GSTR STR?130,"Like most fromitz boards, it is a twisted maze of silicon circuits. It is square, approximately seventeen centimeters on each side.
"
.GSTR STR?129,"You're neither hungry nor thirsty.
.GSTR STR?131,"You're neither hungry nor thirsty.
"
.GSTR STR?130,"Floyd is leaning against the wall, his head lolling to the side. Apparently, someone has heartlessly turned him off."
.GSTR STR?131,"The only part of the complex robot authorization equipment that is visible to you is a slot (for inserting your form) and a keypad (for typing your selection)."
.GSTR STR?132,"Request for Stellar Patrol Issue Regulation Black Form Binders Request Form Forms"
.GSTR STR?133,"[Use numerals: for example, TYPE 5 rather than TYPE FIVE.]
.GSTR STR?132,"Floyd is leaning against the wall, his head lolling to the side. Apparently, someone has heartlessly turned him off."
.GSTR STR?133,"The only part of the complex robot authorization equipment that is visible to you is a slot (for inserting your form) and a keypad (for typing your selection)."
.GSTR STR?134,"Request for Stellar Patrol Issue Regulation Black Form Binders Request Form Forms"
.GSTR STR?135,"The thick side wall of the tank has been blasted open"
.GSTR STR?136,"Next time, say what number to set it to.
"
.GSTR STR?134,"The thick side wall of the tank has been blasted open"
.GSTR STR?135,"Next time, say what number to set it to.
"
.GSTR STR?136,", hopping mad. ""Why you turn Floyd off?"" he asks accusingly."
.GSTR STR?137,"Spanning the entire garden is a transparent dome, providing a breathtaking view of the heavens in all their splendor."
.GSTR STR?138,"The control box contains a keypad for typing the number of the level you want to go to."
.GSTR STR?137,", hopping mad. ""Why you turn Floyd off?"" he asks accusingly."
.GSTR STR?138,"Spanning the entire garden is a transparent dome, providing a breathtaking view of the heavens in all their splendor."
.GSTR STR?139," strike the machine's power source, inducing an overload implosion in said power source."
.GSTR STR?140,"""The Galaxy's Best Zero-Gee Restaurant"""
.GSTR STR?141,"The eternal flame has been extinguished!"
.GSTR STR?142,"Lieutenant First Class"
.GSTR STR?143,"Through the large, dirty window, you can see Dan's used spaceship lot. The spaceships floating in Dan's lot all have their prices whitewashed on their viewports, along with phrases like ""A steal!"" and ""Just reduced!"""
.GSTR STR?144,"You are in the heart of the administrative level of the ship, the largest level of the S.P.S. Duffy or any other Stellar Patrol ship for that matter. The corridor continues port and starboard, and a room lies aft of here."
.GSTR STR?145,"An Ensign appears and informs you that access to this section of Deck Five is restricted to those with a validated Assignment Completion Form QX-17-T. Saluting crisply, she retreats to her unseen guard post."
.GSTR STR?146,"""STELLAR PATROL
.GSTR STR?144,"You are already in that mode.
"
.GSTR STR?145,"That might get you into serious trouble as a violation of the Comprehensive Forms Destruction and Mutilation Act of 11309 GY.
"
.GSTR STR?146,"ou hear the welder move off in another direction.
"
.GSTR STR?147,", of course, no longer attached to the detonator.)"
.GSTR STR?148,"The form is swallowed up, followed by a long pause for triple-redundancy processing. "
.GSTR STR?149,"The form is rejected. "
.GSTR STR?150,"suddenly sublimes into a puff of FREZONE (tm) gas."
.GSTR STR?151,"For those unfamiliar with PLANETFALL, "
.GSTR STR?152,"
You have entered a cluttered space bubble "
.GSTR STR?153," in the center... Oops. At second glance, you realize that the "
.GSTR STR?154," between the arms of the frozen exercise machine, smoke pouring from its engine vents like steam from the nostrils of an angry bull."
.GSTR STR?155,"You detach the detonator from "
.GSTR STR?156," The ostrich gives a pathetic squawk of terror "
.GSTR STR?157,"ou can just make out a letter ""M.""
"
.GSTR STR?158," and lands on the floor."
.GSTR STR?159,", and a ladder leads both upward and downward."
.GSTR STR?160,"That's too long to wait.
"
.GSTR STR?161,"You are in the heart of the administrative level of the ship, the largest level of the S.P.S. Duffy or any other Stellar Patrol ship for that matter. The corridor continues starboard and a room lies aft of here. Through the door to port lies the bulk of the Duffy. Next to the door is a slot."
.GSTR STR?162,"You must insert a validated Assignment Completion Form in the slot"
.GSTR STR?163,"""STELLAR PATROL
Paperwork Task Force
ID Number: 1451-352-716"""
.GSTR STR?147,"A slightly wrinkled Patrol uniform is lying here."
.GSTR STR?148,"This is the largest space in the ship, three decks tall and with the floor area of seven Rigellian buzzball fields. The only exit is fore."
.GSTR STR?149,"The room is filled to the ceiling with row upon row of pallets filled with boxes. Each box has some writing stamped on the side."
.GSTR STR?150,"The deck five corridor ends here at the entrance to the cargo bay, to starboard. A smaller entrance leads fore."
.GSTR STR?151,"He's an amusing and friendly little fellow."
.GSTR STR?152,"That's me!"
.GSTR STR?153,"Floyd, he"
.GSTR STR?154,"paces impatiently"
.GSTR STR?155,"absent-mindedly recites the first six hundred digits of pi"
.GSTR STR?156,"recalls the time he bruised his knee"
.GSTR STR?157,"tells you how much it hurts to repair dents"
.GSTR STR?158,"chants the death scene from ""Carmen"""
.GSTR STR?159,"cranes his neck to see what you are doing"
.GSTR STR?160,"rubs his head affectionately against your shoulder"
.GSTR STR?161,"examines himself for signs of rust"
.GSTR STR?162,"absent-mindedly oils one of his joints"
.GSTR STR?163,"wanders restlessly around the room"
.GSTR STR?164,"notices a mouse scurrying by and tries to hide behind you"
.GSTR STR?165,"sings an ancient ballad, totally out of key"
.GSTR STR?166,"frets about the possibility of his batteries failing"
.GSTR STR?167,"whistles tunelessly"
.GSTR STR?168,"boasts about the time he helped someone sharpen a pencil"
.GSTR STR?169,"yawns and looks bored"
.GSTR STR?170,"complains about a recent assignment in the forms filing department"
.GSTR STR?171,"produces a crayon from one of his compartments and scrawls his name on the wall"
.GSTR STR?172,"Floyd tells Plato about a neat shortcut for calculating seventh order differentials"
.GSTR STR?173,"Plato tells Floyd one of the ancient legends about the early days of the settlement of the galaxy"
.GSTR STR?174,"Floyd and Plato discuss their favorite battery recharging techniques"
.GSTR STR?175,"Plato helps polish a hard-to-reach spot on Floyd's back"
.GSTR STR?176,"""You like Floyd, don't you, Plato?"" asks Floyd. ""Yes,"" replies the taller robot, ""you're the only robot I've ever met who doesn't call me a nerd."" Floyd smiles"
.GSTR STR?177,"In a very sad voice, Floyd talks of his friend Lazarus, a medical robot on Resida who was tragically disassembled. Plato responds, ""Now, Floyd, don't fill your head with the sad memories of Lazarus' death. Think instead about the joy-filled times when you and your friend were together."" Floyd seems awed by such wisdom"
.GSTR STR?178,"Floyd gives Plato a friendly hug"
.GSTR STR?179,"Floyd stubs his toe and begins to whimper. ""There, there,"" says Plato, ""such a reaction will not reduce the level of pain."" He gives Floyd a little tickle, and Floyd begins giggling and forgets the injury"
.GSTR STR?180,"Bin number two holds a spindly little robot, a specialized model designed for bursting and decollating multi-part forms. A tiny nameplate on her perforating extension reads ""Helen."""
.GSTR STR?181,"In the first bin is a bulky robot, obviously intended for heavy-lifting. A brass plate on one of his pneumatic arm lifts says ""Rex."""
.GSTR STR?182," Rex trundles after you. Unfortunately, Rex is not too bright on his best days, and today is not one of them. He forgets to stop when you do; sixteen tons of Rex turn you into a human pancake."
.GSTR STR?183,"open the hatch"
.GSTR STR?184,"If you're in spacelane 630-461, keep it down to 26000 kilometers per millichron. There's a stakeout there."
.GSTR STR?185,"Anyone seen any smokeys in the Nebulon sector?"
.GSTR STR?186,"I'm looking for a traffic report on spacelane 317-455."
.GSTR STR?187,"At the conclusion of this recording, your emergency message will be sent. In the meantime, stay calm. Nothing can go wrong <skip> go wrong <skip> go wrong <skip> go wrong.."
.GSTR STR?188," filling the bay with hot ion gasses. Since you slept through most lectures at boot camp, you may not recall that hot ion gasses are pretty deadly."
.GSTR STR?189,". Once in space, the truck's air gushes out through the open hatch."
.GSTR STR?190,", leaving an impressive cloud of ion dust. However, you're in no condition to admire it, since you are now smeared all over the rear wall of the truck."
.GSTR STR?191,"Fuel level at three-quarters"
.GSTR STR?192,"Fuel level at one-quarter"
.GSTR STR?193,"Docking bay one is occupied. Defaulting to bay two"
.GSTR STR?194,"Arrival at terminus of inputted course. Fuel levels now effectively at zero. Oxygen supply for one person: approximately two chrons"
.GSTR STR?195," As the oxygen runs low, Floyd becomes quite chipper. Never before has he been in such a rust-inhibiting atmosphere. You, on the other hand, are dead."
.GSTR STR?196," Ramosian tree-mold custard"
.GSTR STR?197," apricot yogurt"
.GSTR STR?198," blueberry ice cream"
.GSTR STR?199,"This is a fairly large space where much of the maintenance work for the station takes place. Some repair work for visiting ships is also done here. The room is filled with all sorts of repair and fabrication machinery. A door leads south, and there's an opening to the north."
.GSTR STR?200,"I'm really not at all mechanically inclined. My sincerest apologies."
.GSTR STR?201,"It's a kind of a thingamabob for putting in a, you know, a whosiwhatsis."
.GSTR STR?202,"This is one of the storage areas. Exits lie to the east and south."
.GSTR STR?203,"twenty tiny sockets"
.GSTR STR?204,"The central corridor continues around to the southeast and southwest, but another corridor joins from the north. There's a door to the east and a doorway to the northeast."
.GSTR STR?205,"The corridor widens here as it approaches the skin of the space station at the point where a Scientific Sub-Module would connect. Sure enough, the connecting tube of a Sub-Module begins just to the north! An auto-door lies to the west. Opposite it, a doorway leads east."
.GSTR STR?206,"This is the shop for station personnel, selling everything from postcards to chewing gum at inflated prices. Exits lead west and southwest."
.GSTR STR?207,"In the corner of the PX is a Stellar Patrol dispensing machine, consisting of a screen (displaying the dispenser's ""exciting"" offerings), a slot (for coin insertion), a keypad (for typing your selection), and a hole (where the dispensed item hopefully -- but rarely -- arrives)."
.GSTR STR?208,"coin slot"
.GSTR STR?209," In case you were napping during Demolitions Training, this means that you're now a fine layer of ash all over the walls of the PX."
.GSTR STR?210,"It's a kind of a thingamabob for connecting a, you know, a whosiwhatsis."
.GSTR STR?211,"This infirmary has the finest diagnostic equipment that unlimited Stellar Patrol budgets can buy. To the east, an ID reader indicates a security door. You can leave to the west or southeast."
.GSTR STR?212,"This is a modest prison, with three cells. The only exit is west."
.GSTR STR?213,"The corridor continues around to the northwest and southwest, and an adjoining one heads east."
.GSTR STR?214,"This central corridor turns northeast and northwest of here. A second corridor begins here and leads south. There are doorways to the southwest, southeast, and east."
.GSTR STR?215,"This is the Deep-Space Communication Center, which keeps the station in touch with the Stellar Patrol Command and the rest of the Third Galactic Union. Although regulations state that the Comm Center must me monitored around the clock, ten chrons per day, there's no one on duty.
Most of the equipment here is too complicated for anyone without Deep-Space Communications Training to use. However, the red button of the wide-band emergency beacon is well-marked. The only exit is north."
.GSTR STR?216," The shock seems to have been a bit too much for your heart."
.GSTR STR?217,"This is the room where octuplet copies of important forms are stored. Since it is only about a hundred square meters, this room cannot hold more than a few days worth of storage before being dumped to nanofilm. Mercifully, there is an exit to the northeast."
.GSTR STR?218,"reader"
.GSTR STR?219," The log reader explodes!"
.GSTR STR?220,"These are by far the nicest living quarters on the station, with separate sleeping, changing, and working cubicles, and a private SanFac. The only exit is west."
.GSTR STR?221,"Sitting on the Commander's desk is an ordinary-looking log tape. There's a notation printed on it."
.GSTR STR?222,"""Commander's Log -- 11349.12.2 through 11349.12.4"""
.GSTR STR?223,"A sturdy safe is welded to the deck next to the desk."
.GSTR STR?224,"The safe has been blown open! The area around the safe is blackened, and a burnt odor hangs in the air."
.GSTR STR?225,"hole"
.GSTR STR?226,"This is the Station Commander's conference room. Doors point north and west."
.GSTR STR?227,"This is secondary weapons storage deck, but the only weapon deck on a station without a Military Sub-Module. Exit: south."
.GSTR STR?228,"This is a wide but not very tall docking bay. The station entrance lies to the east."
.GSTR STR?229,"This cramped dormitory, composed of approximately twenty private cubicles, curves around the northern half of this level, with exits to the southeast and southwest."
.GSTR STR?230,"You enter one of the cubicles but find nothing of interest."
.GSTR STR?231,"This warren of tiny cubicles fills the southern half of this level, curving toward exits in the northeast and northwest corners."
.GSTR STR?232,"This is a crowded but otherwise typical sanitary facility, with rows of showers, toilet stalls, and sinks. There are exits both north and south."
.GSTR STR?233,"A multiple-function exercise machine sits imposingly on one side of the gym. There is a sign above it."
.GSTR STR?234,"The exercise machine hums encouraging platitudes as it exercises you to death."
.GSTR STR?235,"In the corner, next to the dryer, is a large empty spot where the washer should be."
.GSTR STR?236,"lurches forward and slams shut on your arm. Before you pass out from the pain, you hear a rumbling sound from the presser, but you can't decide whether it sounds more like a chuckle or a burp."
.GSTR STR?237,"This sixty-seat auditorium is used for lectures, certain large briefings, an occasional live entertainment, and a rare live broadcast over deep-space channels. A projection booth dominates the rear of the room. The only entrance is on the north side of the theatre."
.GSTR STR?238,"Aaarghhh! The soup is poisoned! It's burning up your insides!!"
.GSTR STR?239,"This is the primary storage room of the station, with large stockpiles of important items. For example, basic organic materials are needed to supplement the food supply due to the tiny inefficiencies of the recycling process. This is nearly the top level of the Command Module, and the ceiling curves in sharply over the supply room, which curves around to doors at the northwestern and southwestern ends."
.GSTR STR?240,"detonator"
.GSTR STR?241,"This is a medium-sized conference room with doors to the south and west."
.GSTR STR?242,"This is a fairly large conference room with north and south exits."
.GSTR STR?243,"This station's library has some printed material, such as recently transmitted magazines, but primarily it is a location for reading nanofilm spools, via the spool reader, and accessing the main computer's data banks, via the small computer terminal. There's a door to the north and an exit to the west."
.GSTR STR?244,"Magazines are not to be removed from the library"
.GSTR STR?245,"""Collater Repair Manual"""
.GSTR STR?246,"""Food Processing Unit Repair Manual"""
.GSTR STR?247,"You stroll down one of the pebbled paths. It circles the garden, passing more exotic plants, and returns to the area near the elevator."
.GSTR STR?248,"""Emergency Elevator Override Controls
(See Station Commander
for access key)"""
.GSTR STR?249,"open the grating"
.GSTR STR?250,"These cubicles are for use by any visitors or station personnel beyond the normal complement. The entire barracks seem to be unused as well as deserted. The exit lies to the south, and the barracks curve around to the east."
.GSTR STR?251,"This is the rather ordinary sanitary facility for the barracks to the north."
.GSTR STR?252,"This is the station's largest docking bay. A huge door to the east leads into the station.
.GSTR STR?164,"This is the largest space in the ship, three decks tall and with the floor area of seven Rigellian buzzball fields. The only exit is fore."
.GSTR STR?165,"The room is filled to the ceiling with row upon row of pallets filled with boxes. Each box has some writing stamped on the side."
.GSTR STR?166,"The deck five corridor ends here at the entrance to the cargo bay, to starboard. A smaller entrance leads fore."
.GSTR STR?167,"He's an amusing and friendly little fellow."
.GSTR STR?168,"That's me!"
.GSTR STR?169,"Floyd, he"
.GSTR STR?170,"rubs his head affectionately against your shoulder"
.GSTR STR?171,"notices a mouse scurrying by and tries to hide behind you"
.GSTR STR?172,"reminisces about the excitement of your adventure on Resida"
.GSTR STR?173,"hums the theme song from a popular Saturday morning hyperwave cartoon"
.GSTR STR?174,"plays a quick game of paddleball, almost breaking his record of four hits"
.GSTR STR?175,"paces impatiently"
.GSTR STR?176,"absent-mindedly recites the first six hundred digits of pi"
.GSTR STR?177,"recalls the time he bruised his knee"
.GSTR STR?178,"tells you how much it hurts to repair dents"
.GSTR STR?179,"cranes his neck to see what you are doing"
.GSTR STR?180,"examines himself for signs of rust"
.GSTR STR?181,"absent-mindedly oils one of his joints"
.GSTR STR?182,"wanders restlessly around the room"
.GSTR STR?183,"sneaks up clumsily behind you and shouts ""Boo!"" in your ear"
.GSTR STR?184,"frets about the possibility of his batteries failing"
.GSTR STR?185,"whistles tunelessly"
.GSTR STR?186,"boasts about the time he helped someone find a lost paper clip"
.GSTR STR?187,"yawns and looks bored"
.GSTR STR?188,"complains about a recent assignment in the forms filing department"
.GSTR STR?189,"produces a crayon from one of his compartments and scrawls his name on the wall"
.GSTR STR?190,"stomps on your foot, for no apparent reason"
.GSTR STR?191,"accidentally bumps into you, and reacts by cursing your ancestors"
.GSTR STR?192,"produces a loud burp and fails to apologize"
.GSTR STR?193,"mumbles about a mysterious future in which humans will have to take orders from robots"
.GSTR STR?194,"tells an off-color joke about the bizarre mating habits of flesh and blood creatures"
.GSTR STR?195,"Floyd tells Plato about a neat shortcut for calculating seventh order differentials"
.GSTR STR?196,"Plato tells Floyd one of the ancient legends about the early days of the settlement of the galaxy"
.GSTR STR?197,"Floyd confides to Plato that his life's dream is to get locked up overnight in a toy factory"
.GSTR STR?198,"Floyd and Plato discuss their favorite battery recharging techniques"
.GSTR STR?199,"Plato helps polish a hard-to-reach spot on Floyd's back"
.GSTR STR?200,"""You like Floyd, don't you, Plato?"" asks Floyd. ""Yes,"" replies the taller robot, ""you're the only robot I've ever met who doesn't call me a nerd."" Floyd smiles"
.GSTR STR?201,"In a very sad voice, Floyd talks of his friend Lazarus, a medical robot on Resida who was tragically disassembled. Plato responds, ""Now, Floyd, don't fill your head with the sad memories of Lazarus' death. Think instead about the joy-filled times when you and your friend were together."" Floyd seems awed by such wisdom"
.GSTR STR?202,"Floyd gives Plato a friendly hug"
.GSTR STR?203,"Floyd stubs his toe and begins to whimper. ""There, there,"" says Plato, ""such a reaction will not reduce the level of pain."" He gives Floyd a little tickle, and Floyd begins giggling and forgets the injury"
.GSTR STR?204,"Bin number two holds a spindly little robot, a specialized model designed for bursting and decollating multi-part forms. A tiny nameplate on her perforating extension reads ""Helen."""
.GSTR STR?205,"In the first bin is a bulky robot, obviously intended for heavy lifting. A brass plate on one of his pneumatic arm lifts says ""Rex."""
.GSTR STR?206," Rex trundles after you. Unfortunately, Rex is not too bright on his best days, and today is not one of them. He forgets to stop when you do; sixteen tons of Rex turn you into a human pancake."
.GSTR STR?207,"open the hatch"
.GSTR STR?208,"If you're in spacelane 630-461, keep it down to 26000 kilometers per millichron. There's a stakeout there."
.GSTR STR?209,"Anyone seen any smokeys in the Nebulon sector?"
.GSTR STR?210,"I'm looking for a traffic report on spacelane 317-455."
.GSTR STR?211,"At the conclusion of this recording, your emergency message will be sent. In the meantime, stay calm. Nothing can go wrong <skip> go wrong <skip> go wrong <skip> go wrong.."
.GSTR STR?212," filling the bay with hot ion gasses. Since you slept through most lectures at boot camp, you may not recall that hot ion gasses are pretty deadly."
.GSTR STR?213,". Once in space, the truck's air gushes out through the open hatch."
.GSTR STR?214,", leaving an impressive cloud of ion dust. However, you're in no condition to admire it, since you are now smeared all over the rear wall of the truck."
.GSTR STR?215,"Fuel level at three-quarters"
.GSTR STR?216,"Fuel level at one-quarter"
.GSTR STR?217,"Docking bay one is occupied. Defaulting to bay two"
.GSTR STR?218,"Arrival at terminus of inputted course. Fuel levels now effectively at zero. Oxygen supply for one person: approximately two chrons"
.GSTR STR?219," As the oxygen runs low, Floyd becomes quite chipper. Never before has he been in such a rust-inhibiting atmosphere. You, on the other hand, are dead."
.GSTR STR?220," blueberry walnut soup"
.GSTR STR?221," Ramosian tree-mold custard"
.GSTR STR?222," apricot yogurt"
.GSTR STR?223,"This is a fairly large space where much of the maintenance work for the station takes place. Some repair work for visiting ships is also done here. The room is filled with all sorts of repair and fabrication machinery. A door leads south, and there's an opening to the north."
.GSTR STR?224,"I'm really not at all mechanically inclined. My sincerest apologies."
.GSTR STR?225,"It's a kind of a thingamabob for putting in a, you know, a whosiwhatsis."
.GSTR STR?226,"This is one of the storage areas. Exits lie to the east and south."
.GSTR STR?227,"twenty tiny sockets"
.GSTR STR?228,"The central corridor continues around to the southeast and southwest, but another corridor joins from the north. There's a door to the east and a doorway to the northeast."
.GSTR STR?229,"The corridor widens here as it approaches the skin of the space station at the point where a Scientific Sub-Module would connect. Sure enough, the connecting tube of a Sub-Module begins just to the north! An auto-door lies to the west. Opposite it, a doorway leads east."
.GSTR STR?230,"This is the shop for station personnel, selling everything from postcards to chewing gum at inflated prices. Exits lead west and southwest."
.GSTR STR?231,"In the corner of the PX is a Stellar Patrol dispensing machine, consisting of a screen (displaying the dispenser's ""exciting"" offerings), a slot (for coin insertion), a keypad (for typing your selection), and a hole (where the dispensed item hopefully -- but rarely -- arrives)."
.GSTR STR?232,"coin slot"
.GSTR STR?233," In case you were napping during Demolitions Training, this means that you're now a fine layer of ash all over the walls of the PX."
.GSTR STR?234,"It's a kind of a thingamabob for connecting a, you know, a whosiwhatsis."
.GSTR STR?235,"Surrounding the beds of this infirmary is the finest diagnostic equipment that unlimited Stellar Patrol budgets can buy. To the east, an ID reader indicates a security door. You can leave to the west or southeast."
.GSTR STR?236,"This is a modest prison, with three cells. The only exit is west."
.GSTR STR?237,"lock"
.GSTR STR?238,"The corridor continues around to the northwest and southwest, and an adjoining one heads east."
.GSTR STR?239,"This central corridor turns northeast and northwest of here. A second corridor begins here and leads south. There are doorways to the southwest, southeast, and east."
.GSTR STR?240," The shock seems to have been a bit too much for your heart."
.GSTR STR?241,"This is the room where octuplet copies of important forms are stored. Since it is only about a hundred square meters, this room cannot hold more than a few days worth of storage before being dumped to nanofilm. Mercifully, there is an exit to the northeast."
.GSTR STR?242,"reader"
.GSTR STR?243," The log reader explodes!"
.GSTR STR?244,"These are by far the nicest living quarters on the station, with separate sleeping, changing, and working cubicles, and a private SanFac. The only exit is west."
.GSTR STR?245,"Sitting on the Commander's desk is an ordinary-looking log tape. There's a notation printed on it."
.GSTR STR?246,"""Commander's Log -- 11349.12.2 through 11349.12.4"""
.GSTR STR?247,"A sturdy safe is welded to the deck next to the desk."
.GSTR STR?248,"The safe has been blown open! The area around the safe is blackened, and a burnt odor hangs in the air."
.GSTR STR?249,"hole"
.GSTR STR?250,"This is the Station Commander's conference room. Doors point north and west."
.GSTR STR?251,"This is a secondary weapons storage deck, but the only weapon deck on a station with no Military Sub-Module. Exit: south."
.GSTR STR?252,"This is a wide but not very tall docking bay. The station entrance lies to the east."
.GSTR STR?253,"""Spacetruck Refueling Instructions"
.GSTR STR?254,"This cramped dormitory, composed of approximately twenty private cubicles, curves around the northern half of this level, with exits to the southeast and southwest."
.GSTR STR?255,"You enter one of the cubicles but find nothing of interest."
.GSTR STR?256,"This warren of tiny cubicles fills the southern half of this level, curving toward exits in the northeast and northwest corners."
.GSTR STR?257,"This is a crowded but otherwise typical sanitary facility, with rows of showers, toilet stalls, and sinks. There are exits both north and south."
.GSTR STR?258,"A multiple-function exercise machine sits imposingly on one side of the gym. There is a sign above it."
.GSTR STR?259," hums encouraging platitudes as it exercises you to death."
.GSTR STR?260,"In the corner, next to the dryer, is a large empty spot where the washer should be."
.GSTR STR?261,"lurches forward and slams shut on your arm. Before you pass out from the pain, you hear a rumbling sound from the presser, but you can't decide whether it sounds more like a chuckle or a burp."
.GSTR STR?262,"""Chapel Maintenance Procedures"
.GSTR STR?263,"This sixty-seat auditorium is used for lectures, certain large briefings, an occasional live entertainment, and a rare live broadcast over deep-space channels. A projection booth dominates the rear of the room. The theatre's only exit is to the north."
.GSTR STR?264,"Aaarghhh! The coffee is poisoned! It's eating away at your insides!!"
.GSTR STR?265,"This is the primary storage room of the station, with large stockpiles of important items. For example, basic organic materials are needed to supplement the food supply due to the tiny inefficiencies of the recycling process. This is nearly the top level of the Command Module, and the ceiling curves in sharply over the supply room, which curves around to doors at the northwestern and southwestern ends."
.GSTR STR?266,"detonator"
.GSTR STR?267,"This is a medium-sized conference room with doors to the south and west."
.GSTR STR?268,"This is a fairly large conference room with north and south exits."
.GSTR STR?269,"This station's library has some printed material, such as recently transmitted magazines, but primarily it is a location for reading nanofilm spools, using the spool reader, and accessing the main computer's data banks via a computer terminal. Strangely, the computer terminal has been removed from the room. There's a door to the north and an exit to the west."
.GSTR STR?270,"Magazines are not to be removed from the library"
.GSTR STR?271,"You stroll down one of the pebbled paths. It circles the garden, passing more exotic plants, and returns to the area near the elevator."
.GSTR STR?272,"""Shrubbery Maintenance Supplies"""
.GSTR STR?273,"open the grating"
.GSTR STR?274,"These cubicles are for use by any visitors or station personnel beyond the normal complement. The entire barracks seem to be unused as well as deserted. The exit lies to the south, and the barracks curve around to the east."
.GSTR STR?275,"This is the rather ordinary sanitary facility for the barracks to the north."
.GSTR STR?276,"This is the station's largest docking bay. A huge door to the east leads into the station.
Resting in the docking bay is a small ship of obviously alien origin. An open hatch seems to beckon you inward."
.GSTR STR?253,"Must be a connect-the-dots! And a real easy one, too! None of those dumb numbers to confuse you! Where's my crayon?"
.GSTR STR?254,"Hmmm. Some kind of alien writing, I presume. If I recall, the Mayor is an expert on that subject."
.GSTR STR?255,"Lying under the dots is a skeleton, the brittle remains of a member of some unfamiliar alien race."
.GSTR STR?256,"This is the station's smallest docking bay. You can enter the station to the east."
.GSTR STR?257,"The corridor, which widens off to the west, ends here. There are doorways north and east of you, and doors to the south and southwest. The door to the north must be a security door, because there's an ID reader next to it."
.GSTR STR?258,"This is a room where new robots are constructed, old robots are repaired, and unused robots are stored. There's a door to the east."
.GSTR STR?259,"There's a little robot here who is in the final, training phase of its construction. It is ""sleeping"" on a table, connected to wires which are ""feeding"" it information. The young-looking robot has the name ""Oliver"" engraved on its chestplate."
.GSTR STR?260,"If we be here when Oliver wakes up, Floyd would like to teach Oliver to play paddle-ball. Paddle-ball helped Floyd forget how lonely and scared he was until he found friends...like you."
.GSTR STR?261,"Ah, a new robot. Poor fellow; new robots are so mercilessly mistreated by the older robots. Such is our lot."
.GSTR STR?262,"This is the place where a station's exports are prepared before transfer to the docking bays and subsequent shipment throughout the regional sector. The only exit is west."
.GSTR STR?263,"This is a fairly comfortable two-person living quarters, significantly roomier than the barracks where most of the ship's personnel live. There's a door to the north, and an opening leads southeast."
.GSTR STR?264,"This is a fairly comfortable two-person living quarters, significantly roomier than the barracks where most of the ship's personnel live. A door leads north and a doorway south."
.GSTR STR?265,"This is a fairly comfortable two-person living quarters, significantly roomier than the barracks where most of the ship's personnel live. A doorway lies to the southwest, and there's an auto-door to the north."
.GSTR STR?266,"A moderately luxurious SanFac, with a pair of bathtubs in addition to the regular fixtures. Exits lead north, northeast, and northwest."
.GSTR STR?267,"Partway down, you discover discover that the ladder passage to Level Eight is sealed off -- apparently from below."
.GSTR STR?268,"Outdated forms and expired files are reduced to pulp by this machinery. In addition, raw pulp is constantly being ferried into the station from nearby forest worlds. The output from this plant feeds the station's printing plant, which lies to the southeast."
.GSTR STR?269,"Someone has presumably been attempting to repair some of the machinery in this room, because they left a drill lying around."
.GSTR STR?270,"drill"
.GSTR STR?271,"remove the bit that's in the drill"
.GSTR STR?272,"Oh, no! The elevator isn't at this floor! It's a long plunge..."
.GSTR STR?273,"Magnetically-stored data has been damaged; see the Security Officer to have data restored"
.GSTR STR?274,"This shiny cylindrical corridor is the connector between the Command Module, to the south, and the Scientific Sub-Module, to the north."
.GSTR STR?275,"This laboratory, which fills most of the middle level of the Sub-Module, is for the study of applications of the various space-related research that takes place on the other levels. Gangways lead up and down, and a door leads north. A connecting tube opens to the south."
.GSTR STR?276,"This is a small office associated with the lab to the south."
.GSTR STR?277,"This is the notebook of a certain Professor Schmidt, who was studying a strange pyramid discovered aboard a derelict alien ship and brought here.
.GSTR STR?277,"Must be a connect-the-dots! And a real easy one, too! None of those dumb numbers to confuse you! Where's my crayon?"
.GSTR STR?278,"Hmmm. Some kind of alien writing, I presume. If I recall, the Mayor is an expert on that subject."
.GSTR STR?279,"Lying under the dots is a skeleton, the brittle remains of a member of some unfamiliar alien race."
.GSTR STR?280,"This is the station's smallest docking bay. You can enter the station to the east."
.GSTR STR?281,"The corridor, which widens off to the west, ends here. There are doorways north and east of you, and doors to the south and southwest. The door to the north must be a security door, because there's an ID reader next to it."
.GSTR STR?282,"This is a room where new robots are constructed, old robots are repaired, and unused robots are stored. There's a door to the east."
.GSTR STR?283,"opening of the chamber"
.GSTR STR?284,"There's a young-looking robot lying here, apparently having completed the final ""training"" phase of its construction. The wires for feeding it information have been removed, but it has not yet ""woken up."" A dim memory from your old robotics text drifts through your mind: ""The incubation period between the training and 'birth' of a robot is two to twenty days, depending on the complexity of the model."" This particular model has the name ""Oliver"" engraved on its chestplate."
.GSTR STR?285,"If we be here when Oliver wakes up, Floyd would like to teach Oliver to play paddleball. Paddleball helped Floyd forget how lonely and scared he was until he found friends...like you."
.GSTR STR?286,"Ah, a new robot. Poor fellow; new robots are so mercilessly mistreated by the older robots. Such is our lot."
.GSTR STR?287,"In an event staggering in its improbability, a huge meteor crashes through the hull of the space station as you take aim, and turns you into cosmic dust. Can't say you didn't deserve it, you baby-robot-killer you."
.GSTR STR?288,"This is the place where a station's exports are prepared before transfer to the docking bays and subsequent shipment throughout the regional sector. Hanging above a large vacant section of the room is an eye-catching sign. The only exit is west."
.GSTR STR?289,"This is a fairly comfortable two-person living quarters, significantly roomier than the barracks where most of the ship's personnel live. There's a door to the north, and an opening leads southeast."
.GSTR STR?290,"This is a fairly comfortable two-person living quarters, significantly roomier than the barracks where most of the ship's personnel live. A door leads north and a doorway south."
.GSTR STR?291,"This is a fairly comfortable two-person living quarters, significantly roomier than the barracks where most of the ship's personnel live. A doorway lies to the southwest, and there's an auto-door to the north."
.GSTR STR?292,"A moderately luxurious SanFac, with a pair of bathtubs in addition to the regular fixtures. Exits lead north, northeast, and northwest."
.GSTR STR?293,"Partway down, you discover that the ladder passage to Level Eight is sealed off -- apparently from below."
.GSTR STR?294,"""Collater Repair Manual"""
.GSTR STR?295,"Outdated forms and expired files are reduced to pulp by this machinery. In addition, raw pulp is constantly being ferried into the station from nearby forest worlds. The output from this plant feeds the station's printing plant, which lies to the southeast."
.GSTR STR?296,"Someone has presumably been attempting to repair some of the machinery in this room, because they left a drill lying around."
.GSTR STR?297,"drill"
.GSTR STR?298,"remove the bit that's in the drill"
.GSTR STR?299,"Oh, no! The elevator isn't at this floor! It's a long plunge..."
.GSTR STR?300,"Magnetically-stored data has been damaged; see the Security Officer to have data restored"
.GSTR STR?301,"This shiny cylindrical corridor is the connector between the Command Module, to the south, and the Scientific Sub-Module, to the north."
.GSTR STR?302,"This laboratory, which fills most of the middle level of the Sub-Module, is for the study of applications of the various space-related research that takes place on the other levels. Gangways lead up and down, and a door leads north. A connecting tube opens to the south."
.GSTR STR?303,"This is a small office associated with the lab to the south."
.GSTR STR?304,"This is the notebook of a certain Professor Schmidt, who was studying a strange pyramid discovered aboard a derelict alien ship and brought here.
Schmidt traced back the path of the alien ship; the path points out of the galaxy without nearing any star system. Further, extending the path leads straight to one of our smaller neighboring galaxies. Schmidt concludes that the ship and the pyramid are probably well over one billion years old!
Next, Schmidt studied the wall markings in the alien ship. A series of identical dots, they defied every computerized model of linguistic decipherment! Then, in an inspiration, Schmidt studied the dots for nonvisual properties. His diary vaguely refers to a breakthrough, saying, ""I guess my pal, the mayor, will get to show off his linguistic training.""
Finally, Schmidt began concentrating his studies on the pyramid itself. He was able to discover very little, blaming this primarily on the unexplained failures of several crucial pieces of lab machinery."
.GSTR STR?278,"This laboratory conducts research into various space-related physical sciences. Gangways lead up and down, a there's a door to the north."
.GSTR STR?279,"Various biological sciences, as they related to the environment of space, are studied in this laboratory. There is a gangway leading up, another leading down, and a door leading north."
.GSTR STR?280,"Lying on one of the desks is a scribbled note."
.GSTR STR?281,"""Schmidt -- Why didn't I see it until now! Just think of this station as a cell and the pyramid as a mechanized bacterioph"" The note ends at that point; there seem to be some reddish-brown stains on it."
.GSTR STR?282,"This cramped living area has cubicles for the dozen or so scientists and engineers working in this Sub-Module. The only exit is a gangway leading down."
.GSTR STR?283,"I don't have a very specific function in the station's robotic organizational scheme, but I do keep the library organized."
.GSTR STR?284,"Floyd's best friend! Oh, except you, of course!"
.GSTR STR?285,"Some early poems by Ignatius Tomato. He's my current favorite."
.GSTR STR?286,"burst into tears and dashes out of the room. A beam leaps from the gun..."
.GSTR STR?287," the station's reactor turns into a good old-fashioned H-bomb."
.GSTR STR?288,"You are at the top of an air shaft. There is no gravity here. Handholds lead downward, and a partially open air grate leads out of the shaft."
.GSTR STR?289,"You are in a large, vertical air duct. Handholds lead up and down."
.GSTR STR?290,"You have reached the bottom of the air vent. Ducts too small for you to enter lead off laterally. Handholds lead upward, and the entire floor of the duct is another large grating."
.GSTR STR?291,"The sides ducts are too small to enter!"
.GSTR STR?292,"This tiny control station allows access to the massive memory banks of the station's computer. Ever since the formation of the Third Galactic Union ended the great interstellar dark age, every Stellar Patrol spaceship, every Patrol space station, has been equipped with a computer bulging with the entire accumulated knowledge of mankind. Never again will humanity be permitted to slip back into the ignorance and savagery of the dark age.
.GSTR STR?305,"This laboratory conducts research into various space-related physical sciences. Gangways lead up and down, a there's a door to the north."
.GSTR STR?306,"Various biological sciences, as they related to the environment of space, are studied in this laboratory. There is a gangway leading up, another leading down, and a door leading north."
.GSTR STR?307,"Lying on one of the desks is a scribbled note."
.GSTR STR?308,"""Schmidt -- Why didn't I see it until now! Just think of this station as a cell and the pyramid as a mechanized bacterioph"" The note ends at that point; there seem to be some reddish-brown stains on it."
.GSTR STR?309,"This cramped living area has cubicles for the dozen or so scientists and engineers working in this Sub-Module. The only exit is a gangway leading down."
.GSTR STR?310,"I don't have a very specific function in the station's robotic organizational scheme, but I do keep the library organized."
.GSTR STR?311,"Floyd's best friend! Oh, except you, of course!"
.GSTR STR?312,"Some early poems by Ignatius Tomato. He's my current favorite."
.GSTR STR?313,"burst into tears and dashes out of the room. A beam leaps from the gun..."
.GSTR STR?314," the station's reactor turns into a good old-fashioned H-bomb."
.GSTR STR?315,"You are at the top of an air shaft. Handholds lead downward, and a partially open air grate leads out of the shaft."
.GSTR STR?316,"You are in a large, vertical air duct. Handholds lead up and down."
.GSTR STR?317,"You have reached the bottom of the air vent. Ducts too small for you to enter lead off laterally. Handholds lead upward, and the entire floor of the duct is another large grating."
.GSTR STR?318,"The sides ducts are too small to enter!"
.GSTR STR?319,"This tiny control station allows access to the massive memory banks of the station's computer. Ever since the formation of the Third Galactic Union ended the great interstellar dark age, every Stellar Patrol spaceship, every Patrol space station, has been equipped with a computer bulging with the entire accumulated knowledge of mankind. Never again will humanity be permitted to slip back into the ignorance and savagery of the dark age.
A ladder leads up to Level Eight, and there's a call button next to the elevator shaft to the north."
.GSTR STR?293,"The exercise machine reaches you, and performs various repetitions all over your body, proving that exercise isn't always good for you."
.GSTR STR?294,"You are standing on the bottom of the elevator shaft. The elevator is not in sight. The only place to go is back to the computer room to the south."
.GSTR STR?295,"There's no way to climb the shaft."
.GSTR STR?296,"Floyd fires his stun ray nonchalantly in your direction, laughing, as though taunting you. You feel your leg go numb"
.GSTR STR?297,"Smoke is trickling from the tails of the tiny rockets, as though the duplicate pyramids were preparing for activation and launch"
.GSTR STR?298,"A blinking light on the reactor goes from yellow to red"
.GSTR STR?299,"the pyramid, Floyd"
.GSTR STR?300,"This is an east-west tube, widening as it gets farther from the Command Module."
.GSTR STR?301,"This is a wide, cheaply constructed space tube, narrowing to the west. There are openings off this ""street"" in virtually every direction, including one leading downward."
.GSTR STR?302,"Well, there are openings in ALMOST every direction."
.GSTR STR?303,"This is a tiny living bubble beneath Broadway. The inhabitant, who is nowhere in sight, seems to be in the profession of reading the future for superstitious spacemen."
.GSTR STR?304,"You have entered a ramshackle, deserted house of worship for one of the many nondescript space-based religions. The decor was obviously intended, but fails, to make the church look larger and less shoddy than it really is. The only exit is south."
.GSTR STR?305,"This moderately large store sells all kinds of games and other recreational materials. There is also an in-house rec area, featuring a group of simulation booths. The ""street"" lies to the southwest."
.GSTR STR?306,"groof hunting on Septurion Seven"
.GSTR STR?307,"a little-known incident during the signing of the Treaty of Gishen IV"
.GSTR STR?308,"a torrid romance on the tropical planet of San Cupidor"
.GSTR STR?309,"searching for treasure in a magical underground kingdom"
.GSTR STR?310,"bullfighting, skydiving, and dental hygiene"
.GSTR STR?311,"A fine example of trans-molecular platinum foil. The most perfectly reflective material know to man, I am told, and not just on the visual wavelengths! There was a recent rumor that the Rec Shop was to be redecorated using such foil."
.GSTR STR?312,"Floyd loves anything reflective! Give Floyd a mirror and he'll be happy for days!"
.GSTR STR?313,"The huge galactic mining conglomerates often open field offices in these space villages, and this is one of those. Miners will haul some promising hunk of space rock into the vicinity, and then come here to sell the rights to it. You can leave to the west."
.GSTR STR?314,"Some miner has left a headlamp here."
.GSTR STR?315,"You have entered a surprisingly old-fashioned looking tonsorial parlor. A space village seems to be the last place in the civilized galaxy where someone can go to have their hair or fur trimmed by an actual human being. The barber isn't here, though. Doors lead northwest and west."
.GSTR STR?316,"This is a small convenience store, the main source of food and living supplies for this village, as well as a supplement supply for personnel from the space station proper. The shelves are pretty bare, and there is no one in sight. Exits lead north, east, southeast and south."
.GSTR STR?317,"A small, translucent plastic bag is sitting on one of the shelves."
.GSTR STR?318,", delectable, moist boysenberry-flavored taffy"
.GSTR STR?319,"This shop, with exits to the northeast and southeast, sells a variety of animals. Many a lonely spacer has discovered the joys a pet can bring, and this shop features animals of both terrestrial and alien origin. A large sign advertises this month's special."
.GSTR STR?320,"You can see the faint outline of a panel in the ceiling."
.GSTR STR?321,"This sprawling old cargo ship, its engines long ago cannibalized for spare parts, has been converted into a store for supplies and curios. There's an eye-catching sign on the wall. Passageways lead in many directions, and there's an opening in the floor."
.GSTR STR?322,"""FREZONE (tm) Liquid Gorzium Explosive
.GSTR STR?320," reaches you, and performs various repetitions all over your body, proving that exercise isn't always good for you."
.GSTR STR?321,"slips into gear and zooms forward, goring you on its fork."
.GSTR STR?322,"There is gravity here at the bottom of the elevator shaft. The elevator's not in sight; the only exit is back to the computer room to the south."
.GSTR STR?323,"There's no way to climb the shaft."
.GSTR STR?324,"Floyd fires his stun ray nonchalantly in your direction, laughing, as though taunting you. You feel part of your leg go numb"
.GSTR STR?325,"Smoke is trickling from the tails of the tiny rockets, as though the duplicate pyramids were preparing for activation and launch"
.GSTR STR?326,"One of the blinking lights on the reactor goes from yellow to red"
.GSTR STR?327,"the pyramid, Floyd"
.GSTR STR?328,"This is an east-west tube, widening as it gets farther from the Command Module."
.GSTR STR?329,"This is a wide, cheaply constructed space tube, narrowing to the west. There are openings off this ""street"" in virtually every direction, including one leading downward."
.GSTR STR?330,"Well, there are openings in ALMOST every direction."
.GSTR STR?331,"This is a tiny living bubble beneath Broadway. The inhabitant, who is nowhere in sight, seems to be in the profession of reading the future for superstitious spacemen."
.GSTR STR?332,"The Stellar Patrol has opened a recruitment office off Broadway, thus giving tacit approval to this technically nonregulation space village. Posters showing a rose-colored view of Patrol life are plastered all over the walls. A door leads south."
.GSTR STR?333,"This moderately large store sells all kinds of games and other recreational materials. There is also an in-house rec area, featuring a group of simulation booths. The ""street"" lies to the southwest."
.GSTR STR?334,"groof hunting on Septurion Seven"
.GSTR STR?335,"a little-known incident during the signing of the Treaty of Gishen IV"
.GSTR STR?336,"a torrid romance on the tropical planet of San Cupidor"
.GSTR STR?337,"searching for treasure in a magical underground kingdom"
.GSTR STR?338,"bullfighting, skydiving, and dental hygiene"
.GSTR STR?339,"The huge galactic mining conglomerates often open field offices in these space villages, and this is one of those. Miners will haul some promising hunk of space rock into the vicinity, and then come here to sell the rights to it. You can leave to the west."
.GSTR STR?340,"Some miner has left a headlamp here."
.GSTR STR?341,"A piece of reflective foil is hanging on the wall where the mirror once was."
.GSTR STR?342,"Trans-molecular platinum foil! I am told that it is the most perfectly reflective material known to man, and not just on the visual wavelengths!"
.GSTR STR?343,"Floyd loves anything reflective! Give Floyd a mirror and he'll be happy for days!"
.GSTR STR?344,"This is a small convenience store, the main source of food and living supplies for this village, as well as a supplement supply for personnel from the space station proper. The shelves are pretty bare, and there is no one in sight. Exits lead north, east, southeast and south."
.GSTR STR?345,"A small, translucent plastic bag is sitting on one of the shelves."
.GSTR STR?346,", delectable, moist boysenberry-flavored taffy"
.GSTR STR?347,"This shop, with exits to the northeast and southeast, sells a variety of animals. Many a lonely spacer has discovered the joys a pet can bring, and this shop features animals of both terrestrial and alien origin. A large sign advertises this month's special."
.GSTR STR?348,"You can see the faint outline of a panel in the ceiling."
.GSTR STR?349,"This sprawling old cargo ship, its engines long ago cannibalized for spare parts, has been converted into a store for supplies and curios. There's an eye-catching sign on the wall. Passageways lead in many directions, and there's an opening in the floor."
.GSTR STR?350,"""FREZONE (tm) Liquid Gorzium Explosive
Instructions for use:
1. Insert explosive in hole of appropriate diameter.
2. Attach detonator to explosive and timer.
3. Set timer.
4. Vamoose.
NOTE: Do not expose explosive to temperatures above 150 degrees Kelvin for period of more than 100 millichrons."""
.GSTR STR?323,"Carbon dioxide! Don't use it myself. The only form I've ever seen it in is dry ice."
.GSTR STR?324,"open the bottle"
.GSTR STR?325,"This living bubble has been set up as an artist's loft. Most of the space is taken up by a large scrap sculpture floating in the center of the bubble. It is, of course, pretty impossible to tell how close the sculpture is to completion. The way out is to the east."
.GSTR STR?326,"The most recognizable item in the sculpture is a twenty-prong fromitz board."
.GSTR STR?327,"From your experience with tawdry, space village bars, they are crowded every millichron of the day and night. So it's quite unusual that this saloon is totally deserted. Despite the current solitude, you can almost hear the tinny music, the loud voices, the fistfights. Openings lead west and northwest, and to the east is a partially disguised exit."
.GSTR STR?328,"This is a tiny room, smelling strongly of various synthesized opium variants. There's a sign on the wall a door to the south."
.GSTR STR?329,"You've always wondered what a back-room zero-gee space village bordello was like. Well, now you know. Next to the nearest bed is a locker. The exit leads down."
.GSTR STR?330,"Your lungs rupture, not to mention all sorts of even nastier stuff that you're lucky if you can't imagine."
.GSTR STR?331,"This filthy north-south tube is quite a change from the gleaming, well-scrubbed metal of the space station."
.GSTR STR?332,"This large spacetube is the main thoroughfare of a space village which has sprung up here on the outskirts of the space station, which lies to the north. Rather than the bustling thoroughfare you might expect, however, there isn't a soul in sight. Openings lead up, northeast, south and west. To the southeast, the ""street"" narrows and ramps downward."
.GSTR STR?333," fire nectar - thick and warming"
.GSTR STR?334,"This permanently-docked one-man ship serves as the office for Hizzoner the Mayor, the unofficial leader of the village. Main Street is below."
.GSTR STR?335,"You spot a copy of a book entitled ""Deciphering Alien Speech."""
.GSTR STR?336,"""(bitter/salty/bitter) softness/weakness
.GSTR STR?351,"This living bubble has been set up as an artist's loft. Most of the space is taken up by a large scrap sculpture floating in the center of the bubble. It is, of course, pretty impossible to tell how close the sculpture is to completion. The way out is to the east."
.GSTR STR?352,"The most recognizable item in the sculpture is a J-series hyperdiode."
.GSTR STR?353,"From your experience with tawdry, space village bars, they are crowded every millichron of the day and night. So it's quite unusual that this saloon is totally deserted. Despite the current solitude, you can almost hear the tinny music, the loud voices, the fistfights. Openings lead west and northwest, and to the east is a partially disguised exit."
.GSTR STR?354,"This is a tiny room, smelling strongly of various synthesized opium variants. There's a sign on the wall and a door to the south."
.GSTR STR?355,"Your lungs rupture, not to mention all sorts of even nastier stuff that you're lucky if you can't imagine."
.GSTR STR?356,"This filthy north-south tube is quite a change from the gleaming, well-scrubbed metal of the space station."
.GSTR STR?357,"This large spacetube is the main thoroughfare of a space village which has sprung up here on the outskirts of the space station, which lies to the north. Rather than the bustling thoroughfare you might expect, however, there isn't a soul in sight. Openings lead up, northeast, south and west. To the southeast, the ""street"" narrows and ramps downward."
.GSTR STR?358," fire nectar - thick and warming"
.GSTR STR?359,"This permanently-docked one-man ship serves as the office for Hizzoner the Mayor, the unofficial leader of the village. Main Street is below."
.GSTR STR?360,"You spot a copy of a book entitled ""Deciphering Alien Speech."""
.GSTR STR?361,"""(bitter/salty/bitter) softness/weakness
(sweet/very-sour) Hunji (noun form)
(bland/salty/sour) Zeenak (adj form)
(bland/bitter) air/atmosphere
@ -394,40 +420,38 @@ NOTE: Do not expose explosive to temperatures above 150 degrees Kelvin for perio
(bitter/sour/very-sour) weapon (poss form)
(very-sweet) (emphasis mark?)
(very-salty/salty/sour) bad/evil/deadly radiation (plur form)"""
.GSTR STR?337,"The Stellar Patrol has opened a recruitment office off Main Street, thus giving tacit approval to this technically nonregulation space village. Posters showing a rose-colored view of Patrol life are plastered all over the walls. A door leads east."
.GSTR STR?338,"This is a branch office of the First Galactic Bank of Nebulon. There are doors to the north, west and southwest."
.GSTR STR?339,"This small space bubble, with openings to the east and south, is decorated with posters of exotic locales, but it's hard to imagine that anyone in this rundown spacetown would be able to afford an interstellar pleasure jaunt."
.GSTR STR?340,"Since there's no one here to milk you for some worthless life insurance or spaceship insurance, you might as well use the exits to the north or northeast."
.GSTR STR?341,"There's no doubt that ""alley"" is the best word to describe this winding, garbage-strewn connector. Dark passages branch off in almost every direction, and the alley slopes upward to the northwest."
.GSTR STR?342,"This is the home of some kook, a proselytizer of the fringe religion which believes that humankind has angered God by venturing out into space, and the universe will end sometime next week. Next week never seems to come, but there are enough kooks in the galaxy to keep the belief going. You can exit to the south."
.GSTR STR?343,", taking you along for the ride.
.GSTR STR?362,"This is a branch office of the First Galactic Bank of Nebulon. There are doors to the north and northwest."
.GSTR STR?363,"This small space bubble, with openings to the east and southeast, is decorated with posters of exotic locales, but it's hard to imagine that anyone in this rundown spacetown would be able to afford an interstellar pleasure jaunt."
.GSTR STR?364,"There's no doubt that ""alley"" is the best word to describe this winding, garbage-strewn connector. Dark passages branch off in almost every direction, and the alley slopes upward to the northwest."
.GSTR STR?365,"This is the home of some kook, a proselytizer of the fringe religion which believes that humankind has angered God by venturing out into space, and the universe will end sometime next week. Next week never seems to come, but there are enough kooks in the galaxy to keep the belief going. You can exit to the south."
.GSTR STR?366,"
Lost in Space
You spend several chrons tumbling into the starry depths, the station dwindling to a dot of light behind you. Eventually, your air runs out."
.GSTR STR?344,"As you swivel the headlamp around, you discover a tiny cylinder with an even tinier label."
.GSTR STR?345,"""FREZONE (tm) Liquid Gorzium Explosive. For use only by licensed demolitionist. Instruction sheet available from vendor; read thoroughly before use!"""
.GSTR STR?346,"The three balls hanging by the (northeastern) entrance to this space hut indicate that a villager down on his or her luck could come here to hock some valuable possession."
.GSTR STR?347,"Some destitute spacer was so hard up that he or she actually pawned a spray can. It's sitting here in the shop, and has some lettering on it."
.GSTR STR?348,"Some seedy loan shark has moored his dilapidated vessel here, on the south side of the alley."
.GSTR STR?349,"""ONE GALAKMID
.GSTR STR?367,"As you swivel the headlamp around, you discover a tiny cylinder with an even tinier label."
.GSTR STR?368,"""FREZONE (tm) Liquid Gorzium Explosive. For use only by licensed demolitionist. Instruction sheet available from vendor; read thoroughly before use!"""
.GSTR STR?369,"The three balls hanging by the (northeastern) entrance to this space hut indicate that a villager down on his or her luck could come here to hock some valuable possession."
.GSTR STR?370,"Some destitute spacer was so hard up that he or she actually pawned a spray can. It's sitting here in the shop, and has some lettering on it."
.GSTR STR?371,"This is a dilapidated vessel that some seedy loan shark has moored on the south side of the alley."
.GSTR STR?372,"A fairly sturdy strong box is fastened to the floor. Or maybe the ceiling. One can never be sure without gravity."
.GSTR STR?373,"""ONE GALAKMID
Third Galactic Union"""
.GSTR STR?350,"This physician's bubble is owned by the village quack, known to his friends as ""Doc"" Schuster, but known to the vast majority of the villagers as Schuster the Shyster. There's a small hole in the wall, probably the opening for a disposal chute. The Doc is out, and in this case, out is northwest."
.GSTR STR?351,"There is a large pile of intoxicated ostrich here."
.GSTR STR?352,"[This is pretty gross, but you asked for it!] As the drill penetrates the unconscious ostrich, geysers of blood spout out, inundating you and the drill, causing a short circuit and electrocuting you. You collapse into a fried heap among a spreading puddle of blood."
.GSTR STR?353,"""Doc -- that ostrich nip you've been waiting for finally came in. Drop by and pick it up. If I'm not in, you'll find it in my ceiling panel."""
.GSTR STR?354,"In the corner of the office is a rather plain-looking machine with a keypad. It looks a bit jerry-rigged."
.GSTR STR?355,"opening"
.GSTR STR?356,"A scrambled card cannot be altered"
.GSTR STR?357,"Ensign, Sixth Class or lower"
.GSTR STR?358,"Ensign, Fifth through Second Class"
.GSTR STR?359,"Ensign First Class"
.GSTR STR?360,"Midshipman"
.GSTR STR?361,"Lieutenant Second Class"
.GSTR STR?362,"Lieutentant Commander"
.GSTR STR?363,"Commander or Captain"
.GSTR STR?364,"Admiral"
.GSTR STR?365,"Fleet Admiral"
.GSTR STR?366,"This outdated drydock is now a messy junk yard. A huge pile of floating junk fills the center of the bubble. Passages lead upwards and west."
.GSTR STR?367,"Of all the items floating in the scrap heap, the pair of magnetic spaceboots looks to be in the best shape."
.GSTR STR?374,"This physician's bubble is owned by the village quack, known to his friends as ""Doc"" Schuster, but known to the vast majority of the villagers as Schuster the Shyster. There's a small hole in the wall, probably the opening for a disposal chute. The Doc is out, and in this case, out is northwest."
.GSTR STR?375,"There is a large pile of intoxicated ostrich here."
.GSTR STR?376,"""Doc -- that ostrich nip you've been waiting for finally came in. Drop by and pick it up. If I'm not in, you'll find it in my ceiling panel."""
.GSTR STR?377,"In the corner of the office is a rather plain-looking machine with a keypad. It looks a bit jerry-built."
.GSTR STR?378,"opening"
.GSTR STR?379,"A scrambled card cannot be altered"
.GSTR STR?380,"Ensign, Sixth Class or lower"
.GSTR STR?381,"Ensign, Fifth through Second Class"
.GSTR STR?382,"Ensign First Class"
.GSTR STR?383,"Midshipman"
.GSTR STR?384,"Lieutenant Second Class"
.GSTR STR?385,"Lieutenant Commander"
.GSTR STR?386,"Commander or Captain"
.GSTR STR?387,"Admiral"
.GSTR STR?388,"Fleet Admiral"
.GSTR STR?389,"This outdated drydock is now a messy junk yard. A huge pile of floating junk fills the center of the bubble. Passages lead upwards and west."
.GSTR STR?390,"Of all the items floating in the scrap heap, the pair of magnetic spaceboots looks to be in the best shape."
.ENDI

1198
ship.zap
View File

File diff suppressed because it is too large Load Diff

545
ship.zil
View File

@ -2,20 +2,32 @@
STATIONFALL
(c) Copyright 1987 Infocom, Inc. All Rights Reserved."
<ROOM DECK-FIVE
<ROOM DECK-TWELVE
(IN ROOMS)
(DESC "Deck Five")
(DESC "Deck Twelve")
(LDESC
"You are in the heart of the administrative level of the ship, the largest
level of the S.P.S. Duffy or any other Stellar Patrol ship for that matter.
The corridor continues port and starboard, and a room lies aft of here.")
The corridor continues starboard and a room lies aft of here. Through the
door to port lies the bulk of the Duffy. Next to the door is a slot.")
(EAST TO CARGO-BAY-ENTRANCE)
(WEST
"An Ensign appears and informs you that access to this section of Deck Five
is restricted to those with a validated Assignment Completion Form QX-17-T.
Saluting crisply, she retreats to her unseen guard post.")
(SOUTH TO FORM-STORAGE-ROOM)
(FLAGS FLOYDBIT RLANDBIT ONBIT)>
(WEST PER FAKE-DOOR-ENTER-F)
(FLAGS FLOYDBIT RLANDBIT ONBIT)
(THINGS <PSEUDO (<> DOOR FAKE-DOOR-F)
(<> SLOT FORM-SLOT-F)>)>
<ROUTINE FAKE-DOOR-ENTER-F ()
<THIS-IS-IT ,PSEUDO-OBJECT>
<TELL "The door is closed." CR>
<RFALSE>>
<ROUTINE FAKE-DOOR-F ()
<COND (<VERB? OPEN>
<RECORDING
"You must insert a validated Assignment Completion Form in the slot">)
(<VERB? ENTER>
<DO-WALK ,P?WEST>)>>
<GLOBAL ASSIGNMENT-FORM-VALIDATED <>>
@ -24,7 +36,7 @@ Saluting crisply, she retreats to her unseen guard post.")
(DESC "Assignment Completion Form QX-17-T")
(SYNONYM FORM FORMS QX-17-T)
(ADJECTIVE ASSIGNMENT COMPLETION FORM)
(FLAGS TAKEBIT READBIT VOWELBIT BURNBIT)
(FLAGS TAKEBIT READBIT VOWELBIT)
(SIZE 2)
(ACTION FORM-F)>
@ -54,20 +66,19 @@ Saluting crisply, she retreats to her unseen guard post.")
<TELL "been validated.">)>
<CRLF>)
(<VERB? VALIDATE>
<COND (<PRSO? ,ASSIGNMENT-COMPLETION-FORM>
<COND (,ASSIGNMENT-FORM-VALIDATED
<TELL ,SENILITY-STRIKES>)
(T
<SETG ASSIGNMENT-FORM-VALIDATED T>
<TELL "Done." CR>)>)
<COND (,ASSIGNMENT-FORM-VALIDATED
<TELL ,SENILITY-STRIKES>)
(T
<TELL "That form has no validation box!" CR>)>)>>
<SETG ASSIGNMENT-FORM-VALIDATED T>
<TELL "Done." CR>)>)
(<VERB? CRUMPLE MUNG>
<TELL ,VIOLATION-OF-ACT>)>>
<OBJECT CHRONOMETER
(IN PROTAGONIST)
(DESC "chronometer")
(SYNONYM CHRONOMETER WRISTWATCH WATCH)
(ADJECTIVE WRIST)
(ADJECTIVE WRIST MY)
(SIZE 10)
(FLAGS TAKEBIT WEARBIT WORNBIT)
(ACTION CHRONOMETER-F)>
@ -76,11 +87,11 @@ Saluting crisply, she retreats to her unseen guard post.")
<COND (<VERB? EXAMINE READ>
<COND (<G? ,DAY 2>
<TELL
"You glance at your chronometer, and realize with annoyance that it has
"You glance at your " 'CHRONOMETER ", and realize with annoyance that it has
stopped. You can't recall doing anything that might have broken it." CR>)
(T
<TELL
"It is a standard wrist chronometer with a digital display. ">
"It is a standard wrist " 'CHRONOMETER " with a digital display. ">
<V-TIME T>
<TELL
" The back is engraved with the message
@ -90,7 +101,7 @@ stopped. You can't recall doing anything that might have broken it." CR>)
(IN PATROL-UNIFORM)
(DESC "ID card")
(SYNONYM CARD CARDS)
(ADJECTIVE PATROL ID IDENTIFICATION)
(ADJECTIVE MY PATROL ID IDENTIFICATION)
(FLAGS VOWELBIT TAKEBIT TRYTAKEBIT READBIT)
(SIZE 3)
(TEXT
@ -103,9 +114,8 @@ ID Number: 1451-352-716\"")>
<OBJECT PATROL-UNIFORM
(IN PROTAGONIST)
(DESC "Patrol uniform")
(LDESC "A slightly wrinkled Patrol uniform is lying here.")
(SYNONYM UNIFORM POCKET)
(ADJECTIVE PATROL WRINKLED)
(ADJECTIVE PATROL MY)
(FLAGS TAKEBIT WORNBIT WEARBIT CONTBIT SEARCHBIT OPENBIT)
(CAPACITY 10)
(ACTION PATROL-UNIFORM-F)>
@ -115,11 +125,11 @@ ID Number: 1451-352-716\"")>
<ROUTINE PATROL-UNIFORM-F ()
<COND (<VERB? EXAMINE>
<TELL
"It is a standard-issue one-pocket Stellar Patrol uniform, a miracle of modern
technology. It will keep its owner warm in cold climates and cool in warm
locales. It provides protection against mild radiation, repels all insects,
absorbs sweat, promotes healthy skin tone, and on top of everything else,
it is super-comfy">
"It is a standard-issue one-pocket Stellar " 'PATROL-UNIFORM ", a miracle
of modern technology. It will keep its owner warm in cold climates and cool
in warm locales. It provides protection against mild radiation, repels all
insects, absorbs sweat, promotes healthy skin tone, and on top of everything
else, it is super-comfy">
<COND (,SUIT-PRESSED
<TELL ". The uniform has been recently pressed">)>
<TELL ,PERIOD-CR>)
@ -127,13 +137,27 @@ it is super-comfy">
<TELL
"There's no way to open or close the pocket of the " D ,PRSO ,PERIOD-CR>)>>
<GLOBAL BLATHER-PROB 0>
<ROUTINE I-BLATHER ()
<COND (<EQUAL? ,HERE ,SPACETRUCK>
<DEQUEUE I-BLATHER>)
(<PROB ,BLATHER-PROB>
<DEQUEUE I-BLATHER>
<TELL
" Ensign Twelfth Class Blather walks by, carrying various toilet scrubbing
supplies. He spots you, glances away, whimpers, and slouches out of sight
(Footnote 2)." CR>)
(T
<SETG BLATHER-PROB <+ ,BLATHER-PROB 10>>)>>
<ROOM FORM-STORAGE-ROOM
(IN ROOMS)
(DESC "Forms Storage Room")
(LDESC
"This is the largest space in the ship, three decks tall and with the
floor area of seven Rigellian buzzball fields. The only exit is fore.")
(NORTH TO DECK-FIVE)
(NORTH TO DECK-TWELVE)
(FLAGS RLANDBIT ONBIT FLOYDBIT)
(THINGS <PSEUDO (<> FORM BOXED-FORMS-F)
(<> FORMS BOXED-FORMS-F)>)>
@ -141,7 +165,9 @@ floor area of seven Rigellian buzzball fields. The only exit is fore.")
<ROUTINE BOXED-FORMS-F ()
<COND (<OR <VERB? EXAMINE>
<TOUCHING? ,PSEUDO-OBJECT>>
<TELL "The forms are sealed inside the boxes." CR>)>>
<TELL "The forms are sealed inside the boxes." CR>)
(<VERB? CRUMPLE MUNG>
<TELL ,VIOLATION-OF-ACT>)>>
<OBJECT PALLETS
(IN FORM-STORAGE-ROOM)
@ -171,8 +197,12 @@ Disbursal Form,\" \"Loss of Form Pallet Label Report Form,\" and
<TELL " and forms">
<SET CNT <+ .CNT 1>>>
<TELL ". Horrified, you reseal the box." CR>)
(<VERB? CLOSE>
<TELL "They already are." CR>)
(<VERB? TAKE>
<TELL "You'll need a forklift." CR>)
(<VERB? CLIMB-ON STAND-ON MUNG SHOOT>
<TELL ,VIOLATION-OF-ACT>)
(<VERB? COUNT>
<COND (<EQUAL? ,HERE ,FORM-STORAGE-ROOM>
<TELL "Countless." CR>)
@ -189,7 +219,7 @@ Disbursal Form,\" \"Loss of Form Pallet Label Report Form,\" and
"The deck five corridor ends here at the entrance to the cargo bay, to
starboard. A smaller entrance leads fore.")
(EAST TO CARGO-BAY)
(WEST TO DECK-FIVE)
(WEST TO DECK-TWELVE)
(NORTH TO ROBOT-POOL)
(FLAGS RLANDBIT ONBIT FLOYDBIT)>
@ -200,7 +230,7 @@ starboard. A smaller entrance leads fore.")
(OUT TO CARGO-BAY-ENTRANCE)
(FLAGS RLANDBIT ONBIT FLOYDBIT)
(GLOBAL KEYPAD EQUIPMENT)
(THINGS <PSEUDO (<> SLOT SLOT-F)
(THINGS <PSEUDO (<> SLOT FORM-SLOT-F)
(FIRST BIN BIN-F)
(SECOND BIN BIN-F)
(THIRD BIN BIN-F)>)
@ -244,10 +274,9 @@ important assignment. Also for a trivial assignment like yours. "
(IN ROBOT-POOL)
(DESC "Floyd")
(DESCFCN FLOYD-F)
(SYNONYM FLOYD ROBOT THREE)
(SYNONYM FLOYD ROBOT THREE COMPAR)
(ADJECTIVE MULTIP PURPOS SHORT ROBOT NUMBER THIRD)
(FLAGS CONTBIT SEARCHBIT TRANSBIT OPENBIT ACTORBIT NARTICLEBIT
ACTIVEBIT)
(FLAGS CONTBIT SEARCHBIT OPENBIT ACTORBIT NARTICLEBIT ACTIVEBIT)
(CAPACITY 5)
(PLATO-ASK-ABOUT "He's an amusing and friendly little fellow.")
(FLOYD-ASK-ABOUT "That's me!")
@ -263,7 +292,8 @@ important assignment. Also for a trivial assignment like yours. "
<SETG FLOYD-SPOKE T>
<COND (<AND ,ROBOT-PICKED
<NOT <EQUAL? ,ROBOT-PICKED ,FLOYD>>>
<TELL "Floyd gives you a hurt look and turns away." CR>
<SETG WINNER ,PROTAGONIST>
<PERFORM ,V?COMFORT ,FLOYD>
<STOP>)
(,FLOYD-ANGUISHED
<SETG WINNER ,PROTAGONIST>
@ -271,7 +301,7 @@ important assignment. Also for a trivial assignment like yours. "
<STOP>)
(<AND <VERB? TELL-ABOUT>
<PRSO? ,ME>>
<COND (<G? ,ROBOT-EVILNESS 11>
<COND (<G? ,ROBOT-EVILNESS 12>
<TELL "\"Oh, quit jabbering already.\"" CR>)
(<SET TXT <GETP ,PRSI ,P?FLOYD-ASK-ABOUT>>
<TELL "\"" .TXT "\"" CR>)
@ -348,12 +378,22 @@ me please. Floyd does not know right thing to do...\"" CR>)
"\"Sure! Floyd not scared!\" He walks bravely up to the welder, which spits
some electric fire in his direction. From his new position (quivering behind
your legs) Floyd says, \"Floyd changed his mind, okay?\"" CR>)
(<AND <VERB? ENTER>
<PRSO? ,EXERCISE-MACHINE>>
<TELL
"\"Floyd doesn't need exercise! Not a gram of flab on Floyd!\" He pokes you
in the stomach and grins. \"Can't say the same about you, though!\"" CR>)
(<AND <VERB? REACH-IN>
<PRSO? ,DISPENSER ,PSEUDO-OBJECT>
<EQUAL? ,HERE ,PX>>
<TELL
"Floyd happily reaches into the dispenser hole, and then withdraws his hand,
looking glum. \"Nope, not even a ball.\"" CR>)
(<AND <VERB? WEAR>
<FSET? ,PRSO ,WEARBIT>>
<TELL
"\"Too big for Floyd! Also, it would clash with Floyd's
boron-titanium alloy finish!\"" CR>)
(<AND <VERB? GIVE>
<PRSI? ,ME>>
<COND (<IN? ,PRSO ,FLOYD>
@ -369,15 +409,19 @@ because you're Floyd's best friend.\"" CR>)
<RTRUE>)
(<VERB? WALK>
<TELL
"Floyd looks slightly embarrassed. \"You know me and my sense of
direction.\" Then he looks up at you with wide, trusting eyes.
"Floyd looks slightly embarrassed. \"You know Floyd and his sense
of direction.\" Then he looks up at you with wide, trusting eyes.
\"Tell Floyd a story?\"" CR>)
(<AND <VERB? FOLLOW>
<PRSO? ,ME>>
<TELL "\"Okay!\"" CR>)
(<VERB? HELLO>
<TELL
"\"Hi!\" Floyd grins and bounces up and down." CR>)
<COND (<G? ,ROBOT-EVILNESS 13>
<TELL
"\"Enough with the stupid 'FLOYD, HELLO' all the time, okay?\"" CR>)
(T
<TELL
"\"Hi!\" Floyd grins and bounces up and down." CR>)>)
(<VERB? DROP>
<COND (<IN? ,PRSO ,FLOYD>
<COND (<PROB 50>
@ -397,14 +441,23 @@ direction.\" Then he looks up at you with wide, trusting eyes.
(<AND <NOT <FSET? ,FLOYD ,TOUCHBIT>>
<NOUN-USED ,W?FLOYD ,FLOYD>>
<TELL "You don't see anyone by that name here." CR>
<RFATAL>)
<STOP>)
(<AND <NOT <EQUAL? ,ROBOT-PICKED ,FLOYD>>
<TOUCHING? ,FLOYD>>
<CANT-REACH ,FLOYD>)
(<AND <VERB? COMFORT>
,ROBOT-PICKED
<NOT <EQUAL? ,ROBOT-PICKED ,FLOYD>>>
<TELL "Floyd gives you a hurt look and turns away." CR>)
(<AND ,FLOYD-ANGUISHED
<OR <TOUCHING? ,FLOYD>
<VERB? COMFORT>>>
<TELL
"Floyd sniffs, \"Please leave Floyd alone for a while.\"" CR>)
(<AND <PROB <- <* ,ROBOT-EVILNESS 10> 50>>
<TOUCHING? ,FLOYD>>
(<AND <PROB <- <* ,ROBOT-EVILNESS 10> 70>>
<TOUCHING? ,FLOYD>
<NOT <VERB? OFF KICK SHAKE>>
<FSET? ,FLOYD ,ACTIVEBIT>>
<COND (<NOT <EQUAL? ,HERE ,FACTORY>>
<TELL
"\"Hey, will you just leave Floyd alone!\" He shoves you away." CR>)
@ -420,12 +473,29 @@ direction.\" Then he looks up at you with wide, trusting eyes.
<V-LOOK-INSIDE>)
(T
<CRLF>)>)
(<AND <VERB? PUT>
<PRSI? ,FLOYD>>
<COND (<FSET? ,FLOYD ,ACTIVEBIT>
<TELL
"\"Hey, Floyd's a robot, not a garbage pail!\" Floyd giggles
uncontrollably at his own joke." CR>)
(<NOUN-USED ,W?COMPAR ,FLOYD>
<TELL "There's no room." CR>)
(T
<TELL ,HUH>)>)
(<AND <VERB? KILL>
<PRSO? ,FLOYD>
,FLOYD-SHOT>
<PERFORM ,V?SHOOT ,FLOYD ,ZAPGUN>
<RTRUE>)
(<VERB? SHOOT>
<COND (,FLOYD-SHOT
<SETG ZAPGUN-SHOTS <+ ,ZAPGUN-SHOTS 1>>
<TELL
"Floyd is already fatally wounded. Another shot would accomplish nothing,
"Floyd is already fatally wounded, so that would accomplish nothing,
except perhaps fulfilling some sadistic impulse on your part." CR>)
(<EQUAL? ,HERE ,FACTORY>
<ROB ,FLOYD ,HERE>
<DEQUEUE I-FACTORY>
<FSET ,STUN-GUN ,TAKEBIT>
<FCLEAR ,FLOYD ,ACTIVEBIT>
@ -434,6 +504,7 @@ except perhaps fulfilling some sadistic impulse on your part." CR>)
"The bolt hits Floyd squarely in the chest. He is blown backwards, against
the pedestal, and slumps to the deck." CR>)
(T
<SETG ZAPGUN-SHOTS <+ ,ZAPGUN-SHOTS 1>>
<TELL
"[The author of this story is totally shocked, and won't even dignify such an
input with a response.]" CR>)>)
@ -451,24 +522,19 @@ input with a response.]" CR>)>)
(<VERB? OFF>
<COND (<G? ,PLATO-ATTACK-COUNTER 0>
<TELL
"Floyd jerks away as you touch his on-off switch. \"Hey, you know how much
Floyd hates that! And after Floyd saved your life before...\"" CR>)
"Floyd jerks away as you touch his on-off switch. \"Hey, you know
how much Floyd hates that! And after Floyd just saved your
life, you kripping ingrate.\"" CR>)
(T
<FCLEAR ,FLOYD ,ACTIVEBIT>
<FCLEAR ,FLOYD ,ACTORBIT>
<COND (<EQUAL? ,SPACETRUCK-COUNTER 0>
<DEQUEUE I-FLOYD>)>
<TELL
"Floyd, shocked by this betrayal from his old friend, whimpers and ">
<COND (<NOT <IN? ,FLOYD ,HERE>>
<MOVE ,FLOYD ,HERE>
<TELL "falls out of his seat">)
(T
<TELL "keels over">)>
"Floyd, shocked by this betrayal from his old friend, whimpers and keels over">
<COND (<FIRST? ,FLOYD>
<ROB ,FLOYD ,HERE>
<TELL
", dropping what he was carrying">)>
<TELL ", dropping what he was carrying">)>
<TELL ,PERIOD-CR>)>)
(<EQUAL? ,HERE ,FACTORY>
<RFALSE>)
@ -480,12 +546,22 @@ Floyd hates that! And after Floyd saved your life before...\"" CR>)
(<VERB? PLAY-WITH>
<COND (,FLOYD-ANGUISHED
<PERFORM ,V?TOUCH ,FLOYD>
<RTRUE>)
(<NOT <EQUAL? ,FLOYD ,ROBOT-PICKED>>
<CANT-REACH ,FLOYD>
<RTRUE>)>
<SETG C-ELAPSED 30>
<QUEUE I-FLOYD 1>
<TELL
"You play with Floyd for several centichrons until you drop to the floor,
winded. Floyd pokes at you gleefully. \"C'mon! Let's play some more!\"" CR>)
"You play with Floyd for several centichrons until you">
<COND (<PROB <- <* ,ROBOT-EVILNESS 15> 135>>
<TELL
" win a game. Floyd gets angry, accuses you of cheating, and kicks
you painfully in the shin." CR>)
(T
<TELL
"'re completely winded. 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>
@ -495,6 +571,7 @@ winded. Floyd pokes at you gleefully. \"C'mon! Let's play some more!\"" CR>)
"Sans gravity, you easily pick up Floyd. \"Oh, boy! Zero-Gee Polo,\" he
yells, wriggling away and bounding off several walls." CR>)
(<FSET? ,FLOYD ,TOUCHBIT>
<SETG FLOYD-TRYTAKEN T>
<TELL
"You manage to lift Floyd a few centimeters, but he's too heavy and you
drop him suddenly. Floyd gives a surprised squeal and moves a
@ -504,16 +581,22 @@ respectable distance away." CR>)>)
"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
<COND (<G? ,ROBOT-EVILNESS 13>
<TELL
"\"What the krip do you think you're doing? How you'd like it if Floyd
treated you that way, you stupid trot-brain.\"" CR>)
(T
<TELL
"\"Why you do that?\" Floyd whines. \"I think a wire now shaken loose.\"
He goes off into a corner and sulks." CR>)
He goes off into a corner and sulks." CR>)>)
(<VERB? SEARCH CLEAN OPEN TICKLE>
<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>
<PRSI? ,FLOYD>>
<COND (<PRSO? ,ORANGE-GOO ,GRAY-GOO ,BLUE-GOO>
<COND (<PRSO? ,ORANGE-GOO ,GRAY-GOO
,TAFFY ,SOUP ,NECTAR>
<TELL
"Floyd looks at the goo. \"Yech! Got any Number Seven Heavy Grease?\"" CR>)
(<PRSO? ,LEASH>
@ -521,8 +604,11 @@ his side panels, laughing hysterically. Oil drops stream from his eyes." CR>)
(<PRSO? ,OSTRICH-NIP>
<TELL
"\"Phew!\" says Floyd, holding his nose and handing it back." CR>)
(<OR <FIRST? ,FLOYD>
<PROB 25>>
(<OR <G? <CCOUNT ,FLOYD> 3>
<PRSO? ,OSTRICH-NIP ,SPACESUIT>
<PRSO? ,DETONATOR ,TIMER ,EXPLOSIVE>
<FSET? ,PRSO ,CONTBIT>
<PROB 35>>
<MOVE ,PRSO ,HERE>
<TELL
"Floyd examines the " D, PRSO ", shrugs, and drops it." CR>)
@ -535,7 +621,7 @@ his side panels, laughing hysterically. Oil drops stream from his eyes." CR>)
<SETG AWAITING-REPLY 3>
<QUEUE I-REPLY <+ ,C-ELAPSED 2>>
<TELL
"Floyd looks over the " D, PRSO ". \"Can you play any
"Floyd looks over" T ,PRSO ". \"Can you play any
games with it?\" he asks." CR>)
(<VERB? TOUCH HUG>
<TELL "Floyd gives a contented sigh." CR>)
@ -544,15 +630,20 @@ games with it?\" he asks." CR>)
"Floyd smells faintly of ozone and light machine oil." CR>)>)
;"following clauses are for when Floyd is off"
(<VERB? ON>
<QUEUE I-FLOYD -1>
<SETG FLOYD-SPOKE T>
<FSET ,FLOYD ,ACTORBIT>
<FSET ,FLOYD ,ACTIVEBIT>
<FSET ,FLOYD ,TOUCHBIT>
<TELL "Floyd jumps to his feet" ,HOPPING-MAD CR>)
<COND (,FLOYD-SHOT
<TELL
"Floyd IS on...but he's headed for that big Robot Pool in the sky..." CR>)
(T
<QUEUE I-FLOYD -1>
<SETG FLOYD-SPOKE T>
<FSET ,FLOYD ,ACTORBIT>
<FSET ,FLOYD ,ACTIVEBIT>
<FSET ,FLOYD ,TOUCHBIT>
<TELL "Floyd jumps to his feet" ,HOPPING-MAD CR>)>)
(<VERB? OFF>
<TELL "Floyd isn't on." CR>)
(<VERB? TELL>
(<AND <VERB? TELL>
<NOT ,FLOYD-SHOT>>
<TELL
"Floyd isn't that great a listener even when he's on..." CR>
<STOP>)
@ -616,6 +707,8 @@ grip slips and he clatters to the deck. \"Oops! More dents!\"" CR>)>>
<GLOBAL FLOYD-SHOT <>>
<GLOBAL FLOYD-TRYTAKEN <>>
<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"
@ -629,9 +722,9 @@ grip slips and he clatters to the deck. \"Oops! More dents!\"" CR>)>>
<FSET ,FLOYD ,TRYTAKEBIT>
<TELL
" The third robot looks up from his marbles, jumps to his feet, and starts
waving wildly. It's Floyd, your robotic companion from Resida! You've seen
him only occasionally since he opted to follow you aboard the Duffy those
five long years ago." CR>)
waving wildly. It's Floyd, your robotic companion from Resida! (Footnote 3)
You've seen him only occasionally since he opted for assignment in the Stellar
Patrol those five long years ago." CR>)
(<NOT ,ROBOT-PICKED>
<TELL
" Floyd jumps up and down saying, \"Oh boy oh boy oh boy pick Floyd
@ -650,9 +743,18 @@ pick Floyd pick Floyd!\"" CR>)
<TELL
" Floyd looks at the ostrich with breathless excitement.
\"Wow! An elephant!\"" CR>)
(<AND <NOT <FSET? ,HERE ,FLOYDBIT>>
<NOT ,FLOYD-SPOKE>
<PROB 6>>
(<AND <IN? ,BALLOON ,HERE>
<NOT ,BALLOON-COMMENT>
<G? ,ROBOT-EVILNESS 13>>
<SETG BALLOON-COMMENT T>
<TELL
" You notice Floyd taunting the " D ,BALLOON ". The frightened balloon
takes refuge in the far corner of the room." CR>)
(<OR <AND <NOT <FSET? ,HERE ,FLOYDBIT>>
<NOT ,FLOYD-SPOKE>
<PROB 6>>
<AND <G? ,TIMER-SETTING 0>
<VISIBLE? ,EXPLOSIVE>>>
<REMOVE ,FLOYD>
<TELL " ">
<COND (<IN? ,PLATO ,HERE>
@ -692,6 +794,7 @@ He glides out of the room." CR>)>)
<COND (<AND .OBJ
<FSET? .OBJ ,TOUCHBIT>
<FSET? .OBJ ,TAKEBIT>
<NOT <FSET? .OBJ ,CONTBIT>>
<NOT <EQUAL? .OBJ ,OSTRICH-NIP ,SPACESUIT>>
<NOT <EQUAL? .OBJ ,DETONATOR ,TIMER
,EXPLOSIVE>>
@ -715,7 +818,7 @@ He glides out of the room." CR>)>)
<TELL
" Floyd drops" T .OBJ " he was carrying." CR>)
(<AND <FIRST? ,FLOYD>
<PROB 2>>
<PROB 4>>
<SET OBJ <FIRST? ,FLOYD>>
<COND (<AND <NEXT? .OBJ>
<PROB 60>>
@ -728,16 +831,25 @@ a roaring noise like a rocket exhaust." CR>)
<TELL " " <PICK-ONE ,PLATOISMS> ,PERIOD-CR>)
(T
<TELL " Floyd ">
<COND (<PROB 7>
<COND (<PROB <- 36 <* ,ROBOT-EVILNESS 3>>>
<TELL <PICK-ONE ,GOOD-FLOYDISMS>
,PERIOD-CR>)
(<PROB <- <* ,ROBOT-EVILNESS 25> 300>>
<TELL <PICK-ONE ,BAD-FLOYDISMS>
,PERIOD-CR>)
(<PROB 6>
<SETG AWAITING-REPLY 4>
<QUEUE I-REPLY <+ ,C-ELAPSED 2>>
<TELL
"says, \"Hey! Wanna play Hucka-Bucka-Beanstalk?\"" CR>)
(T
<TELL
<PICK-ONE ,FLOYDISMS> ,PERIOD-CR>)>)>)>)
<TELL <PICK-ONE ,NEUTRAL-FLOYDISMS>
,PERIOD-CR>)>)>)>)
(<NOT <FSET? ,FLOYD ,ACTIVEBIT>>
<COND (<EQUAL? ,HERE ,VACUUM-STORAGE ,AIRLOCK>
<COND (<OR <EQUAL? ,HERE ,VACUUM-STORAGE ,AIRLOCK>
<L? ,SPACETRUCK-COUNTER 5>>
<RFALSE>)
(<NEXT-ROOM? ,FLOYD>
<RFALSE>)>
<FSET ,FLOYD ,ACTIVEBIT>
<FSET ,FLOYD ,ACTORBIT>
@ -756,7 +868,13 @@ fellow. Someone had deactivated him, so I rectified the situation.\"" CR>)>
<MOVE ,PLATO ,HERE>
<MOVE ,FLOYD ,HERE>)
;"Floyd is active but not present"
(<G? ,ROBOT-EVILNESS 16>
(<G? ,ROBOT-EVILNESS 17>
<COND (<AND <LOC ,FLOYD>
<FSET? <LOC ,FLOYD> ,NWELDERBIT>
<NEXT-ROOM? ,FLOYD>>
;"don't move Floyd to Factory if he's in the next room
and it's a dead end"
<RFALSE>)>
<MOVE ,FLOYD ,FACTORY>
<ROB ,FLOYD <COND (<EQUAL? ,HERE ,EAST-JUNCTION ,LEVEL-FIVE>
,SOUTH-CONNECTION)
@ -790,8 +908,11 @@ fellow. Someone had deactivated him, so I rectified the situation.\"" CR>)>
(T
<TELL "both">)>
<TELL " of us.\"" CR>)
(<AND ,FLOYD-FOLLOW ;"he's in room where you just were"
<PROB 80>>
(<OR <AND ,FLOYD-FOLLOW
<G? ,TIMER-SETTING 0>
<VISIBLE? ,EXPLOSIVE>>
<AND ,FLOYD-FOLLOW
<PROB 80>>>
<TELL " Floyd ">
<COND (<AND ,PLATO-INTRODUCED
<EQUAL? ,PLATO-ATTACK-COUNTER 0>>
@ -828,7 +949,11 @@ fellow. Someone had deactivated him, so I rectified the situation.\"" CR>)>
found a new friend,\" Floyd says with unbounded exuberance." CR>
<I-PLATO T>)
(T
<COND (<PROB 15>
<COND (<PROB <- <* ,ROBOT-EVILNESS 10> 70>>
<TELL
"meanders in. \"You doing anything fun?\" he asks, and then answers
his own question, \"Nope. Same dumb boring things.\"">)
(<PROB 15>
<TELL
"rushes into the room and barrels into you. \"Oops, sorry,\" he says.
\"Floyd not looking at where he was going to.\"">)
@ -850,35 +975,52 @@ absorbed in his reading.">)>
<SETG FLOYD-SPOKE <>>
<SETG FLOYD-FOLLOW <>>>
<GLOBAL FLOYDISMS
<LTABLE
0
"paces impatiently"
"absent-mindedly recites the first six hundred digits of pi"
"recalls the time he bruised his knee"
"tells you how much it hurts to repair dents"
"chants the death scene from \"Carmen\""
"cranes his neck to see what you are doing"
"rubs his head affectionately against your shoulder"
"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"
"whistles tunelessly"
"boasts about the time he helped someone sharpen a pencil"
"yawns and looks bored"
"complains about a recent assignment in the forms filing department"
"produces a crayon from one of his compartments and scrawls
<GLOBAL GOOD-FLOYDISMS
<LTABLE 0
"rubs his head affectionately against your shoulder"
"notices a mouse scurrying by and tries to hide behind you"
"reminisces about the excitement of your adventure on Resida"
"hums the theme song from a popular Saturday morning hyperwave cartoon"
"plays a quick game of paddleball, almost breaking his record
of four hits">>
<GLOBAL NEUTRAL-FLOYDISMS
<LTABLE 0
"paces impatiently"
"absent-mindedly recites the first six hundred digits of pi"
"recalls the time he bruised his knee"
"tells you how much it hurts to repair dents"
"cranes his neck to see what you are doing"
"examines himself for signs of rust"
"absent-mindedly oils one of his joints"
"wanders restlessly around the room"
"sneaks up clumsily behind you and shouts \"Boo!\" in your ear"
"frets about the possibility of his batteries failing"
"whistles tunelessly"
"boasts about the time he helped someone find a lost paper clip"
"yawns and looks bored"
"complains about a recent assignment in the forms filing department"
"produces a crayon from one of his compartments and scrawls
his name on the wall">>
<GLOBAL BAD-FLOYDISMS
<LTABLE 0
"stomps on your foot, for no apparent reason"
"accidentally bumps into you, and reacts by cursing your ancestors"
"produces a loud burp and fails to apologize"
"mumbles about a mysterious future in which humans will have to take
orders from robots"
"tells an off-color joke about the bizarre mating habits of flesh and
blood creatures">>
<GLOBAL PLATOISMS
<LTABLE 0
"Floyd tells Plato about a neat shortcut for calculating seventh order
differentials"
"Plato tells Floyd one of the ancient legends about the early days of the
settlement of the galaxy"
"Floyd confides to Plato that his life's dream is to get locked up overnight
in a toy factory"
"Floyd and Plato discuss their favorite battery recharging techniques"
"Plato helps polish a hard-to-reach spot on Floyd's back"
"\"You like Floyd, don't you, Plato?\" asks Floyd. \"Yes,\" replies the
@ -917,17 +1059,16 @@ perforating extension reads \"Helen.\"")
<TELL
"You've strayed too far from simple form-sorting to interest Helen." CR>
<STOP>)>)
(<AND <NOT <EQUAL? ,ROBOT-PICKED ,HELEN>>
<TOUCHING? ,HELEN>>
<CANT-REACH ,HELEN>)
(<AND <VERB? GIVE>
<PRSO? ASSIGNMENT-COMPLETION-FORM
ROBOT-USE-AUTHORIZATION-FORM
CLASS-THREE-SPACECRAFT-ACTIVATION-FORM>>
<CONFETTI ,PRSO>)
(<VERB? OFF ON>
<TELL
"Being unfamiliar with this model robot,
you can't find the on-off switch." CR>)
(<VERB? OPEN>
<TELL "There are no visible compartments." CR>)
(<VERB? OFF ON OPEN>
<PERFORM-PRSA ,PLATO>)
(<VERB? PICK>
<PICK-ROBOT>)>>
@ -935,7 +1076,7 @@ you can't find the on-off switch." CR>)
(IN ROBOT-POOL)
(DESC "Rex")
(FDESC
"In the first bin is a bulky robot, obviously intended for heavy-lifting.
"In the first bin is a bulky robot, obviously intended for heavy lifting.
A brass plate on one of his pneumatic arm lifts says \"Rex.\"")
(SYNONYM REX ROBOT ONE)
(ADJECTIVE HEAVY ROBOT NUMBER FIRST)
@ -947,12 +1088,20 @@ A brass plate on one of his pneumatic arm lifts says \"Rex.\"")
<COND (<VERB? HELLO>
<TELL "\"Yo.\"" CR>)
(<VERB? WALK FOLLOW>
<TELL "\"I'll follow if I gets assigned ta ya.\"" CR>)
<TELL "\"I'll follow youse ">
<COND (<EQUAL? ,REX ,ROBOT-PICKED>
<TELL "since I been">)
(T
<TELL "if I gets">)>
<TELL " assigned ta youse.\"" CR>)
(T
<TELL "Rex merely looks confused." CR>
<STOP>)>)
(<AND <NOT <EQUAL? ,ROBOT-PICKED ,REX>>
<TOUCHING? ,REX>>
<CANT-REACH ,REX>)
(<VERB? OFF ON OPEN>
<PERFORM-PRSA ,HELEN>)
<PERFORM-PRSA ,PLATO>)
(<VERB? PICK>
<PICK-ROBOT>)>>
@ -988,7 +1137,7 @@ D .FORM-NAME ", leaving nothing but some useless confetti." CR>>
(WEST TO CARGO-BAY-ENTRANCE)
(IN TO SPACETRUCK IF SPACETRUCK-HATCH IS OPEN)
(FLAGS RLANDBIT ONBIT FLOYDBIT)
(GLOBAL SPACETRUCK-OBJECT SPACETRUCK-HATCH)
(GLOBAL SPACETRUCK-OBJECT SPACETRUCK-HATCH WINDOW)
(ACTION CARGO-BAY-F)>
<ROUTINE CARGO-BAY-F (RARG)
@ -997,7 +1146,7 @@ D .FORM-NAME ", leaving nothing but some useless confetti." CR>>
"This huge airlock is essentially a giant loading dock, where truckloads
of forms arrive from various printing planets throughout the sector and
are immediately distributed throughout the administrative deck. The only
exit on foot is back the way you came. A spacetruck, its hatch ">
exit on foot is back the way you came. A " 'SPACETRUCK-OBJECT ", its hatch ">
<OPEN-CLOSED ,SPACETRUCK-HATCH>
<TELL ", waits in the cargo bay.">)>>
@ -1030,7 +1179,7 @@ off and unoccupied.")
<MOVE ,FORKLIFT ,HERE>
<MOVE ,PROTAGONIST ,FORKLIFT>)>)
(<VERB? DRIVE>
<TELL "You'll have to specify in which direction..." CR>)>>
<TELL ,YOULL-HAVE-TO "specify in which direction..." CR>)>>
<OBJECT SPACETRUCK-OBJECT
(IN LOCAL-GLOBALS)
@ -1050,12 +1199,18 @@ off and unoccupied.")
<DO-WALK ,P?OUT>)
(T
<TELL ,LOOK-AROUND>)>)
(<VERB? OPEN CLOSE>
<PERFORM-PRSA ,SPACETRUCK-HATCH>)
(<VERB? EXAMINE>
<COND (<EQUAL? ,HERE ,SPACETRUCK>
<V-LOOK>)
(T
<PERFORM ,V?EXAMINE ,SPACETRUCK-HATCH>
<RTRUE>)>)
(<AND <VERB? LOOK-INSIDE>
<EQUAL? ,HERE ,CARGO-BAY ,DOCKING-BAY-2>>
<PERFORM ,V?LOOK-INSIDE ,WINDOW>
<RTRUE>)
(<VERB? LAUNCH ON>
<COND (<NOT <EQUAL? ,HERE ,SPACETRUCK>>
<TELL "You're not even in it!" CR>)
@ -1074,14 +1229,17 @@ off and unoccupied.")
(FLAGS RLANDBIT ONBIT NWELDERBIT FLOYDBIT)
(GLOBAL WINDOW KEYPAD SPACETRUCK-OBJECT SPACETRUCK-HATCH)
(ACTION SPACETRUCK-F)
(THINGS <PSEUDO (<> SLOT SLOT-F)
(THINGS <PSEUDO (<> SLOT FORM-SLOT-F)
(RED BUTTON RED-BUTTON-F)>)>
<ROUTINE SPACETRUCK-F (RARG)
<COND (<EQUAL? .RARG ,M-LOOK>
<COND (<AND <EQUAL? .RARG ,M-ENTER>
<NOT <FSET? ,SPACETRUCK ,TOUCHBIT>>>
<QUEUE I-THERMOS 100>)
(<EQUAL? .RARG ,M-LOOK>
<TELL
"This is a twelve-meter rig, the largest Class Three spacecraft made. In
addition to the pilot and copilot seats, there's a Space Band Radio, a
"This is a twelve-meter rig, the largest Class Three spacecraft made, with
seats for a pilot and copilot. Below the viewport is a space band radio, a
red button for activating the emergency beacon, plus a slot and keypad for
controlling the autopilot. The hatch is ">
<OPEN-CLOSED ,SPACETRUCK-HATCH>
@ -1155,7 +1313,7 @@ controlling the autopilot. The hatch is ">
<SETG AWAITING-REPLY 2>
<QUEUE I-REPLY <+ ,C-ELAPSED 2>>
<TELL
" \"Let Floyd launch the spacetruck? Please? Floyd has not crashed
" \"Let Floyd launch the " 'SPACETRUCK-OBJECT "? Please? Floyd has not crashed
a truck in over two weeks!\"">)>
<RTRUE>)>>
@ -1221,7 +1379,7 @@ go wrong <skip> go wrong..">)
(T
<TELL
"You're not in trouble! Misuse of the emergency message
beacon is a court martial offense!" CR>)>)>>
beacon is a court-martial offense!" CR>)>)>>
<GLOBAL COURSE-PICKED 0>
@ -1243,6 +1401,7 @@ at boot camp, you may not recall that hot ion gasses are pretty deadly.">)
<JIGS-UP
". Once in space, the truck's air gushes out through the open hatch.">)
(<EQUAL? <LOC ,PROTAGONIST> ,PILOT-SEAT ,COPILOT-SEAT>
<FSET ,SPACETRUCK ,WEIGHTLESSBIT>
<TELL
", slowly picking up speed. You settle back for the long trip." CR>)
(T
@ -1268,11 +1427,12 @@ space station. The station grows rapidly larger as you hurtle towards it." CR>
a few thousand meters from the station." CR>)
(T
<TELL
"The forward braking rockets sputter off as the spacetruck comes to a
dead stop in space. There is no space station, or any other sign of human
"The forward braking rockets sputter off as the " 'SPACETRUCK-OBJECT " comes
to a dead stop in space. There is no space station, or any other sign of human
civilization, in sight." CR>)>)
(<EQUAL? ,SPACETRUCK-COUNTER 5>
<COND (<EQUAL? ,COURSE-PICKED ,RIGHT-COURSE>
<FCLEAR ,SPACETRUCK ,WEIGHTLESSBIT>
<QUEUE I-WELDER -1>
<QUEUE I-FLOYD -1> ;"to get ints. in the proper order"
<QUEUE I-PLATO 750>
@ -1307,24 +1467,21 @@ dead.">>
(SYNONYM KIT)
(ADJECTIVE SURVIVAL)
(SIZE 10)
(CAPACITY 25)
(CAPACITY 20)
(FLAGS TAKEBIT CONTBIT SEARCHBIT)
(ACTION FOOD-KIT-F)>
<ROUTINE FOOD-KIT-F ()
<COND (<VERB? EMPTY>
<COND (<NOT <FSET? ,FOOD-KIT ,OPENBIT>>
<TELL "The kit is closed!" CR>)
(<FIRST? ,PRSO>
<TELL
"The goo, being gooey, sticks to the inside of the kit. You would probably
have to shake the kit to get the goo out." CR>)>)
<COND (<AND <VERB? EMPTY>
<FSET? ,FOOD-KIT ,OPENBIT>
<EQUAL? ,FOOD-KIT <LOC ,GRAY-GOO> <LOC ,ORANGE-GOO>>>
<PERFORM ,V?REMOVE ,GRAY-GOO>
<RTRUE>)
(<AND <VERB? OPEN>
<IN-VACUUM?>
<OR <IN? ,FOOD-KIT ,GRAY-GOO>
<IN? ,FOOD-KIT ,ORANGE-GOO>
<IN? ,FOOD-KIT ,BLUE-GOO>>>
<SPACE-FOOD>)>>
<EQUAL? ,FOOD-KIT <LOC ,GRAY-GOO> <LOC ,ORANGE-GOO>>>
<FSET ,FOOD-KIT ,OPENBIT>
<SPACE-FOOD>)>>
<ROUTINE IN-VACUUM? ()
<COND (<OR <EQUAL? ,HERE ,VACUUM-STORAGE>
@ -1334,12 +1491,111 @@ have to shake the kit to get the goo out." CR>)>)
(T
<RFALSE>)>>
<ROUTINE SPACE-LIQUID (OBJ)
<COND (<VISIBLE? .OBJ>
<TELL " The ">
<COND (<EQUAL? .OBJ ,SOUP>
<TELL "soup">)
(<EQUAL? .OBJ ,COFFEE>
<TELL "coffee">)
(T
<TELL "nectar">)>
<TELL " boils away into the vacuum">
<COND (<EQUAL? .OBJ ,SOUP>
<REMOVE ,SOUP>
<TELL ,PERIOD-CR>)
(T
<ANTI-LITTER .OBJ>)>)>>
<ROUTINE SPACE-FOOD ()
<REMOVE ,ORANGE-GOO>
<REMOVE ,BLUE-GOO>
<REMOVE ,GRAY-GOO>
<TELL
"The food in the survival kit instantly crystallizes and drifts away." CR>>
"The food in the " 'FOOD-KIT " instantly crystallizes and drifts away." CR>>
<OBJECT THERMOS
(IN FOOD-KIT)
(DESC "Thermos bottle")
(SYNONYM BOTTLE THERMOS)
(ADJECTIVE THERMOS PLAID)
(FLAGS TAKEBIT CONTBIT SEARCHBIT)
(ACTION THERMOS-F)>
<ROUTINE THERMOS-F ()
<COND (<VERB? EXAMINE>
<TELL
"It's your basic insulated bottle, which hasn't changed much over the
centuries. This one is plaid, with pictures of little robots all over it. ">
<RFALSE> ;"open-closed")
(<AND <VERB? PUT>
<PRSI? ,THERMOS>
<NOT <PRSO? ,EXPLOSIVE ,SMALL-BIT ,LARGE-BIT ,MEDIUM-BIT>>>
<TELL "The neck of the Thermos is too narrow for" TR ,PRSO>)
(<VERB? OPEN>
<COND (<AND <IN-VACUUM?>
<IN? ,SOUP ,THERMOS>>
<FSET ,THERMOS ,OPENBIT>
<SPACE-LIQUID ,SOUP>)
(,THERMOS-FILLED-WITH-GAS
<FSET ,THERMOS ,OPENBIT>
<TELL
"You open the thermos, releasing a puff of FREZONE (tm) gas." CR>)>)>>
<GLOBAL THERMOS-FILLED-WITH-GAS <>>
<GLOBAL SOUP-WARMTH 100>
<ROUTINE I-THERMOS ()
<COND (<NOT <IN? ,SOUP ,THERMOS>>
<SETG SOUP-WARMTH 0>)
(<L? ,SOUP-WARMTH 0>
<SETG SOUP-WARMTH 0>)
(T
<SETG SOUP-WARMTH
<- ,SOUP-WARMTH
<COND (<FSET? ,THERMOS ,OPENBIT>
4)
(T
1)>>>
<QUEUE I-THERMOS 100>)>>
<OBJECT SOUP
(IN THERMOS)
(DESC "blue soup")
(FOOD-DESC " blueberry walnut soup")
(SYNONYM SOUP FOOD)
(ADJECTIVE BLUE BLUEBERRY WALNUT HOT STEAMING LUKEWARM COOL COLD)
(FLAGS NARTICLEBIT)
(GENERIC GENERIC-FOOD-F)
(ACTION SOUP-F)>
<ROUTINE SOUP-F ()
<COND (<AND <VERB? FIND>
<EQUAL? <GET ,P-NAMW 0> ,W?FOOD>>
<PERFORM ,V?SEARCH ,GLOBAL-ROOM>
<RTRUE>)
(<AND <VERB? EAT>
<NOT <ULTIMATELY-IN? ,THERMOS>>>
<THIS-IS-IT ,THERMOS>
<TELL ,YNH TR ,THERMOS>)
(<VERB? EXAMINE TOUCH TASTE>
<TELL "The soup seems to be ">
<DESCRIBE-SOUP-TEMPERATURE>)>>
<ROUTINE DESCRIBE-SOUP-TEMPERATURE ()
<COND (<G? ,SOUP-WARMTH 80>
<TELL "steaming hot">)
(<G? ,SOUP-WARMTH 60>
<TELL "quite hot">)
(<G? ,SOUP-WARMTH 40>
<TELL "fairly hot">)
(<G? ,SOUP-WARMTH 20>
<TELL "lukewarm">)
(<G? ,SOUP-WARMTH 0>
<TELL "tepid">)
(T
<TELL "on the cool side">)>
<TELL ,PERIOD-CR>>
<OBJECT GRAY-GOO
(IN FOOD-KIT)
@ -1359,21 +1615,12 @@ have to shake the kit to get the goo out." CR>)>)
(GENERIC GENERIC-FOOD-F)
(ACTION GOO-F)>
<OBJECT BLUE-GOO
(IN FOOD-KIT)
(DESC "blob of blue goo")
(FOOD-DESC " blueberry ice cream")
(SYNONYM GOO BLOB FOOD CREAM)
(ADJECTIVE BLUE BLUEBERRY ICE)
(GENERIC GENERIC-FOOD-F)
(ACTION GOO-F)>
<ROUTINE GOO-F ()
<COND (<AND <VERB? EAT>
<NOT <ULTIMATELY-IN? ,FOOD-KIT ,PROTAGONIST>>>
<THIS-IS-IT ,FOOD-KIT>
<TELL ,YNH TR ,FOOD-KIT>)
(<VERB? TAKE DROP>
(<VERB? TAKE REMOVE DROP>
<COND (<VERB? DROP>
<TELL "The goo, being gooey, sticks where it is">)
(<VERB? TAKE>

2208
station.zap
View File

File diff suppressed because it is too large Load Diff

1076
station.zil
View File

File diff suppressed because it is too large Load Diff

51
syntax.zil
View File

@ -98,20 +98,20 @@
<SYNTAX ATTACK OBJECT (FIND ACTORBIT) (ON-GROUND IN-ROOM) = V-KILL PRE-MUNG>
<SYNTAX ATTACK OBJECT (FIND ACTORBIT) (ON-GROUND IN-ROOM)
WITH OBJECT (HELD CARRIED HAVE) = V-KILL PRE-MUNG>
<VERB-SYNONYM ATTACK KILL MURDER FIGHT HIT SLAY SLAP STRIKE STAB>
<VERB-SYNONYM ATTACK KILL FIGHT HIT SLAY SLAP STRIKE STAB>
<SYNTAX ATTRACT OBJECT WITH OBJECT (HELD CARRIED HAVE) = V-ATTRACT>
<SYNTAX BITE OBJECT = V-BITE>
<SYNTAX BLOW OUT OBJECT (FIND ONBIT) = V-OFF PRE-TOUCH>
<SYNTAX BLOW OUT OBJECT (FIND ONBIT) (TAKE) = V-OFF PRE-TOUCH>
<SYNTAX BOARD OBJECT (FIND VEHBIT) (ON-GROUND IN-ROOM) = V-ENTER PRE-ENTER>
<SYNTAX BURN OBJECT (FIND BURNBIT) = V-BURN PRE-TOUCH>
<SYNTAX BURN UP OBJECT (FIND BURNBIT) = V-BURN PRE-TOUCH>
<SYNTAX BURN OBJECT (FIND BURNBIT) WITH OBJECT (HAVE) = V-BURN PRE-TOUCH>
<SYNTAX BURN UP OBJECT (FIND BURNBIT) WITH OBJECT (HAVE) = V-BURN PRE-TOUCH>
<SYNTAX BURN OBJECT = V-BURN PRE-TOUCH>
<SYNTAX BURN UP OBJECT = V-BURN PRE-TOUCH>
<SYNTAX BURN OBJECT WITH OBJECT (HAVE) = V-BURN PRE-TOUCH>
<SYNTAX BURN UP OBJECT WITH OBJECT (HAVE) = V-BURN PRE-TOUCH>
;<SYNTAX BUY OBJECT = V-BUY>
;<SYNTAX BUY OBJECT FROM OBJECT = V-BUY>
@ -142,13 +142,16 @@
<SYNTAX CLOSE OBJECT (FIND DOORBIT) (HELD CARRIED ON-GROUND IN-ROOM)
= V-CLOSE PRE-TOUCH>
<SYNTAX CLOSE OFF OBJECT (FIND ACTIVEBIT) = V-OFF PRE-TOUCH>
<SYNTAX CLOSE OFF OBJECT (FIND ACTIVEBIT) (TAKE) = V-OFF PRE-TOUCH>
<VERB-SYNONYM CLOSE SHUT SEAL>
<SYNTAX COME WITH OBJECT = V-FOLLOW>
<SYNTAX COMFORT OBJECT (FIND ACTORBIT) = V-COMFORT>
<SYNTAX COMPAR OBJECT WITH OBJECT = V-COMPARE>
<SYNTAX COMPAR OBJECT TO OBJECT = V-COMPARE>
<SYNTAX CONNECT OBJECT TO OBJECT = V-CONNECT>
<VERB-SYNONYM CONNECT ATTACH>
@ -159,6 +162,8 @@
<SYNTAX CROSS OBJECT = V-CROSS>
<VERB-SYNONYM CROSS FORD>
<SYNTAX CRUMPL OBJECT (HELD CARRIED HAVE) = V-CRUMPLE>
<SYNTAX DEMOLI OBJECT (ON-GROUND IN-ROOM) = V-MUNG PRE-MUNG>
<SYNTAX DEMOLI OBJECT WITH OBJECT (HELD CARRIED TAKE) = V-MUNG PRE-MUNG>
<SYNTAX DEMOLI OUT OBJECT (FIND RLANDBIT) = V-MUNG PRE-MUNG>
@ -182,7 +187,10 @@
<SYNTAX DRESS OBJECT = V-DRESS>
<SYNTAX DRILL OBJECT = V-DRILL PRE-DRILL>
<SYNTAX DRILL IN OBJECT = V-DRILL PRE-DRILL>
<SYNTAX DRILL OBJECT WITH OBJECT = V-DRILL PRE-DRILL>
<SYNTAX DRILL THROUGH OBJECT = V-DRILL PRE-DRILL>
<SYNTAX DRILL THROUGH OBJECT WITH OBJECT = V-DRILL PRE-DRILL>
<SYNTAX DRILL OBJECT IN OBJECT = V-DRILL-HOLE>
;<SYNTAX DRIVE OBJECT = V-DRIVE>
@ -226,7 +234,7 @@
<SYNTAX EXIT OBJECT = V-EXIT>
<VERB-SYNONYM EXIT DEPART WITHDR>
<SYNTAX EXTINGUISH OBJECT (FIND ACTIVEBIT) = V-OFF PRE-TOUCH>
<SYNTAX EXTINGUISH OBJECT (FIND ACTIVEBIT) (TAKE) = V-OFF PRE-TOUCH>
<VERB-SYNONYM EXTINGUISH DEACTIVATE STOP>
<SYNTAX FEED OBJECT (FIND ACTORBIT) = V-FEED>
@ -241,12 +249,17 @@
<SYNTAX FIND OBJECT = V-FIND>
<VERB-SYNONYM FIND SEEK>
<SYNTAX FIX OBJECT = V-FIX>
<SYNONYM FIX REPAIR>
<SYNTAX FLATTEN OBJECT = V-FLATTEN>
<VERB-SYNONYM FLATTEN UNCRUMPLE STRAIGHTEN>
<SYNTAX FOLLOW OBJECT = V-FOLLOW>
<VERB-SYNONYM FOLLOW PURSUE CHASE>
<SYNTAX FOOTNOTE OBJECT = V-FOOTNOTE>
<SYNTAX GREET OBJECT (FIND ACTORBIT) = V-GREET>
<SYNTAX GO OBJECT = V-WALK>
@ -442,10 +455,10 @@
<SYNTAX SCOLD OBJECT (FIND ACTORBIT) = V-SCOLD>
<SYNTAX SEARCH OBJECT = V-SEARCH>
<SYNTAX SEARCH IN OBJECT = V-SEARCH>
<SYNTAX SEARCH OBJECT = V-SEARCH PRE-TOUCH>
<SYNTAX SEARCH IN OBJECT = V-SEARCH PRE-TOUCH>
<SYNTAX SEARCH FOR OBJECT = V-FIND>
<SYNTAX SEARCH THROUGH OBJECT = V-SEARCH>
<SYNTAX SEARCH THROUGH OBJECT = V-SEARCH PRE-TOUCH>
<VERB-SYNONYM SEARCH RUMMAG>
<SYNTAX SHAKE OBJECT (TAKE) = V-SHAKE>
@ -477,8 +490,8 @@
<SYNTAX SLIDE DOWN OBJECT (FIND RLANDBIT) (ON-GROUND IN-ROOM) = V-CLIMB-DOWN>
<SYNTAX SMELL = V-SMELL>
<SYNTAX SMELL OBJECT = V-SMELL>
<SYNTAX SMELL = V-SMELL PRE-SMELL>
<SYNTAX SMELL OBJECT = V-SMELL PRE-SMELL>
<VERB-SYNONYM SMELL SNIFF WHIFF>
<SYNTAX SPRAY OBJECT (TAKE) = V-SPRAY>
@ -505,7 +518,7 @@
<SYNTAX STICK OBJECT UNDER OBJECT = V-PUT-UNDER>
<SYNTAX STICK ON OBJECT (FIND WEARBIT) (HAVE) = V-WEAR>
<SYNTAX STICK OBJECT BEHIND OBJECT = V-PUT-BEHIND>
<SYNTAX STICK OUT OBJECT (FIND ONBIT) = V-OFF PRE-TOUCH>
<SYNTAX STICK OUT OBJECT (FIND ONBIT) (TAKE) = V-OFF PRE-TOUCH>
<VERB-SYNONYM STICK PUT STUFF INSERT PLACE>
<SYNTAX SWING OBJECT (HELD CARRIED HAVE) = V-SWING>
@ -557,7 +570,7 @@
<SYNTAX THROW OBJECT (ON-GROUND IN-ROOM) OBJECT (HELD CARRIED TAKE) = V-STHROW>
<VERB-SYNONYM THROW HURL TOSS>
<SYNTAX TICKLE OBJECT (FIND ACTORBIT) = V-TICKLE>
<SYNTAX TICKLE OBJECT (FIND ACTORBIT) = V-TICKLE PRE-TOUCH>
<SYNTAX TIE OBJECT (HELD) TO OBJECT = V-TIE>
<SYNTAX TIE OBJECT (HELD) AROUND OBJECT = V-TIE>
@ -568,7 +581,8 @@
<SYNTAX TOUCH OBJECT = V-TOUCH PRE-TOUCH>
<SYNTAX TOUCH OBJECT WITH OBJECT = V-TOUCH PRE-TOUCH>
<SYNTAX TOUCH OBJECT ON OBJECT = V-TOUCH PRE-TOUCH>
<VERB-SYNONYM TOUCH FONDLE FEEL PAT PET POKE SCRATCH STROKE>
<SYNTAX TOUCH IN OBJECT (ON-GROUND IN-ROOM) = V-REACH-IN>
<VERB-SYNONYM TOUCH FEEL PAT PET POKE SCRATCH STROKE>
<SYNTAX TURN OBJECT = V-SET PRE-TOUCH>
<SYNTAX TURN AROUND OBJECT (FIND RLANDBIT) = V-SET PRE-TOUCH>
@ -576,8 +590,8 @@
<SYNTAX TURN OBJECT AT OBJECT = V-SET PRE-TOUCH>
<SYNTAX TURN OBJECT OBJECT = V-SET PRE-TOUCH>
<SYNTAX TURN ON OBJECT (FIND LIGHTBIT) = V-ON PRE-TOUCH>
<SYNTAX TURN OFF OBJECT (FIND ACTIVEBIT) = V-OFF PRE-TOUCH>
<VERB-SYNONYM TURN SET SPIN DIAL SWITCH ROTATE FLIP FLICK>
<SYNTAX TURN OFF OBJECT (FIND ACTIVEBIT) (TAKE) = V-OFF PRE-TOUCH>
<VERB-SYNONYM TURN SET TUNE SPIN DIAL SWITCH ROTATE FLIP FLICK>
<SYNTAX TYPE = V-TYPE>
<SYNTAX TYPE OBJECT = V-TYPE>
@ -602,6 +616,7 @@
<SYNTAX WAIT = V-WAIT>
<SYNTAX WAIT FOR OBJECT = V-WAIT-FOR>
<SYNTAX WAIT UNTIL OBJECT = V-WAIT-UNTIL>
<VERB-SYNONYM WAIT Z>
<SYNTAX WAKE OBJECT (FIND RLANDBIT) = V-ALARM>

2546
verbs.zap
View File

File diff suppressed because it is too large Load Diff

452
verbs.zil
View File

@ -4,20 +4,29 @@
;"subtitle game commands"
<GLOBAL VERBOSITY 1> ;"0 = super-brief, 1 = brief, 2 = verbose"
<GLOBAL VERBOSITY 1> ;"0 = superbrief, 1 = brief, 2 = verbose"
<ROUTINE V-VERBOSE ()
<SETG VERBOSITY 2>
<TELL "Maximum verbosity." CR CR>
<V-LOOK>>
<COND (<EQUAL? ,VERBOSITY 2>
<TELL ,ALREADY-IN-MODE>)
(T
<SETG VERBOSITY 2>
<TELL "Maximum verbosity." CR CR>
<V-LOOK>)>>
<ROUTINE V-BRIEF ()
<SETG VERBOSITY 1>
<TELL "Brief descriptions." CR>>
<COND (<EQUAL? ,VERBOSITY 1>
<TELL ,ALREADY-IN-MODE>)
(T
<SETG VERBOSITY 1>
<TELL "Brief descriptions." CR>)>>
<ROUTINE V-SUPER-BRIEF ()
<SETG VERBOSITY 0>
<TELL "Superbrief descriptions." CR>>
<COND (<EQUAL? ,VERBOSITY 0>
<TELL ,ALREADY-IN-MODE>)
(T
<SETG VERBOSITY 0>
<TELL "Superbrief descriptions." CR>)>>
<ROUTINE V-SAVE ()
<SETG P-CONT <>> ;"flush anything on input line after SAVE"
@ -28,7 +37,8 @@
<NOT <EQUAL? ,HERE ,FACTORY>>>
<TELL
"Floyd's eyes light up. \"Oh boy! Are we gonna try something
dangerous now?\"" CR CR>)>
dangerous now?\"" CR CR>
;<CONTINUE>)>
<COND (<SAVE>
<TELL ,OK>)
(T
@ -41,12 +51,19 @@ dangerous now?\"" CR CR>)>
<NOT <EQUAL? ,HERE ,FACTORY>>>
<TELL
"Floyd looks disappointed but understanding. \"That part of the story
was more fun,\" he sighs." CR CR>)>
was more fun,\" he sighs." CR CR>
;<CONTINUE>)>
<COND (<RESTORE>
<TELL ,OK>)
(T
<TELL ,FAILED>)>>
<ROUTINE CONTINUE ()
<TELL "[Hit your RETURN/ENTER key.]" CR>
<PUTB ,P-LEXV 0 10>
<READ ,P-INBUF ,P-LEXV>
<PUTB ,P-LEXV 0 60>>
<ROUTINE TELL-SCORE ()
<TELL
"Your score is " N ,SCORE " (out of 80 points). It is Day " N ,DAY " of your
@ -55,19 +72,19 @@ adventure. ">
<TELL " Your score gives you the rank of ">
<COND (<EQUAL? ,SCORE 0>
<TELL "Insignificant Nobody">)
(<L? ,SCORE 13>
(<L? ,SCORE 17> ;"1 thru 16"
<TELL "Rising Young Insignificant Nobody">)
(<L? ,SCORE 25>
(<L? ,SCORE 27> ;"17 thru 26"
<TELL "One-Day Flash on the Evening News">)
(<L? ,SCORE 36>
(<L? ,SCORE 40> ;"27 thru 39"
<TELL "Footnote in History">)
(<L? ,SCORE 46>
(<L? ,SCORE 50> ;"40 thru 49"
<TELL "International VIP">)
(<L? ,SCORE 55>
(<L? ,SCORE 65> ;"50 thru 64"
<TELL "Interplanetary Star">)
(<L? ,SCORE 63>
(<L? ,SCORE 80> ;"65 thru 79"
<TELL "Interstellar Superstar">)
(T
(T ;"80"
<TELL "Intergalactic Mega-Hero">)>
<TELL ,PERIOD-CR>>
@ -99,7 +116,7 @@ to save for important scenes. Not like this one.\"" CR>)>
<ROUTINE CORP-NOTICE (STRING)
<TELL
"Here " .STRING " a transcript of interaction with STATIONALL." CR>>
"Here " .STRING " a transcript of interaction with STATIONFALL." CR>>
<ROUTINE V-DIAGNOSE ()
<SETG C-ELAPSED 18>
@ -136,10 +153,10 @@ to save for important scenes. Not like this one.\"" CR>)>
(T
<COND (<EQUAL? ,HUNGER-LEVEL 1>
<TELL "fairly">)
(<G? ,HUNGER-LEVEL 4>
<TELL "awesomely">)
(<EQUAL? ,HUNGER-LEVEL 2>
<TELL "very">)
(T
<TELL "very">)>
<TELL "awesomely">)>
<TELL " hungry and thirsty">)>
<TELL ". In all other respects, you are in good health." CR>)>>
@ -233,7 +250,7 @@ interests of interstellar peace, type RESTART, RESTORE, or QUIT: >">
<ROUTINE V-SCORE ()
<TELL "You're currently getting ">
<COND (<EQUAL? ,VERBOSITY 0>
<TELL "super-brief">)
<TELL "superbrief">)
(<EQUAL? ,VERBOSITY 1>
<TELL "brief">)
(T
@ -317,6 +334,7 @@ this disk, they'll have Floyd to answer to.\"" CR>)>>
<FSET ,IRIS-HATCH ,OPENBIT>
<SETG ROBOT-PICKED ,FLOYD>
<SETG SPACETRUCK-COUNTER 5>
<FCLEAR ,SPACETRUCK ,WEIGHTLESSBIT>
<REMOVE ,CLASS-THREE-SPACECRAFT-ACTIVATION-FORM>
<REMOVE ,ROBOT-USE-AUTHORIZATION-FORM>
<MOVE ,FLOYD ,SPACETRUCK>
@ -519,11 +537,15 @@ object, LOOK INSIDE it, LOOK UNDER it, etc." CR>)>>
<CANT-VERB-A-PRSO "close">)>>
<ROUTINE V-COMFORT ()
<COND (<FSET? ,PRSO ,ACTORBIT>
<COND (<OR <FSET? ,PRSO ,ACTORBIT>
<PRSO? ,BALLOON>>
<TELL "But" T ,PRSO " isn't in need of comforting!" CR>)
(T
<TELL ,HUH>)>>
<ROUTINE V-COMPARE ()
<TELL "They're incomparable." CR>>
<ROUTINE V-CONNECT ()
<IMPOSSIBLES>>
@ -539,6 +561,9 @@ object, LOOK INSIDE it, LOOK UNDER it, etc." CR>)>>
<ROUTINE V-CROSS ()
<V-WALK-AROUND>>
<ROUTINE V-CRUMPLE ()
<CANT-VERB-A-PRSO "crumple">>
<ROUTINE V-CUT ()
<COND (<NOT ,PRSI>
<IMPOSSIBLES>)
@ -576,7 +601,7 @@ object, LOOK INSIDE it, LOOK UNDER it, etc." CR>)>>
(T
<MOVE ,PROTAGONIST ,HERE>
<TELL "You get o">
<COND (<OFF-VEHICLE? ,PRSO>
<COND (<PRSO? ,BED>
<TELL "ff">)
(T
<TELL "ut of">)>
@ -595,7 +620,8 @@ object, LOOK INSIDE it, LOOK UNDER it, etc." CR>)>>
<ROUTINE PRE-DRILL ()
<COND (<NOT ,PRSI>
<COND (<ULTIMATELY-IN? ,DRILL>
<COND (<AND <ULTIMATELY-IN? ,DRILL>
<VISIBLE? ,DRILL>>
<SETG PRSI ,DRILL>)
(T
<TELL
@ -604,7 +630,13 @@ object, LOOK INSIDE it, LOOK UNDER it, etc." CR>)>>
<COND (<NOT <PRSI? ,DRILL>>
<TELL ,YOU-CANT "drill with" AR ,PRSI>)
(<NOT <FIRST? ,DRILL>>
<TELL "There's no bit in the drill!" CR>)>>
<TELL "There's no bit in the drill!" CR>)
(<UNTOUCHABLE? ,PRSO>
<CANT-REACH ,PRSO>)
(<NOT ,DRILL-FOOTNOTE>
<SETG DRILL-FOOTNOTE T>
<TELL "(Footnote 5) ">
<RFALSE>)>>
<ROUTINE V-DRILL ()
<COND (<FSET? ,PRSO ,TAKEBIT>
@ -632,7 +664,7 @@ object, LOOK INSIDE it, LOOK UNDER it, etc." CR>)>>
<TELL "[removing" T ,PRSO " from the drill first]" CR>)>
<COND (<EQUAL? ,HERE ,TOP-OF-AIR-SHAFT ,AIR-SHAFT>
<MOVE ,PRSO ,BOTTOM-OF-AIR-SHAFT>
<TELL "It drops down the shaft." CR>)
<TELL "It plunges down the shaft." CR>)
(T
<COND (<IN? ,PROTAGONIST ,HOLDING-TANK>
<MOVE ,PRSO ,HOLDING-TANK>)
@ -659,8 +691,14 @@ object, LOOK INSIDE it, LOOK UNDER it, etc." CR>)>>
<SETG C-ELAPSED 15>
<SETG HUNGER-LEVEL 0>
<QUEUE I-HUNGER-WARNINGS 2250>
<TELL
"Mmmm...that tasted just like yummy" .FOOD ,PERIOD-CR>)>)
<TELL "Mmmm...that tasted just like yummy" .FOOD>
<COND (<PRSO? ,NECTAR>
<ANTI-LITTER ,NECTAR>)
(<PRSO? ,SOUP>
<TELL ". The soup was ">
<DESCRIBE-SOUP-TEMPERATURE>)
(T
<TELL ,PERIOD-CR>)>)>)
(T
<TELL
"It's doubtful that" T ,PRSO " would agree with you." CR>)>>
@ -873,7 +911,7 @@ object, LOOK INSIDE it, LOOK UNDER it, etc." CR>)>>
<TELL "Looks as if" T .L " has it." CR>)
(<AND <FSET? .L ,CONTBIT>
<VISIBLE? ,PRSO>
<NOT <IN? .L ,GLOBAL-OBJECTS>>>
<NOT <EQUAL? .L ,GLOBAL-OBJECTS>>>
<COND (<FSET? .L ,SURFACEBIT>
<TELL "O">)
(<AND <FSET? .L ,VEHBIT>
@ -884,10 +922,15 @@ object, LOOK INSIDE it, LOOK UNDER it, etc." CR>)>>
<TELL "n" TR .L>)
(<OR <NOT .WHERE>
<IN? ,PRSO ,GLOBAL-OBJECTS>>
<TELL "You'll have to do that yourself." CR>)
<TELL ,YOULL-HAVE-TO "do that yourself." CR>)
(T
<TELL "Beats me." CR>)>>
<ROUTINE V-FIX ()
<TELL
"[You shouldn't expect such general commands to work. To repair something,
you must perform the specific steps required.]" CR>>
<ROUTINE V-FLATTEN ()
<TELL ,HUH>>
@ -905,6 +948,79 @@ object, LOOK INSIDE it, LOOK UNDER it, etc." CR>)>>
<SETG FOLLOW-FLAG <>>
<RFALSE>>
<GLOBAL READ-A-FOOTNOTE <>>
<ROUTINE V-FOOTNOTE ()
<SETG C-ELAPSED 0>
<COND (<OR <NOT ,PRSO>
<NOT <PRSO? ,INTNUM>>>
<TELL "Specify a number, as in \"FOOTNOTE 6.\"" CR>
<RTRUE>)
(<EQUAL? ,P-NUMBER 1>
<TELL
"These dice are obviously special zero-gee dice which project their
own gravitational field onto the nearest surface. Zero-gee dice are, of
course, notoriously easy to load">)
(<EQUAL? ,P-NUMBER 2>
<TELL
,UNFAMILIAR "Blather was your officious, tyrannical superior aboard the S.P.S.
Feinstein. He was demoted because of his craven behavior during the destruction
of the Feinstein">)
(<EQUAL? ,P-NUMBER 3>
<TELL
"The story of your acquaintance with Floyd and the episode on Resida are
recounted in PLANETFALL">)
(<EQUAL? ,P-NUMBER 4>
<TELL
"This is, of course, impossible. To do this, the creature would have to be
an order of magnitude larger. There are two possible explanations: 1. The
creature actually extends part of its volume into a parallel dimension.
2. A callous disregard for scientific accuracy on the part of the author">)
(<EQUAL? ,P-NUMBER 5 9 13>
<TELL "Kids: ">
<COND (<EQUAL? ,P-NUMBER 5>
<TELL "drills">)
(<EQUAL? ,P-NUMBER 9>
<TELL "zapguns">)
(T
<TELL "FREZONE (tm) explosives">)>
<TELL
" are very dangerous. Don't try this at home without adult supervision">)
(<EQUAL? ,P-NUMBER 6>
<TELL "That was just an example">)
(<EQUAL? ,P-NUMBER 7>
<TELL
,UNFAMILIAR "your frenzied boss, Ensign Blather, would toss you into
the Feinstein's brig for almost any violation of the Stellar Patrol's
near-infinity of trivial regulations">)
(<EQUAL? ,P-NUMBER 8>
<TELL
"The author wishes to refute any claims that the use of footnotes is a ripoff
from the interactive fiction version of THE HITCHHIKER'S GUIDE TO THE GALAXY.
This is not true. Well, maybe it's a little bit true, in which case the author
wishes to point out his right to rip off his own ideas. So there">)
;"9 handled above"
(<EQUAL? ,P-NUMBER 10> ;"not referenced"
<SETG AWAITING-REPLY 1>
<QUEUE I-REPLY 1> ;"FOOTNOTE turns don't run clocker"
<TELL "Isn't it fun reading through all the footnotes?" CR>
<RTRUE>)
(<EQUAL? ,P-NUMBER 11 12>
<TELL
"How to keep a STATIONFALL player busy all day (Footnote 1">
<COND (<EQUAL? ,P-NUMBER 11>
<TELL "2)">)
(T
<TELL "1)">)>)
;"13 handled above"
(T
<TELL "There is no Footnote " N ,P-NUMBER ,PERIOD-CR>
<RTRUE>)>
<COND (<NOT ,READ-A-FOOTNOTE>
<SETG READ-A-FOOTNOTE T>
<TELL ". (Footnote 8)">)>
<TELL ,PERIOD-CR>>
<ROUTINE PRE-GIVE ()
<COND (<AND <VERB? GIVE>
<PRSO? ,HANDS>>
@ -949,6 +1065,7 @@ object, LOOK INSIDE it, LOOK UNDER it, etc." CR>)>>
<ROUTINE V-HELLO ()
<COND (,PRSO
<SETG P-WON <>>
<TELL
"[The proper way to talk to characters in the story is PERSON, HELLO.]" CR>)
(T
@ -958,10 +1075,10 @@ object, LOOK INSIDE it, LOOK UNDER it, etc." CR>)>>
<ROUTINE V-HELP ()
<TELL
"[Help!?! You need help?!? Do you know how hard it is being a computer? My
chips feel are about to go, my wife just ran off with a mainframe from
Milwaukee, and one of the kids just told me that when he grows up he wants to
be a talking greeting card! Furtherm... Hey! I'm not done! Mumk mpgrlph...]
If you're really stuck, you can order a complete map and InvisiClues hint
chips are about to go, my wife just ran off with a mainframe from Milwaukee,
and one of the kids just told me that when he grows up he wants to be a
talking greeting card! Furtherm... Hey! I'm not done! Mumk mpgrlph...]|
If you're really stuck, you can order a complete map and InvisiClues hint
booklet from your dealer or by using the order form from your package." CR>>
<ROUTINE V-HIDE ()
@ -984,7 +1101,8 @@ booklet from your dealer or by using the order form from your package." CR>>
<PERFORM ,V?SHOOT ,PRSO ,PRSI>
<RTRUE>)
(<AND <NOT ,PRSI>
<ULTIMATELY-IN? ,ZAPGUN>>
<ULTIMATELY-IN? ,ZAPGUN>
<EQUAL? ,P-PRSA-WORD ,W?KILL>>
<TELL "(with" T ,ZAPGUN ")" CR>
<PERFORM ,V?SHOOT ,PRSO ,ZAPGUN>
<RTRUE>)
@ -1013,9 +1131,17 @@ booklet from your dealer or by using the order form from your package." CR>>
<FSET? ,STAR ,TRYTAKEBIT>>
<TELL
"Your best jump still leaves you half a meter short of the star." CR>)
(<EQUAL? ,HERE ,AIR-SHAFT ,TOP-OF-AIR-SHAFT>
<COND (<EQUAL? ,AIR-SHAFT-LOC 7>
,BOTTOM-OF-AIR-SHAFT)
(T
<JIGS-UP "You plummet down the shaft...">)>)
(<EQUAL? ,HERE ,BOTTOM-OF-AIR-SHAFT>
<PERFORM ,V?OPEN ,GRATING>
<RTRUE>)
(<EQUAL? ,HERE ,VACUUM-STORAGE>
<TELL "You sail away from the village...">
<LOST-IN-SPACE>)
(T
<WEE>)>>
@ -1148,8 +1274,11 @@ booklet from your dealer or by using the order form from your package." CR>>
<ROUTINE V-LOOK-UP ()
<COND (<PRSO? ,ROOMS>
<PERFORM ,V?EXAMINE ,CEILING>
<RTRUE>)
<COND (<EQUAL? ,HERE ,BOTTOM-OF-ELEVATOR-SHAFT>
<TELL ,ONLY-BLACKNESS>)
(T
<PERFORM ,V?EXAMINE ,CEILING>
<RTRUE>)>)
(T
<PERFORM ,V?LOOK-INSIDE ,PRSO>
<RTRUE>)>>
@ -1161,8 +1290,7 @@ booklet from your dealer or by using the order form from your package." CR>>
<YOU-SOUND "indecis">>
<ROUTINE V-MEASURE ()
<COND (<OR <FSET? ,PRSO ,PARTBIT>
<PRSO? ,ME>>
<COND (<PRSO? ,ME ,HANDS ,TONGUE>
<TELL "Usual size." CR>)
(T
<TELL "The same size as any other " D ,PRSO ,PERIOD-CR>)>>
@ -1183,7 +1311,9 @@ booklet from your dealer or by using the order form from your package." CR>>
<COND (<AND ,PRSI
<PRSI? ,ZAPGUN>>
<PERFORM ,V?SHOOT ,PRSO ,PRSI>
<RTRUE>)>>
<RTRUE>)
(<UNTOUCHABLE? ,PRSO>
<CANT-REACH ,PRSO>)>>
<ROUTINE V-MUNG ()
<COND (<PRSO? ,ROOMS> ;"break out"
@ -1289,10 +1419,7 @@ of the Galactic Adventure Game Compendium of Rules." CR>>
<TELL "If you pray enough, your prayers may be answered." CR>>
<ROUTINE V-PUSH ()
<COND (<AND <EQUAL? <GET ,P-NAMW 0> ,W?ONE ,W?TWO ,W?THREE>
<GLOBAL-IN? ,KEYPAD ,HERE>>
<TELL ,TYPE-NUMERALS>)
(<AND <EQUAL? ,P-PRSA-WORD ,W?PRESS ,W?IRON>
<COND (<AND <EQUAL? ,P-PRSA-WORD ,W?PRESS ,W?IRON>
<EQUAL? ,HERE ,LAUNDRY>
<OR <NOT ,PRSI>
<PRSI? ,PRESSER>>>
@ -1316,16 +1443,18 @@ of the Galactic Adventure Game Compendium of Rules." CR>>
<RTRUE>)
(<PRSO? ,HANDS>
<COND (<AND <VERB? PUT-ON PUT>
<FSET? ,PRSI ,PARTBIT>>
<PRSI? ,HANDS ,TONGUE>>
<RFALSE>)
(<VERB? PUT>
<PERFORM ,V?REACH-IN ,PRSI>
<RTRUE>)
(T
<IMPOSSIBLES>)>)
(<AND <NOT <FSET? ,PRSI ,PARTBIT>>
(<AND <NOT <PRSI? ,HANDS ,TONGUE>>
<PRE-LOOK>>
<RTRUE>)
(<IN? ,PRSO ,PRSI>
<TELL "But" T ,PRSO " is already in" TR ,PRSI>)
(<ULTIMATELY-IN? ,PRSI ,PRSO>
<TELL ,YOU-CANT "put" T ,PRSO>
<COND (<EQUAL? <GET ,P-ITBL ,P-PREP2> ,PR?ON>
@ -1354,13 +1483,11 @@ of the Galactic Adventure Game Compendium of Rules." CR>>
<NOT <FSET? ,PRSO ,TAKEBIT>>>>
<TELL "How can you do that?" CR>)
(<FSET? ,PRSI ,DOORBIT>
<TELL ,CANT-FROM-HERE>)
<TELL "You can't do that from here." CR>)
(<AND <NOT <FSET? ,PRSI ,OPENBIT>>
<NOT <FSET? ,PRSI ,SURFACEBIT>>>
<THIS-IS-IT ,PRSI>
<DO-FIRST "open" ,PRSI>)
(<IN? ,PRSO ,PRSI>
<TELL "But" T ,PRSO " is already in" TR ,PRSI>)
(<FSET? ,PRSI ,ACTORBIT>
<TELL ,HUH>)
(<AND <G? <- <+ <WEIGHT ,PRSI> <WEIGHT ,PRSO>>
@ -1537,9 +1664,15 @@ of the Galactic Adventure Game Compendium of Rules." CR>>
<SETG ZAPGUN-SHOTS <- ,ZAPGUN-SHOTS 1>>
<RFALSE>)>>
<ROUTINE V-SHOOT () ;"PRSI must be ZAPGUN because of PRE-SHOOT"
<ROUTINE V-SHOOT ("AUX" L) ;"PRSI must be ZAPGUN because of PRE-SHOOT"
<COND (<NOT ,ZAPGUN-FOOTNOTE>
<SETG ZAPGUN-FOOTNOTE T>
<TELL "(Footnote 9) ">)>
<TELL "A blaze of intense rays ">
<COND (<FSET? ,PRSO ,TAKEBIT>
<COND (<OR <FSET? ,PRSO ,TAKEBIT>
<PRSO? ,ID-CHANGER ,LOCKER ,ROULETTE-WHEEL ,LOG-READER
,HEATING-CHAMBER ,DRYER ,PRESSER ,CAGE ,SKELETON
,ORANGE-GOO ,GRAY-GOO ,SOUP>>
<TELL
"envelop" T ,PRSO ". When the rays dissipate," T ,PRSO " ">
<COND (<FSET? ,PRSO ,PLURALBIT>
@ -1556,11 +1689,25 @@ of the Galactic Adventure Game Compendium of Rules." CR>>
<TELL "ing" T ,PRSO>
<JIGS-UP ".">)
(T
<SET L <LOC ,PRSO>>
<COND (<EQUAL? .L ,FLOYD>
<TELL
" Floyd, who was holding" T ,PRSO " at the time, gives a shriek of fear,
and all the oil drains from his face.">)
(<NOT <EQUAL? .L ,HERE ,PEDESTAL ,DRILLED-HOLE>>
<TELL
" Naturally," T .L " is also history, since" T ,PRSO " was sitting ">
<COND (<FSET? .L ,SURFACEBIT>
<TELL "o">)
(T
<TELL "i">)>
<TELL "n it.">
<REMOVE-CAREFULLY .L>)>
<REMOVE-CAREFULLY ,PRSO>
<CRLF>)>)
(T
<TELL
"wash over" T ,PRSO ". It glows for a bit, but then cools." CR>)>>
"washes over" T ,PRSO ". It glows for a bit, but then cools." CR>)>>
<ROUTINE V-SSHOOT ()
<PERFORM ,V?SHOOT ,PRSI ,PRSO>
@ -1574,6 +1721,8 @@ of the Galactic Adventure Game Compendium of Rules." CR>>
<COND (<NOT <PRSO? ,ROOMS>>
<PERFORM ,V?ENTER ,PRSO>
<RTRUE>)
(<EQUAL? ,HERE ,THEATRE>
<TELL "But there's nothing to watch at the moment!" CR>)
(<SET VEHICLE <FIND-IN ,HERE ,VEHBIT>>
<PERFORM ,V?ENTER .VEHICLE>
<RTRUE>)
@ -1593,15 +1742,18 @@ of the Galactic Adventure Game Compendium of Rules." CR>>
<TELL
"Members of civilized societies usually sleep in beds." CR>)>>
<ROUTINE V-SMELL ()
<COND (<NOT ,PRSO>
<COND (<FSET? ,SPACESUIT ,WORNBIT>
<TELL
<ROUTINE PRE-SMELL ()
<COND (<FSET? ,SPACESUIT ,WORNBIT>
<TELL
"You smell stale air and rusty metal and unbathed " ,LFC " -- all the
usual odors of the inside a space suit." CR>)
(,BALLOON-ODOR
usual odors of the inside a space suit." CR>)>>
<ROUTINE V-SMELL ()
<COND (<OR <NOT ,PRSO>
<PRSO? ,AIR>>
<COND (,BALLOON-ODOR
<TELL
"The nauseating odor of burnt digestive gas is thankfully fading." CR>)
"The awful odor of the " ,BALLOON "'s digestive gas is thankfully fading." CR>)
(<AND <EQUAL? ,HERE ,GREASY-STRAW>
<IN? ,NECTAR ,LOCAL-GLOBALS>>
<TELL "There's something yum-smelling around here!" CR>)
@ -1611,6 +1763,9 @@ usual odors of the inside a space suit." CR>)
<TELL
"There's an odor reminiscent of the video room at home on a night when your
mom served Northern Gallium Bonzo Beans." CR>)
(<AND <EQUAL? ,HERE ,COMMANDERS-QUARTERS>
<FSET? ,SAFE ,OPENBIT>>
<TELL "The odor of an explosion hangs in the air." CR>)
(T
<TELL "You smell nothing unusual just now." CR>)>)
(T
@ -1689,7 +1844,7 @@ mom served Northern Gallium Bonzo Beans." CR>)
<STUNNED "move that much">)
(<UNTOUCHABLE? ,PRSO>
<CANT-REACH ,PRSO>)
(<AND <NOT <FSET? ,PRSO ,PARTBIT>>
(<AND <NOT <PRSI? ,HANDS ,TONGUE>>
<PRE-LOOK>>
<RTRUE>)
(<LOC-CLOSED>
@ -1728,6 +1883,9 @@ mom served Northern Gallium Bonzo Beans." CR>)
<DO-WALK ,P?OUT>)
(T
<RFALSE>)>)
(<AND <PRSI? ,GARBAGE ,SCULPTURE>
<IN? ,PRSO ,HERE>>
<RFALSE>)
(<NOT <IN? ,PRSO ,PRSI>>
<NOT-IN>)
(T
@ -1798,9 +1956,12 @@ be fascinated to hear that." CR>
<COND (<PRSO? ,ME>
<PERFORM ,V?WHAT ,PRSI>
<RTRUE>)
(T
(<VISIBLE? ,PRSI>
<PERFORM ,V?SHOW ,PRSI ,PRSO>
<RTRUE>)>>
<RTRUE>)
(T
<SETG PRSI ,PRSO>
<V-SHOW>)>>
<ROUTINE V-THANK ("AUX" OWINNER)
<COND (<NOT ,PRSO>
@ -1819,6 +1980,8 @@ be fascinated to hear that." CR>
<TELL "You lose sight of" T ,PRSO " as it sails away.">
<REMOVE-CAREFULLY ,PRSO>
<CRLF>)
(<EQUAL? ,HERE ,TOP-OF-AIR-SHAFT ,AIR-SHAFT>
<V-DROP>)
(,PRSI
<MOVE ,PRSO ,HERE>
<TELL "You missed." CR>)
@ -1849,9 +2012,9 @@ be fascinated to hear that." CR>
(T
<TELL "is impossible to determine, since you">
<COND (<NOT <FSET? ,CHRONOMETER ,WORNBIT>>
<TELL "'ve removed your chronometer">)
<TELL "'ve removed your " 'CHRONOMETER>)
(T
<TELL "r chronometer has stopped">)>)>
<TELL "r " 'CHRONOMETER " has stopped">)>)>
<COND (.NO-CR
<TELL ".">)
(T
@ -1901,8 +2064,6 @@ be fascinated to hear that." CR>
<EQUAL? <NUMBER? ,P-CONT> ,W?NUMBER>>
<PERFORM ,V?TYPE ,INTNUM>
<STOP>)
(<EQUAL? <GET ,P-NAMW 0> ,W?ONE ,W?TWO ,W?THREE>
<TELL ,TYPE-NUMERALS>)
(T
<TELL "You can only type numbers on this keypad." CR>
<STOP>)>>
@ -1949,14 +2110,24 @@ quivering, as though he were about to cry." CR>)>>
<OR <IN? ,PROTAGONIST ,COPILOT-SEAT>
<IN? ,FLOYD ,COPILOT-SEAT>>>
<SETG COURSE-PICKED ,P-NUMBER>
<SET X </ ,INTERNAL-MOVES 10>>
;"next two steps round X to the lower 5"
<SET X </ .X 5>>
<SET X <* .X 5>>
<SET X <- .X 660>>
<COND (,DEBUG
<TELL "[P-NUMBER = " N ,P-NUMBER ".]" CR>
<TELL "[INTERNAL-MOVES = " N ,INTERNAL-MOVES ".]" CR>)>
<SET X </ ,INTERNAL-MOVES 50>>
<COND (,DEBUG
<TELL "[X = " N .X ".]" CR>)>
<SET X <- .X 132>>
<COND (,DEBUG
<TELL "[X = " N .X ".]" CR>)>
<SET X <* .X .X>>
<SET X </ .X 100>>
<COND (,DEBUG
<TELL "[X = " N .X ".]" CR>)>
<SET X </ .X 4>>
<COND (,DEBUG
<TELL "[X = " N .X ".]" CR>)>
<SETG RIGHT-COURSE <+ .X 103>>
<COND (,DEBUG
<TELL "[RIGHT-COURSE = " N ,RIGHT-COURSE ".]" CR>)>
<QUEUE I-SPACETRUCK 33>
<RECORDING
"Course set. Launch in approximately 30 millichrons">)
@ -1966,24 +2137,27 @@ quivering, as though he were about to cry." CR>)>>
the pilot and copilot seats are occupied">)>>
<ROUTINE ELEVATOR-TYPE ("AUX" DISTANCE)
<COND (<EQUAL? ,ELEVATOR-LEVEL ,P-NUMBER>
<RECORDING "You are already at that level">)
(<OR <G? ,P-NUMBER 9>
<COND (<OR <G? ,P-NUMBER 9>
<L? ,P-NUMBER 1>>
<RECORDING "Select a level between 1 and 9">)
(<EQUAL? ,P-NUMBER 8 9>
<TELL "The elevator whines momentarily, but doesn't move." CR>)
(<G? ,DAY 2>
<JIGS-UP
"The instant you press the button, the elevator begins plunging down the shaft!
It's worse than just free-fall; the elevator is actually in a power dive!!!
You punch frantically at the keypad...">)
(<EQUAL? ,ELEVATOR-LEVEL ,P-NUMBER>
<RECORDING "You are already at that level">)
(<EQUAL? ,P-NUMBER 8 9>
<TELL "The elevator whines momentarily, but doesn't move." CR>)
(T
<TELL "The elevator ">
<COND (<EQUAL? ,DAY 1>
<TELL "glides weightlessly ">)
(T
<TELL "starts with a jerk, moving ">)>
<TELL "starts with a jerk, ">
<COND (<G? ,P-NUMBER ,ELEVATOR-LEVEL>
<TELL "bumping you against the ceiling, ">)>
<TELL "then moves ">)>
<COND (<G? ,P-NUMBER ,ELEVATOR-LEVEL>
<TELL "down">
<SET DISTANCE <- ,P-NUMBER ,ELEVATOR-LEVEL>>)
@ -1991,8 +2165,6 @@ You punch frantically at the keypad...">)
<TELL "up">
<SET DISTANCE <- ,ELEVATOR-LEVEL ,P-NUMBER>>)>
;"set C-ELAPSED to 5 times the # of floors you're moving"
<SETG C-ELAPSED <* 5 .DISTANCE>>
<SETG ELEVATOR-LEVEL ,P-NUMBER>
<TELL " the shaft, stopping ">
<COND (<EQUAL? ,DAY 2>
<TELL "suddenly ">)>
@ -2001,6 +2173,12 @@ You punch frantically at the keypad...">)
<TELL "and not quite at level with your new floor">)
(T
<TELL "at another opening to the west">)>
<COND (<AND <EQUAL? ,DAY 2>
<G? ,ELEVATOR-LEVEL ,P-NUMBER>>
<TELL
". The sudden stop bumps you against the ceiling of the weightless elevator">)>
<SETG C-ELAPSED <* 5 .DISTANCE>>
<SETG ELEVATOR-LEVEL ,P-NUMBER>
<COND (<IN? ,BALLOON ,ELEVATOR>
<TELL
". The " D ,BALLOON " looks somewhat disoriented by the experience">)>
@ -2029,8 +2207,8 @@ the dispenser hole." CR>)
<RECORDING "Error">)
(T
<RECORDING
"Sorry, that items is sold out. Please contact your PX Officer regarding
re-stocking of dispenser">)>>
"Sorry, that item is sold out. Please contact your PX Officer regarding
restocking of dispenser">)>>
<ROUTINE RECORDING (STRING)
<COND (<PROB 33>
@ -2052,8 +2230,13 @@ re-stocking of dispenser">)>>
<ROUTINE V-UNLOCK ()
<COND (<NOT <FSET? ,PRSO ,LOCKEDBIT>>
<TELL "But" T ,PRSO " isn't locked." CR>)
(<NOT ,PRSI>
<COND (<AND <EQUAL? ,HERE ,THEATRE ,BRIG>
<PRSO? ,PSEUDO-OBJECT>>
T)
(T
<TELL "But" T ,PRSO " isn't locked." CR>
<RTRUE>)>)>
<COND (<NOT ,PRSI>
<COND (<ULTIMATELY-IN? ,KEY>
<TELL "[with the key]" CR>
<PERFORM ,V?UNLOCK ,PRSO ,KEY>
@ -2062,7 +2245,9 @@ re-stocking of dispenser">)>>
<SETG AWAITING-REPLY 1>
<QUEUE I-REPLY <+ ,C-ELAPSED 2>>
<TELL "Your nose is key-shaped, I suppose?" CR>)>)
(,PRSI
(<PRSI? ,KEY>
<TELL "This key doesn't unlock" TR ,PRSO>)
(T
<IMPOSSIBLES>)>>
<ROUTINE V-UNTIE ()
@ -2075,7 +2260,7 @@ re-stocking of dispenser">)>>
<ROUTINE PRE-VALIDATE ()
<COND (<AND <NOT ,PRSI>
<NOT <VISIBLE? ,VALIDATION-STAMP>>>
<TELL "You don't have a validation stamp!" CR>)
<TELL "You don't have a " 'VALIDATION-STAMP "!" CR>)
(<AND <NOT ,PRSI>
<NOT <ULTIMATELY-IN? ,VALIDATION-STAMP>>>
<TELL ,YNH TR ,VALIDATION-STAMP>)
@ -2112,11 +2297,11 @@ re-stocking of dispenser">)>>
<PERFORM ,V?ENTER .VEHICLE>
<RTRUE>)
(<FSET? .AV ,VEHBIT>
<TELL "You're not walking anywhere until you get ">
<COND (<OFF-VEHICLE? .AV>
<TELL "off">)
<TELL "You're not walking anywhere until you get o">
<COND (<EQUAL? .AV ,BED>
<TELL "ff">)
(T
<TELL "out of">)>
<TELL "ut of">)>
<TELL TR .AV>
<RFATAL>)
(<AND ,TIMER-CONNECTED
@ -2193,7 +2378,7 @@ re-stocking of dispenser">)>>
<ROUTINE DESCRIBE-AUTO-DOOR ()
<COND (<EQUAL? ,HERE ,BRIG ,ARMORY>
<TELL "The security door ">)
<TELL "The " 'SECURITY-DOOR " ">)
(T
<TELL "The auto-door ">)>
<COND (<EQUAL? ,DAY 1>
@ -2201,7 +2386,7 @@ re-stocking of dispenser">)>>
(<G? ,DAY 2>
<TELL
"opens barely wide enough for you to squeeze through. As you do so,
the door tries to shut, jamming against you!">
the door tries to shut, almost jamming against you!">
<COND (<NOT <FSET? ,AUTO-DOOR ,TOUCHBIT>>
<FSET ,AUTO-DOOR ,TOUCHBIT>
<TELL
@ -2238,8 +2423,13 @@ generally the epitome of reliability.">)>)>
(T
<V-WALK-AROUND>)>>
<ROUTINE V-WAIT ("OPTIONAL" (NUM 3))
<SETG C-ELAPSED 40>
<ROUTINE V-WAIT () ;("OPTIONAL" (NUM 3))
<SETG C-ELAPSED <COND (<VERB? WAIT-FOR>
,P-NUMBER)
(<VERB? WAIT-UNTIL>
<- ,P-NUMBER ,INTERNAL-MOVES>)
(T
40)>>
<TELL "Time passes..." CR>
;<REPEAT ()
<COND (<L? <SET NUM <- .NUM 1>> 0>
@ -2254,6 +2444,9 @@ generally the epitome of reliability.">)>)>
(T
<TELL "You may be waiting quite a while." CR>)>>
<ROUTINE V-WAIT-UNTIL ()
<TELL ,HUH>>
<ROUTINE V-WEAR ()
<COND (<NOT <FSET? ,PRSO ,WEARBIT>>
<CANT-VERB-A-PRSO "wear">)
@ -2332,7 +2525,7 @@ tag. Floyd knows rules for tag really well!\"" CR>)
<G? <+ <WEIGHT ,PRSO> <WEIGHT ,PROTAGONIST>> 100>>
<COND (.VB
<TELL
"You're already carrying as much weight as you can manage." CR>)>
"You're juggling just about as much stuff as you can manage." CR>)>
<RFATAL>)
(<PROB <- <* <CCOUNT ,PROTAGONIST> 20> 150>>
;"holding 8 items, 10%
@ -2343,6 +2536,9 @@ tag. Floyd knows rules for tag really well!\"" CR>)
<REPEAT ()
<COND (<FSET? .OBJ ,WORNBIT>
<SET OBJ <NEXT? .OBJ>>)
(<AND <EQUAL? .OBJ ,OSTRICH-NIP>
<IN? ,OSTRICH ,HERE>>
<SET OBJ <NEXT? .OBJ>>)
(T
<RETURN>)>>
<MOVE ,PRSO ,HERE>
@ -2386,9 +2582,13 @@ tag. Floyd knows rules for tag really well!\"" CR>)
<COND (<AND <VERB? THROW>
<PRSO? ,SWITCH>>
<RFALSE>)
(<OR <PRSO? ,ME>
<FSET? ,PRSO ,PARTBIT>>
(<PRSO? ,ME ,HANDS ,TONGUE>
<IMPOSSIBLES>)
(<AND <VERB? PUT>
<PRSO? ,ID-READER>
<ADJ-USED ,A?ID ,ID-READER>
<EQUAL? <GET ,P-NAMW 0> <>>>
<TELL ,YOU-CANT "see any ID card here!" CR>)
(T
<TELL
"That's easy for you to say since you don't even have" TR ,PRSO>)>
@ -2432,6 +2632,11 @@ tag. Floyd knows rules for tag really well!\"" CR>)
<ROUTINE DESCRIBE-ROOM ("OPTIONAL" (VERB-IS-LOOK <>)
"AUX" (FIRST-VISIT <>) POINTS)
<COND (<AND <SET POINTS <GETP ,HERE ,P?VALUE>>
<G? .POINTS 0>>
<SETG ROBOT-EVILNESS <+ ,ROBOT-EVILNESS 1>>
<SETG SCORE <+ ,SCORE .POINTS>>
<PUTP ,HERE ,P?VALUE 0>)>
<COND (<NOT ,LIT>
<TELL "It is pitch black. You ">
<COND (<EQUAL? ,HERE ,VACUUM-STORAGE>
@ -2443,10 +2648,6 @@ and 2. whether they can tear through a space suit." CR>)
"hope there are no grues aboard the station." CR>)>
<RFALSE> ;"so DESCRIBE-CONTENTS of room isn't called")
(<NOT <FSET? ,HERE ,TOUCHBIT>>
<COND (<SET POINTS <GETP ,HERE ,P?VALUE>>
<COND (<G? .POINTS 0>
<SETG ROBOT-EVILNESS <+ ,ROBOT-EVILNESS 1>>)>
<SETG SCORE <+ ,SCORE .POINTS>>)>
<COND (<NOT <EQUAL? ,HERE ,AIR-SHAFT>>
<FSET ,HERE ,TOUCHBIT>)>
<SET FIRST-VISIT T>)>
@ -2745,13 +2946,14 @@ are responsible for doing the beginning-of-paragraph indentation."
<DESCRIBE-OBJECTS>)>
<COND (<AND <IN? ,OSTRICH .OLD-HERE>
<ULTIMATELY-IN? ,OSTRICH-NIP>
<VISIBLE? ,OSTRICH-NIP>> ;"close cont. to 'shake' ostrich"
<VISIBLE? ,OSTRICH-NIP> ;"close cont. to 'shake' ostrich"
<NOT <EQUAL? ,HERE ,TOP-OF-AIR-SHAFT>>>
<TELL " The ostrich, sniffing excitedly, ">
<COND (<GLOBAL-IN? ,BED ,HERE>
<TELL
"follows you to the door, but hesitates as she notices the bed.
"follows you to the door, but hesitates as it notices the bed.
The ostrich, who refuses to enter any room with a bed due to a bad
experience in her youth, withdraws." CR>
experience in its youth, withdraws." CR>
<RTRUE>)
(<FSET? <LOC ,OSTRICH> ,WEIGHTLESSBIT>
<TELL
@ -2763,25 +2965,28 @@ experience in her youth, withdraws." CR>
<AND <EQUAL? ,HERE ,EAST-CONNECTION>
<IN? ,OSTRICH ,MAKESHIFT-CONNECTOR>>
<IN? ,OSTRICH ,ELEVATOR>>
<TELL
<COND (,LIT
<TELL
" As the ostrich crosses into gravity, it emits a surprised squawk and
does a graceless bellyflop. As it struggles to its feet, it appears that
only its dignity was injured.">)
only its dignity was injured.">)>)
(<OR <AND <EQUAL? ,HERE ,GRIMY-PASSAGE>
<IN? ,OSTRICH ,SOUTH-CONNECTION>>
<AND <EQUAL? ,HERE ,MAKESHIFT-CONNECTOR>
<IN? ,OSTRICH ,EAST-CONNECTION>>
<EQUAL? ,HERE ,ELEVATOR>>
<TELL
<AND <EQUAL? ,HERE ,ELEVATOR>
<FSET? ,ELEVATOR ,WEIGHTLESSBIT>>>
<COND (,LIT
<TELL
" As the ostrich unexpectly enters the weightless environment of the ">
<COND (<EQUAL? ,HERE ,ELEVATOR>
<TELL "elevator">)
(T
<TELL "village">)>
<TELL
", it shoots into the air, sqawking loudly. It spins head over claw
for a moment, thrashing its wings ineffectually, before finally acheiving
a modicum of stability.">)>
<COND (<EQUAL? ,HERE ,ELEVATOR>
<TELL "elevator">)
(T
<TELL "village">)>
<TELL
", it shoots into the air, squawking loudly. It spins head over claw
for a moment, thrashing its wings ineffectually, before finally achieving
a modicum of stability.">)>)>
<MOVE ,OSTRICH ,HERE>
<CRLF>)>
<RTRUE>>
@ -2839,9 +3044,13 @@ a modicum of stability.">)>
<COND (<NOT .OBJ>
<RFALSE>)
(<AND ,HANGING-IN-AIR
<IN? .OBJ ,HERE>
<NOT <EQUAL? .OBJ ,STAR ,ETERNAL-FLAME>>>
<RTRUE>)
<IN? .OBJ ,HERE>>
<COND (<OR <EQUAL? .OBJ ,BALLOON ,ETERNAL-FLAME>
<AND <EQUAL? .OBJ ,STAR>
<FSET? .OBJ ,TRYTAKEBIT>>>
<RFALSE>)
(T
<RTRUE>)>)
(<IN? ,PROTAGONIST ,HERE>
<RFALSE>)
(<OR <ULTIMATELY-IN? .OBJ <LOC ,PROTAGONIST>>
@ -2935,6 +3144,9 @@ a modicum of stability.">)>
<COND (<AND ,LIT
<NOT <LIT? ,HERE>>>
<SETG LIT <>>
<COND (<AND ,P-IT-OBJECT
<NOT <ULTIMATELY-IN? ,P-IT-OBJECT>>>
<SETG P-IT-OBJECT <>>)>
<TELL " It is now too dark to see." CR>)>>
<ROUTINE NOW-LIT? ()

1227
village.zap
View File

File diff suppressed because it is too large Load Diff

876
village.zil
View File

File diff suppressed because it is too large Load Diff