2019-04-14 09:17:21 +03:00
|
|
|
"GLOBALS for
|
|
|
|
THE HITCHHIKER'S GUIDE TO THE GALAXY
|
|
|
|
(c) Copyright 1984 Infocom, Inc. All Rights Reserved."
|
|
|
|
|
|
|
|
<DIRECTIONS ;"Do not change the order of the first 8 without consulting MARC!"
|
|
|
|
NORTH NE EAST SE SOUTH SW WEST NW UP DOWN IN OUT>
|
|
|
|
|
|
|
|
<GLOBAL LYING-DOWN <>>
|
|
|
|
|
|
|
|
<GLOBAL HERE <>>
|
|
|
|
|
|
|
|
<GLOBAL LIT <>>
|
|
|
|
|
|
|
|
<GLOBAL MOVES 0>
|
|
|
|
|
|
|
|
<GLOBAL SCORE 0>
|
|
|
|
|
|
|
|
<GLOBAL INDENTS
|
|
|
|
<PTABLE ""
|
|
|
|
" "
|
|
|
|
" "
|
|
|
|
" "
|
|
|
|
" "
|
|
|
|
" ">>
|
|
|
|
|
|
|
|
;"global objects and associated routines"
|
|
|
|
|
|
|
|
<OBJECT GLOBAL-OBJECTS
|
|
|
|
(FLAGS INVISIBLE TOUCHBIT SURFACEBIT TRYTAKEBIT OPENBIT REVISITBIT
|
|
|
|
SEARCHBIT TRANSBIT WEARBIT MUNGEDBIT ONBIT RLANDBIT WORNBIT)>
|
|
|
|
|
|
|
|
<OBJECT LOCAL-GLOBALS
|
|
|
|
(IN GLOBAL-OBJECTS)
|
|
|
|
(SYNONYM ZZMGCK)
|
|
|
|
(DESCFCN 0)
|
|
|
|
(GLOBAL GLOBAL-OBJECTS)
|
|
|
|
(FDESC "F")
|
|
|
|
(LDESC "F")
|
|
|
|
(PSEUDO "FOOBAR" V-WALK)
|
|
|
|
(SIZE 0)
|
|
|
|
(TEXT "")
|
|
|
|
(CAPACITY 0)>
|
|
|
|
;"Yes, this synonym for LOCAL-GLOBALS needs to exist... sigh"
|
|
|
|
|
|
|
|
<OBJECT ROOMS
|
|
|
|
(IN TO ROOMS)>
|
|
|
|
|
|
|
|
<OBJECT INTNUM
|
|
|
|
(IN GLOBAL-OBJECTS)
|
|
|
|
(DESC "number")
|
|
|
|
(SYNONYM INTNUM)
|
|
|
|
(ADJECTIVE NUMBER)>
|
|
|
|
|
|
|
|
<OBJECT PSEUDO-OBJECT
|
|
|
|
(DESC "pseudo")
|
|
|
|
(ACTION ME-F)>
|
|
|
|
|
|
|
|
<OBJECT IT
|
|
|
|
(IN GLOBAL-OBJECTS)
|
|
|
|
(SYNONYM IT THEM HER HIM)
|
|
|
|
(DESC "it")
|
|
|
|
(FLAGS VOWELBIT NARTICLEBIT NDESCBIT TOUCHBIT)>
|
|
|
|
|
|
|
|
<OBJECT NOT-HERE-OBJECT
|
|
|
|
(DESC "it")
|
|
|
|
(FLAGS NARTICLEBIT)
|
|
|
|
(ACTION NOT-HERE-OBJECT-F)>
|
|
|
|
|
|
|
|
<ROUTINE NOT-HERE-OBJECT-F ("AUX" TBL (PRSO? T) OBJ (X <>))
|
|
|
|
<COND (<AND <PRSO? ,NOT-HERE-OBJECT>
|
|
|
|
<PRSI? ,NOT-HERE-OBJECT>>
|
|
|
|
<TELL "Those things aren't here!" CR>
|
|
|
|
<RTRUE>)
|
|
|
|
(<PRSO? ,NOT-HERE-OBJECT>
|
|
|
|
<SET TBL ,P-PRSO>)
|
|
|
|
(T
|
|
|
|
<SET TBL ,P-PRSI>
|
|
|
|
<SET PRSO? <>>)>
|
|
|
|
<COND (.PRSO?
|
|
|
|
<COND (<OR <EQUAL? ,PRSA ,V?FIND ,V?FOLLOW ,V?CALL>
|
|
|
|
<EQUAL? ,PRSA ,V?WHAT ,V?WHERE ,V?WHO>
|
|
|
|
<EQUAL? ,PRSA ,V?WAIT-FOR ,V?WALK-TO ,V?WHAT-ABOUT>
|
|
|
|
<EQUAL? ,PRSA ,V?I-AM ,V?CARVE ,V?CALL-WITH>>
|
|
|
|
<SET X T>
|
|
|
|
<COND (<SET OBJ <FIND-NOT-HERE .TBL .PRSO?>>
|
|
|
|
<COND (<NOT <EQUAL? .OBJ ,NOT-HERE-OBJECT>>
|
|
|
|
<RTRUE>)>)
|
|
|
|
(T
|
|
|
|
<RFALSE>)>)>)
|
|
|
|
|
|
|
|
(T
|
|
|
|
<COND (<OR <EQUAL? ,PRSA ,V?ASK-ABOUT ,V?ASK-FOR ,V?TELL-ABOUT>
|
|
|
|
<EQUAL? ,PRSA ,V?MY-NAME>>
|
|
|
|
<SET X T>
|
|
|
|
<COND (<SET OBJ <FIND-NOT-HERE .TBL .PRSO?>>
|
|
|
|
<COND (<NOT <EQUAL? .OBJ ,NOT-HERE-OBJECT>>
|
|
|
|
<RTRUE>)>)
|
|
|
|
(T
|
|
|
|
<RFALSE>)>)>)>
|
|
|
|
;"Here is the default 'cant see any' printer"
|
|
|
|
<COND (.X
|
|
|
|
<TELL "You'll have to be more specific, I'm afraid." CR>)
|
|
|
|
(<EQUAL? ,WINNER ,PROTAGONIST>
|
|
|
|
<TELL "You can't ">
|
|
|
|
<COND (<EQUAL? ,P-XNAM ,W?POEM ,W?POETRY ,W?CONVER>
|
|
|
|
<TELL "hear">)
|
|
|
|
(T
|
|
|
|
<TELL "see">)>
|
|
|
|
<COND (<NOT <NAME? ,P-XNAM>>
|
|
|
|
<TELL " any">)>
|
|
|
|
<NOT-HERE-PRINT .PRSO?>
|
|
|
|
<TELL " here!" CR>)
|
|
|
|
(<OR <AND <EQUAL? ,WINNER ,FORD>
|
|
|
|
,FORD-SLEEPING>
|
|
|
|
<AND <EQUAL? ,WINNER ,BEAST>
|
|
|
|
<FSET? ,BEAST ,MUNGEDBIT>>>
|
|
|
|
<RFALSE>)
|
|
|
|
(T
|
|
|
|
<TELL "Looking confused,">
|
|
|
|
<ARTICLE ,WINNER T>
|
|
|
|
<TELL " says, \"I don't see">
|
|
|
|
<COND (<NOT <NAME? ,P-XNAM>>
|
|
|
|
<TELL " any">)>
|
|
|
|
<NOT-HERE-PRINT .PRSO?>
|
|
|
|
<TELL " here!\"" CR>)>
|
|
|
|
<FUCKING-CLEAR>>
|
|
|
|
|
|
|
|
<ROUTINE FIND-NOT-HERE (TBL PRSO? "AUX" M-F OBJ)
|
|
|
|
;"Special-case code goes here. <MOBY-FIND .TBL> returns # of matches. If 1,
|
|
|
|
then P-MOBY-FOUND is it. You can treat the 0 and >1 cases alike or differently.
|
|
|
|
Always return RFALSE (not handled) if you have resolved the problem."
|
|
|
|
<SET M-F <MOBY-FIND .TBL>>
|
|
|
|
;<COND (,DEBUG
|
|
|
|
<TELL "[Found " N .M-F " obj]" CR>)>
|
|
|
|
<COND (<EQUAL? 1 .M-F>
|
|
|
|
;<COND (,DEBUG
|
|
|
|
<TELL "[Namely: " D ,P-MOBY-FOUND "]" CR>)>
|
|
|
|
<COND (.PRSO?
|
|
|
|
<SETG PRSO ,P-MOBY-FOUND>)
|
|
|
|
(T
|
|
|
|
<SETG PRSI ,P-MOBY-FOUND>)>
|
|
|
|
<RFALSE>)
|
|
|
|
(<EQUAL? ,P-XNAM ,W?FLUFF>
|
|
|
|
<COND (.PRSO?
|
|
|
|
<SETG PRSO ,POCKET-FLUFF>)
|
|
|
|
(T
|
|
|
|
<SETG PRSI ,POCKET-FLUFF>)>
|
|
|
|
<RFALSE>)
|
|
|
|
(<EQUAL? ,P-XNAM ,W?TOOL ,W?TOOLS>
|
|
|
|
<COND (.PRSO?
|
|
|
|
<SETG PRSO ,TWEEZERS>)
|
|
|
|
(T
|
|
|
|
<SETG PRSI ,TWEEZERS>)>
|
|
|
|
<RFALSE>)
|
|
|
|
(T
|
|
|
|
,NOT-HERE-OBJECT)>>
|
|
|
|
|
|
|
|
<ROUTINE NOT-HERE-PRINT (PRSO?)
|
|
|
|
<COND ;(<NAME? ,P-XNAM>
|
|
|
|
<TELL "one by that name">)
|
|
|
|
(,P-OFLAG
|
|
|
|
<COND (,P-XADJ
|
|
|
|
<TELL " ">
|
|
|
|
<PRINTB ,P-XADJN>)>
|
|
|
|
<COND (,P-XNAM
|
|
|
|
<TELL " ">
|
|
|
|
<PRINTB ,P-XNAM>)>)
|
|
|
|
(.PRSO?
|
|
|
|
<BUFFER-PRINT <GET ,P-ITBL ,P-NC1> <GET ,P-ITBL ,P-NC1L> <>>)
|
|
|
|
(T
|
|
|
|
<BUFFER-PRINT <GET ,P-ITBL ,P-NC2> <GET ,P-ITBL ,P-NC2L> <>>)>>
|
|
|
|
|
|
|
|
<OBJECT LIGHT
|
|
|
|
(IN GLOBAL-OBJECTS)
|
|
|
|
(DESC "light")
|
|
|
|
(SYNONYM LIGHT LIGHTS LAMP)
|
|
|
|
(FLAGS LIGHTBIT)
|
|
|
|
(ACTION LIGHT-F)>
|
|
|
|
|
|
|
|
<ROUTINE LIGHT-F ()
|
|
|
|
<COND (<AND <OR <IN? ,FLEET ,HERE>
|
|
|
|
<EQUAL? ,HERE ,AIRLOCK ,INSIDE-WHALE>>
|
|
|
|
<VISIBLE? ,THUMB>>
|
|
|
|
<COND (<EQUAL? ,LIGHT ,PRSI>
|
|
|
|
<PERFORM ,PRSA ,PRSO ,THUMB>
|
|
|
|
<RTRUE>)
|
|
|
|
(T
|
|
|
|
<PERFORM ,PRSA ,THUMB ,PRSI>
|
|
|
|
<RTRUE>)>)
|
|
|
|
(<EQUAL? ,HERE ,GALLEY>
|
|
|
|
<UNIMPORTANT-THING-F>)
|
|
|
|
(<AND <EQUAL? ,LIGHT ,PRSO>
|
|
|
|
<VERB? FIND FOLLOW WHAT WHERE WALK-TO WHAT-ABOUT>>
|
|
|
|
<RFALSE>)
|
|
|
|
(<AND <EQUAL? ,LIGHT ,PRSI>
|
|
|
|
<VERB? ASK-ABOUT TELL-ABOUT>>
|
|
|
|
<RFALSE>)
|
|
|
|
(<NOT <EQUAL? ,HERE ,BEDROOM>>
|
|
|
|
<CANT-SEE ,LIGHT>)
|
|
|
|
(<VERB? LAMP-ON>
|
|
|
|
<COND (<FSET? ,HERE ,ONBIT>
|
|
|
|
<TELL "It is." CR>)
|
|
|
|
(T
|
|
|
|
<SETG LIT T>
|
|
|
|
<FSET ,HERE ,ONBIT>
|
|
|
|
<FSET ,DARK-OBJECT ,DARKBIT>
|
|
|
|
<MOVE ,DARK-OBJECT ,DARK>
|
|
|
|
<TELL
|
|
|
|
"Good start to the day. Pity it's going to be the worst one of your
|
|
|
|
life. The light is now on." CR CR>
|
|
|
|
<V-LOOK>)>)
|
|
|
|
(<VERB? LAMP-OFF>
|
|
|
|
<V-DIG>)>>
|
|
|
|
|
|
|
|
<OBJECT GLOBAL-SLEEP
|
|
|
|
(IN GLOBAL-OBJECTS)
|
|
|
|
(DESC "sleep")
|
|
|
|
(SYNONYM SLEEP NAP SNOOZE)
|
|
|
|
(FLAGS NARTICLEBIT)
|
|
|
|
(ACTION GLOBAL-SLEEP-F)>
|
|
|
|
|
|
|
|
<ROUTINE GLOBAL-SLEEP-F ()
|
|
|
|
<COND (<VERB? WALK-TO TAKE>
|
|
|
|
<PERFORM ,V?SLEEP>
|
|
|
|
<RTRUE>)>>
|
|
|
|
|
|
|
|
<OBJECT SPEECH
|
|
|
|
(IN GLOBAL-OBJECTS)
|
|
|
|
(DESC "speech")
|
|
|
|
(SYNONYM SPEECH)
|
|
|
|
(ACTION SPEECH-F)>
|
|
|
|
|
|
|
|
<ROUTINE SPEECH-F ()
|
|
|
|
<COND (<VERB? GIVE MAKE>
|
|
|
|
<TELL "This isn't the time">
|
|
|
|
<COND (<NOT <EQUAL? ,HERE ,DAIS>>
|
|
|
|
<TELL " or the place">)>
|
|
|
|
<TELL " for making speeches." CR>)
|
|
|
|
(<VERB? READ>
|
|
|
|
<TELL "It's extemporaneous." CR>)>>
|
|
|
|
|
|
|
|
<OBJECT GROUND
|
|
|
|
(IN GLOBAL-OBJECTS)
|
|
|
|
(SYNONYM FLOOR GROUND MUD)
|
|
|
|
(DESC "ground")
|
|
|
|
(ACTION GROUND-F)>
|
|
|
|
|
|
|
|
<ROUTINE GROUND-F ()
|
|
|
|
<COND (<AND <VERB? THROUGH>
|
|
|
|
<EQUAL? ,HERE ,ACCESS-SPACE>>
|
|
|
|
<TELL "The mesh is too fine." CR>)
|
|
|
|
(<VERB? CLIMB-UP CLIMB-ON CLIMB-FOO BOARD>
|
|
|
|
<V-DIG>)
|
|
|
|
(<VERB? LOOK-UNDER>
|
|
|
|
<V-COUNT>)
|
|
|
|
(<VERB? LEAVE>
|
|
|
|
<DO-WALK ,P?UP>)
|
|
|
|
(<VERB? LIE-DOWN>
|
|
|
|
<COND (<IN? ,PROTAGONIST ,BED>
|
|
|
|
<OUT-OF-FIRST ,BED>)
|
|
|
|
(,LYING-DOWN
|
|
|
|
<TELL ,YOU-ARE CR>)
|
|
|
|
(<EQUAL? ,HERE ,FRONT-OF-HOUSE>
|
|
|
|
<PERFORM ,V?BLOCK ,BULLDOZER>
|
|
|
|
<SETG P-IT-OBJECT ,GROUND>
|
|
|
|
<RTRUE>)
|
|
|
|
(T
|
|
|
|
<SETG LYING-DOWN T>
|
|
|
|
<TELL "You are now lying on the ground." CR>)>)
|
|
|
|
(<VERB? EXAMINE>
|
|
|
|
<COND (<EQUAL? ,HERE ,GUTS-ROOM>
|
|
|
|
<TELL
|
|
|
|
"The walls, floor, and ceiling are covered with little pieces of
|
|
|
|
flesh and bone." CR>)
|
|
|
|
(<EQUAL? ,HERE ,ACCESS-SPACE>
|
|
|
|
<TELL
|
|
|
|
"The floor is an open metal mesh, like the floor of a catwalk." CR>)>)
|
|
|
|
(<AND <VERB? LOOK-INSIDE>
|
|
|
|
<EQUAL? ,HERE ,ACCESS-SPACE>>
|
|
|
|
<PERFORM ,V?LOOK-INSIDE ,FISH-HOLE>
|
|
|
|
<SETG P-IT-OBJECT ,GROUND>
|
|
|
|
<RTRUE>)
|
|
|
|
(<AND <VERB? ENJOY>
|
|
|
|
<EQUAL? ,HERE ,FRONT-OF-HOUSE>
|
|
|
|
,LYING-DOWN>
|
|
|
|
<TELL
|
|
|
|
"It occurs to you that you've never deliberately lain in any mud before and
|
|
|
|
that it's actually a pleasant sort of squishy sensation. You let the mud ooze
|
|
|
|
between your toes. You may be here for some time, so you may as well make the
|
|
|
|
most of it." CR>)>>
|
|
|
|
|
|
|
|
<OBJECT WALLS
|
|
|
|
(IN GLOBAL-OBJECTS)
|
|
|
|
(FLAGS NDESCBIT TOUCHBIT)
|
|
|
|
(DESC "wall")
|
|
|
|
(SYNONYM WALL WALLS)
|
|
|
|
(ACTION WALLS-F)>
|
|
|
|
|
|
|
|
<ROUTINE WALLS-F ()
|
|
|
|
<COND (<AND <VERB? EXAMINE>
|
|
|
|
<EQUAL? ,HERE ,GUTS-ROOM>>
|
|
|
|
<PERFORM ,V?EXAMINE ,GROUND>
|
|
|
|
<RTRUE>)>>
|
|
|
|
|
|
|
|
<OBJECT CEILING
|
|
|
|
(IN GLOBAL-OBJECTS)
|
|
|
|
(FLAGS NDESCBIT TOUCHBIT)
|
|
|
|
(DESC "ceiling")
|
|
|
|
(SYNONYM CEILIN ROOF)
|
|
|
|
(ACTION CEILING-F)>
|
|
|
|
|
|
|
|
<ROUTINE CEILING-F ()
|
|
|
|
<COND (<VERB? LOOK-UNDER>
|
|
|
|
<PERFORM ,V?LOOK>
|
|
|
|
<RTRUE>)
|
|
|
|
(<AND <VERB? EXAMINE>
|
|
|
|
<EQUAL? ,HERE ,GUTS-ROOM>>
|
|
|
|
<PERFORM ,V?EXAMINE ,GROUND>
|
|
|
|
<RTRUE>)>>
|
|
|
|
|
|
|
|
<OBJECT WINDOW
|
|
|
|
(IN LOCAL-GLOBALS)
|
|
|
|
(DESC "window")
|
|
|
|
(SYNONYM WINDOW)
|
|
|
|
(FLAGS TRANSBIT)
|
|
|
|
(ACTION WINDOW-F)>
|
|
|
|
|
|
|
|
<ROUTINE WINDOW-F ()
|
|
|
|
<COND (<NOT ,LIT>
|
|
|
|
<TELL ,TOO-DARK CR>)
|
|
|
|
(<VERB? MUNG>
|
|
|
|
<PERFORM ,V?KILL ,WINDOW>
|
|
|
|
<RTRUE>)
|
|
|
|
(<EQUAL? ,HERE ,BEDROOM>
|
|
|
|
<COND (<VERB? LOOK-INSIDE EXAMINE>
|
|
|
|
<PERFORM ,V?OPEN ,CURTAINS>
|
|
|
|
<RTRUE>)
|
|
|
|
(<VERB? OPEN CLOSE>
|
|
|
|
<TELL
|
|
|
|
"The bloody thing's been jammed shut for months, now." CR>)>)
|
|
|
|
(<VERB? LOOK-INSIDE>
|
|
|
|
<TELL "You see the country lane." CR>)
|
|
|
|
(<VERB? OPEN CLOSE>
|
|
|
|
<TELL ,BUDGE CR>)>>
|
|
|
|
|
|
|
|
<OBJECT STAIRS
|
|
|
|
(IN LOCAL-GLOBALS)
|
|
|
|
(DESC "stairs")
|
|
|
|
(SYNONYM STAIR STAIRS STAIRW GANGWA)
|
|
|
|
(FLAGS NARTICLEBIT NDESCBIT)
|
|
|
|
(ACTION STAIRS-F)>
|
|
|
|
|
|
|
|
<ROUTINE STAIRS-F ()
|
|
|
|
<COND (<VERB? CLIMB-UP CLIMB-FOO>
|
|
|
|
<DO-WALK ,P?UP>)
|
|
|
|
(<VERB? CLIMB-DOWN>
|
|
|
|
<DO-WALK ,P?DOWN>)>>
|
|
|
|
|
|
|
|
<OBJECT AIR
|
|
|
|
(IN GLOBAL-OBJECTS)
|
|
|
|
(DESC "air")
|
|
|
|
(SYNONYM AIR)
|
|
|
|
(FLAGS VOWELBIT)>
|
|
|
|
|
|
|
|
<OBJECT SKY
|
|
|
|
(IN GLOBAL-OBJECTS)
|
|
|
|
(DESC "sky")
|
|
|
|
(SYNONYM SKY)
|
|
|
|
(ACTION SKY-F)>
|
|
|
|
|
|
|
|
<ROUTINE SKY-F ()
|
|
|
|
<COND (<NOT <FSET? ,HERE ,OUTSIDEBIT>>
|
|
|
|
<CANT-SEE ,SKY>)
|
|
|
|
(<AND <IN? ,FLEET ,HERE>
|
|
|
|
<VERB? EXAMINE>>
|
|
|
|
<TELL
|
|
|
|
"The sky is filled with the ships of the " D ,FLEET "." CR>)>>
|
|
|
|
|
|
|
|
<OBJECT STAR
|
|
|
|
(IN GLOBAL-OBJECTS)
|
|
|
|
(DESC "sun")
|
|
|
|
(SYNONYM STAR SUN SYSTEM SOL)
|
|
|
|
(ADJECTIVE APPROA STAR SOLAR SMALL UNREGA YELLOW ORANGE)
|
|
|
|
(FLAGS NDESCBIT)
|
|
|
|
(ACTION STAR-F)>
|
|
|
|
|
|
|
|
<ROUTINE STAR-F ()
|
|
|
|
<COND (<VERB? EXAMINE>
|
|
|
|
<COND (<EQUAL? ,HERE ,WAR-CHAMBER>
|
|
|
|
<TELL
|
|
|
|
"The approaching star is a small, unregarded yellow sun, with nine planets of
|
|
|
|
varying sizes. The " D ,THIRD-PLANET " catches your attention.">
|
|
|
|
<CRLF>)
|
|
|
|
(<EQUAL? ,HERE ,DAIS ,SPEEDBOAT>
|
|
|
|
<TELL "The sun is a smallish orange star." CR>)
|
|
|
|
(<EQUAL? ,HERE ,FRONT-OF-HOUSE ,COUNTRY-LANE ,BACK-OF-HOUSE>
|
|
|
|
<TELL "The sun is a smallish yellow star." CR>)
|
|
|
|
(T
|
|
|
|
<CANT-SEE ,STAR>)>)>>
|
|
|
|
|
|
|
|
<OBJECT HANDS
|
|
|
|
(IN GLOBAL-OBJECTS)
|
|
|
|
(SYNONYM HANDS HAND)
|
|
|
|
(ADJECTIVE BARE MY YOUR)
|
|
|
|
(DESC "your hand")
|
|
|
|
(FLAGS NDESCBIT TOUCHBIT NARTICLEBIT)
|
|
|
|
(ACTION HANDS-F)>
|
|
|
|
|
|
|
|
<ROUTINE HANDS-F (ACTOR)
|
|
|
|
<COND (<VERB? WAVE>
|
|
|
|
<SETG PRSO <>>
|
|
|
|
<PERFORM ,V?WAVE-AT>
|
|
|
|
<RTRUE>)
|
|
|
|
(<VERB? SHAKE>
|
|
|
|
<COND (<SET ACTOR <FIND-IN ,HERE ,ACTORBIT>>
|
|
|
|
<PERFORM ,V?THANK .ACTOR>
|
|
|
|
<RTRUE>)
|
|
|
|
(T
|
|
|
|
<TELL "Pleased to meet you." CR>)>)>>
|
|
|
|
|
|
|
|
<OBJECT TEETH
|
|
|
|
(IN GLOBAL-OBJECTS)
|
|
|
|
(DESC "your teeth")
|
|
|
|
(SYNONYM TEETH)
|
|
|
|
(ADJECTIVE YOUR MY)
|
|
|
|
(FLAGS NARTICLEBIT)>
|
|
|
|
|
|
|
|
<OBJECT HEAD
|
|
|
|
(IN GLOBAL-OBJECTS)
|
|
|
|
(DESC "your head")
|
|
|
|
(SYNONYM HEAD FACE)
|
|
|
|
(ADJECTIVE YOUR MY)
|
|
|
|
(FLAGS NARTICLEBIT)>
|
|
|
|
|
|
|
|
<OBJECT EYES
|
|
|
|
(IN GLOBAL-OBJECTS)
|
|
|
|
(DESC "your eyes")
|
|
|
|
(SYNONYM EYE EYES)
|
|
|
|
(ADJECTIVE YOUR MY)
|
|
|
|
(FLAGS NARTICLEBIT)
|
|
|
|
(ACTION EYES-F)>
|
|
|
|
|
|
|
|
<ROUTINE EYES-F ()
|
|
|
|
<COND (<VERB? OPEN>
|
|
|
|
<TELL "They are." CR>)
|
|
|
|
(<VERB? CLOSE>
|
|
|
|
<COND (<IN? ,BEAST ,HERE>
|
|
|
|
<TELL "The Beast doesn't notice." ,GETTING-CLOSE CR>)
|
|
|
|
(T
|
|
|
|
<TELL "That won't help." CR>)>)>>
|
|
|
|
|
|
|
|
<OBJECT EARS
|
|
|
|
(IN GLOBAL-OBJECTS)
|
|
|
|
(DESC "your ears")
|
|
|
|
(SYNONYM EAR EARS)
|
|
|
|
(ADJECTIVE YOUR MY)
|
|
|
|
(FLAGS NARTICLEBIT)>
|
|
|
|
|
|
|
|
<OBJECT PROTAGONIST
|
|
|
|
(SYNONYM PROTAG)
|
|
|
|
(DESC "it")
|
|
|
|
(FLAGS NDESCBIT INVISIBLE)
|
|
|
|
(ACTION PROTAGONIST-F)>
|
|
|
|
|
|
|
|
<ROUTINE PROTAGONIST-F ()
|
|
|
|
<COND (<AND <PRSO? ,NO-TEA>
|
|
|
|
,PRSI>
|
|
|
|
<NO-TEA-F>)>>
|
|
|
|
|
|
|
|
<OBJECT ME
|
|
|
|
(IN GLOBAL-OBJECTS)
|
|
|
|
(SYNONYM I ME MYSELF SELF)
|
|
|
|
(DESC "yourself")
|
|
|
|
(FLAGS ACTORBIT TOUCHBIT NARTICLEBIT)
|
|
|
|
(ACTION ME-F)>
|
|
|
|
|
|
|
|
<ROUTINE ME-F ("AUX" OLIT)
|
|
|
|
<COND (<VERB? TELL>
|
|
|
|
<TELL
|
|
|
|
"Talking to yourself is a sign of impending mental collapse." CR>
|
|
|
|
<FUCKING-CLEAR>)
|
|
|
|
(<VERB? LISTEN>
|
|
|
|
<TELL "Yes?" CR>)
|
|
|
|
(<VERB? ALARM>
|
|
|
|
<TELL ,YOU-ARE CR>)
|
|
|
|
(<AND <VERB? GIVE>
|
|
|
|
<PRSI? ,ME>>
|
|
|
|
<COND (<AND <IN? ,PRSO ,PROTAGONIST>
|
|
|
|
<NOT <PRSO? ,NO-TEA ,BABEL-FISH>>>
|
|
|
|
<PRE-TAKE>)
|
|
|
|
(T
|
|
|
|
<PERFORM ,V?TAKE ,PRSO>
|
|
|
|
<RTRUE>)>)
|
|
|
|
(<VERB? MOVE>
|
|
|
|
<V-WALK-AROUND>)
|
|
|
|
(<VERB? SEARCH>
|
|
|
|
<V-INVENTORY>
|
|
|
|
<RTRUE>)
|
|
|
|
(<OR <VERB? KILL MUNG>
|
|
|
|
<AND <VERB? SHOOT>
|
|
|
|
<PRSI? ,BLASTER>>>
|
|
|
|
<JIGS-UP "Done.">
|
|
|
|
<RTRUE>)
|
|
|
|
(<VERB? FIND>
|
|
|
|
<TELL "You're right here!" CR>)
|
|
|
|
(<VERB? WHO>
|
|
|
|
<TELL "You are " D ,IDENTITY-FLAG "." CR>)
|
|
|
|
(<AND <VERB? EXAMINE>
|
|
|
|
<EQUAL? ,HERE ,MAZE>>
|
|
|
|
<TELL
|
|
|
|
"You look perfectly normal (except that you're two microns tall)." CR>)
|
|
|
|
(<VERB? PULL-TOGETHER>
|
|
|
|
<TELL ,ZEN CR>)
|
|
|
|
(<VERB? FOLLOW>
|
|
|
|
<TELL
|
|
|
|
"I'd like to, but like most computers I don't have legs." CR>)>>
|
|
|
|
|
|
|
|
<OBJECT GLOBAL-ROOM
|
|
|
|
(IN GLOBAL-OBJECTS)
|
|
|
|
(DESC "room")
|
|
|
|
(SYNONYM ROOM CHAMBER PLACE HALL)
|
|
|
|
(ADJECTIVE AREA)
|
|
|
|
(ACTION GLOBAL-ROOM-F)>
|
|
|
|
|
|
|
|
<ROUTINE GLOBAL-ROOM-F ()
|
|
|
|
<COND (<VERB? LOOK EXAMINE LOOK-INSIDE>
|
|
|
|
<V-LOOK>
|
|
|
|
<RTRUE>)
|
|
|
|
(<VERB? THROUGH WALK-TO>
|
|
|
|
<V-WALK-AROUND>)
|
|
|
|
(<VERB? LEAVE EXIT>
|
|
|
|
<DO-WALK ,P?OUT>)
|
|
|
|
(<VERB? WALK-AROUND>
|
|
|
|
<COND (<EQUAL? ,HERE ,CAPTAINS-QUARTERS>
|
|
|
|
<V-STAND>)
|
|
|
|
(T
|
|
|
|
<TELL
|
|
|
|
"Walking around the room reveals nothing new. To move elsewhere, just type
|
|
|
|
the desired direction." CR>)>)
|
|
|
|
(<VERB? LAMP-ON>
|
|
|
|
<PERFORM ,V?LAMP-ON ,LIGHT>
|
|
|
|
<RTRUE>)>>
|
|
|
|
|
|
|
|
<OBJECT OBJECT-OF-GAME
|
|
|
|
(IN GLOBAL-OBJECTS)
|
|
|
|
(DESC "object of the game")
|
|
|
|
(SYNONYM OBJECT GAME GOAL)
|
|
|
|
(FLAGS VOWELBIT)
|
|
|
|
(ACTION OBJECT-OF-GAME-F)>
|
|
|
|
|
|
|
|
<ROUTINE OBJECT-OF-GAME-F ()
|
|
|
|
<COND (<VERB? WHAT>
|
|
|
|
<TELL "That's for me to know and you to find out." CR>)>>
|
|
|
|
|
|
|
|
<OBJECT CONTROLS
|
|
|
|
(IN LOCAL-GLOBALS)
|
|
|
|
(DESC "the controls")
|
|
|
|
(SYNONYM CONTRO PANEL CONSOL)
|
|
|
|
(ADJECTIVE CONTRO)
|
|
|
|
(FLAGS NARTICLEBIT)
|
|
|
|
(ACTION CONTROLS-F)>
|
|
|
|
|
|
|
|
<ROUTINE CONTROLS-F ()
|
|
|
|
<COND (<VERB? EXAMINE>
|
|
|
|
<COND (<EQUAL? ,HERE ,SPEEDBOAT>
|
|
|
|
<TELL
|
|
|
|
"The only control, other than those related to steering the boat, is the large
|
|
|
|
red " D ,AUTOPILOT-BUTTON ".">
|
|
|
|
<FINE-PRODUCT>
|
|
|
|
<CRLF>)
|
|
|
|
(<EQUAL? ,HERE ,BRIDGE>
|
|
|
|
<TELL
|
|
|
|
"Most of the controls are beyond your comprehension. ">
|
|
|
|
<COND (<IN? ,LARGE-RECEPTACLE ,HERE>
|
|
|
|
<TELL
|
|
|
|
"The simplest one is a " D ,LARGE-RECEPTACLE " of some kind.">
|
|
|
|
<COND (,DRIVE-TO-CONTROLS
|
|
|
|
<TELL " ">
|
|
|
|
<PERFORM ,V?EXAMINE ,LARGE-RECEPTACLE>
|
|
|
|
<RTRUE>)
|
|
|
|
(T
|
|
|
|
<CRLF>)>)
|
|
|
|
(T
|
|
|
|
<TELL
|
|
|
|
"A fused spot shows where a receptacle once was." CR>)>)>)>>
|
|
|
|
|
|
|
|
<OBJECT CONVERSATION
|
|
|
|
(IN LOCAL-GLOBALS)
|
|
|
|
(DESC "conversation")
|
|
|
|
(SYNONYM CONVER)
|
|
|
|
(FLAGS DARKBIT INVISIBLE)
|
|
|
|
(ACTION CONVERSATION-F)>
|
|
|
|
|
|
|
|
<ROUTINE CONVERSATION-F ()
|
|
|
|
<COND (<VERB? LISTEN>
|
|
|
|
<COND (<EQUAL? ,HERE ,FRONT-OF-HOUSE>
|
|
|
|
<TELL "You can't hear anything from here." CR>)
|
|
|
|
(T
|
|
|
|
<PERFORM ,V?LISTEN ,VLHURG>
|
|
|
|
<RTRUE>)>)>>
|
|
|
|
|
|
|
|
<OBJECT GUARDS
|
|
|
|
(IN LOCAL-GLOBALS) ;"just for the purpose of MOBY-FIND"
|
|
|
|
(DESC "one of the guards")
|
|
|
|
(SYNONYM ONE GUARD GUARDS)
|
|
|
|
(ADJECTIVE VOGON)
|
|
|
|
(FLAGS VOWELBIT NARTICLEBIT NDESCBIT ACTORBIT
|
|
|
|
CONTBIT SEARCHBIT OPENBIT)
|
|
|
|
(ACTION GUARDS-F)>
|
|
|
|
|
|
|
|
<ROUTINE GUARDS-F ()
|
|
|
|
<COND (<EQUAL? ,GUARDS ,WINNER>
|
|
|
|
<COND (<AND <VERB? TELL-ABOUT>
|
|
|
|
<PRSO? ,ME>>
|
|
|
|
<SETG WINNER ,PROTAGONIST>
|
|
|
|
<PERFORM ,V?ASK-ABOUT ,GUARDS ,PRSI>
|
|
|
|
<SETG WINNER ,GUARDS>
|
|
|
|
<RTRUE>)
|
|
|
|
(<VERB? HELLO>
|
|
|
|
<SETG WINNER ,PROTAGONIST>
|
|
|
|
<PERFORM ,V?HELLO ,GUARDS>
|
|
|
|
<SETG WINNER ,GUARDS>
|
|
|
|
<RTRUE>)
|
|
|
|
(<EQUAL? ,HERE ,DAIS>
|
|
|
|
<COND (<OR <AND <IN? ,RIFLES ,GUARDS>
|
|
|
|
<VERB? SHOOT>
|
|
|
|
,DONT-FLAG>
|
|
|
|
<AND <IN? ,RIFLES ,GUARDS>
|
|
|
|
<VERB? DROP>
|
|
|
|
<PRSO? ,RIFLES>>>
|
|
|
|
<FCLEAR ,RIFLES ,NDESCBIT>
|
|
|
|
<ENABLE <QUEUE I-GUARDS 8>>
|
|
|
|
<MOVE ,RIFLES ,HERE>
|
|
|
|
<FSET ,RIFLES ,TAKEBIT>
|
|
|
|
<FSET ,RIFLES ,TRYTAKEBIT>
|
|
|
|
<TELL "The guards hesitate, then toss their "
|
|
|
|
D ,RIFLES "s into a pile in front of you." CR>)
|
|
|
|
(<VERB? SHOOT>
|
|
|
|
<COND (<IN? ,RIFLES ,GUARDS>
|
|
|
|
<JIGS-UP
|
|
|
|
"The air becomes thick with photon beams.">)
|
|
|
|
(T
|
|
|
|
<TELL
|
|
|
|
"Someone around here is being very stupid. Let's say it's the guards,
|
|
|
|
since they're only fictitious characters and therefore not potential
|
|
|
|
Infocom customers. The poor fictitious saps don't understand how they
|
|
|
|
can shoot without rifles." CR>)>)
|
|
|
|
(<AND <VERB? TAKE>
|
|
|
|
<PRSO? ,RIFLES>>
|
|
|
|
<COND (<IN? ,RIFLES ,GUARDS>
|
|
|
|
<TELL "\"We already have them!\"" CR>)
|
|
|
|
(T
|
|
|
|
<MOVE ,RIFLES ,GUARDS>
|
|
|
|
<ENABLE <QUEUE I-GUARDS 5>>
|
|
|
|
<TELL "They do so." CR>)>)
|
|
|
|
(<VERB? LEAVE>
|
|
|
|
<TELL
|
|
|
|
"\"We can't leave while you're in trouble, Mr. President!\"" CR>)
|
|
|
|
(T
|
|
|
|
<TELL
|
|
|
|
"You have failed to issue one of the small set of commands that the
|
|
|
|
guards' military intelligences are trained to understand." CR>
|
|
|
|
<FUCKING-CLEAR>)>)
|
|
|
|
(T
|
|
|
|
<COND (<HELD? ,BABEL-FISH ,PROTAGONIST>
|
|
|
|
<TELL "\"Resistance is useless!\"" CR>)
|
|
|
|
(T
|
|
|
|
<TELL "\"I">
|
|
|
|
<PRODUCE-GIBBERISH 1>
|
|
|
|
<CRLF>)>
|
|
|
|
<FUCKING-CLEAR>)>)
|
|
|
|
(<AND <EQUAL? ,HERE ,CAPTAINS-QUARTERS>
|
|
|
|
<VERB? TELL HELLO THANK>>
|
|
|
|
<PERFORM ,V?TELL ,VOGON-CAPTAIN>
|
|
|
|
<RTRUE>)
|
|
|
|
(<AND <EQUAL? ,HERE ,CAPTAINS-QUARTERS>
|
|
|
|
<AND <VERB? ASK-ABOUT ASK-FOR>
|
|
|
|
<EQUAL? ,GUARDS ,PRSO>>>
|
|
|
|
<PERFORM ,V?TELL ,VOGON-CAPTAIN>
|
|
|
|
<RTRUE>)
|
|
|
|
(<AND <VERB? EXAMINE>
|
|
|
|
<IN? ,RIFLES ,GUARDS>>
|
|
|
|
<TELL "They're holding " D ,RIFLES "s." CR>)
|
|
|
|
(<AND <EQUAL? ,HERE ,DAIS>
|
|
|
|
<VERB? SHOOT>>
|
|
|
|
<COND (<BLASTER-HOLD>
|
|
|
|
<RTRUE>)>
|
|
|
|
<TELL ,GUARDS-REALIZE>
|
|
|
|
<JIGS-UP
|
|
|
|
"Although you incinerate many, other guards arrive and incinerate you.">
|
|
|
|
<RTRUE>)
|
|
|
|
(<AND <VERB? GIVE>
|
|
|
|
<PRSO? ,BLASTER>>
|
|
|
|
<TELL "The guards are more than glad to disarm you. They">
|
|
|
|
<GUARD-DEATH>
|
|
|
|
<RTRUE>)
|
|
|
|
(<VERB? COUNT>
|
|
|
|
<COND (<EQUAL? ,HERE ,HOLD>
|
|
|
|
<TELL "One." CR>)
|
|
|
|
(<EQUAL? ,HERE ,CAPTAINS-QUARTERS>
|
|
|
|
<TELL "Several." CR>)
|
|
|
|
(T
|
|
|
|
<TELL "Many." CR>)>)>>
|
|
|
|
|
|
|
|
<ROUTINE WEAPON-PSEUDO ()
|
|
|
|
<COND (<NOT <IN? ,GUARDS ,HERE>>
|
|
|
|
<TELL "What weapon?" CR>)
|
|
|
|
(<VERB? SHOOT>
|
|
|
|
<TELL ,NOT-HOLDING " it." CR>)>>
|
|
|
|
|
|
|
|
<OBJECT FRUSTATION
|
|
|
|
(IN GLOBAL-OBJECTS)
|
|
|
|
(DESC "problem")
|
|
|
|
(SYNONYM FRUSTR PROBLE PUZZLE)
|
|
|
|
(ACTION FRUSTRATION-F)>
|
|
|
|
|
|
|
|
<ROUTINE FRUSTRATION-F ()
|
|
|
|
<COND (<VERB? ENJOY>
|
|
|
|
<TELL ,ZEN CR>)>>
|
|
|
|
|
|
|
|
<ROUTINE UNIMPORTANT-THING-F ()
|
|
|
|
<COND (<AND <VERB? ASK-ABOUT>
|
|
|
|
<PRSO? ,GUIDE>>
|
|
|
|
<RFALSE>)
|
|
|
|
(T
|
|
|
|
<TELL "That's not important; leave it alone." CR>)>>
|
|
|
|
|
|
|
|
;"DONT stuff"
|
|
|
|
|
|
|
|
<ROUTINE DONT-F ()
|
|
|
|
<COND (<VERB? PANIC>
|
|
|
|
<COND (<PROB 50>
|
|
|
|
<TELL
|
|
|
|
"Very clever. It looks like there's a lot you should be panicking about." CR>)
|
|
|
|
(T
|
|
|
|
<TELL
|
|
|
|
"Why not? Your position appears quite hopeless." CR>)>)
|
|
|
|
(<VERB? LOOK>
|
|
|
|
<SETG DONT-FLAG <>>
|
|
|
|
<PERFORM ,V?CLOSE ,EYES>
|
|
|
|
<RTRUE>)
|
|
|
|
(<VERB? WAIT>
|
|
|
|
<TELL "Time doesn't pass..." CR>)
|
|
|
|
(<VERB? TAKE>
|
|
|
|
<TELL "Not taken." CR>)
|
|
|
|
(<AND <VERB? LISTEN>
|
|
|
|
<VISIBLE? ,POETRY>>
|
|
|
|
<SETG DONT-FLAG <>>
|
|
|
|
<PERFORM ,V?LISTEN ,POETRY>
|
|
|
|
<RTRUE>)
|
|
|
|
(T
|
|
|
|
<TELL "Not done." CR>)>>
|
|
|
|
|
|
|
|
;"DARK stuff"
|
|
|
|
|
|
|
|
<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
|
|
|
|
(IN ROOMS)
|
|
|
|
(SYNONYM SUNGLA GLASSE JANTA)
|
|
|
|
(ADJECTIVE JOO JANTA PERIL SENSIT)
|
|
|
|
(DESC "Dark")
|
|
|
|
(FLAGS RLANDBIT ONBIT)
|
|
|
|
(ACTION DARK-F)>
|
|
|
|
|
|
|
|
<ROUTINE DARK-F (RARG)
|
|
|
|
<COND (<EQUAL? .RARG ,M-ENTER>
|
|
|
|
<PUTP ,PROTAGONIST ,P?ACTION ,DARK-FUNCTION>
|
|
|
|
<ROB ,PROTAGONIST ,DARK-OBJECT>
|
|
|
|
<FSET ,CONVERSATION ,INVISIBLE>
|
|
|
|
<SETG DREAMING <>>
|
|
|
|
<SETG LYING-DOWN <>>
|
|
|
|
<REPEAT ()
|
|
|
|
<COND (<PROB ,HEART-PROB>
|
|
|
|
<SETG HEART-PROB 0>
|
|
|
|
<SETG VOGON-PROB 10>
|
|
|
|
<SETG DARK-FLAG ,ENTRY-BAY>
|
|
|
|
<SETG CURRENT-EXIT 3>)
|
|
|
|
(<PROB ,VOGON-PROB>
|
|
|
|
<SETG VOGON-PROB 0>
|
|
|
|
<SETG HEART-PROB 100>
|
|
|
|
<SETG DARK-FLAG ,HOLD>
|
|
|
|
<SETG CURRENT-EXIT 0>)
|
|
|
|
(<PROB ,TRAAL-PROB>
|
|
|
|
<COND (<NOT <EQUAL? ,TRAAL-PROB 10>>
|
|
|
|
<SETG TRAAL-PROB 10>
|
|
|
|
<SETG TRILLIAN-PROB 25>
|
|
|
|
<SETG FORD-PROB 25>
|
|
|
|
<SETG ZAPHOD-PROB 25>)>
|
|
|
|
<SETG DARK-FLAG ,LAIR>
|
|
|
|
<SETG CURRENT-EXIT 4>)
|
|
|
|
(<PROB ,TRILLIAN-PROB>
|
|
|
|
<SETG TRILLIAN-PROB 10>
|
|
|
|
<SETG DARK-FLAG ,LIVING-ROOM>
|
|
|
|
<SETG CURRENT-EXIT 2>)
|
|
|
|
(<PROB ,FORD-PROB>
|
|
|
|
<SETG FORD-PROB 10>
|
|
|
|
<SETG DARK-FLAG ,COUNTRY-LANE>
|
|
|
|
<SETG CURRENT-EXIT 1>)
|
|
|
|
(<PROB ,ZAPHOD-PROB>
|
|
|
|
<SETG ZAPHOD-PROB 10>
|
|
|
|
<SETG DARK-FLAG ,SPEEDBOAT>
|
|
|
|
<SETG CURRENT-EXIT 5>)
|
|
|
|
(<PROB ,FLEET-PROB>
|
|
|
|
<SETG FLEET-PROB 10>
|
|
|
|
<SETG DARK-FLAG ,WAR-CHAMBER>
|
|
|
|
<SETG CURRENT-EXIT 7>)
|
|
|
|
(<PROB ,WHALE-PROB> ;"this should always be 0"
|
|
|
|
<TELL "Bug #60" CR>
|
|
|
|
<SETG DARK-FLAG ,INSIDE-WHALE>
|
|
|
|
<SETG CURRENT-EXIT 6>)>
|
|
|
|
<COND (,DARK-FLAG
|
|
|
|
<RETURN>)>>
|
|
|
|
<RFALSE>)
|
|
|
|
(<EQUAL? .RARG ,M-LOOK>
|
|
|
|
<RTRUE>)>>
|
|
|
|
|
|
|
|
<OBJECT DARK-OBJECT
|
|
|
|
(IN GLOBAL-OBJECTS) ;"gets moved to Dark when you turn on the light"
|
|
|
|
(DESC "darkness")
|
|
|
|
(SYNONYM DARK DARKNE NOTHIN)
|
|
|
|
(FLAGS NDESCBIT NARTICLEBIT)>
|
|
|
|
|
|
|
|
<OBJECT SHADOW
|
|
|
|
(IN LOCAL-GLOBALS)
|
|
|
|
(DESC "shadow")
|
|
|
|
(SYNONYM SHADOW)
|
|
|
|
(FLAGS NDESCBIT)>
|
|
|
|
|
|
|
|
<OBJECT LIQUID
|
|
|
|
(IN LOCAL-GLOBALS)
|
|
|
|
(DESC "liquid")
|
|
|
|
(SYNONYM LIQUID)
|
|
|
|
(ADJECTIVE HOT COLD WARM WET SQUISH)
|
|
|
|
(FLAGS NDESCBIT DRINKBIT)>
|
|
|
|
|
|
|
|
<OBJECT PAINFUL-LIGHT
|
|
|
|
(IN LOCAL-GLOBALS)
|
|
|
|
(DESC "light")
|
|
|
|
(SYNONYM LIGHT)
|
|
|
|
(ADJECTIVE PAINFU BRIGHT)
|
|
|
|
(FLAGS NDESCBIT)>
|
|
|
|
|
|
|
|
<OBJECT STAR-DRIVE
|
|
|
|
(IN LOCAL-GLOBALS)
|
|
|
|
(DESC "star drive")
|
|
|
|
(SYNONYM DRIVE HUM)
|
|
|
|
(ADJECTIVE STAR DEEP DISTANT)
|
|
|
|
(FLAGS NDESCBIT)>
|
|
|
|
|
|
|
|
<ROUTINE DARK-FUNCTION ()
|
|
|
|
<COND (<VERB? QUIT RESTART RESTORE SCORE VERSION SAVE AGAIN HELP
|
|
|
|
VERBOSE BRIEF SUPER-BRIEF SCRIPT UNSCRIPT FOOTNOTE>
|
|
|
|
<>)
|
|
|
|
(,DONT-FLAG
|
|
|
|
<>)
|
|
|
|
(<VERB? PANIC YELL>
|
|
|
|
<TELL
|
|
|
|
"You yell as loudly as you can, but no sound emerges." CR>)
|
|
|
|
(<OR <VERB? RELAX>
|
|
|
|
<AND <VERB? ENJOY>
|
|
|
|
<PRSO? ,DARK-OBJECT>>>
|
|
|
|
<TELL
|
|
|
|
"You achieve a state of Negative Capability, and are able to be in
|
|
|
|
uncertainties, mysteries, doubts, without any irritable searching
|
|
|
|
after fact and reason (Footnote 1)." CR>)
|
|
|
|
(<AND <EQUAL? ,DARK-FLAG ,ENTRY-BAY ,WAR-CHAMBER>
|
|
|
|
<VERB? LISTEN>
|
|
|
|
<PRSO? ,DARK-OBJECT>
|
|
|
|
<MISSING?>>
|
|
|
|
<MOVE ,STAR-DRIVE ,HERE>
|
|
|
|
<SETG P-IT-OBJECT ,STAR-DRIVE>
|
|
|
|
<TELL
|
|
|
|
"You hear the deep and distant hum of a " D ,STAR-DRIVE " coming from far ">
|
|
|
|
<COND (<EQUAL? ,DARK-FLAG ,ENTRY-BAY>
|
|
|
|
<TELL "above">)
|
|
|
|
(T
|
|
|
|
<TELL "below">)>
|
|
|
|
<TELL ". There is an exit to port." CR>)
|
|
|
|
(<AND <VERB? WALK>
|
|
|
|
<MISSING?>
|
|
|
|
<EQUAL? ,DARK-FLAG ,WAR-CHAMBER ,ENTRY-BAY>
|
|
|
|
<IN? ,STAR-DRIVE ,HERE>>
|
|
|
|
<COND (<PRSO? ,P?SOUTH>
|
|
|
|
<COND (<L? ,LYING-COUNTER 4>
|
|
|
|
<TELL ,LYING-ABOUT-EXIT>)>
|
|
|
|
<TELL "You emerge from a small doorway...">
|
|
|
|
<LEAVE-DARK>)
|
|
|
|
(T
|
|
|
|
<TELL ,CANT-GO>
|
|
|
|
<COND (<PRSO? ,P?WEST>
|
|
|
|
<SETG LYING-COUNTER <+ ,LYING-COUNTER 1>>
|
|
|
|
<COND (<EQUAL? ,LYING-COUNTER 4>
|
|
|
|
<TELL
|
|
|
|
" " ,LYING-ABOUT-EXIT "There is an exit aft...">)>)>
|
|
|
|
<CRLF>)>)
|
|
|
|
(<AND <OR <PRSO? ,STAR-DRIVE>
|
|
|
|
<PRSI? ,STAR-DRIVE>>
|
|
|
|
<NOT <VERB? WALK>>>
|
|
|
|
<COND (<NOT <EQUAL? ,DARK-FLAG ,ENTRY-BAY ,WAR-CHAMBER>>
|
|
|
|
<CANT-SEE ,STAR-DRIVE>)
|
|
|
|
(<VERB? LISTEN>
|
|
|
|
<TELL "The sound comes from far ">
|
|
|
|
<COND (<EQUAL? ,DARK-FLAG ,ENTRY-BAY>
|
|
|
|
<TELL "above">)
|
|
|
|
(T
|
|
|
|
<TELL "below">)>
|
|
|
|
<TELL "." CR>)
|
|
|
|
(T
|
|
|
|
<>)>)
|
|
|
|
(<AND <EQUAL? ,DARK-FLAG ,COUNTRY-LANE ,SPEEDBOAT>
|
|
|
|
<VERB? EXAMINE>
|
|
|
|
<PRSO? ,DARK-OBJECT>
|
|
|
|
<MISSING?>>
|
|
|
|
<MOVE ,PAINFUL-LIGHT ,HERE>
|
|
|
|
<SETG P-IT-OBJECT ,PAINFUL-LIGHT>
|
|
|
|
<TELL "You see a painfully bright light that stabs at the ">
|
|
|
|
<COND (<EQUAL? ,DARK-FLAG ,COUNTRY-LANE>
|
|
|
|
<TELL "front">)
|
|
|
|
(T
|
|
|
|
<TELL "back">)>
|
|
|
|
<TELL " of your eyes." CR>)
|
|
|
|
(<AND <OR <PRSO? ,PAINFUL-LIGHT>
|
|
|
|
<PRSI? ,PAINFUL-LIGHT>>
|
|
|
|
<NOT <VERB? WALK>>>
|
|
|
|
<COND (<NOT <EQUAL? ,DARK-FLAG ,SPEEDBOAT ,COUNTRY-LANE>>
|
|
|
|
<CANT-SEE ,PAINFUL-LIGHT>)
|
|
|
|
(<VERB? EXAMINE>
|
|
|
|
<TELL "The light resolves itself into the bright ">
|
|
|
|
<COND (<EQUAL? ,DARK-FLAG ,COUNTRY-LANE>
|
|
|
|
<TELL "yellow Sun of Earth">)
|
|
|
|
(T
|
|
|
|
<TELL "orange Sun of " D ,DAMOGRAN>)>
|
|
|
|
<TELL ".">
|
|
|
|
<LEAVE-DARK>)>)
|
|
|
|
(<AND <EQUAL? ,DARK-FLAG ,LIVING-ROOM ,INSIDE-WHALE>
|
|
|
|
<VERB? RUB>
|
|
|
|
<PRSO? ,DARK-OBJECT>
|
|
|
|
<MISSING?>>
|
|
|
|
<MOVE ,LIQUID ,HERE>
|
|
|
|
<SETG P-IT-OBJECT ,LIQUID>
|
|
|
|
<TELL "It does feel a bit ">
|
|
|
|
<COND (<EQUAL? ,DARK-FLAG ,LIVING-ROOM>
|
|
|
|
<TELL "cold">)
|
|
|
|
(T
|
|
|
|
<TELL "warm">)>
|
|
|
|
<TELL
|
|
|
|
" and wet and squishy. There seems to be some liquid at your fingertips." CR>)
|
|
|
|
(<AND <OR <PRSO? ,LIQUID>
|
|
|
|
<PRSI? ,LIQUID>>
|
|
|
|
<NOT <VERB? WALK>>>
|
|
|
|
<COND (<NOT <EQUAL? ,DARK-FLAG ,LIVING-ROOM ,INSIDE-WHALE>>
|
|
|
|
<CANT-SEE ,LIQUID>)
|
|
|
|
(<EQUAL? ,DARK-FLAG ,LIVING-ROOM>
|
|
|
|
<COND (<VERB? EXAMINE RUB>
|
|
|
|
<TELL "It seems coldish." CR>)
|
|
|
|
(<VERB? TASTE DRINK>
|
|
|
|
<TELL
|
|
|
|
"It tastes just like wine. In fact, you realise with growing embarrassment
|
|
|
|
that " D ,HANDS " is sitting in a " D ,WINE ".">
|
|
|
|
<LEAVE-DARK>)>)
|
|
|
|
(<EQUAL? ,DARK-FLAG ,INSIDE-WHALE>
|
|
|
|
<COND (<VERB? EXAMINE RUB>
|
|
|
|
<TELL "It seems warmish." CR>)
|
|
|
|
(<VERB? TASTE DRINK>
|
|
|
|
<TELL
|
|
|
|
"Yucchhh! You are jerked to your senses by the realisation that you are
|
|
|
|
licking the lining of a whale's stomach.">
|
|
|
|
<LEAVE-DARK>)>)>)
|
|
|
|
(<AND <EQUAL? ,DARK-FLAG ,HOLD ,LAIR>
|
|
|
|
<VERB? SMELL>
|
|
|
|
<PRSO? ,DARK-OBJECT>
|
|
|
|
<MISSING?>>
|
|
|
|
<MOVE ,SHADOW ,HERE>
|
|
|
|
<SETG P-IT-OBJECT ,SHADOW>
|
|
|
|
<TELL "It does smell a bit. There's something pungent ">
|
|
|
|
<COND (<EQUAL? ,DARK-FLAG ,HOLD>
|
|
|
|
<TELL "being waved">)
|
|
|
|
(T
|
|
|
|
<TELL "waving">)>
|
|
|
|
<TELL
|
|
|
|
" under your nose. Your head begins to clear. You can make out a shadow
|
|
|
|
moving in the dark." CR>)
|
|
|
|
(<AND <OR <PRSO? ,SHADOW>
|
|
|
|
<PRSI? ,SHADOW>>
|
|
|
|
<NOT <VERB? WALK>>>
|
|
|
|
<COND (<NOT <EQUAL? ,DARK-FLAG ,HOLD ,LAIR>>
|
|
|
|
<CANT-SEE ,SHADOW>)
|
|
|
|
(<VERB? EXAMINE>
|
|
|
|
<TELL "The shadow is vaguely ">
|
|
|
|
<BEAST-GUARD-FORD>
|
|
|
|
<TELL "-shaped.">
|
|
|
|
<LEAVE-DARK>)
|
|
|
|
(<VERB? RUB>
|
|
|
|
<TELL "The shadow turns out to be a solid object of a ">
|
|
|
|
<BEAST-GUARD-FORD>
|
|
|
|
<TELL "-like nature.">
|
|
|
|
<LEAVE-DARK>)
|
|
|
|
(<VERB? SMELL>
|
|
|
|
<TELL "The shadow has a sort of ">
|
|
|
|
<BEAST-GUARD-FORD>
|
|
|
|
<TELL "y smell to it.">
|
|
|
|
<LEAVE-DARK>)
|
|
|
|
(T
|
|
|
|
<>)>)
|
|
|
|
(T
|
|
|
|
<SETG DARK-COUNTER <+ ,DARK-COUNTER 1>>
|
|
|
|
<COND (,DARK-CONTROLLED
|
|
|
|
<SETG CURRENT-EXIT <+ ,CURRENT-EXIT 1>>
|
|
|
|
<COND (<EQUAL? ,CURRENT-EXIT 8>
|
|
|
|
<SETG CURRENT-EXIT 0>)>
|
|
|
|
<SETG DARK-FLAG <GET ,DARK-EXIT-TABLE ,CURRENT-EXIT>>)>
|
|
|
|
<COND (<VERB? LOOK>
|
|
|
|
<TELL "Dark" CR>)>
|
|
|
|
<COND (<PROB 25>
|
|
|
|
<DARK-ONE>
|
|
|
|
<FUCKING-CLEAR>)
|
|
|
|
(<PROB 33>
|
|
|
|
<DARK-TWO>
|
|
|
|
<FUCKING-CLEAR>)
|
|
|
|
(<PROB 50>
|
|
|
|
<DARK-THREE>
|
|
|
|
<FUCKING-CLEAR>)
|
|
|
|
(T
|
|
|
|
<DARK-FOUR>
|
|
|
|
<FUCKING-CLEAR>)>
|
|
|
|
<COND (<EQUAL? ,DARK-COUNTER 18>
|
|
|
|
<TELL CR
|
|
|
|
"When will you come to your senses and solve this puzzle?" CR>)
|
|
|
|
(<EQUAL? ,DARK-COUNTER 33>
|
|
|
|
<TELL CR
|
|
|
|
"4 out of 5 sensitive people solve this puzzle right away." CR>)
|
|
|
|
(<EQUAL? ,DARK-COUNTER 48>
|
|
|
|
<TELL CR
|
|
|
|
"Don't count your senses before they hatch." CR>)
|
|
|
|
(<AND <EQUAL? ,DARK-COUNTER 63>
|
|
|
|
<EQUAL? ,DARK-FLAG ,HOLD>>
|
|
|
|
<TELL CR
|
|
|
|
"Something stinks around here, and I'm not just talking about your
|
|
|
|
puzzle-solving ability!" CR>)
|
|
|
|
(T
|
|
|
|
<RTRUE>)>)>>
|
|
|
|
|
|
|
|
<GLOBAL DARK-EXIT-TABLE
|
|
|
|
<PTABLE
|
|
|
|
HOLD
|
|
|
|
COUNTRY-LANE
|
|
|
|
LIVING-ROOM
|
|
|
|
ENTRY-BAY
|
|
|
|
LAIR
|
|
|
|
SPEEDBOAT
|
|
|
|
INSIDE-WHALE
|
|
|
|
WAR-CHAMBER>>
|
|
|
|
|
|
|
|
<ROUTINE LEAVE-DARK ()
|
|
|
|
<CRLF> <CRLF>
|
|
|
|
<PUTP ,PROTAGONIST ,P?ACTION ,PROTAGONIST-F>
|
|
|
|
<SETG DARK-COUNTER 0>
|
|
|
|
<SETG LYING-COUNTER 0>
|
|
|
|
<SETG DARK-CONTROLLED <>>
|
|
|
|
<ROB ,DARK-OBJECT ,PROTAGONIST>
|
|
|
|
<ROB ,MEMORIAL ,PROTAGONIST>
|
|
|
|
<MOVE ,SHADOW ,LOCAL-GLOBALS>
|
|
|
|
<MOVE ,PAINFUL-LIGHT ,LOCAL-GLOBALS>
|
|
|
|
<MOVE ,LIQUID ,LOCAL-GLOBALS>
|
|
|
|
<MOVE ,STAR-DRIVE ,LOCAL-GLOBALS>
|
|
|
|
<COND (,FLUFF-TO-GOWN
|
|
|
|
<MOVE ,SATCHEL-FLUFF ,GOWN>
|
|
|
|
<SETG FLUFF-TO-GOWN <>>)>
|
|
|
|
<COND (<AND <EQUAL? ,DARK-FLAG ,WAR-CHAMBER>
|
|
|
|
<FSET? ,WAR-CHAMBER ,REVISITBIT>>
|
|
|
|
<ENABLE <QUEUE I-BRAIN-DEATH 6>>
|
|
|
|
<SETG HERE <META-LOC ,SPARE-DRIVE>>
|
|
|
|
<MOVE ,PROTAGONIST ,HERE>
|
|
|
|
<MOVE ,NAME ,HERE>
|
|
|
|
<SETG GUTS-ROOM ,HERE>
|
|
|
|
<TELL
|
|
|
|
"There is a violent explosion around you, leaving you standing in">
|
|
|
|
<ARTICLE ,HERE T>
|
|
|
|
<TELL ". ">
|
|
|
|
<PERFORM ,V?EXAMINE ,GROUND>
|
|
|
|
<TELL CR
|
|
|
|
"Apparently, you just materialised inside your own brain. This is very very
|
|
|
|
very nasty. You have two choices: quit now, or experience this materialisation
|
|
|
|
from the other end, in about five turns." CR>)
|
|
|
|
(<AND <EQUAL? ,DARK-FLAG ,SPEEDBOAT>
|
|
|
|
<FSET? ,SPEEDBOAT ,REVISITBIT>>
|
|
|
|
<GOTO ,DAIS>)
|
|
|
|
(T
|
|
|
|
<COND (<NOT <EQUAL? ,DARK-FLAG ,ENTRY-BAY>>
|
|
|
|
<MOVE ,MAIN-DRIVE ,LOCAL-GLOBALS>)>
|
|
|
|
<GOTO ,DARK-FLAG>)>
|
|
|
|
<SETG DARK-FLAG <>>
|
|
|
|
<RTRUE>>
|
|
|
|
|
|
|
|
<ROUTINE MISSING? ()
|
|
|
|
<COND (<OR ,DARK-CONTROLLED
|
|
|
|
<G? ,DARK-COUNTER 3>>
|
|
|
|
<RTRUE>)
|
|
|
|
(T
|
|
|
|
<RFALSE>)>>
|
|
|
|
|
|
|
|
<ROUTINE DARK-ONE ()
|
|
|
|
<TELL "You can ">
|
|
|
|
<COND (<NOT <AND <MISSING?>
|
|
|
|
<EQUAL? ,DARK-FLAG ,WAR-CHAMBER ,ENTRY-BAY>>>
|
|
|
|
<TELL "hear nothing, ">)>
|
|
|
|
<COND (<NOT <AND <MISSING?>
|
|
|
|
<EQUAL? ,DARK-FLAG ,HOLD ,LAIR>>>
|
|
|
|
<TELL "smell nothing, ">)>
|
|
|
|
<TELL "taste nothing, ">
|
|
|
|
<COND (<NOT <AND <MISSING?>
|
|
|
|
<EQUAL? ,DARK-FLAG ,COUNTRY-LANE ,SPEEDBOAT>>>
|
|
|
|
<TELL "see nothing, ">)>
|
|
|
|
<COND (<NOT <AND <MISSING?>
|
|
|
|
<EQUAL? ,DARK-FLAG ,LIVING-ROOM ,INSIDE-WHALE>>>
|
|
|
|
<TELL "feel nothing, ">)>
|
|
|
|
<TELL "and are not even certain who you are." CR>>
|
|
|
|
|
|
|
|
<ROUTINE DARK-TWO ()
|
|
|
|
<TELL "You can ">
|
|
|
|
<COND (<NOT <AND <MISSING?>
|
|
|
|
<EQUAL? ,DARK-FLAG ,COUNTRY-LANE ,SPEEDBOAT>>>
|
|
|
|
<TELL "see nothing, ">)>
|
|
|
|
<COND (<NOT <AND <MISSING?>
|
|
|
|
<EQUAL? ,DARK-FLAG ,LIVING-ROOM ,INSIDE-WHALE>>>
|
|
|
|
<TELL "feel nothing, ">)>
|
|
|
|
<COND (<NOT <AND <MISSING?>
|
|
|
|
<EQUAL? ,DARK-FLAG ,WAR-CHAMBER ,ENTRY-BAY>>>
|
|
|
|
<TELL "hear nothing, ">)>
|
|
|
|
<TELL "taste nothing, ">
|
|
|
|
<COND (<NOT <AND <MISSING?>
|
|
|
|
<EQUAL? ,DARK-FLAG ,HOLD ,LAIR>>>
|
|
|
|
<TELL "smell nothing, ">)>
|
|
|
|
<TELL "and are not entirely certain who you are." CR>>
|
|
|
|
|
|
|
|
<ROUTINE DARK-THREE ()
|
|
|
|
<TELL "You can't ">
|
|
|
|
<COND (<NOT <AND <MISSING?>
|
|
|
|
<EQUAL? ,DARK-FLAG ,WAR-CHAMBER ,ENTRY-BAY>>>
|
|
|
|
<TELL "hear anything, ">)>
|
|
|
|
<COND (<NOT <AND <MISSING?>
|
|
|
|
<EQUAL? ,DARK-FLAG ,COUNTRY-LANE ,SPEEDBOAT>>>
|
|
|
|
<TELL "see anything, ">)>
|
|
|
|
<COND (<NOT <AND <MISSING?>
|
|
|
|
<EQUAL? ,DARK-FLAG ,HOLD ,LAIR>>>
|
|
|
|
<TELL "smell anything, ">)>
|
|
|
|
<COND (<NOT <AND <MISSING?>
|
|
|
|
<EQUAL? ,DARK-FLAG ,LIVING-ROOM ,INSIDE-WHALE>>>
|
|
|
|
<TELL "feel anything, ">)>
|
|
|
|
<TELL "or taste anything, and do not even know where you are
|
|
|
|
or who you are or how you got there." CR>>
|
|
|
|
|
|
|
|
<ROUTINE DARK-FOUR ()
|
|
|
|
<TELL "There's nothing you can taste, ">
|
|
|
|
<COND (<NOT <AND <MISSING?>
|
|
|
|
<EQUAL? ,DARK-FLAG ,COUNTRY-LANE ,SPEEDBOAT>>>
|
|
|
|
<TELL "nothing you can see, ">)>
|
|
|
|
<COND (<NOT <AND <MISSING?>
|
|
|
|
<EQUAL? ,DARK-FLAG ,WAR-CHAMBER ,ENTRY-BAY>>>
|
|
|
|
<TELL "nothing you can hear, ">)>
|
|
|
|
<COND (<NOT <AND <MISSING?>
|
|
|
|
<EQUAL? ,DARK-FLAG ,LIVING-ROOM ,INSIDE-WHALE>>>
|
|
|
|
<TELL "nothing you can feel, ">)>
|
|
|
|
<COND (<NOT <AND <MISSING?>
|
|
|
|
<EQUAL? ,DARK-FLAG ,HOLD ,LAIR>>>
|
|
|
|
<TELL "nothing you can smell, ">)>
|
|
|
|
<TELL "you do not even know who you are." CR>>
|
|
|
|
|
|
|
|
<ROUTINE BEAST-GUARD-FORD ()
|
|
|
|
<COND (<EQUAL? ,DARK-FLAG ,LAIR>
|
|
|
|
<TELL "Bugblatter Beast">)
|
|
|
|
(<FSET? ,HOLD ,REVISITBIT>
|
|
|
|
<TELL "guard">)
|
|
|
|
(T
|
|
|
|
<TELL D ,FORD>)>>
|
|
|
|
|
|
|
|
<ROUTINE I-BRAIN-DEATH ()
|
|
|
|
<TELL "The " D ,ARTHUR>
|
|
|
|
<JIGS-UP
|
|
|
|
" of five turns ago suddenly materialises inside your brain. There is an
|
|
|
|
incredibly nasty cracking, scrunching noise, and blood and bone fly everywhere
|
|
|
|
as your head, to be perfectly frank about this, explodes. We did warn you.">
|
|
|
|
<RTRUE>>
|
|
|
|
|
|
|
|
;"tools"
|
|
|
|
|
|
|
|
<OBJECT TOOTHBRUSH
|
|
|
|
(IN BEDROOM)
|
|
|
|
(DESC "toothbrush")
|
|
|
|
(SYNONYM TOOTHB BRUSH TOOL TOOLS)
|
|
|
|
(ADJECTIVE TOOTH MY PROPER)
|
|
|
|
(FLAGS TAKEBIT TRYTAKEBIT TOOLBIT)
|
|
|
|
(SIZE 3)
|
|
|
|
(GENERIC TWEEZERS)
|
|
|
|
(ACTION TOOTHBRUSH-F)>
|
|
|
|
|
|
|
|
<ROUTINE TOOTHBRUSH-F ()
|
|
|
|
<COND (<AND <VERB? TAKE>
|
|
|
|
<NOT <FSET? ,TOOTHBRUSH ,TOUCHBIT>>>
|
|
|
|
<MOVE ,TOOTHBRUSH ,PROTAGONIST>
|
|
|
|
<FSET ,TOOTHBRUSH ,TOUCHBIT>
|
|
|
|
<FCLEAR ,TOOTHBRUSH ,TRYTAKEBIT>
|
|
|
|
<TELL
|
|
|
|
"As you pick up the " D ,TOOTHBRUSH " a tree outside the window collapses.
|
|
|
|
There is no causal relationship between these two events.">
|
|
|
|
<COND (<FSET? ,PHONE ,TOUCHBIT>
|
|
|
|
<TWO-TREES>)>
|
|
|
|
<CRLF>)>>
|
|
|
|
|
|
|
|
<OBJECT SCREWDRIVER
|
|
|
|
(IN BEDROOM)
|
|
|
|
(DESC "flathead screwdriver")
|
|
|
|
(SYNONYM SCREWD TOOL TOOLS)
|
|
|
|
(ADJECTIVE FLATHE PROPER)
|
|
|
|
(FLAGS TAKEBIT TRYTAKEBIT TOOLBIT)
|
|
|
|
(SIZE 3)
|
|
|
|
(GENERIC TWEEZERS)>
|
|
|
|
|
|
|
|
<OBJECT WRENCH
|
|
|
|
(IN TOOLBOX)
|
|
|
|
(DESC "laser-assisted monkey wrench")
|
|
|
|
(SYNONYM WRENCH TOOL TOOLS)
|
|
|
|
(ADJECTIVE LASER ASSIST MONKEY PROPER)
|
|
|
|
(FLAGS TAKEBIT TOOLBIT)
|
|
|
|
(SIZE 3)
|
|
|
|
(GENERIC TWEEZERS)>
|
|
|
|
|
|
|
|
<OBJECT CHISEL
|
|
|
|
(IN PANTRY)
|
|
|
|
(DESC "thermo-fusion chisel")
|
|
|
|
(SYNONYM CHISEL TOOL TOOLS)
|
|
|
|
(ADJECTIVE THERMO FUSION PROPER)
|
|
|
|
(FLAGS TAKEBIT TOOLBIT)
|
|
|
|
(SIZE 3)
|
|
|
|
(GENERIC TWEEZERS)>
|
|
|
|
|
|
|
|
<OBJECT AWL
|
|
|
|
(IN WAR-CHAMBER)
|
|
|
|
(DESC "ultra-plasmic vacuum awl")
|
|
|
|
(SYNONYM AWL TOOL TOOLS)
|
|
|
|
(ADJECTIVE ULTRA PLASMI VACUUM PROPER)
|
|
|
|
(FLAGS TAKEBIT VOWELBIT TOOLBIT)
|
|
|
|
(SIZE 3)
|
|
|
|
(GENERIC TWEEZERS)>
|
|
|
|
|
|
|
|
<OBJECT PLIERS
|
|
|
|
(IN LOCAL-GLOBALS) ;"for purposes of MOBY-FIND"
|
|
|
|
(DESC "pair of hypersonic pliers")
|
|
|
|
(SYNONYM PAIR PLIERS TOOL TOOLS)
|
|
|
|
(ADJECTIVE HYPERS PROPER)
|
|
|
|
(FLAGS TAKEBIT TOOLBIT)
|
|
|
|
(SIZE 3)
|
|
|
|
(GENERIC TWEEZERS)>
|
|
|
|
|
|
|
|
<OBJECT TWEEZERS
|
|
|
|
(IN HANDBAG)
|
|
|
|
(DESC "pair of tweezers")
|
|
|
|
(SYNONYM TWEEZE PAIR TOOL TOOLS)
|
|
|
|
(ADJECTIVE PROPER)
|
|
|
|
(FLAGS TAKEBIT TOOLBIT)
|
|
|
|
(SIZE 3)
|
|
|
|
(GENERIC TWEEZERS)>
|
|
|
|
|
|
|
|
<OBJECT PINCER
|
|
|
|
(IN BRIDGE)
|
|
|
|
(DESC "molecular hyperwave pincer")
|
|
|
|
(SYNONYM PINCER TOOL TOOLS)
|
|
|
|
(ADJECTIVE MOLECU HYPERW PROPER)
|
|
|
|
(FLAGS TAKEBIT TOOLBIT)
|
|
|
|
(SIZE 3)
|
|
|
|
(GENERIC TWEEZERS)>
|
|
|
|
|
|
|
|
<OBJECT RASP
|
|
|
|
(IN LOCAL-GLOBALS) ;"for the sake of MOBY-FIND"
|
|
|
|
(DESC "ionic diffusion rasp")
|
|
|
|
(SYNONYM RASP TOOL TOOLS)
|
|
|
|
(ADJECTIVE IONIC DIFFUS PROPER)
|
|
|
|
(FLAGS TAKEBIT VOWELBIT TOOLBIT)
|
|
|
|
(SIZE 3)
|
|
|
|
(GENERIC TWEEZERS)>
|
|
|
|
|
|
|
|
<OBJECT CHIPPER
|
|
|
|
(IN LOCAL-GLOBALS) ;"for purposes of MOBY-FIND"
|
|
|
|
(DESC "number twelve asteroid paint chipper")
|
|
|
|
(SYNONYM CHIPPE TOOL TOOLS)
|
|
|
|
(ADJECTIVE NUMBER TWELVE ASTERO PAINT PROPER)
|
|
|
|
(FLAGS TAKEBIT TOOLBIT)
|
|
|
|
(SIZE 3)
|
|
|
|
(GENERIC TWEEZERS)>
|
|
|
|
|
|
|
|
<GLOBAL TOOL-LIST
|
|
|
|
<PLTABLE
|
|
|
|
SCREWDRIVER
|
|
|
|
WRENCH
|
|
|
|
CHISEL
|
|
|
|
AWL
|
|
|
|
PLIERS
|
|
|
|
TWEEZERS
|
|
|
|
PINCER
|
|
|
|
RASP
|
|
|
|
CHIPPER
|
|
|
|
TOOTHBRUSH>>
|
|
|
|
|
|
|
|
;"TEA stuff"
|
|
|
|
|
|
|
|
<GLOBAL HOLDING-NO-TEA T>
|
|
|
|
|
|
|
|
<ROUTINE LIQUID-SPILL ()
|
|
|
|
<COND (<PRSI? ,FLOWERPOT ,PLANT>
|
|
|
|
<PERFORM ,V?WATER ,PRSI ,PRSO>
|
|
|
|
<RTRUE>)
|
|
|
|
(T
|
|
|
|
<MOVE ,PRSO ,LOCAL-GLOBALS>
|
2019-04-14 09:18:02 +03:00
|
|
|
<COND (<PRSO? ,BROWNIAN-SOURCE>
|
2019-04-14 09:17:21 +03:00
|
|
|
<SETG BROWNIAN-SOURCE <>>)
|
2019-04-14 09:18:02 +03:00
|
|
|
(<PRSO? ,PANEL-BLOCKER>
|
2019-04-14 09:17:21 +03:00
|
|
|
<SETG PANEL-BLOCKER <>>)>
|
|
|
|
<TELL "It spills all over and then evaporates.">
|
|
|
|
<COND (<PRSO? ,MINERAL-WATER>
|
|
|
|
<ANTI-LITTER "bottle">)
|
|
|
|
(T
|
|
|
|
<ANTI-LITTER "cup">)>
|
|
|
|
<CRLF>)>>
|
|
|
|
|
|
|
|
<ROUTINE ANTI-LITTER (STRING)
|
|
|
|
<TELL " The " .STRING
|
|
|
|
" itself vaporises, part of the Galactic Anti-Litter Program.">>
|
|
|
|
|
|
|
|
<OBJECT TEA
|
|
|
|
(IN PAD)
|
|
|
|
(DESC "tea")
|
|
|
|
(DESCFCN TEA-DESCFCN)
|
|
|
|
(SYNONYM TEA CUP)
|
|
|
|
(ADJECTIVE REAL NICE HOT)
|
|
|
|
(FLAGS NARTICLEBIT TAKEBIT TRYTAKEBIT DRINKBIT)
|
|
|
|
(ACTION TEA-F)>
|
|
|
|
|
|
|
|
<ROUTINE TEA-DESCFCN ("OPTIONAL" X)
|
|
|
|
<DESCRIBE-DRINK ,TEA>>
|
|
|
|
|
|
|
|
<ROUTINE DESCRIBE-DRINK (DRINK)
|
|
|
|
<TELL "There is a nice, hot cup of " D .DRINK " here." CR>>
|
|
|
|
|
|
|
|
<ROUTINE TEA-F ()
|
|
|
|
<COND (<AND <VERB? TAKE>
|
|
|
|
<PRSO? ,TEA>>
|
|
|
|
<MOVE ,TEA ,PROTAGONIST>
|
|
|
|
<SETG HOLDING-NO-TEA <>>
|
|
|
|
<TELL "no tea: Dropped." CR>)
|
|
|
|
(<VERB? DROP>
|
|
|
|
<MOVE ,TEA ,HERE>
|
|
|
|
<COND (<EQUAL? ,HERE ,ACCESS-SPACE>
|
|
|
|
<SETG HOLDING-NO-TEA T>
|
|
|
|
<V-DROP>)
|
|
|
|
(,HOLDING-NO-TEA
|
|
|
|
<TELL "Dropped." CR>)
|
|
|
|
(T
|
|
|
|
<SETG HOLDING-NO-TEA T>
|
|
|
|
<TELL "no tea: Taken." CR>)>)
|
|
|
|
(<VERB? DRINK ENJOY DRINK-FROM>
|
|
|
|
<COND (<NOT <HELD? ,PRSO>>
|
|
|
|
<TELL ,NOT-HOLDING " the cup!" CR>
|
|
|
|
<RTRUE>)>
|
|
|
|
<SETG SCORE <+ ,SCORE 100>>
|
|
|
|
<MOVE ,TEA ,LOCAL-GLOBALS>
|
|
|
|
<SETG HOLDING-NO-TEA T>
|
|
|
|
<COND (<EQUAL? ,TEA ,BROWNIAN-SOURCE>
|
|
|
|
<SETG BROWNIAN-SOURCE <>>)>
|
|
|
|
<TELL
|
|
|
|
"It is the finest tea you have ever tasted. It has almost made this
|
|
|
|
entire misadventure seem worthwhile. You experience several moments
|
|
|
|
of complete happiness and relaxation.">
|
|
|
|
<ANTI-LITTER "cup">
|
|
|
|
<CRLF>)
|
|
|
|
(<VERB? POUR THROW>
|
|
|
|
<LIQUID-SPILL>)
|
|
|
|
(<VERB? EXAMINE LOOK-INSIDE>
|
|
|
|
<TELL
|
|
|
|
,IT-LOOKS-LIKE " it has even more" ,BROWNIAN " than " D ,SUBSTITUTE "!">
|
|
|
|
<COND (<PRSO? ,BROWNIAN-SOURCE>
|
|
|
|
<TELL " ">
|
|
|
|
<PERFORM ,V?EXAMINE ,DANGLY-BIT>
|
|
|
|
<RTRUE>)
|
|
|
|
(T
|
|
|
|
<CRLF>)>)>>
|
|
|
|
|
|
|
|
<OBJECT NO-TEA
|
|
|
|
(IN GLOBAL-OBJECTS)
|
|
|
|
(DESC "no tea")
|
|
|
|
(SYNONYM TEA)
|
|
|
|
(ADJECTIVE NO)
|
|
|
|
(FLAGS NARTICLEBIT TRYTAKEBIT)
|
|
|
|
(ACTION NO-TEA-F)>
|
|
|
|
|
|
|
|
<ROUTINE NO-TEA-F ()
|
2019-04-14 09:18:02 +03:00
|
|
|
<COND (<AND <VERB? TAKE PICK-UP DROP>
|
2019-04-14 09:17:21 +03:00
|
|
|
<PRSO? ,NO-TEA>
|
|
|
|
<NOT <FSET? ,PARTICLE ,MUNGEDBIT>>>
|
|
|
|
<TELL
|
|
|
|
"Your common sense tells you that you can't do that." CR>)
|
2019-04-14 09:18:02 +03:00
|
|
|
(<AND <VERB? TAKE PICK-UP>
|
2019-04-14 09:17:21 +03:00
|
|
|
<PRSO? ,NO-TEA>
|
|
|
|
<NOT ,HOLDING-NO-TEA>>
|
|
|
|
<SETG HOLDING-NO-TEA T>
|
|
|
|
<TELL "no tea: Taken." CR>)
|
|
|
|
(<AND <VERB? SHOW GIVE>
|
|
|
|
<PRSI? ,SCREENING-DOOR>>
|
|
|
|
<RFALSE>)
|
|
|
|
(<AND <VERB? ASK-ABOUT>
|
|
|
|
<PRSO? ,GUIDE>>
|
|
|
|
<RFALSE>)
|
|
|
|
(<AND <VERB? ASK-FOR>
|
|
|
|
<PRSO? ,NUTRIMAT>>
|
|
|
|
<PERFORM ,V?RUB ,PAD>
|
|
|
|
<RTRUE>)
|
|
|
|
(T
|
|
|
|
<TELL
|
|
|
|
"You're talking complete nonsense; pull yourself together." CR>)>>
|
|
|
|
|
|
|
|
<ROUTINE TEA-PRINT (OBJ) ;"tells MAIN-LOOP when to print OBJ: with VERB ALL"
|
|
|
|
<COND (<NOT <EQUAL? .OBJ ,TEA ,NO-TEA>>
|
|
|
|
<RTRUE>)
|
|
|
|
(<VERB? SHOW>
|
|
|
|
<RTRUE>)
|
|
|
|
(<EQUAL? .OBJ ,TEA>
|
|
|
|
<COND (<VERB? TAKE>
|
|
|
|
<COND (<HELD? ,TEA>
|
|
|
|
<RTRUE>)
|
|
|
|
(<AND ,PRSI
|
2019-04-14 09:18:02 +03:00
|
|
|
<NOT <PRSI? <LOC ,PRSO>>>>
|
2019-04-14 09:17:21 +03:00
|
|
|
<RTRUE>)
|
|
|
|
(T
|
|
|
|
<RFALSE>)>)
|
|
|
|
(<AND <VERB? DROP>
|
|
|
|
<NOT ,HOLDING-NO-TEA>>
|
|
|
|
<RFALSE>)>)
|
|
|
|
(<AND <EQUAL? .OBJ ,NO-TEA>
|
|
|
|
<VERB? TAKE>
|
|
|
|
<NOT ,HOLDING-NO-TEA>>
|
|
|
|
<RFALSE>)
|
|
|
|
(T
|
|
|
|
<RTRUE>)>>
|
|
|
|
|
|
|
|
;"THUMB and GUIDE stuff"
|
|
|
|
|
|
|
|
<OBJECT THUMB
|
|
|
|
(IN SATCHEL)
|
|
|
|
(DESC "electronic Sub-Etha signaling device")
|
|
|
|
(SYNONYM THUMB DEVICE SENSO)
|
|
|
|
(ADJECTIVE ELECTR SUB-E SIGNAL SMALL BLACK LITTLE BLINKI)
|
|
|
|
(SIZE 10)
|
|
|
|
(FLAGS TAKEBIT VOWELBIT CONTBIT OPENBIT)
|
|
|
|
(ACTION THUMB-F)>
|
|
|
|
|
|
|
|
<ROUTINE THUMB-F ()
|
|
|
|
<COND (<VERB? EXAMINE>
|
|
|
|
<TELL
|
|
|
|
"The " D ,THUMB " is shaped like a small fist with an extended thumb. Various
|
|
|
|
lights along its \"knuckles\" are currently ">
|
|
|
|
<COND (<OR <IN? ,FLEET ,HERE>
|
|
|
|
<EQUAL? ,HERE ,AIRLOCK ,INSIDE-WHALE>>
|
|
|
|
<TELL
|
|
|
|
"blinking wildly, indicating a spaceship in the vicinity">)
|
|
|
|
(T
|
|
|
|
<TELL "dark">)>
|
|
|
|
<TELL
|
|
|
|
". It has two small buttons, a red one labelled \"Call Engineer\" and a green
|
|
|
|
one labelled \"Hitchhike.\"">
|
|
|
|
<FINE-PRODUCT>
|
|
|
|
<TELL
|
|
|
|
" Affixed to the Thumb is a lifetime " D ,GUARANTEE "." CR>)
|
|
|
|
(<AND <VERB? TAKE>
|
|
|
|
<EQUAL? ,IDENTITY-FLAG ,FORD>
|
|
|
|
<IN? ,FLEET ,HERE>
|
|
|
|
<NOT <IN? ,THUMB ,SATCHEL>>>
|
|
|
|
<TELL ,DRIVEN-BACK CR>)
|
|
|
|
(<VERB? OPEN CLOSE LOOK-INSIDE>
|
|
|
|
<TELL "Impossible." CR>)>>
|
|
|
|
|
|
|
|
<OBJECT RED-BUTTON
|
|
|
|
(IN THUMB)
|
|
|
|
(DESC "red button")
|
|
|
|
(SYNONYM BUTTON)
|
|
|
|
(ADJECTIVE RED SMALL)
|
|
|
|
(FLAGS NDESCBIT INTEGRALBIT)
|
|
|
|
(SIZE 1)
|
|
|
|
(ACTION RED-BUTTON-F)>
|
|
|
|
|
|
|
|
<ROUTINE RED-BUTTON-F ()
|
|
|
|
<COND (<VERB? PUSH>
|
|
|
|
<COND (<NOT <HELD? ,THUMB>>
|
|
|
|
<PERFORM ,V?PUSH ,GREEN-BUTTON>
|
|
|
|
<RTRUE>)
|
|
|
|
(<IN? ,ENGINEER ,HERE>
|
|
|
|
<TELL
|
|
|
|
"Another " D ,ENGINEER " zips up, spots the first one, looks confused,
|
|
|
|
and leaves again." CR>)
|
|
|
|
(T
|
|
|
|
<MOVE ,ENGINEER ,HERE>
|
|
|
|
<MOVE ,BIKE ,HERE>
|
|
|
|
<ENABLE <QUEUE I-ENGINEER 2>>
|
|
|
|
<TELL
|
|
|
|
"With a screech of ion brakes a " ,SCC " Repair Robot pulls up on a bike
|
|
|
|
from out of the Sub-Etha." CR>)>)>>
|
|
|
|
|
|
|
|
<OBJECT GREEN-BUTTON
|
|
|
|
(IN THUMB)
|
|
|
|
(DESC "green button")
|
|
|
|
(SYNONYM BUTTON)
|
|
|
|
(ADJECTIVE GREEN SMALL HITCHH)
|
|
|
|
(FLAGS NDESCBIT INTEGRALBIT)
|
|
|
|
(SIZE 1)
|
|
|
|
(ACTION GREEN-BUTTON-F)>
|
|
|
|
|
|
|
|
<ROUTINE GREEN-BUTTON-F ()
|
|
|
|
<COND (<VERB? PUSH>
|
|
|
|
<COND (<NOT <HELD? ,THUMB>>
|
|
|
|
<TELL ,NOT-HOLDING " the " D ,THUMB "." CR>
|
|
|
|
<SETG P-IT-OBJECT ,THUMB>)
|
|
|
|
(<AND <EQUAL? ,IDENTITY-FLAG ,FORD>
|
|
|
|
<IN? ,FLEET ,HERE>>
|
|
|
|
<MOVE ,THUMB ,HERE>
|
|
|
|
<TELL ,THUMB-FUMBLE CR>)
|
|
|
|
(<FSET? ,THUMB ,MUNGEDBIT>
|
|
|
|
<TELL "The" ,THUMB-CLICKS CR>)
|
|
|
|
(<IN? ,FLEET ,HERE>
|
|
|
|
<COND (<EQUAL? ,DRUNK-LEVEL 3>
|
|
|
|
<TELL
|
|
|
|
"Lights whirl sickeningly around your head, the ground arches away beneath
|
|
|
|
your feet, and every atom of your being is scrambled, an experience you're
|
|
|
|
probably going to have to get used to. You are in..." CR CR>
|
|
|
|
<LEAVE-EARTH>
|
|
|
|
<GOTO ,DARK>)
|
|
|
|
(T
|
|
|
|
<TELL "A" ,BEAM>
|
|
|
|
<JIGS-UP
|
|
|
|
" is certainly a shock to the system. Too bad you didn't consume
|
|
|
|
enough alcohol to withstand it.">
|
|
|
|
<RTRUE>)>)
|
|
|
|
(<EQUAL? ,HERE ,AIRLOCK ,INSIDE-WHALE>
|
|
|
|
<TELL
|
|
|
|
"Every molecule in your body gets pulled away from every other molecule.
|
|
|
|
Then suddenly they snap back together again like elastic, and you find,
|
|
|
|
with a dizzy head and very sore molecules, that you are in..." CR CR>
|
|
|
|
<SETG HEART-PROB 100>
|
|
|
|
<GOTO ,DARK>)
|
|
|
|
(T
|
|
|
|
<FSET ,THUMB ,MUNGEDBIT>
|
|
|
|
<TELL
|
|
|
|
"The Thumb winks and flashes for a second. Nothing further happens." CR>)>)>>
|
|
|
|
|
|
|
|
<OBJECT GUARANTEE
|
|
|
|
(IN THUMB)
|
|
|
|
(DESC "guarantee")
|
|
|
|
(SYNONYM GUARAN WARRAN PLAQUE)
|
|
|
|
(ADJECTIVE LIFETI)
|
|
|
|
(FLAGS NDESCBIT INTEGRALBIT)
|
|
|
|
(SIZE 2)
|
|
|
|
(ACTION GUARANTEE-F)>
|
|
|
|
|
|
|
|
<ROUTINE GUARANTEE-F ()
|
|
|
|
<COND (<VERB? READ EXAMINE>
|
|
|
|
<TELL
|
|
|
|
"The lifetime " D ,GUARANTEE " states that the Thumb will be repaired on site
|
|
|
|
by trained " ,SCC " Field Engineers." CR>)>>
|
|
|
|
|
|
|
|
<OBJECT ENGINEER
|
|
|
|
(IN LOCAL-GLOBALS) ;"just for the purpose of MOBY-FIND"
|
|
|
|
(DESC "Engineer robot")
|
|
|
|
(SYNONYM ROBOT ENGINE)
|
|
|
|
(ADJECTIVE ENGINE)
|
|
|
|
(FLAGS VOWELBIT ACTORBIT CONTBIT OPENBIT SEARCHBIT)
|
|
|
|
(ACTION ENGINEER-F)>
|
|
|
|
|
|
|
|
<ROUTINE ENGINEER-F ()
|
|
|
|
<COND (<EQUAL? ,ENGINEER ,WINNER>
|
|
|
|
<ENABLE <QUEUE I-ENGINEER 2>>
|
|
|
|
<COND (<AND <VERB? TELL-ABOUT>
|
|
|
|
<PRSO? ,ME>>
|
|
|
|
<SETG WINNER ,PROTAGONIST>
|
|
|
|
<PERFORM ,V?ASK-ABOUT ,ENGINEER ,PRSI>
|
|
|
|
<SETG WINNER ,ENGINEER>
|
|
|
|
<RTRUE>)
|
|
|
|
(<VERB? HELLO>
|
|
|
|
<SETG WINNER ,PROTAGONIST>
|
|
|
|
<PERFORM ,V?HELLO ,ENGINEER>
|
|
|
|
<SETG WINNER ,ENGINEER>
|
|
|
|
<RTRUE>)
|
|
|
|
(<AND <VERB? REPAIR>
|
|
|
|
<PRSO? ,THUMB>>
|
|
|
|
<COND (<IN? ,THUMB ,ENGINEER>
|
|
|
|
<TELL "\"I'm doing my best...\"" CR>
|
|
|
|
<RTRUE>)>
|
|
|
|
<SETG WINNER ,PROTAGONIST>
|
|
|
|
<MOVE ,THUMB ,PROTAGONIST>
|
|
|
|
<PERFORM ,V?GIVE ,THUMB ,ENGINEER>
|
|
|
|
<SETG WINNER ,ENGINEER>
|
|
|
|
<RTRUE>)
|
|
|
|
(<VERB? REPAIR>
|
|
|
|
<TELL "\"I repair only " D ,THUMB "s!\"" CR>)
|
|
|
|
(<AND <VERB? YES>
|
|
|
|
<EQUAL? ,AWAITING-REPLY 12>>
|
|
|
|
<V-YES>)
|
|
|
|
(<AND <VERB? NO>
|
|
|
|
<EQUAL? ,AWAITING-REPLY 12>>
|
|
|
|
<V-NO>)
|
|
|
|
(T
|
|
|
|
<TELL
|
|
|
|
"\"Can't chat, pal, I'm attending to an important repair call.\"" CR>
|
|
|
|
<FUCKING-CLEAR>)>)
|
|
|
|
(<AND <VERB? GIVE SHOW>
|
|
|
|
<PRSO? ,THUMB>>
|
|
|
|
<COND (<FSET? ,THUMB ,MUNGEDBIT>
|
|
|
|
<ENABLE <QUEUE I-ENGINEER 2>>
|
|
|
|
<SETG THUMB-SHOWN 1>
|
|
|
|
<MOVE ,THUMB ,ENGINEER>
|
|
|
|
<TELL
|
|
|
|
"The " D ,ENGINEER " takes it, looks at it with horror, shakes his head, sighs,
|
|
|
|
and says \"Who sold you this then?\"" CR CR>
|
|
|
|
<PRINTI ">">
|
|
|
|
<READ ,P-INBUF ,P-LEXV>
|
|
|
|
<TELL
|
|
|
|
"The " D ,ENGINEER " ignores your reply and shakes the Thumb despondently.
|
|
|
|
\"This is a model 13X,\" he says. \"Not meant for this sort of job. Anyway,
|
|
|
|
it's discontinued. Can't get the parts.\"" CR>)
|
|
|
|
(T
|
|
|
|
<MOVE ,THUMB ,PROTAGONIST>
|
|
|
|
<ENGINEER-LEAVE>
|
|
|
|
<TELL
|
|
|
|
"The " D ,ENGINEER " takes the Thumb, shakes it, looks it up and down.
|
|
|
|
\"Seems to be working OK to me. Unusual for a 13X.\" He hands it back
|
|
|
|
and" ,ROARS-OFF "." CR>)>)
|
|
|
|
(<AND <VERB? GIVE SHOW>
|
|
|
|
<PRSO? ,GUARANTEE>>
|
|
|
|
<COND (<NOT <FSET? ,THUMB ,MUNGEDBIT>>
|
|
|
|
<PERFORM ,V?GIVE ,THUMB ,ENGINEER>
|
|
|
|
<RTRUE>)>
|
|
|
|
<FCLEAR ,THUMB ,MUNGEDBIT>
|
|
|
|
<ENGINEER-LEAVE>
|
|
|
|
<MOVE ,THUMB ,PROTAGONIST>
|
|
|
|
<COND (<EQUAL? ,THUMB-SHOWN 0>
|
|
|
|
<TELL
|
|
|
|
"The " D ,ENGINEER " looks quizzically at the " D ,GUARANTEE " and says it's
|
|
|
|
expired but he'll see what he can do. " ,FIDDLES "\"Can't promise anything.\"
|
|
|
|
He" ,ROARS-OFF "." CR>)
|
|
|
|
(T
|
|
|
|
<SETG THUMB-SHOWN 0>
|
|
|
|
<TELL
|
|
|
|
"The " D, ENGINEER " looks at it sceptically. \"Guaranteed to work normally for
|
|
|
|
life,\" he mutters. \"Well, it's perfectly normal for a 13X to break down. And
|
|
|
|
this one's reached the end of its life anyway. But I'll see what I can do.\""
|
|
|
|
CR CR ,FIDDLES "\"Best I can do for a 13X on an expired " D ,GUARANTEE ",\" he
|
|
|
|
says. \"Can't promise anything.\" He" ,ROARS-OFF "." CR>)>)>>
|
|
|
|
|
|
|
|
<GLOBAL ENGINEER-COUNTER 0>
|
|
|
|
|
|
|
|
<GLOBAL THUMB-SHOWN 0>
|
|
|
|
|
|
|
|
<ROUTINE ENGINEER-LEAVE ()
|
|
|
|
<COND (<IN? ,THUMB ,ENGINEER>
|
|
|
|
<COND (<IN? ,ENGINEER ,HERE>
|
|
|
|
<MOVE ,THUMB ,PROTAGONIST>)
|
|
|
|
(T
|
|
|
|
<MOVE ,THUMB <LOC ,ENGINEER>>)>)>
|
|
|
|
<MOVE ,ENGINEER ,LOCAL-GLOBALS>
|
|
|
|
<MOVE ,BIKE ,LOCAL-GLOBALS>
|
|
|
|
<DISABLE <INT I-ENGINEER>>
|
|
|
|
<SETG THUMB-SHOWN 0>
|
|
|
|
<SETG ENGINEER-COUNTER 0>>
|
|
|
|
|
|
|
|
<ROUTINE I-ENGINEER ()
|
|
|
|
<ENABLE <QUEUE I-ENGINEER -1>>
|
|
|
|
<SETG ENGINEER-COUNTER <+ ,ENGINEER-COUNTER 1>>
|
|
|
|
<COND (<NOT <IN? ,ENGINEER ,HERE>>
|
|
|
|
<ENGINEER-LEAVE>
|
|
|
|
<RFALSE>)>
|
|
|
|
<CRLF>
|
|
|
|
<COND (<EQUAL? ,THUMB-SHOWN 1>
|
|
|
|
<SETG THUMB-SHOWN 2>
|
|
|
|
<TELL
|
|
|
|
"The " D ,ENGINEER " ignores you completely. \"See, this is the model with
|
|
|
|
the 5kz booster,\" he says. \"Hopeless.\" He shakes his head grimly." CR>)
|
|
|
|
(<EQUAL? ,THUMB-SHOWN 2>
|
|
|
|
<TELL
|
|
|
|
"The " D ,ENGINEER " ignores you. \"What you want, you see, is one of the new
|
|
|
|
Mk7's. Only you can't get them. Out of stock till Zarkmas. Sorry.\" He">
|
|
|
|
<COND (<IN? ,THUMB ,ENGINEER>
|
|
|
|
<TELL " gives the defunct Thumb back and">)>
|
|
|
|
<ENGINEER-LEAVE>
|
|
|
|
<TELL ,ROARS-OFF "." CR>)
|
|
|
|
(<EQUAL? ,ENGINEER-COUNTER 1>
|
|
|
|
<SETG AWAITING-REPLY 12>
|
|
|
|
<ENABLE <QUEUE I-REPLY 2>>
|
|
|
|
<TELL
|
|
|
|
"The " D, ENGINEER " looks around. \"Somebody call the repair service?\"" CR>)
|
|
|
|
(<EQUAL? ,ENGINEER-COUNTER 2>
|
|
|
|
<TELL
|
|
|
|
"The " D ,ENGINEER " looks impatient and guns the throttle of his cycle." CR>)
|
|
|
|
(T
|
|
|
|
<ENGINEER-LEAVE>
|
|
|
|
<TELL
|
|
|
|
"\"Probably a kid playing around with someone else's Thumb,\" grumbles the "
|
|
|
|
D ,ENGINEER " and" ,ROARS-OFF "." CR>)>>
|
|
|
|
|
|
|
|
<OBJECT BIKE
|
|
|
|
(IN LOCAL-GLOBALS) ;"for purposes of MOBY-FIND"
|
|
|
|
(DESC "bike")
|
|
|
|
(SYNONYM BIKE CYCLE)
|
|
|
|
(ADJECTIVE ION)
|
|
|
|
(FLAGS NDESCBIT TRYTAKEBIT)>
|
|
|
|
|
|
|
|
<OBJECT GUIDE
|
|
|
|
(IN SATCHEL)
|
|
|
|
(DESC "The Hitchhiker's Guide")
|
|
|
|
(DESCFCN GUIDE-DESCFCN)
|
|
|
|
(SYNONYM COPY GUIDE)
|
|
|
|
(ADJECTIVE HITCHH SUB-E)
|
|
|
|
(SIZE 10)
|
|
|
|
(FLAGS NARTICLEBIT TAKEBIT READBIT)
|
|
|
|
(TEXT "Try: CONSULT GUIDE ABOUT (something).")
|
|
|
|
(ACTION GUIDE-F)>
|
|
|
|
|
|
|
|
<ROUTINE GUIDE-DESCFCN ("OPTIONAL" X)
|
|
|
|
<TELL "There is a copy of " ,GUIDE-NAME " here." CR>>
|
|
|
|
|
|
|
|
<ROUTINE GUIDE-F ()
|
|
|
|
<COND (<VERB? EXAMINE>
|
|
|
|
<TELL
|
|
|
|
"The Guide is a Mark II model. Its only resemblance to the Mark IV pictured
|
|
|
|
in the brochure in your game package is the large, friendly \"Don't Panic!\"
|
|
|
|
on its cover.|
|
|
|
|
|
|
|
|
|
The Guide is a Sub-Etha Relay. You can use it to tap information from a huge
|
|
|
|
and distant data bank by consulting the Guide about some item or subject." CR>)
|
|
|
|
(<AND <VERB? ASK-ABOUT>
|
|
|
|
<PRSO? ,GUIDE>>
|
|
|
|
<COND (<FSET? ,TOWEL ,WORNBIT>
|
|
|
|
<TELL ,WITH-TOWEL CR>
|
|
|
|
<RTRUE>)
|
|
|
|
(<PRSI? ,ACCESS-SPACE>
|
|
|
|
<TELL
|
|
|
|
"Suddenly, agents of the " ,AGENCY " pop in using Sub-Etha belts, rough you up
|
|
|
|
a bit, tell you there's no such thing as the " ,AGENCY " and never to consult "
|
|
|
|
D ,GUIDE " about the " ,AGENCY " again; then they leave." CR>
|
|
|
|
<RTRUE>)>
|
|
|
|
<TELL
|
|
|
|
"The Guide checks through its Sub-Etha-Net database and eventually comes
|
|
|
|
up with the following entry:" CR CR>
|
|
|
|
<COND (<PRSI? ,GUIDE>
|
|
|
|
<TELL
|
|
|
|
D ,GUIDE " is a wholly remarkable product." ,ALREADY-KNOW-THAT CR>)
|
|
|
|
(<PRSI? ,DANGLY-BIT ,SMALL-RECEPTACLE ,LARGE-PLUG
|
|
|
|
,SMALL-PLUG ,GREEN-BUTTON ,RED-BUTTON>
|
|
|
|
<TELL "Part of">
|
|
|
|
<COND (<AND <PRSI? ,LARGE-PLUG>
|
|
|
|
<NOT <IN? ,LARGE-PLUG ,SPARE-DRIVE>>>
|
|
|
|
<ARTICLE ,SPARE-DRIVE>)
|
|
|
|
(T
|
|
|
|
<ARTICLE <LOC ,PRSI>>)>
|
|
|
|
<TELL "." CR>)
|
|
|
|
(<PRSI? ,WAR-CHAMBER>
|
|
|
|
<TELL
|
|
|
|
"If you have to consult the Guide about that, you're probably in serious
|
|
|
|
shape. Consult a medic instead." CR>)
|
|
|
|
(<PRSI? ,DAMOGRAN>
|
|
|
|
<TELL
|
|
|
|
D ,DAMOGRAN " is a planet whose surface is mostly water. It is a favourite
|
|
|
|
spot for Presidential dedication ceremonies" ,ALSO-SEE "France." CR>)
|
|
|
|
(<PRSI? ,CLIFF>
|
|
|
|
<TELL
|
|
|
|
"France is the largest landmass on the planet " D ,DAMOGRAN "." CR>)
|
|
|
|
(<PRSI? ,HEART-OF-GOLD>
|
|
|
|
<TELL
|
|
|
|
"There is absolutely no such spaceship as " D ,HEART-OF-GOLD " and anything
|
|
|
|
you've ever read in this spot to the contrary was just a prank.|
|
|
|
|
-- " ,AGENCY CR>)
|
|
|
|
(<PRSI? ,POETRY>
|
|
|
|
<TELL
|
|
|
|
D ,POETRY " is so awful that even the Sarkopsi of Burphon XII, whose religion
|
|
|
|
strictly forbids the taking of one's life, consider suicide a preferable
|
|
|
|
alternative to a " D ,POETRY " reading." CR>)
|
|
|
|
(<PRSI? ,VOGON-CAPTAIN ,FLEET>
|
|
|
|
<TELL
|
|
|
|
"Vogons, whose specialties are bureaucracy and planet-smashing, are the most
|
|
|
|
unpleasant race in the Galaxy. They wouldn't think twice about throwing someone
|
|
|
|
into space, and wouldn't lift a finger to save their own grandmother from the "
|
|
|
|
D ,BEAST ,ALSO-SEE D ,POETRY " and the " D ,BEAST "." CR>)
|
|
|
|
(<PRSI? ,BEER ,PUB>
|
|
|
|
<TELL
|
|
|
|
"Alcohol, in addition to its familiar enjoyable effects, also helps cushion
|
|
|
|
the shock of" ,BEAM "s." CR>)
|
|
|
|
(<PRSI? ,BRIDGE>
|
|
|
|
<TELL
|
|
|
|
"The best randomness generator is simple" ,BROWNIAN ". Any hot gas or
|
|
|
|
liquid is a good source." CR>)
|
|
|
|
(<PRSI? ,GALLEY>
|
|
|
|
<TELL
|
|
|
|
"The " ,SCC " incompetently produces a wide range of inefficient and unreliable
|
|
|
|
high-tech machinery. However, thanks to SCC's ruthless marketing division, this
|
|
|
|
junk accounts for over 95% of the high-tech machinery sold in the Galaxy.
|
|
|
|
(SCC's marketing division will be the first against the wall when the
|
|
|
|
revolution comes.)" CR>)
|
|
|
|
(<PRSI? ,PANTRY>
|
|
|
|
<TELL
|
|
|
|
"Thirty million generations of philosophers have debated the definition of
|
|
|
|
intelligence. The most popular definition appears in the " ,SCC " android
|
|
|
|
manuals: \"Intelligence is the ability to reconcile totally contradictory
|
|
|
|
situations without going completely bonkers -- for example, having a stomach
|
|
|
|
ache and not having a stomach ache at the same time, holding a hole without
|
|
|
|
the doughnut, having good luck and bad luck simultaneously, or seeing a real
|
|
|
|
estate agent waive his fee.\"" CR>)
|
|
|
|
(<PRSI? ,SCREENING-DOOR>
|
|
|
|
<TELL
|
|
|
|
"These " ,SCC " doors screen visitors for such qualities as intelligence
|
|
|
|
and ability to time travel" ,ALSO-SEE ,SCC ", " ,GPP ", Intelligence,
|
|
|
|
and Time Travel." CR>)
|
|
|
|
(<PRSI? ,HATCHWAY ,MARVIN ,EDDIE>
|
|
|
|
<TELL
|
|
|
|
,GPP " are a misguided attempt by the " ,SCC " to make their machines behave
|
|
|
|
more like people. Among the more miserable failures: paranoid-depressive
|
|
|
|
robots and over-protective computers." CR>)
|
|
|
|
(<PRSI? ,DARK>
|
|
|
|
<TELL
|
|
|
|
"A must for the serious hitchhiker, peril-sensitive sunglasses darken at the
|
|
|
|
first hint of danger, thus shielding the wearer from seeing anything alarming.
|
|
|
|
Recommended brand: Joo Janta." CR>)
|
|
|
|
(<PRSI? ,RAMP>
|
|
|
|
<TELL
|
|
|
|
"According to legend, Magrathea was a planet that amassed incredible wealth by
|
|
|
|
manufacturing " D ,OTHER-PLANETS ". The legends also mention it as the setting
|
|
|
|
of the very eagerly awaited second Infocom Hitchhiker's game." CR>)
|
|
|
|
(<PRSI? ,ENGINE-ROOM ,MAIN-DRIVE ,SPARE-DRIVE>
|
|
|
|
<TELL
|
|
|
|
"Scientists have long known how to produce FINITE amounts of improbability,
|
|
|
|
using a " ,FIG ", an " D ,PLOTTER " and a good source of" ,BROWNIAN ".
|
|
|
|
Recently, however, they have learned to generate INFINITE amounts, thanks to
|
|
|
|
the invention of the In" ,FIG ". It is rumored that an" ,IID ", based on this
|
|
|
|
new generator, is currently under development" ,ALSO-SEE D ,PLOTTER " and"
|
|
|
|
,BROWNIAN "." CR>)
|
|
|
|
(<PRSI? ,PLOTTER>
|
|
|
|
<TELL
|
|
|
|
"The " D ,PLOTTER " is one of the primary application devices of
|
|
|
|
Improbability Physics." CR>)
|
|
|
|
(<PRSI? ,PEANUTS ,HOLD>
|
|
|
|
<TELL
|
|
|
|
"Sources of protein, such as the common peanut, are carried by all serious
|
|
|
|
hitchhikers. Protein loss occurs in" ,BEAM "s and you will become groggy
|
|
|
|
unless you replace it immediately." CR>)
|
|
|
|
(<PRSI? ,NUTRIMAT ,NUT-COM-INTERFACE>
|
|
|
|
<TELL
|
|
|
|
"A typically unreliable " ,SCC " product, the " D ,NUTRIMAT " analyses
|
|
|
|
the user's neural paths to provide the (supposedly) ideal offering. Its
|
|
|
|
computing power is frankly abysmal, so the optional computer interface
|
|
|
|
is a good thing to go for.">
|
|
|
|
<CRLF>)
|
|
|
|
(<PRSI? ,POCKET-FLUFF ,JACKET-FLUFF
|
|
|
|
,SATCHEL-FLUFF ,CUSHION-FLUFF>
|
|
|
|
<TELL
|
|
|
|
"Fluff is interesting stuff: a deadly poison on Bodega Minor, the diet staple
|
|
|
|
of Frazelon V, the unit of currency on the moons of the Blurfoid system, and
|
|
|
|
the major crop of the laundry supplies planet, Blastus III.|
|
|
|
|
One ancient legend claims that four pieces of fluff lie scattered around the
|
|
|
|
Galaxy; each forming one-quarter of the seedling of a tree with amazing
|
|
|
|
properties, the sole survivor of the tropical planet Fuzzbol (Footnote 8).|
|
|
|
|
The ultimate source of fluff is still a mystery, with the scientific community
|
|
|
|
torn between the Big Lint Bang theory and the White Lint Hole theory." CR>)
|
|
|
|
(<OR <PRSI? ,ZAPHOD>
|
|
|
|
<AND <PRSI? ,ME>
|
|
|
|
<EQUAL? ,IDENTITY-FLAG ,ZAPHOD>>>
|
|
|
|
<TELL D ,ZAPHOD " is the current" ,PRESIDENT "." CR>)
|
|
|
|
(<PRSI? ,BABEL-FISH>
|
|
|
|
<TELL
|
|
|
|
"A mind-bogglingly improbable creature. A " D ,BABEL-FISH ", when placed in
|
|
|
|
one's ear, allows one to understand any language." CR>)
|
|
|
|
(<PRSI? ,TOWEL>
|
|
|
|
<TELL
|
|
|
|
"A towel is the most useful thing (besides the Guide) a Galactic hitchhiker
|
|
|
|
can have. Its uses include travel, combat, communications, protection from the
|
|
|
|
elements, hand-drying and reassurance. Towels have great symbolic value, with
|
|
|
|
many associated points of honour. Never mock the towel of another, even if it
|
|
|
|
has little pink and blue flowers on it. Never do something to somebody else's
|
|
|
|
towel that you would not want them to do to yours. And, if you borrow the towel
|
|
|
|
of another, you MUST return it before leaving their world." CR>)
|
|
|
|
(<PRSI? ,THUMB ,GUARANTEE>
|
|
|
|
<TELL
|
|
|
|
"The Electronic Sub-Etha Auto Hitching Thumb is a wonderful thing, but should
|
|
|
|
not be mistreated. If used while a ship is near, you will be transported there.
|
|
|
|
If no ship is in the vicinity, you will place a heavy strain on the Thumb's
|
|
|
|
logic circuits, which could lead to malfunction. The Thumb carries the usual "
|
|
|
|
,SCC " lifetime " D ,GUARANTEE "s." CR>)
|
|
|
|
(<PRSI? ,MINERAL-WATER>
|
|
|
|
<TELL
|
|
|
|
"A strong body of opinion holds that this is not water at all, despite the
|
|
|
|
claims on the label about how pure the spring is, and all that tosh about
|
|
|
|
sparkling babbling brooks and so on. There is something highly suspect about
|
|
|
|
the water on Santraginus Five, as anyone who's ever met any of their fish
|
|
|
|
will tell you." CR>)
|
|
|
|
(<PRSI? ,BEAST>
|
|
|
|
<TELL
|
|
|
|
"The " D ,BEAST " is a mind-bogglingly stupid animal. It has almost no capacity
|
|
|
|
for learning from experience and is therefore surprised by virtually everything
|
|
|
|
that happens to it. Here is an example of how stupid it is: it thinks that if
|
|
|
|
you can't see it, it can't see you.|
|
|
|
|
Its behaviour would be quite endearing if it wasn't spoilt by this one
|
|
|
|
thing: it is the most violently carnivorous creature in the Galaxy. Avoid,
|
|
|
|
avoid, avoid." CR>)
|
|
|
|
(<PRSI? ,FRONT-PORCH>
|
|
|
|
<TELL
|
|
|
|
"A thoroughly unpleasant means of travelling which involves tearing you apart
|
|
|
|
in one place and slamming you back together in another. (Of course, it's
|
|
|
|
better than the older method, where disassembled people would be transmitted
|
|
|
|
down phone lines and arrive in a garbled and sometimes completely disconnected
|
|
|
|
state.) You should have a drink or two or three before going through one"
|
|
|
|
,ALSO-SEE "Galaxia Woonbeam, Alcohol, and Protein." CR>)
|
|
|
|
(<PRSI? ,FRONT-OF-HOUSE>
|
|
|
|
<TELL
|
|
|
|
"Galaxia Woonbeam is the author of \"Slimmer's Guide to Weightloss During
|
|
|
|
Matter Disassembly Transition.\" This text is currently the subject of the
|
|
|
|
biggest suit for criminal negligence damages in history and is unavailable
|
|
|
|
at this time." CR>)
|
|
|
|
(<PRSI? ,ENTRY-BAY>
|
|
|
|
<TELL
|
|
|
|
"The best drink in existence; somewhat like having your brains smashed out by
|
|
|
|
a slice of lemon wrapped around a large gold brick." CR>)
|
|
|
|
(<PRSI? ,THIRD-PLANET ,MAZE>
|
|
|
|
<TELL "Mostly harmless." CR>)
|
|
|
|
(<PRSI? ,COUNTRY-LANE>
|
|
|
|
<TELL ,SPACE-TEXT CR>)
|
|
|
|
(<FSET? ,PRSI ,TOOLBIT>
|
|
|
|
<TELL
|
|
|
|
"The editor responsible for entries under this heading has been out to lunch
|
|
|
|
for a couple of years but is expected back soon, at which point there will be
|
|
|
|
rapid updates. Until then, don't panic, unless your situation is really a life
|
|
|
|
or death one, in which case, sure, go ahead, panic." CR>)
|
|
|
|
(<PRSI? ,BEDROOM ,RIFLES ,BLASTER ,TEA ,NO-TEA ,BEAST-GUN
|
|
|
|
,SUBSTITUTE ,AFT-CORRIDOR ,AIRLOCK ,INSIDE-WHALE>
|
|
|
|
<TELL
|
|
|
|
"Sorry, that portion of our Sub-Etha database was accidentally deleted last
|
|
|
|
night during a wild office party. The lost data will be restored as soon as
|
|
|
|
we find someone who knows where the back-up tapes are kept, if indeed any
|
|
|
|
are kept at all." CR>)
|
|
|
|
(T
|
|
|
|
<TELL
|
|
|
|
"That is one of the Great Unanswered Questions. For a list of the others,
|
|
|
|
consult the Guide." CR>)>)>>
|
|
|
|
|
|
|
|
<GLOBAL 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.">
|
|
|
|
|
|
|
|
;"shared stuff"
|
|
|
|
|
|
|
|
<ROUTINE CANT-SEE (OBJ)
|
|
|
|
<TELL "You can't see">
|
|
|
|
<COND (<NOT <NAME? .OBJ>>
|
|
|
|
<TELL " any">)>
|
|
|
|
<COND (<EQUAL? .OBJ ,PRSO>
|
|
|
|
<PRSO-PRINT>)
|
|
|
|
(T
|
|
|
|
<PRSI-PRINT>)>
|
|
|
|
<TELL " here." CR>
|
|
|
|
<FUCKING-CLEAR>>
|
|
|
|
|
|
|
|
<ROUTINE TELL-ME-HOW ()
|
|
|
|
<TELL "You must tell me how to do that to">
|
|
|
|
<ARTICLE ,PRSO>
|
|
|
|
<TELL "." CR>>
|
|
|
|
|
|
|
|
<ROUTINE OUT-OF-FIRST (VEHICLE)
|
|
|
|
<TELL "You'll have to get out of the " D .VEHICLE " first." CR>>
|
|
|
|
|
|
|
|
<ROUTINE PRIVATE (STRING)
|
|
|
|
<TELL
|
|
|
|
"You can't. It's not yours. It's " .STRING "'s and it's private." CR>>
|
|
|
|
|
|
|
|
<ROUTINE NOT-VERY-GOOD (STRING)
|
|
|
|
<TELL "It's not a very good " .STRING ", is it?" CR>>
|
|
|
|
|
|
|
|
<ROUTINE FACTOR (STRING)
|
|
|
|
<TELL
|
|
|
|
" at an improbability factor of 2 to the " .STRING "th power to 1 against.">>
|
|
|
|
|
|
|
|
<ROUTINE REMOVING-BIT ()
|
|
|
|
<TELL "(removing the " D ,DANGLY-BIT " first)" CR>>
|
|
|
|
|
|
|
|
<ROUTINE PART-OF ()
|
|
|
|
<TELL "You can't --">
|
|
|
|
<ARTICLE ,PRSO T>
|
|
|
|
<TELL " is an integral part of">
|
|
|
|
<ARTICLE <LOC ,PRSO> T>
|
|
|
|
<TELL "." CR>>
|
|
|
|
|
|
|
|
<ROUTINE BUT-THAT-MAN (STRING)
|
|
|
|
<TELL
|
|
|
|
"Pointing toward Prosser, " .STRING " \"But that man ">
|
|
|
|
<COND (,HOUSE-DEMOLISHED
|
|
|
|
<TELL "just knocked">)
|
|
|
|
(T
|
|
|
|
<TELL "wants to knock">)>
|
|
|
|
<TELL " my house down!\"">>
|
|
|
|
|
|
|
|
<ROUTINE CUSHION ()
|
|
|
|
<TELL
|
|
|
|
" cushion your system against the coming shock of the" ,BEAM ".">>
|
|
|
|
|
|
|
|
<ROUTINE FINE-PRODUCT ()
|
|
|
|
<TELL " It bears a small label which reads \"Another fine product
|
|
|
|
of the " ,SCC ".\"">>
|
|
|
|
|
|
|
|
<ROUTINE MAKE-WAY-FOR ()
|
|
|
|
<TELL
|
|
|
|
" a " D ,FLEET " unexpectedly arrives and demolishes the Earth to make way
|
|
|
|
for a new hyperspace bypass." CR>>
|
|
|
|
|
|
|
|
<ROUTINE OWN-FEET ()
|
|
|
|
<TELL "You are now on your feet." CR>>
|
|
|
|
|
|
|
|
<GLOBAL DOWN-WELL "It goes down well.">
|
|
|
|
|
|
|
|
<GLOBAL NOT-PLUGGED "It's not plugged into anything!">
|
|
|
|
|
|
|
|
<GLOBAL LYING-ABOUT-EXIT "(We were lying about the exit to port.) ">
|
|
|
|
|
|
|
|
<GLOBAL ROARS-OFF " roars off on his ion bike into the Sub-Etha">
|
|
|
|
|
|
|
|
<GLOBAL FIDDLES
|
|
|
|
"He fiddles with the Thumb for a moment or two before handing it back. ">
|
|
|
|
|
|
|
|
<GLOBAL LOOK-AROUND "Look around you.">
|
|
|
|
|
|
|
|
<GLOBAL TOO-DARK "It's too dark to see!">
|
|
|
|
|
|
|
|
<GLOBAL CANT-GO "You can't go that way.">
|
|
|
|
|
|
|
|
<GLOBAL YOU-ARE "You already are!">
|
|
|
|
|
|
|
|
<GLOBAL ALREADY-OPEN "It is already open.">
|
|
|
|
|
|
|
|
<GLOBAL ALREADY-CLOSED "It is already closed.">
|
|
|
|
|
|
|
|
<GLOBAL REFERRING "I don't see what you're referring to.">
|
|
|
|
|
|
|
|
<GLOBAL WHILE-LYING "You can't do that while you're lying down!">
|
|
|
|
|
|
|
|
<GLOBAL WITH-TOWEL "With a towel wrapped around your head!?!">
|
|
|
|
|
|
|
|
<GLOBAL ZEN "A brave, Zen-like effort. It fails.">
|
|
|
|
|
|
|
|
<GLOBAL BULLDOZER-PILES "The bulldozer piles into the side of your home.">
|
|
|
|
|
|
|
|
<GLOBAL IT-LOOKS-LIKE "It looks like">
|
|
|
|
|
|
|
|
<GLOBAL CLAWS " its tungsten carbide Vast-Pain claws">
|
|
|
|
|
|
|
|
<GLOBAL PRESIDENT " President of the Galaxy">
|
|
|
|
|
|
|
|
<GLOBAL SCC "Sirius Cybernetics Corporation">
|
|
|
|
|
|
|
|
<GLOBAL BEAM " matter transference beam">
|
|
|
|
|
|
|
|
<GLOBAL FLEET-PLUNGES "The battle fleet plunges toward Earth and">
|
|
|
|
|
|
|
|
<GLOBAL ABOVE-NOISE "He can't hear you above the noise." >
|
|
|
|
|
|
|
|
<GLOBAL BATTLE-SHORTS " black jewelled battle shorts, ">
|
|
|
|
|
|
|
|
<GLOBAL CLOUD-OF-STEAM " in a cloud of green, sweet-smelling steam. ">
|
|
|
|
|
|
|
|
<GLOBAL GUIDE-NAME "The Hitchhiker's Guide to the Galaxy">
|
|
|
|
|
|
|
|
<GLOBAL ALREADY-KNOW-THAT
|
|
|
|
" But then again you must already know that, since you bought one.">
|
|
|
|
|
|
|
|
<GLOBAL THUMB-CLICKS " Thumb merely makes a few feeble clicking noises.">
|
|
|
|
|
|
|
|
<GLOBAL BROWNIAN " Brownian motion">
|
|
|
|
|
|
|
|
<GLOBAL 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.\"">
|
|
|
|
|
|
|
|
<GLOBAL DRIVEN-BACK "You struggle to reach the Thumb, but the wind is too
|
|
|
|
fierce and you are driven back.">
|
|
|
|
|
|
|
|
<GLOBAL 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. ">
|
|
|
|
|
|
|
|
<GLOBAL GETTING-CLOSE " You're getting close, though.">
|
|
|
|
|
|
|
|
<GLOBAL GPP "Genuine People Personalities">
|
|
|
|
|
|
|
|
<GLOBAL ALSO-SEE ". Also see the entries on ">
|
|
|
|
|
|
|
|
<GLOBAL JUST-AS
|
|
|
|
"Just as the Beast is trying to work out where you've disappeared to, it ">
|
|
|
|
|
|
|
|
<GLOBAL BUDGE "It won't budge.">
|
|
|
|
|
|
|
|
<GLOBAL 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.">
|
|
|
|
|
|
|
|
<GLOBAL NOT-HOLDING "You're not holding">
|
|
|
|
|
|
|
|
<GLOBAL WITH-PASSION
|
|
|
|
" with passion, and ignores a passing microscopic space fleet.">
|
|
|
|
|
|
|
|
<GLOBAL DIALLING-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.">
|
|
|
|
|
|
|
|
<GLOBAL ANNOUNCEMENT "\"Announcement, announcement. This is ">
|
|
|
|
|
|
|
|
<GLOBAL HANDS-OFF "The barman snaps \"Hands off until you pay for it!\"">
|
|
|
|
|
|
|
|
<GLOBAL ARRESTED "Do you want to get arrested for indecent exposure?">
|
|
|
|
|
|
|
|
<GLOBAL AGENCY "Galactic Security Agency">
|
|
|
|
|
|
|
|
<GLOBAL LOST-PLANET " the legendary lost planet of Magrathea">
|
|
|
|
|
|
|
|
<GLOBAL DONT-MIX
|
|
|
|
"Despite your hangover, you recall that Zaphod and water don't mix.">
|
|
|
|
|
|
|
|
<GLOBAL CROWD-CHEERS "The crowd cheers wildly! It thinks you're terrific.">
|
|
|
|
|
|
|
|
<GLOBAL HUMANS "Humans are so depressingly ">
|
|
|
|
|
|
|
|
<GLOBAL EYE-STALK "electronic eye stalk shoots up from the hood, ">
|
|
|
|
|
|
|
|
<GLOBAL 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.">
|
|
|
|
|
|
|
|
<GLOBAL IID " Infinite Improbability Drive">
|
|
|
|
|
|
|
|
<GLOBAL FIG "finite Improbability Generator">
|
|
|
|
|
|
|
|
<GLOBAL ROBOT-FLIES-IN
|
|
|
|
"A small upper-half-of-the-room cleaning robot flies into the room, ">
|
|
|
|
|
|
|
|
<GLOBAL ON-OTHER-SIDE "standing on the other side">
|
|
|
|
|
|
|
|
<GLOBAL MOP " the manual override receptacle">
|
|
|
|
|
|
|
|
<GLOBAL NICE-DAY "t's a bright morning, the sun is shining, the birds are
|
|
|
|
singing, the meadows are blooming">
|
|
|
|
|
|
|
|
<GLOBAL GET-RID " you've been trying to get rid of it for years.">
|
|
|
|
|
|
|
|
<GLOBAL 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.">
|
|
|
|
|
|
|
|
<GLOBAL ENGAGED " all circuits are currently engaged by the ">
|