117 lines
5.9 KiB
Plaintext
117 lines
5.9 KiB
Plaintext
|
|
<OBJECT MINERAL-WATER (LOC SATCHEL) (DESC "Santraginean Mineral Water") (LDESC
|
|
"There is a bottle of mineral water here.") (SYNONYM BOTTLE WATER) (ADJECTIVE
|
|
SANTRAGIN MINERAL) (FLAGS NARTICLEBIT DRINKBIT TAKEBIT) (GENERIC MINERAL-WATER)
|
|
(ACTION MINERAL-WATER-F)>
|
|
<DEFINE-ROUTINE MINERAL-WATER-F>
|
|
<ROOM HOLD (LOC ROOMS) (SYNONYM PROTEIN) (DESC "Vogon Hold") (WEST SORRY
|
|
"The door to the corridor is locked (from the outside).") (EAST TO AIRLOCK IF
|
|
VOGON-INNER-DOOR IS OPEN) (FLAGS RLANDBIT ONBIT) (GLOBAL VOGON-INNER-DOOR
|
|
AIRLOCK-OBJECT FLEET HOLD-FURNISHINGS WEAPON) (ACTION HOLD-F)>
|
|
<OBJECT WEAPON (LOC LOCAL-GLOBALS) (SYNONYM WEAPON WEAPONS) (DESC "weapon") (
|
|
ACTION WEAPON-PSEUDO)>
|
|
<DEFINE-ROUTINE HOLD-F>
|
|
<OBJECT HOLD-FURNISHINGS (LOC LOCAL-GLOBALS) (DESC "it") (SYNONYM MATTRESS CUPS
|
|
CUP UNDERWEAR) (ADJECTIVE GRUBBY UNWASHED UNIDENTIF SMELLY ALIEN) (FLAGS
|
|
NDESCBIT NARTICLEBIT) (ACTION UNIMPORTANT-THING-F)>
|
|
<DEFINE-ROUTINE I-GROGGY>
|
|
<GLOBAL GROGGY-COUNTER 0>
|
|
<GLOBAL GOWN-HUNG <>>
|
|
<GLOBAL PANEL-BLOCKER <>>
|
|
<GLOBAL ITEM-ON-SATCHEL <>>
|
|
<GLOBAL FISH-COUNTER 5>
|
|
<OBJECT DISPENSER (LOC HOLD) (DESC "babel fish dispenser") (LDESC
|
|
"Along one wall is a tall dispensing machine.") (SYNONYM DISPENSER MACHINE SLOT
|
|
) (ADJECTIVE DISPENSIN BABEL FISH TALL VENDING) (ACTION DISPENSER-F)>
|
|
<DEFINE-ROUTINE DISPENSER-F>
|
|
<OBJECT DISPENSER-BUTTON (LOC HOLD) (DESC "dispenser button") (SYNONYM BUTTON)
|
|
(ADJECTIVE DISPENSER SINGLE BABEL FISH) (FLAGS NDESCBIT) (ACTION
|
|
DISPENSER-BUTTON-F)>
|
|
<DEFINE-ROUTINE DISPENSER-BUTTON-F>
|
|
<OBJECT FISH-HOLE (LOC HOLD) (DESC "small hole") (SYNONYM HOLE) (ADJECTIVE
|
|
SMALL) (FLAGS NDESCBIT) (ACTION FISH-HOLE-F)>
|
|
<DEFINE-ROUTINE FISH-HOLE-F>
|
|
<OBJECT HOOK (LOC HOLD) (DESC "metal hook") (SYNONYM HOOK) (ADJECTIVE METAL) (
|
|
FLAGS NDESCBIT) (ACTION HOOK-F)>
|
|
<DEFINE-ROUTINE HOOK-F>
|
|
<OBJECT DRAIN (LOC HOLD) (DESC "drain") (SYNONYM DRAIN GRATING GRATE) (FLAGS
|
|
NDESCBIT) (ACTION DRAIN-F)>
|
|
<DEFINE-ROUTINE DRAIN-F>
|
|
<OBJECT ROBOT-PANEL (LOC HOLD) (DESC "tiny robot panel") (SYNONYM PANEL) (
|
|
ADJECTIVE ROBOT TINY) (FLAGS NDESCBIT) (ACTION ROBOT-PANEL-F)>
|
|
<DEFINE-ROUTINE ROBOT-PANEL-F>
|
|
<OBJECT BABEL-FISH (LOC LOCAL-GLOBALS) (DESC "babel fish") (SYNONYM FISH) (
|
|
ADJECTIVE BABEL) (FLAGS TAKEBIT) (ACTION BABEL-FISH-F)>
|
|
<DEFINE-ROUTINE BABEL-FISH-F>
|
|
<OBJECT GLASS-CASE (LOC HOLD) (DESC "glass case") (LDESC
|
|
"In the corner is a glass case with a switch and a keyboard.") (SYNONYM CASE
|
|
LID GLASS) (ADJECTIVE GLASS) (SIZE 40) (FLAGS CONTBIT TRANSBIT SEARCHBIT) (
|
|
ACTION GLASS-CASE-F)>
|
|
<GLOBAL GLASS-CASE-SCORE <>>
|
|
<DEFINE-ROUTINE GLASS-CASE-F>
|
|
<DEFINE-ROUTINE GLASS-CASE-OPENS>
|
|
<OBJECT KEYBOARD (LOC HOLD) (DESC "keyboard") (SYNONYM KEYBOARD) (FLAGS
|
|
NDESCBIT TRYTAKEBIT)>
|
|
<OBJECT CASE-SWITCH (LOC HOLD) (DESC "switch") (SYNONYM SWITCH) (FLAGS NDESCBIT
|
|
SWITCHBIT) (ACTION CASE-SWITCH-F)>
|
|
<DEFINE-ROUTINE CASE-SWITCH-F>
|
|
<DEFINE-ROUTINE PRODUCE-GIBBERISH>
|
|
<DEFINE-ROUTINE I-ANNOUNCEMENT>
|
|
<GLOBAL GIBBERISH <PLTABLE "toy" "r g" "irb" "kwa" "o s" "fim" "p w" "osh"
|
|
"flu" "a r" "vup" "d t" "imb" "tha" "i l" "cav" "s g" "ulp" "cho" "u n" "zit"
|
|
"z z" "eft" "qui" "e h" "kon" "l m" "ork" "gry" "o t" "huv" "x j" "erl" "tru"
|
|
"a b" "fud" "w c" "oll" "wro" "i s">>
|
|
<DEFINE-ROUTINE I-GUARDS>
|
|
<ROOM CAPTAINS-QUARTERS (LOC ROOMS) (DESC "Captain's Quarters") (FLAGS RLANDBIT
|
|
ONBIT) (GLOBAL FLEET WEAPON) (ACTION CAPTAINS-QUARTERS-F)>
|
|
<OBJECT STRAPS (LOC CAPTAINS-QUARTERS) (SYNONYM STRAPS STRAP) (DESC "strap") (
|
|
FLAGS NDESCBIT) (ACTION UNIMPORTANT-THING-F)>
|
|
<DEFINE-ROUTINE CAPTAINS-QUARTERS-F>
|
|
<OBJECT POETRY-APPRECIATION-CHAIR (LOC CAPTAINS-QUARTERS) (DESC
|
|
"poetry appreciation chair") (SYNONYM CHAIR CHAIRS SEAT) (ADJECTIVE POETRY
|
|
APPRECIAT LARGE MENACING) (FLAGS VEHBIT OPENBIT SEARCHBIT SURFACEBIT CONTBIT) (
|
|
ACTION POETRY-APPRECIATION-CHAIR-F)>
|
|
<DEFINE-ROUTINE POETRY-APPRECIATION-CHAIR-F>
|
|
<OBJECT VOGON-CAPTAIN (LOC CAPTAINS-QUARTERS) (DESC "Vogon Captain") (LDESC
|
|
"The Captain is indescribably hideous, indescribably blubbery,
|
|
and indescribably mid-to-dark green. He is holding samples of his
|
|
favourite poetry.") (SYNONYM CAPTAIN VOGONS) (ADJECTIVE VOGON) (FLAGS ACTORBIT)
|
|
(ACTION VOGON-CAPTAIN-F)>
|
|
<DEFINE-ROUTINE VOGON-CAPTAIN-F>
|
|
<GLOBAL CAPTAIN-COUNTER 0>
|
|
<DEFINE-ROUTINE I-CAPTAIN>
|
|
<GLOBAL LINE-A "\"Fripping lyshus wimbgunts, awhilst moongrovenly kormzibs.\"">
|
|
|
|
<GLOBAL LINE-B "\"Gashee morphousite, thou expungiest quoopisk!\"">
|
|
<GLOBAL LINE-C "\"Bleem miserable venchit! Bleem forever mestinglish asunder frapt.\""
|
|
>
|
|
<GLOBAL LINE-NUMBER 0>
|
|
<GLOBAL WORD-NUMBER 0>
|
|
<DEFINE-ROUTINE GUARDS-TO-AIRLOCK>
|
|
<OBJECT POETRY (LOC CAPTAINS-QUARTERS) (DESC "Vogon poetry") (SYNONYM POETRY
|
|
POEM SAMPLE VERSE) (ADJECTIVE VOGON FIRST SECOND) (FLAGS NDESCBIT NARTICLEBIT
|
|
DARKBIT) (ACTION POETRY-F)>
|
|
<GLOBAL POEM-ENJOYED <>>
|
|
<GLOBAL AIRLOCK-COUNTER 0>
|
|
<DEFINE-ROUTINE POETRY-F>
|
|
<OBJECT VOGON-CORRIDOR-DOOR (LOC HOLD) (DESC "corridor door") (SYNONYM DOOR) (
|
|
ADJECTIVE CORRIDOR) (FLAGS DOORBIT NDESCBIT) (ACTION VOGON-CORRIDOR-DOOR-F)>
|
|
<DEFINE-ROUTINE VOGON-CORRIDOR-DOOR-F>
|
|
<OBJECT VOGON-INNER-DOOR (LOC LOCAL-GLOBALS) (DESC "inner door") (SYNONYM DOOR)
|
|
(ADJECTIVE INNER AIRLOCK MASSIVE) (FLAGS VOWELBIT NDESCBIT DOORBIT) (ACTION
|
|
VOGON-AIRLOCK-DOOR-F)>
|
|
<OBJECT VOGON-OUTER-DOOR (LOC LOCAL-GLOBALS) (DESC "outer door") (SYNONYM DOOR)
|
|
(ADJECTIVE OUTER AIRLOCK MASSIVE) (FLAGS VOWELBIT NDESCBIT DOORBIT) (ACTION
|
|
VOGON-AIRLOCK-DOOR-F)>
|
|
<DEFINE-ROUTINE VOGON-AIRLOCK-DOOR-F>
|
|
<OBJECT AIRLOCK-OBJECT (LOC LOCAL-GLOBALS) (DESC "airlock") (SYNONYM AIRLOCK) (
|
|
FLAGS VOWELBIT) (ACTION AIRLOCK-OBJECT-F)>
|
|
<DEFINE-ROUTINE AIRLOCK-OBJECT-F>
|
|
<OBJECT EQUATIONS (LOC LOCAL-GLOBALS) (DESC "it") (SYNONYM EQUATION EQUATIONS
|
|
NUMBER PENCIL) (FLAGS NDESCBIT NARTICLEBIT) (ACTION UNIMPORTANT-THING-F)>
|
|
<ROOM AIRLOCK (LOC ROOMS) (SYNONYM BETELGEUS) (DESC "Airlock") (LDESC
|
|
"This airlock has massive doors to port and starboard.") (WEST TO HOLD IF
|
|
VOGON-INNER-DOOR IS OPEN) (EAST TO HOLD IF VOGON-OUTER-DOOR IS OPEN) (FLAGS
|
|
RLANDBIT ONBIT) (GLOBAL VOGON-INNER-DOOR VOGON-OUTER-DOOR AIRLOCK-OBJECT FLEET
|
|
EQUATIONS) (ACTION AIRLOCK-F)>
|
|
<DEFINE-ROUTINE AIRLOCK-F> |