<GLOBAL VERBOSE <>>

<GLOBAL SUPER-BRIEF <>>

<GDECL (VERBOSE SUPER-BRIEF) <OR ATOM FALSE>>

<ROUTINE V-VERBOSE ()

<SETG VERBOSE T>

<SETG SUPER-BRIEF <>>

<TELL "Maximum verbosity." CR>>

<ROUTINE V-BRIEF ()

<SETG VERBOSE <>>

<SETG SUPER-BRIEF <>>

<TELL "Brief descriptions." CR>>

<ROUTINE V-SUPER-BRIEF ()

<SETG SUPER-BRIEF T>

<TELL "Super-brief descriptions." CR>>

\

<ROUTINE V-LOOK ()

<COND (<DESCRIBE-ROOM T>

<DESCRIBE-OBJECTS T>)>>

<ROUTINE V-FIRST-LOOK ()

<COND (<DESCRIBE-ROOM>

<COND (<NOT ,SUPER-BRIEF> <DESCRIBE-OBJECTS>)>)>>

<ROUTINE V-EXAMINE ()

<COND (<GETP ,PRSO ,P?TEXT>

<TELL <GETP ,PRSO ,P?TEXT> CR>)

(<OR <FSET? ,PRSO ,CONTBIT>

<FSET? ,PRSO ,DOORBIT>>

<V-LOOK-INSIDE>)

(ELSE

<TELL "I see nothing special about the "

D ,PRSO "." CR>)>>

<GLOBAL LIT <>>

<ROUTINE DESCRIBE-ROOM ("OPTIONAL" (LOOK? <>) "AUX" V? STR AV)

<SET V? <OR .LOOK? ,VERBOSE>>

<COND (<NOT ,LIT>

<TELL

"It is pitch black.">

<COND (<NOT ,SPRAYED?>

<TELL " You are likely to be eaten by a grue.">)>

<CRLF>

<COND (<==? ,HERE ,DARK-2>

<TELL

detect a dim light from the east." CR>)>

<RETURN <>>)>

<COND (<NOT <FSET? ,HERE ,TOUCHBIT>>

<FSET ,HERE ,TOUCHBIT>

<SET V? T>)>

<COND (<IN? ,HERE ,ROOMS> <TELL D ,HERE CR>)>

<COND (<OR .LOOK? <NOT ,SUPER-BRIEF>>

<SET AV <LOC ,WINNER>>

<COND (<FSET? .AV ,VEHBIT>

<TELL "(You are in the " D .AV ".)" CR>)>

<COND (<AND .V? <APPLY <GETP ,HERE ,P?ACTION> ,M-LOOK>>

<RTRUE>)

(<AND .V? <SET STR <GETP ,HERE ,P?LDESC>>>

<TELL .STR CR>)

(T <APPLY <GETP ,HERE ,P?ACTION> ,M-FLASH>)>

<COND (<AND <NOT <==? ,HERE .AV>> <FSET .AV ,VEHBIT>>

<APPLY <GETP .AV ,P?ACTION> ,M-LOOK>)>)>

T>

<ROUTINE DESCRIBE-OBJECTS ("OPTIONAL" (V? <>))

<COND (,LIT

<COND (<FIRST? ,HERE>

<PRINT-CONT ,HERE <SET V? <OR .V? ,VERBOSE>> -1>)>)

(ELSE

<TELL "I can't see anything in the dark." CR>)>>

<GLOBAL DESC-OBJECT <>>

<ROUTINE DESCRIBE-OBJECT (OBJ V? LEVEL "AUX" (STR <>) AV)

<SETG DESC-OBJECT .OBJ>

<COND (<AND <0? .LEVEL>

<APPLY <GETP .OBJ ,P?DESCFCN> ,M-OBJDESC>>

<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 (<FSET? .OBJ ,WEARBIT> <TELL " (being worn)">)>)>

<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>)>

