230 lines
12 KiB
Plaintext
230 lines
12 KiB
Plaintext
|
|
<OBJECT LAIR-OBJECT (LOC LOCAL-GLOBALS) (DESC "lair") (SYNONYM LAIR COURTYARD
|
|
YARD) (ADJECTIVE COURT INNER OUTER) (ACTION LAIR-OBJECT-F)>
|
|
<DEFINE-ROUTINE LAIR-OBJECT-F>
|
|
<ROOM LAIR (LOC ROOMS) (DESC "Lair") (EAST TO OUTER-LAIR) (SW PER
|
|
INNER-LAIR-ENTER-F) (FLAGS RLANDBIT ONBIT) (GLOBAL LAIR-OBJECT) (ACTION LAIR-F)
|
|
>
|
|
<DEFINE-ROUTINE INNER-LAIR-ENTER-F>
|
|
<DEFINE-ROUTINE LAIR-F>
|
|
<GLOBAL NAME-TOLD <>>
|
|
<GLOBAL BEARINGS-LOST <>>
|
|
<GLOBAL BEAST-COUNTER 0>
|
|
<ROOM OUTER-LAIR (LOC ROOMS) (DESC "Beast's Outer Lair") (WEST TO LAIR) (FLAGS
|
|
RLANDBIT ONBIT OUTSIDEBIT) (GLOBAL LAIR-OBJECT) (ACTION OUTER-LAIR-F)>
|
|
<OBJECT BONES (LOC OUTER-LAIR) (SYNONYM BONE BONES) (ADJECTIVE GNAWED) (DESC
|
|
"bone") (FLAGS NDESCBIT) (ACTION UNIMPORTANT-THING-F)>
|
|
<DEFINE-ROUTINE OUTER-LAIR-F>
|
|
<OBJECT MEMORIAL (LOC OUTER-LAIR) (DESC "sandstone memorial") (SYNONYM MEMORIAL
|
|
LIST REMEMBRAN MONUMENT) (ADJECTIVE SANDSTONE) (FLAGS NDESCBIT READBIT) (ACTION
|
|
MEMORIAL-F)>
|
|
<DEFINE-ROUTINE MEMORIAL-F>
|
|
<OBJECT STONE (LOC OUTER-LAIR) (DESC "sharp stone") (SYNONYM STONE STONES ROCK
|
|
ROCKS) (ADJECTIVE SHARP) (FLAGS NDESCBIT TAKEBIT TRYTAKEBIT) (SIZE 20) (ACTION
|
|
STONE-F)>
|
|
<DEFINE-ROUTINE STONE-F>
|
|
<OBJECT BEAST (LOC LAIR) (DESC "Ravenous Bugblatter Beast of Traal") (DESCFCN
|
|
BEAST-DESCFCN) (SYNONYM BEAST TRAAL) (ADJECTIVE RAVENOUS BUGBLATTE BEAST) (
|
|
FLAGS ACTORBIT) (ACTION BEAST-F)>
|
|
<DEFINE-ROUTINE BEAST-DESCFCN>
|
|
<DEFINE-ROUTINE BEAST-F>
|
|
<DEFINE-ROUTINE I-BEAST>
|
|
<DEFINE-ROUTINE BEAST-DEATH>
|
|
<OBJECT NAME (LOC BEDROOM) (DESC "name") (SYNONYM NAME) (FLAGS NDESCBIT)>
|
|
<OBJECT SARCASTIC-NAME (LOC GLOBAL-OBJECTS) (DESC "other name") (SYNONYM NAME
|
|
BUDDHA AUNT FRED) (ADJECTIVE AUNT\'S FRED\'S BUDDHA) (FLAGS VOWELBIT INVISIBLE)
|
|
>
|
|
<OBJECT YOUR-NAME (LOC GLOBAL-OBJECTS) (DESC "your name") (SYNONYM NAME) (
|
|
ADJECTIVE YOUR MY ARTHUR) (FLAGS NARTICLEBIT) (ACTION YOUR-NAME-F)>
|
|
<DEFINE-ROUTINE YOUR-NAME-F>
|
|
<OBJECT BEAST-NAME (LOC GLOBAL-OBJECTS) (DESC "Beast's name") (SYNONYM NAME) (
|
|
ADJECTIVE BEAST\'S) (FLAG NARTICLEBIT INVISIBLE)>
|
|
<ROOM INNER-LAIR (LOC ROOMS) (DESC "Inner Lair") (LDESC
|
|
"This is the heart of the Beast's lair. The only exit leads northeast.") (NE TO
|
|
LAIR) (FLAGS ONBIT RLANDBIT) (GLOBAL LAIR-OBJECT)>
|
|
<OBJECT SKELETON (LOC INNER-LAIR) (DESC "skeleton") (FDESC
|
|
"The skeleton of a dead Beasthunter lies nearby, clutching something labelled
|
|
\"Nutrimat/Computer Interface.\"") (SYNONYM SKELETON BEASTHUNT BONE BONES) (
|
|
FLAGS RLANDBIT TRYTAKEBIT)>
|
|
<OBJECT NUT-COM-INTERFACE (LOC INNER-LAIR) (DESC "Nutrimat/Computer Interface")
|
|
(SYNONYM INTERFACE) (ADJECTIVE NUTRIMAT COMPUTER) (FLAGS NDESCBIT TRYTAKEBIT
|
|
TAKEBIT) (SIZE 4) (ACTION NUT-COM-INTERFACE-F)>
|
|
<DEFINE-ROUTINE NUT-COM-INTERFACE-F>
|
|
<DEFINE-ROUTINE I-CARELESS-WORDS>
|
|
<GLOBAL CARELESS-WORDS-FLAG <>>
|
|
<GLOBAL DOG-COUNTER 0>
|
|
<OBJECT MICROSCOPIC-FLEET (LOC WAR-CHAMBER) (DESC "battle fleet") (SYNONYM
|
|
FLEET SHIP SHIPS SPACESHIP) (ADJECTIVE BATTLE HORRIBLE BEWEAPONE MICROSCOP
|
|
SPACE VAST) (FLAGS NDESCBIT) (ACTION MICROSCOPIC-FLEET-F)>
|
|
<DEFINE-ROUTINE MICROSCOPIC-FLEET-F>
|
|
<OBJECT CANOPY (LOC WAR-CHAMBER) (DESC "domed canopy") (SYNONYM CANOPY DOME
|
|
WINDOW) (ADJECTIVE DOMED) (FLAGS NDESCBIT TRANSBIT) (ACTION CANOPY-F)>
|
|
<DEFINE-ROUTINE CANOPY-F>
|
|
<ROOM WAR-CHAMBER (LOC ROOMS) (SYNONYM WALKING) (DESC "War Chamber") (FLAGS
|
|
RLANDBIT ONBIT) (GLOBAL CONVERSATION) (ACTION WAR-CHAMBER-F)>
|
|
<DEFINE-ROUTINE WAR-CHAMBER-F>
|
|
<OBJECT VLHURG (LOC WAR-CHAMBER) (DESC "Vl'Hurg leader") (DESCFCN
|
|
VLHURG-DESCFCN) (SYNONYM VL\'HURG LEADER CREATURE CREATURES) (ADJECTIVE
|
|
VL\'HURG) (FLAGS ACTORBIT) (ACTION VLHURG-F)>
|
|
<DEFINE-ROUTINE VLHURG-DESCFCN>
|
|
<DEFINE-ROUTINE VLHURG-F>
|
|
<OBJECT GGUGVUNT (LOC WAR-CHAMBER) (DESC "G'Gugvunt leader") (SYNONYM
|
|
G\'GUGVUNT LEADER CREATURE CREATURES) (ADJECTIVE G\'GUGVUNT) (FLAGS ACTORBIT
|
|
NDESCBIT) (ACTION GGUGVUNT-F)>
|
|
<DEFINE-ROUTINE GGUGVUNT-F>
|
|
<OBJECT OTHER-PLANETS (LOC WAR-CHAMBER) (DESC "other planets") (SYNONYM PLANET
|
|
PLANETS) (ADJECTIVE OTHER) (FLAGS NDESCBIT VOWELBIT NARTICLEBIT)>
|
|
<OBJECT THIRD-PLANET (LOC LOCAL-GLOBALS) (DESC "third planet") (SYNONYM PLANET
|
|
EARTH) (ADJECTIVE THIRD BLUE BLUE-GREE GREEN SMALL) (FLAGS NDESCBIT) (ACTION
|
|
THIRD-PLANET-F)>
|
|
<DEFINE-ROUTINE THIRD-PLANET-F>
|
|
<ROOM MAZE (LOC ROOMS) (SYNONYM INFOCOM ADAMS MERETZKY) (ADJECTIVE DOUGLAS
|
|
STEVE STEVEN) (DESC "Maze") (LDESC
|
|
"This is part of a spongy gray maze of twisty little synapses, all alike.") (
|
|
NORTH PER MAZE-EXIT-F) (NE PER MAZE-EXIT-F) (EAST PER MAZE-EXIT-F) (SE PER
|
|
MAZE-EXIT-F) (SOUTH PER MAZE-EXIT-F) (SW PER MAZE-EXIT-F) (WEST PER MAZE-EXIT-F
|
|
) (NW PER MAZE-EXIT-F) (UP PER MAZE-EXIT-F) (DOWN PER MAZE-EXIT-F) (IN PER
|
|
MAZE-EXIT-F) (OUT PER MAZE-EXIT-F) (FLAGS RLANDBIT ONBIT)>
|
|
<OBJECT GRAY-MATTER (LOC MAZE) (SYNONYM MAZE) (ADJECTIVE GRAY GREY SPONGY) (
|
|
DESC "maze") (FLAGS NDESCBIT) (ACTION GLOBAL-ROOM-F)>
|
|
<GLOBAL MAZE-COUNTER 0>
|
|
<GLOBAL BRAIN-DAMAGED <>>
|
|
<DEFINE-ROUTINE MAZE-EXIT-F>
|
|
<OBJECT BRAIN (LOC MAZE) (DESC "brain") (SYNONYM BRAIN) (ADJECTIVE MY YOUR) (
|
|
FLAGS NDESCBIT) (ACTION GLOBAL-ROOM-F)>
|
|
<OBJECT SYNAPSE (LOC MAZE) (DESC "synapse") (SYNONYM SYNAPSE GAP) (ADJECTIVE
|
|
SYNAPSE) (FLAGS NDESCBIT)>
|
|
<OBJECT PARTICLE (LOC LOCAL-GLOBALS) (DESC "particle") (LDESC
|
|
"Blocking the gap between two synapses is a large black particle. There seem
|
|
to be some faint markings on it.") (SYNONYM PARTICLE SENSE LETTER MARKINGS) (
|
|
ADJECTIVE LARGE BLACK COMMON FAINT) (FLAGS TAKEBIT TRYTAKEBIT READBIT) (ACTION
|
|
PARTICLE-F)>
|
|
<DEFINE-ROUTINE PARTICLE-F>
|
|
<OBJECT APARTMENT (LOC LOCAL-GLOBALS) (DESC "apartment") (SYNONYM APARTMENT) (
|
|
FLAGS VOWELBIT) (ACTION APARTMENT-F)>
|
|
<DEFINE-ROUTINE APARTMENT-F>
|
|
<GLOBAL ITEM-DROPPED-AT-PARTY <>>
|
|
<GLOBAL FLUFF-REMOVED <>>
|
|
<GLOBAL PARTY-TABLE <TABLE 0 0 0>>
|
|
<DEFINE-ROUTINE PARTY-DESC>
|
|
<ROOM LIVING-ROOM (LOC ROOMS) (DESC "Living Room") (SOUTH PER PARTY-EXIT-F) (
|
|
WEST TO DINING-ROOM) (SW TO KITCHEN) (FLAGS RLANDBIT ONBIT) (GLOBAL APARTMENT
|
|
WILD-PARTY) (ACTION LIVING-ROOM-F)>
|
|
<DEFINE-ROUTINE PARTY-EXIT-F>
|
|
<DEFINE-ROUTINE LIVING-ROOM-F>
|
|
<OBJECT APARTMENT-DOOR (LOC LIVING-ROOM) (DESC "door") (SYNONYM DOOR) (FLAGS
|
|
DOORBIT OPENBIT NDESCBIT) (ACTION APARTMENT-DOOR-F)>
|
|
<DEFINE-ROUTINE APARTMENT-DOOR-F>
|
|
<ROOM DINING-ROOM (LOC ROOMS) (DESC "Dining Room") (SOUTH TO KITCHEN) (EAST TO
|
|
LIVING-ROOM) (FLAGS RLANDBIT ONBIT) (GLOBAL APARTMENT WILD-PARTY) (ACTION
|
|
DINING-ROOM-F)>
|
|
<OBJECT WILD-PARTY (LOC LOCAL-GLOBALS) (SYNONYM PARTY) (DESC "party") (ACTION
|
|
APARTMENT-F)>
|
|
<DEFINE-ROUTINE DINING-ROOM-F>
|
|
<ROOM KITCHEN (LOC ROOMS) (DESC "Kitchen") (NORTH TO DINING-ROOM) (NE TO
|
|
LIVING-ROOM) (FLAGS RLANDBIT ONBIT) (GLOBAL APARTMENT WILD-PARTY) (ACTION
|
|
KITCHEN-F)>
|
|
<DEFINE-ROUTINE KITCHEN-F>
|
|
<OBJECT WINE (LOC LOCAL-GLOBALS) (DESC "glass of white wine") (SYNONYM GLASS
|
|
WINE) (ADJECTIVE WHITE) (FLAGS TAKEBIT DRINKBIT) (SIZE 15) (ACTION WINE-F)>
|
|
<DEFINE-ROUTINE WINE-F>
|
|
<OBJECT APPETIZERS (LOC LOCAL-GLOBALS) (DESC "plate of hors d'oeuvres") (
|
|
SYNONYM PLATE D\'OEUVRES APPETIZER SNACKS) (ADJECTIVE HORS) (FLAGS TAKEBIT
|
|
EATBIT) (SIZE 15) (ACTION APPETIZERS-F)>
|
|
<DEFINE-ROUTINE APPETIZERS-F>
|
|
<DEFINE-ROUTINE DROP-AT-PARTY>
|
|
<DEFINE-ROUTINE SHRIEK>
|
|
<OBJECT HOSTESS (LOC LIVING-ROOM) (DESC "hostess") (LDESC
|
|
"You notice the hostess approaching, but, using several mingling couples
|
|
as cover, you maneuver away.") (SYNONYM HOSTESS) (FLAGS ACTORBIT) (ACTION
|
|
HOSTESS-F)>
|
|
<DEFINE-ROUTINE HOSTESS-F>
|
|
<DEFINE-ROUTINE I-HOSTESS>
|
|
<OBJECT JACKET-FLUFF (LOC LOCAL-GLOBALS) (DESC "jacket fluff") (SYNONYM FLUFF
|
|
LINT) (ADJECTIVE JACKET UNSIGHTLY) (FLAGS NARTICLEBIT TAKEBIT TRYTAKEBIT
|
|
NDESCBIT) (GENERIC POCKET-FLUFF)>
|
|
<OBJECT CAGE (LOC LOCAL-GLOBALS) (DESC "it") (SYNONYM DRAPE CAGE BIRDCAGE
|
|
SNORING) (ADJECTIVE LARGE BLACK BIRD) (FLAGS NDESCBIT NARTICLEBIT) (ACTION
|
|
UNIMPORTANT-THING-F)>
|
|
<OBJECT DAMOGRAN (LOC LOCAL-GLOBALS) (DESC "Damogran") (SYNONYM DAMOGRAN)>
|
|
<ROOM SPEEDBOAT (LOC ROOMS) (DESC "Presidential Speedboat") (NORTH TO DAIS IF
|
|
BOAT-DOCKED) (OUT TO DAIS IF BOAT-DOCKED) (FLAGS ONBIT RLANDBIT OUTSIDEBIT) (
|
|
GLOBAL CONTROLS DAMOGRAN PLATFORM CROWD WATER) (ACTION SPEEDBOAT-F)>
|
|
<OBJECT CROWD (LOC LOCAL-GLOBALS) (SYNONYM CROWD) (DESC "crowd") (ACTION
|
|
CROWD-PSEUDO)>
|
|
<OBJECT WATER (LOC LOCAL-GLOBALS) (SYNONYM WATER) (DESC "water") (FLAGS
|
|
NARTICLEBIT) (ACTION WATER-PSEUDO)>
|
|
<DEFINE-ROUTINE SPEEDBOAT-F>
|
|
<DEFINE-ROUTINE I-SPEEDBOAT>
|
|
<GLOBAL CRASH-COUNTER 0>
|
|
<GLOBAL BOAT-COUNTER 0>
|
|
<GLOBAL DESTINATION <>>
|
|
<GLOBAL BOAT-DOCKED <>>
|
|
<GLOBAL AUTOPILOT-COUNTER 0>
|
|
<GLOBAL DAIS-COUNTER 0>
|
|
<OBJECT BOAT-OBJECT (LOC SPEEDBOAT) (DESC "speedboat") (SYNONYM SPEEDBOAT BOAT)
|
|
(ADJECTIVE PRESIDENT SPEED) (FLAGS NDESCBIT) (ACTION BOAT-OBJECT-F)>
|
|
<DEFINE-ROUTINE BOAT-OBJECT-F>
|
|
<DEFINE-ROUTINE WATER-PSEUDO>
|
|
<OBJECT PILOT-SEAT (LOC SPEEDBOAT) (DESC "pilot seat") (SYNONYM SEAT CHAIR
|
|
CUSHION) (ADJECTIVE PILOT SEAT THICK PLUSH) (FLAGS VEHBIT CONTBIT SURFACEBIT
|
|
SEARCHBIT OPENBIT) (ACTION PILOT-SEAT-F)>
|
|
<DEFINE-ROUTINE PILOT-SEAT-F>
|
|
<OBJECT KEY (LOC LOCAL-GLOBALS) (DESC "small key") (SYNONYM KEY) (ADJECTIVE
|
|
SMALL) (FLAGS TAKEBIT) (SIZE 2) (ACTION KEY-F)>
|
|
<DEFINE-ROUTINE KEY-F>
|
|
<OBJECT CUSHION-FLUFF (LOC LOCAL-GLOBALS) (DESC "seat cushion fluff") (SYNONYM
|
|
FLUFF LINT) (ADJECTIVE SEAT CUSHION) (FLAGS TAKEBIT NARTICLEBIT) (SIZE 1) (
|
|
GENERIC POCKET-FLUFF)>
|
|
<OBJECT TOOLBOX (LOC SPEEDBOAT) (DESC "tool box") (SYNONYM TOOLBOX LOCK BOX) (
|
|
ADJECTIVE TOOL) (FLAGS CONTBIT TAKEBIT SEARCHBIT) (SIZE 25) (CAPACITY 20) (
|
|
ACTION TOOLBOX-F)>
|
|
<DEFINE-ROUTINE TOOLBOX-F>
|
|
<OBJECT MAGNIFYING-GLASS (LOC TOOLBOX) (DESC "magnifying glass") (SYNONYM GLASS
|
|
) (ADJECTIVE MAGNIFYIN) (FLAGS TAKEBIT TRANSBIT) (ACTION MAGNIFYING-GLASS-F)>
|
|
<DEFINE-ROUTINE MAGNIFYING-GLASS-F>
|
|
<OBJECT AUTOPILOT-BUTTON (LOC SPEEDBOAT) (DESC "autopilot button") (SYNONYM
|
|
BUTTON PILOT AUTOPILOT) (ADJECTIVE AUTOPILOT AUTO LARGE RED) (FLAGS VOWELBIT
|
|
NDESCBIT LIGHTBIT) (ACTION AUTOPILOT-BUTTON-F)>
|
|
<DEFINE-ROUTINE AUTOPILOT-BUTTON-F>
|
|
<OBJECT CHANNEL (LOC SPEEDBOAT) (DESC "narrow channel") (SYNONYM CHANNEL
|
|
OPENING) (ADJECTIVE NARROW) (FLAGS NDESCBIT)>
|
|
<OBJECT SPIRE (LOC SPEEDBOAT) (DESC "rocky spire") (SYNONYM SPIRE ROCK ROCKS) (
|
|
ADJECTIVE ROCKY) (FLAGS NDESCBIT) (ACTION DESTINATION-F)>
|
|
<OBJECT CLIFF (LOC SPEEDBOAT) (DESC "towering cliffs") (SYNONYM CLIFF CLIFFS
|
|
ISLAND FRANCE) (ADJECTIVE TOWERING) (FLAGS NDESCBIT NARTICLEBIT) (ACTION
|
|
DESTINATION-F)>
|
|
<DEFINE-ROUTINE DESTINATION-F>
|
|
<ROOM DAIS (LOC ROOMS) (SYNONYM POLICE COPS) (DESC "Dais") (SOUTH SORRY
|
|
"The boat is gone.") (EAST PER DAIS-EXIT-F) (IN PER DAIS-EXIT-F) (OUT PER
|
|
DAIS-EXIT-F) (FLAGS RLANDBIT ONBIT OUTSIDEBIT) (GLOBAL HEART-OF-GOLD DAMOGRAN
|
|
PLATFORM CROWD) (ACTION DAIS-F)>
|
|
<DEFINE-ROUTINE DAIS-EXIT-F>
|
|
<DEFINE-ROUTINE DAIS-F>
|
|
<DEFINE-ROUTINE DAIS-FUNCTION>
|
|
<DEFINE-ROUTINE CROWD-PSEUDO>
|
|
<OBJECT PLATFORM (LOC LOCAL-GLOBALS) (DESC "Dais") (SYNONYM DAIS PLATFORM) (
|
|
ACTION PLATFORM-F)>
|
|
<DEFINE-ROUTINE PLATFORM-F>
|
|
<OBJECT BANNER (LOC DAIS) (DESC "banner") (SYNONYM BANNER) (ADJECTIVE HUGE) (
|
|
FLAGS NDESCBIT READBIT) (TEXT
|
|
"\"President Beeblebrox is a Swell Guy\" (Footnote 15).")>
|
|
<OBJECT BLASTER (LOC LOCAL-GLOBALS) (DESC "blaster") (SYNONYM BLASTER WEAPON) (
|
|
FLAGS NDESCBIT TAKEBIT TRYTAKEBIT) (ACTION BLASTER-F)>
|
|
<DEFINE-ROUTINE BLASTER-F>
|
|
<DEFINE-ROUTINE BLASTER-HOLD>
|
|
<OBJECT RIFLES (LOC LOCAL-GLOBALS) (DESC "pile of photon rifles") (SYNONYM
|
|
RIFLE RIFLES PILE WEAPON WEAPONS) (ADJECTIVE PHOTON YOUR) (FLAGS NDESCBIT
|
|
TRYTAKEBIT) (ACTION RIFLES-F)>
|
|
<DEFINE-ROUTINE RIFLES-F>
|
|
<DEFINE-ROUTINE GUARD-DEATH>
|
|
<ROOM INSIDE-WHALE (LOC ROOMS) (SYNONYM TREE FOREKNOWL) (DESC
|
|
"Inside the Sperm Whale") (LDESC
|
|
"You are in the stomach of a sperm whale. You can hear a distant sound
|
|
of rushing wind.") (FLAGS ONBIT RLANDBIT NARTICLEBIT) (ACTION INSIDE-WHALE-F)>
|
|
<DEFINE-ROUTINE INSIDE-WHALE-F>
|
|
<DEFINE-ROUTINE I-WHALE>
|
|
<OBJECT WHALE-OBJECT (LOC INSIDE-WHALE) (DESC "innard of a whale") (SYNONYM
|
|
INNARD WHALE STOMACH) (ADJECTIVE SPERM) (FLAGS VOWELBIT NDESCBIT) (ACTION
|
|
WHALE-OBJECT-F)>
|
|
<DEFINE-ROUTINE WHALE-OBJECT-F> |