3817 lines
80 KiB
Plaintext
3817 lines
80 KiB
Plaintext
"VERBS for TRINITY: (C)1986 Infocom, Inc. All Rights Reserved."
|
|
|
|
; <ROUTINE V-$CHEAT ("AUX" X)
|
|
<COND (<PRSO? INTNUM>
|
|
<COND (<ZERO? ,P-NUMBER>
|
|
<GET-THING ,OCRANE>
|
|
<GET-THING ,PARASOL>
|
|
<GET-THING ,GNOMON>
|
|
<UNMAKE ,PARASOL ,OPENED>
|
|
<DEQUEUE I-MEEP>
|
|
<DEQUEUE I-AIR-RAID>
|
|
<DEQUEUE I-BWOMAN>
|
|
<DEQUEUE I-BOY>
|
|
<DEQUEUE I-CRANE-APPEARS>
|
|
<SET X <GO-INTO-LWDOOR>>
|
|
<RFATAL>)
|
|
(<EQUAL? ,P-NUMBER 1>
|
|
<SET TR? T>
|
|
<ENDGAME>
|
|
<RTRUE>)
|
|
(<EQUAL? ,P-NUMBER 2>
|
|
<REMOVE ,COIN>
|
|
<MOVE ,SCOIN ,POCKET>
|
|
<GO-TO-SHACK>
|
|
<GET-THING ,WTK>
|
|
<GET-THING ,BAG>
|
|
<GET-THING ,LAMP>
|
|
<SETG BEAM 10>
|
|
<SETG CCNT 4>
|
|
<GET-THING ,CAGE>
|
|
<EXIT-MAGPIE>
|
|
<MOVE ,LEM ,CAGE>
|
|
<QUEUE I-LEM -1>
|
|
<GET-THING ,RBOOT>
|
|
<MAKE ,RBOOT ,WORN>
|
|
<GET-THING ,GBOOT>
|
|
<MAKE ,GBOOT ,WORN>
|
|
<MAKE ,GBOOT ,CHILLY>
|
|
<MAKE ,TS6-DOOR ,OPENED>
|
|
<MEEP-TO-ZERO>
|
|
<GOTO ,IN-SHACK>
|
|
<RTRUE>)>)>
|
|
<DONT-UNDERSTAND>
|
|
<RTRUE>>
|
|
|
|
; <ROUTINE GET-THING (OBJ)
|
|
<COND (<NOT <GOT? .OBJ>>
|
|
<MOVE .OBJ ,PLAYER>
|
|
<MAKE .OBJ ,TOUCHED>
|
|
<UNMAKE .OBJ ,NODESC>
|
|
<UNMAKE .OBJ ,NOALL>
|
|
<COND (<GETP .OBJ ,P?VALUE>
|
|
<PUTP .OBJ ,P?VALUE 0>
|
|
<INC SCORE>)>)>
|
|
<RTRUE>>
|
|
|
|
; <ROUTINE V-$IT ()
|
|
<TELL "[IT = ">
|
|
<SAY-IT ,P-IT-OBJECT>
|
|
<TELL ", THEM = ">
|
|
<SAY-IT ,P-THEM-OBJECT>
|
|
<TELL ", HIM = ">
|
|
<SAY-IT ,P-HIM-OBJECT>
|
|
<TELL ", HER = ">
|
|
<SAY-IT ,P-HER-OBJECT>
|
|
<TELL "]" CR>>
|
|
|
|
; <ROUTINE SAY-IT (OBJ "AUX" (CNT 0))
|
|
<REPEAT ()
|
|
<COND (<EQUAL? .CNT 12>
|
|
<RETURN>)
|
|
(<EQUAL? .OBJ <GET ,IT-DIRS .CNT>>
|
|
<TELL "INTDIR">
|
|
<RTRUE>)>
|
|
<SET CNT <+ .CNT 1>>>
|
|
<COND (<EQUAL? .OBJ ,ROOMS>
|
|
<TELL "ROOMS">)
|
|
(<T? .OBJ>
|
|
<TELL D .OBJ>)
|
|
(T
|
|
<TELL "<>">)>>
|
|
|
|
; <GLOBAL IT-DIRS:TABLE
|
|
<PTABLE P?NORTH P?NE P?EAST P?SE P?SOUTH P?SW P?WEST P?NW
|
|
P?UP P?DOWN P?IN P?OUT>>
|
|
|
|
; <ROUTINE SAY-WORD (WORD)
|
|
<COND (<ZERO? .WORD>
|
|
<TELL "<>">)
|
|
(T
|
|
<PRINTB .WORD>)>
|
|
<RTRUE>>
|
|
|
|
<GLOBAL VERBOSITY:NUMBER 1> "0 = super, 1 = brief, 2 = verbose."
|
|
|
|
<ROUTINE V-VERBOSE ()
|
|
<COND (<WRONG-WINNER?>
|
|
<RFATAL>)>
|
|
<SETG VERBOSITY 2>
|
|
<TELL "[Maximum verbosity.]" CR CR>
|
|
<V-LOOK>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-BRIEF ()
|
|
<COND (<WRONG-WINNER?>
|
|
<RFATAL>)>
|
|
<SETG VERBOSITY 1>
|
|
<TELL "[Brief descriptions.]" CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SUPER-BRIEF\ ()
|
|
<COND (<WRONG-WINNER?>
|
|
<RFATAL>)>
|
|
<SETG VERBOSITY 0>
|
|
<TELL "[Super-brief descriptions.]" CR>
|
|
<RTRUE>>
|
|
|
|
; <ROUTINE V-EXITS ("AUX" DIRS STR (NUM 0) (BIT 1) (X 0) (INDEX 0) (1ST? T))
|
|
<COND (<WRONG-WINNER?>
|
|
<RFATAL>)
|
|
(<ZERO? ,LIT?>
|
|
<TOO-DARK>
|
|
<RFATAL>)>
|
|
<SET DIRS <GETP ,HERE ,P?EXITS>>
|
|
<COND (<ZERO? .DIRS>
|
|
<TELL "[There are no visible exits.]" CR>
|
|
<RTRUE>)>
|
|
<REPEAT ()
|
|
<COND (<EQUAL? .BIT ,D-TOP>
|
|
<RETURN>)
|
|
(<T? <BAND .DIRS .BIT>>
|
|
<INC NUM>)>
|
|
<SET BIT <* .BIT 2>>>
|
|
<TELL "[Visible exit">
|
|
<COND (<G? .NUM 1>
|
|
<TELL "s">)>
|
|
<TELL ": ">
|
|
<SET BIT 1>
|
|
<REPEAT ()
|
|
<COND (<EQUAL? .BIT ,D-TOP>
|
|
<RETURN>)
|
|
(<T? <BAND .DIRS .BIT>>
|
|
<INC X>
|
|
<SET STR <GET ,EXITAB .INDEX>>
|
|
<COND (<T? .1ST?>
|
|
<SET 1ST? <>>
|
|
<TELL .STR>)
|
|
(T
|
|
<COND (<EQUAL? .X .NUM>
|
|
<TELL " and " .STR>
|
|
<RETURN>)
|
|
(T
|
|
<TELL ", " .STR>)>)>)>
|
|
<INC INDEX>
|
|
<SET BIT <* .BIT 2>>>
|
|
<TELL ".]" CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-DIAGNOSE ()
|
|
<COND (<WRONG-WINNER?>
|
|
<RFATAL>)>
|
|
<TELL
|
|
"You feel much as you'd expect, considering what you've been through." CR>
|
|
<RTRUE>>
|
|
|
|
<OBJECT WEARING>
|
|
|
|
<ROUTINE V-INVENTORY ("AUX" (P? <>) (WORN? <>) OBJ NXT OLDIT)
|
|
<COND (<WRONG-WINNER?>
|
|
<RFATAL>)>
|
|
|
|
<SET OLDIT ,P-IT-OBJECT>
|
|
<SET P? <FIRST? ,POCKET>>
|
|
<REMOVE ,POCKET>
|
|
|
|
; "Move all worn objects to WEARING for separate sentence."
|
|
|
|
<SET OBJ <FIRST? ,PLAYER>>
|
|
<REPEAT ()
|
|
<COND (<ZERO? .OBJ>
|
|
<RETURN>)>
|
|
<SET NXT <NEXT? .OBJ>>
|
|
<COND (<IS? .OBJ ,WORN>
|
|
<SET WORN? T>
|
|
<MOVE .OBJ ,WEARING>)>
|
|
<SET OBJ .NXT>>
|
|
|
|
<SET OBJ <FIRST? ,PLAYER>>
|
|
<TELL "You're ">
|
|
<COND (<T? .OBJ>
|
|
<TELL "holding ">
|
|
<PRINT-CONTENTS ,PLAYER>
|
|
<REPEAT ()
|
|
<COND (<AND <SEE-INSIDE? .OBJ>
|
|
<SEE-ANYTHING-IN? .OBJ>>
|
|
<TELL ". ">
|
|
<COND (<IS? .OBJ ,SURFACE>
|
|
<TELL "On ">)
|
|
(T
|
|
<TELL "Inside ">)>
|
|
<TELL THE .OBJ " you see ">
|
|
<PRINT-CONTENTS .OBJ>)>
|
|
<SET OBJ <NEXT? .OBJ>>
|
|
<COND (<ZERO? .OBJ>
|
|
<RETURN>)>>
|
|
<TELL ". You">
|
|
<COND (<T? .WORN?>
|
|
<TELL "'re wearing ">
|
|
<PRINT-CONTENTS ,WEARING>
|
|
<COND (<T? .P?>
|
|
<TELL ", and you have ">)
|
|
(T
|
|
<TELL ". Your ">)>)
|
|
(<T? .P?>
|
|
<TELL " also have ">)
|
|
(T
|
|
<TELL "r ">)>)
|
|
(T
|
|
<TELL "not holding anything, ">
|
|
<COND (<T? .WORN?>
|
|
<TELL "but you're wearing ">
|
|
<PRINT-CONTENTS ,WEARING>
|
|
<TELL ". You">
|
|
<COND (<T? .P?>
|
|
<TELL " also have ">)
|
|
(T
|
|
<TELL "r ">)>)
|
|
(<T? .P?>
|
|
<TELL "but you have ">)
|
|
(T
|
|
<TELL "and your ">)>)>
|
|
<COND (<T? .P?>
|
|
<PRINT-CONTENTS ,POCKET>
|
|
<TELL " in " D ,POCKET>)
|
|
(T
|
|
<TELL "pocket is empty">)>
|
|
<TELL ,PERIOD>
|
|
<MOVE-ALL ,WEARING ,PLAYER>
|
|
<MOVE ,POCKET ,PLAYER>
|
|
<SETG P-IT-OBJECT .OLDIT>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE SAY-SURE ()
|
|
<TELL "Are you sure you want to ">
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-QUIT ("OPTIONAL" (ASK? T) "AUX" SCOR)
|
|
<COND (<WRONG-WINNER?>
|
|
<RFATAL>)>
|
|
<V-SCORE>
|
|
<COND (<T? .ASK?>
|
|
<CRLF>
|
|
<SAY-SURE>
|
|
<TELL "leave the story now?">
|
|
<COND (<YES?>
|
|
<CRLF>
|
|
<QUIT>
|
|
<RTRUE>)>
|
|
<TELL CR "[Continuing.]" CR>
|
|
<RTRUE>)>
|
|
<CRLF>
|
|
<QUIT>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-RESTART ()
|
|
<COND (<WRONG-WINNER?>
|
|
<RFATAL>)>
|
|
<V-SCORE>
|
|
<CRLF>
|
|
<SAY-SURE>
|
|
<TELL "restart the story?">
|
|
<COND (<YES?>
|
|
<RESTART>
|
|
<FAILED "RESTART">)>
|
|
<RTRUE>>
|
|
|
|
<OBJECT THE-END
|
|
(LOC ROOMS)
|
|
(DESC "The End")
|
|
(FLAGS LIGHTED LOCATION)>
|
|
|
|
<GLOBAL YES-INBUF:TABLE <ITABLE BYTE 12>>
|
|
<GLOBAL YES-LEXV:TABLE <ITABLE BYTE 10>>
|
|
|
|
<ROUTINE YES? ("AUX" WORD)
|
|
<CRLF>
|
|
<REPEAT ()
|
|
<TELL CR "[Please type YES or NO.] >">
|
|
<PUTB ,YES-LEXV 0 4>
|
|
<READ ,YES-INBUF ,YES-LEXV>
|
|
<SET WORD <GET ,YES-LEXV ,P-LEXSTART>>
|
|
<COND (<ZERO? <GETB ,YES-LEXV ,P-LEXWORDS>>
|
|
T)
|
|
(<T? .WORD>
|
|
<COND (<OR <EQUAL? .WORD ,W?Y ,W?YES ,W?YUP>
|
|
<EQUAL? .WORD ,W?OKAY ,W?OK ,W?AYE>
|
|
<EQUAL? .WORD ,W?SURE ,W?AFFIRMATIVE
|
|
,W?POSITIVE>
|
|
<EQUAL? .WORD ,W?POSITIVELY>>
|
|
<RTRUE>)
|
|
(<OR <EQUAL? .WORD ,W?N ,W?NO ,W?NOPE>
|
|
<EQUAL? .WORD ,W?NAY ,W?NAW ,W?NEGATIVE>>
|
|
<RFALSE>)>)>>>
|
|
|
|
<ROUTINE V-RESTORE ("AUX" X)
|
|
<COND (<WRONG-WINNER?>
|
|
<RFATAL>)>
|
|
<SETG OLD-HERE <>>
|
|
<SETG OLD-LEN 0>
|
|
<SET X <RESTORE>>
|
|
<COND (<ZERO? .X>
|
|
<FAILED "RESTORE">)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SAVE ("AUX" X)
|
|
<COND (<WRONG-WINNER?>
|
|
<RFATAL>)>
|
|
<PCLEAR>
|
|
<SETG OLD-HERE <>>
|
|
<SETG OLD-LEN 0>
|
|
<PUTB ,OOPS-INBUF 1 0> ; "Retrofix #50"
|
|
<SET X <SAVE>>
|
|
<COND (<ZERO? .X>
|
|
<FAILED "SAVE">
|
|
<RFATAL>)
|
|
(<EQUAL? .X 1>
|
|
<COMPLETED "SAVE">
|
|
<RFATAL>)>
|
|
<COMPLETED "RESTORE">
|
|
<CRLF>
|
|
<V-LOOK>
|
|
<RFATAL>>
|
|
|
|
<ROUTINE COMPLETED (STR)
|
|
<TELL CR "[" .STR " completed.]" CR>
|
|
<V-$REFRESH <>>
|
|
<COND (<ZERO? ,VERBOSITY>
|
|
<CRLF>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE FAILED (STR)
|
|
<TELL CR "[" .STR " failed.]" CR>
|
|
<V-$REFRESH <>>
|
|
<COND (<ZERO? ,VERBOSITY>
|
|
<CRLF>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SCORE ()
|
|
<COND (<WRONG-WINNER?>
|
|
<RFATAL>)>
|
|
<TELL "[Your score is " N ,SCORE " point">
|
|
<COND (<NOT <1? ,SCORE>>
|
|
<TELL "s">)>
|
|
<TELL " out of 100, in " N ,MOVES " move">
|
|
<COND (<NOT <EQUAL? ,MOVES 1>>
|
|
<TELL "s">)>
|
|
<TELL ". This gives you the rank of ">
|
|
<ITALICIZE <COND (<L? ,SCORE 15> "Tourist.")
|
|
(<L? ,SCORE 50> "Explorer.")
|
|
(<L? ,SCORE 100> "Historian.")
|
|
(T "Tourist.")>>
|
|
<TELL "]" CR>
|
|
<RTRUE>>
|
|
|
|
<GLOBAL DO-SCORE?:NUMBER 0> "0 = not offered, 1 = on, 2 = off."
|
|
|
|
<ROUTINE V-NOTIFY ()
|
|
<COND (<WRONG-WINNER?>
|
|
<RFATAL>)
|
|
(<L? ,DO-SCORE? 2>
|
|
<SETG DO-SCORE? 2>)
|
|
(T
|
|
<SETG DO-SCORE? 1>)>
|
|
<TELL "[Score notification o">
|
|
<COND (<EQUAL? ,DO-SCORE? 2>
|
|
<TELL "ff">)
|
|
(T
|
|
<TELL "n">)>
|
|
<TELL ".]" CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE UPDATE-SCORE ("OPTIONAL" (PTS 1) (CR T))
|
|
<SETG SCORE <+ ,SCORE .PTS>>
|
|
<COND (<EQUAL? ,DO-SCORE? 2>
|
|
<RTRUE>)
|
|
(<T? .CR>
|
|
<CRLF>)>
|
|
<HLIGHT ,H-BOLD>
|
|
<TELL "[Your score just went up by " N .PTS " point">
|
|
<COND (<NOT <EQUAL? .PTS 1>>
|
|
<TELL "s">)>
|
|
<TELL ,PTHE "total is now " N ,SCORE " out of 100.]">
|
|
<HLIGHT ,H-NORMAL>
|
|
<CRLF>
|
|
<HLIGHT ,H-NORMAL>
|
|
<SOUND 1>
|
|
<COND (<ZERO? ,DO-SCORE?>
|
|
<SETG DO-SCORE? 1>
|
|
<TELL CR
|
|
"[NOTE: You can turn score notification on or off at any time with the NOTIFY command.]" CR>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-TIME ()
|
|
<COND (<WRONG-WINNER?>
|
|
<RFATAL>)>
|
|
<COND (<HERE? PLAYGROUND>
|
|
<PERFORM ,V?READ ,CCLOCK>
|
|
<RTRUE>)
|
|
(<VISIBLE? ,WRISTWATCH>
|
|
<PERFORM ,V?READ ,WRISTWATCH>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL "There aren't any clocks visible." CR>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SCRIPT ()
|
|
<COND (<WRONG-WINNER?>
|
|
<RFATAL>)>
|
|
<TELL "[Scripting on.]" CR>
|
|
<DIROUT ,D-PRINTER-ON>
|
|
<TRANSCRIPT "begin">
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-UNSCRIPT ()
|
|
<COND (<WRONG-WINNER?>
|
|
<RFATAL>)>
|
|
<TRANSCRIPT "end">
|
|
<DIROUT ,D-PRINTER-OFF>
|
|
<TELL "[Scripting off.]" CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE TRANSCRIPT (STR)
|
|
<DIROUT ,D-SCREEN-OFF>
|
|
<TELL CR "Here " .STR "s a transcript of interaction with" CR>
|
|
<V-VERSION>
|
|
<DIROUT ,D-SCREEN-ON>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-VERSION ("AUX" (CNT 17) V)
|
|
<COND (<WRONG-WINNER?>
|
|
<RFATAL>)>
|
|
<HLIGHT ,H-BOLD>
|
|
<TELL CR "TRINITY" CR>
|
|
<FANTASY>
|
|
<CRLF>
|
|
<COPYRIGHT>
|
|
<CRLF>
|
|
<TRADEMARK>
|
|
<CRLF>
|
|
<V-$ID>
|
|
<RELEASE>
|
|
<TELL " / Serial Number ">
|
|
<REPEAT ()
|
|
<COND (<G? <SET CNT <+ .CNT 1>> 23>
|
|
<RETURN>)
|
|
(T
|
|
<PRINTC <GETB 0 .CNT>>)>>
|
|
<CRLF>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE FANTASY ()
|
|
<HLIGHT ,H-NORMAL>
|
|
<TELL "An Interactive Fantasy">
|
|
<RTRUE>>
|
|
|
|
<ROUTINE COPYRIGHT ()
|
|
<TELL "Copyright (C)1986 Infocom, Inc. All rights reserved.">
|
|
<RTRUE>>
|
|
|
|
<ROUTINE TRADEMARK ()
|
|
<ITALICIZE "Trinity">
|
|
<TELL " is a trademark of Infocom, Inc.">
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-$ID ()
|
|
<TELL "Interpreter ">
|
|
<PRINTN <GETB 0 30>>
|
|
<TELL " Version ">
|
|
<PRINTC <GETB 0 31>>
|
|
<CRLF>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-$VERIFY ()
|
|
<COND (<WRONG-WINNER?>
|
|
<RFATAL>)
|
|
; (<T? ,PRSO>
|
|
<COND (<AND <PRSO? INTNUM>
|
|
<EQUAL? ,P-NUMBER 80>>
|
|
<TELL N ,SERIAL CR>
|
|
<RTRUE>)
|
|
(T
|
|
<DONT-UNDERSTAND>)>
|
|
<RTRUE>)>
|
|
<V-$ID>
|
|
<TELL CR "[Verifying.]" CR>
|
|
<COND (<VERIFY>
|
|
<TELL CR "[Disk correct.]" CR>
|
|
<RTRUE>)>
|
|
<FAILED "$VERIFY">
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-$COMMAND ()
|
|
<COND (<WRONG-WINNER?>
|
|
<RFATAL>)
|
|
(T
|
|
<DIRIN 1>
|
|
<RTRUE>)>>
|
|
|
|
; <GLOBAL DEBUG?:FLAG <>>
|
|
|
|
; <ROUTINE V-$DEBUG ()
|
|
<COND (<AND <NOT <ZIL?>>
|
|
<NOT <EQUAL? <GETB 0 56> 80>>>
|
|
<DONT-UNDERSTAND>
|
|
<RTRUE>)>
|
|
<TELL "[Debug ">
|
|
<COND (<T? ,DEBUG?>
|
|
<SETG DEBUG? <>>
|
|
<TELL "off">)
|
|
(T
|
|
<SETG DEBUG? T>
|
|
<TELL "on">)>
|
|
<TELL ".]" CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-USE ()
|
|
<COND (<IS? ,PRSO ,PERSON>
|
|
<TELL CTHEO " might resent that." CR>
|
|
<RTRUE>)
|
|
(T
|
|
<HOW?>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-BITE ()
|
|
<HACK-HACK "Biting">
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-BLOW-INTO ()
|
|
<COND (<IS? ,PRSO ,PERSON>
|
|
<PERFORM ,V?USE ,PRSO>)
|
|
(T
|
|
<HACK-HACK "Blowing">)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-LIGHT-WITH ()
|
|
<COND (<PRSI? SHARD LAMP>
|
|
<COND (<PRSI? PRSO>
|
|
<IMPOSSIBLE>
|
|
<RTRUE>)>
|
|
<PERFORM ,V?SHINE-AT ,PRSI ,PRSO>
|
|
<RTRUE>)>
|
|
<V-BURN-WITH>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-BURN-WITH ()
|
|
<COND (<PRSI? SHARD>
|
|
<TELL CTHEI " is phosphorescent. It couldn't possibly ">
|
|
<PRINTB ,P-PRSA-WORD>
|
|
<TELL " anything." CR>
|
|
<RTRUE>)>
|
|
<TELL "With " A ,PRSI "? " <PICK-NEXT ,YUKS> ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-BUY ()
|
|
<COND (<NOT <VISIBLE? ,PRSO>>
|
|
<CANT-SEE-ANY ,PRSO>
|
|
<RFATAL>)
|
|
(<HELD? ,PRSO>
|
|
<ALREADY-HAVE-PRSO>
|
|
<RTRUE>)
|
|
(<NOT <IS? ,PRSO ,BUYABLE>>
|
|
<TELL ,CANT "possibly buy " THEO ,PERIOD>
|
|
<RTRUE>)
|
|
(<AND <EQUAL? ,WINNER ,PLAYER>
|
|
<IN? ,PRSO ,POCKET>>
|
|
<TELL "It's in " D ,POCKET ,PERIOD>
|
|
<RTRUE>)
|
|
(<T? ,PRSI>
|
|
<TELL "You couldn't buy " THEO " with " A ,PRSI ,PERIOD>
|
|
<RTRUE>)
|
|
(T
|
|
<NO-MONEY>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-BUY-FROM ()
|
|
<COND (<NOT <VISIBLE? ,PRSO>>
|
|
<CANT-SEE-ANY ,PRSO>
|
|
<RFATAL>)
|
|
(<NOT <PRSI? BWOMAN>>
|
|
<TELL "It" <PICK-NEXT ,LIKELIES>
|
|
" that " THEI " could sell you anything." CR>
|
|
<RTRUE>)
|
|
(<NOT <IS? ,PRSO ,BUYABLE>>
|
|
<TELL ,CANT "possibly buy " A ,PRSO " from " THEI ,PERIOD>
|
|
<RTRUE>)
|
|
(<HELD? ,PRSO>
|
|
<ALREADY-HAVE-PRSO>
|
|
<RTRUE>)
|
|
(<AND <EQUAL? ,WINNER ,PLAYER>
|
|
<IN? ,PRSO ,POCKET>>
|
|
<TELL "It's in " D ,POCKET ,PERIOD>
|
|
<RTRUE>)
|
|
(T
|
|
<NO-MONEY>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE ALREADY-HAVE-PRSO ()
|
|
<TELL "You already have " A ,PRSO ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE NO-MONEY ()
|
|
<TELL ,DONT "have ">
|
|
<COND (<VERB? CHARGE>
|
|
<TELL "a " D ,CREDIT-CARD>)
|
|
(T
|
|
<TELL "any money">)>
|
|
<PRINT ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-CHARGE ()
|
|
<COND (<NOT <VISIBLE? ,PRSO>>
|
|
<CANT-SEE-ANY ,PRSO>
|
|
<RFATAL>)
|
|
(<NOT <IS? ,PRSO ,BUYABLE>>
|
|
<TELL ,CANT "possibly charge " THEO ,PERIOD>
|
|
<RTRUE>)
|
|
(<HELD? ,PRSO>
|
|
<ALREADY-HAVE-PRSO>
|
|
<RTRUE>)
|
|
(<AND <EQUAL? ,WINNER ,PLAYER>
|
|
<IN? ,PRSO ,POCKET>>
|
|
<TELL "It's in " D ,POCKET ,PERIOD>
|
|
<RTRUE>)
|
|
(<PRSI? ROOMS>
|
|
<COND (<HELD? ,CREDIT-CARD>
|
|
<TELL "[with the " D ,CREDIT-CARD ,BRACKET>
|
|
<NOT-ACCEPTED>)
|
|
(<AND <IN? ,CREDIT-CARD ,POCKET>
|
|
<EQUAL? ,WINNER ,PLAYER>>
|
|
<TELL "You must display your " D ,CREDIT-CARD
|
|
,PERIOD>)
|
|
(T
|
|
<NO-MONEY>)>)
|
|
(T
|
|
<COND (<PRSI? CREDIT-CARD>
|
|
<NOT-ACCEPTED>)
|
|
(T
|
|
<TELL "You couldn't charge " THEO
|
|
" with " A ,PRSI ,PERIOD>)>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE NOT-ACCEPTED ()
|
|
<TELL "Your " D ,CREDIT-CARD " wouldn't be accepted here." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-CLEAN ()
|
|
<COND (<AND <PRSO? HANDS>
|
|
<IN? ,HONEY ,PLAYER>>
|
|
<HONEY-STICKS>
|
|
<RTRUE>)>
|
|
<HACK-HACK "Cleaning">
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-CLEAN-OFF ()
|
|
<COND (<PRSO? PRSI>
|
|
<IMPOSSIBLE>
|
|
<RTRUE>)>
|
|
<PRINT ,CANT>
|
|
<PRINTB ,P-PRSA-WORD>
|
|
<SPACE>
|
|
<TELL THEO " on " THEI ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-CLIMB-DOWN ()
|
|
<COND (<EQUAL? ,P-PRSA-WORD ,W?JUMP ,W?LEAP>
|
|
<PERFORM ,V?DIVE ,PRSO>
|
|
<RTRUE>)
|
|
(<PRSO? ROOMS>
|
|
<DO-WALK ,P?DOWN>
|
|
<RTRUE>)>
|
|
<IMPOSSIBLE>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-CLIMB-ON ()
|
|
<COND (<EQUAL? ,P-PRSA-WORD ,W?TAKE>
|
|
<NOT-LIKELY ,PRSO "is looking for a fight">)
|
|
(T
|
|
<PRINT ,CANT>
|
|
<PRINTB ,P-PRSA-WORD>
|
|
<TELL " onto that." CR>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-CLIMB-OVER ()
|
|
<COND (<PRSO? ROOMS>
|
|
<V-WALK-AROUND>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL ,CANT "climb over that." CR>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-CLIMB-UP ()
|
|
<COND (<PRSO? ROOMS>
|
|
<COND (<AND <HERE? LAN-GATE>
|
|
<EQUAL? ,P-PRSA-WORD ,W?JUMP ,W?LEAP>>
|
|
<CANT-REACH <FIRST? ,TREE>>
|
|
<RTRUE>)>
|
|
<DO-WALK ,P?UP>
|
|
<RTRUE>)
|
|
(T
|
|
<IMPOSSIBLE>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-OPEN-WITH ()
|
|
<COND (<NOT <IS? ,PRSO ,OPENABLE>>
|
|
<CANT-OPEN-PRSO>
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,OPENED>
|
|
<ITS-ALREADY "open">
|
|
<RTRUE>)>
|
|
<TELL ,CANT>
|
|
<PRINTB ,P-PRSA-WORD>
|
|
<TELL " " THEO " with " THEI ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE CANT-OPEN-PRSO ()
|
|
<TELL "You couldn't possibly open " A ,PRSO ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-OPEN ()
|
|
<COND (<NOT <IS? ,PRSO ,OPENABLE>>
|
|
<CANT-OPEN-PRSO>
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,OPENED>
|
|
<ITS-ALREADY "open">
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,LOCKED>
|
|
<OBJECT-IS-LOCKED>
|
|
<RTRUE>)
|
|
(T
|
|
<YOU-OPEN>
|
|
<COND (<IS? ,PRSO ,CONTAINER>
|
|
<COND (<OR <NOT <FIRST? ,PRSO>>
|
|
<IS? ,PRSO ,TRANSPARENT>>
|
|
<RTRUE>)
|
|
; (<AND <SET F <FIRST? ,PRSO>>
|
|
<NOT <NEXT? .F>>
|
|
<SET STR <GETP .F ,P?FDESC>>>
|
|
<TELL CR .STR CR>)
|
|
(T
|
|
<CRLF>
|
|
<TELL ,YOU-SEE>
|
|
<PRINT-CONTENTS ,PRSO>
|
|
<TELL " inside." CR>)>)>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE YOU-OPEN ("OPTIONAL" (THING <>))
|
|
<COND (<ZERO? .THING>
|
|
<SET THING ,PRSO>)>
|
|
<THIS-IS-IT .THING>
|
|
<MAKE .THING ,OPENED>
|
|
<COND (<EQUAL? ,WINNER ,PLAYER>
|
|
<TELL "You open ">)
|
|
(T
|
|
<TELL CTHE ,WINNER " opens ">)>
|
|
<TELL THE .THING ,PERIOD>>
|
|
|
|
<ROUTINE V-CLOSE ()
|
|
<COND (<IS? ,PRSO ,OPENABLE>
|
|
<COND (<IS? ,PRSO ,OPENED>
|
|
<YOU-CLOSE>
|
|
<RTRUE>)
|
|
(T
|
|
<ITS-ALREADY "closed">)>
|
|
<RTRUE>)
|
|
(T
|
|
<CANT-CLOSE-THAT>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE YOU-CLOSE ("OPTIONAL" (THING <>))
|
|
<COND (<ZERO? .THING>
|
|
<SET THING ,PRSO>)>
|
|
<THIS-IS-IT .THING>
|
|
<UNMAKE .THING ,OPENED>
|
|
<COND (<EQUAL? ,WINNER ,PLAYER>
|
|
<TELL "You close ">)
|
|
(T
|
|
<TELL CTHE ,WINNER " closes ">)>
|
|
<TELL THE .THING ,PERIOD>>
|
|
|
|
<ROUTINE CANT-CLOSE-THAT ("OPTIONAL" (THING <>))
|
|
<TELL ,CANT "close ">
|
|
<COND (<T? .THING>
|
|
<TELL A .THING>)
|
|
(<T? ,PRSO>
|
|
<TELL A ,PRSO>)
|
|
(T
|
|
<TELL D ,NOT-HERE-OBJECT>)>
|
|
<PRINT ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-COUNT ()
|
|
<COND (<IS? ,PRSO ,PLURAL>
|
|
<TELL "Your mind wanders, and you lose count." CR>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL "You only see one." CR>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-COVER ()
|
|
<PERFORM ,V?PUT-ON ,PRSI ,PRSO>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-HOLD-OVER ()
|
|
<WASTE-OF-TIME>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-CROSS ()
|
|
<TELL ,CANT "cross that." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-CUT ()
|
|
<COND (<PRSI? AXE>
|
|
<AXE-HURT>
|
|
<RTRUE>)>
|
|
<TELL "You couldn't possibly cut " THEO
|
|
" with " THEI ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE AXE-HURT ()
|
|
<TELL "Better not. The axe might ">
|
|
<COND (<IS? ,PRSO ,LIVING>
|
|
<TELL "hurt ">)
|
|
(T
|
|
<TELL "ruin ">)>
|
|
<TELL THEO ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-RIP ()
|
|
<COND (<PRSI? AXE>
|
|
<AXE-HURT>
|
|
<RTRUE>)>
|
|
<TELL "You couldn't possibly rip " THEO>
|
|
<COND (<NOT <PRSI? HANDS>>
|
|
<TELL " with " THEI>)>
|
|
<PRINT ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-DEFLATE ()
|
|
<IMPOSSIBLE>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-DETONATE ()
|
|
<IMPOSSIBLE>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-DIG ()
|
|
<WASTE-OF-TIME>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SDIG ()
|
|
<PERFORM ,V?DIG ,PRSI ,PRSO>
|
|
<RFATAL>>
|
|
|
|
<ROUTINE V-DRINK ("OPTIONAL" (FROM? <>))
|
|
<TELL ,CANT "drink ">
|
|
<COND (<T? .FROM?>
|
|
<TELL "from ">)>
|
|
<TELL D ,NOT-HERE-OBJECT ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-DRINK-FROM ()
|
|
<V-DRINK T>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-DRIVE ()
|
|
<COND (<PRSO? ROOMS>
|
|
<COND (<HERE? N75 S100>
|
|
<CANT-FROM-HERE>
|
|
<RTRUE>)
|
|
(<HERE? IN-JEEP>
|
|
<HOW?>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL "There's nothing here to drive." CR>)>
|
|
<RTRUE>)
|
|
(<PRSO? JEEP>
|
|
<HOW?>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL ,CANT "drive " A ,PRSO ,PERIOD>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-DROP ()
|
|
<COND (<IDROP>
|
|
<SAY-DROPPED>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE SAY-DROPPED ()
|
|
<COND (<OR <T? ,P-MULT?>
|
|
<PROB 50>>
|
|
<TELL "Dropped." CR>
|
|
<RTRUE>)>
|
|
<TELL "You ">
|
|
<COND (<PROB 50>
|
|
<TELL "drop ">)
|
|
(T
|
|
<TELL "put down ">)>
|
|
<TELL THEO ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE IDROP ("AUX" L)
|
|
<SET L <LOC ,PRSO>>
|
|
<COND (<OR <ZERO? .L>
|
|
<PRSO? WINNER ME>>
|
|
<IMPOSSIBLE>
|
|
<RFALSE>)
|
|
(<NOT <EQUAL? .L ,PLAYER>>
|
|
<TELL "You'd have to take " THEO>
|
|
<COND (<IS? .L ,SURFACE>
|
|
<TELL " off ">)
|
|
(T
|
|
<TELL " out of ">)>
|
|
<TELL THE .L " first." CR>
|
|
<RFALSE>)
|
|
(<AND <IS? ,PRSO ,WORN>
|
|
<IN? ,PRSO ,PLAYER>>
|
|
<TAKE-OFF-PRSO-FIRST>)>
|
|
<COND (<OR <T? ,SUITED?>
|
|
<HERE? IN-WATER IN-CIST UNDER-WATER IN-SKY ON-BIRD>
|
|
<AND <HERE? PROM>
|
|
<T? ,IN-DISH?>>
|
|
<AND <HERE? IN-ORBIT ON-SAT IN-SKY>
|
|
<ZERO? ,SUITED?>>>
|
|
<TELL CTHEO>
|
|
<SPACE>
|
|
<LANDS-AT-YOUR-FEET>
|
|
<RFALSE>)>
|
|
<MOVE ,PRSO ,HERE>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE PRSO-SLIDES-OFF-PRSI ()
|
|
<TELL CTHEO " slide">
|
|
<COND (<NOT <IS? ,PRSO ,PLURAL>>
|
|
<TELL "s">)>
|
|
<TELL " off " THEI " and ">
|
|
<LANDS-AT-YOUR-FEET>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE LANDS-AT-YOUR-FEET ("OPTIONAL" (OBJ <>))
|
|
<COND (<ZERO? .OBJ>
|
|
<SET OBJ ,PRSO>)>
|
|
<COND (<T? ,SUITED?>
|
|
<COND (<NOT <IN? .OBJ ,PLAYER>>
|
|
<MOVE .OBJ ,PLAYER>)>
|
|
<BOUNCES-IN-FILM .OBJ>
|
|
<RTRUE>)
|
|
(<HERE? IN-WATER>
|
|
<VANISH .OBJ>
|
|
<COND (<OR <EQUAL? .OBJ ; ,CRANE ,OCRANE ,BAD-CRANE>
|
|
<EQUAL? .OBJ ,BAG ,EBAG>
|
|
<AND <EQUAL? .OBJ ,PARASOL>
|
|
<IS? .OBJ ,OPENED>>>
|
|
<TELL "float">
|
|
<COND (<NOT <IS? .OBJ ,PLURAL>>
|
|
<TELL "s">)>
|
|
<TELL " away across ">)
|
|
(T
|
|
<TELL "disappear">
|
|
<COND (<NOT <IS? .OBJ ,PLURAL>>
|
|
<TELL "s">)>
|
|
<TELL " into ">)>
|
|
<TELL THE ,LWATER ,PERIOD>
|
|
<RTRUE>)
|
|
(<HERE? IN-CIST>
|
|
<COND (<OR <EQUAL? .OBJ ,CRANE ,OCRANE ,BAD-CRANE>
|
|
<EQUAL? .OBJ ,BAG>
|
|
<AND <EQUAL? .OBJ ,EBAG>
|
|
<NOT <FIRST? ,EBAG>>>>
|
|
<MOVE .OBJ ,HERE>
|
|
<TELL "floats quietly on the water." CR>
|
|
<RTRUE>)
|
|
(T
|
|
<SETG P-IT-OBJECT ,NOT-HERE-OBJECT>
|
|
<MOVE .OBJ ,UNDER-WATER>
|
|
<TELL "disappear">
|
|
<COND (<NOT <IS? .OBJ ,PLURAL>>
|
|
<TELL "s">)>
|
|
<TELL " beneath the dark water." CR>)>
|
|
<RTRUE>)
|
|
(<HERE? UNDER-WATER>
|
|
<MOVE .OBJ ,HERE>
|
|
<COND (<OR <EQUAL? .OBJ ,CRANE ,OCRANE ,BAD-CRANE>
|
|
<EQUAL? .OBJ ,CREDIT-CARD ,BAG ,EBAG>>
|
|
<TELL "slowly ">)>
|
|
<TELL "sink">
|
|
<COND (<NOT <IS? .OBJ ,PLURAL>>
|
|
<TELL "s">)>
|
|
<TELL " to the bottom." CR>
|
|
<RTRUE>)
|
|
(<AND <HERE? PROM>
|
|
<T? ,IN-DISH?>>
|
|
<VANISH .OBJ>
|
|
<TELL "disappear">
|
|
<COND (<NOT <IS? .OBJ ,PLURAL>>
|
|
<TELL "s">)>
|
|
<TELL " into the " D ,SOAPY-WATER ,PERIOD>
|
|
<RTRUE>)
|
|
(<HERE? IN-ORBIT ON-SAT>
|
|
<VANISH .OBJ>
|
|
<TELL "drift">
|
|
<COND (<NOT <IS? .OBJ ,PLURAL>>
|
|
<TELL "s">)>
|
|
<TELL " slowly" ,OUTASITE>
|
|
<RTRUE>)
|
|
(<HERE? IN-SKY ON-BIRD>
|
|
<COND (<HERE? IN-SKY>
|
|
<MOVE .OBJ ,SPILE>)
|
|
(T
|
|
<REMOVE .OBJ>)>
|
|
<SETG P-IT-OBJECT ,NOT-HERE-OBJECT>
|
|
<TELL "instantly fall">
|
|
<COND (<NOT <IS? .OBJ ,PLURAL>>
|
|
<TELL "s">)>
|
|
<TELL ,OUTASITE>
|
|
<RTRUE>)
|
|
(T
|
|
<MOVE .OBJ ,HERE>
|
|
<TELL "land">
|
|
<COND (<NOT <IS? .OBJ ,PLURAL>>
|
|
<TELL "s">)>
|
|
<TELL " at your feet." CR>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE BOUNCES-IN-FILM (OBJ)
|
|
<TELL "bounce">
|
|
<COND (<NOT <IS? .OBJ ,PLURAL>>
|
|
<TELL "s">)>
|
|
<TELL " around inside the " D ,FILM " until you catch it." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-EAT ()
|
|
<COND (<EQUAL? ,WINNER ,PLAYER>
|
|
<NOT-LIKELY ,PRSO "would agree with you">)
|
|
(T
|
|
<TELL "\"It" <PICK-NEXT ,LIKELIES>
|
|
" that " THEO " would agree with me.\"" CR>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-ENTER () ; ("AUX" VEH)
|
|
<COND (<PRSO? ROOMS>
|
|
<DO-WALK ,P?IN>
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,CLOTHING>
|
|
<TELL "[Presumably, you mean WEAR " THEO
|
|
"." ,BRACKET>
|
|
<PERFORM ,V?WEAR ,PRSO>
|
|
<RTRUE>)
|
|
; (<SET VEH <FIND-IN ,HERE ,VEHBIT>>
|
|
<PERFORM ,V?ENTER .VEH>)
|
|
(T
|
|
<IMPOSSIBLE>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-ESCAPE ()
|
|
<V-WALK-AROUND>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE PRE-DUMB-EXAMINE ()
|
|
<COND (<ZERO? ,LIT?>
|
|
<TOO-DARK>
|
|
<RTRUE>)
|
|
(<LOOK-INTDIR?>
|
|
<RTRUE>)>
|
|
<TELL "[Presumably, you mean LOOK AT " THEO
|
|
", not LOOK INSIDE or LOOK ON or LOOK UNDER or LOOK BEHIND " THEO>
|
|
<PRINTC 46>
|
|
<PRINT ,BRACKET>
|
|
<PERFORM ,V?EXAMINE ,PRSO>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-DUMB-EXAMINE ()
|
|
<V-EXAMINE>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE LOOK-INTDIR? ("AUX" (PTR 7) TBL X)
|
|
<COND (<PRSO? RIGHT LEFT>
|
|
T)
|
|
(<NOT <PRSO? INTDIR>>
|
|
<RFALSE>)
|
|
(T
|
|
<SET X <GET ,DIRTABLES 0>>
|
|
<COND (<OR <NOT <IS? ,HERE ,SHADOWY>>
|
|
<ZERO? ,FLIP?>>
|
|
<SET TBL <GET ,DIRTABLES 1>>)
|
|
(T
|
|
<SET TBL <GET ,DIRTABLES 2>>)>
|
|
<REPEAT ()
|
|
<COND (<EQUAL? ,P-DIRECTION <GET .X .PTR>>
|
|
<SET X <GETP ,HERE <GET .TBL .PTR>>>
|
|
<COND (<T? .X>
|
|
<SEE-DIR .X>
|
|
<RTRUE>)>
|
|
<RETURN>)
|
|
(<DLESS? PTR 0>
|
|
<RETURN>)>>)>
|
|
<SET X <GETP ,HERE ,P?SEE-ALL>>
|
|
<COND (<T? .X>
|
|
<SEE-DIR .X>
|
|
<RTRUE>)>
|
|
<NOTHING-INTERESTING>
|
|
<TELL " in " D ,RIGHT ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE SEE-DIR (X)
|
|
<THIS-IS-IT .X>
|
|
<TELL ,YOU-SEE>
|
|
<COND (<AND <NOT <IS? .X ,NOARTICLE>>
|
|
<NOT <IS? .X ,PLURAL>>>
|
|
<TELL "the ">)>
|
|
<TELL D .X " that way." CR>
|
|
<RTRUE>>
|
|
|
|
<GLOBAL DIRTABLES:TABLE
|
|
<PTABLE
|
|
<PTABLE P?SW P?SE P?NW P?NE P?WEST P?SOUTH P?EAST P?NORTH>
|
|
<PTABLE P?SEE-SW P?SEE-SE P?SEE-NW P?SEE-NE
|
|
P?SEE-W P?SEE-S P?SEE-E P?SEE-N>
|
|
<PTABLE P?SEE-SE P?SEE-SW P?SEE-NE P?SEE-NW
|
|
P?SEE-E P?SEE-S P?SEE-W P?SEE-N>>>
|
|
|
|
<ROUTINE PRE-EXAMINE ()
|
|
<COND (<ZERO? ,LIT?>
|
|
<TOO-DARK>
|
|
<RFATAL>)
|
|
(T
|
|
<RFALSE>)>>
|
|
|
|
<ROUTINE V-EXAMINE ()
|
|
<COND (<IS? ,PRSO ,OPENABLE>
|
|
<TELL "It looks as if " THEO>
|
|
<IS-ARE>
|
|
<COND (<IS? ,PRSO ,OPENED>
|
|
<TELL "open">)
|
|
(T
|
|
<TELL "closed">)>
|
|
<PRINT ,PERIOD>
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,SURFACE>
|
|
<TELL ,YOU-SEE>
|
|
<PRINT-CONTENTS ,PRSO>
|
|
<TELL " on " THEO>
|
|
<PRINT ,PERIOD>
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,CONTAINER>
|
|
<COND (<OR <IS? ,PRSO ,OPENED>
|
|
<IS? ,PRSO ,TRANSPARENT>>
|
|
<V-LOOK-INSIDE>
|
|
<RTRUE>)>
|
|
<ITS-CLOSED ,PRSO>
|
|
<RTRUE>)
|
|
(<LOOK-INTDIR?>
|
|
<RTRUE>)
|
|
(<AND <IS? ,PRSO ,PERSON>
|
|
<SEE-ANYTHING-IN? ,PRSO>>
|
|
<TELL CTHEO " has ">
|
|
<PRINT-CONTENTS ,PRSO>
|
|
<PRINT ,PERIOD>
|
|
<RTRUE>)
|
|
(T
|
|
<NOTHING-INTERESTING>
|
|
<TELL " about " THEO ,PERIOD>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE NOTHING-INTERESTING ()
|
|
<COND (<PROB 50>
|
|
<TELL ,YOU-SEE "no">)
|
|
(T
|
|
<TELL ,DONT "see any">)>
|
|
<TELL "thing " <PICK-NEXT ,YAWNS>>
|
|
<RTRUE>>
|
|
|
|
<GLOBAL YAWNS:TABLE
|
|
<LTABLE 2 "unusual" "interesting" "extraordinary" "special">>
|
|
|
|
<ROUTINE PRE-WATCH ()
|
|
<COND (<PRE-EXAMINE>
|
|
<RTRUE>)
|
|
(T
|
|
<RFALSE>)>>
|
|
|
|
<ROUTINE V-WATCH ()
|
|
<COND (<IS? ,PRSO ,PERSON>
|
|
<TELL CTHEO>
|
|
<ISNT-ARENT>
|
|
<TELL "doing anything " <PICK-NEXT ,YAWNS>>)
|
|
(T
|
|
<TELL "Nothing " <PICK-NEXT ,YAWNS> " is happening">)>
|
|
<PRINT ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-EXIT ("AUX" L)
|
|
<COND (<PRSO? ROOMS>
|
|
<DO-WALK ,P?OUT>
|
|
<RTRUE>)>
|
|
<SET L <LOC ,PRSO>>
|
|
<COND (<ZERO? .L>
|
|
<DO-WALK ,P?OUT>
|
|
<RTRUE>)
|
|
(<AND <IS? .L ,CONTAINER>
|
|
<VISIBLE? ,PRSO>>
|
|
<TELL "[from " D .L ,BRACKET>
|
|
<PERFORM ,V?TAKE ,PRSO>
|
|
<RTRUE>)
|
|
(T
|
|
<DO-WALK ,P?OUT>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-FILL ()
|
|
<HOW?>
|
|
; <COND (<ZERO? ,PRSI>
|
|
<TELL "There's nothing to fill it with." CR>
|
|
<RTRUE>)
|
|
(T
|
|
<HOW?>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-FIND ("AUX" L)
|
|
<SET L <LOC ,PRSO>>
|
|
<COND (<ZERO? .L>
|
|
<DO-IT-YOURSELF>
|
|
<RTRUE>)
|
|
(<PRSO? ME HANDS>
|
|
<TELL "You're right here." CR>
|
|
<RTRUE>)
|
|
(<IN? ,PRSO ,PLAYER>
|
|
<TELL "You're holding it." CR>
|
|
<RTRUE>)
|
|
(<OR <IN? ,PRSO ,HERE>
|
|
<AND <IN? ,PRSO ,LOCAL-GLOBALS>
|
|
<GLOBAL-IN? ,PRSO ,HERE>>>
|
|
<ITS-RIGHT-HERE>
|
|
<RTRUE>)
|
|
(<AND <OR <IS? .L ,PERSON>
|
|
<IS? .L ,LIVING>>
|
|
<VISIBLE? .L>>
|
|
<TELL CTHE .L " has it." CR>
|
|
<RTRUE>)
|
|
(<AND <SEE-INSIDE? .L>
|
|
<VISIBLE? .L>>
|
|
<SAY-ITS>
|
|
<COND (<IS? .L ,SURFACE>
|
|
<TELL "on ">)
|
|
(T
|
|
<TELL "in ">)>
|
|
<TELL THE .L ,PERIOD>
|
|
<RTRUE>)
|
|
(T
|
|
<DO-IT-YOURSELF>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE DO-IT-YOURSELF ()
|
|
<TELL "You'll have to do that " D ,ME ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE ITS-RIGHT-HERE ()
|
|
<SAY-ITS>
|
|
<TELL "right here in front of you." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE SAY-ITS ()
|
|
<COND (<IS? ,PRSO ,PLURAL>
|
|
<TELL "They're ">
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,FEMALE>
|
|
<TELL "She's ">
|
|
<RTRUE>)
|
|
(<PRSO? BOY GIANT CHARON>
|
|
<TELL "He's ">
|
|
<RTRUE>)>
|
|
<TELL "It's ">
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-FLUSH ()
|
|
<IMPOSSIBLE>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-FLY ()
|
|
<TELL ,CANT "possibly do that." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-FOLD ()
|
|
<IMPOSSIBLE>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-UNFOLD ()
|
|
<IMPOSSIBLE>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-UNTANGLE ()
|
|
<TELL CTHEO " isn't tangled." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-FOLLOW ()
|
|
<COND (<ZERO? ,PRSO>
|
|
<CANT-SEE-ANY>
|
|
<RFATAL>)>
|
|
<TELL "But ">
|
|
<COND (<PRSO? ME>
|
|
<TELL "you're right here." CR>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL THEO>
|
|
<COND (<IS? ,PRSO ,PLURAL>
|
|
<TELL " are">)
|
|
(T
|
|
<TELL " is">)>
|
|
<COND (<OR <VISIBLE? ,PRSO>
|
|
<IN? ,PRSO ,GLOBAL-OBJECTS>>
|
|
<TELL " right here">)
|
|
(T
|
|
<TELL "n't visible at the moment">)>)>
|
|
<PRINT ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE PRE-FEED ()
|
|
<COND (<PRE-GIVE T>
|
|
<RTRUE>)
|
|
(T
|
|
<RFALSE>)>>
|
|
|
|
<ROUTINE V-FEED ()
|
|
<COND (<PRSI? ME>
|
|
<TELL "You ">)
|
|
(T
|
|
<TELL CTHEI " ">)>
|
|
<TELL "can't eat that." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SFEED ()
|
|
<PERFORM ,V?FEED ,PRSI ,PRSO>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE PRE-GIVE ("OPTIONAL" (FEED? <>))
|
|
<COND (<OR <ZERO? ,PRSO>
|
|
<ZERO? ,PRSI>>
|
|
<REFERRING>
|
|
<RTRUE>)
|
|
(<OR <EQUAL? ,PRSO ,PRSI>
|
|
<IN? ,PRSI ,GLOBAL-OBJECTS>>
|
|
<IMPOSSIBLE>
|
|
<RTRUE>)
|
|
(<NOT <IS? ,PRSI ,LIVING>>
|
|
<PRINT ,CANT>
|
|
<COND (<T? .FEED?>
|
|
<TELL "feed ">)
|
|
(T
|
|
<TELL "give ">)>
|
|
<TELL "anything to " A ,PRSI ,PERIOD>
|
|
<RTRUE>)
|
|
(<AND <PRSI? ME>
|
|
<IN? ,PRSO ,PLAYER>>
|
|
<ALREADY-HAVE-PRSO>
|
|
<RTRUE>)
|
|
(<AND <NOT <PRSI? ME>>
|
|
<DONT-HAVE? ,PRSO>>
|
|
<RTRUE>)
|
|
(<PRSO? HONEY>
|
|
<HONEY-STICKS>
|
|
<RTRUE>)
|
|
; (<AND <PRSO? BAG>
|
|
<SAID-CRUMBS?>>
|
|
<TAKE-CRUMBS>
|
|
<RTRUE>)
|
|
(<CRANE-LIT?>
|
|
<RTRUE>)
|
|
(<CRUMBS-GONE?>
|
|
<RTRUE>)
|
|
(<AND <IS? ,PRSO ,WORN>
|
|
<IN? ,PRSO ,PLAYER>>
|
|
<TAKE-OFF-PRSO-FIRST>
|
|
<RFALSE>)
|
|
(T
|
|
<RFALSE>)>>
|
|
|
|
<ROUTINE CRUMBS-GONE? ()
|
|
<COND (<NOT <SAID-CRUMBS?>>
|
|
<RFALSE>)
|
|
(<PRSO? BAG>
|
|
<TAKE-CRUMBS>
|
|
<RTRUE>)
|
|
(<PRSO? EBAG SOGGY>
|
|
<TELL "The crumbs are all gone." CR>
|
|
<RTRUE>)>
|
|
<RFALSE>>
|
|
|
|
<ROUTINE V-SGIVE ()
|
|
<PERFORM ,V?GIVE ,PRSI ,PRSO>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-GIVE ()
|
|
<COND (<PRSI? ME>
|
|
<NOBODY-TO-ASK>
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,PERSON>
|
|
<TELL CTHEI " shows little interest in your offer." CR>
|
|
<RTRUE>)>
|
|
<NOT-LIKELY ,PRSI "would accept your offer">
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SELL ()
|
|
<COND (<NOT <EQUAL? ,WINNER ,PLAYER>>
|
|
<NOT-LIKELY ,WINNER "is interested in selling anything">
|
|
<RTRUE>)
|
|
(<PRSI? PRSO ME WINNER>
|
|
<IMPOSSIBLE>
|
|
<RTRUE>)
|
|
(<NOT <IS? ,PRSI ,PERSON>>
|
|
<NOT-LIKELY ,PRSI "would buy anything">
|
|
<RTRUE>)>
|
|
<NOT-A "salesperson">
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SSELL ()
|
|
<PERFORM ,V?SELL ,PRSI ,PRSO>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE PRE-SHOW ()
|
|
<COND (<OR <ZERO? ,PRSO>
|
|
<ZERO? ,PRSI>>
|
|
<REFERRING>
|
|
<RTRUE>)
|
|
(<OR <EQUAL? ,PRSO ,PRSI>
|
|
<IN? ,PRSI ,GLOBAL-OBJECTS>>
|
|
<IMPOSSIBLE>
|
|
<RTRUE>)
|
|
(<NOT <IS? ,PRSI ,LIVING>>
|
|
<TELL ,CANT "show things to " A ,PRSI ,PERIOD>
|
|
<RTRUE>)
|
|
(<AND <PRSI? ME>
|
|
<IN? ,PRSO ,PLAYER>>
|
|
<ALREADY-HAVE-PRSO>
|
|
<RTRUE>)
|
|
(<AND <NOT <PRSI? ME>>
|
|
<DONT-HAVE? ,PRSO>>
|
|
<RTRUE>)
|
|
(T
|
|
<RFALSE>)>>
|
|
|
|
<ROUTINE V-SSHOW ()
|
|
<PERFORM ,V?SHOW ,PRSI ,PRSO>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SHOW ()
|
|
<TELL CTHEI " glances at " THEO ", but makes no comment." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-REFUSE ()
|
|
<COND (<NOT <IS? ,PRSO ,TAKEABLE>>
|
|
<WASTE-OF-TIME>
|
|
<RTRUE>)>
|
|
<TELL "How could you turn down such a tempting " D ,PRSO "?" CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-HIDE ()
|
|
<TELL "There aren't any good hiding places here." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-KICK ()
|
|
<HACK-HACK "Kicking">
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-BOUNCE ()
|
|
<COND (<PRSO? ROOMS>
|
|
<WASTE-OF-TIME>
|
|
<RTRUE>)>
|
|
<IMPOSSIBLE>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-KILL ()
|
|
<COND (<NOT <IS? ,PRSO ,LIVING>>
|
|
<TELL ,CANT "possibly attack " A ,PRSO>
|
|
<COND (<AND <T? ,PRSI>
|
|
<NOT <PRSI? HANDS>>>
|
|
<TELL ", even with " A ,PRSI>)>
|
|
<PRINT ,PERIOD>
|
|
<RTRUE>)>
|
|
<V-HIT>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-HIT ()
|
|
<TELL "Attacking " THEO>
|
|
<COND (<AND <T? ,PRSI>
|
|
<NOT <PRSI? HANDS>>>
|
|
<TELL " with " A ,PRSI>)>
|
|
<WONT-HELP>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-KNOCK ()
|
|
<COND (<IS? ,PRSO ,DOORLIKE>
|
|
<COND (<IS? ,PRSO ,OPENED>
|
|
<ITS-ALREADY "open">
|
|
<RTRUE>)>
|
|
<TELL "There's no answer." CR>
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,PERSON>
|
|
<PERFORM ,V?USE ,PRSO>
|
|
<RTRUE>)>
|
|
<WASTE-OF-TIME>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-KISS ()
|
|
<WASTE-OF-TIME>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-LAMP-OFF ()
|
|
<V-LAMP-ON T>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-LAMP-ON ("OPTIONAL" (OFF? <>))
|
|
<TELL "You couldn't turn that ">
|
|
<COND (<T? .OFF?>
|
|
<TELL "off">)
|
|
(T
|
|
<TELL "on">)>
|
|
<COND (<NOT <EQUAL? ,PRSI <> ,HANDS>>
|
|
<TELL ", " D ,PRSI " or no " D ,PRSI>)>
|
|
<PRINT ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-LEAP ()
|
|
<COND (<NOT <PRSO? ROOMS>>
|
|
<TELL "That'd be a cute trick." CR>
|
|
<RTRUE>)
|
|
(T
|
|
<WASTE-OF-TIME>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-LEAVE ()
|
|
<COND (<OR <PRSO? ROOMS>
|
|
<NOT <IS? ,PRSO ,TAKEABLE>>>
|
|
<DO-WALK ,P?OUT>
|
|
<RTRUE>)
|
|
(<NOT <DONT-HAVE? ,PRSO>>
|
|
<PERFORM ,V?DROP ,PRSO>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SLEEP ()
|
|
<V-LIE-DOWN>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-LIE-DOWN ()
|
|
<TELL "This is no time for resting." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-LISTEN ("AUX" (OBJ <>))
|
|
<COND (<AND <HERE? IN-ORBIT>
|
|
<ZERO? ,SUITED?>>
|
|
<DONT-PROPAGATE>
|
|
<RTRUE>)
|
|
(<PRSO? ROOMS SOUND SKY>
|
|
<COND (<T? ,RAID?>
|
|
<PERFORM ,V?LISTEN ,SIRENS>
|
|
<RTRUE>)>
|
|
<SET OBJ <GETP ,HERE ,P?HEAR>>
|
|
<COND (<ZERO? .OBJ>
|
|
<COND (<IN? ,BEE ,HERE>
|
|
<PERFORM ,V?LISTEN ,BEE>
|
|
<RTRUE>)
|
|
(<HERE? SBOG NBOG>
|
|
<HEAR-DRIPPING>
|
|
<RTRUE>)
|
|
(<AND <VISIBLE? ,WTK>
|
|
<NOT <IS? ,WSWITCH ,OPENED>>>
|
|
<PERFORM ,V?LISTEN ,WTK>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL ,DONT "hear anything "
|
|
<PICK-NEXT ,YAWNS> ,PERIOD>
|
|
<RTRUE>)>)
|
|
(T
|
|
<PERFORM ,V?LISTEN .OBJ>
|
|
<RTRUE>)>)
|
|
(T
|
|
<TELL "At the moment, " THEO>
|
|
<IS-ARE>
|
|
<TELL "silent." CR>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-LOCK ()
|
|
<COND (<OR <IS? ,PRSO ,OPENABLE>
|
|
<IS? ,PRSO ,CONTAINER>>
|
|
<COND (<IS? ,PRSO ,OPENED>
|
|
<YOUD-HAVE-TO "close" ,PRSO>
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,LOCKED>
|
|
<TELL CTHEO>
|
|
<IS-ARE>
|
|
<TELL "already locked." CR>
|
|
<RTRUE>)
|
|
(T
|
|
<THING-WONT-LOCK ,PRSI ,PRSO>)>)
|
|
(T
|
|
<CANT-LOCK>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-UNLOCK ()
|
|
<COND (<OR <IS? ,PRSO ,OPENABLE>
|
|
<IS? ,PRSO ,CONTAINER>>
|
|
<COND (<OR <IS? ,PRSO ,OPENED>
|
|
<NOT <IS? ,PRSO ,LOCKED>>>
|
|
<TELL CTHEO>
|
|
<ISNT-ARENT>
|
|
<TELL "locked." CR>
|
|
<RTRUE>)
|
|
(T
|
|
<THING-WONT-LOCK ,PRSI ,PRSO T>)>)
|
|
(T
|
|
<CANT-LOCK T>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE CANT-LOCK ("OPTIONAL" (UN? <>))
|
|
<PRINT ,CANT>
|
|
<COND (<T? .UN?>
|
|
<TELL "un">)>
|
|
<TELL "lock " A ,PRSO ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE THING-WONT-LOCK (THING CLOSED-THING "OPTIONAL" (UN? <>))
|
|
<TELL CTHE .THING " won't ">
|
|
<COND (<T? .UN?>
|
|
<TELL "un">)>
|
|
<TELL "lock " THE .CLOSED-THING ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SCREW ()
|
|
<TELL ,CANT "screw " THEO " into " THEI ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SCREW-WITH ()
|
|
<NOT-LIKELY ,PRSI "could help you do that">
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-UNSCREW ()
|
|
<TELL ,CANT "unscrew " THEO>
|
|
<COND (<NOT <PRSI? HANDS>>
|
|
<TELL ", with or without " THEI>)>
|
|
<PRINT ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-UNSCREW-FROM ()
|
|
<COND (<PRSO? PRSI>
|
|
<IMPOSSIBLE>
|
|
<RTRUE>)
|
|
(<NOT <IN? ,PRSO ,PRSI>>
|
|
<COND (<IS? ,PRSI ,LIVING>
|
|
<TELL CTHEI " doesn't have " THEO ,PERIOD>
|
|
<RTRUE>)>
|
|
<TELL CTHEO>
|
|
<ISNT-ARENT>
|
|
<COND (<IS? ,PRSI ,SURFACE>
|
|
<TELL "on ">)
|
|
(T
|
|
<TELL "in ">)>
|
|
<TELL THEI ,PERIOD>
|
|
<RTRUE>)
|
|
(<IN? ,SDRIVER ,PLAYER>
|
|
<TELL "[with the " D ,SDRIVER ,BRACKET>
|
|
<PERFORM ,V?UNSCREW ,PRSO ,SDRIVER>
|
|
<RTRUE>)>
|
|
<TELL ,CANT "unscrew " THEO ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-UNTIE ()
|
|
<PRINT ,CANT>
|
|
<PRINTB ,P-PRSA-WORD>
|
|
<SPACE>
|
|
<TELL A ,PRSO ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-LOOK ()
|
|
<COND (<DESCRIBE-ROOM T>
|
|
<DESCRIBE-OBJECTS>
|
|
<MENTION-PRAM>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE MENTION-PRAM ()
|
|
<COND (<AND <NOT <HERE? DEATH THE-END>>
|
|
<IN? ,PRAM ,PLAYER>>
|
|
<SETG P-IT-OBJECT ,PRAM>
|
|
<TELL CR CTHE ,PRAM " rolls to a stop." CR>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-LOOK-ON ()
|
|
<COND (<ZERO? ,LIT?>
|
|
<TOO-DARK>
|
|
<RFATAL>)
|
|
(<IS? ,PRSO ,SURFACE>
|
|
<TELL ,YOU-SEE>
|
|
<PRINT-CONTENTS ,PRSO>
|
|
<TELL " on " THEO ,PERIOD>
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,READABLE>
|
|
<TELL CTHEO " is undecipherable." CR>
|
|
<RTRUE>)>
|
|
<NOTHING-INTERESTING>
|
|
<TELL " on " THEO ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-LOOK-BEHIND ()
|
|
<COND (<ZERO? ,LIT?>
|
|
<TOO-DARK>
|
|
<RFATAL>)
|
|
(<IS? ,PRSO ,DOORLIKE>
|
|
<COND (<IS? ,PRSO ,OPENED>
|
|
<CANT-SEE-MUCH>
|
|
<RTRUE>)>
|
|
<ITS-CLOSED ,PRSO>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL "There's nothing behind " THEO ,PERIOD>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-LOOK-DOWN ()
|
|
<COND (<ZERO? ,LIT?>
|
|
<TOO-DARK>)
|
|
(<PRSO? ROOMS>
|
|
<COND (<HERE? OSSUARY>
|
|
<PERFORM ,V?EXAMINE ,BONES>
|
|
<RTRUE>)
|
|
(<HERE? CLIFF-EDGE>
|
|
<LOOK-DOWN-TCLIFF>
|
|
<RTRUE>)
|
|
(<HERE? ON-CIST IN-CIST UNDER-WATER>
|
|
<LOOK-IN-RWATER>
|
|
<RTRUE>)
|
|
(<HERE? IN-MILL>
|
|
<TELL ,YOU-SEE THE ,RESERVOIR " down below." CR>
|
|
<RTRUE>)
|
|
(<HERE? IN-JEEP>
|
|
<V-LOOK>
|
|
<RTRUE>)
|
|
(<HERE? TOWER-PLAT ON-TOWER>
|
|
<LOOK-AT-ZERO>
|
|
<RTRUE>)
|
|
(<HERE? IN-SHACK>
|
|
<CANT-SEE-MUCH>
|
|
<RTRUE>)
|
|
(<HERE? ON-PLATFORM>
|
|
<CANT-SEE-MUCH>
|
|
<RTRUE>)
|
|
(<AND <IS? ,HERE ,CHILLY>
|
|
<NOT <HERE? ICE-CAVE ON-GNOMON HALFWAY>>
|
|
<NOT <IS? ,RODENTS ,TOUCHED>>>
|
|
<PERFORM ,V?EXAMINE ,RATS>
|
|
<RTRUE>)>
|
|
<PERFORM ,V?EXAMINE
|
|
<COND (<IS? ,HERE ,INDOORS> ,FLOOR)
|
|
(T ,GROUND)>>
|
|
<RTRUE>)
|
|
(T
|
|
<PERFORM ,V?LOOK-INSIDE ,PRSO>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-LOOK-UP ("AUX" (X <>))
|
|
<COND (<ZERO? ,LIT?>
|
|
<TOO-DARK>
|
|
<RFATAL>)
|
|
(<PRSO? ROOMS>
|
|
<SET X <GETP ,HERE ,P?OVERHEAD>>
|
|
<COND (<T? .X>
|
|
<PERFORM ,V?EXAMINE .X>
|
|
<RTRUE>)>
|
|
<NOTHING-INTERESTING>
|
|
<PRINT ,PERIOD>
|
|
<RTRUE>)>
|
|
<TELL ,CANT "look up " A ,PRSO ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-LOOK-INSIDE ()
|
|
<COND (<ZERO? ,LIT?>
|
|
<TOO-DARK>
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,PERSON>
|
|
<NOT-A "surgeon">
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,LIVING>
|
|
<NOT-A "veterinarian">
|
|
<RTRUE>)
|
|
; (<IS? ,PRSO ,OPENABLE>
|
|
<PERFORM ,V?EXAMINE ,PRSO>
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,CONTAINER>
|
|
<COND ; (<EQUAL? ,PRSO <LOC ,WINNER>>
|
|
<V-LOOK>
|
|
<RTRUE>)
|
|
(<AND <NOT <IS? ,PRSO ,OPENED>>
|
|
<NOT <IS? ,PRSO ,TRANSPARENT>>>
|
|
<ITS-CLOSED ,PRSO>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL ,YOU-SEE>
|
|
<PRINT-CONTENTS ,PRSO>
|
|
<TELL " in " THEO ,PERIOD>)>
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,DOORLIKE>
|
|
<COND (<IS? ,PRSO ,OPENED>
|
|
<CANT-SEE-MUCH>
|
|
<RTRUE>)>
|
|
<ITS-CLOSED ,PRSO>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL ,CANT "look inside " A ,PRSO ,PERIOD>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-LOOK-OUTSIDE ()
|
|
<COND (<ZERO? ,LIT?>
|
|
<TOO-DARK>
|
|
<RTRUE>)
|
|
(<PRSO? ROOMS>
|
|
<COND (<HERE? TUN1 TUN2 TUN3 IN-CLOSET UNDER-WATER
|
|
WABE IHOUSE ARBOR-TOP NORTH-ARBOR SOUTH-ARBOR>
|
|
<CANT-SEE-MUCH>
|
|
<RTRUE>)
|
|
(<IS? ,HERE ,INDOORS>
|
|
<NOTHING-INTERESTING>
|
|
<TELL " outside." CR>
|
|
<RTRUE>)>
|
|
<TELL ,YOURE-ALREADY "outside." CR>
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,DOORLIKE>
|
|
<COND (<IS? ,PRSO ,OPENED>
|
|
<CANT-SEE-MUCH>
|
|
<RTRUE>)>
|
|
<ITS-CLOSED ,PRSO>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL ,CANT "look out of " A ,PRSO ,PERIOD>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SLOOK-THRU ()
|
|
<PERFORM ,V?LOOK-THRU ,PRSI ,PRSO>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-LOOK-THRU ()
|
|
<COND (<ZERO? ,LIT?>
|
|
<TOO-DARK>
|
|
<RFATAL>)
|
|
(<AND <T? ,PRSI>
|
|
<NOT <IS? ,PRSI ,TRANSPARENT>>>
|
|
<TELL ,CANT "look through that." CR>
|
|
<RTRUE>)
|
|
(T
|
|
<NOTHING-INTERESTING>
|
|
<PRINT ,PERIOD>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-LOOK-UNDER ()
|
|
<COND (<ZERO? ,LIT?>
|
|
<TOO-DARK>
|
|
<RFATAL>)
|
|
; (<IN? ,PRSO ,PLAYER>
|
|
<TELL ,YOURE-ALREADY>
|
|
<COND (<IS? ,PRSO ,WORN>
|
|
<TELL "wear">)
|
|
(T
|
|
<TELL "hold">)>
|
|
<TELL "ing that." CR>
|
|
<RTRUE>)
|
|
(T
|
|
<NOTHING-INTERESTING>
|
|
<TELL " under " THEO ,PERIOD>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-WEDGE ()
|
|
<PERFORM ,V?LOOSEN ,PRSI ,PRSO>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-LOOSEN ()
|
|
<WASTE-OF-TIME>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-LOWER ()
|
|
<COND (<PRSO? ROOMS>
|
|
<DO-WALK ,P?DOWN>
|
|
<RTRUE>)
|
|
(T
|
|
<V-RAISE>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-MAKE ()
|
|
<HOW?>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-MELT ()
|
|
<HOW?>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-MOVE ()
|
|
<COND (<PRSO? ROOMS>
|
|
<V-WALK-AROUND>
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,TAKEABLE>
|
|
<TELL "Moving " THEO " would" <PICK-NEXT ,HO-HUM>
|
|
,PERIOD>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL ,CANT "possibly move " THEO ,PERIOD>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-MUNG ()
|
|
<HACK-HACK "Trying to destroy">
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-PAY ()
|
|
<PERFORM ,V?GIVE ,PRSI ,PRSO>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-PLAY ()
|
|
<COND (<PRSO? ROOMS>
|
|
<WASTE-OF-TIME>)
|
|
(T
|
|
<HACK-HACK "Playing with">)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-PICK ()
|
|
<COND (<IS? ,PRSO ,OPENABLE>
|
|
<NOT-A "locksmith">)
|
|
(T
|
|
<IMPOSSIBLE>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-POINT ("AUX" (M <>) (F <>))
|
|
<COND (<VISIBLE? ,MEEP>
|
|
<SET M T>)
|
|
(<VISIBLE? ,FLIPPER>
|
|
<SET F T>)>
|
|
<COND (<PRSO? MEEP FLIPPER>
|
|
T)
|
|
(<OR <PRSI? FLIPPER>
|
|
<AND <ZERO? ,PRSI>
|
|
<T? .F>>>
|
|
<SHOW-TO-FLIPPER ,PRSO>
|
|
<RTRUE>)
|
|
(<OR <PRSI? MEEP>
|
|
<AND <ZERO? ,PRSI>
|
|
<T? .M>>>
|
|
<SHOW-TO-MEEP ,PRSO>
|
|
<RTRUE>)>
|
|
<COND (<T? ,PRSI>
|
|
<COND (<IS? ,PRSI ,PERSON>
|
|
<TELL CTHEI>
|
|
<COND (<PRSO? PRSI>
|
|
<TELL " looks confused." CR>
|
|
<RTRUE>)>
|
|
<TELL " glances at " THEO ", but doesn't respond." CR>
|
|
<RTRUE>)>
|
|
<NOT-LIKELY ,PRSI "would respond">
|
|
<RTRUE>)>
|
|
<TELL "You point at " THEO ", but nothing "
|
|
<PICK-NEXT ,YAWNS> " happens." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SSHINE-AT ()
|
|
<PERFORM ,V?SHINE-AT ,PRSI ,PRSO>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SHINE-AT ()
|
|
<TELL ,CANT "illuminate anything with " A ,PRSO ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SPOINT-AT ()
|
|
<PERFORM ,V?POINT-AT ,PRSI ,PRSO>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-POINT-AT ()
|
|
<COND (<AND <IN? ,FLIPPER ,HERE>
|
|
<NOT <PRSI? FLIPPER>>>
|
|
<SHOW-TO-FLIPPER ,PRSI>
|
|
<RTRUE>)>
|
|
<TELL "You ">
|
|
<PRINTB ,P-PRSA-WORD>
|
|
<SPACE>
|
|
<TELL THEO " at " THEI ", but nothing " <PICK-NEXT ,YAWNS>
|
|
" happens." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-POP ()
|
|
<PRINT ,CANT>
|
|
<PRINTB ,P-PRSA-WORD>
|
|
<SPACE>
|
|
<TELL A ,PRSO ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-POUR ()
|
|
<COND (<PRSO? HANDS>
|
|
<TELL "[To do that, just DROP EVERYTHING.]" CR>
|
|
<RFATAL>)
|
|
(<PRSO? POCKET>
|
|
<YOUD-HAVE-TO "take off" ,CLOTHES>
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,SURFACE>
|
|
<EMPTY-PRSO ,GROUND>
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,CONTAINER>
|
|
<COND (<IS? ,PRSO ,OPENED>
|
|
<EMPTY-PRSO ,GROUND>
|
|
<RTRUE>)>
|
|
<ITS-CLOSED>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL ,CANT "empty that." CR>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-POUR-FROM ()
|
|
<COND (<PRSI? HANDS>
|
|
<PERFORM ,V?DROP ,PRSO>
|
|
<RTRUE>)
|
|
(<PRSI? POCKET>
|
|
<YOUD-HAVE-TO "take off" ,CLOTHES>
|
|
<RTRUE>)
|
|
(<AND <NOT <IS? ,PRSI ,CONTAINER>>
|
|
<NOT <IS? ,PRSI ,SURFACE>>>
|
|
<PRINT ,CANT>
|
|
<PRINTB ,P-PRSA-WORD>
|
|
<TELL " things from " A ,PRSI ,PERIOD>
|
|
<RTRUE>)
|
|
(<AND <IS? ,PRSI ,CONTAINER>
|
|
<NOT <IS? ,PRSI ,OPENED>>>
|
|
<ITS-CLOSED ,PRSI>
|
|
<RTRUE>)
|
|
(<IN? ,PRSO ,PRSI>
|
|
<COND (<IS? ,PRSO ,TAKEABLE>
|
|
<TELL CTHEO>
|
|
<SPACE>
|
|
<LANDS-AT-YOUR-FEET>
|
|
<RTRUE>)>
|
|
<IMPOSSIBLE>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL CTHEO " isn't in " THEI ,PERIOD>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-EMPTY-INTO ()
|
|
<COND (<PRSI? HANDS ME>
|
|
<V-EMPTY ,PLAYER>
|
|
<RTRUE>)
|
|
(<PRSI? GROUND FLOOR>
|
|
<V-EMPTY ,PRSI>
|
|
<RTRUE>)
|
|
(<IS? ,PRSI ,SURFACE>
|
|
<V-EMPTY ,PRSI>
|
|
<RTRUE>)
|
|
(<IS? ,PRSI ,CONTAINER>
|
|
<COND (<IS? ,PRSI ,OPENED>
|
|
<V-EMPTY ,PRSI>
|
|
<RTRUE>)>
|
|
<ITS-CLOSED ,PRSI>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL ,CANT "empty " THEO " into " THEI ,PERIOD>
|
|
<RTRUE>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-EMPTY ("OPTIONAL" (DEST <>))
|
|
<COND (<ZERO? .DEST>
|
|
<SET DEST ,PLAYER>)>
|
|
<COND (<IS? ,PRSO ,SURFACE>
|
|
<EMPTY-PRSO .DEST>
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,CONTAINER>
|
|
<COND (<IS? ,PRSO ,OPENED>
|
|
<EMPTY-PRSO .DEST>
|
|
<RTRUE>)>
|
|
<ITS-CLOSED ,PRSO>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL ,CANT "possibly empty " THEO ,PERIOD>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE EMPTY-PRSO (DEST "AUX" OBJ NXT X)
|
|
<SET OBJ <FIRST? ,PRSO>>
|
|
<COND (<ZERO? .OBJ>
|
|
<TELL "There's nothing ">
|
|
<COND (<IS? ,PRSO ,SURFACE>
|
|
<TELL "on ">)
|
|
(T
|
|
<TELL "in ">)>
|
|
<TELL THEO ,PERIOD>
|
|
<RTRUE>)>
|
|
<SETG P-MULT? T>
|
|
<REPEAT ()
|
|
<COND (<NOT <IS? .OBJ ,NOARTICLE>>
|
|
<TELL "The ">)>
|
|
<TELL D .OBJ ": ">
|
|
<COND (<EQUAL? .DEST ,PLAYER>
|
|
<SET X <PERFORM ,V?TAKE .OBJ ,PRSO>>
|
|
<COND (<EQUAL? .X ,M-FATAL>
|
|
<RETURN>)>)
|
|
(<EQUAL? .DEST ,GROUND ,FLOOR>
|
|
<COND (<IS? ,PRSO ,PLURAL>
|
|
<TELL "They ">)
|
|
(T
|
|
<TELL "It ">)>
|
|
<LANDS-AT-YOUR-FEET>)
|
|
(<G? <- <+ <WEIGHT .DEST> <WEIGHT .OBJ>>
|
|
<GETP .DEST ,P?SIZE>>
|
|
<GETP .DEST ,P?CAPACITY>>
|
|
<TELL "There isn't enough room ">
|
|
<COND (<IS? .DEST ,CONTAINER>
|
|
<TELL "in ">)
|
|
(T
|
|
<TELL "on ">)>
|
|
<TELL THE .DEST ,PERIOD>)
|
|
(T
|
|
<MOVE .OBJ .DEST>
|
|
<TELL "Done." CR>)>
|
|
<SET OBJ .NXT>
|
|
<COND (<ZERO? .OBJ>
|
|
<RETURN>)>>
|
|
<SETG P-MULT? <>>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-PULL ()
|
|
<HACK-HACK "Pulling on">
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-PUSH ()
|
|
<HACK-HACK "Pushing around">
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-PUSH-TO ()
|
|
<COND (<AND <PRSO? HANDS>
|
|
<T? ,PRSI>>
|
|
<PERFORM ,V?REACH-IN ,PRSI>
|
|
<RTRUE>)>
|
|
<TELL ,CANT "push " THEO " around like that." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE PRE-POCKET ()
|
|
<COND (<WRONG-WINNER?>
|
|
<RTRUE>)
|
|
(<IN? ,PRSO ,GLOBAL-OBJECTS>
|
|
<IMPOSSIBLE>
|
|
<RTRUE>)
|
|
(<IN? ,PRSO ,POCKET>
|
|
<TELL CTHEO>
|
|
<IS-ARE>
|
|
<TELL "already in " D ,POCKET ,PERIOD>
|
|
<RTRUE>)
|
|
(T
|
|
<RFALSE>)>>
|
|
|
|
<ROUTINE V-POCKET ()
|
|
<PERFORM ,V?PUT ,PRSO ,POCKET>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE PRE-PUT ()
|
|
<COND (<PRSO? CLOTHES>
|
|
<INAPPROPRIATE>
|
|
<RTRUE>)
|
|
(<PRSO? PRSI>
|
|
<COND (<AND <PRSO? BAG>
|
|
<CRUMBS? <GET ,P-NAMW 0>>>
|
|
<TELL "They're already in the bag." CR>
|
|
<RTRUE>)>
|
|
<HOW?>
|
|
<RTRUE>)
|
|
(<PRSI? INTDIR RIGHT LEFT>
|
|
<TELL "[You must specify an object.]" CR>
|
|
<RTRUE>)
|
|
(<PRSI? HANDS>
|
|
<NOT-LIKELY ,PRSO "would fit very well">
|
|
<RTRUE>)
|
|
(<EQUAL? ,FEET ,PRSO ,PRSI>
|
|
<COND (<OR <EQUAL? ,GBOOT ,PRSO ,PRSI>
|
|
<EQUAL? ,RBOOT ,PRSO ,PRSI>>
|
|
<RFALSE>)>
|
|
<WASTE-OF-TIME>
|
|
<RTRUE>)
|
|
(<IN? ,PRSI ,GLOBAL-OBJECTS>
|
|
<IMPOSSIBLE>
|
|
<RTRUE>)
|
|
(<PRSO? HANDS>
|
|
<PERFORM ,V?REACH-IN ,PRSI>
|
|
<RTRUE>)
|
|
(<IN? ,PRSO ,PRSI>
|
|
<TELL CTHEO>
|
|
<IS-ARE>
|
|
<TELL "already ">
|
|
<COND (<IS? ,PRSI ,SURFACE>
|
|
<TELL "o">)
|
|
(T
|
|
<TELL "i">)>
|
|
<TELL "n " THEI ,PERIOD>
|
|
<RTRUE>)
|
|
; (<AND <PRSO? BAG>
|
|
<SAID-CRUMBS?>>
|
|
<TAKE-CRUMBS>
|
|
<RTRUE>)
|
|
(<CRUMBS-GONE?>
|
|
<RTRUE>)
|
|
(<PRSO? HONEY>
|
|
<HONEY-STICKS>
|
|
<RTRUE>)
|
|
(<AND <PRSO? ICE>
|
|
<VERB? THROW THROW-OVER>>
|
|
<SHATTER-ICE>
|
|
<RTRUE>)
|
|
(<CRANE-LIT?>
|
|
<RTRUE>)
|
|
(<OR <EQUAL? ,PRSO ,PRSI>
|
|
<IN? ,PRSO ,GLOBAL-OBJECTS>
|
|
<NOT <IS? ,PRSO ,TAKEABLE>>>
|
|
<IMPOSSIBLE>
|
|
<RTRUE>)
|
|
(<NOT <ACCESSIBLE? ,PRSI>>
|
|
<CANT-SEE-ANY ,PRSI>
|
|
<RTRUE>)
|
|
(<AND <IS? ,PRSO ,WORN>
|
|
<IN? ,PRSO ,PLAYER>
|
|
<NOT <PRSI? ME>>>
|
|
<TAKE-OFF-PRSO-FIRST>
|
|
<RFALSE>)
|
|
(T
|
|
<RFALSE>)>>
|
|
|
|
<ROUTINE CRANE-LIT? ()
|
|
<COND (<AND <PRSO? CRANE>
|
|
<IS? ,PRSO ,LIGHTED>>
|
|
<TELL "You hesitate as the " D ,PRSO
|
|
" glows brighter." CR>
|
|
<RTRUE>)
|
|
(T
|
|
<RFALSE>)>>
|
|
|
|
<ROUTINE TAKE-OFF-PRSO-FIRST ()
|
|
<UNMAKE ,PRSO ,WORN>
|
|
<TELL "[taking off " THEO " first" ,BRACKET>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE PRE-PUT-ON ()
|
|
<COND (<PRE-PUT>
|
|
<RTRUE>)
|
|
(<NOT <IS? ,PRSI ,SURFACE>>
|
|
<NO-GOOD-SURFACE>
|
|
<RTRUE>)
|
|
(T
|
|
<RFALSE>)>>
|
|
|
|
<ROUTINE NO-GOOD-SURFACE ()
|
|
<TELL "There's no good " D ,CSURFACE " on " THEI ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-PUT-ON ()
|
|
<COND (<PRSI? ME>
|
|
<PERFORM ,V?WEAR ,PRSO>
|
|
<RTRUE>)>
|
|
<V-PUT>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-PUT ("AUX" L)
|
|
<SET L <LOC ,PRSO>>
|
|
<COND (<OR <ZERO? .L>
|
|
<AND <T? ,PRSI>
|
|
<NOT <IS? ,PRSI ,SURFACE>>
|
|
<NOT <IS? ,PRSI ,CONTAINER>>
|
|
<NOT <IS? ,PRSI ,OPENED>>
|
|
<NOT <IS? ,PRSI ,OPENABLE>>>>
|
|
<IMPOSSIBLE>
|
|
<RTRUE>)
|
|
(<AND <NOT <IS? ,PRSI ,OPENED>>
|
|
<NOT <IS? ,PRSI ,SURFACE>>>
|
|
<THIS-IS-IT ,PRSI>
|
|
<TELL CTHEI>
|
|
<ISNT-ARENT ,PRSI>
|
|
<TELL "open." CR>
|
|
<RTRUE>)
|
|
(<G? <- <+ <WEIGHT ,PRSI> <WEIGHT ,PRSO>>
|
|
<GETP ,PRSI ,P?SIZE>>
|
|
<GETP ,PRSI ,P?CAPACITY>>
|
|
<TELL "There isn't enough room ">
|
|
<COND (<IS? ,PRSI ,CONTAINER>
|
|
<TELL "in ">)
|
|
(T
|
|
<TELL "on ">)>
|
|
<TELL THEI ,PERIOD>
|
|
<RTRUE>)
|
|
(<NOT <EQUAL? .L ,PLAYER>>
|
|
<TELL "Maybe you should take " THEO>
|
|
<COND (<IS? .L ,SURFACE>
|
|
<TELL " off ">)
|
|
(T
|
|
<TELL " out of ">)>
|
|
<TELL THE .L " first." CR>
|
|
<RTRUE>)>
|
|
<MOVE ,PRSO ,PRSI>
|
|
<MAKE ,PRSO ,TOUCHED>
|
|
<COND (<T? ,P-MULT?>
|
|
<TELL "Done." CR>)
|
|
(T
|
|
<TELL "You put " THEO>
|
|
<COND (<IS? ,PRSI ,CONTAINER>
|
|
<TELL " in ">)
|
|
(T
|
|
<TELL " on ">)>
|
|
<TELL THEI ,PERIOD>)>
|
|
<COND (<AND <PRSI? POCKET>
|
|
<EQUAL? ,PRSO ,LEM ,SKINK>>
|
|
<TELL CR CTHEO
|
|
" squirms uncomfortably for a moment, then lies still." CR>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-PLUG ()
|
|
<PRINT ,CANT>
|
|
<PRINTB ,P-PRSA-WORD>
|
|
<SPACE>
|
|
<TELL THEO " into ">
|
|
<COND (<T? ,PRSI>
|
|
<TELL THEI>)
|
|
(T
|
|
<TELL "anything">)>
|
|
<PRINT ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-UNPLUG ()
|
|
<TELL CTHEO>
|
|
<ISNT-ARENT>
|
|
<TELL "connected to ">
|
|
<COND (<T? ,PRSI>
|
|
<TELL THEI>)
|
|
(T
|
|
<TELL "anything">)>
|
|
<PRINT ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-PUT-BEHIND ()
|
|
<TELL "That hiding place is too obvious." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-PUT-UNDER ()
|
|
<TELL ,CANT "put anything under that." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-RAPE ()
|
|
<TELL "What a wholesome idea." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-RAISE ()
|
|
<COND (<PRSO? ROOMS>
|
|
<V-STAND>
|
|
<RTRUE>)
|
|
(T
|
|
<HACK-HACK "Toying in this way with">)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-REACH-IN ("AUX" OBJ)
|
|
<SET OBJ <FIRST? ,PRSO>>
|
|
<COND (<OR <IS? ,PRSO ,PERSON>
|
|
<IS? ,PRSO ,LIVING>>
|
|
<NOT-A "surgeon">
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,DOORLIKE>
|
|
<COND (<IS? ,PRSO ,OPENED>
|
|
<TELL "You reach into " THEO
|
|
", but experience nothing "
|
|
<PICK-NEXT ,YAWNS> ,PERIOD>
|
|
<RTRUE>)>
|
|
<ITS-CLOSED>
|
|
<RTRUE>)
|
|
(<NOT <IS? ,PRSO ,CONTAINER>>
|
|
<IMPOSSIBLE>
|
|
<RTRUE>)
|
|
(<NOT <IS? ,PRSO ,OPENED>>
|
|
<TELL "It's not open." CR>
|
|
<RTRUE>)
|
|
(<OR <ZERO? .OBJ>
|
|
<NOT <IS? .OBJ ,TAKEABLE>>>
|
|
<TELL "It's empty." CR>
|
|
<RTRUE>)
|
|
(T
|
|
<SETG P-IT-OBJECT .OBJ>
|
|
<TELL "You reach into " THEO " and feel something." CR>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-READ ()
|
|
<COND (<ZERO? ,LIT?>
|
|
<TOO-DARK>
|
|
<RFATAL>)
|
|
(<NOT <IS? ,PRSO ,READABLE>>
|
|
<HOW-READ>
|
|
<TELL "?" CR>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL "There's nothing written on it." CR>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-READ-TO ()
|
|
<COND (<ZERO? ,LIT?>
|
|
<TOO-DARK>
|
|
<RFATAL>)
|
|
(<NOT <IS? ,PRSO ,READABLE>>
|
|
<HOW-READ>
|
|
<TELL " to " A ,PRSI "?" CR>
|
|
<RTRUE>)
|
|
(<EQUAL? ,WINNER ,PLAYER>
|
|
<NOT-LIKELY ,PRSI "would appreciate your reading">
|
|
<RTRUE>)
|
|
(T
|
|
<TELL "Maybe you ought to do it." CR>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE HOW-READ ()
|
|
<TELL "How can you read " A ,PRSO>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-RELEASE ()
|
|
<COND (<IN? ,PRSO ,WINNER>
|
|
<PERFORM ,V?DROP ,PRSO>
|
|
<RTRUE>)
|
|
(<IN? ,PRSO ,CAGE>
|
|
<COND (<IS? ,CAGE ,OPENED>
|
|
<TELL CTHE ,CAGE " isn't closed." CR>
|
|
<RTRUE>)>
|
|
<PERFORM ,V?OPEN ,CAGE>
|
|
<RTRUE>)
|
|
(<AND <PRSO? LEM>
|
|
<IN? ,PRSO ,FISSURE>>
|
|
<HOW?>
|
|
<RTRUE>)
|
|
(T
|
|
<COND (<PRSO? ME>
|
|
<TELL "You aren't ">)
|
|
(T
|
|
<TELL CTHEO>
|
|
<ISNT-ARENT>)>
|
|
<TELL "confined by anything." CR>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-REPLACE ()
|
|
<COND (<PRSO? ME>
|
|
<TELL "Easily done." CR>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL CTHEO " doesn't need replacement." CR>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-REPAIR ()
|
|
<COND (<PRSO? ME>
|
|
<TELL "You aren't ">)
|
|
(T
|
|
<TELL CTHEO>
|
|
<ISNT-ARENT>)>
|
|
<TELL "in need of repair." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-HELP ()
|
|
<TELL
|
|
"[If you're really stuck, maps and InvisiClues(TM) Hint Booklets are available at most Infocom dealers, or use the order form included in your ">
|
|
<ITALICIZE "Trinity">
|
|
<TELL " package.]" CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-RESCUE ()
|
|
<COND (<PRSO? ME>
|
|
<COND (<EQUAL? ,WINNER ,PLAYER>
|
|
<V-HELP>
|
|
<RTRUE>)>
|
|
<HOW?>
|
|
<RTRUE>)>
|
|
<TELL CTHEO>
|
|
<COND (<IS? ,PRSO ,PLURAL>
|
|
<TELL " do">)
|
|
(T
|
|
<TELL " does">)>
|
|
<TELL "n't need any help." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-RIDE ()
|
|
<COND (<IS? ,PRSO ,LIVING>
|
|
<NOT-LIKELY ,PRSO "wants to play piggyback">
|
|
<RTRUE>)
|
|
(T
|
|
<TELL ,CANT "ride that." CR>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-TOUCH ()
|
|
<HACK-HACK "Fiddling with">
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-STOUCH-TO ()
|
|
<PERFORM ,V?TOUCH-TO ,PRSI ,PRSO>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-TOUCH-TO ()
|
|
<COND (<PRSO? HANDS>
|
|
<PERFORM ,V?TOUCH ,PRSI>
|
|
<RTRUE>)>
|
|
<TELL "You ">
|
|
<PRINTB ,P-PRSA-WORD>
|
|
<TELL " " THEO " next to " THEI
|
|
", but nothing " <PICK-NEXT ,YAWNS> " happens." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-TUNE-TO ()
|
|
<IMPOSSIBLE>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-BOW ()
|
|
<HACK-HACK "Paying respect to">
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SEARCH ()
|
|
<COND (<IS? ,PRSO ,CONTAINER>
|
|
<COND (<AND <NOT <IS? ,PRSO ,OPENED>>
|
|
<NOT <IS? ,PRSO ,TRANSPARENT>>>
|
|
<YOUD-HAVE-TO "open" ,PRSO>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL ,YOU-SEE>
|
|
<PRINT-CONTENTS ,PRSO>
|
|
<TELL " inside " THEO ,PERIOD>)>
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,SURFACE>
|
|
<TELL ,YOU-SEE>
|
|
<PRINT-CONTENTS ,PRSO>
|
|
<TELL " on " THEO ,PERIOD>
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,PERSON>
|
|
<PERFORM ,V?USE ,PRSO>
|
|
<RTRUE>)
|
|
(T
|
|
<NOTHING-INTERESTING>
|
|
<PRINT ,PERIOD>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SHAKE ("AUX" X)
|
|
<COND (<IS? ,PRSO ,PERSON>
|
|
<PERFORM ,V?ALARM ,PRSO>)
|
|
(<AND <NOT <IS? ,PRSO ,TAKEABLE>>
|
|
<NOT <IS? ,PRSO ,TRYTAKE>>>
|
|
<HACK-HACK "Shaking">)
|
|
(T
|
|
<WASTE-OF-TIME>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SHOOT ()
|
|
<TELL ,DONT "have any weapons." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SIT ()
|
|
<COND (<EQUAL? ,PRSO <> ,ROOMS>
|
|
<COND (<HERE? IN-JEEP>
|
|
<TELL "You're already sitting." CR>
|
|
<RTRUE>)
|
|
(<HERE? N75>
|
|
<YOUD-HAVE-TO "get into" ,JEEP>
|
|
<RTRUE>)
|
|
(<HERE? BROAD-WALK>
|
|
<PERFORM ,V?SIT ,BENCH>
|
|
<RTRUE>)>
|
|
<NO-SWIM>
|
|
<RTRUE>)>
|
|
<WASTE-OF-TIME>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SMELL ("AUX" (OBJ <>))
|
|
<COND (<AND <HERE? IN-ORBIT>
|
|
<ZERO? ,SUITED?>>
|
|
<DONT-PROPAGATE>
|
|
<RTRUE>)
|
|
(<PRSO? ROOMS SKY>
|
|
<SET OBJ <GETP ,HERE ,P?ODOR>>
|
|
<COND (<ZERO? .OBJ>
|
|
<TELL ,DONT "smell anything " <PICK-NEXT ,YAWNS>
|
|
,PERIOD>
|
|
<RTRUE>)
|
|
(T
|
|
<PERFORM ,V?SMELL .OBJ>
|
|
<RTRUE>)>)
|
|
(T
|
|
<TELL "It smells just like " A ,PRSO ,PERIOD>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SPIN ()
|
|
<COND (<PRSO? ROOMS>
|
|
<COND (<HERE? IN-CLOSET>
|
|
<TELL "There's barely enough room." CR>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL "You begin to feel a little dizzy." CR>)>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL ,CANT "spin that." CR>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SQUEEZE ()
|
|
<WASTE-OF-TIME>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-DUCK ()
|
|
<WASTE-OF-TIME>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-STAND ()
|
|
<COND (<T? ,IN-PRAM?>
|
|
<PERFORM ,V?STAND-ON ,PRAM>
|
|
<RTRUE>)
|
|
(<HERE? IN-JEEP>
|
|
<YOUD-HAVE-TO "get out of" ,JEEP>
|
|
<RTRUE>)
|
|
(T
|
|
<ALREADY-STANDING>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE ALREADY-STANDING ()
|
|
<TELL ,YOURE-ALREADY "standing." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-STAND-ON ()
|
|
<WASTE-OF-TIME>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-STAND-UNDER ()
|
|
<IMPOSSIBLE>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SWING ()
|
|
<COND (<ZERO? ,PRSI>
|
|
<WASTE-OF-TIME>
|
|
<RTRUE>)
|
|
(T
|
|
<PERFORM ,V?KILL ,PRSI ,PRSO>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SWIM ()
|
|
<COND (<PRSO? ROOMS>
|
|
<COND (<AND <T? ,IN-DISH?>
|
|
<HERE? PROM>>
|
|
<PERFORM ,V?SWIM ,DISH>
|
|
<RTRUE>)
|
|
(<GLOBAL-IN? ,STREAM ,HERE>
|
|
<PERFORM ,V?SWIM ,STREAM>
|
|
<RTRUE>)
|
|
(<HERE? LONG-WATER ROUND-POND ON-CIST>
|
|
<DO-WALK ,P?IN>
|
|
<RTRUE>)
|
|
(<HERE? IN-WATER IN-CIST UNDER-WATER>
|
|
<DO-WALK ,P?DOWN>
|
|
<RTRUE>)
|
|
(<HERE? DOCKSIDE AT-BEND ON-MOOR>
|
|
<PERFORM ,V?SWIM ,STYX>
|
|
<RTRUE>)
|
|
(<HERE? SSAND WSAND ESAND NSAND>
|
|
<PERFORM ,V?SWIM ,LAGOON>
|
|
<RTRUE>)>
|
|
<NO-SWIM>
|
|
<RTRUE>)
|
|
(<AND <PRSO? INTDIR>
|
|
<T? ,P-DIRECTION>
|
|
<EQUAL? ,WINNER ,PLAYER>>
|
|
<COND (<OR <HERE? IN-WATER UNDER-WATER>
|
|
<AND <HERE? ON-CIST>
|
|
<EQUAL? ,P-DIRECTION ,P?NORTH ,P?IN>>
|
|
<AND <HERE? IN-CIST>
|
|
<EQUAL? ,P-DIRECTION ,P?SOUTH ,P?OUT>>
|
|
<AND <HERE? LONG-WATER>
|
|
<EQUAL? ,P-DIRECTION ,P?EAST ,P?IN>>
|
|
<AND <HERE? SSAND>
|
|
<EQUAL? ,P-DIRECTION ,P?SOUTH ,P?SE ,P?SW>>
|
|
<AND <HERE? ESAND>
|
|
<EQUAL? ,P-DIRECTION ,P?EAST ,P?SE ,P?NE>>
|
|
<AND <HERE? WSAND>
|
|
<EQUAL? ,P-DIRECTION ,P?WEST ,P?NW ,P?SW>>
|
|
<AND <HERE? NSAND>
|
|
<EQUAL? ,P-DIRECTION ,P?NORTH ,P?NE ,P?NW>>>
|
|
<DO-WALK ,P-DIRECTION>
|
|
<RTRUE>)>
|
|
<PRINT ,CANT>
|
|
<PRINTB ,P-PRSA-WORD>
|
|
<TELL " that way from here." CR>
|
|
<RTRUE>)
|
|
(T
|
|
<IMPOSSIBLE>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE NO-SWIM ()
|
|
<TELL "There's no place to ">
|
|
<PRINTB ,P-PRSA-WORD>
|
|
<TELL " here." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-DIVE ()
|
|
<COND (<PRSO? ROOMS>
|
|
<COND (<HERE? HALFWAY ON-GNOMON>
|
|
<DO-WALK ,P?EAST>
|
|
<RTRUE>)
|
|
(<HERE? LONG-WATER ROUND-POND ON-CIST>
|
|
<DO-WALK ,P?IN>
|
|
<RTRUE>)
|
|
(<HERE? IN-WATER IN-CIST UNDER-WATER>
|
|
<DO-WALK ,P?DOWN>
|
|
<RTRUE>)
|
|
(<HERE? SSAND WSAND ESAND NSAND>
|
|
<PERFORM ,V?SWIM ,LAGOON>
|
|
<RTRUE>)>
|
|
<NO-SWIM>
|
|
<RTRUE>)
|
|
(<AND <PRSO? INTDIR>
|
|
<T? ,P-DIRECTION>
|
|
<EQUAL? ,WINNER ,PLAYER>>
|
|
<COND (<OR <HERE? IN-WATER UNDER-WATER>
|
|
<AND <HERE? ON-CIST>
|
|
<EQUAL? ,P-DIRECTION ,P?NORTH ,P?IN>>
|
|
<AND <HERE? LONG-WATER>
|
|
<EQUAL? ,P-DIRECTION ,P?EAST ,P?IN>>>
|
|
<DO-WALK ,P-DIRECTION>
|
|
<RTRUE>)>
|
|
<PRINT ,CANT>
|
|
<PRINTB ,P-PRSA-WORD>
|
|
<TELL " that way from here." CR>
|
|
<RTRUE>)
|
|
(T
|
|
<IMPOSSIBLE>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SGET-FOR ()
|
|
<PERFORM ,V?TAKE ,PRSI>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-GET-FOR ()
|
|
<PERFORM ,V?TAKE ,PRSO>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-TAKE-WITH ()
|
|
<HOW?>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-TAKE-OFF ()
|
|
<COND (<PRSO? CLOTHES FEET>
|
|
<INAPPROPRIATE>
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,TAKEABLE>
|
|
<COND (<AND <IN? ,PRSO ,WINNER>
|
|
<IS? ,PRSO ,WORN>>
|
|
<UNMAKE ,PRSO ,WORN>
|
|
<TELL "You take off " THEO ,PERIOD>
|
|
<RTRUE>)
|
|
(T
|
|
<PERFORM ,V?TAKE ,PRSO>)>
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,VEHBIT>
|
|
<PERFORM ,V?EXIT ,PRSO>
|
|
<RTRUE>)
|
|
(T
|
|
<IMPOSSIBLE>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-TASTE ()
|
|
<PERFORM ,V?EAT ,PRSO>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-ADJUST ()
|
|
<COND (<EQUAL? ,P-PRSA-WORD ,W?ADJUST>
|
|
<TELL CTHEO " doesn't need adjustment." CR>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL ,CANT " focus " A ,PRSO ,PERIOD>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-FOCUS-ON ()
|
|
<COND (<ZERO? ,PRSI>
|
|
<COND (<PRSO? BINOS>
|
|
<IMPOSSIBLE>
|
|
<RTRUE>)
|
|
(<IN? ,BINOS ,PLAYER>
|
|
; <TELL "[with the " D ,BINOS ,BRACKET>
|
|
<PERFORM ,V?LOOK-THRU ,PRSO ,BINOS>
|
|
<RTRUE>)
|
|
(T
|
|
<HOW?>)>
|
|
<RTRUE>)
|
|
(T
|
|
<COND (<PRSO? BINOS>
|
|
<PERFORM ,V?LOOK-THRU ,PRSI ,PRSO>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL ,CANT "focus " THEO
|
|
" on " THEI ,PERIOD>)>)>
|
|
<RTRUE>>
|
|
|
|
"*** CHARACTER INTERACTION DEFAULTS ***"
|
|
|
|
<ROUTINE SILLY-SPEAK? ()
|
|
<COND (<EQUAL? ,PRSO <> ,ROOMS>
|
|
<RFALSE>)
|
|
(<NOT <IS? ,PRSO ,PERSON>>
|
|
<NOT-LIKELY ,PRSO "would respond">
|
|
<PCLEAR>
|
|
<RTRUE>)
|
|
(<PRSO? ME PRSI WINNER>
|
|
<WASTE-OF-TIME>
|
|
<PCLEAR>
|
|
<RTRUE>)
|
|
(T
|
|
<THIS-IS-IT ,PRSO>
|
|
<RFALSE>)>>
|
|
|
|
<ROUTINE NO-RESPONSE ()
|
|
<TELL CTHEO " doesn't respond." CR>
|
|
<PCLEAR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-ASK-ABOUT ()
|
|
<COND (<SILLY-SPEAK?>
|
|
<RFATAL>)
|
|
(<EQUAL? ,WINNER ,PRSI>
|
|
<WASTE-OF-TIME>
|
|
<RFATAL>)
|
|
(<PRSO? ME>
|
|
<TALK-TO-SELF>
|
|
<RTRUE>)>
|
|
<NO-RESPONSE>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-REPLY ("AUX" WHO)
|
|
<COND (<SILLY-SPEAK?>
|
|
<RFATAL>)>
|
|
<NO-RESPONSE>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-QUESTION ()
|
|
<COND (<EQUAL? ,WINNER ,PLAYER>
|
|
<TO-DO-THING-USE "ask about" "ASK CHARACTER ABOUT">
|
|
<RFATAL>)>
|
|
<NO-RESPONSE>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-ALARM ()
|
|
<COND (<SILLY-SPEAK?>
|
|
<RFATAL>)>
|
|
<COND (<PRSO? ROOMS ME>
|
|
<TELL ,YOURE-ALREADY "wide awake." CR>
|
|
<RTRUE>)
|
|
(<PRSO? DSKINK DLEM DMEEP>
|
|
<THIS-IS-NOT "The Greatest Story Ever Told">
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,LIVING>
|
|
<TELL CTHEO>
|
|
<IS-ARE>
|
|
<TELL "already wide awake." CR>
|
|
<RTRUE>)>
|
|
<IMPOSSIBLE>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-YELL ()
|
|
<COND (<PRSO? ROOMS>
|
|
<COND (<HERE? S100>
|
|
<PERFORM ,V?YELL ,GIS>
|
|
<RTRUE>)
|
|
(<HERE? W100>
|
|
<WAKE-DOG>
|
|
<RTRUE>)>
|
|
<TELL "You begin to get a sore throat." CR>
|
|
<RTRUE>)>
|
|
<NOT-LIKELY ,PRSO "would respond">
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SAY ()
|
|
<COND (<EQUAL? ,WINNER ,PLAYER>
|
|
<COND (<ANYONE-HERE?>
|
|
<WAY-TO-TALK>
|
|
<RTRUE>)>
|
|
<TALK-TO-SELF>
|
|
<RTRUE>)>
|
|
<NO-RESPONSE>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-GOODBYE ()
|
|
<V-HELLO>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-HELLO ()
|
|
<COND (<SILLY-SPEAK?>
|
|
<RFATAL>)
|
|
(<PRSO? ROOMS>
|
|
<TALK-TO-SELF>
|
|
<RTRUE>)>
|
|
<NO-RESPONSE>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-WAVE-AT ()
|
|
<V-WHAT>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-ASK-FOR ("AUX" WHO)
|
|
<COND (<SILLY-SPEAK?>
|
|
<RFATAL>)
|
|
(<OR <EQUAL? ,WINNER ,PRSI>
|
|
<NOT <IS? ,PRSI ,TAKEABLE>>>
|
|
<IMPOSSIBLE>
|
|
<RTRUE>)>
|
|
<NO-RESPONSE>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-TELL ()
|
|
<COND (<SILLY-SPEAK?>
|
|
<RFATAL>)
|
|
(<PRSO? ME>
|
|
<COND (<EQUAL? ,WINNER ,PLAYER>
|
|
<TALK-TO-SELF>
|
|
<RTRUE>)>
|
|
<NO-RESPONSE>
|
|
<RTRUE>)
|
|
(T
|
|
<SETG QCONTEXT ,PRSO>
|
|
<SETG QCONTEXT-ROOM <LOC ,PRSO>>
|
|
<COND (<T? ,P-CONT>
|
|
<SETG WINNER ,PRSO>
|
|
<THIS-IS-IT ,PRSO>
|
|
<RTRUE>)>
|
|
<NO-RESPONSE>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-TELL-ABOUT ()
|
|
<V-WHAT>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-THANK ()
|
|
<COND (<SILLY-SPEAK?>
|
|
<RFATAL>)
|
|
(<EQUAL? ,WINNER ,PLAYER>
|
|
<COND (<PRSO? ME>
|
|
<TELL "Self-congratulations">
|
|
<WONT-HELP>
|
|
<RTRUE>)>
|
|
<TELL "There's no need to thank " THEO ,PERIOD>
|
|
<RTRUE>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-WHO ()
|
|
<V-WHAT>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-WHERE ()
|
|
<V-WHAT>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-WHAT ()
|
|
<COND (<SILLY-SPEAK?>
|
|
<RFATAL>)>
|
|
<NO-RESPONSE>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-THROUGH ()
|
|
<COND (<PRSO? ROOMS>
|
|
<DO-WALK ,P?IN>
|
|
<RTRUE>)
|
|
; (<IS? ,PRSO ,OPENABLE>
|
|
<DO-WALK <OTHER-SIDE ,PRSO>>
|
|
<RTRUE>)
|
|
; (<IS? ,PRSO ,VEHBIT>
|
|
<PERFORM ,V?ENTER ; ,V?BOARD ,PRSO>
|
|
<RTRUE>)
|
|
; (<IN? ,PRSO ,WINNER>
|
|
<TELL "That would involve quite a contortion." CR>
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,LIVING>
|
|
<V-RAPE>
|
|
<RTRUE>)
|
|
; (<NOT <IS? ,PRSO ,TAKEABLE>>
|
|
<TELL "You hit your head against " THEO
|
|
" as you attempt this feat." CR>
|
|
<RTRUE>)>
|
|
<IMPOSSIBLE>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-STHROW ()
|
|
<PERFORM ,V?THROW ,PRSI ,PRSO>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE PRE-THROW-OVER ()
|
|
<COND (<PRE-THROW>
|
|
<RTRUE>)>
|
|
<RFALSE>>
|
|
|
|
<ROUTINE V-THROW-OVER ()
|
|
<WASTE-OF-TIME>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE PRE-THROW ()
|
|
<COND (<CRUMBS-GONE?>
|
|
<RTRUE>)
|
|
(<PRSO? BAG>
|
|
<TELL "Better not. The bread crumbs might fall out." CR>
|
|
<RTRUE>)
|
|
(<OR <PRSO? CRANE OCRANE BAD-CRANE SOGGY>
|
|
<AND <PRSO? EBAG>
|
|
<NOT <FIRST? ,PRSO>>>>
|
|
<NOT-LIKELY ,PRSO "would go very far">
|
|
<RTRUE>)
|
|
(<PRE-PUT>
|
|
<RTRUE>)
|
|
(T
|
|
<RFALSE>)>>
|
|
|
|
<ROUTINE V-THROW ()
|
|
<COND (<IDROP>
|
|
<TELL "Thrown" ,PCR CTHEO " lands on the ">
|
|
<COND (<IS? ,HERE ,INDOORS>
|
|
<TELL D ,FLOOR>)
|
|
(T
|
|
<TELL D ,GROUND>)>
|
|
<TELL " nearby." CR>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-TIE ()
|
|
<TELL ,CANT "possibly tie " THEO>
|
|
<COND (<T? ,PRSI>
|
|
<TELL " to " THEI>)>
|
|
<PRINT ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-TIE-UP ()
|
|
<TELL ,CANT "tie anything with that." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-TURN ()
|
|
<COND (<AND <NOT <IS? ,PRSO ,TAKEABLE>>
|
|
<NOT <IS? ,PRSO ,TRYTAKE>>>
|
|
<IMPOSSIBLE>
|
|
<RTRUE>)
|
|
(T
|
|
<HACK-HACK "Turning">)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-TURN-TO ()
|
|
<COND (<VISIBLE? ,PRSO>
|
|
<PERFORM ,V?WATCH ,PRSO>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL ,DONT "see " THEO ,PERIOD>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE DO-WALK (DIR1 "OPTIONAL" (DIR2 <>) (DIR3 <>) "AUX" X)
|
|
<SETG P-WALK-DIR .DIR1>
|
|
<SET X <PERFORM ,V?WALK .DIR1>>
|
|
<COND (<AND <T? .DIR2>
|
|
<NOT <EQUAL? .X <> ,M-FATAL>>>
|
|
<CRLF>
|
|
<SETG P-WALK-DIR .DIR2>
|
|
<SET X <PERFORM ,V?WALK .DIR2>>
|
|
<COND (<AND <T? .DIR3>
|
|
<NOT <EQUAL? .X <> ,M-FATAL>>>
|
|
<CRLF>
|
|
<SETG P-WALK-DIR .DIR3>
|
|
<SET X <PERFORM ,V?WALK .DIR3>>)>)>
|
|
<RETURN .X>>
|
|
|
|
<GLOBAL FLIP?:FLAG <>>
|
|
|
|
<ROUTINE V-WALK ("AUX" PT PTS STR OBJ RM)
|
|
<COND (<AND <T? ,FLIP?>
|
|
<T? ,P-WALK-DIR>
|
|
<IS? ,HERE ,SHADOWY>>
|
|
<SETG PRSO <COND (<PRSO? P?EAST> ,P?WEST)
|
|
(<PRSO? P?WEST> ,P?EAST)
|
|
(<PRSO? P?SE> ,P?SW)
|
|
(<PRSO? P?SW> ,P?SE)
|
|
(<PRSO? P?NE> ,P?NW)
|
|
(<PRSO? P?NW> ,P?NE)
|
|
(T ,PRSO)>>)>
|
|
<COND (<ZERO? ,P-WALK-DIR>
|
|
<COND (<T? ,PRSO>
|
|
<TELL "[Presumably, you mean WALK TO " THEO
|
|
"." ,BRACKET>
|
|
<PERFORM ,V?WALK-TO ,PRSO>)
|
|
(T
|
|
<V-WALK-AROUND>)>
|
|
<RTRUE>)>
|
|
<SET PT <GETPT ,HERE ,PRSO>>
|
|
<COND (<T? .PT>
|
|
<SET PTS <PTSIZE .PT>>
|
|
<COND (<EQUAL? .PTS ,UEXIT>
|
|
<SET RM <GET-REXIT-ROOM .PT>>
|
|
<FLY-TO? .RM>
|
|
<GOTO .RM>
|
|
<RTRUE>)
|
|
(<EQUAL? .PTS ,NEXIT>
|
|
<TELL <GET .PT ,NEXITSTR> CR>
|
|
<RFATAL>)
|
|
(<EQUAL? .PTS ,FEXIT>
|
|
<SET RM <APPLY <GET .PT ,FEXITFCN>>>
|
|
<COND (<ZERO? .RM>
|
|
<RFATAL>)
|
|
(T
|
|
<GOTO .RM>
|
|
<RTRUE>)>)
|
|
(<EQUAL? .PTS ,CEXIT>
|
|
<COND (<VALUE <GETB .PT ,CEXITFLAG>>
|
|
<GOTO <GET-REXIT-ROOM .PT>>
|
|
<RTRUE>)>
|
|
<SET STR <GET .PT ,CEXITSTR>>
|
|
<COND (<T? .STR>
|
|
<TELL .STR CR>
|
|
<RFATAL>)
|
|
(T
|
|
<CANT-GO>
|
|
<RFATAL>)>)
|
|
(<EQUAL? .PTS ,DEXIT>
|
|
<SET OBJ <GET-DOOR-OBJ .PT>>
|
|
<SET STR <GET .PT ,DEXITSTR>>
|
|
<COND (<IS? .OBJ ,OPENED>
|
|
<GOTO <GET-REXIT-ROOM .PT>>
|
|
<RTRUE>)
|
|
(<T? .STR>
|
|
<TELL .STR CR>
|
|
<THIS-IS-IT .OBJ>
|
|
<RFATAL>)
|
|
(T
|
|
<ITS-CLOSED .OBJ>
|
|
<RFATAL>)>)>)
|
|
(<AND <EQUAL? ,P-WALK-DIR ,P?OUT>
|
|
<NOT <IS? ,HERE ,INDOORS>>>
|
|
<TELL ,YOURE-ALREADY "outside." CR>
|
|
<RFATAL>)
|
|
(<AND <EQUAL? ,P-WALK-DIR ,P?IN>
|
|
<IS? ,HERE ,INDOORS>>
|
|
<TELL ,YOURE-ALREADY "inside." CR>
|
|
<RFATAL>)
|
|
(T
|
|
<CANT-GO>
|
|
<RFATAL>)>>
|
|
|
|
<GLOBAL MDELAY:NUMBER 0>
|
|
|
|
<ROUTINE FLY-TO? (DEST "AUX" (N 0))
|
|
<COND (<OR <ZERO? ,TR?>
|
|
<ZERO? .DEST>
|
|
<NOT <IS? ,HERE ,DESERT>>
|
|
<NOT <IN? .DEST ,ROOMS>>
|
|
<NOT <IS? .DEST ,DESERT>>>
|
|
<SETG MDELAY 0>
|
|
<RFALSE>)
|
|
(<AND <IS? ,RBOOT ,WORN>
|
|
<IS? ,RBOOT ,CHILLY>
|
|
<IS? ,GBOOT ,WORN>
|
|
<IS? ,GBOOT ,CHILLY>>
|
|
<SETG MDELAY 2>
|
|
<COND (<NOT <IS? ,FEET ,TOUCHED>>
|
|
<MAKE ,FEET ,TOUCHED>
|
|
<QUEUE I-WHOOSH 1>
|
|
<TELL "You put one boot forward" ,PCR>
|
|
<ITALICIZE "Whoosh!">
|
|
<TELL " The " D ,GDESERT
|
|
" streaks past in a dizzy rush of color" ,PCR>
|
|
<RTRUE>)
|
|
(<NOT <IS? ,FEET ,CHILLY>>
|
|
<MAKE ,FEET ,CHILLY>
|
|
<ITALICIZE "Whoosh!">
|
|
<TELL " ">)>
|
|
<TELL <PICK-NEXT ,FDEFAULTS> ,PCR>
|
|
<RTRUE>)>
|
|
<SETG MDELAY 0>
|
|
<TELL "You ">
|
|
<COND (<EQUAL? ,P-PRSA-WORD ,W?RUN ,W?JOG>
|
|
<COND (<IS? ,HERE ,BORING>
|
|
<SET N 19>)
|
|
(T
|
|
<SET N 9>)>
|
|
<PRINTB ,P-PRSA-WORD>
|
|
<TELL " for a few ">)
|
|
(T
|
|
<COND (<IS? ,HERE ,BORING>
|
|
<SET N 29>)
|
|
(T
|
|
<SET N 19>)>
|
|
<TELL <PICK-NEXT ,WALK-TYPES>>
|
|
<COND (<PROB 50>
|
|
<TELL "along ">)>
|
|
<TELL "for several ">)>
|
|
<TELL "minutes." CR>
|
|
<DO-MOVES .N>
|
|
<CRLF>
|
|
<RTRUE>>
|
|
|
|
<GLOBAL WALK-TYPES:TABLE
|
|
<LTABLE 2 "amble " "walk " "trudge ">>
|
|
|
|
<ROUTINE AIMLESS (DEST "AUX" (N 0))
|
|
<COND (<FLY-TO? .DEST>
|
|
<RTRUE>)>
|
|
<TELL "You ">
|
|
<COND (<EQUAL? ,P-PRSA-WORD ,W?RUN ,W?JOG>
|
|
<PRINTB ,P-PRSA-WORD>
|
|
<PRINTC 32>
|
|
<SET N 19>)
|
|
(T
|
|
<COND (<PROB 50>
|
|
<TELL "wander ">)
|
|
(T
|
|
<TELL <PICK-NEXT ,WALK-TYPES>>)>
|
|
<SET N 29>)>
|
|
<COND (<PROB 50>
|
|
<TELL "uncertain">)
|
|
(T
|
|
<TELL "aimless">)>
|
|
<TELL "ly across the " D ,GDESERT ,PERIOD>
|
|
<DO-MOVES .N>
|
|
<RTRUE>>
|
|
|
|
<GLOBAL FDEFAULTS:TABLE
|
|
<LTABLE 2
|
|
"The desert streaks past"
|
|
"The ground blurs beneath your feet"
|
|
"You streak across the desert"
|
|
"You zoom over the landscape">>
|
|
|
|
<ROUTINE IFENCE-BLOCKS ()
|
|
<BLOCKS-YOUR-PATH ,IFENCE>
|
|
<RFALSE>>
|
|
|
|
<ROUTINE VICTORIA-BLOCKS ()
|
|
<BLOCKS-YOUR-PATH ,VICTORIA>
|
|
<RFALSE>>
|
|
|
|
<ROUTINE THICKET-BLOCKS ()
|
|
<BLOCKS-YOUR-PATH ,THICKET>
|
|
<RFALSE>>
|
|
|
|
<ROUTINE GFENCE-BLOCKS ()
|
|
<BLOCKS-YOUR-PATH ,GFENCE>
|
|
<RFALSE>>
|
|
|
|
<ROUTINE CLIFF-BLOCKS ()
|
|
<BLOCKS-YOUR-PATH ,CLIFF>
|
|
<RFALSE>>
|
|
|
|
<ROUTINE HEDGE-BLOCKS ()
|
|
<BLOCKS-YOUR-PATH ,HEDGE>
|
|
<RFALSE>>
|
|
|
|
<ROUTINE LANDSLIDE-BLOCKS ()
|
|
<COND (<ZERO? ,LIT?>
|
|
<TELL "A rock wall">
|
|
<BLOCKS-YOUR-PATH>
|
|
<RFALSE>)>
|
|
<BLOCKS-YOUR-PATH ,LANDSLIDE>
|
|
<RFALSE>>
|
|
|
|
<ROUTINE ESHED-BLOCKS ()
|
|
<BLOCKS-YOUR-PATH ,ESHED>
|
|
<RFALSE>>
|
|
|
|
<ROUTINE BUILDING-BLOCKS ()
|
|
<COND (<T? ,IN-SAND?>
|
|
<EXIT-SPILE>)>
|
|
<BLOCKS-YOUR-PATH ,SCHOOL>
|
|
<RFALSE>>
|
|
|
|
<ROUTINE SWALL-BLOCKS ()
|
|
<BLOCKS-YOUR-PATH ,SWALL>
|
|
<RFALSE>>
|
|
|
|
<ROUTINE RESERVOIR-BLOCKS ()
|
|
<BLOCKS-YOUR-PATH ,RESERVOIR>
|
|
<RFALSE>>
|
|
|
|
<ROUTINE BLOCKS-YOUR-PATH ("OPTIONAL" (OBJ <>))
|
|
<COND (<T? .OBJ>
|
|
<THIS-IS-IT .OBJ>
|
|
<TELL CTHE .OBJ>)>
|
|
<TELL " blocks your path." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-WALK-AROUND ()
|
|
<PCLEAR>
|
|
<TELL "[Which way do you want to go?]" CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-WALK-TO ()
|
|
<COND (<PRSO? INTDIR>
|
|
<DO-WALK ,P-DIRECTION>
|
|
<RTRUE>)
|
|
(<PRSO? RIGHT LEFT>
|
|
<MORE-SPECIFIC>
|
|
<RTRUE>)
|
|
(T
|
|
<V-FOLLOW>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-WAIT ("OPTIONAL" (N 3) "AUX" (X <>))
|
|
<COND (<WRONG-WINNER?>
|
|
<RFATAL>)>
|
|
<TELL "Time passes." CR>
|
|
<REPEAT ()
|
|
<COND (<OR <T? .X>
|
|
<L? .N 1>>
|
|
<RTRUE>)
|
|
(<CLOCKER>
|
|
<SET X T>
|
|
<SETG CLOCK-WAIT? T>)>
|
|
<DEC N>>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-WAIT-FOR ()
|
|
<COND (<WRONG-WINNER?>
|
|
<RFATAL>)
|
|
(<PRSO? INTNUM>
|
|
<COND (<ZERO? ,P-NUMBER>
|
|
<SETG CLOCK-WAIT? T>
|
|
<IMPOSSIBLE>
|
|
<RTRUE>)
|
|
(<G? ,P-NUMBER 120>
|
|
<SETG CLOCK-WAIT? T>
|
|
<TELL "[That's too long to WAIT.]" CR>
|
|
<RTRUE>)>
|
|
<V-WAIT <- ,P-NUMBER 1>>
|
|
<RTRUE>)
|
|
(<VISIBLE? ,PRSO>
|
|
<TELL CTHEO>
|
|
<IS-ARE>
|
|
<TELL "already here." CR>
|
|
<RTRUE>)>
|
|
<TELL "You may be waiting quite a while." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-WEAR ()
|
|
<COND (<OR <AND <IN? ,PRSO ,WINNER>
|
|
<IS? ,PRSO ,WORN>>
|
|
<PRSO? CLOTHES POCKET>>
|
|
<TELL ,YOURE-ALREADY "wearing " THEO ,PERIOD>
|
|
<RTRUE>)
|
|
(<NOT <IS? ,PRSO ,CLOTHING>>
|
|
<TELL ,CANT "wear " THEO ,PERIOD>
|
|
<RTRUE>)
|
|
(<DONT-HAVE? ,PRSO>
|
|
<RTRUE>)
|
|
(T
|
|
<MAKE ,PRSO ,WORN>
|
|
<COND (<EQUAL? ,WINNER ,PLAYER>
|
|
<TELL "You put ">)
|
|
(T
|
|
<TELL CTHE ,WINNER " obligingly puts ">)>
|
|
<TELL "on " THEO ,PERIOD>
|
|
<RTRUE>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-WIND ()
|
|
<TELL ,CANT "wind " A ,PRSO ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE PRE-TAKE ("OPTIONAL" (L <>) "AUX" WHO)
|
|
<COND (<AND <PRSO? BREATH>
|
|
<ZERO? ,PRSI>>
|
|
<RFALSE>)
|
|
(<IN? ,PRSO ,GLOBAL-OBJECTS>
|
|
<IMPOSSIBLE>
|
|
<RTRUE>)>
|
|
<SET L <LOC ,PRSO>>
|
|
<COND (<EQUAL? .L ,WINNER>
|
|
<COND (<CRUMBS-GONE?>
|
|
<RTRUE>)
|
|
(<EQUAL? ,WINNER ,PLAYER>
|
|
<TELL "You're ">)
|
|
(T
|
|
<TELL CTHE ,WINNER>
|
|
<IS-ARE ,WINNER>)>
|
|
<TELL "already ">
|
|
<COND (<IS? ,PRSO ,WORN>
|
|
<TELL "wear">)
|
|
(T
|
|
<TELL "hold">)>
|
|
<TELL "ing " THEO ,PERIOD>
|
|
<RTRUE>)
|
|
(<AND <T? .L>
|
|
<IS? .L ,CONTAINER>
|
|
<IS? .L ,OPENABLE>
|
|
<NOT <IS? .L ,OPENED>>>
|
|
<COND (<EQUAL? ,WINNER ,PLAYER>
|
|
<PRINT ,CANT>)
|
|
(T
|
|
<TELL CTHE ,WINNER " can't ">)>
|
|
<TELL "reach into " THE .L ". It's closed." CR>
|
|
<RTRUE>)
|
|
(<T? ,PRSI>
|
|
<COND (<PRSO? PRSI>
|
|
<COND (<OR <EQUAL? <GET ,P-NAMW 0> <GET ,P-NAMW 1>>
|
|
<EQUAL? <GET ,P-ADJW 0> <GET ,P-ADJW 1>>>
|
|
<IMPOSSIBLE>
|
|
<RTRUE>)>)
|
|
(<PRSI? ME>
|
|
<COND (<EQUAL? ,WINNER ,PLAYER>
|
|
<NOBODY-TO-ASK>
|
|
<RTRUE>)
|
|
(<NOT <EQUAL? .L ,PLAYER>>
|
|
<TELL ,DONT "have " THEO ,PERIOD>
|
|
<RTRUE>)
|
|
(T
|
|
<RFALSE>)>)
|
|
(<AND <PRSI? CRYPT>
|
|
<EQUAL? .L ,LID>>
|
|
<PERFORM ,PRSA ,PRSO ,LID>
|
|
<RTRUE>)
|
|
(<AND <PRSO? GNOMON>
|
|
<PRSI? DIAL-HOLE BDIAL-HOLE>
|
|
<IS? ,PRSO ,NODESC>>
|
|
<PERFORM ,V?UNSCREW ,PRSO>
|
|
<RTRUE>)
|
|
(<AND <PRSI? DIAL-HOLE>
|
|
<PRSO? GNOMON>
|
|
<IS? ,PRSO ,NODESC>>
|
|
<PERFORM ,V?UNSCREW ,PRSO>
|
|
<RTRUE>)
|
|
(<NOT <EQUAL? .L ,PRSI>>
|
|
<TELL CTHEO>
|
|
<ISNT-ARENT>
|
|
<COND (<IS? ,PRSI ,SURFACE>
|
|
<TELL "on ">)
|
|
(T
|
|
<TELL "in ">)>
|
|
<TELL THEI ,PERIOD>
|
|
<RTRUE>)>
|
|
<RFALSE>)
|
|
; (<EQUAL? ,PRSO <LOC ,WINNER>>
|
|
<TELL ,YOURE-ALREADY "in it." CR>
|
|
<RTRUE>)
|
|
(T
|
|
<RFALSE>)>>
|
|
|
|
<ROUTINE V-TAKE ("AUX" L)
|
|
<SET L <ITAKE>>
|
|
<COND (<T? .L>
|
|
<COND (<T? ,P-MULT?>
|
|
<TELL "Taken." CR>)
|
|
(<OR <IS? .L ,CONTAINER>
|
|
<IS? .L ,SURFACE>
|
|
<IS? .L ,PERSON>
|
|
<IS? .L ,LIVING>>
|
|
<TELL "You take " THEO>
|
|
<COND (<IS? .L ,CONTAINER>
|
|
<TELL " out of ">)
|
|
(<IS? .L ,SURFACE>
|
|
<TELL " off ">)
|
|
(T
|
|
<TELL " from ">)>
|
|
<TELL THE .L ,PERIOD>)
|
|
(<PROB 50>
|
|
<TELL "Taken." CR>)
|
|
(T
|
|
<TELL "You ">
|
|
<COND (<EQUAL? ,P-PRSA-WORD
|
|
,W?GRAB ,W?SEIZE ,W?SNATCH>
|
|
<PRINTB ,P-PRSA-WORD>
|
|
<PRINTC 32>)
|
|
(<PROB 50>
|
|
<TELL "pick up ">)
|
|
(T
|
|
<TELL "take ">)>
|
|
<TELL THEO ,PERIOD>)>
|
|
<SET L <GETP ,PRSO ,P?VALUE>>
|
|
<COND (<T? .L>
|
|
<PUTP ,PRSO ,P?VALUE 0>
|
|
<UPDATE-SCORE .L>)>)>
|
|
<RTRUE>>
|
|
|
|
<CONSTANT FUMBLE-NUMBER 7>
|
|
<CONSTANT LOAD-ALLOWED 25>
|
|
|
|
<ROUTINE ITAKE ("OPTIONAL" (VB T) "AUX" L)
|
|
<COND (<OR <ZERO? ,PRSO>
|
|
<ZERO? <LOC ,PRSO>>>
|
|
<CANT-SEE-ANY>
|
|
<RFALSE>)>
|
|
<SET L <LOC ,PRSO>>
|
|
<THIS-IS-IT ,PRSO>
|
|
<COND (<NOT <IS? ,PRSO ,TAKEABLE>>
|
|
<COND (<T? .VB>
|
|
<IMPOSSIBLE>)>
|
|
<RFALSE>)
|
|
(<AND <IS? .L ,CONTAINER>
|
|
<IS? .L ,OPENABLE>
|
|
<NOT <IS? .L ,OPENED>>>
|
|
<COND (<T? .VB>
|
|
<YOUD-HAVE-TO "open" .L>)>
|
|
<RFALSE>)
|
|
(<AND <NOT <IN? .L ,WINNER>>
|
|
<G? <+ <WEIGHT ,PRSO> <WEIGHT ,WINNER>> ,LOAD-ALLOWED>>
|
|
<COND (<T? .VB>
|
|
<COND (<FIRST? ,WINNER>
|
|
<TELL "Your load is">)
|
|
(T
|
|
<TELL CTHEO " is">)>
|
|
<TELL " too heavy." CR>)>
|
|
<RFALSE>)
|
|
(<G? <CCOUNT ,WINNER> ,FUMBLE-NUMBER>
|
|
<COND (<T? .VB>
|
|
<TELL "You're holding too much already." CR>)>
|
|
<RFALSE>)
|
|
(T
|
|
<MAKE ,PRSO ,TOUCHED>
|
|
<UNMAKE ,PRSO ,NODESC>
|
|
<UNMAKE ,PRSO ,NOALL>
|
|
<MOVE ,PRSO ,WINNER>
|
|
<RETURN .L>)>> "So that .L an be analyzed."
|
|
|
|
"Count # objects being carried by THING."
|
|
|
|
<ROUTINE CCOUNT (THING "AUX" OBJ (CNT 0))
|
|
<SET OBJ <FIRST? .THING>>
|
|
<REPEAT ()
|
|
<COND (<ZERO? .OBJ>
|
|
<RETURN>)
|
|
(<AND <NOT <IS? .OBJ ,WORN>>
|
|
<NOT <EQUAL? .OBJ ,POCKET>>>
|
|
<INC CNT>)>
|
|
<SET OBJ <NEXT? .OBJ>>>
|
|
<RETURN .CNT>>
|
|
|
|
"Return total weight of objects in THING."
|
|
|
|
<ROUTINE WEIGHT (THING "AUX" OBJ (WT 0))
|
|
<SET OBJ <FIRST? .THING>>
|
|
<REPEAT ()
|
|
<COND (<ZERO? .OBJ>
|
|
<RETURN>)
|
|
(<NOT <EQUAL? .OBJ ,POCKET>>
|
|
<COND (<AND <EQUAL? .THING ,WINNER>
|
|
<IS? .OBJ ,WORN>>
|
|
<INC WT>)
|
|
(T
|
|
<SET WT <+ .WT <WEIGHT .OBJ>>>)>)>
|
|
<SET OBJ <NEXT? .OBJ>>>
|
|
<SET OBJ <GETP .THING ,P?MASS>>
|
|
<COND (<T? .OBJ>
|
|
<SET WT <+ .WT .OBJ>>)>
|
|
<RETURN .WT>>
|
|
|
|
<ROUTINE DESCRIBE-ROOM ("OPTIONAL" (LOOK? <>) "AUX" (V? <>) ACT ; STR)
|
|
<COND (<OR <T? .LOOK?>
|
|
<EQUAL? ,VERBOSITY 2>>
|
|
<SET V? T>)>
|
|
<COND (<ZERO? ,LIT?>
|
|
<TELL "It's completely dark." CR>
|
|
<RFALSE>)
|
|
(<NOT <IS? ,HERE ,TOUCHED>>
|
|
<MAKE ,HERE ,TOUCHED>
|
|
<INC MAPCNT>
|
|
<SET V? T>)>
|
|
<COND (<IN? ,HERE ,ROOMS>
|
|
<HLIGHT ,H-BOLD>
|
|
<SAY-HERE>
|
|
<HLIGHT ,H-NORMAL>
|
|
<CRLF>
|
|
<HLIGHT ,H-NORMAL>)>
|
|
<COND (<OR <T? .LOOK?>
|
|
<T? ,VERBOSITY>>
|
|
<SET ACT <GETP ,HERE ,P?ACTION>>
|
|
; <SET STR <GETP ,HERE ,P?LDESC>>
|
|
<COND (<AND <T? .V?>
|
|
<T? .ACT>>
|
|
<COND (<T? ,VERBOSITY>
|
|
<CRLF>)>
|
|
<APPLY .ACT ,M-LOOK>)
|
|
; (<AND <T? .V?>
|
|
<T? .STR>>
|
|
<COND (<T? ,VERBOSITY>
|
|
<CRLF>)>
|
|
<TELL .STR CR>)>)>
|
|
<RETURN ,LIT?>>
|
|
|
|
<CONSTANT REXIT 0>
|
|
<CONSTANT UEXIT 2>
|
|
<CONSTANT NEXIT 3>
|
|
<CONSTANT FEXIT 4>
|
|
<CONSTANT CEXIT 5>
|
|
<CONSTANT DEXIT 6>
|
|
|
|
<CONSTANT NEXITSTR 0>
|
|
<CONSTANT FEXITFCN 0>
|
|
<CONSTANT CEXITFLAG 4>
|
|
<CONSTANT CEXITSTR 1>
|
|
<CONSTANT DEXITOBJ 1>
|
|
<CONSTANT DEXITSTR 2>
|
|
|
|
<GLOBAL DROOM:OBJECT <>>
|
|
|
|
<ROUTINE GOTO (WHERE "OPTIONAL" (LOOK? T) "AUX" X)
|
|
<SET X <APPLY <GETP ,HERE ,P?ACTION> ,M-EXIT>>
|
|
<COND (<IS? ,HERE ,BORING>
|
|
<SETG DROOM <>>)
|
|
(T
|
|
<SETG DROOM ,HERE>)>
|
|
<SETG HERE .WHERE>
|
|
<MOVE ,PLAYER .WHERE>
|
|
<SETG LIT? <IS-LIT?>>
|
|
<SET X <APPLY <GETP ,HERE ,P?ACTION> ,M-ENTERING>>
|
|
<COND (<NOT <EQUAL? ,HERE .WHERE>>
|
|
<RTRUE>)
|
|
(<T? .LOOK?>
|
|
<COND (<DESCRIBE-ROOM>
|
|
<COND (<T? ,VERBOSITY>
|
|
<DESCRIBE-OBJECTS>)>
|
|
<MENTION-PRAM>)>)>
|
|
<SET X <APPLY <GETP ,HERE ,P?ACTION> ,M-ENTERED>>
|
|
<RESET-THEM>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE RESET-THEM ()
|
|
<COND (<NOT <VISIBLE? ,P-IT-OBJECT>>
|
|
<SETG P-IT-OBJECT ,NOT-HERE-OBJECT>)>
|
|
<COND (<NOT <VISIBLE? ,P-THEM-OBJECT>>
|
|
<SETG P-THEM-OBJECT ,NOT-HERE-OBJECT>)>
|
|
<COND (<NOT <VISIBLE? ,P-HIM-OBJECT>>
|
|
<SETG P-HIM-OBJECT ,NOT-HERE-OBJECT>)>
|
|
<COND (<NOT <VISIBLE? ,P-HER-OBJECT>>
|
|
<SETG P-HER-OBJECT ,NOT-HERE-OBJECT>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE HACK-HACK (STR)
|
|
<TELL .STR>
|
|
<SPACE>
|
|
<TELL THEO " would" <PICK-NEXT ,HO-HUM> ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<GLOBAL HO-HUM:TABLE
|
|
<LTABLE 2
|
|
"n't do anything useful"
|
|
" accomplish nothing"
|
|
" have no desirable effect"
|
|
"n't be very productive"
|
|
" serve no purpose"
|
|
" be pointless">>
|
|
|
|
<ROUTINE IMPOSSIBLE ()
|
|
<TELL <PICK-NEXT ,YUKS> ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<GLOBAL YUKS:TABLE
|
|
<LTABLE 2
|
|
"That's impossible"
|
|
"What a ridiculous concept"
|
|
"You can't be serious">>
|
|
|
|
<ROUTINE TOO-DARK ()
|
|
<TELL "It's too dark ">
|
|
<COND (<HERE? UNDER-WATER>
|
|
<TELL "and murky ">)>
|
|
<TELL "to see." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE CANT-GO ()
|
|
<COND (<IS? ,HERE ,INDOORS>
|
|
<TELL "There's no exit ">)
|
|
(T
|
|
<TELL ,CANT "go ">)>
|
|
<TELL "that way." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE ITS-ALREADY (STR)
|
|
<TELL "It's already " .STR ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE REFERRING ()
|
|
<TELL "[To what are you referring?]" CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE MORE-SPECIFIC ()
|
|
<TELL "[You must be more specific.]" CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE WASTE-OF-TIME ()
|
|
<TELL <PICK-NEXT ,POINTLESS> ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<GLOBAL POINTLESS:TABLE
|
|
<LTABLE 2
|
|
"There's no point in doing that"
|
|
"That would be pointless"
|
|
"That's a pointless thing to do">>
|
|
|
|
<ROUTINE LOOKS-PUZZLED (WHO)
|
|
<TELL CTHE .WHO " ">
|
|
<COND (<PROB 50>
|
|
<TELL "looks ">)
|
|
(T
|
|
<TELL "appears ">)>
|
|
<TELL <PICK-NEXT ,PUZZLES> ". \"">
|
|
<RTRUE>>
|
|
|
|
<GLOBAL PUZZLES:TABLE
|
|
<LTABLE 2 "puzzled" "bewildered" "confused" "perplexed">>
|
|
|
|
<ROUTINE V-INHALE ()
|
|
<COND (<NOT <PRSO? BREATH ROOMS>>
|
|
<IMPOSSIBLE>
|
|
<RTRUE>)
|
|
(<AND <HERE? IN-ORBIT ON-SAT>
|
|
<ZERO? ,SUITED?>>
|
|
<CLUTCH-THROAT>
|
|
<RTRUE>)
|
|
(<T? ,BREATH-HELD?>
|
|
<TELL ,YOURE-ALREADY "holding " D ,BREATH ,PERIOD>
|
|
<RTRUE>)
|
|
(T
|
|
<SETG BREATH-HELD? 4>
|
|
<QUEUE I-HOLD-BREATH -1>
|
|
<TELL "You take a deep breath." CR>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE CLUTCH-THROAT ()
|
|
<TELL
|
|
"You gasp and clutch your throat in the surrounding vacuum." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-EXHALE ()
|
|
<COND (<NOT <PRSO? BREATH ROOMS>>
|
|
<IMPOSSIBLE>
|
|
<RTRUE>)
|
|
(<ZERO? ,BREATH-HELD?>
|
|
<TELL "You'd have to inhale first." CR>
|
|
<RTRUE>)
|
|
(<AND <HERE? IN-ORBIT ON-SAT>
|
|
<ZERO? ,SUITED?>>
|
|
<DEQUEUE I-HOLD-BREATH>
|
|
<SETG BREATH-HELD? 0>
|
|
<CLUTCH-THROAT>
|
|
<RTRUE>)
|
|
(<HERE? UNDER-WATER>
|
|
<NOT-RECOMMENDED>
|
|
<RTRUE>)
|
|
(T
|
|
<SETG BREATH-HELD? 0>
|
|
<DEQUEUE I-HOLD-BREATH>
|
|
<TELL "You begin to breathe normally." CR>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE NOT-RECOMMENDED ()
|
|
<TELL "Not recommended here." CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SURFACE ()
|
|
<COND (<HERE? UNDER-WATER>
|
|
<DO-WALK ,P?UP>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL "You're not underwater." CR>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-SWRAP ()
|
|
<PERFORM ,V?WRAP-AROUND ,PRSI ,PRSO>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-WRAP-AROUND ()
|
|
<TELL "You couldn't possibly ">
|
|
<PRINTB ,P-PRSA-WORD>
|
|
<SPACE>
|
|
<TELL THEO " around " THEI ,PERIOD>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-DRESS ()
|
|
<COND (<PRSO? ROOMS>
|
|
<TELL ,YOURE-ALREADY "dressed." CR>
|
|
<RTRUE>)
|
|
(<IS? ,PRSO ,PERSON>
|
|
<TELL CTHEO " is already dressed." CR>
|
|
<RTRUE>)
|
|
(T
|
|
<TELL ,CANT "dress " A ,PRSO ,PERIOD>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-UNDRESS ()
|
|
<COND (<OR <PRSO? ROOMS>
|
|
<IS? ,PRSO ,PERSON>>
|
|
<INAPPROPRIATE>
|
|
<RTRUE>)
|
|
(T
|
|
<PRINT ,CANT>
|
|
<PRINTB ,P-PRSA-WORD>
|
|
<SPACE>
|
|
<TELL A ,PRSO ,PERIOD>)>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-WISH ()
|
|
<COND (<OR <T? ,TR?>
|
|
<NOT <IS? ,HERE ,WINDY>>>
|
|
<VOICE-MUTTERS "Fool" <>>
|
|
<RTRUE>)>
|
|
<TELL "[Sigh.]" CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-HEEL ()
|
|
<IMPOSSIBLE>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-PISS ()
|
|
<CRUDITY>
|
|
<RFATAL>>
|
|
|
|
<ROUTINE V-SUCK ()
|
|
<CRUDITY>
|
|
<RFATAL>>
|
|
|
|
<ROUTINE CRUDITY ()
|
|
<COND (<OR <T? ,TR?>
|
|
<NOT <IS? ,HERE ,WINDY>>>
|
|
<VOICE-MUTTERS "Charming" <>>
|
|
<RTRUE>)>
|
|
<TELL "[Yes, this story does recognize crudity.]" CR>
|
|
<RTRUE>>
|
|
|
|
<ROUTINE V-BANDAGE ()
|
|
<COND (<IN? ,BANDAGE ,PLAYER>
|
|
<WASTE-OF-TIME>
|
|
<RTRUE>)>
|
|
<HOW?>
|
|
<RTRUE>>
|