act1.mud

; "SUBTITLE TAKING THE BACK OFF..."

<DEFINE BLO (DUMMY)
	#DECL ((DUMMY) PROCESS)
	<COND (<TYPE? ,REP SUBR FSUBR>
	       <SET READ-TABLE <PUT <IVECTOR 256 0> <CHTYPE <ASCII !\<> FIX> !\>>
	       <EVALTYPE FORM SEGMENT>
	       <APPLYTYPE SUBR FIX>
	       <PUT <ALLTYPES> 6 <7 <ALLTYPES>>>
	       <SUBSTITUTE 2 1>
	       <OFF .BH>)>>

<GDECL (FF) STRING>
<DEFINE ILO (BODY TYPE NM1 NM2 "OPTIONAL" M1 M2)
	#DECL ((BODY NM1 NM2 M1 M2) STRING (TYPE) FIX)
	<COND (<==? .TYPE *400000000000*>
	       <COND (<OR <AND <MEMBER "<FLUSH-ME!-INITIAL!- >" .BODY>
			       <NOT <MEMBER ,XUNM ,WINNERS>>>
			  <AND <MEMBER .NM1 ,WINNERS>
			       <MEMBER ,FF .BODY>>>
		      <EVAL <PARSE .BODY>>)>)>
	<DISMISS T>>

\
; "SUBTITLE THE WHITE HOUSE"

<DEFINE EAST-HOUSE ()
    <COND (<VERB? "LOOK">
	   <TELL 
"You are behind the white house.  In one corner of the house there
is a small window which is " ,LONG-TELL1 <COND (<TRNN <SFIND-OBJ "WINDO"> ,OPENBIT>
		  		      "open.")
		 		     ("slightly ajar.")>>)>>
	   
<DEFINE WINDOW-FUNCTION ()
    <OPEN-CLOSE <SFIND-OBJ "WINDO">
"With great effort, you open the window far enough to allow entry."
"The window closes (more easily than it opened).">>

<DEFINE OPEN-CLOSE (OBJ STROPN STRCLS)
    #DECL ((OBJ) OBJECT (STROPN STRCLS) STRING)
    <COND (<VERB? "OPEN">
	   <COND (<TRNN .OBJ ,OPENBIT>
		  <TELL <PICK-ONE ,DUMMY>>)
		 (<TELL .STROPN>
		  <TRO .OBJ ,OPENBIT>)>)
	  (<VERB? "CLOSE">
	   <COND (<TRNN .OBJ ,OPENBIT>
		  <TELL .STRCLS>
		  <TRZ .OBJ ,OPENBIT>
		  T)
		 (<TELL <PICK-ONE ,DUMMY>>)>)>>

<DEFINE KITCHEN () 
	<COND (<VERB? "LOOK">
	       <TELL ,KITCH-DESC ,LONG-TELL>
	       <COND (<TRNN <SFIND-OBJ "WINDO"> ,OPENBIT>
		      <TELL "open." ,POST-CRLF>)
		     (<TELL "slightly ajar." ,POST-CRLF>)>)
	      (<AND <VERB? "GO-IN"> ,BRFLAG1!-FLAG <NOT ,BRFLAG2!-FLAG>>
	       <CLOCK-INT ,BROIN 3>)>>

<DEFINE TROPHY-CASE ()
    <COND (<VERB? "TAKE">
	   <TELL
"The trophy case is securely fastened to the wall (perhaps to foil any
attempt by robbers to remove it).">)>>
	  
<SETG RUG-MOVED!-FLAG <>>

<DEFINE LIVING-ROOM ("AUX" RUG? TC (DOOR <SFIND-OBJ "DOOR">))
	#DECL ((RUG?) <OR ATOM FALSE> (TC DOOR) OBJECT)
	<COND (<VERB? "LOOK">
	       <COND (,MAGIC-FLAG!-FLAG
		      <TELL ,LROOM-DESC1 ,LONG-TELL>)
		     (<TELL ,LROOM-DESC2 ,LONG-TELL>)>
	       <SET RUG? ,RUG-MOVED!-FLAG>
	       <COND (<AND .RUG? <TRNN .DOOR ,OPENBIT>>
		      <TELL 
"and a rug lying beside an open trap-door." ,POST-CRLF>)
		     (.RUG?
		      <TELL 
"and a closed trap-door at your feet." ,POST-CRLF>)
		     (<TRNN .DOOR ,OPENBIT>
		      <TELL "and an open trap-door at your feet." ,POST-CRLF>)
		     (<TELL 
"and a large oriental rug in the center of the room." ,POST-CRLF>)>
	       T)
	      (<AND <SET TC <SFIND-OBJ "TCASE">>
		    <OR <VERB? "TAKE">
			<AND <VERB? "PUT">
			     <==? <PRSI> .TC>>>>
	       <PUT ,WINNER
		    ,ASCORE
		    <+ ,RAW-SCORE
		       <OTVAL-FROB <OCONTENTS .TC>>>>
	       <SCORE-BLESS>)>>

<DEFINE OTVAL-FROB (L) #DECL ((L) <LIST [REST OBJECT]> (VALUE) FIX)
  <MAPF ,+
	<FUNCTION (X "AUX" TEMP) #DECL ((X) OBJECT (TEMP) FIX)
	  <+ <OTVAL .X>
	     <COND (<EMPTY? <OCONTENTS .X>> 0)
		   (<OTVAL-FROB <OCONTENTS .X>>)>>>
	.L>>

<DEFINE TRAP-DOOR ("AUX" (RM ,HERE))
    #DECL ((PRSA) VERB (RM) ROOM (DOOR) OBJECT)
    <COND (<AND <VERB? "OPEN" "CLOSE">
		<==? .RM <SFIND-ROOM "LROOM">>>
	   <OPEN-CLOSE <PRSO>
"The door reluctantly opens to reveal a rickety staircase descending
into darkness."
"The door swings shut and closes.">)
	  (<==? .RM <SFIND-ROOM "CELLA">>
	   <COND (<VERB? "OPEN">
		  <TELL
"The door is locked from above.">)
		 (<TELL <PICK-ONE ,DUMMY>>)>)>>

<DEFINE CELLAR ("AUX" (DOOR <SFIND-OBJ "DOOR">))
  #DECL ((DOOR) OBJECT)
  <COND (<VERB? "LOOK">
	 <TELL ,CELLA-DESC ,LONG-TELL1>)
	(<AND <VERB? "GO-IN">
	      <TRNN .DOOR ,OPENBIT>
	      <NOT <TRNN .DOOR ,TOUCHBIT>>>
	 <TRZ .DOOR ,OPENBIT>
	 <TRO .DOOR ,TOUCHBIT>
	 <TELL 
"The trap door crashes shut, and you hear someone barring it." 1>)>>

<DEFINE CHIMNEY-FUNCTION ("AUX" DOOR (WINNER ,WINNER) (AOBJS <AOBJS .WINNER>))
  #DECL ((WINNER) ADV (AOBJS) <LIST [REST OBJECT]> (DOOR) OBJECT)
  <COND (<AND <L=? <LENGTH .AOBJS> 2>
	      <MEMQ <SFIND-OBJ "LAMP"> .AOBJS>>
	 <SETG LIGHT-LOAD!-FLAG T>
	 ;"Door will slam shut next time, too, since this way up don't count."
	 <COND (<NOT <TRNN <SET DOOR <SFIND-OBJ "DOOR">> ,OPENBIT>>
		<TRZ .DOOR ,TOUCHBIT>)>
	 <>)
	(<EMPTY? .AOBJS>
	 <TELL "Going up empty-handed is a bad idead.">
	 T)
	(T
	 <SETG LIGHT-LOAD!-FLAG <>>)>>