<COND (<AND <SET AV <LOC ,WINNER>> <FSET? .AV ,VEHBIT>>

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>>

<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 ,ADVENTURER>)

(<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>)

(ELSE

<TELL "The " D .OBJ

" contains:" CR>)>)>>

\

<GLOBAL MOVES 0>

<GLOBAL SCORE 0>

<GLOBAL BASE-SCORE 0>

<GLOBAL WON-FLAG <>>

<GLOBAL SCORE-MAX 7>

<ROUTINE V-SCORE ("OPTIONAL" (ASK? T))

#DECL ((ASK?) <OR ATOM FALSE>)

<TELL "Your potential is " N ,SCORE>

<TELL " of a possible " N ,SCORE-MAX ", in ">

<TELL N ,MOVES>

<COND (<1? ,MOVES> <TELL " move.">) (ELSE <TELL " moves.">)>

<CRLF>

,SCORE>

<ROUTINE FINISH ()

<V-SCORE>

<QUIT>>

<ROUTINE V-QUIT ("OPTIONAL" (ASK? T) "AUX" SCOR)

#DECL ((ASK?) <OR ATOM <PRIMTYPE LIST>> (SCOR) FIX)

<V-SCORE>

<COND (<OR <AND .ASK?

<TELL

"Do you wish to leave the game? (Y is affirmative): ">

<YES?>>

<NOT .ASK?>>

<QUIT>)

(ELSE <TELL "Ok." CR>)>>

<ROUTINE YES? ()

<PRINTI ">">

<READ ,P-INBUF ,P-LEXV>

<COND (<EQUAL? <GET ,P-LEXV 1> ,W?YES ,W?Y>

<RTRUE>)

(T

<RFALSE>)>>

<ROUTINE V-VERSION ("AUX" (CNT 17))

<TELL

Release ">

<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 IN-HERE? (OBJ)

<OR <IN? .OBJ ,HERE>

<GLOBAL-IN? .OBJ ,HERE>>>

<ROUTINE V-AGAIN ("AUX" OBJ)

<COND (<==? ,L-PRSA ,V?WALK>

<PERFORM ,L-PRSA ,L-PRSO>)

(T

<SET OBJ

<COND (<AND ,L-PRSO <NOT <LOC ,L-PRSO>>>

,L-PRSO)

(<AND ,L-PRSI <NOT <LOC ,L-PRSO>>>

,L-PRSI)>>

<COND (.OBJ

<TELL "I can't see the " D .OBJ " anymore." CR>

<RFATAL>)

(T

<PERFORM ,L-PRSA ,L-PRSO ,L-PRSI>)>)>>

\

<GLOBAL DEAD <>>

<GLOBAL DEATHS 0>

<GLOBAL LUCKY 1>

<ROUTINE JIGS-UP (DESC "OPTIONAL" (PLAYER? <>))

#DECL ((DESC) STRING (PLAYER?) <OR ATOM FALSE>)

<SETG SWORD-STATE 0>

<SETG P-STRENGTH 5>

<SETG S-STRENGTH 5>

<TELL .DESC CR>

<COND (<NOT <==? ,YEAR ,YEAR-PRESENT>> <QUIT>)>

<COND (<NOT <==? ,ADVENTURER ,WINNER>>

<TELL "

| **** The " D ,WINNER " has died ****

|">

<REMOVE ,WINNER>

<SETG WINNER ,ADVENTURER>

<SETG HERE <LOC ,WINNER>>

<RFATAL>)>

<TELL "

|">

<COND (<G? <SETG DEATHS <+ ,DEATHS 1>> 3>

<TELL

the last you hear." CR>

<QUIT>)

