historicalsource/minizork-1982
1
0
Fork 0
mirror of https://github.com/historicalsource/minizork-1982 synced 2024-04-27 06:29:35 +03:00
Code Issues Releases Wiki Activity
minizork-1982/actions.zil
historicalsource 65673bb434 Original Source
2019-04-13 19:48:51 -04:00

1657 lines
46 KiB
Plaintext
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

"MINI-ZORK"
"SUBTITLE ACT1"
"SUBTITLE THE WHITE HOUSE"
<ROUTINE WEST-HOUSE (RARG)
<COND (<==? .RARG ,M-LOOK>
<TELL
"You are standing in an open field west of a white house, with a boarded
front door." CR>
<COND (,WON-FLAG
<TELL
"A secret path leads southwest into the forest." CR>)>)>>
<ROUTINE EAST-HOUSE (RARG)
<COND (<==? .RARG ,M-LOOK>
<TELL
"You are behind the white house, where a path enters the forest to the east.
In one corner of the house there is a small window which is ">
<COND (<FSET? ,KITCHEN-WINDOW ,OPENBIT>
<TELL "open.">)
(ELSE <TELL "slightly ajar.">)>
<CRLF>)>>
<ROUTINE WINDOW-FUNCTION ()
<COND (<VERB? OPEN CLOSE>
<OPEN-CLOSE ,KITCHEN-WINDOW
"With great effort, you open the window far enough to allow entry."
"The window closes (more easily than it opened).">)
(<VERB? WALK THROUGH>
<COND (<==? ,HERE ,KITCHEN>
<PERFORM ,V?WALK ,P?EAST>)
(T
<PERFORM ,V?WALK ,P?WEST>)>
<RTRUE>)
(<VERB? LOOK-INSIDE>
<TELL "You can see ">
<COND (<==? ,HERE ,KITCHEN>
<TELL "a clear area leading towards a forest." CR>)
(T
<TELL "what appears to be a kitchen." CR>)>)>>
<ROUTINE OPEN-CLOSE (OBJ STROPN STRCLS)
#DECL ((OBJ) OBJECT (STROPN STRCLS) STRING)
<COND (<VERB? OPEN>
<COND (<FSET? .OBJ ,OPENBIT>
<DUMMY>)
(ELSE
<TELL .STROPN CR>
<FSET .OBJ ,OPENBIT>)>)
(<VERB? CLOSE>
<COND (<FSET? .OBJ ,OPENBIT>
<TELL .STRCLS CR>
<FCLEAR .OBJ ,OPENBIT>
T)
(ELSE <DUMMY>)>)>>
<ROUTINE KITCHEN-FCN (RARG)
<COND (<==? .RARG ,M-LOOK>
<TELL
"You are in the kitchen of the house, where a table has been used recently
to make food. A door leads to the west and, next to a small chimney,
a dark staircase leads up. To the east is a small window which is ">
<COND (<FSET? ,KITCHEN-WINDOW ,OPENBIT>
<TELL "open." CR>)
(ELSE
<TELL "slightly ajar." CR>)>)>>
<ROUTINE STONE-BARROW-FCN (RARG)
<COND (<AND <==? .RARG ,M-BEG>
<OR <VERB? ENTER>
<AND <VERB? WALK>
<==? ,PRSO ,P?WEST>>
<AND <VERB? THROUGH>
<==? ,PRSO ,BARROW>>>>
<TELL
"In the Barrow|
The great stone door shuts behind you as you enter. Ahead of you is an
enormous cavern, dimly lit, and beyond a path leads into a dark tunnel. You
hear a voice say: All who stand within this barrow have completed a great
and perilous adventure which has tested your wit and courage.">
<V-QUIT <>>)>>
<ROUTINE BARROW-FCN ()
<COND (<VERB? THROUGH>
<PERFORM ,V?WALK ,P?WEST>)>>
\
<GLOBAL RUG-MOVED <>>
<ROUTINE LIVING-ROOM-FCN (RARG "AUX" RUG? TC)
#DECL ((RUG?) <OR ATOM FALSE> (TC) OBJECT)
<COND (<==? .RARG ,M-LOOK>
<COND (,MAGIC-FLAG
<TELL
"You are in the living room. There is a door to the east. To the
west is an old wooden door, which has a cyclops-sized hole in it,">)
(T
<TELL
"You are in the living room. There is a door to the east, a rustic wooden
door to the west, which appears to be nailed shut, ">)>
<TELL "a trophy case, ">
<SET RUG? ,RUG-MOVED>
<COND (<AND .RUG? <FSET? ,TRAP-DOOR ,OPENBIT>>
<TELL
"and a rug lying beside an open trap-door.">)
(.RUG?
<TELL "and a closed trap-door at your feet.">)
(<FSET? ,TRAP-DOOR ,OPENBIT>
<TELL "and an open trap-door at your feet.">)
(ELSE
<TELL
"and a large oriental rug in the center of the room.">)>
<CRLF>
T)
(<==? .RARG ,M-END>
<COND (<OR <VERB? TAKE>
<AND <VERB? PUT>
<==? ,PRSI ,TROPHY-CASE>>>
<SETG SCORE <+ ,BASE-SCORE <OTVAL-FROB>>>
<SCORE-UPD 0>
<RFALSE>)>)>>
<ROUTINE OTVAL-FROB ("OPTIONAL" (O ,TROPHY-CASE) "AUX" F (SCORE 0))
#DECL ((VALUE) FIX)
<SET F <FIRST? .O>>
<REPEAT ()
<COND (<NOT .F> <RETURN .SCORE>)>
<SET SCORE <+ .SCORE <GETP .F ,P?TVALUE>>>
<COND (<FIRST? .F> <OTVAL-FROB .F>)>
<SET F <NEXT? .F>>>>
<ROUTINE TRAP-DOOR-FCN ()
<COND (<AND <VERB? OPEN CLOSE>
<==? ,HERE ,LIVING-ROOM>>
<OPEN-CLOSE ,PRSO
"The door reluctantly opens to reveal a rickety staircase
descending into darkness."
"The door closes.">)
(<==? ,HERE ,CELLAR>
<COND (<AND <VERB? OPEN UNLOCK>
<NOT <FSET? ,TRAP-DOOR ,OPENBIT>>>
<TELL
"The door is latched from above." CR>)
(<AND <VERB? CLOSE> <NOT <FSET? ,TRAP-DOOR ,OPENBIT>>>
<FCLEAR ,TRAP-DOOR ,TOUCHBIT>
<FCLEAR ,TRAP-DOOR ,OPENBIT>
<TELL "The door closes and latches." CR>)
(<VERB? OPEN CLOSE>
<DUMMY>)>)>>
<ROUTINE CELLAR-FCN (RARG)
<COND (<==? .RARG ,M-LOOK>
<TELL
"You are in a dark cellar with a passages leading north and east. To the
west is the bottom of a steep metal ramp." CR>)
(<==? .RARG ,M-ENTER>
<COND (<AND <FSET? ,TRAP-DOOR ,OPENBIT>
<NOT <FSET? ,TRAP-DOOR ,TOUCHBIT>>>
<FCLEAR ,TRAP-DOOR ,OPENBIT>
<FSET ,TRAP-DOOR ,TOUCHBIT>
<TELL
"The trap shuts and you hear someone latching it." CR>)>)>>
<ROUTINE CHIMNEY-FUNCTION ("AUX" F)
<COND (<NOT <SET F <FIRST? ,WINNER>>>
<TELL "Going up empty-handed is a bad idea." CR>
<RFALSE>)
(<AND <OR <NOT <SET F <NEXT? .F>>>
<NOT <NEXT? .F>>>
<IN? ,LAMP ,WINNER>>
<COND (<NOT <FSET? ,TRAP-DOOR ,OPENBIT>>
<FCLEAR ,TRAP-DOOR ,TOUCHBIT>)>
<RETURN ,KITCHEN>)
(T
<TELL "You and all of your baggage won't fit." CR>
<RFALSE>)>>
<ROUTINE TRAP-DOOR-EXIT ()
<COND (,RUG-MOVED
<COND (<FSET? ,TRAP-DOOR ,OPENBIT>
<RETURN ,CELLAR>)
(T
<TELL "The trap door is closed." CR>
<RFALSE>)>)
(T
<TELL "You can't go that way." CR>
<RFALSE>)>>
<ROUTINE RUG-FCN ()
<COND (<VERB? RAISE>
<COND (,RUG-MOVED
<TELL "The rug is too heavy." CR>)
(ELSE
<TELL
"The rug is too heavy, but in trying to take it you notice something
beneath it." CR>)>)
(<VERB? MOVE>
<COND (,RUG-MOVED
<DUMMY>)
(ELSE
<TELL
"With effort, the rug moves to reveal the dusty cover of a closed
trap-door." CR>
<FCLEAR ,TRAP-DOOR ,INVISIBLE>
<SETG RUG-MOVED T>)>)
(<VERB? TAKE>
<TELL
"The rug too heavy." CR>)
(<AND <VERB? LOOK-UNDER>
<NOT ,RUG-MOVED>
<NOT <FSET? ,TRAP-DOOR ,OPENBIT>>>
<TELL "Underneath the rug is a closed trap door." CR>)>>
\
"SUBTITLE TROLL"
<ROUTINE AXE-FUNCTION ()
<COND (,TROLL-FLAG <>)
(ELSE <WEAPON-FUNCTION ,AXE ,TROLL>)>>
<ROUTINE STILETTO-FUNCTION ()
<WEAPON-FUNCTION ,STILETTO ,THIEF>>
<ROUTINE WEAPON-FUNCTION (W V)
<COND (<NOT <IN? .V ,HERE>> <RFALSE>)
(<VERB? TAKE>
<COND (<IN? .W .V>
<TELL
"The " D .V " snatches it out of your reach." CR>)
(ELSE
<TELL
"The " D .W " seems white-hot. You can't hold on to it." CR>)>
T)>>
<ROUTINE TROLL-FCN ("OPTIONAL" (MODE <>))
<COND (<==? .MODE ,F-DEAD>
<MOVE ,AXE ,HERE>
<FCLEAR ,AXE ,NDESCBIT>
<FSET ,AXE ,WEAPONBIT>
<SETG TROLL-FLAG T>)
(<==? .MODE ,F-FIRST?>
<COND (<PROB 33> <FSET ,TROLL ,FIGHTBIT> T)>)
(<NOT .MODE>
<COND (<OR <AND <VERB? THROW GIVE>
<==? ,PRSI ,TROLL>>
<VERB? TAKE MOVE MUNG>>
<AWAKEN ,TROLL>
<COND (<VERB? THROW GIVE>
<TELL
"The troll grabs the " D ,PRSO " and eats it." CR>
<REMOVE ,PRSO>)
(<VERB? MUNG>
<TELL
"The troll laughs at your puny gesture." CR>)>)
(<VERB? LISTEN>
<TELL
"The troll growls at you." CR>)
(<AND ,TROLL-FLAG <VERB? HELLO>>
<TELL
"The troll growls at you." CR>)>)>>
\
"SUBTITLE GRATING/MAZE"
<GLOBAL LEAVES-GONE <>>
<GLOBAL GRATE-REVEALED <>>
<GLOBAL GRUNLOCK <>>
<ROUTINE LEAVES-APPEAR ()
<COND (<AND <NOT <FSET? ,GRATE ,OPENBIT>>
<NOT ,GRATE-REVEALED>>
<TELL "A grating appears on the ground." CR>
<FCLEAR ,GRATE ,INVISIBLE>
<SETG GRATE-REVEALED T>)>
<>>
<ROUTINE LEAF-PILE ()
<COND (<VERB? BURN>
<LEAVES-APPEAR>
<REMOVE ,PRSO>
<COND (<IN? ,PRSO ,HERE>
<TELL
"The leaves burn." CR>)
(T
<JIGS-UP
"The leaves burn, and so do you.">)>)
(<VERB? MOVE TAKE>
<COND (<VERB? MOVE> <TELL "Done." CR> <LEAVES-APPEAR> T)
(ELSE <LEAVES-APPEAR>)>)
(<AND <VERB? LOOK-UNDER>
<NOT ,GRATE-REVEALED>>
<TELL "Underneath the pile of leaves is a grating." CR>)>>
<ROUTINE HOUSE-FUNCTION ()
<COND (<EQUAL? ,HERE ,KITCHEN ,LIVING-ROOM ,ATTIC>
<COND (<VERB? FIND>
<TELL "Why not find your brains?" CR>)
(<VERB? WALK-AROUND>
<GO-NEXT ,IN-HOUSE-AROUND>
T)>)
(<NOT <OR <EQUAL? ,HERE ,EAST-OF-HOUSE ,WEST-OF-HOUSE>
<EQUAL? ,HERE ,NORTH-OF-HOUSE ,SOUTH-OF-HOUSE>>>
<COND (<VERB? FIND>
<COND (<==? ,HERE ,CLEARING>
<TELL "It seems to be to the west." CR>)
(ELSE
<TELL "It was here just a minute ago...." CR>)>)
(ELSE <TELL "You're not at the house." CR>)>)
(<VERB? FIND>
<TELL
"It's right in front of you. Are you blind or something?" CR>)
(<VERB? WALK-AROUND>
<GO-NEXT ,HOUSE-AROUND>
T)
(<VERB? EXAMINE>
<TELL
"The house is painted white and seems to have been abandoned." CR>)
(<VERB? THROUGH>
<COND (<==? ,HERE ,EAST-OF-HOUSE>
<COND (<FSET? ,KITCHEN-WINDOW ,OPENBIT>
<GOTO ,KITCHEN>)
(ELSE <TELL "The window is closed." CR>)>)
(ELSE <TELL "I can't see how to get in from here." CR>)>)
(<VERB? BURN>
<TELL "You must be joking." CR>)>>
<ROUTINE CLEARING-FCN (RARG)
<COND (<==? .RARG ,M-ENTER>
<COND (<NOT ,GRATE-REVEALED>
<FSET ,GRATE ,INVISIBLE>)>)
(<==? .RARG ,M-LOOK>
<TELL
"You are in a clearing within a forest. Paths lead south, east, and west.">
<COND (<FSET? ,GRATE ,OPENBIT>
<CRLF>
<TELL
"There is an open grating, descending into darkness.">)
(,GRATE-REVEALED
<CRLF>
<TELL
"There is a grating securely fastened into the ground.">)>
<CRLF>)>>
<ROUTINE MAZE-11-FCN (RARG)
<COND (<==? .RARG ,M-ENTER>
<FCLEAR ,GRATE ,INVISIBLE>)
(<==? .RARG ,M-LOOK>
<TELL
"You are in a small room near the maze." CR>
<COND (<FSET? ,GRATE ,OPENBIT>
<TELL
"Above you is an open grating with sunlight pouring in.">)
(,GRUNLOCK
<TELL "Above you is a grating.">)
(ELSE
<TELL
"Above you is a locked grating.">)>
<CRLF>)>>
<ROUTINE GRATE-FUNCTION ()
<COND (<AND <VERB? OPEN> <==? ,PRSI ,KEYS>>
<PERFORM ,V?UNLOCK ,GRATE ,KEYS>
<RTRUE>)
(<VERB? OPEN CLOSE>
<COND (,GRUNLOCK
<OPEN-CLOSE ,GRATE
<COND (<==? ,HERE ,CLEARING>
"The grating opens.")
(T
"The grating opens to reveal trees above you.")>
"The grating is closed.">
<COND (<FSET? ,GRATE ,OPENBIT>
<COND (<AND <NOT <==? ,HERE ,CLEARING>>
<NOT ,GRATE-REVEALED>>
<TELL
"A pile of leaves falls onto your head and to the ground." CR>
<MOVE ,LEAVES ,HERE>)>
<FSET ,GRATING-ROOM ,ONBIT>)
(ELSE <FCLEAR ,GRATING-ROOM ,ONBIT>)>)
(ELSE <TELL "The grating is locked." CR>)>)>>
\
<ROUTINE TORCH-OBJECT ()
<COND (<VERB? EXAMINE>
<TELL "The torch is burning." CR>)
(<AND <VERB? LAMP-OFF> <FSET? ,PRSO ,ONBIT>>
<TELL
"You almost burn your hand trying to extinguish the flame." CR>)>>
\
"SUBTITLE THE DOME"
<ROUTINE TEMPLE-ROOM-FCN (RARG)
<COND (<==? .RARG ,M-LOOK>
<TELL
"*****INSERT TEMPLE DESCRIPTION HERE*****." CR>
<COND (,DOME-FLAG
<TELL
"A piece of rope descends from the railing above, ending some
five feet above your head." CR>)>)>>
<ROUTINE DOME-ROOM-FCN (RARG)
<COND (<==? .RARG ,M-LOOK>
<TELL
"You are at a railing near the periphery of a large dome, which forms the
ceiling of another room below." CR>
<COND (,DOME-FLAG
<TELL
"Hanging from the railing is a rope which ends about ten feet from the floor
below." CR>)>)>>
<GLOBAL EGYPT-FLAG <>>
\
"SUBTITLE LAND OF THE DEAD"
<ROUTINE LLD-ROOM (RARG)
<COND (<==? .RARG ,M-LOOK>
<TELL
"You are outside a large open gateway, on which is inscribed|
\"Abandon every hope, all ye who enter here.\"|
Thousands of voices, lamenting some hideous fate, can be heard." CR>
<COND (<NOT ,LLD-FLAG>
<TELL
"The way through the gate is barred by evil spirits, who jeer at your
attempts to pass." CR>)>)
(<NOT .RARG>
<COND
(<AND <NOT ,LLD-FLAG> <VERB? RING> <==? ,PRSO ,BELL>>
<SETG XB T>
<TELL
"As the bell rings, the spirits stop their jeering and slowly turn to
face you, displaying a long-forgotten terror." CR>
<SETG XC T>
<ENABLE <QUEUE I-XC 3>>)
(<AND ,XC <VERB? READ> <==? ,PRSO ,BOOK> <NOT ,LLD-FLAG>>
<TELL
"The prayer reverberates through the hall. As the last word fades, a
heart-stopping scream fills the cavern, and the spirits flee your unearthly
power." CR>
<REMOVE ,GHOST>
<SETG LLD-FLAG T>
<DISABLE <INT I-XC>>)
(<VERB? EXORCISE>
<COND (<NOT ,LLD-FLAG>
<COND (<AND <IN? ,BELL ,WINNER>
<IN? ,BOOK ,WINNER>>
<TELL "You must perform the ceremony." CR>)
(ELSE
<TELL "You don't have the equipment." CR>)>)>)>)>>
<GLOBAL XB <>>
<GLOBAL XC <>>
<ROUTINE I-XB ()
<OR ,XC
<AND <==? ,HERE ,ENTRANCE-TO-HADES>
<TELL
"The tension of the ceremony is broken, and the spirits, resume their
hideous jeering." CR>>>
<SETG XB <>>>
<ROUTINE I-XC ()
<SETG XC <>>
<I-XB>>
<ROUTINE GHOST-FUNCTION ()
<COND (<VERB? EXORCISE>
<TELL "Only the ceremony itself has any effect." CR>)
(<==? ,PRSI ,GHOST>
<TELL "How can you attack a spirit with material objects?" CR>
<>)
(<==? ,PRSO ,GHOST>
<TELL "You seem unable to affect these spirits." CR>)>>
\
"SUBTITLE FLOOD CONTROL DAM #3"
<GLOBAL GATE-FLAG <>>
<ROUTINE DAM-ROOM-FCN (RARG)
<COND (<==? .RARG ,M-LOOK>
<TELL
"You are atop Flood Control Dam #3, which was once quite a tourist
attraction. There are paths to the north and west, and a scramble down." CR>
<COND (,LOW-TIDE
<TELL
"The gates are open and the water level behind the dam is low. Water
rushes through the dam and downstream." CR>)
(ELSE
<TELL
"The sluice gates on the dam are closed. Behind the dam is a wide
reservoir. Water is pouring over the abandoned dam." CR>)>
<TELL
"There is a control panel here. Protruding from the panel is a large
metal bolt." CR>
<COND (,GATE-FLAG
<TELL "The panel is emitting a low-level hum." CR>)>)>>
<ROUTINE BOLT-FUNCTION ()
<COND (<VERB? TURN>
<COND (<==? ,PRSI ,WRENCH>
<COND (,GATE-FLAG
<FCLEAR ,RESERVOIR-SOUTH ,TOUCHBIT>
<COND (,LOW-TIDE
<TELL
"Nothing happens." CR>
T)
(ELSE
<SETG LOW-TIDE T>
<TELL
"The sluice gates open and water pours through the dam." CR>
T)>)
(ELSE <TELL
"The bolt won't turn with your best effort." CR>)>)
(ELSE <TELL
"The bolt won't turn using the " D ,PRSI "." CR>)>)>>
<ROUTINE DBUTTONS ()
<COND (<VERB? PUSH>
<COND (<==? ,PRSO ,RED-BUTTON>
<TELL "The room lights ">
<COND (<FSET? ,HERE ,ONBIT>
<FCLEAR ,HERE ,ONBIT>
<TELL "shut off." CR>)
(ELSE
<FSET ,HERE ,ONBIT>
<TELL "come on." CR>)>)
(<==? ,PRSO ,BROWN-BUTTON>
<FCLEAR ,DAM-ROOM ,TOUCHBIT>
<SETG GATE-FLAG <>>
<TELL "Click." CR>)
(<==? ,PRSO ,YELLOW-BUTTON>
<FCLEAR ,DAM-ROOM ,TOUCHBIT>
<SETG GATE-FLAG T>
<TELL "Click." CR>)>)>>
<ROUTINE TOOL-CHEST-FCN ()
<COND (<VERB? EXAMINE>
<TELL "The chests are all empty." CR>)>>
<ROUTINE DAM-FUNCTION ()
<COND (<VERB? OPEN CLOSE>
<TELL "Sounds reasonable, but this isn't how." CR>)
(<VERB? PLUG>
<COND (<==? ,PRSI ,HANDS>
<TELL
"Are you the little Dutch boy, then?" CR>)
(ELSE
<TELL
"With a " D ,PRSI "? Do you know how big this dam is?" CR>)>)>>
<ROUTINE WITH-TELL (OBJ)
#DECL ((OBJ) OBJECT)
<TELL "With a " D .OBJ "?" CR>>
<ROUTINE RESERVOIR-SOUTH-FCN (RARG)
<COND (<==? .RARG ,M-LOOK>
<COND (,LOW-TIDE
<TELL
"You are in a long room south of a reservoir. However, with the water
level lowered, there is merely a muddy stream to the north.">)
(ELSE
<TELL
"You are in a long room on the south shore of a large lake, far
too deep and wide for crossing.">)>
<CRLF>
<TELL
"Rocky passages head toward the south and southwest. To the east, a
mighty structure can be seen." CR>)>>
<ROUTINE RESERVOIR-NORTH-FCN (RARG)
<COND (<==? .RARG ,M-LOOK>
<COND (,LOW-TIDE
<TELL
"You are in a cavernous room north of what was formerly a lake. However,
with the water level lowered, there is merely a muddy stream to the south.">)>
<CRLF>
<TELL
"There is a grimy stairway leaving the room to the north." CR>)>>
\
"SUBTITLE WATER, WATER EVERYWHERE..."
<ROUTINE BOTTLE-FUNCTION ("AUX" (E? <>))
<COND (<VERB? THROW>
<REMOVE ,PRSO>
<SET E? T>
<TELL "The bottle hits the far wall and shatters." CR>)
(<VERB? MUNG>
<SET E? T>
<REMOVE ,PRSO>
<TELL "A brilliant maneuver destroys the bottle." CR>)
(<VERB? SHAKE>
<COND (<FSET? ,PRSO ,OPENBIT> <SET E? T>)>)>
<COND (<AND .E? <IN? ,WATER ,PRSO>>
<TELL "The water spills to the floor and evaporates." CR>
<REMOVE ,WATER>
T)>>
<ROUTINE WATER-FUNCTION ("AUX" AV W PI?)
#DECL ((AV) <OR OBJECT FALSE> (W) OBJECT (PI?) <OR ATOM FALSE>)
<COND (<VERB? SGIVE> <RFALSE>)
(<VERB? THROUGH>
<TELL <PICK-ONE ,SWIMYUKS>>
<RTRUE>)
(<VERB? FILL> ;"fill bottle with water =>"
<SET W ,PRSI> ;"put water in bottle"
<SETG PRSA ,V?PUT>
<SETG PRSI ,PRSO>
<SETG PRSO .W>
<SET PI? <>>)
(<OR <==? ,PRSO ,GLOBAL-WATER>
<==? ,PRSO ,WATER>>
<SET W ,PRSO>
<SET PI? <>>)
(<SET W ,PRSI>
<SET PI? T>)>
<COND (<==? .W ,GLOBAL-WATER>
<SET W ,WATER>
<COND (<VERB? TAKE PUT> <REMOVE .W>)>)>
<COND (.PI? <SETG PRSI .W>)
(T <SETG PRSO .W>)>
<SET AV <LOC ,WINNER>>
<COND (<NOT <FSET? .AV ,VEHBIT>> <SET AV <>>)>
<COND (<AND <VERB? TAKE PUT> <NOT .PI?>>
<COND (<AND .AV
<OR <==? .AV ,PRSI>
<AND <NOT ,PRSI>
<NOT <IN? .W .AV>>>>>
<TELL "There is now a puddle in the bottom of the "
D .AV "." CR>
<REMOVE ,PRSO>
<MOVE ,PRSO .AV>)
(<AND ,PRSI <NOT <==? ,PRSI ,BOTTLE>>>
<TELL "The water leaks out of the " D ,PRSI
" and evaporates immediately." CR>
<REMOVE .W>)
(<IN? ,BOTTLE ,WINNER>
<COND (<NOT <FSET? ,BOTTLE ,OPENBIT>>
<TELL "The bottle is closed." CR>)
(<NOT <FIRST? ,BOTTLE>>
<MOVE ,WATER ,BOTTLE>
<TELL "The bottle is now full of water." CR>)
(T
<TELL "The water slips through your fingers." CR>
<RTRUE>)>)
(<AND <IN? ,PRSO ,BOTTLE>
<VERB? TAKE>
<NOT ,PRSI>>
<SETG PRSO ,BOTTLE>
<ITAKE>
<SETG PRSO .W>)
(T
<TELL "The water slips through your fingers." CR>)>)
(.PI? <TELL "Nice try." CR>)
(<VERB? DROP GIVE>
<REMOVE ,WATER>
<COND (.AV
<TELL "There is now a puddle in the bottom of the "
D .AV "." CR>
<MOVE ,WATER .AV>)
(T
<TELL
"The water spills to the floor and evaporates immediately." CR>
<REMOVE ,WATER>)>)
(<VERB? THROW>
<TELL
"The water splashes on the walls and evaporates immediately." CR>
<REMOVE ,WATER>)>>
\
"SUBTITLE CYCLOPS"
<GLOBAL CYCLOWRATH 0>
<ROUTINE CYCLOPS-FCN ("AUX" COUNT)
#DECL ((COUNT) FIX)
<SET COUNT ,CYCLOWRATH>
<COND (,CYCLOPS-FLAG
<COND (<VERB? ALARM KICK ATTACK BURN MUNG KILL>
<TELL
"The cyclops yawns and stares at the thing that woke him up." CR>
<SETG CYCLOPS-FLAG <>>
<FSET ,CYCLOPS ,FIGHTBIT>
<COND (<L? .COUNT 0>
<SETG CYCLOWRATH <- .COUNT>>)
(ELSE
<SETG CYCLOWRATH .COUNT>)>)>)
(<AND <VERB? GIVE> <==? ,PRSI ,CYCLOPS>>
<COND (<==? ,PRSO ,FOOD>
<COND (<NOT <L? .COUNT 0>>
<REMOVE ,FOOD>
<TELL
"The cyclops says 'Mmm Mmm. I love hot peppers! But oh, could I use
a drink--perhaps some blood.' From the gleam in his eye, it is clear whose
blood he means." CR>
<SETG CYCLOWRATH <MIN -1 <- .COUNT>>>)>
<ENABLE <QUEUE I-CYCLOPS -1>>)
(<==? ,PRSO ,WATER>
<COND (<L? .COUNT 0>
<REMOVE ,WATER>
<FCLEAR ,CYCLOPS ,FIGHTBIT>
<TELL
"The cyclops yawns and falls fast asleep (what did you put in that
drink, anyway?)." CR>
<SETG CYCLOPS-FLAG T>)
(ELSE
<TELL
"The cyclops is not thirsty and refuses your offer." CR>
<>)>)
(<==? ,PRSO ,GARLIC>
<TELL
"The cyclops may be hungry, but there is a limit." CR>)
(ELSE
<TELL
"The cyclops is not so stupid as to eat THAT!" CR>)>)
(<VERB? THROW ATTACK MUNG KILL>
<ENABLE <QUEUE I-CYCLOPS -1>>
<TELL
"The cyclops shrugs and ignores your pitiful effort." CR>
<COND (<VERB? THROW> <MOVE ,PRSO ,HERE>)>)
(<VERB? TAKE>
<TELL
"The cyclops doesn't take kindly to being grabbed." CR>)
(<VERB? TIE>
<TELL
"You cannot tie the cyclops, though he is fit to be tied." CR>)
(<VERB? LISTEN>
<TELL
"You can hear his stomach rumbling.">)>>
<ROUTINE I-CYCLOPS ()
<COND (,CYCLOPS-FLAG <RTRUE>)
(<NOT <==? ,HERE ,CYCLOPS-ROOM>>
<DISABLE <INT I-CYCLOPS>>)
(ELSE
<COND (<G? <ABS ,CYCLOWRATH> 5>
<DISABLE <INT I-CYCLOPS>>
<JIGS-UP
"The cyclops, tired of all of your games eats you.
The cyclops says 'Mmm. Just like Mom used to make 'em.'">)
(ELSE
<COND (<L? ,CYCLOWRATH 0>
<SETG CYCLOWRATH <- ,CYCLOWRATH 1>>)
(T
<SETG CYCLOWRATH <+ ,CYCLOWRATH 1>>)>
<COND (<NOT ,CYCLOPS-FLAG>
<TELL <NTH ,CYCLOMAD <- <ABS ,CYCLOWRATH> 1>>
CR>)>)>)>>
<ROUTINE CYCLOPS-ROOM-FCN (RARG)
<COND (<==? .RARG ,M-LOOK>
<TELL
"This room has an exit on the north, and a staircase leading up." CR>
<COND (<AND ,CYCLOPS-FLAG <NOT ,MAGIC-FLAG>>
<TELL
"The cyclops is sleeping blissfully at the foot of the stairs." CR>)
(,MAGIC-FLAG
<TELL
"The east wall, previously solid, now has a cyclops-sized hole in it." CR>)
(<0? ,CYCLOWRATH>
<TELL
"A hungry-looking cyclops blocks the staircase. From the bloodstains on the
walls you guess that he is not very friendly, though he likes people." CR>)
(<G? ,CYCLOWRATH 0>
<TELL
"The cyclops is standing in the corner, eyeing you closely. He looks
very hungry, even for a cyclops." CR>)
(<L? ,CYCLOWRATH 0>
<TELL
"The cyclops, having eaten the hot peppers, appears to be gasping.
His enflamed tongue protrudes from his man-sized mouth." CR>)>)
(<==? .RARG ,M-ENTER>
<OR <0? ,CYCLOWRATH> <ENABLE <INT I-CYCLOPS>>>)>>
<GLOBAL CYCLOMAD
<TABLE
"The cyclops seems agitated."
"The cyclops appears to be getting more agitated."
"The cyclops is looking for something."
"The cyclops was looking for salt and pepper. I think he is
preparing for a snack."
"The cyclops is moving toward you in an unfriendly manner."
"You have two choices: 1. Leave 2. Become dinner.">>
\
"SUBTITLE A SEEDY LOOKING GENTLEMAN..."
<GLOBAL THIEF-HERE <>>
;"I-THIEF moved to DEMONS"
\
"SUBTITLE THINGS THIEF MIGHT DO"
<ROUTINE THIEF-VS-ADVENTURER (HERE? "AUX" (OLD-LIT ,LIT) ROBBED?)
<COND (<==? ,HERE ,TREASURE-ROOM> <RTRUE>)
(<NOT .HERE?>
<COND (<PROB 30>
<FCLEAR ,THIEF ,INVISIBLE>
<TELL
"A thief carrying a large bag is leaning against a wall. He does not
speak, but it is clear that the bag will be taken over his dead body." CR>)>)
(<PROB 30>
<COND (<SET ROBBED?
<OR <ROB ,HERE ,THIEF 100>
<ROB ,WINNER ,THIEF>>>
<TELL
"The thief just left, after robbing you blind." CR>)
(ELSE
<TELL
"The thief, finding nothing of value, just left." CR>)>
<FSET ,THIEF ,INVISIBLE>
<RTRUE>)>
<RFALSE>>
<ROUTINE HACK-TREASURES ("AUX" X)
<FSET ,THIEF ,INVISIBLE>
<SET X <FIRST? ,TREASURE-ROOM>>
<REPEAT ()
<COND (<NOT .X> <RETURN>)
(ELSE <FCLEAR .X ,INVISIBLE>)>
<SET X <NEXT? .X>>>>
<ROUTINE DEPOSIT-BOOTY (RM "AUX" X N)
<SET X <FIRST? ,THIEF>>
<REPEAT ()
<COND (<NOT .X> <RETURN>)>
<SET N <NEXT? .X>>
<COND (<==? .X ,STILETTO>)
(<G? <GETP .X ,P?TVALUE> 0>
<MOVE .X .RM>)>
<SET X .N>>>
<ROUTINE ROB-MAZE (RM "AUX" X N)
<SET X <FIRST? .RM>>
<REPEAT ()
<COND (<NOT .X> <RETURN>)>
<SET N <NEXT? .X>>
<COND (<AND <FSET? .X ,TAKEBIT>
<NOT <FSET? .X ,INVISIBLE>>
<PROB 40>>
<TELL
"You hear, off in the distance, someone saying \"My, I wonder what
this fine " D .X " is doing here.\"" CR>
<COND (<PROB 60>
<MOVE .X ,THIEF>
<FSET .X ,TOUCHBIT>
<FSET .X ,INVISIBLE>)>
<RETURN>)>
<SET X .N>>>
\
"ROBBER-FUNCTION -- more prosaic thiefly occupations"
<GLOBAL THIEF-ENGROSSED <>>
<ROUTINE ROBBER-FUNCTION ("OPTIONAL" (MODE <>) "AUX" (FLG <>) X N)
#DECL ((DEM) HACK (FLG) <OR ATOM FALSE>)
<COND (<NOT .MODE>
<COND (<AND <==? ,PRSO ,KNIFE>
<VERB? THROW>>
<TELL
"You missed. The thief doesn't take the knife, though it would be
a fine addition to his collection." CR>
<FSET ,THIEF ,FIGHTBIT>)
(<AND <VERB? THROW GIVE>
<==? ,PRSI ,THIEF>>
<MOVE ,PRSO ,THIEF>
<COND (<G? <GETP ,PRSO ,P?TVALUE> 0>
<SETG THIEF-ENGROSSED T>
<TELL
"The thief, surprised by your generosity, accepts the "
D ,PRSO " and stops to admire its beauty." CR>)
(T
<TELL
"The thief places the " D ,PRSO " in his bag." CR>)>)
(<VERB? LISTEN>
<TELL
"The thief says nothing.">)>)
(<==? .MODE ,F-DEAD>
<DEPOSIT-BOOTY ,HERE>
<COND (<==? ,HERE ,TREASURE-ROOM>
<SET X <FIRST? ,HERE>>
<REPEAT ()
<COND
(<NOT .X>
<RETURN>)
(<NOT <EQUAL? .X ,CHALICE ,ADVENTURER>>
<FCLEAR .X ,INVISIBLE>
<COND (<NOT .FLG>
<SET FLG T>
<TELL
"As the thief dies, his magic wanes, and his treasures reappear." CR>)>)>
<SET X <NEXT? .X>>>)
(ELSE
<TELL "His booty remains." CR>)>
<DISABLE <INT I-THIEF>>)
(<==? .MODE ,F-FIRST?>
<COND (<AND ,THIEF-HERE <PROB 20>>
<FSET ,THIEF ,FIGHTBIT>
T)>)>>
<ROUTINE MOVE-ALL (FROM TO "AUX" X N)
<COND (<SET X <FIRST? .FROM>>
<REPEAT ()
<COND (<NOT .X> <RETURN>)>
<SET N <NEXT? .X>>
<FCLEAR .X ,INVISIBLE>
<MOVE .X .TO>
<SET X .N>>)>>
<ROUTINE CHALICE-FCN ()
<COND (<VERB? TAKE>
<COND (<AND <IN? ,PRSO ,TREASURE-ROOM>
<IN? ,THIEF ,TREASURE-ROOM>
<FSET? ,THIEF ,FIGHTBIT>
<NOT <FSET? ,THIEF ,INVISIBLE>>>
<TELL "You'd be stabbed in the back!" CR>)>)>>
<ROUTINE TREASURE-ROOM-FCN (RARG "AUX" (FLG <>) TL)
#DECL ((FLG) <OR ATOM FALSE>)
<COND (<AND <==? .RARG ,M-ENTER>
<1? <GET <INT I-THIEF> ,C-ENABLED?>>
<NOT ,DEAD>>
<COND (<SET FLG <NOT <IN? ,THIEF ,HERE>>>
<TELL
"You hear a scream of anguish as the thief rushes to defend his hideaway." CR>
<MOVE ,THIEF ,HERE>
<FSET ,THIEF ,FIGHTBIT>
<FCLEAR ,THIEF ,INVISIBLE>)
(T
<FSET ,THIEF ,FIGHTBIT>)>
<THIEF-IN-TREASURE>)>>
<ROUTINE THIEF-IN-TREASURE ("AUX" F N)
<SET F <FIRST? ,HERE>>
<COND (<AND .F <NEXT? .F>>
<TELL
"The thief gestures and all his treasures vanish." CR>)>
<REPEAT ()
<COND (<NOT .F> <RETURN>)
(<AND <NOT <==? .F ,CHALICE>>
<NOT <==? .F ,THIEF>>>
<FSET .F ,INVISIBLE>)>
<SET F <NEXT? .F>>>>
<ROUTINE DUMMY () <TELL "Look around." CR>>
<ROUTINE FRONT-DOOR-FCN ()
<COND (<VERB? OPEN>
<TELL
"The door cannot be opened." CR>)
(<VERB? BURN>
<TELL
"You cannot burn this door." CR>)
(<VERB? MUNG>
<TELL "You cannot damage this door." CR>)
(<VERB? LOOK-BEHIND>
<TELL "It won't open." CR>)>>
\
"SUBTITLE RANDOM FUNCTIONS"
<ROUTINE BLACK-BOOK ()
<COND (<VERB? OPEN>
<TELL "The book is already open." CR>)
(<VERB? CLOSE>
<TELL "Oddly, you cannot." CR>)
(<VERB? BURN>
<TELL "Sacrelige!" CR>)>>
<ROUTINE PAINTING-FCN ()
<COND (<VERB? MUNG>
<PUTP ,PRSO ,P?TVALUE 0>
<PUTP ,PRSO ,P?LDESC
"There is a worthless canvas here.">
<TELL
"Great! You have ruined the painting." CR>)>>
\
"SUBTITLE LET THERE BE LIGHT SOURCES"
<GLOBAL LAMP-TABLE
<TABLE 100
"The lamp appears a bit dimmer."
70
"The lamp is definitely dimmer now."
15
"The lamp is nearly out."
0>>
<ROUTINE LANTERN ()
<COND (<VERB? LAMP-ON>
<COND (<NOT <FSET? ,LAMP ,LIGHTBIT>>
<TELL "A burned-out lamp won't light." CR>)
(ELSE
<ENABLE <INT I-LANTERN>>
<>)>)
(<VERB? LAMP-OFF>
<COND (<NOT <FSET? ,LAMP ,LIGHTBIT>>
<TELL "The lamp has already burned out." CR>)
(ELSE
<DISABLE <INT I-LANTERN>>
<>)>)
(<VERB? EXAMINE>
<COND (<NOT <FSET? ,LAMP ,LIGHTBIT>>
<TELL "The lamp has burned out.">)
(<FSET? ,LAMP ,ONBIT>
<TELL "The lamp is on.">)
(ELSE
<TELL "The lamp is turned off.">)>
<CRLF>)>>
<ROUTINE MIN (N1 N2)
#DECL ((N1 N2) FIX)
<COND (<L? .N1 .N2> .N1)
(T .N2)>>
<ROUTINE LIGHT-INT (OBJ INTNAM TBLNAM "AUX" (TBL <VALUE .TBLNAM>) TICK)
#DECL ((OBJ) OBJECT (TBLNAM INTNAM) ATOM (TBL) <PRIMTYPE VECTOR>
(TICK) FIX)
<ENABLE <QUEUE .INTNAM <SET TICK <GET .TBL 0>>>>
<COND (<0? .TICK>
<FCLEAR .OBJ ,LIGHTBIT>
<FCLEAR .OBJ ,ONBIT>)>
<COND (<OR <HELD? .OBJ> <IN? .OBJ ,HERE>>
<COND (<0? .TICK>
<TELL "The " D .OBJ " is out." CR>)
(T
<TELL <GET .TBL 1> CR>)>)>
<COND (<NOT <0? .TICK>>
<SETG .TBLNAM <REST .TBL 4>>)>>
\
"SUBTITLE ASSORTED WEAPONS"
<ROUTINE SWORD-FCN ()
<COND (<AND <VERB? TAKE> <==? ,WINNER ,ADVENTURER>>
<ENABLE <QUEUE I-SWORD -1>>
<>)>>
"SUBTITLE COAL MINE"
<ROUTINE BOOM-ROOM (RARG "AUX" (DUMMY? <>) FLAME)
<COND (<NOT .RARG>
<COND (<IN? ,TORCH ,WINNER>
<TELL " ** BOOOOOOM **" CR>
<JIGS-UP
"Oh dear. It seems that the smell coming from this room was coal
gas. I would have thought twice about carrying the torch in here.">)>)>>
<ROUTINE BATS-ROOM (RARG)
<COND (<==? .RARG ,M-LOOK>
<TELL
"You are in a small room which has doors only to the east and south." CR>
<COND (<EQUAL? <LOC ,GARLIC> ,WINNER ,HERE>
<TELL
"In the corner of the room on the ceiling is a large vampire bat who
is holding his nose." CR>)>)
(<==? .RARG ,M-ENTER>
<COND (<NOT <EQUAL? <LOC ,GARLIC> ,WINNER ,HERE>>
<FLY-ME>)>)>>
<ROUTINE BAT-FUNCTION ()
<COND (<VERB? TAKE ATTACK KILL MUNG>
<FLY-ME>)>>
<ROUTINE FLY-ME ("AUX" (N 4))
<REPEAT ()
<COND (<L? <SET N <- .N 1>> 1> <RETURN>)
(ELSE <TELL " Fweep!" CR>)>>
<TELL
"A giant vampire bat swoops down from his perch and lifts you away...." CR>
<GOTO <PICK-ONE ,BAT-DROPS>>
T>
<GLOBAL BAT-DROPS
<LTABLE MINE-1
MINE-2
MINE-3
GAS-ROOM
SQUEEKY-ROOM
MINE-ENTRANCE>>
<GLOBAL CAGE-TOP T>
<ROUTINE DUMBWAITER ()
<COND (<VERB? RAISE>
<COND (,CAGE-TOP
<DUMMY>)
(ELSE
<MOVE ,RAISED-BASKET ,SHAFT-ROOM>
<MOVE ,LOWERED-BASKET ,LOWER-SHAFT>
<TELL "The basket is now at the top of the shaft." CR>
<SETG CAGE-TOP T>)>)
(<VERB? LOWER>
<COND (<NOT ,CAGE-TOP>
<DUMMY>)
(ELSE
<MOVE ,RAISED-BASKET ,LOWER-SHAFT>
<MOVE ,LOWERED-BASKET ,SHAFT-ROOM>
<TELL
"The basket is lowered to the bottom of the shaft." CR>
<SETG CAGE-TOP <>>
<COND (<AND ,LIT <NOT <SETG LIT <LIT? ,HERE>>>>
<TELL "It is now pitch black." CR>)>
T)>)
(<EQUAL? ,LOWERED-BASKET ,PRSO ,PRSI>
<TELL "The basket is at the other end of the chain." CR>)
(<AND <VERB? TAKE>
<EQUAL? ,PRSO ,RAISED-BASKET ,LOWERED-BASKET>>
<TELL "The cage is securely fastened to the chain." CR>)>>
<ROUTINE MACHINE-ROOM-FCN (RARG)
<COND (<==? .RARG ,M-LOOK>
<TELL
"In one corner of this chilly room is a machine shaped somewhat like a
clothes dryer, with a grooved switch labelled START. The switch is so
small that your fingers can not turn it. On top of the machine is a
large lid, which is ">
<COND (<FSET? ,MACHINE ,OPENBIT>
<TELL "open.">)
(ELSE <TELL "closed.">)>
<CRLF>)>>
<ROUTINE MACHINE-FUNCTION ()
<COND
(<==? ,HERE ,MACHINE-ROOM>
<COND
(<VERB? OPEN>
<COND (<FSET? ,MACHINE ,OPENBIT>
<DUMMY>)
(<FIRST? ,MACHINE>
<TELL "The lid opens, revealing ">
<PRINT-CONTENTS ,MACHINE>
<TELL "." CR>
<FSET ,MACHINE ,OPENBIT>)
(ELSE
<TELL "The lid opens." CR>
<FSET ,MACHINE ,OPENBIT>)>)
(<VERB? CLOSE>
<COND (<FSET? ,MACHINE ,OPENBIT>
<TELL "The lid closes." CR>
<FCLEAR ,MACHINE ,OPENBIT>
T)
(ELSE <DUMMY>)>)>)>>
<ROUTINE MSWITCH-FUNCTION ("AUX" O)
<COND (<VERB? TURN>
<COND (<==? ,PRSI ,SCREWDRIVER>
<COND (<FSET? ,MACHINE ,OPENBIT>
<TELL
"The machine won't work with the lid open." CR>)
(ELSE <TELL
"The machine emits a brief display of dazzling lights and bizarre noises." CR>
<COND (<IN? ,COAL ,MACHINE>
<REMOVE ,COAL>
<MOVE ,DIAMOND ,MACHINE>)
(ELSE
<REPEAT ()
<COND (<SET O <FIRST? ,MACHINE>>
<REMOVE .O>)
(ELSE <RETURN>)>>
<MOVE ,GUNK ,MACHINE>)>)>)
(ELSE
<TELL "It seems that a " D ,PRSO " won't do." CR>)>)>>
<ROUTINE GUNK-FUNCTION ()
<REMOVE ,GUNK>
<TELL
"The slag crumbles into dust at your touch." CR>>
<ROUTINE NO-OBJS (RARG "AUX" F)
<COND (<==? .RARG ,M-BEG>
<SET F <FIRST? ,WINNER>>
<SETG EMPTY-HANDED T>
<REPEAT ()
<COND (<NOT .F> <RETURN>)
(<G? <WEIGHT .F> 4>
<SETG EMPTY-HANDED <>>
<RETURN>)>
<SET F <NEXT? .F>>>
<COND (<AND <==? ,HERE ,LOWER-SHAFT> ,LIT>
<SCORE-UPD ,LIGHT-SHAFT>
<SETG LIGHT-SHAFT 0>)>
<RFALSE>)>>
<ROUTINE SOUTH-TEMPLE-FCN (RARG)
<COND (<==? .RARG ,M-BEG>
<SETG COFFIN-CURE <NOT <IN? ,COFFIN ,WINNER>>>
<RFALSE>)>>
<GLOBAL LIGHT-SHAFT 13>
\
"SUBTITLE OLD MAN RIVER, THAT OLD MAN RIVER..."
<ROUTINE WHITE-CLIFFS-FUNCTION (RARG)
<COND (<NOT .RARG>
<COND (<IN? ,INFLATED-BOAT ,WINNER>
<SETG DEFLATE <>>)
(ELSE <SETG DEFLATE T>)>)>>
<ROUTINE SCEPTRE-FUNCTION ()
<COND (<VERB? WAVE RAISE>
<COND (<AND <NOT ,RAINBOW-FLAG>
<EQUAL? ,HERE ,ARAGAIN-FALLS ,END-OF-RAINBOW>>
<FCLEAR ,POT-OF-GOLD ,INVISIBLE>
<TELL
"Suddenly, the rainbow appears to become solid." CR>
<SETG RAINBOW-FLAG T>)
(ELSE
<TELL
"A dazzling display of color briefly emanates from the sceptre." CR>)>)>>
<ROUTINE FALLS-ROOM (RARG)
<COND (<==? .RARG ,M-LOOK>
<TELL
"You are near the top of Aragain Falls, an enormous waterfall. The only path
here is on the north end." CR>
<COND (,RAINBOW-FLAG
<TELL
"A solid rainbow spans the falls.">)
(ELSE
<TELL
"A beautiful rainbow can be seen over the falls to the west.">)>
<CRLF>)>>
<ROUTINE RAINBOW-FCN ()
<COND (<VERB? CROSS>
<COND (,RAINBOW-FLAG
<COND (<==? ,HERE ,ARAGAIN-FALLS>
<GOTO ,END-OF-RAINBOW>)
(<==? ,HERE ,END-OF-RAINBOW>
<GOTO ,ARAGAIN-FALLS>)
(T
<TELL "You'll have to say which way..." CR>)>)
(T
<TELL "I didn't know you could walk on water vapor."
CR>)>)>>
<GLOBAL YUKS
<LTABLE
"A valiant attempt."
"You can't be serious."
;"Not bloody likely."
"An interesting idea..."
"What a concept!">>
<ROUTINE RIVER-FUNCTION ()
<COND (<VERB? PUT>
<COND (<==? ,PRSI ,RIVER>
<COND (<==? ,PRSO ,ME>
<JIGS-UP
"You fight the current for a while, and finally drown.">)
(<==? ,PRSO ,INFLATED-BOAT>
<TELL
"You should get in the boat then launch it." CR>)
(<FSET? ,PRSO ,BURNBIT>
<REMOVE ,PRSO>
<TELL
"The " D ,PRSO " floats for a moment, then sinks." CR>)
(ELSE
<REMOVE ,PRSO>
<TELL
"The " D ,PRSO " splashes into the water and is gone forever." CR>)>)>)
(<VERB? LEAP>
<TELL
"A look before leaping reveals that the river is dangerous,with
swift currents and sharp rocks. You therefore decide to
forgo your ill-considered swim." CR>)>>
<GLOBAL RIVER-SPEEDS
<LTABLE RIVER-1 4 RIVER-2 3 RIVER-3 2>>
<GLOBAL RIVER-NEXT
<LTABLE RIVER-1 RIVER-2 RIVER-3>>
<GLOBAL RIVER-LAUNCH
<LTABLE DAM-BASE RIVER-1
WHITE-CLIFFS RIVER-2
SANDY-BEACH RIVER-3>>
<ROUTINE I-RIVER ("AUX" RM)
#DECL ((RM) <OR FALSE OBJECT>)
<COND (<NOT <EQUAL? ,HERE ,RIVER-1 ,RIVER-2 ,RIVER-3>>
<DISABLE <INT I-RIVER>>)
(<SET RM <LKP ,HERE ,RIVER-NEXT>>
<TELL "The flow of the river carries you downstream." CR>
<GOTO .RM>
<ENABLE <QUEUE I-RIVER <LKP ,HERE ,RIVER-SPEEDS>>>)
(T
<JIGS-UP
"Unfortunately, a rubber raft doesn't provide much protection from the rocks
and boulders at the bottom of many waterfalls. Including this one.">)>>
<ROUTINE RBOAT-FUNCTION ("OPTIONAL" (RARG <>))
#DECL ((RARG) <OR FALSE FIX>)
<COND (<==? .RARG ,M-ENTER> <>)
(<==? .RARG ,M-BEG>
<COND (<VERB? WALK>
<COND (<EQUAL? ,PRSO ,P?LAND ,P?EAST ,P?WEST>
<RFALSE>)
(T
<TELL "You can't control the boat with words." CR>
<RTRUE>)>)
(<VERB? LAUNCH>
<COND (<GO-NEXT ,RIVER-LAUNCH>
<ENABLE <QUEUE I-RIVER <LKP ,HERE ,RIVER-SPEEDS>>>
<RTRUE>)
(T
<TELL "You can't launch it from here." CR>)>)>)
(<VERB? LAUNCH>
<TELL "You're not in the boat!" CR>)
(<VERB? INFLATE FILL>
<TELL "Inflating it further would probably burst it." CR>)
(<VERB? DEFLATE>
<COND (<==? <LOC ,WINNER> ,INFLATED-BOAT>
<TELL
"You can't deflate the boat while you're in it." CR>)
(<NOT <IN? ,INFLATED-BOAT ,HERE>>
<TELL
"The boat must be on the ground to be deflated." CR>)
(ELSE <TELL
"The boat deflates." CR>
<SETG DEFLATE T>
<REMOVE ,INFLATED-BOAT>
<MOVE ,INFLATABLE-BOAT ,HERE>)>)>>
<ROUTINE BREATHE ()
<PERFORM ,V?INFLATE ,PRSO ,LUNGS>>
<ROUTINE IBOAT-FUNCTION ()
<COND (<VERB? INFLATE FILL>
<COND (<NOT <IN? ,INFLATABLE-BOAT ,HERE>>
<TELL
"The boat must be on the ground to be inflated." CR>)
(<==? ,PRSI ,PUMP>
<TELL
"The boat inflates and appears seaworthy." CR>
<COND (<NOT <FSET? ,BOAT-LABEL ,TOUCHBIT>>
<TELL
"A tan label is lying inside the boat." CR>)>
<SETG DEFLATE <>>
<REMOVE ,INFLATABLE-BOAT>
<MOVE ,INFLATED-BOAT ,HERE>)
(<==? ,PRSI ,LUNGS>
<TELL
"You don't have enough lung power to inflate it." CR>)
(ELSE
<TELL
"With a " D ,PRSI "? Surely you jest!" CR>)>)>>
<GLOBAL BEACH-DIG -1>
<GDECL (BEACH-DIG) FIX>
<ROUTINE GROUND-FUNCTION ()
<COND (<AND <VERB? PUT> <==? ,PRSI ,GROUND>>
<PERFORM ,V?DROP ,PRSO>)
(<==? ,HERE ,SANDY-CAVE>
<SAND-FUNCTION>)
(<VERB? DIG>
<TELL "The ground is too hard for digging here." CR>)>>
<ROUTINE SAND-FUNCTION ()
<COND (<VERB? DIG>
<SETG BEACH-DIG <+ 1 ,BEACH-DIG>>
<COND (<G? ,BEACH-DIG 3>
<SETG BEACH-DIG -1>
<AND <IN? ,SCARAB ,HERE> <FSET ,SCARAB ,INVISIBLE>>
<JIGS-UP "The hole collapses, smothering you.">)
(<==? ,BEACH-DIG 3>
<COND (<FSET? ,SCARAB ,INVISIBLE>
<TELL
"You can see a scarab here in the sand." CR>
<FCLEAR ,SCARAB ,INVISIBLE>)>)
(T
<TELL <GET ,BDIGS ,BEACH-DIG> CR>)>)>>
<GLOBAL BDIGS
<TABLE "You seem to be digging a hole here."
"The hole is getting deeper, but that's about it."
"You are surrounded by a wall of sand on all sides.">>
\
"SUBTITLE LURKING GRUES"
<ROUTINE GRUE-FUNCTION ()
<COND (<VERB? EXAMINE>
<TELL
"The grue is a fearsome beast who inhabits the dark places of the
earth. Its favorite diet is adventurers, but its huge
appetite is tempered by its fear of light." CR>)
(<VERB? FIND>
<TELL
"There is no grue here, but I'm sure there is at least one lurking
in the darkness nearby. I wouldn't let my light go out if I were
you!" CR>)
(<VERB? LISTEN>
<TELL
"It makes no sound but is always lurking in the darkness nearby." CR>)>>
\
<ROUTINE CRETIN ()
<COND (<AND <VERB? GIVE> <==? ,PRSI ,ME>>
<PERFORM ,V?TAKE ,PRSO>)
(<AND <VERB? GIVE> <==? ,PRSO ,ME> ,PRSI <FSET? ,PRSI ,VILLAIN>>
<TELL "That would be suicidal." CR>)
(<VERB? ATTACK KILL MUNG>
<COND (<AND ,PRSI <FSET? ,PRSI ,WEAPONBIT>>
<JIGS-UP
"If you insist.... Poof, you're dead!">)
(T <TELL "Suicide is not the answer." CR>)>)
(<VERB? TAKE>
<TELL "How romantic!" CR>)
(<VERB? EXAMINE>
<TELL
"That's difficult unless your eyes are prehensile." CR>)>>
\
<ROUTINE HELD? (CAN)
#DECL ((CAN) OBJECT)
<REPEAT ()
<SET CAN <LOC .CAN>>
<COND (<NOT .CAN> <RFALSE>)
(<==? .CAN ,WINNER> <RTRUE>)>>>
\
"SUBTITLE TOITY POIPLE BOIDS A CHOIPIN' AN' A BOIPIN' ... "
<ROUTINE TREE-ROOM (RARG "AUX" F)
<COND (<==? .RARG ,M-LOOK>
<TELL
"You are about 10 feet above the ground nestled among some large
branches. The nearest branch above you is above your reach.
A bird's nest is tangled around a branch here." CR>)
(<==? .RARG ,M-BEG>
<COND (<VERB? DROP>
<COND (<NOT <IDROP>> <RTRUE>)
(<==? ,PRSO ,EGG>
<TELL
"The egg falls to the ground and cracks open." CR>
<MOVE ,EGG ,PATH>
<OPEN-EGG>)
(<NOT <EQUAL? ,PRSO ,WINNER ,TOP-OF-TREE>>
<MOVE ,PRSO ,PATH>
<TELL
"The " D ,PRSO " falls to the ground." CR>)>)>)
(<==? .RARG ,M-ENTER> <ENABLE <QUEUE I-FOREST-ROOM -1>>)>>
<ROUTINE EGG-OBJECT ()
<COND (<AND <VERB? OPEN MUNG> <==? ,PRSO ,EGG>>
<COND (<FSET? ,PRSO ,OPENBIT>
<TELL "The egg is already open." CR>)
(T
<TELL
"The egg is now open, but the clumsiness of your attempt has seriously
compromised its esthetic appeal." CR>
<OPEN-EGG>)>)
(<VERB? CLIMB-ON>
<TELL
"There is a delicate crunch from beneath you.">
<OPEN-EGG>)>>
<ROUTINE OPEN-EGG ("AUX" L)
<TELL
"Nestled inside the now broken egg is a golden clockwork canary." CR>
<MOVE ,BROKEN-EGG <LOC ,EGG>>
<MOVE ,CANARY ,BROKEN-EGG>
<REMOVE ,EGG>>
<GLOBAL SING-SONG <>>
<ROUTINE CANARY-OBJECT ()
<COND (<VERB? WIND>
<COND (<AND <NOT ,SING-SONG> <FOREST-ROOM?>>
<TELL
"The canary chirps a beautiful song and as it does a lovely songbird
arrives and perches above your head. As it opens its beak to sing,
a brass bauble drops from its mouth, bounces off your head, and lands
in the grass. When the song ends, the bird flies away." CR>
<SETG SING-SONG T>
<MOVE ,BAUBLE
<COND (<==? ,HERE ,UP-A-TREE> ,PATH)
(ELSE ,HERE)>>)
(T
<TELL
"The canary chirps blithely for a short time." CR>)>)>>
<ROUTINE FOREST-ROOM? ()
<OR <EQUAL? ,HERE ,FOREST-EDGE>
<EQUAL? ,HERE ,PATH ,UP-A-TREE>>>
<ROUTINE I-FOREST-ROOM ()
<COND (<NOT <FOREST-ROOM?>>
<DISABLE <INT I-FOREST-ROOM>>)
(<PROB 15>
<TELL
"You hear in the distance the chirping of a song bird." CR>)>>
<ROUTINE FOREST-ROOM (RARG)
<COND (<==? .RARG ,M-ENTER> <ENABLE <QUEUE I-FOREST-ROOM -1>>)>>
<ROUTINE FOREST-FUNCTION ()
<COND (<VERB? WALK-AROUND>
<GO-NEXT ,FOREST-AROUND>)>>
<ROUTINE BIRD-OBJECT ()
<COND (<VERB? EXAMINE>
<TELL "I can't see any songbird here." CR>)
(<VERB? FIND>
<TELL "The songbird is not here." CR>)
(<VERB? LISTEN>
<TELL "You can't hear the songbird just now." CR>)
(<VERB? FOLLOW>
<TELL "You can't follow him." CR>)>>
<ROUTINE WCLIF-OBJECT ()
<COND (<VERB? CLIMB-UP CLIMB-DOWN CLIMB-FOO>
<TELL "The cliff is too steep for climbing." CR>)>>
<ROUTINE CLIFF-OBJECT ()
<COND (<==? ,PRSI ,CLIMBABLE-CLIFF>
<COND (<VERB? PUT>
<TELL
"The " D ,PRSO " tumbles into the river and is gone." CR>
<REMOVE ,PRSO>)>)>>
\
"SUBTITLE CHUTES AND LADDERS"
<ROUTINE ROPE-FUNCTION ("AUX" RLOC)
<COND (<NOT <==? ,HERE ,DOME-ROOM>>
<SETG DOME-FLAG <>>
<COND (<VERB? TIE>
<TELL "You can't tie the rope to that." CR>)>)
(<VERB? TIE>
<COND (<==? ,PRSI ,RAILING>
<COND (,DOME-FLAG
<TELL
"The rope is already tied to it." CR>)
(ELSE
<TELL
"The rope drops over the side of the railing." CR>
<SETG DOME-FLAG T>
<FSET ,ROPE ,NDESCBIT>
<SET RLOC <LOC ,ROPE>>
<COND (<OR <NOT .RLOC>
<NOT <IN? .RLOC ,ROOMS>>>
<MOVE ,ROPE ,HERE>)>
T)>)>)
(<VERB? UNTIE>
<COND (,DOME-FLAG
<SETG DOME-FLAG <>>
<FCLEAR ,ROPE ,NDESCBIT>
<TELL "The rope is now untied." CR>)
(ELSE
<TELL "It is not tied to anything." CR>)>)
(<AND <VERB? DROP>
<==? ,HERE ,DOME-ROOM>
<NOT ,DOME-FLAG>>
<MOVE ,ROPE ,NORTH-TEMPLE>
<TELL "The rope drops gently to the floor below." CR>)
(<VERB? TAKE>
<COND (,DOME-FLAG
<TELL "The rope is tied to the railing." CR>)>)>>
<ROUTINE UNTIE-FROM ()
<COND (<AND <==? ,PRSO ,ROPE>
<AND ,DOME-FLAG <==? ,PRSI ,RAILING>>>
<PERFORM ,V?UNTIE ,PRSO>)
(ELSE <TELL "It's not attached to that!" CR>)>>
<ROUTINE SLIDE-FUNCTION ()
<COND (<OR <VERB? THROUGH>
<AND <VERB? PUT> <==? ,PRSO ,ME>>>
<TELL "You tumble down the slide...." CR>
<GOTO ,CELLAR>)
(<VERB? PUT>
<COND (<FSET? ,PRSO ,TAKEBIT>
<TELL
"The " D ,PRSO " falls into the slide and is gone." CR>
<COND (<==? ,PRSO ,WATER> <REMOVE ,PRSO>)
(T
<MOVE ,PRSO ,CELLAR>)>)
(ELSE <YUK>)>)>>
"MORE RANDOMNESS"
;"Pseudo-object routines"
<ROUTINE LAKE-PSEUDO ()
<COND (,LOW-TIDE
<TELL "There's not much lake left...." CR>)
(<VERB? CROSS>
<TELL "It's too wide to cross." CR>)
(<VERB? THROUGH>
<TELL "You can't swim in this lake.">)>>
<ROUTINE GATE-PSEUDO ()
<COND (<VERB? THROUGH>
<PERFORM ,V?WALK ,P?IN>
<RTRUE>)
(ELSE
<TELL
"The gate is protected by an invisible force." CR>)>>
<ROUTINE DOOR-PSEUDO ()
<COND (<VERB? OPEN CLOSE>
<TELL "The door won't budge." CR>)>>
<ROUTINE PAINT-PSEUDO ()
<COND (<VERB? MUNG>
<TELL "Some paint chips away, revealing more paint." CR>)>>
<ROUTINE GAS-PSEUDO ()
<COND (<VERB? BREATHE> ;"REALLY BLOW"
<TELL "There is too much gas to blow away." CR>)
(<VERB? SMELL>
<TELL "It smells like coal gas in here." CR>)>>
<ROUTINE PATH-OBJECT ()
<COND (<VERB? TAKE FOLLOW>
<TELL "You must specify a direction to go." CR>)
(<VERB? FIND>
<TELL "I can't help you there...." CR>)>>
Reference in a new issue View git blame Copy permalink