"VERBS for
DEADLINE
Copyright 1982 Infocom, Inc. All rights reserved.
"
Yes, I added that comment. This is not the original verbs.zil file.
It’s very close, though. Only a few changes were made between r27 and r28, and I’m pretty confident that I reverted them correctly.
The verbs.zil file was missing from the Deadline r27 directory!
This file was reconstructed from r28 verbs.zil by comparing the
*compiled* r27 and r28 game files and reversing all apparent changes.
See '***VZ:***' comments below.. The formatting is probably not
exactly the same as the original (lost) r27 verbs.zil file.
[--zarf, 2026/03/16]
*** END NOTE ***"
"SUBTITLE DESCRIBE THE UNIVERSE"
"SUBTITLE SETTINGS FOR VARIOUS LEVELS OF DESCRIPTION"
<GLOBAL VERBOSE <>>
<GLOBAL SUPER-BRIEF <>>
<GDECL (VERBOSE SUPER-BRIEF) <OR ATOM FALSE>>
<ROUTINE V-VERBOSE ()
<SETG VERBOSE T>
<SETG SUPER-BRIEF <>>
<TELL "OK, you will get verbose descriptions." CR>>
<ROUTINE V-BRIEF ()
<SETG VERBOSE <>>
<SETG SUPER-BRIEF <>>
<TELL "OK, you will get brief descriptions." CR>>
<ROUTINE V-SUPER-BRIEF ()
<SETG SUPER-BRIEF T>
<TELL
"OK, you will get super-brief descriptions. Remember that objects
and people are not mentioned; only the name of the place you are in." CR>>
\
"SUBTITLE DESCRIBERS"
<ROUTINE V-LOOK ()
<COND (<DESCRIBE-ROOM T>
<DESCRIBE-OBJECTS T>)>>
<ROUTINE V-FIRST-LOOK ()
<COND (<DESCRIBE-ROOM>
<COND (<NOT ,SUPER-BRIEF> <DESCRIBE-OBJECTS>)>)>>
<ROUTINE ROOM-CHECK ()
<SETG PRSO ,GLOBAL-ROOM>
<RFALSE>)
(T
<TELL "You aren't in that room!" CR>
<RTRUE>)>)
(T <RFALSE>)>>
<ROUTINE PRE-SEARCH ()
<COND (<ROOM-CHECK> <RTRUE>)
(T <RFALSE>)>>
<ROUTINE PRE-EXAMINE ()
<COND (<ROOM-CHECK> <RTRUE>)
(<AND <==? ,P-ADVERB ,W?CAREFULLY>
<NOT <INT-WAIT 3>>>
<TELL
"You never got to finish looking over the " D ,PRSO "." CR>)>>
<ROUTINE V-EXAMINE ()
<COND (<IN? ,PRSO ,GLOBAL-OBJECTS>
<RTRUE>)
<TELL <GET ,CHARACTER-DESCS <GETP ,PRSO ,P?CHARACTER>> CR>)
(ELSE
<TELL "There's nothing special about the" PRSO "." CR>)>>
Whether the current location has light. Deadline has no dark areas so this is always true.
<ROUTINE DESCRIBE-ROOM ("OPTIONAL" (LOOK? <>) "AUX" V? STR)
<SET V? <OR .LOOK? ,VERBOSE>>
<SET V? T>)>
<COND (<OR .LOOK? <NOT ,SUPER-BRIEF>>
<TELL "(You are ">
<COND (<FSET? <LOC ,WINNER> ,SURFACEBIT>
<TELL "sitting o">)
(T <TELL "standing i">)>
<TELL "n the " D <LOC ,WINNER> ".)" CR>)>
<RTRUE>)
<TELL .STR CR>)
<COND (<GETP ,HERE ,P?CORRIDOR> <CORRIDOR-LOOK>)>
T>
<ROUTINE DESCRIBE-OBJECTS ("OPTIONAL" (V? <>))
<COND (,LIT
<COND (<FIRST? ,HERE>
<PRINT-CONT ,HERE <SET V? <OR .V? ,VERBOSE>> -1>)>)
(ELSE
<TELL "You can't see anything in the dark." CR>)>>
"DESCRIBE-OBJECT -- takes object and flag. if flag is true will print a
long description (fdesc or ldesc), otherwise will print short."
<ROUTINE DESCRIBE-OBJECT (OBJ V? LEVEL "AUX" (STR <>) AV)
<COND (<AND <0? .LEVEL>
<RTRUE>)
(<AND <0? .LEVEL>
<OR <AND <NOT <FSET? .OBJ ,TOUCHBIT>>
<SET STR <GETP .OBJ ,P?FDESC>>>
<SET STR <GETP .OBJ ,P?LDESC>>>>
<TELL .STR>)
(<0? .LEVEL>
<TELL "There is a " D .OBJ " here.">)
(ELSE
<TELL <GET ,INDENTS .LEVEL>>
<TELL "A " D .OBJ>)>
<COND (<AND <0? .LEVEL>
<SET AV <LOC ,WINNER>>
<FSET? .AV ,VEHBIT>>
<TELL " (outside the " D .AV ")">)>
<CRLF>
<COND (<AND <SEE-INSIDE? .OBJ> <FIRST? .OBJ>>
<PRINT-CONT .OBJ .V? .LEVEL>)>>
<ROUTINE PRINT-CONT (OBJ "OPTIONAL" (V? <>) (LEVEL 0)
"AUX" Y 1ST? AV STR (PV? <>) (INV? <>))
#DECL ((OBJ) OBJECT (LEVEL) FIX)
<COND (<NOT <SET Y <FIRST? .OBJ>>> <RTRUE>)>
T)
(ELSE <SET AV <>>)>
<SET 1ST? T>
<COND (<EQUAL? ,WINNER .OBJ <LOC .OBJ>>
<SET INV? T>)
(ELSE
<REPEAT ()
<COND (<NOT .Y> <RETURN <NOT .1ST?>>)
(<==? .Y .AV> <SET PV? T>)
(<==? .Y ,WINNER>)
(<AND <NOT <FSET? .Y ,INVISIBLE>>
<NOT <FSET? .Y ,TOUCHBIT>>
<SET STR <GETP .Y ,P?FDESC>>>
<COND (<NOT <FSET? .Y ,NDESCBIT>>
<SET 1ST? <>>
<SET LEVEL 0>
<TELL .STR CR>)>
<COND (<AND <SEE-INSIDE? .Y>
<NOT <GETP <LOC .Y> ,P?DESCFCN>>
<FIRST? .Y>>
<PRINT-CONT .Y .V? 0>)>)>
<SET Y <NEXT? .Y>>>)>
<SET Y <FIRST? .OBJ>>
<REPEAT ()
<COND (<NOT .Y>
<COND (<AND .PV? .AV <FIRST? .AV>>
<PRINT-CONT .AV .V? .LEVEL>)>
<RETURN <NOT .1ST?>>)
(<EQUAL? .Y .AV ,PLAYER>)
(<AND <NOT <FSET? .Y ,INVISIBLE>>
<OR .INV?
<FSET? .Y ,TOUCHBIT>
<NOT <GETP .Y ,P?FDESC>>>>
<COND (<NOT <FSET? .Y ,NDESCBIT>>
<COND (.1ST?
<COND (<FIRSTER .OBJ .LEVEL>
<COND (<L? .LEVEL 0>
<SET LEVEL 0>)>)>
<SET LEVEL <+ 1 .LEVEL>>
<SET 1ST? <>>)>
<DESCRIBE-OBJECT .Y .V? .LEVEL>)
(<AND <FIRST? .Y> <SEE-INSIDE? .Y>>
<PRINT-CONT .Y .V? .LEVEL>)>)>
<SET Y <NEXT? .Y>>>>
<ROUTINE FIRSTER (OBJ LEVEL)
<COND (<==? .OBJ ,WINNER>
<TELL "You are carrying:" CR>)
(<NOT <IN? .OBJ ,ROOMS>>
<COND (<G? .LEVEL 0>
<TELL <GET ,INDENTS .LEVEL>>)>
<COND (<FSET? .OBJ ,SURFACEBIT>
<TELL "Sitting on the " D .OBJ
" is:" CR>)
(<FSET? .OBJ ,PERSON>
<TELL D .OBJ " is holding:" CR>)
(ELSE
<TELL "The " D .OBJ
" contains:" CR>)>)>>
\
"SUBTITLE SCORING"
<ROUTINE V-SCORE ("OPTIONAL" (ASK? T))
#DECL ((ASK?) <OR ATOM FALSE>)
<TELL
"You are an amateur inspector, at best." CR>>
<ROUTINE V-QUIT ("OPTIONAL" (ASK? T) "AUX" SCOR)
#DECL ((ASK?) <OR ATOM <PRIMTYPE LIST>> (SCOR) FIX)
<COND (<OR <AND .ASK?
<TELL
"Do you wish to stop your investigation (Y/N)">
<YES?>>
<NOT .ASK?>>
<QUIT>)
(ELSE <TELL "Ok." CR>)>>
<ROUTINE YES? ()
<PRINTI " >">
<COND (<0? <GETB ,P-LEXV ,P-LEXWORDS>>
<RFALSE>)
(<EQUAL? <GET ,P-LEXV 1> ,W?YES ,W?Y>
<RTRUE>)
(T
<RFALSE>)>>
Print the title, release, and serial number.
In 1982, Infocom briefly branded its games as “INTERLOGIC”. They had mostly switched to “interactive fiction” by 1984.
<TELL
"DEADLINE: An INTERLOGIC Mystery|
Copyright 1982 by Infocom, Inc. All rights reserved.|
DEADLINE and INTERLOGIC are trademarks of Infocom, Inc.|
Release ">
;"***VZ: The banner message was updated in r28 to remove the
'INTERLOGIC' brand, add 'registered' trademark, and show
the copyright as '(c) 1982, 1983'.***"
<PRINTN <BAND <GET 0 1> *3777*>>
<TELL " / Serial number ">
<REPEAT ()
<COND (<G? <SET CNT <+ .CNT 1>> 23>
<RETURN>)
(T
<PRINTC <GETB 0 .CNT>>)>>
<CRLF>>
<ROUTINE V-AGAIN ("AUX" OBJ)
<SET OBJ
,L-PRSO)
,L-PRSI)>>
<COND (.OBJ
<TELL "You can't see the " D .OBJ " any more." CR>
<RFATAL>)
(T
\
"SUBTITLE DEATH AND TRANSFIGURATION"
It is possible to die in Deadline, but this variable is never used.
<ROUTINE V-RESTORE ()
<COND (<RESTORE>
<TELL "Ok." CR>
<V-FIRST-LOOK>)
(T
<TELL "Failed." CR>)>>
<ROUTINE V-SAVE ()
<COND (<SAVE>
<TELL "Ok." CR>)
(T
<TELL "Failed." CR>)>>
<ROUTINE V-RESTART ()
<TELL
"Do you wish to restart your investigation (Y/N)">
<COND (<YES?>
This wry comment does not appear to have ever been used in a released version of the game.
<RESTART>
<TELL "Failed." CR>)>>
<CONSTANT REXIT 0>
<CONSTANT UEXIT 1>
<CONSTANT NEXIT 2>
<CONSTANT FEXIT 3>
<CONSTANT CEXIT 4>
<CONSTANT DEXIT 5>
<CONSTANT NEXITSTR 0>
<CONSTANT FEXITFCN 0>
<CONSTANT CEXITFLAG 1>
<CONSTANT CEXITSTR 1>
<CONSTANT DEXITOBJ 1>
<CONSTANT DEXITSTR 1>
<ROUTINE V-WALK-AROUND ()
<TELL "Use directions for movement here." CR>>
<ROUTINE GO-NEXT (TBL "AUX" VAL)
#DECL ((TBL) TABLE (VAL) ANY)
<GOTO .VAL>)>>
<ROUTINE LKP (ITM TBL "AUX" (CNT 0) (LEN <GET .TBL 0>))
#DECL ((ITM) ANY (TBL) TABLE (CNT LEN) FIX)
<REPEAT ()
<COND (<G? <SET CNT <+ .CNT 1>> .LEN>
<RFALSE>)
(<==? <GET .TBL .CNT> .ITM>
<COND (<==? .CNT .LEN> <RFALSE>)
(T
<RETURN <GET .TBL <+ .CNT 1>>>)>)>>>
<ROUTINE V-WALK ("AUX" PT PTS STR OBJ RM)
#DECL ((PT) <OR FALSE TABLE> (PTS) FIX (STR) <OR STRING FALSE>
(OBJ) OBJECT (RM) <OR FALSE OBJECT>)
<COND (<==? ,PRSO ,GLOBAL-CALL>
<PRE-TURN>
<RTRUE>)
(<NOT ,PRSO> <TELL "You can't go that way." CR>)
<COND (<==? <SET PTS <PTSIZE .PT>> ,UEXIT>
<SET RM <GETB .PT ,REXIT>>
<EQUAL? ,P-ADVERB ,W?QUIETLY ,W?SLOWLY>>
<TELL
"The stairs are still quite noisy even when walking up very slowly." CR>)>
<GOTO .RM>)
(<==? .PTS ,NEXIT>
<TELL <GET .PT ,NEXITSTR> CR>
<RFATAL>)
(<==? .PTS ,FEXIT>
<COND (<SET RM <APPLY <GET .PT ,FEXITFCN>>>
<GOTO .RM>)
(T
<RFATAL>)>)
(<==? .PTS ,CEXIT>
<COND (<VALUE <GETB .PT ,CEXITFLAG>>
(<SET STR <GET .PT ,CEXITSTR>>
<TELL .STR CR>
<RFATAL>)
(T
<TELL "You can't go that way." CR>
<RFATAL>)>)
(<==? .PTS ,DEXIT>
(<FSET? .OBJ ,INVISIBLE>
<TELL "You can't go that way." CR>)
(<SET STR <GET .PT ,DEXITSTR>>
<TELL .STR CR>
<RFATAL>)
(T
<TELL "The " D .OBJ " is closed." CR>
<SETG P-IT-OBJECT .OBJ>
<RFATAL>)>)>)
<TELL "In which direction do you want to go?" CR>
<RFATAL>)
(T
<TELL "You can't go that way." CR>
<RFATAL>)>>
<ROUTINE V-INVENTORY ()
<COND (<FIRST? ,WINNER> <PRINT-CONT ,WINNER>)
(T <TELL "You are empty-handed." CR>)>>
<GLOBAL INDENTS
<TABLE ""
" "
" "
" "
" "
" ">>
\
<ROUTINE PRE-TAKE ()
<COND (<EQUAL? ,PRSO ,SECOND-SECTION
,GLOBAL-FINGERPRINTS ,GLOBAL-LADDER> <RFALSE>)
(<EQUAL? ,PRSO ,GLOBAL-WARRANT ,GLOBAL-RED-HERRINGS> <RFALSE>)
(<IN? ,PRSO ,GLOBAL-OBJECTS>
<TELL "You can't reach that." CR>
<RTRUE>)
(,PRSI
<COND (<==? ,PRSI ,BOOKSHELVES> <RFALSE>)
<TELL "It's not in that!" CR>)
(T
<SETG PRSI <>>
<RFALSE>)>)
<ROUTINE V-TAKE ()
<COND (<==? <ITAKE> T>
<TELL "Taken." CR>)>>
<GLOBAL FUMBLE-NUMBER 7>
<GLOBAL FUMBLE-PROB 8>
<ROUTINE ITAKE ("OPTIONAL" (VB T) "AUX" CNT OBJ)
#DECL ((VB) <OR ATOM FALSE> (CNT) FIX (OBJ) OBJECT)
<COND (.VB
<RFALSE>)
<G? <+ <WEIGHT ,PRSO> <WEIGHT ,WINNER>> ,LOAD-ALLOWED>>
<COND (.VB
<TELL "Your load is too heavy">
<COND (<L? ,LOAD-ALLOWED ,LOAD-MAX>
<TELL ", especially in light of your condition.">)
(ELSE <TELL ".">)>
<CRLF>)>
<RFATAL>)
(<AND <G? <SET CNT <CCOUNT ,WINNER>> ,FUMBLE-NUMBER>
<PROB <* .CNT ,FUMBLE-PROB>>>
<SET OBJ <FIRST? ,WINNER>>
<SET OBJ <NEXT? .OBJ>>
;"This must go! Chomping compiler strikes again"
<TELL "Oh, no. The " D .OBJ
" slips from your arms while you are taking the "
D ,PRSO ",
and both tumble to the ground." CR>
<PERFORM ,V?DROP .OBJ>
<RFATAL>)
(T
<RTRUE>)>>
<ROUTINE PRE-PUT ()
<COND (<OR <IN? ,PRSO ,GLOBAL-OBJECTS>
<TELL "Nice try." CR>)>>
<ROUTINE V-PUT ()
<OPENABLE? ,PRSI>
(T
<TELL "You can't do that." CR>
<RTRUE>)>
<TELL "The" PRSI " isn't open." CR>)
<TELL "How can you do that?" CR>)
<GETP ,PRSI ,P?CAPACITY>>
<TELL "There's no room." CR>)
<NOT <ITAKE>>>
<RTRUE>)
(T
<TELL "Done." CR>)>>
<ROUTINE HELD? (OBJ)
<REPEAT ()
<COND (<EQUAL? <LOC .OBJ> ,ROOMS ,GLOBAL-OBJECTS> <RFALSE>)
(<IN? .OBJ ,WINNER> <RTRUE>)
(T <SET OBJ <LOC .OBJ>>)>>>
<ROUTINE PRE-DROP ()
<RTRUE>)>>
<ROUTINE PRE-GIVE ()
<TELL
"That's easy for you to say, since you don't even have it." CR>)>>
<ROUTINE PRE-SGIVE ()
<RTRUE>>
<ROUTINE V-GIVE ()
(T <TELL D ,PRSI " refuses your offer." CR>)>>
<ROUTINE V-SGIVE ()
<TELL "FOOOO!!" CR>>
<ROUTINE V-DROP ()
<COND (<IDROP>
<TELL "The " D ,PRSO " is now on the ">
<COND (<==? <GETP ,HERE ,P?LINE> ,OUTSIDE-LINE-C>
<TELL "ground">)
(T <TELL "floor">)>
<TELL "." CR>)>>
<ROUTINE V-THROW () <COND (<IDROP> <TELL "Thrown." CR>)>>
<ROUTINE V-THROW-THROUGH ()
<TELL "Let's not resort to violence, please." CR>)
(T <V-THROW>)>>
<ROUTINE V-THROW-AT ()
<COND (<NOT <IDROP>> <RTRUE>)
<TELL D ,PRSI
", puzzled by your unorthodox methods, ducks as the "
D ,PRSO " flies by." CR>)
(T <TELL "Perhaps you aren't feeling well?" CR>)>>
<ROUTINE IDROP
()
<TELL "It's not likely that " D ,PRSO " would enjoy that." CR>
<RFALSE>)
<TELL "You're not carrying the" PRSO "." CR>
<RFALSE>)
<TELL "The " D ,PRSO " is closed." CR>
<RFALSE>)
\
<ROUTINE V-OPEN ("AUX" F STR)
<TELL "You must be very clever to do that to the" PRSO "." CR>)
<NOT <==? <GETP ,PRSO ,P?CAPACITY> 0>>>
(T
<TELL "The " D ,PRSO " is now open." CR>)
<TELL "Opened." CR>)
(<AND <SET F <FIRST? ,PRSO>>
<NOT <NEXT? .F>>
<SET STR <GETP .F ,P?FDESC>>>
<TELL "The " D ,PRSO " opens." CR>
<TELL .STR CR>)
(T
<TELL "Opening the " D ,PRSO " reveals ">
<TELL "." CR>)>)>)
(T <TELL "The" PRSO " cannot be opened." CR>)>>
<ROUTINE PRINT-CONTENTS (OBJ "AUX" F N (1ST? T))
#DECL ((OBJ) OBJECT (F N) <OR FALSE OBJECT>)
<COND (<SET F <FIRST? .OBJ>>
<REPEAT ()
<SET N <NEXT? .F>>
<COND (.1ST? <SET 1ST? <>>)
(ELSE
<TELL ", ">
<COND (<NOT .N> <TELL "and ">)>)>
<TELL "a " D .F>
<SET F .N>
<COND (<NOT .F> <RETURN>)>>)>>
<ROUTINE V-CLOSE ()
<TELL "You must be very clever to do that to the" PRSO "." CR>)
<TELL "The " D ,PRSO " is now closed." CR>
(T <TELL "It is already closed." CR>)>)
(<AND <NOT <FSET? ,PRSO ,SURFACEBIT>>
<NOT <==? <GETP ,PRSO ,P?CAPACITY> 0>>>
<TELL "Closed." CR>)
(T <TELL "It is already closed." CR>)>)
(ELSE
<TELL "You cannot close that." CR>)>>
<ROUTINE CCOUNT (OBJ "AUX" (CNT 0) X)
<COND (<SET X <FIRST? .OBJ>>
<REPEAT ()
<SET CNT <+ .CNT 1>>
<COND (<NOT <SET X <NEXT? .X>>>
<RETURN>)>>)>
.CNT>
"WEIGHT: Get sum of SIZEs of supplied object, recursing to the nth level."
<ROUTINE WEIGHT
(OBJ "AUX" CONT (WT 0))
#DECL ((OBJ) OBJECT (CONT) <OR FALSE OBJECT> (WT) FIX)
<COND (<SET CONT <FIRST? .OBJ>>
<REPEAT ()
<SET WT <+ .WT <WEIGHT .CONT>>>
<COND (<NOT <SET CONT <NEXT? .CONT>>> <RETURN>)>>)>
<+ .WT <GETP .OBJ ,P?SIZE>>>
<ROUTINE V-BUG ()
<TELL
"If there is a problem here, it is unintentional. You may report
your problem to the address provided in your documentation." CR>>
;"***VZ: The word 'registered' was added in r28.***"
<GLOBAL COPR-NOTICE
" a transcript of interaction with DEADLINE.|
DEADLINE is a trademark of Infocom, Inc.|
Copyright (c) 1982 Infocom, Inc. All rights reserved.|
">
<ROUTINE V-SCRIPT ()
<PUT 0 8 <BOR <GET 0 8> 1>>
<TELL "Here begins" ,COPR-NOTICE CR>>
<ROUTINE V-UNSCRIPT ()
<TELL "Here ends" ,COPR-NOTICE CR>
<PUT 0 8 <BAND <GET 0 8> -2>>
<RTRUE>>
<ROUTINE PRE-MOVE ()
<TELL "Juggling isn't one of your talents." CR>)>>
<ROUTINE V-MOVE ()
<TELL "Moving the" PRSO " reveals nothing." CR>)
(T <TELL "You can't move the" PRSO "." CR>)>>
<ROUTINE V-LAMP-ON ()
<TELL
"Ahem! You may or may not realize this, but you are on a case. You
shouldn't be wasting your time attempting to flirt with the suspects.
In any event, it's unlikely that you are person enough to do it." CR>)
(T <TELL "You can't turn that on." CR>)>>
<ROUTINE V-LAMP-OFF ()
<TELL "Your uncouth manner is certain to turn anyone off." CR>)
(T <TELL "You can't turn that off." CR>)>>
;"V-WAIT has three modes, depending on the arguments:
1) If only one argument is given, it will wait for that mnay moves
2) If a second argument is given, it will wait the least of the first
argument number of moves and the time at which the second argument
(an object) is in the room with the player.
3) If the third argument is given, the second should be FALSE. It will
wait <first argument> number of moves (or at least try to...). The
third argument means that an 'internal wait' is happening (e.g. for
a 'careful' search)."
<GLOBAL WHO-WAIT 0>
<ROUTINE V-WAIT ("OPTIONAL" (NUM 3) (WHO <>) (INT <>) "AUX" VAL)
#DECL ((NUM) FIX)
<SETG WHO-WAIT 0>
<COND (<NOT .INT> <TELL "Time passes..." CR>)>
<REPEAT ()
<COND (<L? <SET NUM <- .NUM 1>> 0> <RETURN>)
(<SET VAL <CLOCKER>>
<COND (<==? .VAL ,M-FATAL> <RETURN>)
(<AND <==? .WHO ,GLOBAL-DUFFY>
<NOT ,FINGERPRINT-OBJ>>
<RETURN>)
(<AND .WHO <IN? .WHO ,HERE>>
<TELL D .WHO
", for whom you are waiting, has arrived." CR>
<RETURN>)
(T
<COND (<NOT <==? <BAND <GETB 0 1> 16> 0>>
<TELL "(">
<TELL ") ">)>
<COND (.INT
<TELL
"Do you want to continue what you were doing? (Y/N)">)
(T
<TELL
"Do you want to keep waiting? (Y/N)">)>
<COND (<NOT <YES?>> <RETURN>)
(T <USL>)>)>)
(<AND <==? .WHO ,GLOBAL-DUFFY>
<NOT ,FINGERPRINT-OBJ>>
<RETURN>)
(<AND .WHO <IN? .WHO ,HERE>>
<TELL D .WHO
", for whom you are waiting, has arrived." CR>
<RETURN>)
<TELL D .WHO
" still hasn't arrived. Do you want to keep waiting? (Y/N) ">
<COND (<NOT <YES?>> <RETURN>)>
<SETG WHO-WAIT 0>
<USL>)
(T <USL>)>>
<SETG CLOCK-WAIT T>
<COND (<NOT .INT> <V-TIME>)>
<RTRUE>>
Run the game time forward by N minutes. Returns true if the full time elapsed, or false if the player chose to stop waiting (because of some observed action).
This is used by a couple of actions that take more than one minute: EXAMINE CAREFULLY, EXAMINE ROOM. If you don’t wait the full interval, the EXAMINE action fails.
<SET TIM ,PRESENT-TIME>
<V-WAIT <SET REQ <RANDOM <* .N 2>>> <> T>
<COND (<NOT <L? <- ,PRESENT-TIME .TIM> .REQ>>
<RTRUE>)
(T <RFALSE>)>>
<ROUTINE V-WAIT-FOR ("AUX" WHO)
<COND (<G? ,P-NUMBER ,PRESENT-TIME> <V-WAIT-UNTIL> <RTRUE>)
(<G? ,P-NUMBER 180>
<TELL "That's too long to wait." CR>)
(<==? ,PRSO ,NOON> <V-WAIT-UNTIL> <RTRUE>)
(<==? ,PRSO ,GLOBAL-DUFFY>
<COND (,FINGERPRINT-OBJ
(T
<TELL
"You would wait quite a while, since Sergeant Duffy is always
nearby, but never approaches you unless requested." CR>)>)
<SET WHO <GET ,CHARACTER-TABLE
<GETP ,PRSO ,P?CHARACTER>>>
<COND (<IN? .WHO ,HERE>
<TELL "That person is already here!" CR>)
(T <V-WAIT 10000 .WHO>)>)
(T <TELL "Not a good idea. You might wait all day." CR>)>>
<ROUTINE V-WAIT-UNTIL ()
<SETG P-NUMBER 720>
(<L? ,P-NUMBER 8>
(<L? ,P-NUMBER 13>
<COND (<G? ,P-NUMBER ,PRESENT-TIME>
<V-WAIT <- ,P-NUMBER ,PRESENT-TIME>>)
(T <TELL
"You are clearly ahead of your time." CR>)>)
(T <TELL "Your sanity is coming into question." CR>)>>
;<ROUTINE PRE-BOARD
("AUX" AV)
<SET AV <LOC ,WINNER>>
<COND (<FSET? ,PRSO ,VEHBIT>
<COND (<NOT <IN? ,PRSO ,HERE>>
<TELL "The "
D
,PRSO
" must be on the ground to be boarded." CR>)
(<FSET? .AV ,VEHBIT>
<TELL "You are already in the " D .AV ", cretin!" CR>)
(T <RFALSE>)>)
(<FSET? ,PRSO ,FURNITURE>
<TELL
"You should be solving the case, not sitting down on the job!" CR>)
(T
<TELL "You no doubt have a theory on boarding a "
D
,PRSO
"." CR>)>
<RFATAL>>
;<ROUTINE V-BOARD
("AUX" AV)
#DECL ((AV) OBJECT)
<TELL "You are now in the " D ,PRSO "." CR>
<MOVE ,WINNER ,PRSO>
<APPLY <GETP ,PRSO ,P?ACTION> ,M-ENTER>
<RTRUE>>
<ROUTINE V-STAND ()
<COND (<OR <FSET? <LOC ,WINNER> ,SURFACEBIT>
<TELL "You are on your own feet again." CR>
(T
<TELL "You're already standing up!" CR>)>>
<ROUTINE V-DISEMBARK ()
<TELL "You're not in that!" CR>
<RFATAL>)
(T ;<FSET? ,HERE ,RLANDBIT>
<TELL "You are on your own feet again." CR>
;(T
<TELL
"You realize, just in time, that getting out here would probably be fatal." CR>
<RFATAL>)>>
<ROUTINE GOTO (RM "OPTIONAL" (V? T) "AUX" F WT)
#DECL ((RM) OBJECT)
<TELL "You are seated, if you remember." CR>)
(T
<SET F <FIRST? ,HERE>>
<SET WT <GET ,WHERE-TABLES 0>>
<REPEAT ()
<COND (<NOT .F> <RETURN>)
(<AND <FSET? .F ,PERSON>
<NOT <==? .F ,PLAYER>>>
<PUT .WT <GETP .F ,P?CHARACTER> ,PRESENT-TIME>)>
<SET F <NEXT? .F>>>
<MOVE ,WINNER .RM>
<SETG HERE .RM>
<SETG LIT T>
<COND (.V? <V-FIRST-LOOK>)>)>>
<ROUTINE PRE-POUR-ON ()
<TELL "You can't pour that on anything." CR>>
<ROUTINE V-POUR-ON
()
<REMOVE ,PRSO>
<COND (<FLAMING? ,PRSI>
<TELL "The " D ,PRSI " is extinguished." CR>)
(T
<TELL "The water spills over the "
D
,PRSI
" and to the floor where it evaporates." CR>)>>
<ROUTINE V-SQUEEZE
()
<TELL "It's unclear how " D ,PRSO
" would take this, so you defer until after hours.">)
(ELSE <TELL "How singularly useless.">)>
<CRLF>>
<ROUTINE PRE-FILL ("AUX" TX)
<COND (<ZMEMQB ,GLOBAL-WATER .TX <PTSIZE .TX>>
<SETG PRSI ,GLOBAL-WATER>
<RFALSE>)
(T
<TELL "There's nothing to fill it with." CR>
<RTRUE>)>)>
<COND (<NOT <EQUAL? ,PRSI ,GLOBAL-WATER>>
<RTRUE>)>>
<ROUTINE V-FILL ()
<COND (<NOT ,PRSI>
<COND (<GLOBAL-IN? ,GLOBAL-WATER ,HERE>
<PERFORM ,V?FILL ,PRSO ,GLOBAL-WATER>)
(T
<TELL "There's nothing to fill it with." CR>)>)
(T <TELL "You can't do that." CR>)>>
<ROUTINE V-BRUSH ()
<TELL
"Cleanliness is next to Godliness, although in this case it seems to be
next to Uselessness." CR>>
<ROUTINE V-RING () <TELL "How, exactly, does one ring that?" CR>>
<ROUTINE V-DRINK ()
<V-EAT>>
<ROUTINE V-EAT ("AUX" (EAT? <>) (DRINK? <>) (NOBJ <>))
#DECL ((NOBJ) <OR OBJECT FALSE> (EAT? DRINK?) <OR ATOM FALSE>)
<COND (<VERB? DRINK> <TELL "How does one drink that?" CR>)
(ELSE
<TELL "Mmm. That really hit the spot." CR>
<REMOVE ,PRSO>)>
<CRLF>)
<COND (<OR <IN? ,PRSO ,GLOBAL-OBJECTS>
<AND <SET NOBJ <LOC ,PRSO>>
<IN? .NOBJ ,WINNER>
<FSET? .NOBJ ,OPENBIT>>>
<TELL
"Mmm. That really hit the spot." CR>
<REMOVE ,PRSO>)
(T <TELL "You can't get to it." CR>)>)
(<NOT <OR .EAT? .DRINK?>>
<TELL "The"
" wouldn't agree with you." CR>)>>
<ROUTINE V-CURSES ()
<COND (,PRSO
<TELL "Insults of this nature won't help you." CR>)
(T
<TELL "What a loony!" CR>)>)
(T
<ROUTINE V-LISTEN ()
<TELL "The ">)>
<TELL D ,PRSO " makes no sound." CR>>
<ROUTINE V-FOLLOW ("AUX" CN CHR COR PCOR L)
<SET CN <GETP ,PRSO ,P?CHARACTER>>
<SET CHR <GET ,CHARACTER-TABLE .CN>>
<SET L <LOC .CHR>>
<TELL
"It's not clear whom you are talking to." CR>)
<TELL
"How tragic to see a formerly great detective stalking a " D ,PRSO "." CR>)
(<==? ,HERE .L>
<TELL
"You're in the same place as " D .CHR "!" CR>)
(<NOT .L>
<TELL D .CHR " has left the grounds." CR>)
(<==? <GET <GET ,WHERE-TABLES 0> .CN> ,PRESENT-TIME>
<GOTO .L>)
(<AND <SET COR <GETP ,HERE ,P?CORRIDOR>>
<SET PCOR <GETP .L ,P?CORRIDOR>>
<NOT <==? <BAND .COR .PCOR> 0>>>
<V-WALK>)
(T <TELL "You seem to have lost track of " D .CHR "." CR>)>>
<GLOBAL OFFENDED
<LTABLE "You ought to be ashamed of yourself."
"One must try to avoid locker-room talk while working.">>
<ROUTINE V-LEAP ("AUX" TX S)
<COND (,PRSO
<TELL "The "
D
,PRSO
" is too big to jump over." CR>)
(T <V-SKIP>)>)
(T <TELL "That would be a good trick." CR>)>)
<SET S <PTSIZE .TX>>
<COND (<OR <==? .S 2> ;NEXIT
<AND <==? .S 4> ;CEXIT
<NOT <VALUE <GETB .TX 1>>>>>
<TELL
"For a brief moment, you feel the exhilaration of free fall. A thought
hits you: the ground is moving toward me. It is your last thought." CR>
<QUIT>)
(T <V-SKIP>)>)
(ELSE <V-SKIP>)>>
<ROUTINE V-SKIP () <TELL "Wheeeeeeeeee!!!!!" CR>>
<ROUTINE V-GOODBYE () <V-HELLO <>>>
<ROUTINE V-HELLO ("OPTIONAL" (HELL T))
<COND (,PRSO
<TELL D
,PRSO
" returns the salutation." CR>)
(ELSE
<TELL
"Only schizophrenics say \"">
<COND (.HELL "Hello") (T "Goodbye")>
<TELL "\" to a "
D
,PRSO
"." CR>)>)
(ELSE <TELL "Good day." CR>)>>
<ROUTINE NOT-HERE (OBJ)
<TELL "You can't see ">
<COND (<FSET? .OBJ ,PERSON>
<TELL D .OBJ>)
(T <TELL "that">)>
<TELL " here." CR>>
<ROUTINE PRE-READ ()
<COND (<NOT ,LIT> <TELL "It is impossible to read in the dark." CR>)
(<EQUAL? ,PRSO ,GLOBAL-ENDING ,SECOND-SECTION> <RFALSE>)
(<IN? ,PRSO ,GLOBAL-OBJECTS>
<TELL "You examine one of the handful of pills:" CR>
<RFALSE>)
(<AND ,PRSI
<TELL "How does one look through the" PRSI "?" CR>)
(<AND <==? ,P-ADVERB ,W?CAREFULLY>
<NOT <INT-WAIT 3>>>
<TELL "You never got to finish reading the " D ,PRSO "." CR>)>>
<ROUTINE V-READ ()
;"***VZ: In r28 this message uses 'D ,PRSO' and ends with
a period. ***"
<TELL "You cannot read the" PRSO "?" CR>)
<ROUTINE V-LOOK-UNDER ()
<TELL
"You twist your head to look under the" PRSO " but find nothing." CR>)
<TELL "Nope. Nothing hiding under " D ,PRSO "." CR>)
(<EQUAL? <LOC ,PRSO> ,HERE ,LOCAL-GLOBALS ,GLOBAL-OBJECTS>
<TELL "There is nothing but dust there." CR>)
(T
<TELL "That's not so useful." CR>)>>
<ROUTINE V-LOOK-BEHIND ()
<TELL "There is nothing behind ">
<TELL D ,PRSO>)
(T <TELL "the" PRSO>)>
<TELL "." CR>>
<ROUTINE V-LOOK-INSIDE
()
<ROOM-PEEK>)
<TELL "The "
D
,PRSO
" is open, but you can't tell what's beyond it.">)
(ELSE <TELL "The " D ,PRSO " is closed.">)>
<CRLF>)
<COND (<SEE-INSIDE? ,PRSO>
<COND (<AND <FIRST? ,PRSO> <PRINT-CONT ,PRSO>>
<RTRUE>)
(<FSET? ,PRSO ,SURFACEBIT>
<TELL "There is nothing on the" PRSO "." CR>)
(T
<TELL "The " D ,PRSO " is empty." CR>)>)
(ELSE <TELL "The " D ,PRSO " is closed." CR>)>)
(ELSE <TELL "One can't look inside the" PRSO "." CR>)>>
<ROUTINE SEE-INSIDE? (OBJ)
<AND <NOT <FSET? .OBJ ,INVISIBLE>>
<ROUTINE PRE-BURN ()
<COND (<FLAMING? ,PRSI> <RFALSE>)
(T <TELL "With the" PRSI "??!?" CR>)>>
<ROUTINE V-BURN
()
<TELL "You can't burn the " D ,PRSO "." CR>
;<COND (<FSET? ,PRSO ,BURNBIT>
<COND (<IN? ,PRSO ,WINNER>
<REMOVE ,PRSO>
<TELL "The " D ,PRSO " catches fire." CR>
<TELL
"Unfortunately, you were holding it at the time." CR>
<QUIT>)
(T
<REMOVE ,PRSO>
<TELL "The " D ,PRSO
" catches fire and is consumed." CR>)
(ELSE <TELL "You don't have that." CR>)>)
(T )>>
<ROUTINE PRE-TURN ()
<COND (<==? ,PRSO ,GLOBAL-CALL>
<TELL "Specify a direction if you want to move around." CR>)
<TELL "You can't turn that!" CR>)>>
<ROUTINE V-TURN () <TELL "This has no effect." CR>>
<ROUTINE V-PUMP ()
<TELL "It's not awfully clear how." CR>>
<ROUTINE V-LOCK () <TELL "It doesn't seem to work." CR>>
<ROUTINE V-PICK () <TELL "You can't pick that." CR>>
<ROUTINE V-UNLOCK () <TELL "It doesn't seem to work." CR>>
<ROUTINE V-CUT ()
<REMOVE ,PRSO>
<TELL "Your skillful "
D
,PRSI
"smanship slices the "
D
,PRSO
" into innumerable
slivers that evaporate instantaneously."
CR>)
<TELL
"You find that the \"cutting edge\" of the" PRSI " is inadequate." CR>)
(T
<TELL "That's a strange concept, cutting the" PRSO "." CR>)>>
<ROUTINE V-KILL ()
<IKILL "kill">>
<ROUTINE IKILL (STR)
#DECL ((STR) STRING)
<COND (<NOT ,PRSO> <TELL "There is nothing here to " .STR "." CR>)
<TELL "No doubt you need a refresher course at the academy "
"in the martial arts, but the "
D
,PRSO
" is hardly a likely target." CR>)
<TELL
"A shot rings out and " D ,PRSO " falls to the ground, dead. Good shot." CR>
<GONE-CRAZY>)
(<PROB 50>
<TELL "You rethink your planned action." CR>)
(T
<TELL
"With a lethal blow of your hand, " D ,PRSO " falls dead." CR>
<GONE-CRAZY>)>>
<ROUTINE V-ATTACK () <IKILL "attack">>
<ROUTINE V-SWING ()
<COND (<NOT ,PRSI>
<TELL "Whoosh!" CR>)
<ROUTINE V-KICK ()
<TELL "This sort of shabby behavior is disgusting." CR>)
(T <HACK-HACK "Kicking the ">)>>
<ROUTINE V-WAVE () <HACK-HACK "Waving the ">>
<ROUTINE V-RAISE () <HACK-HACK "Playing in this way with the ">>
<ROUTINE V-LOWER () <HACK-HACK "Playing in this way with the ">>
<ROUTINE V-RUB () <HACK-HACK "Fiddling with the ">>
<ROUTINE V-PUSH () <HACK-HACK "Pushing the ">>
<ROUTINE V-MUNG ()
<HACK-HACK "Trying to destroy the ">>
<ROUTINE HACK-HACK
(STR)
#DECL ((STR) STRING)
<GLOBAL HO-HUM
<LTABLE
" isn't particularly useful."
" has no effect.">>
<ROUTINE WORD-TYPE
(OBJ WORD "AUX" SYNS)
#DECL ((OBJ) OBJECT (WORD SYNS) TABLE)
<ZMEMQ .WORD
<SET SYNS <GETPT .OBJ ,P?SYNONYM>>
<- </ <PTSIZE .SYNS> 2> 1>>>
<ROUTINE V-KNOCK
()
<TELL "It appears that nobody's home." CR>)
(ELSE <TELL "Why knock on a " D ,PRSO "?" CR>)>>
\
<ROUTINE V-SHAKE ("AUX" X)
<TELL "You can't take it; thus, you can't shake it!" CR>)
<FIRST? ,PRSO>>
<TELL "It sounds as though there is something inside the "
D
,PRSO
"."
CR>)
<REPEAT ()
<COND (<SET X <FIRST? ,PRSO>>
<MOVE .X ,HERE>)
;"***VZ: r28 added <FSET .X ,TOUCHBIT>
after the <MOVE> above.***"
(ELSE <RETURN>)>>
<TELL "Everything in it spills onto the floor." CR>)
(T <TELL "Well, what did you expect to happen?" CR>)>>
<ROUTINE PRE-DIG
()
<TELL "Digging with the" PRSI " is slow and tedious." CR>)
(ELSE
<TELL "Digging with a " D ,PRSI " is silly." CR>)>>
<ROUTINE V-SEARCH-OBJECT-FOR ()
<TELL D ,PRSO
" resignedly allows you to perform the search." CR>
(T <TELL D ,PRSO " doesn't have that." CR>)>)
<TELL "How observant you are! There it is!" CR>)
(T <TELL "You don't find the" PRSI " there." CR>)>>
<ROUTINE V-DIG () <TELL "What a silly idea!" CR>>
<ROUTINE V-SMELL () <TELL "It smells just like a" PRSO "." CR>>
<ROUTINE GLOBAL-IN? (OBJ1 OBJ2 "AUX" TX)
<COND (<SET TX <GETPT .OBJ2 ,P?GLOBAL>>
<ZMEMQB .OBJ1 .TX <- <PTSIZE .TX> 1>>)>>
<ROUTINE V-SWIM ()
<TELL "Swimming isn't possible ">
<COND (,PRSO
<TELL "in the " D ,PRSO>)
(<==? <GETP ,HERE ,P?LINE> ,OUTSIDE-LINE-C>
<TELL "on the grounds">)
(T <TELL "right on the floor, Sherlock">)>
<TELL "." CR>>
<ROUTINE PRE-UNTIE ()
<TELL "This cannot be tied, so it cannot be untied!" CR>>
<ROUTINE V-UNTIE () <TELL "Foo!" CR>>
<ROUTINE PRE-TIE
()
<TELL "You can't tie it to yourself." CR>)>>
<ROUTINE V-TIE () <TELL "You can't tie the" PRSO " to that." CR>>
<ROUTINE V-TIE-UP () <TELL "You could certainly never tie it with that!" CR>>
<ROUTINE V-MUMBLE
()
<TELL "It has been a long day, hasn't it?" CR>>
<ROUTINE V-ALARM ()
<TELL "He's wide awake, or haven't you noticed?" CR>)
(ELSE
<TELL "The" PRSO " doesn't sleep." CR>)>>
The ZORK command was removed from the grammar early on; no known release recognizes it. This vestige remains.
;"***VZ: The word 'registered' was added in r28.***"
<TELL
"A series of fantasy simulation games and a trademark of Infocom,
Inc." CR>>
\
;<ROUTINE MUNG-ROOM (RM STR)
#DECL ((STR) STRING)
<FSET .RM ,RMUNGBIT>
<PUTP .RM ,P?LDESC .STR>>
<ROUTINE V-CLIMB-ON ()
<TELL "You are now seated on the " D ,PRSO "." CR>)
<TELL "This isn't the kind of thing to sit on!" CR>)
(T
<TELL "You can't climb onto the " D ,PRSO "." CR>)>>
<ROUTINE V-CLIMB-FOO () <V-CLIMB-UP ,P?UP T>>
<ROUTINE V-CLIMB-UP ("OPTIONAL" (DIR ,P?UP) (OBJ <>) "AUX" X)
#DECL ((DIR) FIX (OBJ) <OR ATOM FALSE> (X) TABLE)
<COND (<GETPT ,HERE .DIR>
<PERFORM ,V?WALK .DIR>
<RTRUE>)
(<NOT .OBJ>
<TELL "You can't go that way." CR>)
(<AND .OBJ
<ZMEMQ ,W?WALL
<- </ <PTSIZE .X> 2> 1>>>
<TELL "Climbing the walls is to no avail." CR>)
(ELSE <TELL "Bizarre!" CR>)>>
<ROUTINE V-CLIMB-DOWN ()
<RTRUE>)
(T <V-CLIMB-UP ,P?DOWN>)>>
<ROUTINE V-SEND ()
<TELL "Why would you send for the" PRSO "?" CR>)
(ELSE <TELL "Sigh." CR>)>>
#DECL ((CNT) FIX)
<TELL "There ">
<COND (<1? .CNT> <TELL "is ">)
(T <TELL "are ">)>
<PRINTN .CNT>
<TELL " of them." CR>)
<TELL "There are two in a pair, or have you forgotten?" CR>)
(T
<TELL "Unless you are drunk, one." CR>)>>
<ROUTINE V-PUT-UNDER ()
<TELL "There's not enough room." CR>>
<ROUTINE V-ENTER ()
<ROUTINE V-EXIT ()
<ROUTINE V-CROSS ()
<TELL "You can't cross that!" CR>>
<ROUTINE V-SEARCH ()
<TELL D ,PRSO
" grudgingly allows you to search. You find nothing
whatsoever of interest." CR>)
(T <TELL "You find nothing unusual." CR>)>>
<GLOBAL PRON-HIM "him">
<GLOBAL PRON-HE "he">
<GLOBAL PRON-HER "her">
<GLOBAL PRON-SHE "she">
<ROUTINE PRE-FIND ("AUX" PRON PRON1 CHR NUM)
<SET PRON ,PRON-HIM>
<SET PRON1 ,PRON-HE>
<TELL "You're already here!" CR>)
<TELL "You should know - you've been there!" CR>)
(T <TELL "You're the detective!" CR>)>)
(<==? ,PRSO ,GLOBAL-MR-ROBNER>
<TELL
"He's in the morgue, no doubt." CR>)
<SET NUM <GET <GET ,WHERE-TABLES <GETP ,WINNER ,P?CHARACTER>>
<SET CHR <GETP ,PRSO ,P?CHARACTER>>>>
<COND (<IN? ,PRSO ,GLOBAL-OBJECTS>
<SETG PRSO <GET ,CHARACTER-TABLE .CHR>>)>
<COND (<EQUAL? .CHR ,MRS-ROBNER-C ,ROURKE-C ,DUNBAR-C>
<SET PRON ,PRON-HER>
<SET PRON1 ,PRON-SHE>)>
<NOT <GRAB-ATTENTION ,WINNER>>>
<RTRUE>)>
<TELL "Are you blind?" CR>)
(T
<TELL "\"Ahem...\"" CR>)>)
(<0? .NUM>
<TELL
"You haven't seen " .PRON " yet." CR>)
(T
<TELL
"\"I haven't seen " .PRON " today.\"" CR>)>)
(T
<SET NUM <- ,PRESENT-TIME .NUM>>
<TELL
"You last saw " .PRON " ">)
(T
<TELL
"\"I last saw " .PRON " ">)>
<COND (<G? .NUM 120>
<TELL "a few hours ago">)
(<G? .NUM 80>
<TELL "an hour or two ago">)
(<G? .NUM 45>
<TELL "about an hour ago">)
(<G? .NUM 20>
<TELL "about half an hour ago">)
(<G? .NUM 10>
<TELL "about 15 minutes ago">)
(<G? .NUM 5>
<TELL "less than 10 minutes ago">)
(T
<TELL "just a minute ago">)>
<TELL ". I don't know where ">
<TELL .PRON1 " went, though.\"" CR>)
(T <TELL "." CR>)>)>
<RTRUE>)>>
<ROUTINE V-FIND ("AUX" (L <LOC ,PRSO>))
<TELL "You're around here somewhere..." CR>)
<TELL "\"I don't know.\"" CR>)
(<EQUAL? .L ,GLOBAL-OBJECTS>
<TELL "You're the detective." CR>)
<TELL "You have it." CR>)
<==? ,PRSO ,PSEUDO-OBJECT>>
<TELL "It's right here." CR>)
(<FSET? .L ,PERSON>
<TELL D .L " has it." CR>)
(<FSET? .L ,CONTBIT>
<TELL "It's ">
<COND (<FSET? .L ,SURFACEBIT> <TELL "o">)
(T <TELL "i">)>
<TELL "n the " D .L "." CR>)
(ELSE
<TELL "Who knows?" CR>)>>
<GLOBAL QCONTEXT <>>
<GLOBAL QCONTEXT-ROOM <>>
<ROUTINE V-TELL ()
<TELL
"Talking to yourself is said to be a sign of impending mental
collapse." CR>)
<COND (,P-CONT
(T
<TELL
D ,PRSO " is listening." CR>)>
<SETG QCONTEXT-ROOM ,HERE>
Why did they remove this RTRUE in r28? It appears to be an attempt to save space.
If you reach the end of a ZIL routine without an explicit return statement, it returns the last value expression. In this case that’s <SETG QCONTEXT-ROOM ,HERE>, which is an object number. Object numbers are always positive, so you can save a line of code and still effectively return true.
What the developer didn’t realize is that returning an arbitrary number takes two bytes of Z-code, whereas RTRUE only takes one! The “optimization” in r28 saves a line of code but wastes a byte in the game file.
(T
<TELL "You can't talk to the" PRSO "!" CR>
<SETG QUOTE-FLAG <>>
<SETG P-CONT <>>
<RFATAL>)>>
<ROUTINE V-ANSWER ()
<TELL "Nobody seems to be awaiting your answer." CR>
<SETG P-CONT <>>
<SETG QUOTE-FLAG <>>
<RTRUE>>
<ROUTINE V-REPLY ()
<TELL "It is hardly likely that the " D ,PRSO " is interested." CR>
<SETG P-CONT <>>
<SETG QUOTE-FLAG <>>
<RTRUE>>
<ROUTINE V-WHAT ()
<TELL "Surely you have read the interviews." CR>)
(T <TELL "Are you talking to yourself again?" CR>)>>
<ROUTINE V-KISS ()
<TELL
"Section 204D, Paragraph 7.6 of the Connecticut Police Code of
Conduct specifically prohibits kissing suspects." CR>)
(T <TELL "What a (ahem!) strange idea!" CR>)>>
<ROUTINE V-RAPE ()
<COND (<PROB 75>
<TELL
"Section 29A of the United States Criminal Code, whose provisions
come to your unhealthy mind, tut-tuts this sort of thing. A pity." CR>)
(T <GONE-CRAZY>)>)
(T <TELL "What a (ahem!) strange idea!" CR>)>>
<ROUTINE V-DIAGNOSE ()
<TELL "You're OK for now." CR>>
<ROUTINE V-SAY ("AUX" V)
<SETG QUOTE-FLAG <>>
<SETG P-CONT <>>
<TELL
"To talk to someone, try 'SAY TO someone \"something\"'." CR>>
<ROUTINE PRE-SSHOW ()
<SETG P-MERGED T>
<RTRUE>>
<ROUTINE V-SSHOW () <RTRUE>>
<ROUTINE V-SHOW ()
<TELL "Do you often talk to yourself?" CR>)
<TELL "Do you expect applause from the" PRSO "?" CR>)
(T
<GLOBAL WHO-CARES
<LTABLE " doesn't appear interested"
" seems not to care"
" lets out a loud yawn"
" seems to be getting impatient">>
<ROUTINE V-TELL-ME ()
<V-CONFRONT>>
<ROUTINE V-CONFRONT ()
<TELL "You aren't talking to anyone!" CR>)
<TELL "That ought to put a scare into the" PRSO "." CR>)
(T
<ROUTINE V-SEND-FOR ("AUX" REAL)
<TELL "You can only send for a person." CR>)
(T
<SET REAL <COND (<IN? ,PRSO ,GLOBAL-OBJECTS>
<GET ,CHARACTER-TABLE
<GETP ,PRSO ,P?CHARACTER>>)
(T ,PRSO)>>
<COND (<IN? .REAL ,HERE>
<TELL D .REAL " is already here." CR>)
(T <TELL "You can't send for people." CR>)>)>>
<ROUTINE V-ANALYZE ()
<COND (<==? ,PRSI ,GLOBAL-FINGERPRINTS>
<RTRUE>)
<DO-ANALYZE>)
<TELL "Duffy is already occupied with another errand." CR>)
(<IN? ,PRSO ,GLOBAL-OBJECTS>
<TELL
"Duffy appears in an instant. \"Well, I might be able to analyze the "
D ,PRSO ",
but you don't even have it with you!\" With that, he discreetly leaves." CR>)
(T
<TELL
"Sergeant Duffy appears with a puzzled look on his face. \"With all
respect, I don't think I can take THAT to the laboratory! I'll
be nearby if you need me.\" He leaves, shaking his head slowly." CR>)>>
<ROUTINE PRE-ACCUSE ()
<COND (<NOT ,PRSI>
<SETG PRSI ,GLOBAL-MURDER>)>
<COND (<NOT <==? ,PRSI ,GLOBAL-MURDER>>
<TELL "What an accusation!" CR>)
<TELL "What a detective! Quick, Sergeant! Arrest that "
D ,PRSO "!" CR>)>>
<ROUTINE V-ACCUSE ()
<TELL D ,PRSO " shrugs off your suggestion." CR>>
<ROUTINE V-ARREST ()
<TELL
"You realize that you don't have enough evidence to convict " D ,PRSO>
<TELL " so
you resolve to continue the investigation." CR>)
(<==? ,PRSO ,GLOBAL-DUFFY>
<TELL "Oh, come on now! Not trusty " D ,PRSO "!" CR>)
(T
<TELL
"Sergeant Duffy enters, strokes his chin, and in a rather puzzled voice
says \"Excuse me, sir, but it would cause quite a stir at the station
to be charging a " D ,PRSO " with murder!\" He leaves quietly." CR>)>>
<ROUTINE V-ASK-ABOUT ()
<TELL
"Talking to yourself is said to be a sign of impending mental
collapse." CR>)
(<==? ,PRSO ,GLOBAL-STEVEN>
<TELL "Steven isn't in the area." CR>)
<TELL "Do you often talk to a " D ,PRSO "?" CR>)
(T
<TELL D ,PRSO " doesn't seem to know about that." CR>)>>
<ROUTINE V-ASK-FOR ()
<COND (<EQUAL? ,PRSI ,SAFE ,GLOBAL-SAFE>
<RTRUE>)>
<TELL D ,PRSO>
<TELL " hands you the " D ,PRSI "." CR>
(T <TELL " doesn't have that." CR>)>)
(T <TELL "Be serious!" CR>)>>
<ROUTINE V-HOLD-UP ()
<TELL "That doesn't seem to help at all." CR>>
"Routines to do looking down corridors"
<ROUTINE CORRIDOR-LOOK ("OPTIONAL" (ITM <>) "AUX" C Z COR VAL (FOUND <>))
<COND (<SET C <GETP ,HERE ,P?CORRIDOR>>
<REPEAT ()
<COND (<NOT <L? <SET Z <- .C 2048>> 0>>
<SET COR ,COR-2048>)
(<NOT <L? <SET Z <- .C 1024>> 0>>
<SET COR ,COR-1024>)
(<NOT <L? <SET Z <- .C 512>> 0>>
<SET COR ,COR-512>)
(<NOT <L? <SET Z <- .C 256>> 0>>
<SET COR ,COR-256>)
(<NOT <L? <SET Z <- .C 128>> 0>>
<SET COR ,COR-128>)
(<NOT <L? <SET Z <- .C 64>> 0>>
<SET COR ,COR-64>)
(<NOT <L? <SET Z <- .C 32>> 0>>
<SET COR ,COR-32>)
(<NOT <L? <SET Z <- .C 16>> 0>>
<SET COR ,COR-16>)
(<NOT <L? <SET Z <- .C 8>> 0>>
<SET COR ,COR-8>)
(<NOT <L? <SET Z <- .C 4>> 0>>
<SET COR ,COR-4>)
(<NOT <L? <SET Z <- .C 2>> 0>>
<SET COR ,COR-2>)
(<NOT <L? <SET Z <- .C 1>> 0>>
<SET COR ,COR-1>)
(T <RETURN>)>
<SET VAL <CORRIDOR-CHECK .COR .ITM>>
<COND (<NOT .FOUND> <SET FOUND .VAL>)>
<SET C .Z>>
.FOUND)>>
<ROUTINE CORRIDOR-CHECK (COR ITM "AUX" (CNT 2) (PAST 0) (FOUND <>) RM OBJ)
#DECL ((COR) <PRIMTYPE VECTOR> (CNT PAST) FIX)
<REPEAT ()
<COND (<==? <SET RM <GET .COR .CNT>> 0>
<RFALSE>)
(<==? .RM ,HERE> <SET PAST 1>)
(<SET OBJ <FIRST? .RM>>
<REPEAT ()
<COND (.ITM
<COND (<==? .OBJ .ITM>
<SET FOUND <GET .COR .PAST>>
<RETURN>)>)
(<AND <FSET? .OBJ ,PERSON>
<NOT <IN-MOTION? .OBJ>>>
<TELL D .OBJ " is ">
<COND (<==? <GETP .RM ,P?LINE>
<TELL "off">)
(T <TELL "down the hall">)>
<TELL " to ">
<DIR-PRINT <GET .COR .PAST>>
<TELL "." CR>)>
<SET OBJ <NEXT? .OBJ>>
<COND (<NOT .OBJ> <RETURN>)>>
<COND (.FOUND <RETURN .FOUND>)>)>
<SET CNT <+ .CNT 1>>>>
<ROUTINE V-LEAN ()
<TELL "You can't do that!" CR>>
<GLOBAL FINGERPRINT-OBJ <>>
<ROUTINE V-FINGERPRINT ()
<TELL
"Upon looking over and dusting the" PRSO " you notice that there are no
good fingerprints to be found." CR>>
<ROUTINE V-FLUSH ()
<TELL "Whatever do you have in mind?" CR>>
<ROUTINE V-DIG-AROUND ()
<TELL "You can't do that." CR>>
<ROUTINE V-SEARCH-AROUND ()
<TELL "You don't find anything interesting." CR>>
<ROUTINE V-SEARCH-GROUND-AROUND ()
<TELL "You don't find anything interesting." CR>)
(T <TELL "Huh?" CR>)>>
<ROUTINE V-SEARCH-GROUND-UNDER ()
<ROUTINE V-TASTE ()
<TELL "That's ridiculous!" CR>>
<ROUTINE ROOM-PEEK ("AUX" OHERE)
<SET OHERE ,HERE>
<TELL
"You take a quick peek into the " D ,PRSO ":" CR>
<SETG HERE .OHERE>
Why did they remove this RTRUE in r28? It appears to be an attempt to save space.
If you reach the end of a ZIL routine without an explicit return statement, it returns the last value expression. In this case that’s <SETG HERE .OHERE>, which is an object number. Object numbers are always positive, so you can save a line of code and still effectively return true.
What the developer didn’t realize is that returning an arbitrary number takes two bytes of Z-code, whereas RTRUE only takes one! The “optimization” in r28 saves a line of code but wastes a byte in the game file.
<ROUTINE SEE-INTO? (THERE "AUX" P L TX O)
<SET P 0>
<REPEAT ()
<COND (<0? <SET P <NEXTP ,HERE .P>>>
<TELL
"You can't seem to find that room." CR>
<RFALSE>)
(<NOT <L? .P ,LOW-DIRECTION>>
<SET TX <GETPT ,HERE .P>>
<SET L <PTSIZE .TX>>
<COND (<AND <==? .L ,UEXIT>
<==? <GETB .TX ,REXIT> .THERE>>
<RTRUE>)
(<AND <==? .L ,DEXIT>
<==? <GETB .TX ,REXIT> .THERE>>
<RTRUE>)
(T
<TELL
"The door to that room is closed." CR>
<RFALSE>)>)
(<AND <==? .L ,CEXIT>
<==? <GETB .TX ,REXIT> .THERE>>
<COND (<VALUE <GETB .TX ,CEXITFLAG>>
<RTRUE>)
(T
<TELL
"You can't seem to find that room." CR>
<RFALSE>)>)>)>>>
<ROUTINE V-WRITE ()
<TELL "You're nuts." CR>>
<ROUTINE V-THROUGH ("OPTIONAL" (OBJ <>) "AUX" M DIR PT PTS)
#DECL ((OBJ) <OR OBJECT FALSE> (M) <PRIMTYPE VECTOR>)
<TELL "Duuuhhh!" CR>)
<PERFORM ,V?WALK .DIR>
<RTRUE>)
(T <TELL
"You can't go directly from here to there." CR>)>)
<TELL "You hit your head against the" PRSO
" as you attempt this feat." CR>)
(.OBJ <TELL "You can't do that!" CR>)
<TELL "That would involve quite a contortion!" CR>)
The current time, stored as minutes after midnight (H*60+M). The game starts at 8:00 am.
See also SCORE and MOVES, which track the current time in a different way.
<ROUTINE V-TIME ()
<TELL "It is now ">
<TELL "." CR>>
<ROUTINE TIME-PRINT (NUM "AUX" HR (PM <>))
#DECL ((NUM HR) FIX (PM) <OR FALSE ATOM>)
<COND (<G? <SET HR </ .NUM 60>> 12>
<SET HR <- .HR 12>>
<SET PM T>)
(<==? .HR 12> <SET PM T>)>
<PRINTN .HR>
<TELL ":">
<COND (<L? <SET HR <MOD .NUM 60>> 10>
<TELL "0">)>
<TELL N .HR " ">
<TELL <COND (.PM "pm") (T "am")>>>
<ROUTINE V-USE ()
<TELL "You should be more specific with what you want to do." CR>>
<ROUTINE V-PLAY ()
<TELL "You are adept only at playing the fool." CR>>
<ROUTINE V-TURN-UP ()
<TELL "That is silly." CR>>
<ROUTINE V-TURN-DOWN ()
<TELL "That is silly." CR>>
<ROUTINE V-HIDE-BEHIND ()
<TELL "There's no room to hide behind the" PRSO "." CR>>
<ROUTINE V-HIDE ()
<TELL "You might hide behind the shed." CR>)
<TELL "You might hide on the balcony." CR>)
(T <TELL "There's no good hiding place here." CR>)>>
<ROUTINE V-CALL-LOSE ()
<TELL "You must supply a verb!" CR>>
<ROUTINE V-CALL ("AUX" PER (MOT <>))
<SET PER <GET ,CHARACTER-TABLE <GETP ,PRSO ,P?CHARACTER>>>
<COND (<IN-MOTION? .PER> <SET MOT T>)>
<COND (<OR <IN? .PER ,HERE> <CORRIDOR-LOOK .PER>>
<TELL D .PER>
<COND (<GRAB-ATTENTION .PER>
<COND (.MOT
<TELL " stops and turns toward you." CR>)
(T <TELL " is facing you." CR>)>)
(T
<TELL " takes no notice of your call." CR>)>)
(T <TELL "You don't see " D .PER " here." CR>)>)
(T <V-CALL-LOSE>)>>
<ROUTINE V-RUN-OVER ()
<TELL "That doesn't make much sense." CR>>
<ROUTINE PRE-RUB-OVER ()
<RTRUE>>
<ROUTINE V-RUB-OVER ()
<TELL "Do you really expect that to help?" CR>>
<GLOBAL P-SPACE 1>
<ROUTINE V-SPACE ()
<SETG P-SPACE 1>
<TELL "Spacing." CR>>
<ROUTINE V-UNSPACE ()
<SETG P-SPACE 0>
<TELL "No spacing." CR>>
<ROUTINE V-LOOK-ON ()
<COND (<FSET? ,PRSO ,SURFACEBIT>
(T <TELL "There's no surface on the" PRSO "." CR>)>>
<ROUTINE V-LOOK-UP ()
<TELL "What a pervert!" CR>
<RTRUE>)
<TELL "Your sanity is in question." CR>
<RTRUE>)
(<EQUAL? ,HERE ,IN-ROSES ,IN-ORCHARD>
<TELL "You can see a balcony directly above you." CR>)
<TELL "There's nothing up there." CR>)
(<==? <GETP ,HERE ,P?LINE> ,OUTSIDE-LINE-C>
<TELL "There is blue sky above you." CR>)
(T
<TELL
"You can see the ceiling. It's not the Sistine Chapel, but it's
nicely painted." CR>)>>
<ROUTINE V-LOOK-DOWN ()
<COND (<==? <GETP ,HERE ,P?LINE> ,OUTSIDE-LINE-C>
<TELL "There's dirt there, mostly. And grass." CR>)
(T
<TELL "Nothing's interesting about the floor." CR>)>)
(T <TELL "Your sanity is in question." CR>)>>
<ROUTINE V-YN ()
<COND (,QCONTEXT
<TELL D ,QCONTEXT " ignores you completely." CR>)
(T <TELL "Did you say something?" CR>)>>
<ROUTINE V-THANKS ()
(T <TELL "Whatever do you have to be thankful for?" CR>)>>
<ROUTINE V-PHONE ()
<TELL "Perhaps it's time for you to rest...." CR>)
<TELL D ,PRSO " is here!" CR>)
(<NOT <EQUAL? ,HERE ,LIVING-ROOM ,LIBRARY ,MASTER-BEDROOM>>
<TELL "There's no phone here." CR>)
(T <TELL "There's no sense in phoning " D ,PRSO "." CR>)>>
<ROUTINE V-$VERIFY ()
<TELL "Verifying game..." CR>
<COND (<VERIFY> <TELL "Game correct." CR>)
(T <TELL CR "** Game File Failure **" CR>)>>