(T

<TELL

moment, you are awakening, as if from a deep slumber." CR>)>

<MOVE ,CURRENT-LAMP ,ZORK2-STAIR>

<COND (<AND <IN? ,KEY ,WINNER>

<OR <EQUAL? ,HERE ,DARK-1 ,DARK-2 ,KEY-ROOM>

<EQUAL? ,HERE ,AQ-1 ,AQ-2>>>

<MOVE ,KEY ,KEY-ROOM>)>

<CRLF>

<GOTO ,ZORK2-STAIR>

<SETG P-CONT <>>

<RANDOMIZE-OBJECTS>

<KILL-INTERRUPTS>

<RFATAL>>

<ROUTINE RANDOMIZE-OBJECTS ("AUX" (R <>) F N L)

<SET N <FIRST? ,WINNER>>

<REPEAT ()

<SET F .N>

<COND (<NOT .F> <RETURN>)>

<SET N <NEXT? .F>>

<MOVE .F <PICK-ONE ,DEAD-OBJ-LOCS>>>>

<GLOBAL DEAD-OBJ-LOCS

<LTABLE JUNCTION CLEARING DAMP-PASSAGE CREEPY-CRAWL TIGHT-SQUEEZE

FOGGY-ROOM DEAD-END>>

<ROUTINE KILL-INTERRUPTS ()

<DISABLE <INT I-MAN-LEAVES>>

<DISABLE <INT I-MAN-RETURNS>>

<DISABLE <INT I-VIEW-SNAP>>

<DISABLE <INT I-FOLIN>>

<RTRUE>>

<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 ()

<V-SCORE T>

<TELL "Do you wish to restart? (Y is affirmative): ">

<COND (<YES?>

<TELL "Restarting." CR>

<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 V-LAUNCH ()

<COND (<FSET? ,PRSO ,VEHBIT>

<TELL "You can't launch that by saying \"launch\"!" CR>)

(T <TELL "How in blazes does one launch that?" CR>)>>

<ROUTINE GO-NEXT (TBL "AUX" VAL)

#DECL ((TBL) TABLE (VAL) ANY)

<COND (<SET VAL <LKP ,HERE .TBL>>

<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 (<NOT ,P-WALK-DIR>

<PERFORM ,V?WALK-TO ,PRSO>

<RTRUE>)

(<SET PT <GETPT ,HERE ,PRSO>>

<COND (<==? <SET PTS <PTSIZE .PT>> ,UEXIT>

<GOTO <GETB .PT ,REXIT>>)

(<==? .PTS ,NEXIT>

<TELL <GET .PT ,NEXITSTR> CR>

<RFATAL>)

(<==? .PTS ,FEXIT>

<COND (<SET RM <APPLY <GET .PT ,FEXITFCN>>>

<GOTO .RM>)

(<AND <==? ,HERE ,CP> ,CP-MOVED> <RTRUE>)

(T

<RFATAL>)>)

(<==? .PTS ,CEXIT>

<COND (<VALUE <GETB .PT ,CEXITFLAG>>

<GOTO <GETB .PT ,REXIT>>)

(<SET STR <GET .PT ,CEXITSTR>>

<TELL .STR CR>

<RFATAL>)

(T

<TELL "You can't go that way." CR>

<RFATAL>)>)

(<==? .PTS ,DEXIT>

<COND (<FSET? <SET OBJ <GETB .PT ,DEXITOBJ>> ,OPENBIT>

<GOTO <GETB .PT ,REXIT>>)

(<SET STR <GET .PT ,DEXITSTR>>

<TELL .STR CR>

<RFATAL>)

(T

<TELL "The " D .OBJ " is closed." CR>

<THIS-IS-IT .OBJ>

<RFATAL>)>)>)

(<AND <NOT ,LIT> <PROB 90>>

<COND (,SPRAYED?

<TELL

direction." CR>

<RFATAL>)

(<EQUAL? ,HERE ,DARK-1 ,DARK-2>

<JIGS-UP

"Oh, no! You have walked into a den of hungry grues and it's dinner time!">)

(T

<JIGS-UP

"Oh, no! You have walked into the slavering fangs of a lurking grue!">)>)

(T

<TELL "You can't go that way." CR>

<RFATAL>)>>

<ROUTINE THIS-IS-IT (OBJ)

<SETG P-IT-OBJECT .OBJ>

<SETG P-IT-LOC ,HERE>>

<ROUTINE V-INVENTORY ()

<COND (<FIRST? ,WINNER> <PRINT-CONT ,WINNER>)

(T <TELL "You are empty-handed." CR>)>>

<GLOBAL INDENTS

<TABLE ""

" "

" "

" "

" "

" ">>

\

<ROUTINE PRE-TAKE ()

<COND (<IN? ,PRSO ,WINNER>

<COND (<FSET? ,PRSO ,WEARBIT>

<TELL "You are already wearing it." CR>)

(T <TELL "You already have it." CR>)>)

(<AND <FSET? <LOC ,PRSO> ,CONTBIT>

<NOT <FSET? <LOC ,PRSO> ,OPENBIT>>>

<TELL "You can't reach that." CR>

<RTRUE>)

(,PRSI

<COND (<NOT <==? ,PRSI <LOC ,PRSO>>>

<TELL "The " D ,PRSO " isn't in the " D ,PRSI "." CR>)

(T

<SETG PRSI <>>

<RFALSE>)>)

(<==? ,PRSO <LOC ,WINNER>> <TELL "You are in it, loser!" CR>)>>

<ROUTINE V-TAKE ()

<COND (<==? <ITAKE> T>

<COND (<FSET? ,PRSO ,WEARBIT>

<TELL "You are now wearing the " D ,PRSO "." CR>)

(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 (<NOT <FSET? ,PRSO ,TAKEBIT>>

<COND (.VB

<TELL <PICK-ONE ,YUKS> CR>)>

<RFALSE>)

(<AND <NOT <IN? <LOC ,PRSO> ,WINNER>>

<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>>

<REPEAT ()

<SET OBJ <NEXT? .OBJ>>

<COND (<NOT <FSET? .OBJ ,WEARBIT>>

<RETURN>)>>

;"This must go! Chomping compiler strikes again"

<TELL "Oh, no. The " D .OBJ

" slips from your arms while taking the "

D ,PRSO "

and both tumble to the ground." CR>

<PERFORM ,V?DROP .OBJ>

<RFATAL>)

(T

<MOVE ,PRSO ,WINNER>

<FSET ,PRSO ,TOUCHBIT>

<RTRUE>)>>

<ROUTINE V-PUT-ON ()

<COND (<FSET? ,PRSI ,SURFACEBIT>

<V-PUT>)

(T <TELL "There's no good surface on the " D ,PRSI "." CR>)>>

<ROUTINE PRE-PUT ()

<COND (<==? ,PRSO ,SHORT-POLE> <RFALSE>)

(<OR <IN? ,PRSO ,GLOBAL-OBJECTS>

<NOT <FSET? ,PRSO ,TAKEBIT>>>

<TELL "Nice try." CR>)>>

<ROUTINE V-PUT ()

<COND (<OR <FSET? ,PRSI ,OPENBIT>

<OPENABLE? ,PRSI>

<FSET? ,PRSI ,VEHBIT>>)

(T

<TELL "I can't do that." CR>

<RTRUE>)>

<COND (<NOT <FSET? ,PRSI ,OPENBIT>>

<TELL "The " D ,PRSI " isn't open." CR>)

(<==? ,PRSI ,PRSO>

<TELL "How can you do that?" CR>)

(<IN? ,PRSO ,PRSI>

<TELL "The " D ,PRSO " is already in the " D ,PRSI "." CR>)

(<G? <- <+ <WEIGHT ,PRSI> <WEIGHT ,PRSO>>

<GETP ,PRSI ,P?SIZE>>

<GETP ,PRSI ,P?CAPACITY>>

<TELL "There's no room." CR>)

(<AND <NOT <HELD? ,PRSO>>

<NOT <ITAKE>>>

<RTRUE>)

(T

<MOVE ,PRSO ,PRSI>

<FSET ,PRSO ,TOUCHBIT>

<TELL "Done." CR>)>>

<ROUTINE PRE-DROP ()

<COND (<==? ,PRSO <LOC ,WINNER>>

<PERFORM ,V?DISEMBARK ,PRSO>

<RTRUE>)>>

<ROUTINE PRE-GIVE ()

<COND (<NOT <HELD? ,PRSO>>

<TELL

"That's easy for you to say since you don't even have it." CR>)>>

<ROUTINE PRE-SGIVE ()

<PERFORM ,V?GIVE ,PRSI ,PRSO>

<RTRUE>>

<ROUTINE HELD? (OBJ)

<COND (<IN? .OBJ ,WINNER> <RTRUE>)

(<IN? .OBJ ,ROOMS> <RFALSE>)

(<IN? .OBJ ,GLOBAL-OBJECTS> <RFALSE>)

(<EQUAL? .OBJ 0> <RFALSE>)

(T <HELD? <LOC .OBJ>>)>>

<ROUTINE V-GIVE ()

<COND (<NOT <FSET? ,PRSI ,VICBIT>>

<TELL "You can't give a " D ,PRSO " to a " D ,PRSI "!" CR>)

(T <TELL "The " D ,PRSI " refuses it politely." CR>)>>

<ROUTINE V-SGIVE ()

<TELL "Foo!" CR>>

<ROUTINE V-DROP () <COND (<IDROP> <TELL "Dropped." CR>)>>

<ROUTINE V-THROW () <COND (<IDROP> <TELL "Thrown." CR>)>>

<ROUTINE IDROP

()

<COND (<AND <NOT <IN? ,PRSO ,WINNER>> <NOT <IN? <LOC ,PRSO> ,WINNER>>>

<TELL "You're not carrying the " D ,PRSO "." CR>

<RFALSE>)

(<AND <NOT <IN? ,PRSO ,WINNER>>

<NOT <FSET? <LOC ,PRSO> ,OPENBIT>>>

<TELL "The " D ,PRSO " is closed." CR>

<RFALSE>)

(T

<MOVE ,PRSO <LOC ,WINNER>>

<RTRUE>)>>

\

<ROUTINE V-OPEN ("AUX" F STR)

<COND (<NOT <FSET? ,PRSO ,CONTBIT>>

<TELL "You must tell me how to do that to a " D ,PRSO "." CR>)

(<NOT <==? <GETP ,PRSO ,P?CAPACITY> 0>>

<COND (<FSET? ,PRSO ,OPENBIT> <TELL "It is already open." CR>)

(T

<FSET ,PRSO ,OPENBIT>

<COND (<OR <NOT <FIRST? ,PRSO>> <FSET? ,PRSO ,TRANSBIT>>

<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 ">

<PRINT-CONTENTS ,PRSO>

<TELL "." CR>)>)>)

(<FSET? ,PRSO ,DOORBIT>

<COND (<FSET? ,PRSO ,OPENBIT>

<TELL "It is already open." CR>)

(T

<TELL "The " D ,PRSO " opens." CR>

<FSET ,PRSO ,OPENBIT>)>)

(T <TELL "The " D ,PRSO " fails to open." 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 ()

<COND (<NOT <FSET? ,PRSO ,CONTBIT>>

<TELL "You must tell me how to do that to a " D ,PRSO "." CR>)

(<AND <NOT <FSET? ,PRSO ,SURFACEBIT>>

<NOT <==? <GETP ,PRSO ,P?CAPACITY> 0>>>

<COND (<FSET? ,PRSO ,OPENBIT>

<FCLEAR ,PRSO ,OPENBIT>

<TELL "Closed." CR>)

(T <TELL "It is already closed." CR>)>)

(<FSET? ,PRSO ,DOORBIT>

<COND (<FSET? ,PRSO ,OPENBIT>

<TELL "The " D ,PRSO " is now closed." CR>

<FCLEAR ,PRSO ,OPENBIT>)

(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 ()

<COND (<NOT <FSET? .X ,WEARBIT>>

<SET CNT <+ .CNT 1>>)>

<COND (<NOT <SET X <NEXT? .X>>>

<RETURN>)>>)>

.CNT>

<ROUTINE WEIGHT

(OBJ "AUX" CONT (WT 0))

#DECL ((OBJ) OBJECT (CONT) <OR FALSE OBJECT> (WT) FIX)

<COND (<SET CONT <FIRST? .OBJ>>

<REPEAT ()

<COND (<AND <==? .OBJ ,PLAYER> <FSET? .CONT ,WEARBIT>>

<SET WT <+ .WT 1>>)

(T <SET WT <+ .WT <WEIGHT .CONT>>>)>

<COND (<NOT <SET CONT <NEXT? .CONT>>> <RETURN>)>>)>

<+ .WT <GETP .OBJ ,P?SIZE>>>

<ROUTINE V-BUG ()

<TELL

your problem to the address provided in your documentation." CR>>

<GLOBAL COPR-NOTICE

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

()

<COND (<HELD? ,PRSO> <TELL "I don't juggle objects!" CR>)>>

<ROUTINE V-MOVE ()

<COND (<FSET? ,PRSO ,TAKEBIT>

<TELL "Moving the " D ,PRSO " reveals nothing." CR>)

(T <TELL "You can't move the " D ,PRSO "." CR>)>>

<ROUTINE V-LAMP-ON

()

<COND (<FSET? ,PRSO ,LIGHTBIT>

<COND (<FSET? ,PRSO ,ONBIT> <TELL "It is already on." CR>)

(ELSE

<FSET ,PRSO ,ONBIT>

<TELL "The " D ,PRSO " is now on." CR>

<COND (<NOT ,LIT>

<SETG LIT <LIT? ,HERE>>

<CRLF>

<V-LOOK>)>)>)

(T

<TELL "You can't turn that on." CR>)>

<RTRUE>>

<ROUTINE V-LAMP-OFF

()

<COND (<FSET? ,PRSO ,LIGHTBIT>

<COND (<NOT <FSET? ,PRSO ,ONBIT>>

<TELL "It is already off." CR>)

(ELSE

<FCLEAR ,PRSO ,ONBIT>

<COND (,LIT

<SETG LIT <LIT? ,HERE>>)>

<TELL "The " D ,PRSO " is now off." CR>

<COND (<NOT <SETG LIT <LIT? ,HERE>>>

<TELL "It is now pitch black." CR>)>)>)

(ELSE <TELL "You can't turn that off." CR>)>

<RTRUE>>

<ROUTINE V-$WAIT ()

<COND (<==? ,PRSO ,INTNUM> <V-WAIT <- ,P-NUMBER 1>>)

(T <TELL "No." CR>)>>

<ROUTINE V-WAIT ("OPTIONAL" (NUM 3))

#DECL ((NUM) FIX)

<TELL "Time passes..." CR>

<REPEAT ()

<COND (<L? <SET NUM <- .NUM 1>> 0> <RETURN>)

(<CLOCKER> <RETURN>)>

<SETG MOVES <+ ,MOVES 1>>>

<SETG CLOCK-WAIT T>>

<ROUTINE PRE-BOARD

("AUX" AV)

<SET AV <LOC ,WINNER>>

<COND (<==? ,PRSO ,WATER-CHANNEL> <RFALSE>)

(<FSET? ,PRSO ,VEHBIT>

<COND (<FSET? .AV ,VEHBIT>

<TELL "You are already in the " D .AV "!" CR>)

(T <RFALSE>)>)

(T

<TELL "I suppose you 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-DISEMBARK

()

<COND (<NOT <==? <LOC ,WINNER> ,PRSO>>

<TELL "You're not in that!" CR>

<RFATAL>)

(<FSET? ,HERE ,RLANDBIT>

<TELL "You are on your own feet again." CR>

<MOVE ,WINNER ,HERE>)

(T

<TELL

"You realize that getting out here would be fatal." CR>

<RFATAL>)>>

<ROUTINE V-BLAST ()

<TELL "You can't blast anything by using words." CR>>

<ROUTINE GOTO (RM "OPTIONAL" (V? T)

"AUX" (LB <FSET? .RM ,RLANDBIT>) (WLOC <LOC ,WINNER>)

(AV <>) OLIT)

#DECL ((RM WLOC) OBJECT (LB) <OR ATOM FALSE> (AV) <OR FALSE FIX>)

<SET OLIT ,LIT>

<COND (<FSET? .WLOC ,VEHBIT>

<SET AV <GETP .WLOC ,P?VTYPE>>)>

<COND (<OR <AND <NOT .LB> <OR <NOT .AV> <NOT <FSET? .RM .AV>>>>

<AND <FSET? ,HERE ,RLANDBIT>

.LB

.AV

<NOT <==? .AV ,RLANDBIT>>

<NOT <FSET? .RM .AV>>>>

<COND (.AV <TELL "You can't go there in a " D .WLOC ".">)

(T <TELL "You can't go there without a vehicle.">)>

<CRLF>

<RFALSE>)

(<FSET? .RM ,RMUNGBIT> <TELL <GETP .RM ,P?LDESC> CR> <RFALSE>)

(T

<COND (.AV <MOVE .WLOC .RM>)

(T

<MOVE ,WINNER .RM>)>

<SETG HERE .RM>

<SETG LIT <LIT? ,HERE>>

<COND (<AND <NOT .OLIT>

<NOT ,LIT>

<PROB 85>>

<COND (,SPRAYED?

<TELL

"There are sinister gurgling noises in the darkness all around you!" CR>)

(<EQUAL? ,HERE ,DARK-1 ,DARK-2>

<JIGS-UP

stumbled into an authentic grue lair!">)

(ELSE

<JIGS-UP

"Oh, no! A lurking grue slithered into the room and devoured you!">

<RTRUE>)>)>

<APPLY <GETP ,HERE ,P?ACTION> ,M-ENTER>

<COND (<NOT <==? ,HERE .RM>> <RTRUE>)

(<NOT <==? ,ADVENTURER ,WINNER>>

<TELL "The " D ,WINNER " leaves the room." CR>)

(.V? <V-FIRST-LOOK>)>

<RTRUE>)>>

<ROUTINE V-BACK

()

<TELL

"Sorry, my memory is poor. Please give a direction." CR>>

<ROUTINE PRE-POUR-ON ()

<TELL "You can't pour that on anything." CR>>

<ROUTINE V-POUR-ON () <TELL "Foo!" CR>>

<ROUTINE V-SPRAY () <V-SQUEEZE>>

<ROUTINE V-SSPRAY () <PERFORM ,V?SPRAY ,PRSI ,PRSO>>

<ROUTINE V-SQUEEZE

()

<COND (<FSET? ,PRSO ,VILLAIN>

<TELL "The " D ,PRSO " does not understand this.">)

(ELSE <TELL "How singularly useless.">)>

<CRLF>>

<ROUTINE PRE-OIL ()

<TELL "You probably put spinach in your gas tank, too." CR>>

<ROUTINE V-OIL () <TELL "That's not very useful." CR>>

<ROUTINE PRE-FILL

("AUX" T)

#DECL ((T) <OR FALSE TABLE>)

<COND (<AND <NOT ,PRSI> <SET T <GETPT ,HERE ,P?GLOBAL>>>

<COND (<ZMEMQB ,GLOBAL-WATER .T <PTSIZE .T>>

<SETG PRSI ,GLOBAL-WATER>

<RFALSE>)

(T

<TELL "There is nothing to fill it with." CR>

<RTRUE>)>)>

<COND (<NOT <EQUAL? ,PRSI ,GLOBAL-WATER>>

<PERFORM ,V?PUT ,PRSI ,PRSO>

<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 may know how to do that, but I don't." CR>)>>

<ROUTINE V-ADVENT () <TELL "A hollow voice says \"Fool.\"" CR>>

<ROUTINE V-DRINK ()

<V-EAT>>

<ROUTINE V-EAT ("AUX" (EAT? <>) (DRINK? <>) (NOBJ <>))

#DECL ((NOBJ) <OR OBJECT FALSE> (EAT? DRINK?) <OR ATOM FALSE>)

<COND (<AND <SET EAT? <FSET? ,PRSO ,FOODBIT>> <IN? ,PRSO ,WINNER>>

<COND (<VERB? DRINK> <TELL "How can I drink that?">)

(ELSE

<TELL "Thank you very much. It really hit the spot.">

<REMOVE ,PRSO>)>

<CRLF>)

(<SET DRINK? <FSET? ,PRSO ,DRINKBIT>>

<COND (<OR <IN? ,PRSO ,GLOBAL-OBJECTS>

<AND <SET NOBJ <LOC ,PRSO>>

<IN? .NOBJ ,WINNER>

<FSET? .NOBJ ,OPENBIT>>>

<TELL

probably)." CR>

<REMOVE ,PRSO>)

(T <TELL

"I'd like to, but it's in a closed container." CR>)>)

(<NOT <OR .EAT? .DRINK?>>

<TELL "I don't think that the "

D

,PRSO

" would agree with you." CR>)>>

<ROUTINE V-CURSES ()

<COND (,PRSO

<COND (<FSET? ,PRSO ,VILLAIN>

<TELL "Insults of this nature won't help you." CR>)

(T

<TELL "What a loony!" CR>)>)

(T

<TELL

"Such language in a high-class establishment like this!" CR>)>>

<ROUTINE V-LISTEN ()

<TELL "The " D ,PRSO " makes no sound." CR>>

<ROUTINE V-FOLLOW ()

<TELL "You're nuts!" CR>>

<ROUTINE V-STAY ()

<TELL "You will be lost without me!" CR>>

<ROUTINE V-PRAY ()

<TELL "If you pray enough, your prayers may be answered." CR>>

<ROUTINE V-LEAP

("AUX" T S)

#DECL ((T) <OR FALSE TABLE>)

<COND (,PRSO

<COND (<IN? ,PRSO ,HERE>

<COND (<FSET? ,PRSO ,VILLAIN>

<TELL "The "

D

,PRSO

" is too big to jump over." CR>)

(T <V-SKIP>)>)

(T <TELL "That would be a good trick." CR>)>)

(<SET T <GETPT ,HERE ,P?DOWN>>

<SET S <PTSIZE .T>>

<COND (<OR <==? .S 2> ;NEXIT

<AND <==? .S 4> ;CEXIT

<NOT <VALUE <GETB .T 1>>>>>

<TELL

"This was not a very safe place to try jumping." CR>

<JIGS-UP <PICK-ONE ,JUMPLOSS>>)

(T <V-SKIP>)>)

(ELSE <V-SKIP>)>>

<ROUTINE V-SKIP () <TELL <PICK-ONE ,WHEEEEE> CR>>

<ROUTINE V-LEAVE () <DO-WALK ,P?OUT>>

<GLOBAL HS 0>

<ROUTINE V-HELLO

()

<COND (,PRSO

<COND (<FSET? ,PRSO ,VILLAIN>

<TELL "The "

D

,PRSO

" bows his head to you in greeting." CR>)

(ELSE

<TELL

D

,PRSO

"." CR>)>)

(ELSE <TELL <PICK-ONE ,HELLOS> CR>)>>