hitchhikersguide-gold/globals.zabstr

338 lines
16 KiB
Plaintext

<CONSTANT S-TEXT 0>
<CONSTANT S-WINDOW 1>
<CONSTANT H-NORMAL 0>
<CONSTANT H-INVERSE 1>
<CONSTANT H-BOLD 2>
<CONSTANT H-ITALIC 4>
<CONSTANT D-SCREEN-ON 1>
<CONSTANT D-SCREEN-OFF -1>
<CONSTANT D-PRINTER-ON 2>
<CONSTANT D-PRINTER-OFF -2>
<CONSTANT D-TABLE-ON 3>
<CONSTANT D-TABLE-OFF -3>
<CONSTANT D-RECORD-ON 4>
<CONSTANT D-RECORD-OFF -4>
<GLOBAL HOST:NUMBER 0>
<GLOBAL WIDTH:NUMBER 0>
<DEFINE-ROUTINE INIT-STATUS-LINE>
<CONSTANT SL-TABLE:TABLE <ITABLE NONE 80>>
<GLOBAL OHERE:OBJECT <>>
<GLOBAL OLD-LEN:NUMBER 0>
<DEFINE-ROUTINE UPDATE-STATUS-LINE>
<DEFINE-ROUTINE PRINT-SPACES>
<DEFINE-ROUTINE SAY-HERE>
<GLOBAL LYING-DOWN <>>
<GLOBAL HERE <>>
<GLOBAL LIT <>>
<GLOBAL MOVES 0>
<GLOBAL SCORE 0>
<CONSTANT INDENTS <PTABLE "" " " " " " " " " " ">>
<OBJECT GLOBAL-OBJECTS (FLAGS INVISIBLE TOUCHBIT SURFACEBIT TRYTAKEBIT OPENBIT
REVISITBIT SEARCHBIT TRANSBIT WEARBIT MUNGEDBIT ONBIT RLANDBIT WORNBIT)>
<OBJECT LOCAL-GLOBALS (LOC GLOBAL-OBJECTS) (SYNONYM ZZMGCK) (DESCFCN 0) (GLOBAL
GLOBAL-OBJECTS) (FDESC "F") (LDESC "F") (SIZE 0) (TEXT "") (CAPACITY 0)>
<OBJECT FOOBAR (LOC LOCAL-GLOBALS) (SYNONYM FOOBAR) (ACTION V-WALK)>
<OBJECT ROOMS (IN TO ROOMS)>
<OBJECT IT (LOC GLOBAL-OBJECTS) (SYNONYM IT THEM HER HIM) (DESC "it") (FLAGS
VOWELBIT NARTICLEBIT NDESCBIT TOUCHBIT)>
<OBJECT INTNUM (LOC GLOBAL-OBJECTS) (DESC "number") (SYNONYM INTNUM) (ADJECTIVE
NUMBER)>
<OBJECT NOT-HERE-OBJECT (DESC "it") (FLAGS NARTICLEBIT) (ACTION
NOT-HERE-OBJECT-F)>
<DEFINE-ROUTINE NOT-HERE-OBJECT-F>
<DEFINE-ROUTINE FIND-NOT-HERE>
<DEFINE-ROUTINE NOT-HERE-PRINT>
<OBJECT LIGHT (LOC GLOBAL-OBJECTS) (DESC "light") (SYNONYM LIGHT LIGHTS LAMP) (
FLAGS LIGHTBIT) (ACTION LIGHT-F)>
<DEFINE-ROUTINE LIGHT-F>
<OBJECT GLOBAL-SLEEP (LOC GLOBAL-OBJECTS) (DESC "sleep") (SYNONYM SLEEP NAP
SNOOZE) (FLAGS NARTICLEBIT) (ACTION GLOBAL-SLEEP-F)>
<DEFINE-ROUTINE GLOBAL-SLEEP-F>
<OBJECT SPEECH (LOC GLOBAL-OBJECTS) (DESC "speech") (SYNONYM SPEECH) (ACTION
SPEECH-F)>
<DEFINE-ROUTINE SPEECH-F>
<OBJECT GROUND (LOC GLOBAL-OBJECTS) (SYNONYM FLOOR GROUND MUD) (DESC "ground")
(ACTION GROUND-F)>
<DEFINE-ROUTINE GROUND-F>
<OBJECT WALLS (LOC GLOBAL-OBJECTS) (FLAGS NDESCBIT TOUCHBIT) (DESC "wall") (
SYNONYM WALL WALLS) (ACTION WALLS-F)>
<DEFINE-ROUTINE WALLS-F>
<OBJECT CEILING (LOC GLOBAL-OBJECTS) (FLAGS NDESCBIT TOUCHBIT) (DESC "ceiling")
(SYNONYM CEILING ROOF) (ACTION CEILING-F)>
<DEFINE-ROUTINE CEILING-F>
<OBJECT WINDOW (LOC LOCAL-GLOBALS) (DESC "window") (SYNONYM WINDOW) (FLAGS
TRANSBIT) (ACTION WINDOW-F)>
<DEFINE-ROUTINE WINDOW-F>
<OBJECT STAIRS (LOC LOCAL-GLOBALS) (DESC "stairs") (SYNONYM STAIR STAIRS
STAIRWAY GANGWAY) (FLAGS NARTICLEBIT NDESCBIT) (ACTION STAIRS-F)>
<DEFINE-ROUTINE STAIRS-F>
<OBJECT AIR (LOC GLOBAL-OBJECTS) (DESC "air") (SYNONYM AIR) (FLAGS VOWELBIT)>
<OBJECT SKY (LOC GLOBAL-OBJECTS) (DESC "sky") (SYNONYM SKY) (ACTION SKY-F)>
<DEFINE-ROUTINE SKY-F>
<OBJECT STAR (LOC GLOBAL-OBJECTS) (DESC "sun") (SYNONYM STAR SUN SYSTEM SOL) (
ADJECTIVE APPROACHI STAR SOLAR SMALL UNREGARDE YELLOW ORANGE) (FLAGS NDESCBIT)
(ACTION STAR-F)>
<DEFINE-ROUTINE STAR-F>
<OBJECT HANDS (LOC GLOBAL-OBJECTS) (SYNONYM HANDS HAND) (ADJECTIVE BARE MY YOUR
) (DESC "your hand") (FLAGS NDESCBIT TOUCHBIT NARTICLEBIT) (ACTION HANDS-F)>
<DEFINE-ROUTINE HANDS-F>
<OBJECT TEETH (LOC GLOBAL-OBJECTS) (DESC "your teeth") (SYNONYM TEETH TOOTH) (
ADJECTIVE YOUR MY) (FLAGS NARTICLEBIT)>
<OBJECT HEAD (LOC GLOBAL-OBJECTS) (DESC "your head") (SYNONYM HEAD FACE) (
ADJECTIVE YOUR MY) (FLAGS NARTICLEBIT)>
<OBJECT EYES (LOC GLOBAL-OBJECTS) (DESC "your eyes") (SYNONYM EYE EYES) (
ADJECTIVE YOUR MY) (FLAGS NARTICLEBIT) (ACTION EYES-F)>
<DEFINE-ROUTINE EYES-F>
<OBJECT EARS (LOC GLOBAL-OBJECTS) (DESC "your ears") (SYNONYM EAR EARS) (
ADJECTIVE YOUR MY) (FLAGS NARTICLEBIT)>
<OBJECT PROTAGONIST (SYNONYM PROTAGONI) (DESC "it") (FLAGS NDESCBIT INVISIBLE)
(ACTION PROTAGONIST-F)>
<DEFINE-ROUTINE PROTAGONIST-F>
<OBJECT ME (LOC GLOBAL-OBJECTS) (SYNONYM I ME MYSELF SELF) (DESC "yourself") (
FLAGS ACTORBIT TOUCHBIT NARTICLEBIT) (ACTION ME-F)>
<DEFINE-ROUTINE ME-F>
<OBJECT GLOBAL-ROOM (LOC GLOBAL-OBJECTS) (DESC "room") (SYNONYM ROOM CHAMBER
PLACE HALL) (ADJECTIVE AREA) (ACTION GLOBAL-ROOM-F)>
<DEFINE-ROUTINE GLOBAL-ROOM-F>
<OBJECT OBJECT-OF-GAME (LOC GLOBAL-OBJECTS) (DESC "object of the game") (
SYNONYM OBJECT GAME GOAL) (FLAGS VOWELBIT) (ACTION OBJECT-OF-GAME-F)>
<DEFINE-ROUTINE OBJECT-OF-GAME-F>
<OBJECT CONTROLS (LOC LOCAL-GLOBALS) (DESC "the controls") (SYNONYM CONTROLS
PANEL CONSOLE) (ADJECTIVE CONTROL) (FLAGS NARTICLEBIT) (ACTION CONTROLS-F)>
<DEFINE-ROUTINE CONTROLS-F>
<OBJECT CONVERSATION (LOC LOCAL-GLOBALS) (DESC "conversation") (SYNONYM
CONVERSAT) (FLAGS DARKBIT INVISIBLE) (ACTION CONVERSATION-F)>
<DEFINE-ROUTINE CONVERSATION-F>
<OBJECT GUARDS (LOC LOCAL-GLOBALS) (DESC "one of the guards") (SYNONYM ONE
GUARD GUARDS) (ADJECTIVE VOGON) (FLAGS VOWELBIT NARTICLEBIT NDESCBIT ACTORBIT
CONTBIT SEARCHBIT OPENBIT) (ACTION GUARDS-F)>
<DEFINE-ROUTINE GUARDS-F>
<DEFINE-ROUTINE WEAPON-PSEUDO>
<OBJECT FRUSTATION (LOC GLOBAL-OBJECTS) (DESC "problem") (SYNONYM FRUSTRATI
PROBLEM PUZZLE) (ACTION FRUSTRATION-F)>
<DEFINE-ROUTINE FRUSTRATION-F>
<DEFINE-ROUTINE UNIMPORTANT-THING-F>
<DEFINE-ROUTINE DONT-F>
<GLOBAL VOGON-PROB 100>
<GLOBAL HEART-PROB 0>
<GLOBAL TRAAL-PROB 60>
<GLOBAL FLEET-PROB 0>
<GLOBAL WHALE-PROB 0>
<GLOBAL TRILLIAN-PROB 15>
<GLOBAL ZAPHOD-PROB 0>
<GLOBAL FORD-PROB 15>
<GLOBAL DREAMING <>>
<GLOBAL DARK-COUNTER 0>
<GLOBAL DARK-FLAG <>>
<GLOBAL CURRENT-EXIT 0>
<GLOBAL GROGGY <>>
<GLOBAL LYING-COUNTER 0>
<GLOBAL GUTS-ROOM <>>
<ROOM DARK (LOC ROOMS) (SYNONYM SUNGLASSE GLASSES JANTA) (ADJECTIVE JOO JANTA
PERIL SENSITIVE) (DESC "Dark") (FLAGS RLANDBIT ONBIT) (ACTION DARK-F)>
<DEFINE-ROUTINE DARK-F>
<OBJECT DARK-OBJECT (LOC GLOBAL-OBJECTS) (DESC "darkness") (SYNONYM DARK
DARKNESS NOTHING) (FLAGS NDESCBIT NARTICLEBIT)>
<OBJECT SHADOW (LOC LOCAL-GLOBALS) (DESC "shadow") (SYNONYM SHADOW) (FLAGS
NDESCBIT)>
<OBJECT LIQUID (LOC LOCAL-GLOBALS) (DESC "liquid") (SYNONYM LIQUID) (ADJECTIVE
HOT COLD WARM WET SQUISHY) (FLAGS NDESCBIT DRINKBIT)>
<OBJECT PAINFUL-LIGHT (LOC LOCAL-GLOBALS) (DESC "light") (SYNONYM LIGHT) (
ADJECTIVE PAINFUL BRIGHT) (FLAGS NDESCBIT)>
<OBJECT STAR-DRIVE (LOC LOCAL-GLOBALS) (DESC "star drive") (SYNONYM DRIVE HUM)
(ADJECTIVE STAR DEEP DISTANT) (FLAGS NDESCBIT)>
<DEFINE-ROUTINE DARK-FUNCTION>
<CONSTANT DARK-EXIT-TABLE <PTABLE HOLD COUNTRY-LANE LIVING-ROOM ENTRY-BAY LAIR
SPEEDBOAT INSIDE-WHALE WAR-CHAMBER>>
<DEFINE-ROUTINE LEAVE-DARK>
<DEFINE-ROUTINE MISSING?>
<DEFINE-ROUTINE DARK-ONE>
<DEFINE-ROUTINE DARK-TWO>
<DEFINE-ROUTINE DARK-THREE>
<DEFINE-ROUTINE DARK-FOUR>
<DEFINE-ROUTINE BEAST-GUARD-FORD>
<DEFINE-ROUTINE I-BRAIN-DEATH>
<OBJECT TOOTHBRUSH (LOC BEDROOM) (DESC "toothbrush") (SYNONYM TOOTHBRUS BRUSH
TOOL TOOLS) (ADJECTIVE TOOTH MY PROPER) (FLAGS TAKEBIT TRYTAKEBIT TOOLBIT) (
SIZE 3) (GENERIC TWEEZERS) (ACTION TOOTHBRUSH-F)>
<DEFINE-ROUTINE TOOTHBRUSH-F>
<OBJECT SCREWDRIVER (LOC BEDROOM) (DESC "flathead screwdriver") (SYNONYM
SCREWDRIV TOOL TOOLS) (ADJECTIVE FLATHEAD PROPER) (FLAGS TAKEBIT TRYTAKEBIT
TOOLBIT) (SIZE 3) (GENERIC TWEEZERS)>
<OBJECT WRENCH (LOC TOOLBOX) (DESC "laser-assisted monkey wrench") (SYNONYM
WRENCH TOOL TOOLS) (ADJECTIVE LASER ASSISTED LASER-ASS MONKEY PROPER) (FLAGS
TAKEBIT TOOLBIT) (SIZE 3) (GENERIC TWEEZERS)>
<OBJECT CHISEL (LOC PANTRY) (DESC "thermo-fusion chisel") (SYNONYM CHISEL TOOL
TOOLS) (ADJECTIVE THERMO FUSION THERMO-FU PROPER) (FLAGS TAKEBIT TOOLBIT) (SIZE
3) (GENERIC TWEEZERS)>
<OBJECT AWL (LOC WAR-CHAMBER) (DESC "ultra-plasmic vacuum awl") (SYNONYM AWL
TOOL TOOLS) (ADJECTIVE ULTRA PLASMIC ULTRA-PLA VACUUM PROPER) (FLAGS TAKEBIT
VOWELBIT TOOLBIT) (SIZE 3) (GENERIC TWEEZERS)>
<OBJECT PLIERS (LOC LOCAL-GLOBALS) (DESC "pair of hypersonic pliers") (SYNONYM
PAIR PLIERS TOOL TOOLS) (ADJECTIVE HYPERSONI PROPER) (FLAGS TAKEBIT TOOLBIT) (
SIZE 3) (GENERIC TWEEZERS)>
<OBJECT TWEEZERS (LOC HANDBAG) (DESC "pair of tweezers") (SYNONYM TWEEZERS
TWEEZER PAIR TOOL TOOLS) (ADJECTIVE PROPER) (FLAGS TAKEBIT TOOLBIT) (SIZE 3) (
GENERIC TWEEZERS)>
<OBJECT PINCER (LOC BRIDGE) (DESC "molecular hyperwave pincer") (SYNONYM PINCER
TOOL TOOLS) (ADJECTIVE MOLECULAR HYPERWAVE PROPER) (FLAGS TAKEBIT TOOLBIT) (
SIZE 3) (GENERIC TWEEZERS)>
<OBJECT RASP (LOC LOCAL-GLOBALS) (DESC "ionic diffusion rasp") (SYNONYM RASP
TOOL TOOLS) (ADJECTIVE IONIC DIFFUSION PROPER) (FLAGS TAKEBIT VOWELBIT TOOLBIT)
(SIZE 3) (GENERIC TWEEZERS)>
<OBJECT CHIPPER (LOC LOCAL-GLOBALS) (DESC
"number twelve asteroid paint chipper") (SYNONYM CHIPPER TOOL TOOLS) (ADJECTIVE
NUMBER TWELVE ASTEROID PAINT PROPER) (FLAGS TAKEBIT TOOLBIT) (SIZE 3) (GENERIC
TWEEZERS)>
<CONSTANT TOOL-LIST <PLTABLE SCREWDRIVER WRENCH CHISEL AWL PLIERS TWEEZERS
PINCER RASP CHIPPER TOOTHBRUSH>>
<GLOBAL HOLDING-NO-TEA T>
<DEFINE-ROUTINE LIQUID-SPILL>
<DEFINE-ROUTINE ANTI-LITTER>
<OBJECT TEA (LOC PAD) (DESC "tea") (DESCFCN TEA-DESCFCN) (SYNONYM TEA CUP) (
ADJECTIVE REAL NICE HOT) (FLAGS NARTICLEBIT TAKEBIT TRYTAKEBIT DRINKBIT) (
ACTION TEA-F)>
<DEFINE-ROUTINE TEA-DESCFCN>
<DEFINE-ROUTINE DESCRIBE-DRINK>
<DEFINE-ROUTINE TEA-F>
<OBJECT NO-TEA (LOC GLOBAL-OBJECTS) (DESC "no tea") (SYNONYM TEA) (ADJECTIVE NO
) (FLAGS NARTICLEBIT TRYTAKEBIT) (ACTION NO-TEA-F)>
<DEFINE-ROUTINE NO-TEA-F>
<DEFINE-ROUTINE TEA-PRINT>
<OBJECT THUMB (LOC SATCHEL) (DESC "electronic Sub-Etha signaling device") (
SYNONYM THUMB DEVICE SENSO) (ADJECTIVE ELECTRONI SUB-ETHA SIGNALING SMALL BLACK
LITTLE BLINKING) (SIZE 10) (FLAGS TAKEBIT VOWELBIT CONTBIT OPENBIT) (ACTION
THUMB-F)>
<DEFINE-ROUTINE THUMB-F>
<OBJECT RED-BUTTON (LOC THUMB) (DESC "red button") (SYNONYM BUTTON) (ADJECTIVE
RED SMALL) (FLAGS NDESCBIT INTEGRALBIT) (SIZE 1) (ACTION RED-BUTTON-F)>
<DEFINE-ROUTINE RED-BUTTON-F>
<OBJECT GREEN-BUTTON (LOC THUMB) (DESC "green button") (SYNONYM BUTTON) (
ADJECTIVE GREEN SMALL HITCHHIKE) (FLAGS NDESCBIT INTEGRALBIT) (SIZE 1) (ACTION
GREEN-BUTTON-F)>
<DEFINE-ROUTINE GREEN-BUTTON-F>
<OBJECT GUARANTEE (LOC THUMB) (DESC "guarantee") (SYNONYM GUARANTEE WARRANTY
PLAQUE) (ADJECTIVE LIFETIME) (FLAGS NDESCBIT INTEGRALBIT) (SIZE 2) (ACTION
GUARANTEE-F)>
<DEFINE-ROUTINE GUARANTEE-F>
<OBJECT ENGINEER (LOC LOCAL-GLOBALS) (DESC "Engineer robot") (SYNONYM ROBOT
ENGINEER) (ADJECTIVE ENGINE) (FLAGS VOWELBIT ACTORBIT CONTBIT OPENBIT SEARCHBIT
) (ACTION ENGINEER-F)>
<DEFINE-ROUTINE ENGINEER-F>
<GLOBAL ENGINEER-COUNTER 0>
<GLOBAL THUMB-SHOWN 0>
<DEFINE-ROUTINE ENGINEER-LEAVE>
<DEFINE-ROUTINE I-ENGINEER>
<OBJECT BIKE (LOC LOCAL-GLOBALS) (DESC "bike") (SYNONYM BIKE CYCLE) (ADJECTIVE
ION) (FLAGS NDESCBIT TRYTAKEBIT)>
<OBJECT GUIDE (LOC SATCHEL) (DESC "The Hitchhiker's Guide") (DESCFCN
GUIDE-DESCFCN) (SYNONYM COPY GUIDE) (ADJECTIVE HITCHHIKE SUB-ETHA) (SIZE 10) (
FLAGS NARTICLEBIT TAKEBIT READBIT) (TEXT
"Try: CONSULT GUIDE ABOUT (something).") (ACTION GUIDE-F)>
<DEFINE-ROUTINE GUIDE-DESCFCN>
<DEFINE-ROUTINE GUIDE-F>
<CONSTANT SPACE-TEXT
"If you hyperventilate and then empty your lungs, you will last about thirty
seconds in the vacuum of space. However, because space is so vastly hugely
mind-bogglingly big, getting picked up by another ship within those thirty
seconds is almost infinitely improbable.">
<DEFINE-ROUTINE CANT-SEE>
<DEFINE-ROUTINE TELL-ME-HOW>
<DEFINE-ROUTINE OUT-OF-FIRST>
<DEFINE-ROUTINE PRIVATE>
<DEFINE-ROUTINE NOT-VERY-GOOD>
<DEFINE-ROUTINE FACTOR>
<DEFINE-ROUTINE REMOVING-BIT>
<DEFINE-ROUTINE PART-OF>
<DEFINE-ROUTINE BUT-THAT-MAN>
<DEFINE-ROUTINE CUSHION>
<DEFINE-ROUTINE FINE-PRODUCT>
<DEFINE-ROUTINE MAKE-WAY-FOR>
<DEFINE-ROUTINE OWN-FEET>
<CONSTANT DOWN-WELL "It goes down well.">
<CONSTANT NOT-PLUGGED "It's not plugged into anything!">
<CONSTANT LYING-ABOUT-EXIT "(We were lying about the exit to port.) ">
<CONSTANT ROARS-OFF " roars off on his ion bike into the Sub-Etha">
<CONSTANT FIDDLES
"He fiddles with the Thumb for a moment or two before handing it back. ">
<CONSTANT LOOK-AROUND "Look around you.">
<CONSTANT TOO-DARK "It's too dark to see!">
<CONSTANT CANT-GO "You can't go that way.">
<CONSTANT YOU-ARE "You already are!">
<CONSTANT ALREADY-OPEN "It is already open.">
<CONSTANT ALREADY-CLOSED "It is already closed.">
<CONSTANT REFERRING "I don't see what you're referring to.">
<CONSTANT WHILE-LYING "You can't do that while you're lying down!">
<CONSTANT WITH-TOWEL "With a towel wrapped around your head!?!">
<CONSTANT ZEN "A brave, Zen-like effort. It fails.">
<CONSTANT BULLDOZER-PILES "The bulldozer piles into the side of your home.">
<CONSTANT IT-LOOKS-LIKE "It looks like">
<CONSTANT CLAWS " its tungsten carbide Vast-Pain claws">
<CONSTANT PRESIDENT " President of the Galaxy">
<CONSTANT SCC "Sirius Cybernetics Corporation">
<CONSTANT BEAM " matter transference beam">
<CONSTANT FLEET-PLUNGES "The battle fleet plunges toward Earth and">
<CONSTANT ABOVE-NOISE "He can't hear you above the noise.">
<CONSTANT BATTLE-SHORTS " black jewelled battle shorts, ">
<CONSTANT CLOUD-OF-STEAM " in a cloud of green, sweet-smelling steam. ">
<CONSTANT GUIDE-NAME "The Hitchhiker's Guide to the Galaxy">
<CONSTANT ALREADY-KNOW-THAT
" But then again you must already know that, since you bought one.">
<CONSTANT THUMB-CLICKS " Thumb merely makes a few feeble clicking noises.">
<CONSTANT BROWNIAN " Brownian motion">
<CONSTANT ASK-ABOUT-OBJECT
"\"Oh...you're trying to figure that out also? The
manual's not much help, is it? By the way, do you know your score? I don't.
My computer doesn't have a status line.\"">
<CONSTANT DRIVEN-BACK
"You struggle to reach the Thumb, but the wind is too
fierce and you are driven back.">
<CONSTANT GUARDS-REALIZE
"A wisp of an inkling of a thought penetrates the
three-inch thickness of solid bone surrounding the guards' very tiny brains
that something suspicious is going on. ">
<CONSTANT GETTING-CLOSE " You're getting close, though.">
<CONSTANT GPP "Genuine People Personalities">
<CONSTANT ALSO-SEE ". Also see the entries on ">
<CONSTANT JUST-AS
"Just as the Beast is trying to work out where you've disappeared to, it ">
<CONSTANT BUDGE "It won't budge.">
<CONSTANT BEAST-DESC
"You notice the Beast's Lasero-Zap eyes, its Swivel Shear Teeth, and its
several dozen tungsten carbide Vast-Pain claws, forged in the sun furnaces
of Zangrijad. It has skin like a motorway and breath like a 747.">
<CONSTANT NOT-HOLDING "You're not holding">
<CONSTANT WITH-PASSION
" with passion, and ignores a passing microscopic space fleet.">
<CONSTANT DIALING-TONE
" A moment later, the dialing tone is suddenly cut off.
Glancing through the window you can't help but notice the large old oak tree of
which you are particularly fond crashing down through the phone cable.">
<CONSTANT ANNOUNCEMENT "\"Announcement, announcement. This is ">
<CONSTANT HANDS-OFF "The barman snaps \"Hands off until you pay for it!\"">
<CONSTANT ARRESTED "Do you want to get arrested for indecent exposure?">
<CONSTANT AGENCY "Galactic Security Agency">
<CONSTANT LOST-PLANET " the legendary lost planet of Magrathea">
<CONSTANT DONT-MIX
"Despite your hangover, you recall that Zaphod and water don't mix.">
<CONSTANT CROWD-CHEERS "The crowd cheers wildly! It thinks you're terrific.">
<CONSTANT HUMANS "Humans are so depressingly ">
<CONSTANT EYE-STALK "electronic eye stalk shoots up from the hood, ">
<CONSTANT SLOWLY-DAWNS
" Slowly it dawns on the creature that someone is trying to make a fool
of it. It starts to look for you again.">
<CONSTANT IID " Infinite Improbability Drive">
<CONSTANT FIG "finite Improbability Generator">
<CONSTANT ROBOT-FLIES-IN
"A small upper-half-of-the-room cleaning robot flies into the room, ">
<CONSTANT ON-OTHER-SIDE "standing on the other side">
<CONSTANT MOP " the manual override receptacle">
<CONSTANT NICE-DAY
"t's a bright morning, the sun is shining, the birds are
singing, the meadows are blooming">
<CONSTANT GET-RID " you've been trying to get rid of it for years.">
<CONSTANT THUMB-FUMBLE
"You fumble with the Thumb as you hold onto the tree
against the fierce wind. It falls to the ground near Arthur's feet.">
<CONSTANT ENGAGED " all circuits are currently engaged by the ">