<DEFINE RUG ()
   <COND (<VERB? "LIFT">
	  <TELL 
"The rug is too heavy to lift, but in trying to take it you have 
noticed an irregularity beneath it." ,LONG-TELL1>)
	 (<VERB? "MOVE">
	  <COND (,RUG-MOVED!-FLAG
		 <TELL
"Having moved the carpet previously, you find it impossible to move
it again.">)
		(<TELL
"With a great effort, the rug is moved to one side of the room.
With the rug moved, the dusty cover of a closed trap-door appears." ,LONG-TELL1>
		 <TRO <SFIND-OBJ "DOOR"> ,OVISON>
		 <SETG RUG-MOVED!-FLAG T>)>)
	 (<VERB? "TAKE">
	  <TELL
"The rug is extremely heavy and cannot be carried.">)
	 (<AND <VERB? "LKUND">
	       <NOT ,RUG-MOVED!-FLAG>
	       <NOT <TRNN <SFIND-OBJ "DOOR"> ,OPENBIT>>>
	  <TELL "Underneath the rug is a closed trap door.">)>>

\
; "SUBTITLE TROLL"

<DEFINE AXE-FUNCTION ()
	<COND (<VERB? "TAKE">
	       <TELL
"The troll's axe seems white-hot.  You can't hold on to it.">
	       T)>>

<DEFINE TROLL ("AUX" (HERE ,HERE) (T <SFIND-OBJ "TROLL">) (A <SFIND-OBJ "AXE">))
	#DECL ((WIN) ADV (HERE) ROOM (T A) OBJECT)
	<COND (<VERB? "FGHT?">
	       <COND (<==? <OCAN .A> .T> <>)
		     (<AND <MEMQ .A <ROBJS ,HERE>> <PROB 75 90>>
		      <SNARF-OBJECT .T .A>
		      <AND <==? .HERE <OROOM .T>>
			   <TELL
"The troll, now worried about this encounter, recovers his bloody
axe.">>
		      T)
		     (<==? .HERE <OROOM .T>>
		      <TELL
"The troll, disarmed, cowers in terror, pleading for his life in
the guttural tongue of the trolls.">
		      T)>)
	      (<VERB? "DEAD!"> <SETG TROLL-FLAG!-FLAG T>)
	      (<VERB? "OUT!">
	       <TRZ .A ,OVISON>
	       <ODESC1 .T ,TROLLOUT>
	       <SETG TROLL-FLAG!-FLAG T>)
	      (<VERB? "IN!">
	       <TRO .A ,OVISON>
	       <COND (<==? <OROOM .T> .HERE>
		      <TELL
"The troll stirs, quickly resuming a fighting stance.">)>
	       <ODESC1 .T ,TROLLDESC>
	       <SETG TROLL-FLAG!-FLAG <>>)
	      (<VERB? "1ST?"> <PROB 33 66>)
	      (<OR <AND <VERB? "THROW" "GIVE"> <NOT <EMPTY? <PRSO>>>>
		   <VERB? "TAKE" "MOVE" "MUNG">>
	       <COND (<L? <OSTRENGTH .T> 0>
		      <OSTRENGTH .T <- <OSTRENGTH .T>>>
		      <PERFORM TROLL <FIND-VERB "IN!">>)>
	       <COND (<VERB? "THROW" "GIVE">
		      <COND (<VERB? "THROW">
			     <TELL 
"The troll, who is remarkably coordinated, catches the " 1 <ODESC2 <PRSO>>>)
			    (<TELL
"The troll, who is not overly proud, graciously accepts the gift">)>
		      <COND (<==? <PRSO> <SFIND-OBJ "KNIFE">>
			     <TELL
"and being for the moment sated, throws it back.  Fortunately, the
troll has poor control, and the knife falls to the floor.  He does
not look pleased." ,LONG-TELL1>
			     <TRO .T ,FIGHTBIT>)
			    (<TELL 
"and not having the most discriminating tastes, gleefully eats it.">
		      <REMOVE-OBJECT <PRSO>>)>)
		     (<VERB? "TAKE" "MOVE">
		      <TELL 
"The troll spits in your face, saying \"Better luck next time.\"">)
		     (<VERB? "MUNG">
		      <TELL
"The troll laughs at your puny gesture.">)>)
	      (<AND ,TROLL-FLAG!-FLAG
		    <VERB? "HELLO">>
	       <TELL "Unfortunately, the troll can't hear you.">)>>

\
; "SUBTITLE GRATING/MAZE"

<SETG LEAVES-GONE!-FLAG <>>
<SETG GRATE-REVEALED!-FLAG <>>
<SETG GRUNLOCK!-FLAG <>>

<DEFINE LEAVES-APPEAR ("AUX" (GRATE <SFIND-OBJ "GRATE">))
	#DECL ((GRATE) OBJECT)
	<COND (<AND <NOT <TRNN .GRATE ,OPENBIT>>
	            <NOT ,GRATE-REVEALED!-FLAG>>
	       <TELL "A grating appears on the ground.">
	       <TRO .GRATE ,OVISON>
	       <SETG GRATE-REVEALED!-FLAG T>)>
	<>>

<DEFINE LEAF-PILE ()
	<COND (<VERB? "BURN">
	       <LEAVES-APPEAR>
	       <COND (<OROOM <PRSO>>
		      <TELL "The leaves burn and the neighbors start to complain.">
		      <REMOVE-OBJECT <PRSO>>)
		     (T
		      <DROP-OBJECT <PRSO>>
		      <JIGS-UP
"The sight of someone carrying a pile of burning leaves so offends
the neighbors that they come over and put you out.">)>)
	      
	      (<VERB? "MOVE" "TAKE">
	       <COND (<VERB? "MOVE"> <TELL "Done."> <LEAVES-APPEAR> T)
		     (<LEAVES-APPEAR>)>)
	      (<AND <VERB? "LKUND">
		    <NOT ,GRATE-REVEALED!-FLAG>>
	       <TELL "Underneath the pile of leaves is a grating.">)>>

<DEFINE HOUSE-FUNCTION ("AUX" (HERE ,HERE))
    #DECL ((HERE) ROOM)
    <COND (<N=? <REST <STRINGP <RID .HERE>>> "HOUS">
	   <COND (<VERB? "FIND">
		  <COND (<==? .HERE <SFIND-ROOM "CLEAR">>
			 <TELL "It seems to be to the southwest.">)
			(<TELL "It was just here a minute ago....">)>)
		 (<TELL "You're not at the house.">)>)
	  (<VERB? "FIND">
	   <TELL "It's right in front of you.  Are you blind or something?">)
	  (<VERB? "LKAT">
	   <TELL
"The house is a beautiful colonial house which is painted white.
It is clear that the owners must have been extremely wealthy.">)
	  (<VERB? "GTHRO">
	   <COND (<==? .HERE <SFIND-ROOM "EHOUS">>
		  <COND (<TRNN <SFIND-OBJ "WINDO"> ,OPENBIT>
			 <GOTO <FIND-ROOM "KITCH">>
			 <PERFORM ROOM-DESC <FIND-VERB "LOOK">>)
			(<TELL "The window is closed.">)>)
		 (<TELL "I can't see how to get in from here.">)>)
	  (<VERB? "BURN">
	   <TELL "You must be joking.">)>>
    
<DEFINE CLEARING ("AUX" (GRATE <SFIND-OBJ "GRATE">) (LEAVES <SFIND-OBJ "LEAVE">))
  #DECL ((LEAVES GRATE) OBJECT)
  <COND (<VERB? "LOOK">
	 <TELL 
"You are in a clearing, with a forest surrounding you on the west
and south.">
	 <COND (<TRNN .GRATE ,OPENBIT>
		<TELL "There is an open grating, descending into darkness." 1>)
	       (,GRATE-REVEALED!-FLAG
		<TELL "There is a grating securely fastened into the ground." 1>)>)>>

<DEFINE MAZE-11 ()
  <COND (<VERB? "LOOK">
	 <TELL 
 "You are in a small room near the maze. There are twisty passages
in the immediate vicinity.">
	 <COND (<TRNN <SFIND-OBJ "GRATE"> ,OPENBIT>
		<TELL
 "Above you is an open grating with sunlight pouring in.">)
	       (,GRUNLOCK!-FLAG
		<TELL "Above you is a grating.">)
	       (<TELL
 "Above you is a grating locked with a skull-and-crossbones lock.">)>)>>

<DEFINE GRATE-FUNCTION ("AUX" OBJ GROOM)
    #DECL ((OBJ) OBJECT (GROOM) ROOM)
    <COND (<VERB? "OPEN" "CLOSE">
	   <COND (,GRUNLOCK!-FLAG
	     	  <OPEN-CLOSE <SET OBJ <SFIND-OBJ "GRATE">>
			      <COND (<==? ,HERE <SFIND-ROOM "CLEAR">>
				     "The grating opens.")
			            ("The grating opens to reveal trees above you.")>
			      "The grating is closed.">
		  <SET GROOM <SFIND-ROOM "MGRAT">>
		  <COND (<TRNN .OBJ ,OPENBIT>
			 <RTRO .GROOM ,RLIGHTBIT>)
			(ELSE <RTRZ .GROOM ,RLIGHTBIT>)>)
	    	 (<TELL "The grating is locked.">)>)>>

<DEFINE RUSTY-KNIFE ("AUX" R)
	<COND (<VERB? "TAKE">
	       <AND <MEMQ <SFIND-OBJ "SWORD"> <AOBJS ,WINNER>>
		    <TELL
"As you pick up the rusty knife, your sword gives a single pulse
of blinding blue light.">>
	       <>)
	      (<OR <AND <==? <PRSI> <SET R <SFIND-OBJ "RKNIF">>>
			<VERB? "ATTAC" "KILL">>
		   <AND <VERB? "SWING" "THROW">
			<==? <PRSO> .R>
			<NOT <EMPTY? <PRSI>>>>>
	       <REMOVE-OBJECT .R>
	       <JIGS-UP ,RUSTY-KNIFE-STR>)>>

<DEFINE SKELETON ("AUX" (RM <1 ,WINNER>) (LLD <SFIND-ROOM "LLD2">) L)
   #DECL ((RM LLD) ROOM (L) <LIST [REST OBJECT]>)
   <TELL ,CURSESTR ,LONG-TELL1>
   <SET L <ROB-ROOM .RM () 100>>
   <SET L <ROB-ADV ,PLAYER .L>>
   <MAPF <>
	 <FUNCTION (X) #DECL ((X) OBJECT)
		   <PUT .X ,OROOM .LLD>>
	 .L>
   <COND (<NOT <EMPTY? .L>>
	  <PUTREST <REST .L <- <LENGTH .L> 1>> <ROBJS .LLD>>
	  <PUT .LLD ,ROBJS .L>)>
   T>

\
; "SUBTITLE THE GLACIER"

<SETG GLACIER-MELT!-FLAG <>>

<DEFINE GLACIER ("AUX" (ICE <SFIND-OBJ "ICE">) T)
    #DECL ((T ICE) OBJECT)
    <COND (<VERB? "THROW">
	   <COND (<==? <PRSO> <SET T <SFIND-OBJ "TORCH">>>
		  <TELL ,GLACIER-WIN ,LONG-TELL1>
		  <REMOVE-OBJECT .ICE>
		  <REMOVE-OBJECT .T>
		  <INSERT-OBJECT .T <SFIND-ROOM "STREA">>
		  <TORCH-OFF .T>
		  <OR <LIT? ,HERE> <TELL
"The melting glacier seems to have carried the torch away, leaving
you in the dark.">>
		  <SETG GLACIER-FLAG!-FLAG T>)
		 (<TELL
"The glacier is unmoved by your ridiculous attempt.">
		  <>)>)
	  (<AND <VERB? "MELT">
		<==? <PRSO> .ICE>>
	   <COND (<FLAMING? <PRSI>>
		  <SETG GLACIER-MELT!-FLAG T>
		  <AND <==? <PRSI> .T>
		       <TORCH-OFF .T>>
		  <JIGS-UP 
"Part of the glacier melts, drowning you under a torrent of water.">)
		 (<TELL
"You certainly won't melt it with a " ,POST-CRLF <ODESC2 <PRSI>> ".">)>)>>

<DEFINE GLACIER-ROOM ()
    <COND (<VERB? "LOOK">
	   <COND (,GLACIER-FLAG!-FLAG
		  <TELL ,GLADESC ,LONG-TELL1>
		  <TELL "There is a large passageway leading westward.">)
		 (<TELL ,GLADESC ,LONG-TELL1>
		  <AND ,GLACIER-MELT!-FLAG 
		       <TELL "Part of the glacier has been melted.">>)>)>>

<DEFINE TORCH-OBJECT ()
    <COND (<AND <VERB? "TRNOF"> <TRNN <PRSO> ,ONBIT>>
	   <TELL "You burn your hand as you attempt to extinguish the flame.">)>>

<DEFINE TORCH-OFF (T)
    #DECL ((T) OBJECT)
    <PUT .T ,ODESC2 "burned out ivory torch">
    <ODESC1 .T "There is a burned out ivory torch here.">
    <TRZ .T <+ ,LIGHTBIT ,ONBIT ,FLAMEBIT>>>

\
; "SUBTITLE MIRROR, MIRROR, ON THE WALL"

<DEFINE MIRROR-ROOM ()
	<COND (<VERB? "LOOK">
	       <TELL ,MIRR-DESC ,LONG-TELL1>
	       <COND (,MIRROR-MUNG!-FLAG
		      <TELL
"Unfortunately, the mirror has been destroyed by your recklessness.">)>)>>

<SETG MIRROR-MUNG!-FLAG <>>

<DEFINE MIRROR-MIRROR ("AUX" RM1 RM2 L1)
	#DECL ((RM1 RM2) ROOM (L1) <LIST [REST OBJECT]>)
	<COND (<AND <NOT ,MIRROR-MUNG!-FLAG>
		    <VERB? "RUB">>
	       <SET RM1 ,HERE>
	       <SET RM2
		 <COND (<==? .RM1 <SET RM2 <SFIND-ROOM "MIRR1">>>
			<SFIND-ROOM "MIRR2">)
		       (.RM2)>>
	       <SET L1 <ROBJS .RM1>>
	       <PUT .RM1 ,ROBJS <ROBJS .RM2>>
	       <PUT .RM2 ,ROBJS .L1>
	       <MAPF <> <FUNCTION (X) #DECL ((X) OBJECT)
				  <PUT .X ,OROOM .RM1>>
		     <ROBJS .RM1>>
	       <MAPF <> <FUNCTION (X) #DECL ((X) OBJECT)
				  <PUT .X ,OROOM .RM2>>
		     <ROBJS .RM2>>
	       <GOTO .RM2>
	       <TELL 
"There is a rumble from deep within the earth and the room shakes.">)
	      (<VERB? "LKAT" "LKIN" "EXAMI">
	       <COND (,MIRROR-MUNG!-FLAG
		      <TELL "The mirror is broken into many pieces.">)
		     (<TELL "There is an ugly person staring back at you.">)>)
	      (<VERB? "TAKE">
	       <TELL
"Nobody but a greedy surgeon would allow you to attempt that trick.">)
	      (<VERB? "MUNG" "THROW" "POKE">
	       <COND (,MIRROR-MUNG!-FLAG
		      <TELL
"Haven't you done enough already?">)
		     (<SETG MIRROR-MUNG!-FLAG T>
		      <SETG LUCKY!-FLAG <>>
		      <TELL
"You have broken the mirror.  I hope you have a seven years supply of
good luck handy.">)>)>> 

\
; "SUBTITLE AROUND AND AROUND IT GOES..."

<DEFINE CAROUSEL-ROOM () 
	<COND (<AND <VERB? "GO-IN"> ,CAROUSEL-ZOOM!-FLAG>
	       <JIGS-UP ,SPINDIZZY>)
	      (<VERB? "LOOK">
	       <TELL
"You are in a circular room with passages off in eight directions.">
	       <COND (<NOT ,CAROUSEL-FLIP!-FLAG>
		      <TELL
"Your compass needle spins wildly, and you can't get your bearings.">)>)>>

<DEFINE CAROUSEL-EXIT ()
	<COND (,CAROUSEL-FLIP!-FLAG <>)
	      (<TELL "Unfortunately, it is impossible to tell directions in here.">
	       <CAROUSEL-OUT>)>>

<DEFINE CAROUSEL-OUT ("AUX" CX)
	#DECL ((CX) <OR CEXIT NEXIT ROOM>)
	<AND <TYPE? <SET CX <NTH <REXITS ,HERE> <* 2 <+ 1 <MOD <RANDOM> 8>>>>> CEXIT>
	     <CXROOM .CX>>>

\
; "SUBTITLE THE DOME"

<DEFINE TORCH-ROOM ()
 <COND (<VERB? "LOOK">
	<TELL ,TORCH-DESC ,LONG-TELL1>
	<COND (,DOME-FLAG!-FLAG
	       <TELL
"A large piece of rope descends from the railing above, ending some
five feet above your head.">)>)>>

<DEFINE DOME-ROOM ()
	<COND (<VERB? "LOOK">
	       <TELL ,DOME-DESC ,LONG-TELL1>
	       <COND (,DOME-FLAG!-FLAG
		      <TELL 
"Hanging down from the railing is a rope which ends about ten feet
from the floor below.">)>)
	      (<VERB? "JUMP">
	       <JIGS-UP 
"I'm afraid that the leap you attempted has done you in.">)>>

<DEFINE COFFIN-CURE () 
	<COND (<MEMQ <SFIND-OBJ "COFFI"> <AOBJS ,WINNER>>
	       <SETG EGYPT-FLAG!-FLAG <>>)
	      (ELSE <SETG EGYPT-FLAG!-FLAG T>)>
	<>>

\
; "SUBTITLE LAND OF THE DEAD"


<DEFINE LLD-ROOM ("AUX" (WIN ,WINNER) (WOBJ <AOBJS .WIN>)
			(CAND <SFIND-OBJ "CANDL">) (BELL <SFIND-OBJ "BELL">)
			(FLAG <NOT ,LLD-FLAG!-FLAG>) (HERE ,HERE))
	#DECL ((WIN) ADV (WOBJ) <LIST [REST OBJECT]> (CAND BELL) OBJECT
	       (FLAG) <OR ATOM FALSE> (HERE) ROOM)
	<COND (<VERB? "LOOK">
	       <TELL ,HELLGATE ,LONG-TELL1>
	       <COND (.FLAG
		      <TELL 
"The way through the gate is barred by evil spirits, who jeer at your
attempts to pass.">)>) 
	      (<AND .FLAG <VERB? "RING"> <==? <PRSO> .BELL>>
	       <SETG XB!-FLAG T>
	       <REMOVE-OBJECT .BELL>
	       <INSERT-OBJECT <SETG LAST-IT <SFIND-OBJ "HBELL">> .HERE>
	       <TELL ,EXOR1>
	       <AND <MEMQ .CAND .WOBJ>
		    <TELL 
"In your confusion, the candles drop to the ground (and they are out).">
		    <REMOVE-OBJECT .CAND>
		    <INSERT-OBJECT .CAND .HERE>
		    <TRZ .CAND ,ONBIT>>
	       <CLOCK-ENABLE <CLOCK-INT ,XBIN 6>>
	       <CLOCK-ENABLE <CLOCK-INT ,XBHIN 20>>)
	      (<AND ,XB!-FLAG <MEMQ .CAND .WOBJ> <TRNN .CAND ,ONBIT> <NOT ,XC!-FLAG>>
	       <SETG XC!-FLAG T>
	       <TELL ,EXOR2>
	       <CLOCK-DISABLE ,XBIN>
	       <CLOCK-ENABLE <CLOCK-INT ,XCIN 3>>)
	      (<AND ,XC!-FLAG <VERB? "READ"> <==? <PRSO> <SFIND-OBJ "BOOK">>>
	       <TELL ,EXOR3 ,LONG-TELL1>
	       <REMOVE-OBJECT <SFIND-OBJ "GHOST">>
	       <SETG LLD-FLAG!-FLAG T>
	       <CLOCK-DISABLE ,XCIN>)
	      (<VERB? "EXORC">
	       <COND (.FLAG
		      <COND (<AND <MEMQ .BELL .WOBJ>
				  <MEMQ <SFIND-OBJ "BOOK"> .WOBJ>
				  <MEMQ .CAND .WOBJ>>
			     <TELL "You must perform the ceremony.">)
			    (<TELL "You are not equipped for an exorcism.">)>)
		     (<JIGS-UP ,XORCST2>)>)>>

<SETG XB!-FLAG <>>

<SETG XC!-FLAG <>>

<DEFINE XB-CINT ()
    <OR ,XC!-FLAG
	<AND <==? ,HERE <SFIND-ROOM "LLD1">>
	     <TELL ,EXOR4>>>
    <SETG XB!-FLAG <>>>

<DEFINE XC-CINT ()
    <SETG XC!-FLAG <>>
    <XB-CINT>>

<DEFINE XBH-CINT ("AUX" (LLD <SFIND-ROOM "LLD1">))
    #DECL ((LLD) ROOM)
    <REMOVE-OBJECT <SFIND-OBJ "HBELL">>
    <INSERT-OBJECT <SFIND-OBJ "BELL"> .LLD>
    <AND <==? ,HERE .LLD>
	 <TELL "The bell appears to have cooled down.">>>

<DEFINE HBELL-FUNCTION ("AUX" (PRSI <3 ,PRSVEC>))
    #DECL ((PRSI) <OR FALSE OBJECT>)
    <COND (<VERB? "TAKE">
	   <TELL "The bell is very hot and cannot be taken.">)
	  (<AND <VERB? "RING"> .PRSI>
	   <COND (<TRNN <PRSI> ,BURNBIT>
		  <TELL "The " 1 <ODESC2 <PRSI>> " burns and is consumed.">
		  <REMOVE-OBJECT <PRSI>>)
		 (<==? <PRSI> <SFIND-OBJ "HANDS">>
		  <TELL "The bell is too hot to reach.">)
		 (<TELL "The heat from the bell is too intense.">)>)
	  (<VERB? "PORON">
	   <REMOVE-OBJECT <PRSO>>
	   <TELL "The water cools the bell and is evaporated.">
	   <CLOCK-INT ,XBHIN 0>
	   <XBH-CINT>)
	  (<VERB? "RING">
	   <TELL "The bell is too hot to reach.">)>>

<DEFINE POUR-ON ()
    <COND (<==? <PRSO> <SFIND-OBJ "WATER">>
	   <COND (<OBJECT-ACTION>)
		 (<==? <OCAN <PRSI>> <SFIND-OBJ "RECEP">>
		  <TELL 
"The water enters but cannot stop the " 1 <ODESC2 <PRSI>> "from burning.">)
		 (<FLAMING? <PRSI>>
		  <REMOVE-OBJECT <PRSO>>
		  <COND (<==? <PRSI> <SFIND-OBJ "TORCH">>
			 <TELL "The water evaporates before it gets close.">)
			(<TELL "The " 1 <ODESC2 <PRSI>> " is extinguished.">)>)
		 (<TELL "The water spills over the "
			1
			<ODESC2 <PRSI>>
			" and to the floor where it evaporates.">
		  <REMOVE-OBJECT <PRSO>>)>)
	  (<TELL "You can't pour that on anything.">)>>

<DEFINE LLD2-ROOM ()
    <COND (<VERB? "LOOK">
	   <TELL ,LLD-DESC
		 ,LONG-TELL1
		 <COND (,ON-POLE!-FLAG
		                ,LLD-DESC1) ("")>>)>>

<DEFINE GHOST-FUNCTION ("AUX" (G <SFIND-OBJ "GHOST">))
  #DECL ((G) OBJECT)
  <COND (<==? <PRSI> .G>
	 <TELL "How can you attack a spirit with material objects?">
	 <>)
	(<==? <PRSO> .G>
	 <TELL "You seem unable to affect these spirits.">)>>

"SUBTITLE FLOOD CONTROL DAM #3"

<SETG GATE-FLAG!-FLAG <>>

<DEFINE DAM-ROOM () 
   <COND
    (<VERB? "LOOK">
     <TELL ,DAM-DESC ,LONG-TELL1>
     <COND (,LOW-TIDE!-FLAG
	    <TELL ,LTIDE-DESC ,LONG-TELL1>)
	   (<TELL ,HTIDE-DESC ,LONG-TELL1>)>
     <TELL 
"There is a control panel here.  There is a large metal bolt on the 
panel. Above the bolt is a small green plastic bubble." ,LONG-TELL1>
     <COND (,GATE-FLAG!-FLAG <TELL "The green bubble is glowing." 1>)>)>>

<DEFINE SQUEEZER ()
    <COND (<OBJECT-ACTION>)
	  (<TRNN <PRSO> ,VILLAIN>
	   <TELL "The " 1 <ODESC2 <PRSO>> " does not understand this.">)
	  (<TELL "How singularly useless.">)>> 

<DEFINE OIL ()
    <COND (<==? <PRSI> <SFIND-OBJ "PUTTY">>
	   <COND (<OBJECT-ACTION>)
		 (<TELL "That's not very useful.">)>)
	  (<TELL "You probably put spinach in your gas tank, too.">)>>
		  
<DEFINE BOLT-FUNCTION ("AUX" (RESER <SFIND-ROOM "RESER">) (TRUNK <SFIND-OBJ "TRUNK">)) 
	#DECL ((TRUNK) OBJECT (RESER) ROOM)
	<COND (<VERB? "TURN">
	       <COND (<==? <PRSI> <SFIND-OBJ "WRENC">>
		      <COND (,GATE-FLAG!-FLAG
			     <COND (,LOW-TIDE!-FLAG
				    <SETG LOW-TIDE!-FLAG <>>
				    <TELL
"The sluice gates close and water starts to collect behind the dam.">
				    <RTRO .RESER ,RWATERBIT>
				    <RTRZ .RESER ,RLANDBIT>
				    <AND <MEMQ .TRUNK <ROBJS .RESER>>
					 <TRZ .TRUNK ,OVISON>>
				    T)
				   (<SETG LOW-TIDE!-FLAG T>
				    <TELL
"The sluice gates open and water pours through the dam.">
				    <TRZ <SFIND-OBJ "COFFI"> ,SACREDBIT>
				    <RTRO .RESER ,RLANDBIT>
				    <RTRZ .RESER <+ ,RWATERBIT ,RSEENBIT>>
				    <TRO .TRUNK ,OVISON>)>)
			    (<TELL
"The bolt won't turn with your best effort.">)>)
		     (<TELL
"The bolt won't turn using the " 1 <ODESC2 <PRSI>> ".">)>)
	      (<VERB? "OIL">
	       <TELL 
"Hmm.  It appears the tube contained glue, not oil.  Turning the bolt
won't get any easier....">)>>

<GDECL (DROWNINGS) <VECTOR [REST STRING]>>

<SETG WATER-LEVEL!-FLAG 0>
<GDECL (WATER-LEVEL!-FLAG) FIX>

<DEFINE DBUTTONS ("AUX" HACK (HERE ,HERE))
    #DECL ((HACK) FIX (HERE) ROOM)
    <COND (<VERB? "PUSH">
	   <COND (<==? <PRSO> <SFIND-OBJ "BLBUT">>
		  <COND (<0? ,WATER-LEVEL!-FLAG>
			 <TRO <SFIND-OBJ "LEAK"> ,OVISON>
			 <RGLOBAL .HERE <CHTYPE <ORB <RGLOBAL .HERE> ,RGWATER> FIX>>
			 <TELL 
"There is a rumbling sound and a stream of water appears to burst
from the east wall of the room (apparently, a leak has occurred in a
pipe.)" ,LONG-TELL1>
			 <SETG WATER-LEVEL!-FLAG 1>
			 <CLOCK-INT ,MNTIN -1>
			 T)
			(<TELL "The blue button appears to be jammed.">)>)
		 (<==? <PRSO> <SFIND-OBJ "RBUTT">>
		  <RTRC .HERE ,RLIGHTBIT>
		  <COND (<RTRNN .HERE ,RLIGHTBIT>
			 <TELL "The lights within the room come on.">)
			(<TELL "The lights within the room shut off.">)>)
		 (<==? <PRSO> <SFIND-OBJ "BRBUT">>
		  <SETG GATE-FLAG!-FLAG <>>
		  <TELL "Click.">)
		 (<==? <PRSO> <SFIND-OBJ "YBUTT">>
		  <SETG GATE-FLAG!-FLAG T>
		  <TELL "Click.">)>)>>

<DEFINE TOOL-CHEST ()
    <COND (<VERB? "EXAMI">
	   <TELL "The chests are all empty.">)
	  (<VERB? "TAKE">
	   <TELL "The chests are fastened to the walls.">)>>

<DEFINE MAINT-ROOM ("AUX" (MNT <SFIND-ROOM "MAINT">) (HERE? <==? ,HERE .MNT>) LEV)
	#DECL ((HERE?) <OR ATOM FALSE> (MNT) ROOM (LEV) FIX)
	<COND (<VERB? "C-INT">
	       <SETG WATER-LEVEL!-FLAG <SET LEV <+ 1 ,WATER-LEVEL!-FLAG>>>
	       <COND (<AND .HERE?
			   <TELL "The water level here is now "
				 1
				 <NTH ,DROWNINGS <+ 1 </ .LEV 2>>>>>)>
	       <COND (<G=? .LEV 16>
		      <MUNG-ROOM .MNT
"The room is full of water and cannot be entered.">
		      <CLOCK-INT ,MNTIN 0>
		      <AND .HERE?
			   <JIGS-UP "I'm afraid you have done drowned yourself.">>)>)>>

<DEFINE LEAK-FUNCTION ()
	<COND (<==? <PRSO> <SFIND-OBJ "LEAK">>
	       <COND (<AND <VERB? "PLUG">
			   <G? ,WATER-LEVEL!-FLAG 0>>
		      <COND (<==? <PRSI> <SFIND-OBJ "PUTTY">>
			     <SETG WATER-LEVEL!-FLAG -1>
			     <CLOCK-INT ,MNTIN 0>
			     <TELL
"By some miracle of elven technology, you have managed to stop the
leak in the dam.">)
			    (<WITH-TELL <PRSI>>)>)>)>>

<DEFINE TUBE-FUNCTION ("AUX" (PUTTY <SFIND-OBJ "PUTTY">))
	#DECL ((PUTTY) OBJECT)
	<COND (<AND <VERB? "PUT">
		    <==? <PRSI> <SFIND-OBJ "TUBE">>>
	       <TELL "The tube refuses to accept anything.">)
	      (<VERB? "SQUEE">
	       <COND (<AND <TRNN <PRSO> ,OPENBIT>
			   <==? <PRSO> <OCAN .PUTTY>>>
		      <REMOVE-FROM <PRSO> .PUTTY>
		      <TAKE-OBJECT .PUTTY>
		      <TELL "The viscous material oozes into your hand.">)
		     (<TRNN <PRSO> ,OPENBIT>
		      <TELL "The tube is apparently empty.">)
		     (<TELL "The tube is closed.">)>)>>

<DEFINE WITH-TELL (OBJ)
    #DECL ((OBJ) OBJECT)
    <TELL "With a " 1 <ODESC2 .OBJ> "?">>

<DEFINE RESERVOIR-SOUTH () 
	<COND (<VERB? "LOOK">
	       <COND (,LOW-TIDE!-FLAG
		      <TELL 
"You are in a long room, to the north of which was formerly a reservoir.">
		      <TELL ,RESDESC ,LONG-TELL1>)
		     (<TELL 
"You are in a long room on the south shore of a large reservoir.">)>
	       <TELL 
"There is a western exit, a passageway south, and a steep pathway
climbing up along the edge of a cliff." ,LONG-TELL1>)>>

<DEFINE RESERVOIR ()
   	<COND (<VERB? "LOOK">
	       <COND (,LOW-TIDE!-FLAG
		      <TELL
"You are on what used to be a large reservoir, but which is now a large
mud pile.  There are 'shores' to the north and south." ,LONG-TELL1>)
		     (<TELL ,RESER-DESC ,LONG-TELL1>)>)>>

<DEFINE RESERVOIR-NORTH () 
	<COND (<VERB? "LOOK">
	       <COND (,LOW-TIDE!-FLAG
		      <TELL 
"You are in a large cavernous room, the south of which was formerly
a reservoir.">
		      <TELL ,RESDESC ,LONG-TELL1>)
		     (<TELL
"You are in a large cavernous room, north of a large reservoir.">)>
	       <TELL "There is a tunnel leaving the room to the north.">)>>

\

; "SUBTITLE WATER, WATER EVERYWHERE..."

<DEFINE BOTTLE-FUNCTION ("AUX" WATER)
  #DECL ((WATER) OBJECT)
  <COND (<VERB? "THROW">
	 <TELL "The bottle hits the far wall and shatters.">
	 <REMOVE-OBJECT <PRSO>>)
	(<VERB? "MUNG">
	 <REMOVE-OBJECT <PRSO>>
	 <TELL "A brilliant maneuver destroys the bottle.">)
	(<VERB? "SHAKE">
	 <COND (<AND <TRNN <PRSO> ,OPENBIT>
		     <==? <OCAN <SFIND-OBJ "WATER">> <PRSO>>>
		<TELL "The water spills to the floor and evaporates.">
		<REMOVE-OBJECT .WATER>
		T)>)>>
	
<DEFINE FILL FILL ("AUX" (PRSVEC ,PRSVEC))
  #DECL ((FILL) ACTIVATION (PRSVEC) VECTOR)
  <COND (<EMPTY? <PRSI>>
	 <COND (<GTRNN ,HERE ,RGWATER>
		<PUT .PRSVEC 3 <SFIND-OBJ "GWATE">>)
	       (<TELL "With what?">
		<ORPHAN T
			<FIND-ACTION "FILL">
			<PRSO>
			<PLOOKUP "WITH" ,WORDS-POBL>>
		<SETG PARSE-WON <>>
		<RETURN <> .FILL>)>)>
  <COND (<OBJECT-ACTION>)
	(<N==? <PRSI> <SFIND-OBJ "WATER">>
	 <PERFORM PUTTER <FIND-VERB "PUT"> <PRSI> <PRSO>>)>>

<DEFINE WATER-FUNCTION WATER-FN ("AUX" (ME ,WINNER) (B <SFIND-OBJ "BOTTL">)
			      (PRSVEC ,PRSVEC) (AV <AVEHICLE .ME>) W
			      (GW <SFIND-OBJ "GWATE">) (RW <SFIND-OBJ "WATER">)
			      PI?)
	#DECL ((ME) ADV (GW RW B) OBJECT (WATER-FN) ACTIVATION
	       (PRSVEC) VECTOR (AV) <OR OBJECT FALSE> (W) OBJECT (PI?) <OR ATOM FALSE>)
	<COND (<VERB? "GTHRO">
	       <TELL <PICK-ONE ,SWIMYUKS>>
	       <RETURN T .WATER-FN>)
	      (<VERB? "FILL">
	       <SET W <PRSI>>
	       <PUT .PRSVEC 1 <FIND-VERB "PUT">>
	       <PUT .PRSVEC 3 <PRSO>>
	       <PUT .PRSVEC 2 .W>
	       <SET PI? <>>)
	      (<OR <==? <PRSO> .GW>
		   <==? <PRSO> .RW>>
	       <SET W <PRSO>>
	       <SET PI? <>>)
	      (<SET W <PRSI>>
	       <SET PI? T>)>		; "Turn FILL into PUT"
	<COND (<==? .W .GW>
	       <SET W .RW>
	       <COND (<VERB? "TAKE" "PUT">
		      <REMOVE-OBJECT .W>)>)>
	<COND (.PI? <PUT .PRSVEC 3 .W>)
	      (T <PUT .PRSVEC 2 .W>)>
	<COND (<AND <VERB? "TAKE" "PUT">
		    <NOT .PI?>>
	       <COND (<AND .AV <OR <==? .AV <PRSI>>
				   <AND <EMPTY? <PRSI>>
					<N==? <OCAN .W> .AV>>>>
		      <TELL "There is now a puddle in the bottom of the "
			    1
			    <ODESC2 .AV>
			    ".">
		      <REMOVE-OBJECT <PRSO>>
		      <COND (<==? <OCAN <PRSO>> .AV>)
			    (<INSERT-INTO .AV <PRSO>>)>)
		     (<AND <NOT <EMPTY? <PRSI>>> <N==? <PRSI> .B>>
		      <TELL "The water leaks out of the " 1 <ODESC2 <PRSI>>
			    " and evaporates immediately.">
		      <REMOVE-OBJECT .W>)
		     (<MEMQ .B <AOBJS .ME>>
		      <COND (<NOT <TRNN .B ,OPENBIT>>
			     <TELL "The bottle is closed.">)
			    (<NOT <EMPTY? <OCONTENTS .B>>>)
			    (T
			     <REMOVE-OBJECT .RW>
			     <INSERT-INTO .B .RW>
			     <TELL "The bottle is now full of water.">)>)
		     (<AND <==? <OCAN <PRSO>> .B>
			   <VERB? "TAKE">
			   <EMPTY? <PRSI>>>
		      <PUT .PRSVEC 2 .B>
		      <TAKE T>
		      <PUT .PRSVEC 2 .W>)
		     (<TELL "The water slips through your fingers.">)>)
	      (.PI?
	       <TELL "Nice try.">)
	      (<VERB? "DROP" "POUR" "GIVE">
	       <REMOVE-OBJECT .RW>
	       <COND (.AV
		      <TELL "There is now a puddle in the bottom of the "
			    1
			    <ODESC2 .AV>
			    ".">
		      <INSERT-INTO .AV .RW>)
		     (<TELL "The water spills to the floor and evaporates immediately.">
	       	      <REMOVE-OBJECT .RW>)>)
	      (<VERB? "THROW">
	       <TELL "The water splashes on the walls, and evaporates immediately.">
	       <REMOVE-OBJECT .RW>)>>

\
; "SUBTITLE CYCLOPS"

<SETG CYCLOWRATH!-FLAG 0>

<DEFINE CYCLOPS ("AUX" (RM ,HERE) (CYC <SFIND-OBJ "CYCLO">)
		       (FOOD <SFIND-OBJ "FOOD">) (DRINK <SFIND-OBJ "WATER">)
		       (COUNT ,CYCLOWRATH!-FLAG))
	#DECL ((RM) ROOM (FOOD DRINK CYC) OBJECT (COUNT) FIX)
	<COND (,CYCLOPS-FLAG!-FLAG
	       <COND (<VERB? "WAKE" "KICK" "ATTAC" "BURN" "DESTR">
		      <TELL 
"The cyclops yawns and stares at the thing that woke him up.">
		      <SETG CYCLOPS-FLAG!-FLAG <>>
		      <TRZ .CYC ,SLEEPBIT>
		      <TRO .CYC ,FIGHTBIT>
		      <SETG CYCLOWRATH!-FLAG <ABS .COUNT>>)>)
	      (<VERB? "GIVE">
	       <COND (<==? <PRSO> .FOOD>
		      <COND (<G=? .COUNT 0>
			     <REMOVE-OBJECT .FOOD>
			     <TELL ,CYCLOFOOD ,LONG-TELL1>
			     <SETG CYCLOWRATH!-FLAG <MIN -1 <- .COUNT>>>)>
		      <CLOCK-INT ,CYCIN -1>)
		     (<==? <PRSO> .DRINK>
		      <COND (<L? .COUNT 0>
			     <REMOVE-OBJECT .DRINK>
			     <TRO .CYC ,SLEEPBIT>
			     <TRZ .CYC ,FIGHTBIT>
			     <TELL 
"The cyclops looks tired and quickly falls fast asleep (what did you
put in that drink, anyway?)."
				   ,LONG-TELL1>
			     <SETG CYCLOPS-FLAG!-FLAG T>)
			    (<TELL 
"The cyclops apparently is not thirsty and refuses your generosity.">
			     <>)>)
		     (<==? <PRSO> <SFIND-OBJ "GARLI">>
		      <TELL "The cyclops may be hungry, but there is a limit.">)
		     (<TELL "The cyclops is not so stupid as to eat THAT!">)>)
	      (<VERB? "KILL" "THROW" "ATTAC" "DESTR" "POKE">
	       <CLOCK-INT ,CYCIN -1>
	       <COND (<VERB? "POKE">
		      <TELL
"'Do you think I'm as stupid as my father was?', he says, dodging.">)
		     (<TELL 
"The cyclops ignores all injury to his body with a shrug.">)>)
	      (<VERB? "TAKE">
	       <TELL "The cyclops doesn't take kindly to being grabbed.">)
	      (<VERB? "TIE">
	       <TELL "You cannot tie the cyclops, though he is fit to be tied.">)
	      (<VERB? "C-INT">
	       <COND (<==? ,HERE <SFIND-ROOM "CYCLO">>
		      <COND (<G? <ABS .COUNT> 5>
			     <CLOCK-DISABLE ,CYCIN>
			     <JIGS-UP ,CYCLOKILL>)
			    (<SETG CYCLOWRATH!-FLAG <AOS-SOS .COUNT>>)>)
		     (<CLOCK-DISABLE ,CYCIN>)>)>>

<DEFINE CYCLOPS-ROOM ("AUX" (WRATH ,CYCLOWRATH!-FLAG))
	#DECL ((WRATH) FIX)
	<COND (<VERB? "LOOK">
	       <TELL 
"This room has an exit on the west side, and a staircase leading up.">
	       <COND (,MAGIC-FLAG!-FLAG
		      <TELL 
"The north wall, previously solid, now has a cyclops-sized hole in it.">)
		     (<AND ,CYCLOPS-FLAG!-FLAG
			   <TRNN <SFIND-OBJ "CYCLO"> ,SLEEPBIT>>
		      <TELL 
"The cyclops is sleeping blissfully at the foot of the stairs.">)
		     (<0? .WRATH> <TELL ,CYCLOLOOK>)
		     (<G? .WRATH 0> <TELL ,CYCLOEYE>)
		     (<L? .WRATH 0>
		      <TELL 
"The cyclops, having eaten the hot peppers, appears to be gasping.
His enflamed tongue protrudes from his man-sized mouth.">)>)
	      (<VERB? "GO-IN">
	       <OR <0? ,CYCLOWRATH!-FLAG> <CLOCK-ENABLE ,CYCIN>>)>>

<GDECL (CYCLOMAD) <VECTOR [REST STRING]>>

<DEFINE AOS-SOS (FOO)
  #DECL ((FOO) FIX)
  <COND (<L? .FOO 0> <SET FOO <- .FOO 1>>)
	(<SET FOO <+ .FOO 1>>)>
  <COND (,CYCLOPS-FLAG!-FLAG)
	(<TELL <NTH ,CYCLOMAD <ABS .FOO>>>)>
  .FOO>

\
; "SUBTITLE ECHO ECHO ECHO"

<SETG ECHO-FLAG!-FLAG <>>

<DEFINE ECHO-ROOM ("AUX" 
		   (B ,INBUF) L (RM <SFIND-ROOM "ECHO">) (OUTCHAN ,OUTCHAN)
		   (WALK <FIND-VERB "WALK">) (PRSVEC ,PRSVEC) V
		   (BUG <FIND-VERB "BUG">) (FEATURE <FIND-VERB "FEATU">)) 
	#DECL ((OUTCHAN) CHANNEL (WALK) VERB (PRSVEC) <VECTOR VERB [2 ANY]>
	       (B) STRING (L) FIX (RM) ROOM (V) <OR VECTOR FALSE>
	       (BUG FEATURE) VERB)
	<COND (<OR ,ECHO-FLAG!-FLAG
		   ,DEAD!-FLAG>)
	      (<UNWIND
		<PROG ()
		 <REPEAT (RANDOM-ACTION)
		       #DECL ((RANDOM-ACTION) <OR ATOM FALSE NOFFSET>)
		       <SET L
			    <READST .B "" <>>>
		       <SETG MOVES <+ ,MOVES 1>>
		       <COND (<AND <SET V <LEX .B <REST .B .L>>>
				   <EPARSE .V T>
				   <==? <PRSA> .WALK>
				   <NOT <EMPTY? <PRSO>>>
				   <MEMQ <2 .PRSVEC> <REXITS .RM>>>
			      <SET RANDOM-ACTION <VFCN <PRSA>>>
			      <APPLY-RANDOM .RANDOM-ACTION>
			      <RETURN T>)
			     (<==? <PRSA> .BUG>
			      <TELL "Feature">)
			     (<==? <PRSA> .FEATURE>
			      <TELL "That's right.">)
			     (<PRINTSTRING .B .OUTCHAN .L>
			      <SETG TELL-FLAG T>
			      <CRLF>
			      <COND (<==? <MEMBER "ECHO" <UPPERCASE .B>> .B>
				     <TELL "The acoustics of the room change subtly.">
				     <TRZ <SFIND-OBJ "BAR"> ,SACREDBIT>
				     <SETG ECHO-FLAG!-FLAG T>
				     <RETURN T>)>)>>>
		<PROG ()
		      <GOTO <SFIND-ROOM "CHAS3">>
		      <SETG MOVES <+ ,MOVES 1>>>>)>>

<SETG EGG-SOLVE!-FLAG <>>

\
; "SUBTITLE A SEEDY LOOKING GENTLEMAN..."

<DEFINE ROBBER ROBBER (HACK
		       "AUX" (RM <HROOM .HACK>) ROBJ
			     (SEEN? <RTRNN .RM ,RSEENBIT>) (WIN ,PLAYER) (WROOM ,HERE)
			     (HOBJ <HOBJ .HACK>) (STILL <SFIND-OBJ "STILL">) 
			     HERE? (HH <HOBJS .HACK>) (TREAS <SFIND-ROOM "TREAS">)
			     EGG LIT? (DEAD? ,DEAD!-FLAG))
   #DECL ((HACK) HACK (RM WROOM) ROOM (ROBJ HH) <LIST [REST OBJECT]>
	  (DEAD? SEEN? LIT?) <OR ATOM FALSE> (WIN) ADV (EGG HOBJ) OBJECT
	  (ROBBER) ACTIVATION
	  (HERE?) <OR ROOM FALSE> (STILL) OBJECT (TREAS) ROOM)
   <PROG ((ONCE <>) OBJT)
     #DECL ((ONCE) <OR ATOM FALSE> (OBJT) <LIST [REST OBJECT]>)
     <COND (<SET HERE? <OROOM .HOBJ>>
	    <SET RM .HERE?>)>
     <SET ROBJ <ROBJS .RM>>
     <SET OBJT .HH>
     <COND
      (<AND <==? .RM .TREAS>
	    <N==? .RM .WROOM>>
       <COND (.HERE?
	      <COND (<==? <OROOM .STILL> .TREAS>
		     <SNARF-OBJECT .HOBJ .STILL>)>
	      <REMOVE-OBJECT .HOBJ>
	      <MAPF <>
	        <FUNCTION (X) #DECL ((X) OBJECT)
		  <TRO .X ,OVISON>>
		<ROBJS .RM>>
	      <SET HERE? <>>)>
       <SET EGG <SFIND-OBJ "EGG">>
       <MAPF <>
	     <FUNCTION (X) 
		     #DECL ((X) OBJECT)
		     <COND (<G? <OTVAL .X> 0>
			    <PUT .HACK ,HOBJS <SET HH <SPLICE-OUT .X .HH>>>
			    <INSERT-OBJECT .X .RM>
			    <COND (<==? .X .EGG>
				   <SETG EGG-SOLVE!-FLAG T>
				   <TRO .X ,OPENBIT>)>)>>
	     .HH>)
      (<AND <==? .RM .WROOM>
	    <NOT <RTRNN .RM ,RLIGHTBIT>>> ;"Adventurer is in room:  CHOMP, CHOMP"
       <SET LIT? <LIT? .RM>>	; "We want to see if we left the loser in the dark."
       <COND
	(<AND <NOT .DEAD?> <==? .RM .TREAS>>)	; "Don't move, Gertrude"
        (<NOT <HFLAG .HACK>>
         <COND (<AND <NOT .DEAD?> <NOT .HERE?> <PROB 30>>
	        <COND (<==? <OCAN .STILL> .HOBJ>
		       <INSERT-OBJECT .HOBJ .RM>
		       <TELL 
"Someone carrying a large bag is casually leaning against one of the
walls here.  He does not speak, but it is clear from his aspect that
the bag will be taken only over his dead body." ,LONG-TELL1>
		       <PUT .HACK ,HFLAG T>
		       <RETURN T .ROBBER>)>)
	       (<AND .HERE?
		     <TRNN .HOBJ ,FIGHTBIT>
		     <COND (<NOT <WINNING? .HOBJ .WIN>>
			    <TELL
"Your opponent, determining discretion to be the better part of
valor, decides to terminate this little contretemps.  With a rueful
nod of his head, he steps backward into the gloom and disappears." ,LONG-TELL1>
			    <REMOVE-OBJECT .HOBJ>
			    <TRZ .HOBJ ,FIGHTBIT>
			    <SNARF-OBJECT .HOBJ .STILL>
			    <RETURN T .ROBBER>)
			   (<PROB 90>)>>)
	       (<AND .HERE? <PROB 30>>
	        <TELL 
"The holder of the large bag just left, looking disgusted. 
Fortunately, he took nothing.">
		<REMOVE-OBJECT .HOBJ>
		<SNARF-OBJECT .HOBJ .STILL>
	        <RETURN T .ROBBER>)
	       (<PROB 70> <RETURN T .ROBBER>)
	       (<NOT .DEAD?>
		<COND (<MEMQ .STILL <HOBJS .HACK>>
		       <PUT .HACK ,HOBJS <SPLICE-OUT .STILL <HOBJS .HACK>>>
		       <PUT .HOBJ ,OCONTENTS (.STILL)>
		       <PUT .STILL ,OCAN .HOBJ>)>
		<PUT .HACK ,HOBJS <SET HH <ROB-ROOM .RM .HH 100>>>
	        <PUT .HACK ,HOBJS <SET HH <ROB-ADV .WIN .HH>>>
	        <PUT .HACK ,HFLAG T>
	        <COND (<AND <N==? .OBJT .HH> <NOT .HERE?>>
		       <TELL 
"A seedy-looking individual with a large bag just wandered through
the room.  On the way through, he quietly abstracted all valuables
from the room and from your possession, mumbling something about
\"Doing unto others before..\"" ,LONG-TELL1>)
		      (.HERE?
		       <SNARF-OBJECT .HOBJ .STILL>
		       <COND (<N==? .OBJT .HH>
			      <TELL 
"The other occupant just left, still carrying his large bag.  You may
not have noticed that he robbed you blind first.">)
			     (<TELL 
"The other occupant (he of the large bag), finding nothing of value,
left disgusted.">)>
		       <REMOVE-OBJECT .HOBJ>
		       <SET HERE? <>>)
		      (T
		       <TELL 

"A 'lean and hungry' gentleman just wandered through, carrying a
large bag.  Finding nothing of value, he left disgruntled.">)>)>)
	(T
	 <COND (.HERE?			;"Here, already announced."
		<COND (<PROB 30>
		       <PUT .HACK ,HOBJS <SET HH <ROB-ROOM .RM .HH 100>>>
		       <PUT .HACK ,HOBJS <SET HH <ROB-ADV .WIN .HH>>>
		       <COND (<MEMQ <SFIND-OBJ "ROPE"> .HH>
			      <SETG DOME-FLAG!-FLAG <>>)>
		       <COND (<==? .OBJT .HH>
			      <TELL
"The other occupant (he of the large bag), finding nothing of value,
left disgusted.">)
			     (T
			      <TELL
"The other occupant just left, still carrying his large bag.  You may
not have noticed that he robbed you blind first.">)>
		       <REMOVE-OBJECT .HOBJ>
		       <SET HERE? <>>
		       <SNARF-OBJECT .HOBJ .STILL>)
		      (<RETURN T .ROBBER>)>)>)>
       <COND (<AND <NOT <LIT? .RM>>
		   .LIT?
		   <==? <AROOM .WIN> .RM>>
	      <TELL "The thief seems to have left you in the dark.">)>)
      (<AND <MEMQ .HOBJ <ROBJS .RM>>	;"Leave if victim left"
	    <SNARF-OBJECT .HOBJ .STILL>
	    <REMOVE-OBJECT .HOBJ>
	    <SET HERE? <>>>)
      (<AND <==? <OROOM .STILL> .RM>
	    <SNARF-OBJECT .HOBJ .STILL>
	    <>>)
      (.SEEN?				     ;"Hack the adventurer's belongings"
       <PUT .HACK ,HOBJS <SET HH <ROB-ROOM .RM .HH 75>>>
       <COND
	(<AND <==? <RDESC2 .RM> ,MAZEDESC> <==? <RDESC2 .WROOM> ,MAZEDESC>>
	 <MAPF <>
	       <FUNCTION (X) 
		       #DECL ((X) OBJECT)
		       <COND (<AND <TRNN .X ,TAKEBIT> <TRNN .X ,OVISON> <PROB 40>>
			      <TELL 
"You hear, off in the distance, someone saying \"My, I wonder what
this fine "		      3 <ODESC2 .X> " is doing here.\"">
			      <TELL "" 1>
			      <COND (<PROB 60 80>
				     <REMOVE-OBJECT .X>
				     <TRO .X ,TOUCHBIT>
				     <PUT .HACK ,HOBJS <SET HH (.X !.HH)>>)>
			      <MAPLEAVE>)>>
	       <ROBJS .RM>>)
	(<MAPF <>
	       <FUNCTION (X) 
		       #DECL ((X) OBJECT)
		       <COND (<AND <0? <OTVAL .X>>
				   <TRNN .X ,TAKEBIT>
				   <TRNN .X ,OVISON>
				   <PROB 20 40>>
			      <REMOVE-OBJECT .X>
			      <TRO .X ,TOUCHBIT>
			      <PUT .HACK ,HOBJS <SET HH (.X !.HH)>>
			      <COND (<==? .RM .WROOM>
				     <TELL "You suddenly notice that the "
					   1
					   <ODESC2 .X>
					   " vanished.">)>
			      <MAPLEAVE>)>>
	       <ROBJS .RM>>
	 <COND (<MEMQ <SFIND-OBJ "ROPE"> .HH>
		<SETG DOME-FLAG!-FLAG <>>)>)>)>
     <COND (<SET ONCE <NOT .ONCE>>		 ;"Move to next room, and hack."
	    <PROG ((ROOMS <HROOMS .HACK>))
	      #DECL ((ROOMS) <LIST [REST ROOM]>)
	      <SET RM <1 .ROOMS>>
	      <COND (<EMPTY? <SET ROOMS <REST .ROOMS>>>
		     <SET ROOMS ,ROOMS>)>
	      <COND (<OR <RTRNN .RM ,RSACREDBIT>
			 <RTRNN .RM ,RENDGAME>
			 <NOT <RTRNN .RM ,RLANDBIT>>>	;"Can I work here?"
		     <AGAIN>)>
	      <PUT .HACK ,HROOM .RM>
	      <PUT .HACK ,HFLAG <>>
	      <PUT .HACK ,HROOMS .ROOMS>
	      <SET SEEN? <RTRNN .RM ,RSEENBIT>>>
	    <AGAIN>)>>			      ;"Drop worthless cruft, sometimes"
   <OR <==? .RM .TREAS>
       <MAPF <>
	     <FUNCTION (X) 
		     #DECL ((X) OBJECT)
		     <COND (<AND <0? <OTVAL .X>> <PROB 30 70>>
			    <PUT .HACK ,HOBJS <SET HH <SPLICE-OUT .X .HH>>>
			    <INSERT-OBJECT .X .RM>
			    <AND <==? .RM .WROOM>
				 <TELL 
"The robber, rummaging through his bag, dropped a few items he found
valueless." >>)>>
	      .HH>>>

<DEFINE ROBBER-FUNCTION ("AUX" (DEM <GET-DEMON "THIEF">) (HERE ,HERE) (FLG <>)
			 ST (T <HOBJ .DEM>) (CHALI <SFIND-OBJ "CHALI">))
  #DECL ((DEM) HACK (T HOBJ ST CHALI) OBJECT (HERE) ROOM (FLG) <OR ATOM FALSE>)
  <COND (<VERB? "FGHT?">
	 <COND (<==? <OCAN <SET ST <SFIND-OBJ "STILL">>> .T> <>)
	       (<==? <OROOM .ST> .HERE>
		<SNARF-OBJECT .T .ST>
		<TELL
"The robber, somewhat surprised at this turn of events, nimbly
retrieves his stilletto.">
		T)>)
	(<VERB? "DEAD!">
	 <COND (<NOT <EMPTY? <HOBJS .DEM>>>
		<TELL "  His booty remains.">
		<MAPF <> <FUNCTION (X) #DECL ((X) OBJECT)
				   <INSERT-OBJECT .X .HERE>>
		      <HOBJS .DEM>>
		<PUT .DEM ,HOBJS ()>)>
	 <COND (<==? .HERE <SFIND-ROOM "TREAS">>
		<MAPF <>
		  <FUNCTION (X) #DECL ((X) OBJECT)
		    <COND (<AND <N==? .X .CHALI>
				<N==? .X .T>>
			   <COND (<TRO .X ,OVISON>
				  <COND (<NOT .FLG>
					 <SET FLG T>
					 <TELL
"As the thief dies, the power of his magic decreases, and his
treasures reappear:" 2>)>
				  <TELL "  A " 2 <ODESC2 .X>>
				  <COND (<AND <NOT <EMPTY? <OCONTENTS .X>>>
					      <SEE-INSIDE? .X>>
					 <TELL ", with ">
					 <PRINT-CONTENTS <OCONTENTS .X>>)>)>)>>
		  <ROBJS .HERE>>)>
	 <PUT .DEM ,HACTION <>>)
	(<VERB? "1ST?"> <PROB 20 75>)
	(<VERB? "OUT!">
	 <PUT .DEM ,HACTION <>>
	 <TRZ <SFIND-OBJ "STILL"> ,OVISON>
	 <ODESC1 .T ,ROBBER-U-DESC>)
	(<AND <VERB? "HELLO">
	      <==? <ODESC1 .T> ,ROBBER-U-DESC>>
	 <TELL
"The thief, being temporarily incapacitated, is unable to acknowledge
your greeting with his usual graciousness.">)
	(<VERB? "IN!">
	 <COND (<==? <HROOM .DEM> .HERE>
		<TELL
"The robber revives, briefly feigning continued unconsciousness, and
when he sees his moment, scrambles away from you.">)>
	 <COND (<TYPE? ,ROBBER NOFFSET> <PUT .DEM ,HACTION ,ROBBER>)
	       (<PUT .DEM ,HACTION ROBBER>)>
	 <ODESC1 .T ,ROBBER-C-DESC>
	 <TRO <SFIND-OBJ "STILL"> ,OVISON>)
	(<AND <==? <PRSO> <SFIND-OBJ "KNIFE">>
	      <VERB? "THROW">
	      <NOT <TRNN .T ,FIGHTBIT>>>
	 <COND (<PROB 10 0>
		<TELL
"You evidently frightened the robber, though you didn't hit him.  He
flees"		 1
		 <COND (<EMPTY? <HOBJS .DEM>>
		        ".")
		       (T
		        <MAPF <> <FUNCTION (X) #DECL ((X) OBJECT)
					   <INSERT-OBJECT .X .HERE>> <HOBJS .DEM>>
			<PUT .DEM ,HOBJS ()>
		        ", but the contents of his bag fall on the floor.")>>
		<REMOVE-OBJECT .T>)
	       (T
		<TELL
"You missed.  The thief makes no attempt to take the knife, though it
would be a fine addition to the collection in his bag.  He does seem
angered by your attempt." ,LONG-TELL1>
		<TRO .T ,FIGHTBIT>)>)
	(<AND <VERB? "THROW" "GIVE">
	      <NOT <EMPTY? <PRSO>>>
	      <N==? <PRSO> <HOBJ .DEM>>>
	 <COND (<L? <OSTRENGTH .T> 0>
		<OSTRENGTH .T <- <OSTRENGTH .T>>>
		<PUT .DEM ,HACTION <COND (<TYPE? ,ROBBER NOFFSET> ,ROBBER)
					 (ROBBER)>>
		<TRO <SFIND-OBJ "STILL"> ,OVISON>
		<ODESC1 .T ,ROBBER-C-DESC>
		<TELL
"Your proposed victim suddenly recovers consciousness.">)>
	 <COND (<BOMB? <PRSO>>
		; "I.e., he's trying to give us the brick with a lighted fuse."
		<TELL 
"The thief seems rather offended by your offer.  Do you think he's as
stupid as you are?">)
	       (<REMOVE-OBJECT <PRSO>>
		<PUT .DEM ,HOBJS (<PRSO> !<HOBJS .DEM>)>
		<COND (<G? <OTVAL <PRSO>> 0>
		       <SETG THIEF-ENGROSSED!-FLAG T>
		       <TELL
"The thief is taken aback by your unexpected generosity, but accepts
the " 1 <ODESC2 <PRSO>> " and stops to admire its beauty.">)
		      (<TELL
"The thief places the " 1 <ODESC2 <PRSO>> " in his bag and thanks
you politely.">)>)>)
	(<VERB? "TAKE">
	 <TELL
"Once you got him, what would you do with him?">)>>

<DEFINE BOMB? (O "AUX" BRICK FUSE F)
	#DECL ((O BRICK FUSE) OBJECT (F) <VECTOR ANY CEVENT>)
	<AND <==? .O <SET BRICK <SFIND-OBJ "BRICK">>>
	     <==? <OCAN <SET FUSE <SFIND-OBJ "FUSE">>> .BRICK>
	     <SET F <OLINT .FUSE>>
	     <NOT <0? <CTICK <2 .F>>>>>>

<DEFINE CHALICE ("AUX" TR T)
	#DECL ((TR) ROOM (T) OBJECT)
	<COND (<VERB? "TAKE">
	       <COND (<AND <NOT <OCAN <PRSO>>>
			   <==? <OROOM <PRSO>> <SET TR <SFIND-ROOM "TREAS">>>
			   <==? <OROOM <SET T <SFIND-OBJ "THIEF">>> .TR>
			   <TRNN .T ,FIGHTBIT>
			   <HACTION ,ROBBER-DEMON>
			   <N==? <ODESC1 .T> ,ROBBER-U-DESC>>
		      <TELL
"Realizing just in time that you'd be stabbed in the back if you
attempted to take the chalice, you return to the fray.">)>)>>

<DEFINE TREASURE-ROOM ("AUX" (HACK ,ROBBER-DEMON) (HOBJ <HOBJ .HACK>)
		       (FLG <>) TL (HERE ,HERE) (ROOMS ,ROOMS))
  #DECL ((HACK) HACK (HOBJ) OBJECT (FLG) <OR ATOM FALSE>
	 (TL ROOMS) <LIST [REST ROOM]> (HERE) ROOM)
  <COND (<AND <HACTION .HACK>
	      <VERB? "GO-IN">>
	 <COND (<SET FLG <N==? <OROOM .HOBJ> .HERE>>
		<TELL
"You hear a scream of anguish as you violate the robber's hideaway. 
Using passages unknown to you, he rushes to its defense.">
		<COND (<OROOM .HOBJ>
		       <REMOVE-OBJECT .HOBJ>)>
		<TRO .HOBJ ,FIGHTBIT>
		<PUT .HACK ,HROOM .HERE>
		<PUT .HACK ,HROOMS <COND (<EMPTY? <SET TL <REST <MEMQ .HERE .ROOMS>>>>
					  .ROOMS)
					 (.TL)>>
		<INSERT-OBJECT .HOBJ .HERE>)
	       (T
		<TRO .HOBJ ,FIGHTBIT>)>
	 <THIEF-IN-TREASURE .HOBJ>)>>

<DEFINE THIEF-IN-TREASURE (HOBJ "AUX" (CHALI <SFIND-OBJ "CHALI">) (HERE ,HERE))
  #DECL ((CHALI) OBJECT (HERE) ROOM)
  <COND (<NOT <LENGTH? <ROBJS .HERE> 2>>
	 <TELL
"The thief gestures mysteriously, and the treasures in the room
suddenly vanish.">)>
  <MAPF <>
	<FUNCTION (X) #DECL ((X) OBJECT)
		  <COND (<AND <N==? .X .CHALI>
			      <N==? .X .HOBJ>>
			 <TRZ .X ,OVISON>)>>
	<ROBJS .HERE>>>

<DEFINE TREAS ("AUX" (HERE ,HERE)) 
	#DECL ((HERE) ROOM)
	<COND (<AND <VERB? "TREAS">
		    <==? .HERE <SFIND-ROOM "TEMP1">>>
	       <GOTO <SFIND-ROOM "TREAS">>
	       <ROOM-INFO>)
	      (<AND <VERB? "TEMPL">
		    <==? .HERE <SFIND-ROOM "TREAS">>>
	       <GOTO <SFIND-ROOM "TEMP1">>
	       <ROOM-INFO>)
	      (T <TELL "Nothing happens.">)>>

\

; "SUBTITLE RANDOM VERBS"

<DEFINE SINBAD ("AUX" (C <SFIND-OBJ "CYCLO">))
    #DECL ((C) OBJECT)
    <COND (<AND <==? ,HERE <SFIND-ROOM "CYCLO">>
		<MEMQ .C <ROBJS ,HERE>>>
	   <SETG CYCLOPS-FLAG!-FLAG T>
	   <TELL
"The cyclops, hearing the name of his father's deadly nemesis, flees the room
by knocking down the wall on the north of the room.">
	   <SETG MAGIC-FLAG!-FLAG T>
	   <TRZ .C ,FIGHTBIT>
	   <REMOVE-OBJECT .C>)
	  (<TELL 
"Wasn't he a sailor?">)>>

<DEFINE GRANITE ("AUX" (HERE ,HERE))
    #DECL ((HERE) ROOM)
    <COND (<VERB? "FIND">
	   <COND (<OR <==? .HERE <SFIND-ROOM "TEMP1">>
		      <==? .HERE <SFIND-ROOM "TREAS">>>
		  <TELL "The north wall is solid granite here.">)
		 (<TELL "There is no granite wall here.">)>)
	  (<TELL "I see no granite wall here.">)>>

<GDECL (DUMMY) <VECTOR [REST STRING]>>

<DEFINE BRUSH ("AUX")
    <COND (<==? <PRSO> <SFIND-OBJ "TEETH">>
	   <COND (<AND <==? <PRSI> <SFIND-OBJ "PUTTY">>
		       <MEMQ <PRSI> <AOBJS ,WINNER>>>
		  <JIGS-UP
"Well, you seem to have been brushing your teeth with some sort of
glue. As a result, your mouth gets glued together (with your nose)
and you die of respiratory failure.">)
		 (<EMPTY? <PRSI>>
		  <TELL
"Dental hygiene is highly recommended, but I'm not sure what you want
to brush them with.">)
		 (<TELL
"A nice idea, but with a " 1 <ODESC2 <PRSI>> "?">)>)
	  (<TELL
"If you wish, but I can't understand why??">)>>

<DEFINE LEAVE ("AUX" (PV ,PRSVEC))
    #DECL ((PV) VECTOR)
    <PUT .PV 2 <FIND-DIR "EXIT">>
    <PUT .PV 1 <FIND-VERB "WALK">>
    <WALK>>

<DEFINE ADVENT ()
    <TELL "A hollow voice says 'Cretin'">>

<DEFINE RING ()
    <COND (<OBJECT-ACTION>)
	  (<==? <PRSO> <SFIND-OBJ "BELL">>
	   <TELL
"Ding, dong.">)
	  (<TELL
"How, exactly, can I ring that?">)>>

<DEFINE EAT ("AUX" (EAT? <>) (DRINK? <>)
	     (NOBJ <>) (AOBJS <AOBJS ,WINNER>))
    #DECL ((NOBJ) <OR OBJECT FALSE> (AOBJS) <LIST [REST OBJECT]>
	   (EAT? DRINK?) <OR ATOM FALSE>)
    <COND (<OBJECT-ACTION>)
	  (<AND <SET EAT? <TRNN <PRSO> ,FOODBIT>> <MEMQ <PRSO> .AOBJS>>
	   <COND (<VERB? "DRINK">
		  <TELL "How can I drink that?">)
		 (<TELL
"Thank you very much.  It really hit the spot.">
		  <REMOVE-OBJECT <PRSO>>)>)
	  (<SET DRINK? <TRNN <PRSO> ,DRINKBIT>>
	   <COND (<OR <NOT <0? <OGLOBAL <PRSO>>>>
		      <AND <SET NOBJ <OCAN <PRSO>>>
			   <MEMQ .NOBJ .AOBJS>
			   <TRNN .NOBJ ,OPENBIT>>>
		  <TELL
"Thank you very much.  I was rather thirsty (from all this talking,
probably).">
		  <COND (.NOBJ <REMOVE-FROM .NOBJ <PRSO>>)>)
		 (<TELL
"I'd like to, but I can't get to it.">)>)
	  (<NOT <OR .EAT? .DRINK?>>
	   <TELL
"I don't think that the " 1 <ODESC2 <PRSO>> " would agree with you.">)
	  (<TELL
"I think you should get that first.">)>>

<DEFINE JARGON ()
    <TELL "Well, FOO, BAR, and BLETCH to you too!">>

<DEFINE CURSES ()
    <TELL <PICK-ONE ,OFFENDED>>>

<GDECL (OFFENDED) <VECTOR [REST STRING]>>

<DEFINE PRAYER () 
  <COND (<AND <==? ,HERE <SFIND-ROOM "TEMP2">>
	      <GOTO <SFIND-ROOM "FORE1">>>
	 <ROOM-DESC>)
	(<TELL
"If you pray enough, your prayers may be answered.">)>>

<DEFINE LEAPER ("AUX" (RM ,HERE) (EXITS <REXITS .RM>) M)
   #DECL ((RM) ROOM (EXITS) EXIT (M) <OR VECTOR FALSE>)
   <COND (<NOT <EMPTY? <PRSO>>>
	  <COND (<MEMQ <PRSO> <ROBJS .RM>>
		 <COND (<TRNN <PRSO> ,VILLAIN>
			<TELL "The " 1 <ODESC2 <PRSO>> " is too big to jump over.">)
		       (<TELL <PICK-ONE ,WHEEEEE>>)>)
		(<TELL "That would be a good trick.">)>)
	 (<SET M <MEMQ <FIND-DIR "DOWN"> .EXITS>>
	  <COND (<OR <TYPE? <2 .M> NEXIT>
		     <AND <TYPE? <2 .M> CEXIT>
			  <NOT <CXFLAG <2 .M>>>>>
		 <JIGS-UP <PICK-ONE ,JUMPLOSS>>)>)
	 (<TELL <PICK-ONE ,WHEEEEE>>)>>

<DEFINE SKIPPER ()
    <TELL <PICK-ONE ,WHEEEEE>>>

<SETG HS 0>
<GDECL (HS) FIX>

<DEFINE HELLO ("AUX" AMT)
    #DECL ((AMT) FIX)
    <COND (<NOT <EMPTY? <PRSO>>>
	   <COND (<==? <PRSO> <SFIND-OBJ "SAILO">>
		  <SET AMT <SETG HS <+ ,HS 1>>>
		  <COND (<0? <MOD .AMT 20>>
			 <TELL
"You seem to be repeating yourself.">)
			(<0? <MOD .AMT 10>>
			 <TELL
"I think that phrase is getting a bit worn out.">)
			(<TELL 
"Nothing happens here.">)>)
		 (<==? <PRSO> <SFIND-OBJ "AVIAT">>
		  <TELL "Here, nothing happens.">)
		 (<OBJECT-ACTION>)
		 (<TRNN <PRSO> ,VILLAIN>
		  <TELL "The " 1 <ODESC2 <PRSO>> " bows his head to you in greeting.">)
		 (<TELL
"I think that only schizophrenics say 'Hello' to a " 1 <ODESC2 <PRSO>> ".">)>)
	  (<TELL <PICK-ONE ,HELLOS>>)>>

<GDECL (HELLOS WHEEEEE JUMPLOSS) <VECTOR [REST STRING]>>

<DEFINE READER ()
    <COND (<NOT <LIT? ,HERE>>
	   <TELL "It is impossible to read in the dark.">)
	  (<AND <NOT <EMPTY? <PRSI>>> <NOT <TRNN <PRSI> ,TRANSBIT>>>
	   <TELL "How does one look through a " 1 <ODESC2 <PRSI>> "?">)
	  (<OBJECT-ACTION>)
	  (<NOT <TRNN <PRSO> ,READBIT>>
	   <TELL "How can I read a " 1 <ODESC2 <PRSO>> "?">)
	  (<TELL <OREAD <PRSO>> ,LONG-TELL1>)>>

<DEFINE LOOK-INSIDE ("AUX" (OD <ODESC2 <PRSO>>))
	#DECL ((OD) STRING)
	<COND (<OBJECT-ACTION>)
	      (<TRNN <PRSO> ,DOORBIT>
	       <COND (<TRNN <PRSO> ,OPENBIT>
		      <TELL
"The " 1 .OD " is open, but I can't tell what's beyond it.">)
		     (<TELL "The " 1 .OD " is closed.">)>)
	      (<TRNN <PRSO> ,CONTBIT>
	       <COND (<SEE-INSIDE? <PRSO>>
		      <COND (<NOT <EMPTY? <OCONTENTS <PRSO>>>>
			     <PRINT-CONT <PRSO>
					 <AVEHICLE ,WINNER>
					 <SFIND-OBJ "#####">
					 ,INDENTSTR>)
			    (<TELL "The " 1 .OD " is empty.">)>)
		     (<TELL "The " 1 .OD " is closed.">)>)
	      (<TELL "I don't know how to look inside a " 1 .OD ".">)>>

<DEFINE LOOK-UNDER ()
    <COND (<OBJECT-ACTION>)
	  (<TELL "There is nothing interesting there.">)>>

<DEFINE REPENT ()
    <TELL "It could very well be too late!">>

<DEFINE BURNER ()
     <COND (<FLAMING? <PRSI>>
	    <COND (<OBJECT-ACTION>)
		  (<==? <OCAN <PRSO>> <SFIND-OBJ "RECEP">>
		   <BALLOON-BURN>)
		  (<AND <TRNN <PRSO> ,BURNBIT>
			<COND (<MEMQ <PRSO> <AOBJS ,WINNER>>
			       <TELL
"The " 1 <ODESC2 <PRSO>> " catches fire.">
			       <REMOVE-OBJECT <PRSO>>
			       <JIGS-UP 
"Unfortunately, you were holding it at the time.">)
			      (<HACKABLE? <PRSO> ,HERE>
			       <TELL
"The " 1 <ODESC2 <PRSO>> " catches fire and is consumed.">
			       <REMOVE-OBJECT <PRSO>>)
			      (<TELL "You don't have that.">)>>)
		  (<TELL 
"I don't think you can burn a " 1 <ODESC2 <PRSO>> ".">)>)
	   (<TELL
"With a " 1 <ODESC2 <PRSI>> "??!?">)>>  

<DEFINE TURNER ()
    <COND (<TRNN <PRSO> ,TURNBIT>
	   <COND (<TRNN <PRSI> ,TOOLBIT>
		  <OBJECT-ACTION>)
		 (<TELL
"You certainly can't turn it with a " 1 <ODESC2 <PRSI>> ".">)>)
	  (<TELL
"You can't turn that!">)>>

<GDECL (DOORMUNGS) <VECTOR [REST STRING]>>

<DEFINE DDOOR-FUNCTION ()
    <COND (<VERB? "OPEN">
	   <TELL
"The door cannot be opened.">)
	  (<VERB? "BURN">
	   <TELL
"You cannot burn this door.">)
	  (<VERB? "MUNG">
	   <TELL <PICK-ONE ,DOORMUNGS>>)>>

<DEFINE PUMPER ("AUX" (P <SFIND-OBJ "PUMP">))
  <COND (<OR <IN-ROOM? .P>
	     <MEMQ .P <AOBJS ,WINNER>>>
	 <PUT ,PRSVEC 3 <SFIND-OBJ "PUMP">>
	 <PUT ,PRSVEC 1 <FIND-VERB "INFLA">>
	 <INFLATER>)
	(<TELL "I really don't see how.">)>>

 <DEFINE INFLATER ()
    <COND (<OBJECT-ACTION>)
	  (<TELL "How can you inflate that?">)>>

<DEFINE DEFLATER ()
    <COND (<OBJECT-ACTION>)
	  (<TELL "Come on, now!">)>>

<DEFINE LOCKER ()
    <COND (<OBJECT-ACTION>)
	  (<AND <==? <PRSO> <SFIND-OBJ "GRATE">>
		<==? ,HERE <SFIND-ROOM "MGRAT">>>
	   <SETG GRUNLOCK!-FLAG <>>
	   <TELL "The grate is locked.">
	   <DPUT "The grate is locked.">)
	  (<TELL "It doesn't seem to work.">)>>

<DEFINE DPUT (STR)
    #DECL ((STR) STRING)
    <MAPF <>
	  <FUNCTION (X)
		    #DECL ((X) <OR DIRECTION DOOR CEXIT NEXIT ROOM>)
		    <COND (<AND <TYPE? .X DOOR>
				<==? <DOBJ .X> <PRSO>>>
			   <PUT .X ,DSTR .STR>
			   <MAPLEAVE>)>>
	  <REXITS ,HERE>>>

<DEFINE UNLOCKER ("AUX" (R <SFIND-ROOM "MGRAT">))
    #DECL ((R) ROOM)
    <COND (<OBJECT-ACTION>)
	  (<AND <==? <PRSO> <SFIND-OBJ "GRATE">>
		<==? ,HERE <SFIND-ROOM "MGRAT">>>
	   <COND (<==? <PRSI> <SFIND-OBJ "KEYS">>
		  <SETG GRUNLOCK!-FLAG T>
		  <TELL "The grate is unlocked.">
		  <DPUT "The grate is closed.">)
		 (<TELL "Can you unlock a grating with a " 1 <ODESC2 <PRSI>> "?">)>)
	  (<TELL "It doesn't seem to work.">)>>

<DEFINE KILLER ("OPTIONAL" (STR "kill"))
	#DECL ((STR) STRING)
	<COND (<OBJECT-ACTION>)
	      (<EMPTY? <PRSO>>
	       <TELL "There is nothing here to " 1 .STR ".">)
	      (<NOT <TRNN <PRSO> ,VILLAIN>>
	       <COND (<TRNN <PRSO> ,VICBIT>)
		     (<TELL 
"I've known strange people, but fighting a " 1 <ODESC2 <PRSO>> "?">)>)
	      (<EMPTY? <PRSI>>
	       <TELL "Trying to " 0 .STR>
	       <TELL " a " 1 <ODESC2 <PRSO>> " with your bare hands is suicidal.">)
	      (<NOT <TRNN <PRSI> ,WEAPONBIT>>
	       <TELL "Trying to " 0 .STR>
	       <TELL " a " 0 <ODESC2 <PRSO>> " with a ">
	       <TELL <ODESC2 <PRSI>> 1 " is suicidal.">) 
	      (ELSE
	       <BLOW ,PLAYER <PRSO> <OFMSGS <PRSI>> T <>>)>>

<DEFINE ATTACKER () <KILLER "attack">>

<DEFINE SWINGER ()
	<PERFORM ATTACKER <FIND-VERB "ATTAC"> <PRSI> <PRSO>>>

<DEFINE HACK-HACK (OBJ STR "OPTIONAL" (OBJ2 <>))
    #DECL ((OBJ) OBJECT (STR) STRING (OBJ2) <OR FALSE STRING>)
    <COND (<OBJECT-ACTION>)
	  (.OBJ2
	   <TELL .STR 0 <ODESC2 .OBJ> " with a ">
	   <TELL .OBJ2 1 <PICK-ONE ,HO-HUM>>)
	  (ELSE
	   <TELL .STR 1 <ODESC2 .OBJ> <PICK-ONE ,HO-HUM>>)>>

<GDECL (HO-HUM) <VECTOR [REST STRING]>>

<DEFINE MUNGER ()
    <COND (<TRNN <PRSO> ,VILLAIN>
	   <COND (<NOT <EMPTY? <PRSI>>>
		  <COND (<OBJECT-ACTION>)
			(<TRNN <PRSI> ,WEAPONBIT>
			 <BLOW ,PLAYER <PRSO> <OFMSGS <PRSI>> T <>>)
			(T
			 <TELL "Trying to destroy a " 0 <ODESC2 <PRSO>> " with a ">
			 <TELL <ODESC2 <PRSI>> 1 " is quite self-destructive.">)>)
		 (T
		  <TELL "Trying to destroy a " 1 <ODESC2 <PRSO>> " with your bare hands is suicidal.">)>)
	  (<HACK-HACK <PRSO> "Trying to destroy a ">)>>

<DEFINE KICKER ()
    <HACK-HACK <PRSO> "Kicking a ">>

<DEFINE WAVER ()
    <HACK-HACK <PRSO> "Waving a ">>

<DEFINE R/L ()
    <HACK-HACK <PRSO> "Playing in this way with a ">>

<DEFINE RUBBER ()
    <HACK-HACK <PRSO> "Fiddling with a ">>

<DEFINE EXORCISE ()
    <COND (<OBJECT-ACTION>) (T)>>
	  
<DEFINE PLUGGER ()
    <COND (<OBJECT-ACTION>)
	  (<TELL "This has no effect.">)>>

<DEFINE UNTIE ()
    <COND (<OBJECT-ACTION>)
	  (<TRNN <PRSO> ,TIEBIT>
	   <TELL "I don't think so.">)
	  (<TELL "This cannot be tied, so it cannot be untied!">)>>

<DEFINE PUSHER ()
    <COND (<OBJECT-ACTION>)
	  (<HACK-HACK <PRSO> "Pushing the ">)>>

<DEFINE TIE ()
    <COND (<TRNN <PRSO> ,TIEBIT>
	   <COND (<OBJECT-ACTION>)
		 (<==? <PRSI> <SFIND-OBJ "#####">>
		  <TELL "You can't tie the rope to yourself.">)
		 (<TELL "You can't tie the " 1 <ODESC2 <PRSO>> " to that.">)>)
	  (<TELL "How can you tie that to anything.">)>>

<DEFINE TIE-UP ()
    <COND (<TRNN <PRSI> ,TIEBIT>
	   <COND (<TRNN <PRSO> ,VILLAIN>
		  <TELL "The "
			1
			<ODESC2 <PRSO>>
			" struggles and you cannot tie him up.">)
		 (<TELL "Why would you tie up a " 1 <ODESC2 <PRSO>> "?">)>)
	  (<TELL "You could certainly never tie it with that!">)>>

<DEFINE MELTER ()
    <COND (<OBJECT-ACTION>)
	  (<TELL "I'm not sure that a " 1 <ODESC2 <PRSO>> " can be melted.">)>>

<DEFINE MUMBLER ()
    <TELL "You'll have to speak up if you expect me to hear you!">>

<DEFINE ALARM ()
    <COND (<TRNN <PRSO> ,SLEEPBIT>
	   <OBJECT-ACTION>)
	  (<TELL "The " 1 <ODESC2 <PRSO>> " isn't sleeping.">)>>

<DEFINE DUNGEON ()
    <TELL "That word is replaced henceforth with ZORK.">>

<DEFINE ZORK ()
    <TELL "At your service!">>

\
; "SUBTITLE RANDOM FUNCTIONS"

<SETG ON-POLE!-FLAG <>>

<DEFINE BODY-FUNCTION ()
    <COND (<VERB? "TAKE">
	   <TELL "A force keeps you from taking the bodies.">)
	  (<VERB? "MUNG" "BURN">
	   <COND (,ON-POLE!-FLAG)
		 (<SETG ON-POLE!-FLAG T>
		  <INSERT-OBJECT <SFIND-OBJ "HPOLE"> <SFIND-ROOM "LLD2">>)>
	   <JIGS-UP 
"The voice of the guardian of the dungeon booms out from the darkness 
'Your disrespect costs you your life!' and places your head on a pole.">)>>

<DEFINE BLACK-BOOK ()
  <COND (<VERB? "OPEN">
	 <TELL
"The book is already open to page 569.">)
	(<VERB? "CLOSE">
	 <TELL
"As hard as you try, the book cannot be closed.">)
	(<VERB? "BURN">
	 <REMOVE-OBJECT <PRSO>>
	 <JIGS-UP
"A booming voice says 'Wrong, cretin!' and you notice that you have
turned into a pile of dust.">)>>

<DEFINE PAINTING ()
    <COND (<VERB? "MUNG">
	   <OTVAL <PRSO> 0>
	   <PUT <PRSO> ,ODESC2 "worthless piece of canvas">
	   <ODESC1 <PRSO> "There is a worthless piece of canvas here.">
	   <TELL
"Congratulations!  Unlike the other vandals, who merely stole the
artist's masterpieces, you have destroyed one.">)>>

\

; "SUBTITLE LET THERE BE LIGHT SOURCES"

<PSETG DIMMER "The lamp appears to be getting dimmer.">

<PSETG LAMP-TICKS [50 30 20 10 4 0]>

<PSETG LAMP-TELLS [,DIMMER ,DIMMER ,DIMMER ,DIMMER "The lamp is dying."]>

<DEFINE LANTERN ("AUX" (HERE ,HERE) (RLAMP <SFIND-OBJ "LAMP">) FOO)
	#DECL ((HERE) ROOM (RLAMP) OBJECT (FOO) <VECTOR ANY CEVENT>)
	<COND (<VERB? "THROW">
	       <TELL 
"The lamp has smashed into the floor and the light has gone out.">
	       <CLOCK-DISABLE <2 <SET FOO <OLINT .RLAMP>>>>
	       <REMOVE-OBJECT <SFIND-OBJ "LAMP">>
	       <INSERT-OBJECT <SFIND-OBJ "BLAMP"> .HERE>)
	      (<VERB? "C-INT">
	       <LIGHT-INT .RLAMP ,LNTIN ,LAMP-TICKS ,LAMP-TELLS>)
	      (<VERB? "TRNON" "LIGHT">
	       <CLOCK-ENABLE <2 <SET FOO <OLINT .RLAMP>>>>
	       <>)
	      (<VERB? "TRNOF">
	       <CLOCK-DISABLE <2 <SET FOO <OLINT .RLAMP>>>>
	       <>)>>

<PSETG CDIMMER "The candles grow shorter.">

<PSETG CANDLE-TICKS [20 10 5 0]>

<PSETG CANDLE-TELLS [,CDIMMER ,CDIMMER "The candles are very short."]>

<DEFINE MATCH-FUNCTION ("AUX" (MATCH <SFIND-OBJ "MATCH">) (MC <OMATCH .MATCH>))
    #DECL ((MATCH) OBJECT (MC) FIX)
    <COND (<AND <VERB? "LIGHT"> <==? <PRSO> .MATCH>>
	   <COND (<AND <OMATCH .MATCH <SET MC <- .MC 1>>>
		       <L? .MC 0>>
		  <TELL "I'm afraid that you have run out of matches.">)
		 (<TRO .MATCH <+ ,FLAMEBIT ,LIGHTBIT ,ONBIT>>
		  <CLOCK-INT ,MATIN 2>
		  <TELL "One of the matches starts to burn.">)>)
	  (<AND <VERB? "TRNOF"> <TRNN .MATCH ,LIGHTBIT>>
	   <TELL "The match is out.">
	   <TRZ .MATCH <+ ,FLAMEBIT ,LIGHTBIT ,ONBIT>>
	   <CLOCK-INT ,MATIN 0>
	   T)
	  (<VERB? "C-INT">
	   <TELL "The match has gone out.">
	   <TRZ .MATCH <+ ,FLAMEBIT ,LIGHTBIT ,ONBIT>>)>>

<DEFINE CANDLES ("AUX" (C <SFIND-OBJ "CANDL">) MATCH FOO)
	#DECL ((PRSA) VERB (MATCH C) OBJECT (W) <OR FALSE OBJECT>
	       (FOO) <VECTOR FIX CEVENT>)
	<COND
	 (<==? .C <PRSI>> <>)
	 (ELSE
	  <SET FOO <OLINT .C>>
	  <COND (<AND <VERB? "TAKE">
		      <TRNN .C ,ONBIT>>
		 <CLOCK-ENABLE <2 .FOO>>
		 <>)
		(<VERB? "TRNON" "BURN" "LIGHT">
		 <COND (<NOT <TRNN .C ,LIGHTBIT>>
			<TELL
"Alas, there's not much left of the candles.  Certainly not enough to
burn.">)
		       (<EMPTY? <PRSI>>
			<TELL "With what?">
			<ORPHAN T
				<FIND-ACTION "LIGHT">
				.C
				<PLOOKUP "WITH" ,WORDS-POBL>>
			<SETG PARSE-WON <>>
			T)
		       (<AND <==? <PRSI> <SET MATCH <SFIND-OBJ "MATCH">>>
			     <TRNN .MATCH ,ONBIT>>
			<COND (<TRNN .C ,ONBIT>
			       <TELL "The candles are already lighted.">)
			      (<TRO .C ,ONBIT>
			       <TELL "The candles are lighted.">
			       <CLOCK-ENABLE <2 .FOO>>)>)
		       (<==? <PRSI> <SFIND-OBJ "TORCH">>
			<COND (<TRNN .C ,ONBIT>
			       <TELL 
"You realize, just in time, that the candles are already lighted.">)
			      (<TELL 
"The heat from the torch is so intense that the candles are vaporised.">
			       <REMOVE-OBJECT .C>)>)
		       (<TELL
"You have to light them with something that's burning, you know.">)>)
		(<VERB? "TRNOF">
		 <CLOCK-DISABLE <2 .FOO>>
		 <COND (<TRNN .C ,ONBIT>
			<TELL "The flame is extinguished.">
			<TRZ .C ,ONBIT>)
		       (<TELL "The candles are not lighted.">)>)
		(<VERB? "C-INT">
		 <LIGHT-INT .C ,CNDIN ,CANDLE-TICKS ,CANDLE-TELLS>)>)>>

<DEFINE LIGHT-INT (OBJ CEV TICK TELL "AUX" CNT TIM (FOO <OLINT .OBJ>))
    #DECL ((OBJ) OBJECT (FCN) APPLICABLE (TICK) <VECTOR [REST FIX]> (CEV) CEVENT
	    (TELL) <VECTOR [REST STRING]> (TIM CNT) FIX (FOO) <VECTOR FIX CEVENT>)
    <PUT .FOO 1 <SET CNT <+ <1 .FOO> 1>>>
    <CLOCK-INT .CEV <SET TIM <NTH .TICK .CNT>>>
    <COND (<0? .TIM>
 	   <COND (<OR <NOT <OROOM .OBJ>> <==? <OROOM .OBJ> ,HERE>>
		  <TELL "I hope you have more light than from a " 1 <ODESC2 .OBJ> ".">)>
	   <TRZ .OBJ <+ ,LIGHTBIT ,ONBIT>>)
	  (<OR <NOT <OROOM .OBJ>>
	       <==? <OROOM .OBJ> ,HERE>>
	   <TELL <NTH .TELL .CNT>>)>>

<DEFINE CAVE2-ROOM ("AUX" FOO BAR C)
  #DECL ((FOO) <VECTOR FIX CEVENT> (BAR) CEVENT (C) OBJECT)
  <COND (<VERB? "GO-IN">
	 <COND (<AND <MEMQ <SET C <SFIND-OBJ "CANDL">> <AOBJS ,WINNER>>
		     <PROB 50 80>
		     <TRNN .C ,ONBIT>>
		<CLOCK-DISABLE <SET BAR <2 <SET FOO <OLINT .C>>>>>
		<TRZ .C ,ONBIT>
		<TELL 
"The cave is very windy at the moment and your candles have blown out.">
		<COND (<NOT <LIT? ,HERE>>
		       <TELL "It is now completely dark.">)>)>)>>

\

; "SUBTITLE ASSORTED WEAPONS"

<DEFINE SWORD-GLOW (DEM
		    "AUX" (SW <HOBJ .DEM>) (G <OTVAL .SW>) (HERE ,HERE) (NG 0))
   #DECL ((DEM) HACK (SW) OBJECT (NG G) FIX (HERE) ROOM)
   <COND (<AND <NOT <OROOM .SW>> <NOT <OCAN .SW>>
	       <MEMQ .SW <AOBJS ,PLAYER>>>
	  <COND (<INFESTED? .HERE> <SET NG 2>)
		(<MAPF <>
		       <FUNCTION (E) 
				 #DECL ((E) <OR ROOM CEXIT DOOR NEXIT ATOM>)
				 <COND (<TYPE? .E ROOM>
					<AND <INFESTED? .E> <MAPLEAVE T>>)
				       (<TYPE? .E CEXIT>
					<AND <INFESTED? <2 .E>> <MAPLEAVE T>>)
				       (<TYPE? .E DOOR>
					<AND <INFESTED? <GET-DOOR-ROOM .HERE .E>>
					     <MAPLEAVE T>>)>>
		       <REXITS .HERE>>
		 <SET NG 1>)>
	  <COND (<==? .NG .G>)
		(<==? .NG 2> <TELL "Your sword has begun to glow very brightly.">)
		(<1? .NG> <TELL "Your sword is glowing with a faint blue glow.">)
		(<0? .NG> <TELL "Your sword is no longer glowing.">)>
	  <OTVAL .SW .NG>)
	 (<PUT .DEM ,HACTION <>>)>>

<DEFINE SWORD ()
	<COND (<AND <VERB? "TAKE">
		    <==? ,WINNER ,PLAYER>>
	       <PUT ,SWORD-DEMON ,HACTION <COND (<TYPE? ,SWORD-GLOW NOFFSET>
						 ,SWORD-GLOW)
						(SWORD-GLOW)>>
	       <>)>>

<DEFINE INFESTED? (R "AUX" (VILLAINS ,VILLAINS) (DEM <GET-DEMON "THIEF">)) 
	#DECL ((R) ROOM (VILLAINS) <LIST [REST OBJECT]> (DEM) HACK)
	<OR <AND ,END-GAME!-FLAG <EG-INFESTED? .R>>
	    <AND <==? .R <HROOM .DEM>>
		 <HACTION .DEM>>
	    <MAPF <>
		  <FUNCTION (V) 
			  #DECL ((V) OBJECT)
			  <COND (<==? .R <OROOM .V>> <MAPLEAVE T>)>>
		  .VILLAINS>>>