events.zap

	.FUNCT	I-LANTERN,V
	CALL2	VISIBLE?,LANTERN >V
	DLESS?	'LAMP-LIFE,1 \?CCL3
	SET	'LAMP-LIFE,0
	ICALL2	DEQUEUE,I-LANTERN
	FCLEAR	LANTERN,LIGHTED
	ICALL	REPLACE-ADJ?,LANTERN,W?LIGHTED,W?DARK
	ZERO?	V /FALSE
	SET	'P-IT-OBJECT,LANTERN
	PRINTI	"  The "
	PRINTD	LANTERN
	PRINTI	"'s light flickers and goes out."
	CRLF	
	ICALL1	SAY-IF-HERE-LIT
	RTRUE	
?CCL3:	ZERO?	V /FALSE
	EQUAL?	LAMP-LIFE,20 \?CCL9
	SET	'P-IT-OBJECT,LANTERN
	PRINTI	"  The light from the "
	PRINTD	LANTERN
	PRINTR	" is getting dimmer."
?CCL9:	EQUAL?	LAMP-LIFE,10 \FALSE
	SET	'P-IT-OBJECT,LANTERN
	PRINTI	"  The "
	PRINTD	LANTERN
	PRINTR	"'s glow is fading rapidly."


	.FUNCT	I-CRAB,L,DIR,TBL,DEST,DAMAGE
	LOC	CRAB >L
	EQUAL?	L,HERE \?CND1
	GETP	CRAB,P?ENDURANCE
	LESS?	STACK,1 \?CCL5
	PRINT	TAB
	PRINTI	"Something falls to your feet with a "
	ICALL2	ITALICIZE,STR?576
	PRINT	COMMA-AND
	ZERO?	LIT? \?CCL8
	PRINTI	"a shadow"
	JUMP	?CND6
?CCL8:	ICALL2	THE-PRINT,CRAB
?CND6:	PRINT	STR?577
	PRINTI	"darkness."
	CRLF	
	ICALL2	KILL-MONSTER,CRAB
	MOVE	CROWN,HERE
	SET	'P-IT-OBJECT,CROWN
	RTRUE	
?CCL5:	FSET?	CRAB,SURPRISED \?CND3
	ICALL2	SEE-MONSTER,CRAB
	FSET?	CRAB,SLEEPING /?CND3
	PRINT	TAB
	ZERO?	LIT? \?CND12
	ICALL1	DARK-MOVES
	RTRUE	
?CND12:	EQUAL?	HERE,THRONE-ROOM \?CND14
	FSET?	CRAB,TOUCHED /?CND14
	FSET	CRAB,TOUCHED
	ICALL2	CTHE-PRINT,CRAB
	PRINTI	"'s antennae snap to alert as you enter. He rises from "
	ICALL2	THE-PRINT,THRONE
	PRINTI	" and charges across "
	ICALL2	THE-PRINT,FLOOR
	PRINTR	", claws snapping with anticipation!"
?CND14:	ICALL2	WHIRLS,CRAB
	RTRUE	
?CND3:	CALL2	STILL-SLEEPING?,CRAB
	ZERO?	STACK \TRUE
	CALL2	MONSTER-STRIKES?,CRAB >DAMAGE
	PRINT	TAB
	ZERO?	DAMAGE /?CCL22
	ZERO?	LIT? \?CCL25
	PRINTI	"Something pinches you"
	JUMP	?CND23
?CCL25:	ICALL2	CTHE-PRINT,CRAB
	CALL2	PICK-NEXT,CRAB-ATTACKS
	PRINT	STACK
?CND23:	ICALL	OUCH,CRAB,DAMAGE
	RTRUE	
?CCL22:	ZERO?	LIT? \?CND20
	ICALL1	DARK-MOVES
	RTRUE	
?CND20:	ICALL2	CTHE-PRINT,CRAB
	CALL2	PICK-NEXT,CRAB-MISSES
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CND1:	CALL2	MOVE-MONSTER?,CRAB >DIR
	ZERO?	DIR /FALSE
	PRINT	TAB
	ZERO?	LIT? \?CCL31
	PRINT	YOU-HEAR
	PRINTB	W?SOMETHING
	FSET?	CRAB,SEEN \?CND32
	PRINTI	" else"
?CND32:	PRINTI	" scuttle "
	JUMP	?CND29
?CCL31:	FSET?	CRAB,SEEN \?CCL36
	PRINT	XTHE
	JUMP	?CND34
?CCL36:	PRINT	XA
?CND34:	ICALL2	DPRINT,CRAB
	PRINTI	" scuttles "
?CND29:	FSET	CRAB,SEEN
	ICALL2	PASSAGE,DIR
	RTRUE	


	.FUNCT	PASSAGE,DIR
	PRINTI	"in from the "
	PRINTB	DIR
	PRINTR	" passage!"


	.FUNCT	I-RAT,L,DIR,TBL,DEST,DAMAGE
	LOC	RAT >L
	EQUAL?	L,HERE \?CND1
	GETP	RAT,P?ENDURANCE
	LESS?	STACK,1 \?CCL5
	PRINT	TAB
	ZERO?	LIT? \?CCL8
	PRINT	YOU-HEAR
	PRINTB	W?SOMETHING
	PRINTI	" retreat"
	JUMP	?CND6
?CCL8:	PRINTI	"Mortally wounded, "
	ICALL2	THE-PRINT,RAT
	PRINTI	" retreats"
?CND6:	PRINTI	" into the darkness."
	CRLF	
	ICALL2	KILL-MONSTER,RAT
	RTRUE	
?CCL5:	FSET?	RAT,SURPRISED \?CND3
	ICALL2	SEE-MONSTER,RAT
	FSET?	RAT,SLEEPING /?CND3
	PRINT	TAB
	ZERO?	LIT? \?CND12
	ICALL1	DARK-MOVES
	RTRUE	
?CND12:	ICALL2	WHIRLS,RAT
	RTRUE	
?CND3:	CALL2	STILL-SLEEPING?,RAT
	ZERO?	STACK \TRUE
	CALL2	MONSTER-STRIKES?,RAT >DAMAGE
	PRINT	TAB
	ZERO?	DAMAGE /?CCL18
	ZERO?	LIT? \?CCL21
	PRINTI	"Something bites you"
	JUMP	?CND19
?CCL21:	ICALL2	CTHE-PRINT,RAT
	CALL2	PICK-NEXT,RAT-ATTACKS
	PRINT	STACK
?CND19:	ICALL	OUCH,RAT,DAMAGE
	RTRUE	
?CCL18:	ZERO?	LIT? \?CND16
	ICALL1	DARK-MOVES
	RTRUE	
?CND16:	ICALL2	CTHE-PRINT,RAT
	CALL2	PICK-NEXT,RAT-MISSES
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CND1:	CALL2	MOVE-MONSTER?,RAT >DIR
	ZERO?	DIR /FALSE
	PRINT	TAB
	ZERO?	LIT? \?CCL27
	PRINT	YOU-HEAR
	PRINTB	W?SOMETHING
	PRINTI	" scurry "
	JUMP	?CND25
?CCL27:	FSET?	RAT,SEEN \?CCL30
	PRINT	XTHE
	JUMP	?CND28
?CCL30:	PRINT	XA
?CND28:	ICALL2	DPRINT,RAT
	PRINTI	" scurries "
?CND25:	FSET	RAT,SEEN
	ICALL2	PASSAGE,DIR
	RTRUE	


	.FUNCT	I-SNIPE,L,DIR,TBL,DEST,DAMAGE
	LOC	SNIPE >L
	EQUAL?	L,HERE \?CND1
	GETP	SNIPE,P?ENDURANCE
	LESS?	STACK,1 \?CCL5
	PRINT	TAB
	PRINTI	"Battered beyond endurance, "
	ICALL2	THE-PRINT,SNIPE
	PRINT	STR?577
	PRINTI	"fog."
	CRLF	
	ICALL2	KILL-MONSTER,SNIPE
	RTRUE	
?CCL5:	FSET?	SNIPE,SURPRISED \?CND3
	ICALL2	SEE-MONSTER,SNIPE
	FSET?	SNIPE,SLEEPING /?CND3
	PRINT	TAB
	ICALL2	WHIRLS,SNIPE
	RTRUE	
?CND3:	CALL2	STILL-SLEEPING?,SNIPE
	ZERO?	STACK \TRUE
	CALL2	MONSTER-STRIKES?,SNIPE >DAMAGE
	PRINT	TAB
	ICALL2	CTHE-PRINT,SNIPE
	ZERO?	DAMAGE /?CND11
	CALL2	PICK-NEXT,SNIPE-HITS
	PRINT	STACK
	ICALL	OUCH,SNIPE,DAMAGE
	RTRUE	
?CND11:	CALL2	PICK-NEXT,SNIPE-MISSES
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CND1:	CALL2	MOVE-MONSTER?,SNIPE >DIR
	ZERO?	DIR /FALSE
	PRINT	TAB
	FSET?	SNIPE,SEEN \?CCL17
	PRINT	XTHE
	JUMP	?CND15
?CCL17:	PRINT	XA
?CND15:	FSET	SNIPE,SEEN
	ICALL2	DPRINT,SNIPE
	PRINTI	" streaks out of the mist!"
	CRLF	
	ICALL2	TOPPLED?,SNIPE
	RTRUE	


	.FUNCT	I-VAPOR,L,DIR,DAMAGE
	LOC	VAPOR >L
	EQUAL?	L,HERE \?CND1
	GETP	VAPOR,P?ENDURANCE
	LESS?	STACK,1 \?CCL5
	PRINT	TAB
	ICALL2	CTHE-PRINT,VAPOR
	PRINT	STR?578
	PRINT	PERIOD
	ICALL2	NEXT-MONSTER,SNIPE
	ICALL2	KILL-MONSTER,VAPOR
	RTRUE	
?CCL5:	FSET?	VAPOR,SURPRISED \?CCL7
	ICALL2	SEE-MONSTER,VAPOR
	PRINT	TAB
	ICALL2	CTHE-PRINT,VAPOR
	PRINTI	" giggles when it sees you."
	CRLF	
	ICALL2	TOPPLED?,VAPOR
	RTRUE	
?CCL7:	CALL2	TOPPLED?,VAPOR
	ZERO?	STACK \TRUE
	ICALL2	NEXT-ENDURANCE?,VAPOR
	RANDOM	100
	LESS?	50,STACK /?CND9
	CALL1	VAPOR-SNATCH?
	ZERO?	STACK \TRUE
?CND9:	CALL2	MONSTER-STRIKES?,VAPOR >DAMAGE
	PRINT	TAB
	ICALL2	CTHE-PRINT,VAPOR
	ZERO?	DAMAGE /?CND13
	CALL2	PICK-NEXT,VAPOR-TICKLES
	PRINT	STACK
	PRINTC	PER
	ZERO?	STATIC \?CND15
	PRINTI	" """
	CALL2	PICK-NEXT,VAPOR-SNEERS
	PRINT	STACK
	PRINTI	"!"""
?CND15:	CRLF	
	CALL	MSPARK?,VAPOR,DAMAGE
	ICALL2	UPDATE-STAT,STACK
	RTRUE	
?CND13:	CALL2	PICK-NEXT,VAPOR-DOINGS
	PRINT	STACK
	RANDOM	100
	LESS?	50,STACK /?CND17
	PRINT	PERIOD
	RTRUE	
?CND17:	PRINTI	". """
	CALL2	PICK-NEXT,VAPOR-SNEERS
	PRINT	STACK
	PRINTR	"!"""
?CND1:	CALL2	MOVE-MONSTER?,VAPOR >DIR
	ZERO?	DIR /FALSE
	PRINT	TAB
	FSET?	VAPOR,SEEN \?CCL23
	PRINT	XTHE
	JUMP	?CND21
?CCL23:	PRINTI	"Without warning, an "
?CND21:	FSET	VAPOR,SEEN
	ICALL2	DPRINT,VAPOR
	PRINTI	" coalesces out of the surrounding mist"
	RANDOM	100
	LESS?	50,STACK /?CND24
	PRINT	PERIOD
	RTRUE	
?CND24:	PRINTI	". """
	CALL2	PICK-NEXT,VAPOR-SNEERS
	PRINT	STACK
	PRINTI	"!"""
	CRLF	
	ICALL2	TOPPLED?,VAPOR
	RTRUE	


	.FUNCT	VAPOR-SNATCH?,ANY,OBJ,NXT,RM,LEN,X
	GETB	MOOR-ROOMS,0 >LEN
	FIRST?	PLAYER >OBJ \?CND1
?PRG3:	NEXT?	OBJ >NXT /?BOGUS5
?BOGUS5:	FSET?	OBJ,NODESC /?CND6
	FSET?	OBJ,WIELDED /?CTR8
	FSET?	OBJ,WORN \?CCL9
?CTR8:	ZERO?	ANY \?CND6
	PRINT	TAB
	ICALL2	CTHE-PRINT,VAPOR
	PRINTI	" tries to snatch "
	ICALL2	SAY-YOUR,OBJ
	PRINTI	" from your grasp, "
	RANDOM	100
	LESS?	50,STACK /?CCL16
	PRINTI	"and nearly succeeds"
	JUMP	?CND14
?CCL16:	PRINTI	"but fails"
?CND14:	RANDOM	100
	LESS?	50,STACK /?CND17
	PRINT	PERIOD
	RTRUE	
?CND17:	INC	'ANY
?CND6:	SET	'OBJ,NXT
	ZERO?	OBJ \?PRG3
?CND1:	ZERO?	ANY /?CND29
	PRINT	PERIOD
	RTRUE	
?CCL9:	FSET?	OBJ,TAKEABLE \?CND6
?PRG20:	RANDOM	LEN
	GETB	MOOR-ROOMS,STACK >RM
	EQUAL?	RM,HERE /?PRG20
	FCLEAR	OBJ,WORN
	FCLEAR	OBJ,WIELDED
	MOVE	OBJ,RM
	MOVE	VAPOR,RM
	FSET	VAPOR,SURPRISED
	CALL	FIND-IN?,HERE,MONSTER >LAST-MONSTER
	SET	'LAST-MONSTER-DIR,FALSE-VALUE
	SET	'P-IT-OBJECT,NOT-HERE-OBJECT
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	ZERO?	ANY /?CCL26
	PRINTI	". Instead, it encircles "
	JUMP	?CND24
?CCL26:	PRINT	TAB
	CALL2	PICK-NEXT,VAPOR-LAUGHS
	PRINT	STACK
	PRINTI	", "
	ICALL2	THE-PRINT,VAPOR
	PRINTI	" snatches "
?CND24:	ICALL2	SAY-YOUR,OBJ
	PRINTR	" and spirits it away!"
?CND29:	GET	STATS,LUCK >X
	LESS?	X,2 /?PRG34
	RANDOM	100
	LESS?	X,STACK \FALSE
?PRG34:	RANDOM	LEN
	GETB	MOOR-ROOMS,STACK >RM
	EQUAL?	RM,HERE /?PRG34
	FSET	VAPOR,SURPRISED
	PRINT	TAB
	CALL2	PICK-NEXT,VAPOR-LAUGHS
	PRINT	STACK
	PRINTI	", "
	ICALL2	THE-PRINT,VAPOR
	PRINTI	" grabs you by the ankles and lifts you high into the air!"
	CRLF	
	ZERO?	VERBOSITY /?CND38
	CRLF	
?CND38:	ICALL2	GOTO,RM
	GET	STATS,ENDURANCE >X
	GRTR?	X,5 \?CCL42
	SET	'X,-5
	JUMP	?CND40
?CCL42:	SUB	X,1
	SUB	0,STACK >X
?CND40:	ICALL2	UPDATE-STAT,X
	PRINT	TAB
	PRINTR	"You slowly recover your bearings."


	.FUNCT	I-SPIDER,L,DIR,TBL,DEST,DAMAGE
	LOC	SPIDER >L
	EQUAL?	L,HERE \?CND1
	GETP	SPIDER,P?ENDURANCE
	LESS?	STACK,1 \?CCL5
	PRINT	TAB
	ICALL2	CTHE-PRINT,SPIDER
	PRINT	STR?579
	PRINTI	"its wounds oozing with vile ichors."
	CRLF	
	ICALL2	KILL-MONSTER,SPIDER
	RTRUE	
?CCL5:	FSET?	SPIDER,SURPRISED \?CND3
	ICALL2	SEE-MONSTER,SPIDER
	FSET?	SPIDER,SLEEPING /?CND3
	PRINT	TAB
	ICALL2	WHIRLS,SPIDER
	RTRUE	
?CND3:	CALL2	STILL-SLEEPING?,SPIDER
	ZERO?	STACK \TRUE
	CALL2	MONSTER-STRIKES?,SPIDER >DAMAGE
	PRINT	TAB
	ICALL2	CTHE-PRINT,SPIDER
	ZERO?	DAMAGE /?CND11
	CALL2	PICK-NEXT,SPIDER-HITS
	PRINT	STACK
	ICALL	OUCH,SPIDER,DAMAGE
	RTRUE	
?CND11:	CALL2	PICK-NEXT,SPIDER-MISSES
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CND1:	CALL2	MOVE-MONSTER?,SPIDER >DIR
	ZERO?	DIR /FALSE
	PRINT	TAB
	FSET?	SPIDER,SEEN \?CCL17
	PRINT	XTHE
	JUMP	?CND15
?CCL17:	FSET	SPIDER,SEEN
	PRINT	XA
?CND15:	ICALL2	DPRINT,SPIDER
	PRINTI	" crawls in from the "
	PRINTB	DIR
	PRINTR	" passage!"


	.FUNCT	I-SLUG,L,DIR,TBL,DEST,DAMAGE
	LOC	SLUG >L
	EQUAL?	L,HERE \?CND1
	GETP	SLUG,P?ENDURANCE
	LESS?	STACK,1 \?CCL5
	PRINT	TAB
	ICALL2	CTHE-PRINT,SLUG
	PRINT	STR?579
	PRINTI	"oozing something wet."
	CRLF	
	ICALL2	KILL-MONSTER,SLUG
	RTRUE	
?CCL5:	FSET?	SLUG,SURPRISED \?CND3
	ICALL2	SEE-MONSTER,SLUG
	FSET?	SLUG,SLEEPING /?CND3
	PRINT	TAB
	ICALL2	WHIRLS,SLUG
	RTRUE	
?CND3:	CALL2	STILL-SLEEPING?,SLUG
	ZERO?	STACK \TRUE
	CALL2	MONSTER-STRIKES?,SLUG >DAMAGE
	PRINT	TAB
	ICALL2	CTHE-PRINT,SLUG
	ZERO?	DAMAGE /?CND11
	CALL2	PICK-NEXT,SLUG-HITS
	PRINT	STACK
	ICALL	OUCH,SLUG,DAMAGE
	RTRUE	
?CND11:	CALL2	PICK-NEXT,SLUG-MISSES
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CND1:	CALL2	MOVE-MONSTER?,SLUG >DIR
	ZERO?	DIR /FALSE
	PRINT	TAB
	FSET?	SLUG,SEEN \?CCL17
	PRINT	XTHE
	JUMP	?CND15
?CCL17:	FSET	SLUG,SEEN
	PRINT	XA
?CND15:	ICALL2	DPRINT,SLUG
	PRINTI	" oozes "
	ICALL2	PASSAGE,DIR
	RTRUE	


	.FUNCT	I-WORM,L,DIR,TBL,DEST,DAMAGE
	LOC	WORM >L
	EQUAL?	L,HERE \?CND1
	GETP	WORM,P?ENDURANCE
	LESS?	STACK,1 \?CCL5
	PRINTI	"  Hissing with humiliation, "
	ICALL2	THE-PRINT,WORM
	PRINTI	" slithers away into the undergrowth."
	CRLF	
	ICALL2	KILL-MONSTER,WORM
	RTRUE	
?CCL5:	FSET?	WORM,SURPRISED \?CND3
	ICALL2	SEE-MONSTER,WORM
	FSET?	WORM,SLEEPING /?CND3
	PRINT	TAB
	ICALL2	CTHE-PRINT,WORM
	PRINTI	" rears up as it sees you."
	CRLF	
	ICALL2	TOPPLED?,WORM
	RTRUE	
?CND3:	CALL2	STILL-SLEEPING?,WORM
	ZERO?	STACK \TRUE
	PRINT	TAB
	ICALL2	CTHE-PRINT,WORM
	IN?	PLAYER,MAW \?CND11
	PRINT	STR?580
	RANDOM	100
	LESS?	50,STACK /?CND13
	PRINTI	", sharpening its fangs"
?CND13:	PRINT	PERIOD
	RTRUE	
?CND11:	CALL2	MONSTER-STRIKES?,WORM >DAMAGE
	ZERO?	DAMAGE /?CND15
	CALL2	PICK-NEXT,WORM-HITS
	PRINT	STACK
	ICALL	OUCH,WORM,DAMAGE
	RTRUE	
?CND15:	CALL2	PICK-NEXT,WORM-MISSES
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CND1:	CALL2	MOVE-MONSTER?,WORM >DIR
	ZERO?	DIR /FALSE
	PRINT	TAB
	ICALL2	CTHE-PRINT,WORM
	PRINT	STR?581
	PRINTB	DIR
	PRINTC	33
	CRLF	
	ICALL2	TOPPLED?,WORM
	RTRUE	


	.FUNCT	I-CROC,DAMAGE
	IN?	CROC,HERE \?CND1
	GETP	CROC,P?ENDURANCE
	LESS?	STACK,1 \?CCL5
	PRINT	TAB
	ICALL2	CTHE-PRINT,CROC
	PRINTI	" drags itself off into the bushes."
	CRLF	
	ICALL2	KILL-MONSTER,CROC
	RTRUE	
?CCL5:	FSET?	CROC,SURPRISED \?CND3
	ICALL2	SEE-MONSTER,CROC
	FSET?	CROC,SLEEPING /?CND3
	PRINT	TAB
	ICALL2	WHIRLS,CROC
	RTRUE	
?CND3:	CALL2	STILL-SLEEPING?,CROC
	ZERO?	STACK \TRUE
	PRINT	TAB
	ICALL2	CTHE-PRINT,CROC
	IN?	PLAYER,MAW \?CND11
	PRINT	STR?580
	ICALL1	CHOPS
	RTRUE	
?CND11:	CALL2	MONSTER-STRIKES?,CROC >DAMAGE
	ZERO?	DAMAGE /?CND13
	CALL2	PICK-NEXT,JAW-HITS
	PRINT	STACK
	ICALL	OUCH,CROC,DAMAGE
	RTRUE	
?CND13:	CALL2	PICK-NEXT,JAW-MISSES
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CND1:	CALL2	CHARGING?,CROC
	RSTACK	


	.FUNCT	CHARGING?,OBJ,DIR
	CALL2	MOVE-MONSTER?,OBJ >DIR
	ZERO?	DIR /FALSE
	PRINT	TAB
	FSET?	OBJ,SEEN \?CCL6
	PRINT	XTHE
	JUMP	?CND4
?CCL6:	FSET	OBJ,SEEN
	PRINT	XA
?CND4:	ICALL2	DPRINT,OBJ
	PRINTI	" charges in from the "
	PRINTB	DIR
	PRINTC	33
	CRLF	
	ICALL2	TOPPLED?,OBJ
	RTRUE	


	.FUNCT	CHOPS
	RANDOM	100
	LESS?	50,STACK /?CND1
	PRINTI	", licking its chops"
?CND1:	PRINT	PERIOD
	RTRUE	


	.FUNCT	I-HOUND,DAMAGE
	IN?	HOUND,HERE \?CND1
	GETP	HOUND,P?ENDURANCE
	LESS?	STACK,1 \?CCL5
	PRINTI	"  Whining with pain, "
	ICALL2	THE-PRINT,HOUND
	PRINTI	" limps away into the forest."
	CRLF	
	ICALL2	KILL-MONSTER,HOUND
	RTRUE	
?CCL5:	FSET?	HOUND,SURPRISED \?CND3
	ICALL2	SEE-MONSTER,HOUND
	FSET?	HOUND,SLEEPING /?CND3
	PRINT	TAB
	ICALL2	CTHE-PRINT,HOUND
	PRINTI	" bares its fangs when it sees you."
	CRLF	
	ICALL2	TOPPLED?,HOUND
	RTRUE	
?CND3:	CALL2	STILL-SLEEPING?,HOUND
	ZERO?	STACK \TRUE
	PRINT	TAB
	ICALL2	CTHE-PRINT,HOUND
	IN?	PLAYER,POOL \?CND11
	PRINTI	" prowls the edge of "
	ICALL2	THE-PRINT,POOL
	ICALL1	CHOPS
	RTRUE	
?CND11:	CALL2	MONSTER-STRIKES?,HOUND >DAMAGE
	ZERO?	DAMAGE /?CND13
	CALL2	PICK-NEXT,JAW-HITS
	PRINT	STACK
	ICALL	OUCH,HOUND,DAMAGE
	RTRUE	
?CND13:	CALL2	PICK-NEXT,JAW-MISSES
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CND1:	CALL2	CHARGING?,HOUND
	RSTACK	


	.FUNCT	I-PUPP,L,PL,DIR,TBL,DEST,DAMAGE
	LOC	PUPP >L
	EQUAL?	L,HERE \?CND1
	GETP	PUPP,P?ENDURANCE
	LESS?	STACK,1 \?CCL5
	PRINTI	"  With a furious snarl, "
	ICALL2	THE-PRINT,PUPP
	PRINT	STR?577
	PRINTI	"forest."
	CRLF	
	ICALL2	NEXT-MONSTER,HOUND
	ICALL2	KILL-MONSTER,PUPP
	RTRUE	
?CCL5:	FSET?	PUPP,SURPRISED \?CND3
	ICALL2	SEE-MONSTER,PUPP
	FSET?	PUPP,SLEEPING /?CND3
	PRINT	TAB
	ICALL2	CTHE-PRINT,PUPP
	PRINTI	" grins evilly when it sees you."
	CRLF	
	ICALL2	TOPPLED?,PUPP
	RTRUE	
?CND3:	CALL2	STILL-SLEEPING?,PUPP
	ZERO?	STACK \TRUE
	ICALL2	NEXT-ENDURANCE?,PUPP
	LOC	PLAYER >PL
	PRINT	TAB
	ICALL2	CTHE-PRINT,PUPP
	EQUAL?	PL,HERE /?CND11
	CALL2	PICK-NEXT,PUPP-MISSES
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CND11:	CALL2	MONSTER-STRIKES?,PUPP >DAMAGE
	CALL2	PICK-NEXT,PUPP-HITS
	PRINT	STACK
	ZERO?	DAMAGE \?CND13
	PRINTR	", but you manage to ignore it."
?CND13:	PRINT	PERIOD
	ICALL2	UPDATE-STAT,DAMAGE
	RTRUE	
?CND1:	CALL2	MOVE-MONSTER?,PUPP >DIR
	ZERO?	DIR /FALSE
	PRINT	TAB
	FSET?	PUPP,SEEN \?CND17
	ICALL2	CTHE-PRINT,PUPP
	PRINTI	" swings in from the "
	PRINTB	DIR
	PRINT	PERIOD
	RTRUE	
?CND17:	FSET	PUPP,SEEN
	SET	'LAST-MONSTER-DIR,P-WALK-DIR
	ICALL2	PRINTCA,PUPP
	PRINTI	" drops out of the treetops!"
	CRLF	
	ICALL2	TOPPLED?,PUPP
	RTRUE	


	.FUNCT	I-DEAD,DIR,DAMAGE
	IN?	DEAD,HERE \?CND1
	GETP	DEAD,P?ENDURANCE
	LESS?	STACK,1 \?CCL5
	PRINTI	"  Wailing with self-pity, "
	ICALL2	THE-PRINT,DEAD
	PRINTI	" fades out of existence."
	CRLF	
	ICALL2	KILL-MONSTER,DEAD
	RTRUE	
?CCL5:	FSET?	DEAD,SURPRISED \?CCL7
	ICALL2	SEE-MONSTER,DEAD
	ICALL2	WHIRLS,DEAD
	RTRUE	
?CCL7:	CALL2	TOPPLED?,DEAD
	ZERO?	STACK \TRUE
	ICALL2	NEXT-ENDURANCE?,DEAD
	CALL2	MONSTER-STRIKES?,DEAD >DAMAGE
	PRINT	TAB
	ICALL2	CTHE-PRINT,DEAD
	ZERO?	DAMAGE /?CND9
	CALL2	PICK-NEXT,DEAD-HITS
	PRINT	STACK
	ICALL	OUCH,DEAD,DAMAGE
	RTRUE	
?CND9:	CALL2	PICK-NEXT,DEAD-MISSES
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CND1:	CALL2	MOVE-MONSTER?,DEAD >DIR
	ZERO?	DIR /FALSE
	PRINT	TAB
	FSET?	DEAD,SEEN \?CCL15
	ICALL2	CTHE-PRINT,DEAD
	PRINT	STR?581
	PRINTB	DIR
	JUMP	?CND13
?CCL15:	FSET	DEAD,SEEN
	PRINTI	"With a fearful battle cry, "
	ICALL2	PRINTA,DEAD
	PRINTI	" rises out of the ruins"
?CND13:	PRINTC	33
	CRLF	
	ICALL2	TOPPLED?,DEAD
	RTRUE	


	.FUNCT	I-GHOUL,DIR,DAMAGE
	IN?	GHOUL,HERE \?CND1
	GETP	GHOUL,P?ENDURANCE
	LESS?	STACK,1 \?CCL5
	ICALL2	NEXT-MONSTER,DEAD
	PRINT	TAB
	PRINTI	"Howling with pain and rage, "
	ICALL2	THE-PRINT,GHOUL
	PRINTI	" abandons his spade and"
	PRINT	STR?577
	PRINTI	"ruins."
	CRLF	
	ICALL2	KILL-MONSTER,GHOUL
	MOVE	SPADE,HERE
	SET	'P-IT-OBJECT,SPADE
	RTRUE	
?CCL5:	FSET?	GHOUL,SURPRISED \?CND3
	ICALL2	SEE-MONSTER,GHOUL
	FSET?	GHOUL,SLEEPING /?CND3
	ICALL2	WHIRLS,GHOUL
	RTRUE	
?CND3:	CALL2	STILL-SLEEPING?,GHOUL
	ZERO?	STACK \TRUE
	CALL2	MONSTER-STRIKES?,GHOUL >DAMAGE
	PRINT	TAB
	ICALL2	CTHE-PRINT,GHOUL
	ZERO?	DAMAGE /?CND11
	CALL2	PICK-NEXT,GHOUL-HITS
	PRINT	STACK
	ICALL	OUCH,GHOUL,DAMAGE
	RTRUE	
?CND11:	CALL2	PICK-NEXT,GHOUL-MISSES
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CND1:	CALL2	MOVE-MONSTER?,GHOUL >DIR
	ZERO?	DIR /FALSE
	PRINT	TAB
	FSET?	GHOUL,SEEN \?CCL17
	ICALL2	CTHE-PRINT,GHOUL
	PRINT	STR?581
	PRINTB	DIR
	JUMP	?CND15
?CCL17:	FSET	GHOUL,SEEN
	PRINTI	"Without warning, "
	ICALL2	PRINTA,GHOUL
	PRINTI	" leaps out of the rubble"
?CND15:	PRINTC	33
	CRLF	
	ICALL2	TOPPLED?,GHOUL
	RTRUE	


	.FUNCT	I-ASUCKER
	CALL	MOVE-SUCKERS,ASUCKER,BSUCKER
	RSTACK	


	.FUNCT	I-BSUCKER
	CALL	MOVE-SUCKERS,BSUCKER,CSUCKER
	RSTACK	


	.FUNCT	I-CSUCKER
	CALL2	MOVE-SUCKERS,CSUCKER
	RSTACK	


	.FUNCT	MOVE-SUCKERS,OBJ,NXT,DAMAGE,L,PL,DIR,TBL,DEST,X
	LOC	OBJ >L
	EQUAL?	L,HERE \?CND1
	PRINT	TAB
	GETP	OBJ,P?ENDURANCE
	LESS?	STACK,1 \?CCL5
	PRINTI	"Squealing with fear, "
	ICALL2	THE-PRINT,OBJ
	PRINTI	" retreats down the passageway."
	CRLF	
	ZERO?	NXT /?CND6
	ICALL2	NEXT-MONSTER,NXT
	ICALL2	NEXT-SUCKER,NXT
?CND6:	ICALL2	KILL-MONSTER,OBJ
	RTRUE	
?CCL5:	FSET?	OBJ,SURPRISED \?CCL9
	ICALL2	SEE-MONSTER,OBJ
	ZERO?	LIT? \?CND10
	ICALL1	DARK-MOVES
	RTRUE	
?CND10:	ICALL2	CTHE-PRINT,OBJ
	PRINTR	" glances up as you appear."
?CCL9:	RANDOM	100
	LESS?	20,STACK /?CND3
	GETP	OBJ,P?EMAX
	PUTP	OBJ,P?ENDURANCE,STACK
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	ZERO?	LIT? /?CND13
	ICALL2	BLINK,OBJ
	PRINTI	" turns into "
?CND13:	ICALL2	NEXT-SUCKER,OBJ
	ZERO?	LIT? /?CND15
	ICALL2	PRINTA,OBJ
	PRINTR	"!"
?CND15:	PRINT	YOU-HEAR
	PRINTR	"a curious sound in the darkness."
?CND3:	GET	STATS,LUCK >X
	GRTR?	X,9 \?CCL19
	MUL	10,X
	DIV	STACK,100 >DAMAGE
	JUMP	?CND17
?CCL19:	GRTR?	X,1 \?CND17
	SET	'DAMAGE,1
?CND17:	ICALL2	NEXT-ENDURANCE?,OBJ
	GETP	HERE,P?MIRROR-OBJ >X
	EQUAL?	X,FALSE-VALUE,NO-MIRROR /?CCL23
	ZERO?	LIT? /?CCL26
	ICALL2	CTHE-PRINT,OBJ
	GET	SUCKER-SMASHES,THIS-SUCKER
	PRINT	STACK
	PRINT	PTAB
	ICALL2	ITALICIZE,STR?582
	PRINTC	33
	CRLF	
	JUMP	?CND24
?CCL26:	PRINT	YOU-HEAR
	PRINTI	"a flabby "
	ICALL2	ITALICIZE,STR?583
	PRINTI	" in the darkness."
	CRLF	
?CND24:	ICALL2	DESTROY-MIRROR,X
	CALL1	NOLUCK?
	ZERO?	STACK /TRUE
	SUB	0,DAMAGE
	ICALL	UPDATE-STAT,STACK,LUCK,TRUE-VALUE
	RTRUE	
?CCL23:	ZERO?	LIT? /?CND21
	RANDOM	100
	LESS?	67,STACK /?CND21
	ICALL2	CTHE-PRINT,OBJ
	GET	SUCKER-HITS,THIS-SUCKER
	CALL2	PICK-NEXT,STACK
	PRINT	STACK
	PRINT	PERIOD
	CALL1	NOLUCK?
	ZERO?	STACK /TRUE
	SUB	0,DAMAGE
	ICALL	UPDATE-STAT,STACK,LUCK,TRUE-VALUE
	RTRUE	
?CND21:	ZERO?	LIT? /?CND33
	ICALL2	CTHE-PRINT,OBJ
	GET	SUCKER-MISSES,THIS-SUCKER
	CALL2	PICK-NEXT,STACK
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CND33:	PRINTI	"Something "
	CALL2	PICK-NEXT,SUCKER-STALKS
	PRINT	STACK
	PRINTR	" you in the darkness."
?CND1:	CALL2	MOVE-MONSTER?,OBJ >DIR
	ZERO?	DIR /?CND35
	PRINT	TAB
	ZERO?	LIT? \?CCL39
	PRINT	YOU-HEAR
	PRINTB	W?SOMETHING
	PRINTR	" stalk into the passage."
?CCL39:	FSET?	OBJ,SEEN \?CCL41
	PRINT	XTHE
	JUMP	?CND37
?CCL41:	FSET	OBJ,SEEN
	PRINT	XA
?CND37:	ICALL2	DPRINT,OBJ
	PRINTI	" stalks in from the "
	PRINTB	DIR
	PRINTR	" passage."
?CND35:	LOC	OBJ
	GETP	STACK,P?MIRROR-OBJ >X
	EQUAL?	X,FALSE-VALUE,NO-MIRROR /FALSE
	PRINT	TAB
	PRINT	YOU-HEAR
	PRINTI	"a distant patter of stalking feet, then a flabby "
	ICALL2	ITALICIZE,STR?583
	PRINT	PERIOD
	ICALL2	DESTROY-MIRROR,X
	RTRUE	


	.FUNCT	NEXT-SUCKER,OBJ,X
?PRG1:	CALL2	PICK-ONE,SUCKER-TYPES >X
	EQUAL?	X,THIS-SUCKER /?PRG1
	SET	'THIS-SUCKER,X
	GETPT	OBJ,P?SYNONYM >X
	GET	SUCKER-SYNS-A,THIS-SUCKER
	PUT	X,0,STACK
	GET	SUCKER-SYNS-B,THIS-SUCKER
	PUT	X,1,STACK
	GETPT	OBJ,P?ADJECTIVE >X
	GET	SUCKER-ADJS,THIS-SUCKER
	PUT	X,0,STACK
	RFALSE	


	.FUNCT	I-AMULET
	DLESS?	'AMULET-TIMER,1 \FALSE
	CALL2	VISIBLE?,AMULET
	ZERO?	STACK /?CND3
	ICALL1	STAR-FADES
?CND3:	ICALL1	STOP-AMULET
	CALL2	WEARING-MAGIC?,AMULET
	ZERO?	STACK /FALSE
	ICALL1	NORMAL-STRENGTH
	RFALSE	


	.FUNCT	STAR-FADES,ANGRY
	PRINTI	"  The amulet's glowing star "
	ZERO?	ANGRY /?CND1
	PRINTI	"flares angrily, "
?CND1:	PRINTR	"fades and disappears."


	.FUNCT	I-SALT
	EQUAL?	HERE,ON-WHARF \FALSE
	FSET?	SALT,SEEN \?CCL5
	FCLEAR	SALT,SEEN
	RFALSE	
?CCL5:	RANDOM	100
	LESS?	75,STACK \FALSE
	FSET	SALT,SEEN
	PRINT	TAB
	ICALL2	CTHE-PRINT,SALT
	CALL2	PICK-NEXT,SALT-DABS
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	


	.FUNCT	I-BANDITS
	EQUAL?	HERE,IN-PUB \FALSE
	FSET?	BANDITS,SEEN \?CCL5
	FCLEAR	BANDITS,SEEN
	RFALSE	
?CCL5:	RANDOM	100
	LESS?	50,STACK \FALSE
	FSET	BANDITS,SEEN
	PRINT	TAB
	GRTR?	GOSSIP,4 \?CND7
	CALL2	PICK-NEXT,BANDIT-MUTTERS
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CND7:	INC	'GOSSIP
	EQUAL?	GOSSIP,1 \?CCL11
	PRINTR	"One of the bandits leers at you. ""Har!"""
?CCL11:	EQUAL?	GOSSIP,2 \?CCL13
	PRINTR	"You overhear the word ""helmet"" in a conversation nearby."
?CCL13:	EQUAL?	GOSSIP,3 \?CND9
	PRINTR	"A bandit looks you up and down. ""Monster bait. Har!"""
?CND9:	PRINTR	"""... north of the River Phee,"" whispers a bandit."


	.FUNCT	I-COOK
	EQUAL?	HERE,IN-KITCHEN \FALSE
	FSET?	COOK,SEEN \?CCL5
	FCLEAR	COOK,SEEN
	RFALSE	
?CCL5:	RANDOM	100
	LESS?	75,STACK \FALSE
	FSET	COOK,SEEN
	ICALL2	SEE-CHARACTER,COOK
	PRINT	TAB
	ICALL2	CTHE-PRINT,COOK
	CALL2	PICK-NEXT,COOK-DOINGS
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	


	.FUNCT	I-ONION-OFFER
	EQUAL?	HERE,IN-KITCHEN \FALSE
	FSET?	COOK,SEEN \?CND1
	FCLEAR	COOK,SEEN
	RFALSE	
?CND1:	ICALL1	STOP-ONION-OFFER
	PRINT	TAB
	ICALL2	CTHE-PRINT,COOK
	PRINTI	"'s scowl changes to a malicious grin. ""Listen, "
	ICALL1	BOY-GIRL
	PRINTI	","" he says. ""You look like somebody who knows a great vegetable when "
	FSET?	PLAYER,FEMALE \?CND5
	PRINTC	115
?CND5:	PRINTI	"he sees one. You want this here onion? Okay. There's an old bottle of wine lyin' around downstairs somewhere. Bring it up to me in one piece, and "
	ICALL2	THE-PRINT,ONION
	PRINTI	"'s yours."" He"
	PRINT	GLANCES-AT
	ICALL2	THE-PRINT,CELLAR-DOOR
	PRINTR	" and shudders. ""Simple."""


	.FUNCT	I-GONDOLA,RIDING
	IN?	WINNER,GONDOLA \?CND1
	INC	'RIDING
?CND1:	IGRTR?	'GON,14 \?CCL5
	SET	'GON,0
	ICALL	REPLACE-GLOBAL?,AT-DOCK,DGONDOLA,NULL
	MOVE	GONDOLA,AT-DOCK
	FSET	GONDOLA,OPENED
	ZERO?	RIDING /?CCL8
	SET	'HERE,AT-DOCK
	JUMP	?CND6
?CCL8:	EQUAL?	HERE,AT-DOCK \FALSE
	SET	'P-IT-OBJECT,GONDOLA
?CND6:	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	TAB
	ICALL2	CTHE-PRINT,GONDOLA
	PRINTI	" glides to a halt at "
	ICALL2	THE-PRINT,DOCK
	PRINT	PTAB
	PRINTI	"""All off,"" calls "
	ICALL2	THE-PRINT,CONDUCTOR
	PRINTI	" as the hatch swings open. "
	PRINT	STR?584
	PRINTR	". Please exit the Skycar in an orderly manner."""
?CCL5:	EQUAL?	GON,1 \?CCL12
	EQUAL?	HERE,AT-DOCK \FALSE
	PRINT	TAB
	PRINTI	"The last few "
	PRINTD	PASSENGERS
	PRINTI	" are shuffling out of "
	ICALL2	THE-PRINT,GONDOLA
	ZERO?	RIDING /?CND15
	PRINTI	". ""All off, please,"" repeats "
	ICALL2	THE-PRINT,CONDUCTOR
	PRINTI	", meaning you"
?CND15:	PRINT	PERIOD
	RTRUE	
?CCL12:	EQUAL?	GON,2 \?CCL18
	EQUAL?	HERE,AT-DOCK \FALSE
	PRINT	TAB
	ZERO?	RIDING /?CND21
	MOVE	PLAYER,AT-DOCK
	FSET	GONDOLA,NODESC
	SET	'P-WALK-DIR,FALSE-VALUE
	PRINT	STR?584
	PRINTI	","" growls "
	ICALL2	THE-PRINT,CONDUCTOR
	PRINTI	", pushing you out of "
	ICALL2	THE-PRINT,GONDOLA
	ICALL1	RELOOK
?CND21:	PRINTI	"Eager "
	PRINTD	PASSENGERS
	PRINTI	" surge into the emptied "
	PRINTD	GONDOLA
	PRINTI	". ""All aboard, please,"" announces "
	ICALL2	THE-PRINT,CONDUCTOR
	PRINTR	" unnecessarily."
?CCL18:	EQUAL?	GON,3 \?CCL24
	FCLEAR	GONDOLA,OPENED
	ZERO?	RIDING \?CND25
	EQUAL?	HERE,AT-DOCK \FALSE
?CND25:	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	TAB
	PRINTI	"""Stay clear of the door, please,"" calls "
	ICALL2	THE-PRINT,CONDUCTOR
	PRINTI	" as the last few "
	PRINTD	PASSENGERS
	PRINTI	" squeeze into "
	ICALL2	THE-PRINT,GONDOLA
	PRINT	PERIOD
	RTRUE	
?CCL24:	EQUAL?	GON,4 \?CCL29
	MOVE	GONDOLA,OVER-JUNGLE
	ICALL	REPLACE-GLOBAL?,AT-DOCK,NULL,DGONDOLA
	ZERO?	RIDING /?CCL32
	SET	'P-WALK-DIR,FALSE-VALUE
	SET	'OLD-HERE,FALSE-VALUE
	SET	'HERE,OVER-JUNGLE
	JUMP	?CND30
?CCL32:	EQUAL?	HERE,AT-DOCK \FALSE
	SET	'P-IT-OBJECT,DGONDOLA
?CND30:	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	TAB
	ICALL2	CTHE-PRINT,GONDOLA
	PRINTI	" slides away from the dock and glides west, high over "
	ICALL2	THE-PRINT,JUNGLE
	PRINT	PTAB
	PRINTI	"""Welcome to the Miznia Jungle Skyway."" drawls "
	ICALL2	THE-PRINT,CONDUCTOR
	PRINTR	", his voice heavy with boredom."
?CCL29:	EQUAL?	GON,5 \?CCL36
	ICALL	REPLACE-GLOBAL?,AT-DOCK,DGONDOLA,NULL
	ICALL	REPLACE-GLOBAL?,NW-SUPPORT,NULL,DGONDOLA
	ICALL	REPLACE-GLOBAL?,NW-UNDER,NULL,DGONDOLA
	ICALL	REPLACE-GLOBAL?,OVER-JUNGLE,DOCK,SUPPORT
	PUTP	NW-UNDER,P?OVERHEAD,DGONDOLA
	EQUAL?	HERE,AT-DOCK \?CCL39
	ICALL2	GONDOLA-GONE,W?WEST
	RTRUE	
?CCL39:	EQUAL?	HERE,NW-SUPPORT,NW-UNDER \?CCL41
	ICALL	VIEWGLIDE,NW-UNDER,W?EAST
	RTRUE	
?CCL41:	ZERO?	RIDING /FALSE
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	SET	'P-IT-OBJECT,SUPPORT
	PRINT	TAB
	ICALL2	CTHE-PRINT,GONDOLA
	PRINTI	" glides over "
	ICALL2	THE-PRINT,JUNGLE
	PRINTI	", towards a tall "
	PRINTD	SUPPORT
	PRINT	PTAB
	PRINTI	"""The jungles of Miznia are the spawning grounds of the deadly "
	PRINTD	WORM
	PRINTI	","" drones "
	ICALL2	THE-PRINT,CONDUCTOR
	PRINTI	". ""Often mistaken for a mossy boulder, the "
	PRINTD	WORM
	PRINTR	"'s fangs extend up to 32 inches during an attack.""
  ""Oooh,"" murmurs the crowd."
?CCL36:	EQUAL?	GON,6 \?CCL44
	MOVE	GONDOLA,NW-SUPPORT
	EQUAL?	HERE,NW-SUPPORT \?CCL47
	ICALL1	GLIDING
	JUMP	?CND45
?CCL47:	ZERO?	RIDING /FALSE
	ICALL2	GLIDE-PAST,NW-SUPPORT
?CND45:	PRINT	TAB
	PRINTI	"""The tower to your right is one of several erected to elevate the Skyway above the treetops,"" explains "
	ICALL2	THE-PRINT,CONDUCTOR
	PRINTR	". ""Before the Skyway opened in 882 GUE, an average of twenty Miznia Jungle Train passengers died of wormbite each year.""
  The crowd giggles nervously."
?CCL44:	EQUAL?	GON,7 \?CCL51
	MOVE	GONDOLA,OVER-JUNGLE
	ZERO?	RIDING /?CCL54
	SET	'HERE,OVER-JUNGLE
	JUMP	?CND52
?CCL54:	EQUAL?	HERE,NW-SUPPORT \FALSE
	SET	'P-IT-OBJECT,DGONDOLA
?CND52:	ICALL2	TURNS,W?SOUTH
	ZERO?	RIDING /TRUE
	PRINT	TAB
	PRINTI	"""The jungle is a rich source of exciting stories,"" continues "
	ICALL2	THE-PRINT,CONDUCTOR
	PRINTR	", stifling a yawn. ""The most famous is the Legend of the Crocodile's Tear."""
?CCL51:	EQUAL?	GON,8 \?CCL60
	ICALL	REPLACE-GLOBAL?,NW-SUPPORT,DGONDOLA,NULL
	ICALL	REPLACE-GLOBAL?,NW-UNDER,DGONDOLA,NULL
	PUTP	NW-UNDER,P?OVERHEAD,SUPPORT
	ICALL	REPLACE-GLOBAL?,SW-SUPPORT,NULL,DGONDOLA
	ICALL	REPLACE-GLOBAL?,SW-UNDER,NULL,DGONDOLA
	PUTP	SW-UNDER,P?OVERHEAD,DGONDOLA
	EQUAL?	HERE,NW-SUPPORT,NW-UNDER \?CCL63
	SET	'P-IT-OBJECT,NOT-HERE-OBJECT
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	TAB
	ICALL2	CTHE-PRINT,GONDOLA
	PRINTR	" glides southward, and is soon out of sight."
?CCL63:	EQUAL?	HERE,SW-SUPPORT,SW-UNDER \?CCL65
	ICALL	VIEWGLIDE,SW-UNDER,W?NORTH
	RTRUE	
?CCL65:	ZERO?	RIDING /FALSE
	ICALL1	JUNGLE-GLIDE
	PRINT	TAB
	PRINTI	"""The Crocodile's Tear is a sapphire of extraordinary size and clarity. It was discovered by a slave working the granola mines of Antharia, who died bringing it to the surface."""
	CRLF	
	PRINT	TAB
	PRINTI	"Another "
	PRINTD	SUPPORT
	PRINTR	" is approaching."
?CCL60:	EQUAL?	GON,9 \?CCL68
	MOVE	GONDOLA,SW-SUPPORT
	EQUAL?	HERE,SW-SUPPORT \?CCL71
	ICALL1	GLIDING
	JUMP	?CND69
?CCL71:	ZERO?	RIDING /FALSE
	ICALL2	GLIDE-PAST,SW-SUPPORT
?CND69:	PRINT	TAB
	PRINTR	"""After passing through many hands, including those of Thaddium Fzort"" (""Bless you,"" mutters a passenger), ""the jewel came into the possession of the evil sorceress Y'Syska, whose collection of gems and minerals is still without peer."""
?CCL68:	EQUAL?	GON,10 \?CCL75
	MOVE	GONDOLA,OVER-JUNGLE
	ZERO?	RIDING /?CCL78
	SET	'HERE,OVER-JUNGLE
	JUMP	?CND76
?CCL78:	EQUAL?	HERE,SW-SUPPORT \FALSE
	SET	'P-IT-OBJECT,DGONDOLA
?CND76:	ICALL2	TURNS,W?EAST
	ZERO?	RIDING /TRUE
	PRINT	TAB
	PRINTI	"""Flash photography is prohibited,"" growls "
	ICALL2	THE-PRINT,CONDUCTOR
	PRINTR	" as a passenger snaps a picture of the hazy landscape."
?CCL75:	EQUAL?	GON,11 \?CCL84
	ICALL	REPLACE-GLOBAL?,SW-SUPPORT,DGONDOLA,NULL
	ICALL	REPLACE-GLOBAL?,SW-UNDER,DGONDOLA,NULL
	PUTP	SW-UNDER,P?OVERHEAD,SUPPORT
	ICALL	REPLACE-GLOBAL?,SE-SUPPORT,NULL,DGONDOLA
	ICALL	REPLACE-GLOBAL?,SE-UNDER,NULL,DGONDOLA
	PUTP	SE-UNDER,P?OVERHEAD,DGONDOLA
	EQUAL?	HERE,SW-SUPPORT,SW-UNDER \?CCL87
	ICALL2	GONDOLA-GONE,W?EAST
	RTRUE	
?CCL87:	EQUAL?	HERE,SE-SUPPORT,SE-UNDER \?CCL89
	ICALL	VIEWGLIDE,SE-UNDER,W?WEST
	RTRUE	
?CCL89:	ZERO?	RIDING /FALSE
	ICALL1	JUNGLE-GLIDE
	PRINT	TAB
	PRINTI	"""To protect the Crocodile's Tear from thieves, Y'Syska concealed it somewhere in the jungle below,"" concludes "
	ICALL2	THE-PRINT,CONDUCTOR
	PRINTI	" lamely. ""There it remains to this very day, guarded by bloodworms and whatever traps the sorceress laid to confound the unwary."""
	CRLF	
	PRINT	TAB
	PRINTI	"Another "
	PRINTD	SUPPORT
	PRINTR	" looms to the east."
?CCL84:	EQUAL?	GON,12 \?CCL92
	MOVE	GONDOLA,SE-SUPPORT
	EQUAL?	HERE,SE-SUPPORT \?CCL95
	ICALL1	GLIDING
	JUMP	?CND93
?CCL95:	ZERO?	RIDING /FALSE
	ICALL2	GLIDE-PAST,SE-SUPPORT
?CND93:	PRINT	TAB
	PRINTI	"""Thirsty?"" asks "
	ICALL2	THE-PRINT,CONDUCTOR
	PRINTI	". ""Stop by "
	PRINT	STR?585
	PRINTR	"tall, frosty Granola Float."" He smacks his lips dispiritedly. ""Mmm, so good."""
?CCL92:	EQUAL?	GON,13 \?CCL99
	MOVE	GONDOLA,OVER-JUNGLE
	ZERO?	RIDING /?CCL102
	SET	'HERE,OVER-JUNGLE
	JUMP	?CND100
?CCL102:	EQUAL?	HERE,SE-SUPPORT \FALSE
?CND100:	ICALL2	TURNS,W?NORTH
	ZERO?	RIDING /TRUE
	PRINT	TAB
	PRINTI	"""Bloodworms are not the only inhabitants of the Miznia jungle,"" remarks "
	ICALL2	THE-PRINT,CONDUCTOR
	PRINTR	", pausing to stretch. ""Survivors have reported a wide variety of birds, reptiles and other unclassifiable dangers."""
?CCL99:	EQUAL?	GON,14 \FALSE
	ICALL	REPLACE-GLOBAL?,SE-SUPPORT,DGONDOLA,NULL
	ICALL	REPLACE-GLOBAL?,OVER-JUNGLE,SUPPORT,DOCK
	ICALL	REPLACE-GLOBAL?,SE-UNDER,DGONDOLA,NULL
	PUTP	SW-UNDER,P?OVERHEAD,SUPPORT
	ICALL	REPLACE-GLOBAL?,AT-DOCK,NULL,DGONDOLA
	EQUAL?	HERE,SE-SUPPORT,SE-UNDER \?CCL110
	ICALL2	GONDOLA-GONE,W?NORTH
	RTRUE	
?CCL110:	EQUAL?	HERE,AT-DOCK \?CCL112
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	TAB
	ICALL2	PRINTCA,GONDOLA
	PRINT	SIS
	PRINT	STR?586
	RTRUE	
?CCL112:	ZERO?	RIDING /FALSE
	ICALL1	JUNGLE-GLIDE
	PRINT	TAB
	PRINTI	"""Be sure to visit "
	PRINT	STR?585
	PRINTI	"thrilling selection of one-of-a-kind gift ideas,"" urges "
	ICALL2	THE-PRINT,CONDUCTOR
	PRINTI	" as "
	ICALL2	THE-PRINT,DOCK
	PRINTR	" appears to the north."


	.FUNCT	GONDOLA-GONE,WRD
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	TAB
	ICALL2	CTHE-PRINT,GONDOLA
	PRINTI	" disappears to the "
	PRINTB	WRD
	PRINT	PERIOD
	RTRUE	


	.FUNCT	TURNS,WRD
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	TAB
	ICALL2	CTHE-PRINT,GONDOLA
	PRINTI	" turns and glides "
	PRINTB	WRD
	PRINTI	", away from "
	ICALL2	THE-PRINT,SUPPORT
	PRINT	PERIOD
	RTRUE	


	.FUNCT	VIEWGLIDE,RM,WRD
	SET	'P-IT-OBJECT,DGONDOLA
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	TAB
	ICALL2	PRINTCA,GONDOLA
	PRINTI	" glides into view "
	EQUAL?	RM,HERE \?CND1
	PRINTR	"overhead."
?CND1:	PRINTI	"from the "
	PRINTB	WRD
	PRINT	PERIOD
	RTRUE	


	.FUNCT	GLIDING
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	TAB
	ICALL2	CTHE-PRINT,GONDOLA
	PRINTR	" glides smoothly past, just a few feet away."


	.FUNCT	GLIDE-PAST,RM
	SET	'HERE,RM
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	TAB
	ICALL2	CTHE-PRINT,GONDOLA
	PRINTI	" is gliding just a few feet from the top of "
	ICALL2	THE-PRINT,SUPPORT
	PRINT	PERIOD
	RTRUE	


	.FUNCT	JUNGLE-GLIDE
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	SET	'P-IT-OBJECT,SUPPORT
	PRINT	TAB
	ICALL2	CTHE-PRINT,GONDOLA
	PRINTI	" glides across "
	ICALL2	THE-PRINT,JUNGLE
	PRINT	PERIOD
	RTRUE	


	.FUNCT	I-PHASE,L
	FSET?	PHASE,SEEN \?CCL3
	FCLEAR	PHASE,SEEN
	RFALSE	
?CCL3:	FSET?	PHASE,NODESC \FALSE
	CALL2	VISIBLE?,PHASE
	ZERO?	STACK /FALSE
	FCLEAR	PHASE,NODESC
	SET	'P-IT-OBJECT,PHASE
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	LOC	PHASE >L
	PRINT	TAB
	ICALL2	CTHE-PRINT,PHASE
	EQUAL?	L,PLAYER \?CCL10
	PRINT	SIN
	PRINTD	HANDS
	PRINTC	115
	JUMP	?CND8
?CCL10:	EQUAL?	L,HERE \?CCL12
	PRINT	SON
	FSET?	HERE,INDOORS \?CCL15
	ICALL2	THE-PRINT,FLOOR
	JUMP	?CND8
?CCL15:	ICALL2	THE-PRINT,GROUND
	JUMP	?CND8
?CCL12:	FSET?	L,CONTAINER \?CCL17
	PRINT	SIN
	ICALL2	THE-PRINT,L
	JUMP	?CND8
?CCL17:	FSET?	L,SURFACE \?CND8
	PRINT	SON
	ICALL2	THE-PRINT,L
?CND8:	PRINTR	" reappears at the edge of your vision."


	.FUNCT	I-OWOMAN
	IN?	OWOMAN,HERE \FALSE
	FSET?	OWOMAN,SEEN \?CCL5
	FCLEAR	OWOMAN,SEEN
	RFALSE	
?CCL5:	RANDOM	100
	LESS?	50,STACK \FALSE
	SET	'P-HER-OBJECT,OWOMAN
	FSET	OWOMAN,SEEN
	PRINT	TAB
	PRINT	CTHELADY
	CALL2	PICK-NEXT,OWOMAN-MOVES
	PRINT	STACK
	ICALL2	THE-PRINT,MCASE
	PRINT	PERIOD
	RTRUE	


	.FUNCT	I-MIRRORS,V,HEAR,L,OBJ,CNT,TIME,LEN
	CALL1	GRUE-ROOM? >HEAR
	GET	MIRROR-LIST,0 >LEN
	SET	'CNT,7
?PRG1:	GET	MIRROR-LIST,LEN >OBJ
	LOC	OBJ >L
	ZERO?	L /?CCL5
	GETP	OBJ,P?SIZE >TIME
	DLESS?	'TIME,1 \?CCL8
	DEC	'CNT
	EQUAL?	L,HERE \?CCL11
	INC	'V
	PRINT	TAB
	ICALL2	SAY-MIRROR-POPS,OBJ
	JUMP	?CND9
?CCL11:	ZERO?	HEAR /?CND9
	INC	'V
	PRINT	TAB
	PRINTI	"A distant "
	ICALL2	ITALICIZE,STR?583
	PRINTI	" echoes down the passageway."
	CRLF	
?CND9:	ICALL2	DESTROY-MIRROR,OBJ
	JUMP	?CND3
?CCL8:	PUTP	OBJ,P?SIZE,TIME
	EQUAL?	L,HERE \?CND3
	EQUAL?	TIME,2,10,18 \?CND3
	INC	'V
	PRINT	TAB
	SET	'P-IT-OBJECT,OBJ
	ICALL2	CTHE-PRINT,OBJ
	EQUAL?	TIME,2 \?CCL19
	PRINTI	" is flexing dangerously now"
	PRINT	STR?587
	JUMP	?CND3
?CCL19:	EQUAL?	TIME,10 \?CCL21
	PRINTI	" shimmers uncertainly for a moment."
	CRLF	
	JUMP	?CND3
?CCL21:	PRINTI	" billows slightly, then stabilizes."
	CRLF	
	JUMP	?CND3
?CCL5:	DEC	'CNT
?CND3:	DLESS?	'LEN,1 \?PRG1
	ZERO?	CNT /?CCL25
	RETURN	V
?CCL25:	ICALL2	DEQUEUE,I-MIRRORS
	RETURN	V


	.FUNCT	SAY-MIRROR-POPS,OBJ
	ICALL2	ITALICIZE,STR?582
	PRINTI	"! "
	ICALL2	CTHE-PRINT,OBJ
	PRINTR	" disappears in a silver spray."


	.FUNCT	DESTROY-MIRROR,OBJ,L
	EQUAL?	OBJ,FALSE-VALUE,NO-MIRROR /FALSE
	LOC	OBJ >L
	PUTP	OBJ,P?MIRROR-DIR,NO-MIRROR
	PUTP	OBJ,P?SIZE,0
	REMOVE	OBJ
	EQUAL?	L,HERE \?CND3
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
?CND3:	GETP	L,P?MIRROR-OBJ
	EQUAL?	STACK,OBJ \FALSE
	PUTP	L,P?MIRROR-OBJ,NO-MIRROR
	ICALL1	REFLECTIONS
	RFALSE	


	.FUNCT	CREATE-MIRROR?,OBJ,DIR
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	MOVE	OBJ,HERE
	SET	'P-IT-OBJECT,OBJ
	RANDOM	7
	BOR	STACK,1 >DIR
	PUTP	OBJ,P?MIRROR-DIR,DIR
	PUTP	OBJ,P?SIZE,MIRROR-LIFE
	CALL2	QUEUED?,I-MIRRORS
	ZERO?	STACK \?CND1
	ICALL2	QUEUE,I-MIRRORS
?CND1:	RETURN	DIR


	.FUNCT	I-URGRUE,SEE
	EQUAL?	HERE,IN-LAIR \FALSE
	ZERO?	LIT? \?CCL4
	CALL2	WEARING-MAGIC?,HELM
	ZERO?	STACK /?CND1
?CCL4:	INC	'SEE
?CND1:	FSET	URGRUE,SEEN
	PRINT	TAB
	FSET?	URGRUE,SURPRISED \?CND7
	FCLEAR	URGRUE,SURPRISED
	FSET?	URGRUE,IDENTIFIED /?CND9
	FSET	URGRUE,IDENTIFIED
	ZERO?	SEE /?CCL13
	PRINTI	"As you glance around the chamber, "
	ICALL2	THE-PRINT,URGRUE
	PRINTI	" yawns and stretches"
	JUMP	?CND11
?CCL13:	PRINT	YOU-HEAR
	PRINT	STR?588
	PRINTI	" yawn"
?CND11:	PRINTR	". ""At last we meet."""
?CND9:	PRINTC	34
	CALL2	PICK-NEXT,URGRUE-GREETS
	PRINT	STACK
	PRINTI	","" chuckles "
	ZERO?	SEE /?CCL16
	ICALL2	THE-PRINT,URGRUE
	JUMP	?CND14
?CCL16:	PRINT	STR?588
?CND14:	LESS?	URSCRIPT,2 \?CND17
	PRINT	PERIOD
	RTRUE	
?CND17:	PRINTR	". ""Now where were we? Ah, yes. We were deciding how best to destroy you."""
?CND7:	IGRTR?	'URSCRIPT,4 \?CCL21
	ICALL1	TIMESTOP
	RTRUE	
?CCL21:	EQUAL?	URSCRIPT,4 \?CCL23
	PRINTI	"""I know!"" cries "
	ICALL2	THE-PRINT,URGRUE
	PRINTR	" with delight. ""Girgol, the Time Stop spell! Love it. You'll make a hilarious statue."""
?CCL23:	EQUAL?	URSCRIPT,3 \?CCL25
	ICALL2	CTHE-PRINT,URGRUE
	PRINTI	" mutters thoughtfully to itself. ""Let's see, now. A spell. Cleesh? No; too silly. Espnis? Hmm. Better not; "
	FSET?	PLAYER,FEMALE \?CND26
	PRINTC	115
?CND26:	PRINTR	"he might snore."""
?CCL25:	EQUAL?	URSCRIPT,2 \?CND19
	PRINTI	"""An interesting question,"" continues "
	ICALL2	THE-PRINT,URGRUE
	PRINTI	" conversationally, ""is "
	ICALL2	ITALICIZE,STR?589
	PRINTR	" to destroy you. Not a trivial decision, no. I must select a spell that will enhance my image, a Magick worthy of my thoroughly evil reputation."""
?CND19:	ICALL2	CTHE-PRINT,URGRUE
	PRINTR	"'s chuckling subsides. ""I rarely get visitors,"" it admits in a wistful tone. ""A pity I have to destroy you."""


	.FUNCT	I-ARCH3
	INC	'ARCHTIMER
	PRINT	TAB
	EQUAL?	ARCHTIMER,1 \?CCL3
	ICALL2	CTHE-PRINT,ORATOR
	PRINTI	" stills "
	ICALL2	THE-PRINT,PCROWD
	PRINTI	" with a wave of his hand.
  ""Our fathers built this city at the Place Where the Great Waters Meet,"" he cries. ""The right to name the One River belongs to us!"""
	CRLF	
	PRINT	TAB
	ICALL2	CTHE-PRINT,PCROWD
	PRINTR	" roars its approval."
?CCL3:	EQUAL?	ARCHTIMER,2 \?CCL5
	PRINTI	"""The infidels from the east control the One River's mouth,"" continues "
	ICALL2	THE-PRINT,ORATOR
	PRINTI	". ""But we, who dwell at the joining of the Rivers Phee and Bor, WE control the source!"" "
	ICALL2	CTHE-PRINT,PCROWD
	PRINTI	" whistles. ""As the daughter takes the name of the father, so shall the One River be known by the place of its birth!"""
	CRLF	
	PRINT	TAB
	PRINTC	34
	ICALL2	ITALICIZE,STR?590
	PRINTI	"!"" roars "
	ICALL2	THE-PRINT,PCROWD
	PRINTR	". ""Hail the River Pheebor!"""
?CCL5:	EQUAL?	ARCHTIMER,3 \?CND1
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	REMOVE	ORATOR
	SET	'QCONTEXT,FALSE-VALUE
	SET	'QCONTEXT-ROOM,FALSE-VALUE
	SET	'P-HIM-OBJECT,NOT-HERE-OBJECT
	PRINTI	"""Phee-bor! Phee-bor!"" chants "
	ICALL2	THE-PRINT,PCROWD
	PRINT	PTAB
	PRINTI	"""We have no quarrel with the city to the east,"" claims "
	ICALL2	THE-PRINT,ORATOR
	PRINTI	" (amid shouts to the contrary). ""But if they continue to slight our heritage with the wretched name "
	ICALL2	ITALICIZE,STR?591
	PRINTI	""" (the crowd hisses), ""we shall smite them from the face of the land!"""
	CRLF	
	PRINT	TAB
	ICALL2	CTHE-PRINT,PCROWD
	PRINTI	" goes wild, and carries "
	ICALL2	THE-PRINT,ORATOR
	PRINTR	" away on its shoulders."
?CND1:	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	ICALL2	DEQUEUE,I-ARCH3
	REMOVE	PCROWD
	SET	'P-THEM-OBJECT,NOT-HERE-OBJECT
	ICALL2	CTHE-PRINT,PCROWD
	PRINTR	" disperses, and you're left alone."


	.FUNCT	I-ARCH4
	INC	'ARCHTIMER
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	TAB
	EQUAL?	ARCHTIMER,1 \?CCL3
	MOVE	HORSE,HERE
	ICALL2	SEE-CHARACTER,PRINCE
	SET	'P-IT-OBJECT,HELM
	PRINTR	"A magnificent gray stallion appears amid the smoke. Its rider is a tall, proud man wearing a fabulous helmet."
?CCL3:	EQUAL?	ARCHTIMER,2 \?CCL5
	MOVE	BHORSE,HERE
	PRINTR	"Another stallion, black as night, races out of the smoke. Its rider's armor gleams red in the firelight.
  ""At last we meet, Prince Foo,"" snarls the newcomer.
  The man on the gray stallion regards him coolly. ""Begone, thou eastern fop!"" he cries. ""Never shall the River Pheebor yield its sacred name!"""
?CCL5:	EQUAL?	ARCHTIMER,3 \?CND1
	SET	'QCONTEXT,FALSE-VALUE
	SET	'QCONTEXT-ROOM,FALSE-VALUE
	REMOVE	BHORSE
	FSET	PRINCE,SLEEPING
	MOVE	PRINCE,HERE
	MOVE	HELM,TRENCH
	PUTP	PRINCE,P?ACTION,DEAD-PRINCE-F
	ICALL	REPLACE-SYN?,PRINCE,W?ZZZP,W?HEAD
	ICALL	REPLACE-SYN?,PRINCE,W?ZZZP,W?BODY
	ICALL	REPLACE-SYN?,PRINCE,W?ZZZP,W?CORPSE
	ICALL	REPLACE-ADJ?,PRINCE,W?ZZZP,W?DEAD
	PRINTR	"The black rider draws a gleaming sword from his scabbard and cuts off the prince's head, which rolls into the trench.
  ""The reign of Pheebor is ended!"" cries the black knight, galloping off into the smoke. ""Foo is dead! The age of Borphee is begun!""
  The gray stallion nudges the prince's body, and whinnies softly."
?CND1:	ICALL2	DEQUEUE,I-ARCH4
	IN?	HORSE,TRENCH /?CND7
	PRINT	XA
	ICALL1	SLAY-HORSE
	PRINT	TAB
?CND7:	PRINTR	"Cries of ""Foo is dead! The war is over!"" drift through the smoke. Tattered men race past; the cries grow faint; and soon all is still as death."


	.FUNCT	I-GLASS,V
	CALL2	VISIBLE?,GLASS >V
	INC	'GLASS-BOT
	DLESS?	'GLASS-TOP,1 \?CCL3
	ICALL2	DEQUEUE,I-GLASS
	ZERO?	V /FALSE
	PRINT	TAB
	PRINTI	"The last grains of sand fall through "
	ICALL2	THE-PRINT,GLASS
	PRINT	PERIOD
	ICALL1	ARCH-OFF
	RTRUE	
?CCL3:	ZERO?	V /FALSE
	EQUAL?	GLASS-TOP,2,4 /FALSE
	PRINT	TAB
	EQUAL?	GLASS-TOP,1 \?CND9
	PRINTI	"The top half of "
	ICALL2	THE-PRINT,GLASS
	PRINTR	" is almost empty."
?CND9:	PRINTI	"Sand continues to trickle through "
	ICALL2	THE-PRINT,GLASS
	PRINT	PERIOD
	RTRUE	


	.FUNCT	I-HUNTERS
	EQUAL?	HERE,IN-PASTURE \FALSE
	IN?	HUNTERS,IN-PASTURE /?CCL5
	SET	'HSCRIPT,0
	ICALL2	QUEUE,I-HUNT
	MOVE	HUNTERS,IN-PASTURE
	FSET	HUNTERS,SEEN
	ICALL2	SEE-CHARACTER,HUNTERS
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINTR	"  A distant movement catches your eye. Peering between the oaks, you see men foraging at the pasture's edge. They look like hunters."
?CCL5:	FSET?	HUNTERS,SEEN \?CCL7
	FCLEAR	HUNTERS,SEEN
	RFALSE	
?CCL7:	RANDOM	100
	LESS?	50,STACK \FALSE
	FSET	HUNTERS,SEEN
	PRINTI	"  The distant "
	PRINTD	HUNTERS
	CALL2	PICK-NEXT,HUNTER-DOINGS
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	


	.FUNCT	I-HUNT
	EQUAL?	HERE,IN-PASTURE \FALSE
	INC	'HSCRIPT
	FSET	HUNTERS,SEEN
	PRINT	TAB
	EQUAL?	HSCRIPT,1 \?CCL5
	MOVE	MINX,OAK
	MOVE	TRACKS,HERE
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	SET	'P-HER-OBJECT,MINX
	SET	'P-IT-OBJECT,MINX
	PRINTI	"""Come back 'ere, you!"""
	CRLF	
	PRINT	TAB
	ICALL2	ITALICIZE,STR?500
	PRINTI	"! A golden bundle of fur jumps out of the forest! It bounds across the snow in quick, desperate leaps, ducks behind the trunk of "
	ICALL2	PRINTA,OAK
	PRINT	STR?592
	PRINT	TAB
	PRINTI	"""I'll wring yer li'l neck,"" promises an angry voice."
	CRLF	
	ZERO?	DMODE \TRUE
	ICALL2	RELOOK,TRUE-VALUE
	RTRUE	
?CCL5:	EQUAL?	HSCRIPT,2 \?CCL9
	PRINTR	"""I see yer dirty tracks, ye pest!"" The angry voice is getting much closer."
?CCL9:	EQUAL?	HSCRIPT,3 \?CCL11
	MOVE	HUNTER,IN-PASTURE
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	ICALL2	SEE-CHARACTER,HUNTER
	PRINTI	"""Show yerself, ye flea-bit mop!"""
	CRLF	
	PRINT	TAB
	PRINTI	"A young man strides out of the woods, an angry scowl on his windburned face"
	IN?	TRACKS,HERE \?CND12
	REMOVE	TRACKS
	PRINTI	" as he follows the tracks in the snow."
	CRLF	
	ICALL1	HUNTER-SEES-MINX
	RTRUE	
?CND12:	PRINTI	"... and a nasty-looking whip in his hands"
	PRINT	PTAB
	PRINTI	"""Yo, "
	FSET?	PLAYER,FEMALE \?CCL16
	PRINTI	"ma'am"
	JUMP	?CND14
?CCL16:	PRINTI	"sir"
?CND14:	PRINTI	"!"" he cries, drawing closer. ""Lost a minx 'ereabouts! Came this way, if th' trail speaks truly.""
  Something behind "
	ICALL2	THE-PRINT,OAK
	PRINTR	" whimpers softly."
?CCL11:	EQUAL?	HSCRIPT,4 \?CCL18
	PRINTI	"The lad surveys the pasture impatiently. ""Blasted crayture,"" he mutters with a practiced crack of the whip. ""One o' me best. 'Twould be a shame to lose 'er.""
  The beast behind "
	ICALL2	THE-PRINT,OAK
	PRINTR	" makes itself as small as possible."
?CCL18:	EQUAL?	HSCRIPT,5 \FALSE
	ICALL2	DEQUEUE,I-HUNT
	SET	'HSCRIPT,0
	REMOVE	HUNTER
	FCLEAR	HUNTERS,SEEN
	SET	'P-HIM-OBJECT,NOT-HERE-OBJECT
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	MOVE	MINX,IN-PASTURE
	FCLEAR	MINX,TRYTAKE
	FCLEAR	MINX,NOALL
	FSET	MINX,TAKEABLE
	ICALL2	QUEUE,I-MINX
	ICALL2	SEE-CHARACTER,MINX
	PRINTI	"""Hide from me, will ye, ye snufflin' she-devil!"" cries "
	ICALL2	THE-PRINT,HUNTER
	PRINTI	" striding back into the forest. ""It's to the hounds I'll be throwin' yer bleedin' carcass!"" His curses soon "
	PRINT	STR?593
	PRINT	TAB
	ICALL2	CTHE-PRINT,MINX
	PRINTI	" pokes its nose out from behind "
	ICALL2	THE-PRINT,OAK
	PRINTI	", sniffing fearfully. It peeks around "
	ICALL2	THE-PRINT,GCORNER
	PRINTI	", and its brown eyes lock with yours"
	PRINT	PTAB
	PRINTR	"""Minx?"""


	.FUNCT	I-MINX,L,NL,PL,PLL,V,TBL,DIR,X,TYPE
	LOC	MINX >L
	ZERO?	L /?CCL2
	FSET?	MINX,LIVING /?CND1
?CCL2:	ICALL2	DEQUEUE,I-MINX
	RFALSE	
?CND1:	CALL2	VISIBLE?,MINX >V
	FSET?	MINX,SLEEPING \?CCL7
	ZERO?	V /FALSE
	FSET?	MINX,SEEN \?CCL12
	FCLEAR	MINX,SEEN
	RFALSE	
?CCL12:	RANDOM	100
	LESS?	50,STACK \FALSE
	ICALL1	MINXTAB
	ICALL2	CTHE-PRINT,MINX
	CALL2	PICK-NEXT,MINX-SLEEPS
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CCL7:	EQUAL?	L,PLAYER \?CND5
	ICALL1	MINXTAB
	IN?	TRUFFLE,L \?CND15
	ICALL1	MINX-EATS-TRUFFLE
	RTRUE	
?CND15:	ICALL2	CTHE-PRINT,MINX
	CALL2	BAD-MINX-PLACE?,HERE
	ZERO?	STACK /?CCL19
	SET	'X,MINX-NERVES
	RANDOM	100
	LESS?	33,STACK /?CND20
	SET	'X,MINX-RESTLESS
?CND20:	CALL2	PICK-NEXT,X
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CCL19:	FSET?	MINX,TOUCHED \?CCL23
	FCLEAR	MINX,TOUCHED
	FSET	MINX,TRYTAKE
	CALL2	PICK-NEXT,MINX-SETTLES
	PRINT	STACK
	PRINTR	" in your arms."
?CCL23:	FSET?	MINX,TRYTAKE \?CND17
	FCLEAR	MINX,TRYTAKE
	CALL2	PICK-NEXT,MINX-RESTLESS
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CND17:	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	PRINTC	SP
	RANDOM	100
	LESS?	50,STACK /?CCL27
	ICALL1	SAY-LEAP
	PRINTI	"s "
	RANDOM	100
	LESS?	50,STACK /?CCL30
	PRINTI	"out of your "
	RANDOM	100
	LESS?	50,STACK /?CCL33
	PRINTI	"arms "
	JUMP	?CND25
?CCL33:	PRINTI	"grasp "
	JUMP	?CND25
?CCL30:	PRINTI	"free "
	JUMP	?CND25
?CCL27:	PRINTI	"frees itself "
	RANDOM	100
	LESS?	50,STACK /?CND25
	PRINTI	"with a "
	RANDOM	100
	LESS?	50,STACK /?CND36
	RANDOM	100
	LESS?	50,STACK /?CCL40
	PRINTI	"sudden "
	JUMP	?CND36
?CCL40:	PRINTI	"quick "
?CND36:	ICALL1	SAY-LEAP
	PRINTC	SP
?CND25:	PRINTI	"and "
	ICALL2	FALLS,MINX
	RTRUE	
?CND5:	FCLEAR	MINX,TOUCHED
	FCLEAR	MINX,TRYTAKE
	LOC	PLAYER >PL
	EQUAL?	L,PL \?CCL43
	FSET?	MINX,SEEN \?CCL46
	FCLEAR	MINX,SEEN
	RFALSE	
?CCL46:	IN?	TRUFFLE,L /?CND44
	RANDOM	100
	LESS?	80,STACK \FALSE
?CND44:	ICALL1	MINXTAB
	ZERO?	LIT? \?CCL52
	PRINTI	"Something"
	CALL2	PICK-NEXT,DARK-MINXES
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CCL52:	EQUAL?	L,ARCH,ARCH4,ARCH12 \?CCL54
	IN?	TRUFFLE,TRENCH \?CCL54
	FCLEAR	MINX,SEEN
	EQUAL?	HERE,ARCH12 \?CND57
	FSET?	TRENCH,NODESC \?CND59
	ICALL1	DIG-UP-TRENCH
	RTRUE	
?CND59:	ICALL1	MINX-EATS-TRUFFLE
	RTRUE	
?CND57:	SET	'X,ARCH-SNIFFS
	EQUAL?	HERE,ARCH4 /?CND61
	RANDOM	100
	LESS?	25,STACK /?CND61
	SET	'X,MINX-DOINGS
?CND61:	ICALL2	CTHE-PRINT,MINX
	CALL2	PICK-NEXT,X
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CCL54:	IN?	TRUFFLE,L \?CCL65
	ICALL1	MINX-EATS-TRUFFLE
	RTRUE	
?CCL65:	LOC	TRUFFLE
	ZERO?	STACK \?CND50
	CALL2	DIG-UP-TRUFFLE?,L
	ZERO?	STACK \TRUE
?CND50:	ICALL2	CTHE-PRINT,MINX
	CALL2	PICK-NEXT,MINX-DOINGS
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CCL43:	FSET?	PL,VEHICLE \?CCL69
	IN?	PL,L \?CCL69
	MOVE	MINX,PL
	ICALL1	MINXTAB
	ZERO?	LIT? \?CCL74
	PRINTI	"Something furry"
	JUMP	?CND72
?CCL74:	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	ICALL2	CTHE-PRINT,MINX
?CND72:	PRINTI	" joins you"
	ICALL2	ON-IN,PL
	PRINT	PERIOD
	RTRUE	
?CCL69:	FSET?	L,SURFACE /?CCL75
	FSET?	L,CONTAINER \?CND41
?CCL75:	LOC	L >NL
	CALL2	BAD-MINX-PLACE?,NL
	ZERO?	STACK \?CTR79
	FSET?	L,CONTAINER \?CCL80
	FSET?	L,OPENED /?CCL80
?CTR79:	CALL2	VISIBLE?,L
	ZERO?	STACK /?CCL87
	ICALL1	MINXTAB
	FSET?	L,TRANSPARENT \?CCL90
	ZERO?	LIT? /?CCL90
	ICALL2	CTHE-PRINT,MINX
	JUMP	?CND88
?CCL90:	PRINTI	"Something"
?CND88:	IN?	TRUFFLE,L \?CCL95
	BOR	NEW-DBOX,3 >NEW-DBOX
	REMOVE	TRUFFLE
	PRINTI	" is eating "
	PRINTB	W?SOMETHING
	JUMP	?CND93
?CCL95:	PRINTI	" moves restlessly"
?CND93:	ICALL2	ON-IN,L
	PRINT	PERIOD
	RTRUE	
?CCL87:	IN?	TRUFFLE,L \?CND85
	REMOVE	TRUFFLE
?CND85:	ZERO?	NL \FALSE
	REMOVE	MINX
	ICALL2	DEQUEUE,I-MINX
	RFALSE	
?CCL80:	ZERO?	V \?CND78
	MOVE	MINX,NL
	RFALSE	
?CND78:	ICALL1	MINXTAB
	ZERO?	LIT? \?CCL102
	PRINTI	"Something"
	JUMP	?CND100
?CCL102:	IN?	TRUFFLE,L \?CCL104
	ICALL1	MINX-EATS-TRUFFLE
	RTRUE	
?CCL104:	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	ICALL2	CTHE-PRINT,MINX
?CND100:	PRINTC	SP
	ICALL1	SAY-LEAP
	PRINTC	115
	ICALL2	OUT-OF-LOC,L
	PRINT	PERIOD
	MOVE	MINX,NL
	RTRUE	
?CND41:	LOC	PL >PLL
	SET	'DIR,P?NORTH
?PRG105:	GETP	L,DIR >TBL
	ZERO?	TBL /?CND107
	GET	TBL,XTYPE
	BAND	STACK,65280 >TYPE
	EQUAL?	TYPE,CONNECT,SCONNECT,X-EXIT /?CCL110
	EQUAL?	TYPE,DCONNECT \?CND107
	GET	TBL,XDATA
	FSET?	STACK,OPENED \?CND107
?CCL110:	GET	TBL,XROOM >NL
	CALL2	BAD-MINX-PLACE?,NL
	ZERO?	STACK \?CND107
	EQUAL?	NL,PL,PLL \?CND107
	MOVE	MINX,NL
	ICALL1	MINXTAB
	ZERO?	LIT? \?CCL120
	PRINT	YOU-HEAR
	PRINTB	W?SOMETHING
	PRINTI	" moving "
	JUMP	?CND118
?CCL120:	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	ICALL2	CTHE-PRINT,MINX
	PRINTI	" appears "
?CND118:	EQUAL?	NL,PL \?CND121
	PRINTR	"at your feet."
?CND121:	PRINTR	"nearby."
?CND107:	DLESS?	'DIR,P?DOWN \?PRG105
	RFALSE	


	.FUNCT	MINXTAB
	FSET	MINX,SEEN
	PRINT	TAB
	RFALSE	


	.FUNCT	BAD-MINX-PLACE?,RM,X
	ZERO?	RM /TRUE
	GETB	NO-MINX,0 >X
	INTBL?	RM,NO-MINX+1,X,1 >X /TRUE
	EQUAL?	RM,IN-GARDEN \?CCL7
	GRTR?	PTIMER,1 /TRUE
?CCL7:	EQUAL?	RM,SADDLE \FALSE
	IN?	SADDLE,DACT \FALSE
	IN?	DACT,IN-SKY /TRUE
	RFALSE	


	.FUNCT	DIG-UP-TRUFFLE?,L,X
	LOC	OAK
	EQUAL?	L,STACK \?CCL3
	SET	'X,OAK
	JUMP	?CND1
?CCL3:	LOC	OAK2
	EQUAL?	L,STACK \?CCL5
	SET	'X,OAK2
	JUMP	?CND1
?CCL5:	LOC	OAK3
	EQUAL?	L,STACK \FALSE
	SET	'X,OAK3
?CND1:	FSET?	X,TOUCHED /FALSE
	ICALL2	OAK-FIND,X
	ICALL2	CTHE-PRINT,MINX
	PRINTI	" snuffles inquisitively around the base of "
	ICALL2	THE-PRINT,X
	PRINTI	". She scratches around the roots, nosing aside leaves and dirt, and pulls up a "
	ICALL2	DPRINT,TRUFFLE
	PRINTI	" with a triumphant mew. "
	PRINT	STR?594
	RTRUE	


	.FUNCT	DIG-UP-TRENCH
	FCLEAR	TRUFFLE,SEEN
	REMOVE	TRUFFLE
	FCLEAR	TRUFFLE,MUNGED
	ICALL2	DEQUEUE,I-TRUFFLE
	SET	'TRUFFLE-TIMER,0
	MOVE	TRENCH,HERE
	FCLEAR	TRENCH,NODESC
	FSET	TRENCH,OPENED
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	ICALL	REPLACE-SYN?,TRENCH,W?ZZZP,W?MINXHOLE
	ICALL	REPLACE-ADJ?,TRENCH,W?ZZZP,W?MINX
	ICALL2	CTHE-PRINT,MINX
	IN?	MINX,HERE /?CND1
	MOVE	MINX,HERE
	PRINTI	" leaves "
	ICALL2	THE-PRINT,ARCH
	PRINTI	" and"
?CND1:	PRINTI	" runs its nose over the loose earth, snuffling hungrily. Then it paws a deep hole in "
	ICALL2	THE-PRINT,GROUND
	PRINTI	", roots up a dirty truffle and swallows it whole"
	PRINT	PTAB
	PRINT	STR?594
	ZERO?	DMODE \TRUE
	ICALL2	RELOOK,TRUE-VALUE
	RTRUE	


	.FUNCT	SAY-LEAP,X
	RANDOM	100 >X
	LESS?	X,33 \?CCL3
	PRINTB	W?LEAP
	RTRUE	
?CCL3:	LESS?	X,67 \?CND1
	PRINTB	W?BOUND
	RTRUE	
?CND1:	PRINTB	W?JUMP
	RTRUE	


	.FUNCT	I-CORBIES,FEAR,SOUND,EMOTION,X
	CALL1	PLAIN-ROOM?
	ZERO?	STACK /FALSE
	PRINT	TAB
	FSET	CORBIES,SEEN
	SET	'P-THEM-OBJECT,CORBIES
	CALL2	PICK-NEXT,CORBIE-SOUNDS >SOUND
	CALL2	PICK-NEXT,MAD-CORBIES >EMOTION
	LOC	SCARE3
	EQUAL?	STACK,HERE /?CCL4
	ZERO?	BADKEY /?CND3
	LOC	BADKEY
	EQUAL?	STACK,PLAYER,HERE \?CND3
?CCL4:	INC	'FEAR
	CALL2	PICK-NEXT,FEAR-CORBIES >EMOTION
?CND3:	RANDOM	100 >X
	LESS?	X,33 \?CCL11
	PRINTI	"Corbies "
	PRINT	SOUND
	PRINT	WITH
	PRINT	EMOTION
	PRINTR	" overhead."
?CCL11:	LESS?	X,67 \?CCL13
	PRINTI	"You can hear corbies "
	JUMP	?CND9
?CCL13:	PRINTI	"Corbies "
	RANDOM	100 >X
	ZERO?	FEAR \?CTR15
	LESS?	X,33 \?CCL16
?CTR15:	PRINTI	"circle "
	RANDOM	100
	LESS?	50,STACK /?CND9
	ZERO?	FEAR \?CCL23
	PRINTI	"low "
	JUMP	?CND9
?CCL23:	PRINTI	"high "
	JUMP	?CND9
?CCL16:	LESS?	X,67 \?CCL25
	PRINTI	"dive "
	RANDOM	100
	LESS?	50,STACK /?CCL28
	PRINTI	"down from "
	JUMP	?CND9
?CCL28:	PRINTI	"and swoop "
	JUMP	?CND9
?CCL25:	PRINTI	"swoop "
	RANDOM	100
	LESS?	50,STACK /?CND9
	RANDOM	100
	LESS?	50,STACK /?CCL33
	PRINTI	"low "
	JUMP	?CND9
?CCL33:	PRINTI	"down from "
?CND9:	PRINTI	"overhead, "
	PRINT	SOUND
	PRINTI	"ing with "
	PRINT	EMOTION
	PRINT	PERIOD
	RTRUE	


	.FUNCT	I-COLOR,X
	DLESS?	'GURDY-TIMER,1 \?CCL3
	ICALL2	DEQUEUE,I-COLOR
	SET	'GURDY-TIMER,0
	FCLEAR	ROSE-ROOM,SEEN
	GETB	PLAIN-ROOMS,0 >X
?PRG4:	GETB	PLAIN-ROOMS,X
	FCLEAR	STACK,SEEN
	DLESS?	'X,1 \?PRG4
	EQUAL?	HERE,GURDY-ROOM \?CND8
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	SET	'GURDY-ROOM,FALSE-VALUE
	PRINT	TAB
	PRINTI	"The colors in the "
	ICALL1	ROOM-OR-LAND
	PRINTR	" fade back to normal."
?CND8:	SET	'GURDY-ROOM,FALSE-VALUE
	RFALSE	
?CCL3:	EQUAL?	HERE,GURDY-ROOM \FALSE
	EQUAL?	GURDY-TIMER,1,3 /FALSE
	PRINT	TAB
	PRINTI	"The heightened colors in the "
	ICALL1	ROOM-OR-LAND
	PRINTR	" are starting to fade."


	.FUNCT	TURN-GURDY,X
	SET	'X,TURN-GURDY-RIGHT
	EQUAL?	LAST-CRANK-DIR,RIGHT /?CND1
	EQUAL?	LAST-CRANK-DIR,LEFT /?CCL3
	RANDOM	100
	LESS?	50,STACK /?CND1
?CCL3:	SET	'X,TURN-GURDY-LEFT
?CND1:	ICALL	X
	RFALSE	


	.FUNCT	FIND-CHAR?,LEN,OBJ
	GET	CHARLIST,0 >LEN
?PRG1:	GET	CHARLIST,LEN >OBJ
	CALL2	VISIBLE?,OBJ
	ZERO?	STACK /?CCL5
	RETURN	OBJ
?CCL5:	DLESS?	'LEN,1 \?PRG1
	CALL	FIND-IN?,HERE,MONSTER
	RSTACK	


	.FUNCT	TURN-GURDY-RIGHT,M,P,WHO
	CALL1	FIND-CHAR? >WHO
	ZERO?	WHO /?CND1
	FSET?	WHO,MONSTER \?CCL4
	FSET?	WHO,SLEEPING /?CND1
	INC	'M
	JUMP	?CND1
?CCL4:	INC	'P
?CND1:	SET	'LAST-CRANK-DIR,RIGHT
	CALL	TURN-GURDY?,W?RIGHT,STR?595
	ZERO?	STACK \TRUE
	PRINT	TAB
	ZERO?	DPOINTER \?CCL11
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	SET	'P-WALK-DIR,FALSE-VALUE
	SET	'OLD-HERE,FALSE-VALUE
	SET	'GURDY-TIMER,RESET-GURDY
	SET	'LIT?,TRUE-VALUE
	PRINTI	"A rainbow of dazzling spectra"
	PRINT	STR?596
	PRINTI	"! It swirls and blends with the "
	CALL1	PLAIN-ROOM?
	ZERO?	STACK \?CCL14
	EQUAL?	HERE,GURDY-ROOM \?CND15
	PRINTI	"already intense "
?CND15:	PRINTI	"colors of the "
	JUMP	?CND12
?CCL14:	FSET	HERE,SEEN
	PRINTI	"colorless "
?CND12:	ICALL1	ROOM-OR-LAND
	EQUAL?	HERE,GURDY-ROOM \?CND17
	PRINT	PERIOD
	RTRUE	
?CND17:	SET	'GURDY-ROOM,HERE
	ICALL2	QUEUE,I-COLOR
	PRINTI	", creating rich, saturated hues that remind you of a postcard"
	ZERO?	M /?CND19
	PRINT	STR?597
	ICALL2	THE-PRINT,WHO
	PRINTI	" seems unmoved by the display"
?CND19:	PRINT	PERIOD
	CALL2	HAPPY-CHAR?,WHO
	ZERO?	STACK \TRUE
	EQUAL?	WHO,OWOMAN,SALT \?CCL25
	ICALL2	LOVELY,WHO
	RTRUE	
?CCL25:	ZERO?	P /TRUE
	FSET	WHO,SEEN
	PRINT	TAB
	ICALL2	CTHE-PRINT,WHO
	PRINTR	" gapes at the display."
?CCL11:	EQUAL?	DPOINTER,1 \?CCL28
	PRINTI	"Strains of soothing melody fill the air"
	PRINT	STR?598
	PRINT	STR?599
	PRINTI	"as the liquid chords swell to a glorious crescendo, then fade into silence"
	ZERO?	M /?CND29
	PRINTI	". Even "
	ICALL2	THE-PRINT,WHO
	PRINTI	" was not unmoved"
?CND29:	PRINT	PERIOD
	CALL2	VISIBLE?,DACT
	ZERO?	STACK /?CCL33
	FSET	DACT,SEEN
	ZERO?	DACT-SLEEP /?CND34
	EQUAL?	DACT-SLEEP,3 /TRUE
	INC	'DACT-SLEEP
	RTRUE	
?CND34:	PRINT	TAB
	PRINTI	"A tear trembles on "
	ICALL2	THE-PRINT,DACT
	PRINTI	"'s beak. You watch as it"
	ICALL2	DACT-TO-SLEEP,TRUE-VALUE
	RTRUE	
?CCL33:	CALL2	HAPPY-CHAR?,WHO
	ZERO?	STACK \TRUE
	EQUAL?	WHO,OWOMAN,MAYOR,CLERIC \?CCL41
	ICALL2	LOVELY,WHO
	RTRUE	
?CCL41:	EQUAL?	WHO,SALT \?CCL43
	FSET	WHO,SEEN
	PRINT	TAB
	PRINTI	"""Thought I heard music,"" remarks "
	ICALL2	THE-PRINT,WHO
	PRINT	PERIOD
	RTRUE	
?CCL43:	ZERO?	P /TRUE
	FSET	WHO,SEEN
	PRINT	TAB
	ICALL2	CTHE-PRINT,WHO
	PRINTR	" smiles at the sound."
?CCL28:	EQUAL?	DPOINTER,2 \?CCL46
	PRINTI	"A tide of flavorful aromas"
	PRINT	STR?596
	PRINT	STR?598
	PRINTI	"breathe deeply as the scents of a dozen exotic delicacies drift past your nostrils, one by one"
	ZERO?	M /?CND47
	ICALL2	NOW-HUNGRY,WHO
?CND47:	PRINT	PERIOD
	CALL2	HAPPY-CHAR?,WHO
	ZERO?	STACK \TRUE
	ZERO?	P /TRUE
	FSET	WHO,SEEN
	PRINT	TAB
	PRINTI	"""Ahhh,"" sighs "
	ICALL2	THE-PRINT,WHO
	PRINT	PERIOD
	RTRUE	
?CCL46:	EQUAL?	DPOINTER,3 \?CCL54
	PRINTI	"A mouthwatering cascade of flavor washes over your tongue"
	PRINT	STR?598
	PRINT	STR?599
	PRINTI	"to savor the taste of all your favorite dishes"
	ZERO?	M /?CND55
	ICALL2	NOW-HUNGRY,WHO
?CND55:	PRINT	PERIOD
	CALL2	HAPPY-CHAR?,WHO
	ZERO?	STACK \TRUE
	ZERO?	P /TRUE
	FSET	WHO,SEEN
	PRINT	TAB
	PRINTI	"""Mmmmm,"" sighs "
	ICALL2	THE-PRINT,WHO
	PRINTI	", smacking "
	FSET?	WHO,FEMALE \?CCL63
	PRINTI	"her"
	JUMP	?CND61
?CCL63:	PRINTI	"his"
?CND61:	PRINTR	" lips."
?CCL54:	EQUAL?	DPOINTER,4 \?CND9
	PRINTI	"Invisible fingers of delight caress your skin! "
	PRINT	STR?598
	PRINT	STR?599
	PRINTI	"as a soothing, sensuous tingle spreads over every inch of your body"
	ZERO?	M /?CND65
	PRINT	PTAB
	ICALL2	CTHE-PRINT,WHO
	PRINTI	" emits a brief moan of pleasure"
?CND65:	PRINT	PERIOD
	CALL2	HAPPY-CHAR?,WHO
	ZERO?	STACK \TRUE
	ZERO?	P /TRUE
	FSET	WHO,SEEN
	PRINT	TAB
	PRINTI	"""Mmmmm,"" moans "
	ICALL2	THE-PRINT,WHO
	PRINT	PERIOD
	RTRUE	
?CND9:	ICALL2	RENEW-ALL-IN,INGURDY
	PRINTI	"A flood of joyful memory swells in your mind"
	PRINT	STR?598
	PRINT	STR?599
	PRINTI	"as old friends and forgotten secrets rise one by one from of the mists of time, then fade into obscurity"
	ZERO?	M /?CND71
	ICALL2	LAST-MEAL,WHO
?CND71:	PRINT	PERIOD
	CALL2	HAPPY-CHAR?,WHO
	ZERO?	STACK \TRUE
	ZERO?	P /TRUE
	FSET	WHO,SEEN
	PRINT	TAB
	ICALL2	CTHE-PRINT,WHO
	PRINTR	" smiles wistfully."


	.FUNCT	LOVELY,WHO
	FSET	WHO,SEEN
	PRINT	TAB
	PRINTI	"""Lovely,"" remarks "
	ICALL2	THE-PRINT,WHO
	PRINT	PERIOD
	RTRUE	


	.FUNCT	LAST-MEAL,WHO
	PRINT	STR?597
	ICALL2	THE-PRINT,WHO
	PRINTI	" seem"
	FSET?	WHO,PLURAL /?CND1
	PRINTC	115
?CND1:	PRINTI	" to remember only its last meal"
	RTRUE	


	.FUNCT	NOW-HUNGRY,WHO
	PRINT	STR?597
	ICALL2	THE-PRINT,WHO
	PRINTI	" now looks hungrier than before"
	RTRUE	


	.FUNCT	HAPPY-CHAR?,WHO
	EQUAL?	WHO,MINX,UNICORN,BABY /?CTR2
	EQUAL?	WHO,MAMA,DACT \FALSE
?CTR2:	PRINT	TAB
	ICALL2	CTHE-PRINT,WHO
	PRINTR	" seemed to enjoy that."


	.FUNCT	UNHAPPY-CHAR?,WHO
	EQUAL?	WHO,MINX,UNICORN,BABY /?CTR2
	EQUAL?	WHO,MAMA,DACT \FALSE
?CTR2:	PRINT	TAB
	ICALL2	CTHE-PRINT,WHO
	PRINTR	" gives you a hurt look."


	.FUNCT	TURN-GURDY-LEFT,M,P,WHO
	CALL1	FIND-CHAR? >WHO
	ZERO?	WHO /?CND1
	FSET?	WHO,MONSTER \?CCL4
	FSET?	WHO,SLEEPING /?CND1
	INC	'M
	JUMP	?CND1
?CCL4:	INC	'P
?CND1:	SET	'LAST-CRANK-DIR,LEFT
	CALL	TURN-GURDY?,W?LEFT,STR?600
	ZERO?	STACK \TRUE
	PRINT	TAB
	ZERO?	DPOINTER \?CCL11
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	ZERO?	GURDY-TIMER /?CND12
	SET	'GURDY-TIMER,0
	ICALL2	DEQUEUE,I-COLOR
?CND12:	PRINT	XTHE
	EQUAL?	HERE,GURDY-ROOM \?CCL16
	PRINTI	"colors in the "
	ICALL1	ROOM-OR-LAND
	PRINTI	" around you fade back to "
	CALL1	PLAIN-ROOM?
	ZERO?	STACK /?CCL19
	SET	'OLD-HERE,FALSE-VALUE
	SET	'P-WALK-DIR,FALSE-VALUE
	FCLEAR	HERE,SEEN
	PRINTB	W?GRAY
	JUMP	?CND14
?CCL19:	PRINTI	"normal"
	JUMP	?CND14
?CCL16:	CALL1	PLAIN-ROOM?
	ZERO?	STACK /?CCL22
	PRINTI	"grayness"
	JUMP	?CND20
?CCL22:	PRINTI	"color"
?CND20:	PRINTI	" of the "
	ICALL1	ROOM-OR-LAND
	PRINTI	" around you becomes pasty and dull"
?CND14:	SET	'GURDY-ROOM,FALSE-VALUE
	ZERO?	M /?CND23
	PRINTI	", an effect "
	ICALL2	THE-PRINT,WHO
	PRINTI	" seem"
	FSET?	WHO,PLURAL /?CND25
	PRINTC	115
?CND25:	PRINTI	" not to mind in the least"
?CND23:	PRINT	PERIOD
	ZERO?	P /TRUE
	FSET	WHO,SEEN
	PRINT	TAB
	ICALL2	CTHE-PRINT,WHO
	PRINTR	" glances around, puzzled."
?CCL11:	EQUAL?	DPOINTER,1 \?CCL30
	PRINTI	"A dreadful cacophony of random noise"
	PRINT	STR?596
	PRINTI	"! You cover your ears and wince until the onslaught fades to a welcome silence"
	ZERO?	M /?CND31
	ICALL2	ANNOY-WHO,WHO
?CND31:	PRINT	PERIOD
	CALL2	UNHAPPY-CHAR?,WHO
	ZERO?	STACK \TRUE
	ZERO?	P /TRUE
	FSET	WHO,SEEN
	PRINT	TAB
	PRINTI	"""Ouch,"" comments "
	ICALL2	THE-PRINT,WHO
	PRINT	STR?601
	RTRUE	
?CCL30:	EQUAL?	DPOINTER,2 \?CCL38
	PRINTI	"A nauseating cloud of foul, reeking stenches"
	PRINT	STR?596
	PRINTI	"! You cover your nose and try not to gag as the air clears all too slowly"
	ZERO?	M /?CND39
	PRINTI	", noting that "
	ICALL2	THE-PRINT,WHO
	PRINTI	" seem"
	FSET?	WHO,PLURAL /?CND41
	PRINTC	115
?CND41:	PRINTI	" to have enjoyed the disgusting onslaught"
?CND39:	PRINT	PERIOD
	CALL2	UNHAPPY-CHAR?,WHO
	ZERO?	STACK \TRUE
	ZERO?	P /TRUE
	FSET	WHO,SEEN
	PRINT	TAB
	PRINTI	"""Put that away,"" coughs "
	ICALL2	THE-PRINT,WHO
	PRINT	STR?601
	RTRUE	
?CCL38:	EQUAL?	DPOINTER,3 \?CCL48
	PRINTI	"The unspeakable flavor of dead, rotting filth coats your tongue! You spit and cough uncontrollably until your mouth absorbs the dreadful taste"
	ZERO?	M /?CND49
	ICALL2	ANNOY-WHO,WHO
?CND49:	PRINT	PERIOD
	CALL2	UNHAPPY-CHAR?,WHO
	ZERO?	STACK \TRUE
	ZERO?	P /TRUE
	FSET	WHO,SEEN
	PRINT	TAB
	PRINTI	"""Enough,"" gags "
	ICALL2	THE-PRINT,WHO
	PRINT	STR?601
	RTRUE	
?CCL48:	EQUAL?	DPOINTER,4 \?CND9
	PRINTI	"Your skin erupts in a dozen places with a painful, burning itch! No scratching can relieve the suffering you endure until the invisible rash subsides"
	ZERO?	M /?CND56
	ICALL2	ANNOY-WHO,WHO
?CND56:	PRINT	PERIOD
	CALL2	UNHAPPY-CHAR?,WHO
	ZERO?	STACK \TRUE
	ZERO?	P /TRUE
	FSET	WHO,SEEN
	PRINT	TAB
	PRINTI	"""Thanks,"" mutters "
	ICALL2	THE-PRINT,WHO
	PRINT	STR?601
	RTRUE	
?CND9:	ICALL2	MUNG-ALL-IN,INGURDY
	PRINTI	"A black tide of memory swells in your mind! You blush with shame as thoughtless deeds and filthy little secrets emerge from the dark reaches of your past to taunt you"
	ZERO?	M /?CND62
	ICALL2	LAST-MEAL,WHO
?CND62:	PRINT	PERIOD
	CALL2	UNHAPPY-CHAR?,WHO
	ZERO?	STACK \TRUE
	ZERO?	P /TRUE
	FSET	WHO,SEEN
	PRINT	TAB
	ICALL2	CTHE-PRINT,WHO
	PRINTR	" gives you a bitter glare."


	.FUNCT	ANNOY-WHO,WHO
	PRINT	STR?597
	ICALL2	THE-PRINT,WHO
	PRINTI	" now look"
	FSET?	WHO,PLURAL /?CND1
	PRINTC	115
?CND1:	PRINTI	" more annoyed than ever"
	RFALSE	


	.FUNCT	TURN-GURDY?,WRD,STR
	CALL2	NO-MAGIC-HERE?,GURDY
	ZERO?	STACK \TRUE
	PRINTI	"You turn the crank on "
	ICALL2	THE-PRINT,GURDY
	PRINTI	" to the "
	PRINTB	WRD
	PRINTI	", and watch as "
	FSET?	GURDY,OPENED \?CND3
	PRINTI	"wraiths of soft "
	PRINT	STR
	PRINTR	" light escape from the open box, dispersing with no effect."
?CND3:	PRINTI	"a soft "
	PRINT	STR
	PRINTI	" glow brightens the rim of the closed lid."
	CRLF	
	RFALSE	


	.FUNCT	ROOM-OR-LAND
	FSET?	HERE,INDOORS \?CND1
	PRINTD	GLOBAL-ROOM
	RTRUE	
?CND1:	PRINTB	W?LANDSCAPE
	RTRUE	


	.FUNCT	REGAIN-SENSES
	SET	'P-WALK-DIR,FALSE-VALUE
	SET	'OLD-HERE,FALSE-VALUE
	ICALL1	CARRIAGE-RETURNS
	PRINTI	"You slowly come to your senses."
	CRLF	
	ZERO?	VERBOSITY /FALSE
	CRLF	
	RFALSE	


	.FUNCT	I-STORM
	DLESS?	'STORM-TIMER,1 \?CCL3
	REMOVE	TWISTER
	SET	'STORM-TIMER,0
	ICALL2	DEQUEUE,I-STORM
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PUTP	IN-FARM,P?SDESC,0
	FSET	IN-FARM,SEEN
	PRINT	TAB
	ICALL2	ITALICIZE,STR?602
	PRINTI	"! "
	ICALL2	CTHE-PRINT,FARMHOUSE
	PRINTI	" strikes "
	ICALL2	THE-PRINT,GROUND
	PRINTI	" with a sickening thud. You're thrown across the room, hit "
	PRINTD	HEAD
	PRINTR	" and...





A ray of sunlight opens your eyes."
?CCL3:	EQUAL?	STORM-TIMER,2 \?CCL5
	PRINT	TAB
	ICALL2	CTHE-PRINT,FLOOR
	PRINTR	" lurches crazily underfoot."
?CCL5:	EQUAL?	STORM-TIMER,1 \FALSE
	PRINTI	"  The entire "
	PRINTD	FARMHOUSE
	PRINTI	" shudders as "
	ICALL2	THE-PRINT,TWISTER
	PRINTR	" loosens its grip. It feels as if you're starting to fall!"


	.FUNCT	I-TWISTER,X
	FSET	CORBIES,SEEN
	PRINT	TAB
	DLESS?	'STORM-TIMER,1 \?CCL3
	ICALL2	DEQUEUE,I-TWISTER
	ICALL2	DEQUEUE,I-CORBIES
	PRINTI	"The wind "
	EQUAL?	HERE,IN-FARM \?CND4
	PRINT	STR?603
?CND4:	PRINTI	"rises to a deafening shriek, and blowing dust turns the day to night"
	PRINT	PTAB
	ICALL2	ITALICIZE,STR?604
	PRINTI	"! The "
	EQUAL?	HERE,FARM-ROOM \?CND6
	PRINTD	TWISTER
	PRINTI	" rips a clapboard off "
	ICALL2	THE-PRINT,FARMHOUSE
	PRINTI	", blows it across the yard and drives it deep into your chest"
	ICALL1	JIGS-UP
	RTRUE	
?CND6:	FSET	FARMHOUSE,SEEN
	SET	'STORM-TIMER,INIT-STORM-TIMER
	ICALL2	QUEUE,I-STORM
	PUTP	IN-FARM,P?SDESC,DESCRIBE-IN-FARM
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PUTP	IN-FARM,P?FNUM,0
	ICALL	NEW-EXIT?,IN-FARM,P?NORTH,1409,IN-FROON,FARM-DOOR
	ICALL	NEW-EXIT?,IN-FARM,P?OUT,1409,IN-FROON,FARM-DOOR
	FSET?	FARM-DOOR,OPENED \?CND8
	FCLEAR	FARM-DOOR,OPENED
	PRINTD	FARM-DOOR
	PRINTI	" slams shut as the "
?CND8:	PRINTD	FARMHOUSE
	PRINTI	" jerks violently upward, throwing you to your knees. You feel a strange whirling sensation as "
	ICALL2	THE-PRINT,FLOOR
	PRINTI	" begins to dip and sway like the deck of a boat. A glance out "
	ICALL2	THE-PRINT,FARM-WINDOW
	PRINTI	" confirms what your popping ears already know: "
	ICALL2	CTHE-PRINT,FARMHOUSE
	PRINTI	" is soaring high above the Fields of Frotzen, caught in the vortex of a mighty "
	PRINTD	TWISTER
	PRINTC	33
	CRLF	
	ICALL2	REFRESH-MAP,FALSE-VALUE
	RTRUE	
?CCL3:	EQUAL?	STORM-TIMER,1 \?CCL11
	PRINTI	"The wind "
	EQUAL?	HERE,IN-FARM \?CND12
	PRINT	STR?603
?CND12:	PRINTI	"grows from a rumble to a roar as the churning vortex whirls closer."
	CRLF	
	EQUAL?	HERE,IN-FARM /TRUE
	FSET?	FARM-DOOR,OPENED /?CND14
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	FSET	FARM-DOOR,OPENED
	PRINT	TAB
	ICALL2	ITALICIZE,STR?605
	PRINTI	"! "
	ICALL2	CTHE-PRINT,FARM-DOOR
	PRINTI	" blows open in the gale."
	CRLF	
?CND14:	CALL2	VISIBLE?,MINX
	ZERO?	STACK /TRUE
	MOVE	MINX,IN-FARM
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	TAB
	ICALL2	CTHE-PRINT,MINX
	PRINTI	" races for the safety of "
	ICALL2	THE-PRINT,FARM
	PRINT	PERIOD
	RTRUE	
?CCL11:	EQUAL?	STORM-TIMER,2 \?CCL21
	MOVE	TWISTER,HERE
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINTI	"An ominous rumble "
	SET	'X,W?SOUTHEAST
	EQUAL?	HERE,IN-FARM \?CND22
	FSET	TWISTER,NODESC
	SET	'X,W?WINDOW
	PRINT	STR?603
?CND22:	PRINTI	"draws your eyes to the "
	PRINTB	X
	PRINTI	", where a dark, boiling thundercloud is racing across the fields"
	PRINT	PTAB
	ICALL1	KERBLAM
	PRINTR	"Lightning heralds the approach of a deadly funnel!"
?CCL21:	EQUAL?	STORM-TIMER,3 \?CCL25
	PRINTI	"The sky "
	EQUAL?	HERE,IN-FARM \?CND26
	PRINTI	"outside "
?CND26:	PRINTI	"is becoming very dark."
	CRLF	
	CALL2	VISIBLE?,MINX
	ZERO?	STACK /TRUE
	PRINT	TAB
	ICALL2	CTHE-PRINT,MINX
	PRINTR	" sniffs the air and whimpers."
?CCL25:	PRINTR	"The air feels unusually still and expectant."


	.FUNCT	I-FROON
	EQUAL?	HERE,IN-FARM \?CND1
	GRTR?	FSCRIPT,2 \FALSE
	FSET?	FCROWD,SEEN \?CND5
	FCLEAR	FCROWD,SEEN
	RFALSE	
?CND5:	FSET	FCROWD,SEEN
	PRINT	TAB
	PRINTR	"The cheers outside show no sign of stopping."
?CND1:	PRINT	TAB
	IGRTR?	'FSCRIPT,11 \?CCL9
	PRINTI	"As you stand contemplating the natural beauty of the "
	PRINTD	FROON
	PRINTI	"ian landscape, another "
	PRINTD	FARMHOUSE
	PRINTI	" falls out of the sky and lands on "
	PRINTD	HEAD
	ICALL1	JIGS-UP
	RTRUE	
?CCL9:	EQUAL?	FSCRIPT,11 \?CCL11
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PUTP	IN-FROON,P?HEAR,0
	REMOVE	MAYOR
	SET	'P-HIM-OBJECT,NOT-HERE-OBJECT
	REMOVE	LADY
	SET	'P-HER-OBJECT,NOT-HERE-OBJECT
	REMOVE	FCROWD
	SET	'P-THEM-OBJECT,NOT-HERE-OBJECT
	PRINTI	"With a peremptory sniff, "
	ICALL2	THE-PRINT,MAYOR
	PRINTI	" snaps "
	ICALL2	THE-PRINT,JBOX
	PRINTI	" shut"
	PRINT	PTAB
	PRINTI	"""Very well,"" he sighs. ""I'm sure there are plenty of other heroes who would be more than happy to accept our humble gifts and everlasting adulation.""
  Grumbling with indignation, he and the other folk sullenly retreat into "
	ICALL2	THE-PRINT,FBEDS
	PRINTR	". In moments, you are completely alone."
?CCL11:	EQUAL?	FSCRIPT,10 \?CCL13
	PRINTI	"""The day is getting long,"" notes "
	ICALL2	THE-PRINT,MAYOR
	PRINTI	" with obvious irritation. ""Please choose one of the keys. "
	ICALL2	ITALICIZE,STR?606
	PRINT	PERQ
	RTRUE	
?CCL13:	EQUAL?	FSCRIPT,9 \?CCL15
	ICALL2	CTHE-PRINT,MAYOR
	PRINTI	" taps his foot impatiently. """
	PRINT	CYOUR
	ICALL1	HONORED-ONE
	PRINTR	" will be so kind as to select a key?"""
?CCL15:	EQUAL?	FSCRIPT,8 \?CCL17
	PRINTI	"""Choose any key you like,"" prompts "
	ICALL2	THE-PRINT,MAYOR
	PRINTR	" helpfully."
?CCL17:	EQUAL?	FSCRIPT,7 \?CCL19
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	FSET	JBOX,OPENED
	ICALL2	CTHE-PRINT,MAYOR
	PRINTI	" opens "
	ICALL2	THE-PRINT,JBOX
	PRINTI	" with a grand flourish.
  ""Behold!"" he cries. ""Herein lie the Keys to the Kingdom of "
	PRINTD	FROON
	PRINTI	". This gift is the greatest honor my people can bestow. Humbly, and with eternal gratitude, do we offer one to you."""
	CRLF	
	PRINT	TAB
	ICALL2	CTHE-PRINT,FCROWD
	PRINTR	" redoubles its cheering."
?CCL19:	EQUAL?	FSCRIPT,6 \?CCL21
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	MOVE	JBOX,MAYOR
	PRINTI	"""Such a mighty deed commands many thanks,"" continues "
	ICALL2	THE-PRINT,MAYOR
	PRINTI	". ""Bring me the Cask!""
  ""The Cask! "
	ICALL2	CTHE-PRINT,MAYOR
	PRINTI	" sends for the Cask!"" whispers "
	ICALL2	THE-PRINT,FCROWD
	PRINTI	" as a servant disappears into "
	ICALL2	THE-PRINT,FBEDS
	PRINTI	". Moments later he returns bearing a small "
	PRINTD	JBOX
	PRINTI	", which is delivered to "
	ICALL2	THE-PRINT,MAYOR
	PRINT	PERIOD
	RTRUE	
?CCL21:	EQUAL?	FSCRIPT,5 \?CCL23
	PRINTI	"""For over three hundred years, my people have suffered in the shadow of the Heeled One,"" explains "
	ICALL2	THE-PRINT,MAYOR
	PRINTI	", glancing hatefully at "
	ICALL2	THE-PRINT,BOOT
	PRINTI	". ""At long last, his evil-smelling reign is at an end!""
  ""Huzzah!"" cries "
	ICALL2	THE-PRINT,FCROWD
	PRINTI	", dancing gleefully around "
	ICALL2	THE-PRINT,FARMHOUSE
	PRINTR	". ""Huzzah! The Boot is licked!"""
?CCL23:	EQUAL?	FSCRIPT,4 \?CCL25
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	MOVE	MAYOR,IN-FROON
	ICALL2	SEE-CHARACTER,MAYOR
	FSET	FCROWD,NODESC
	PUTP	IN-FROON,P?HEAR,MAYOR
	PRINTI	"An important-looking man, tinier than all the rest, emerges from "
	ICALL2	THE-PRINT,FCROWD
	PRINT	PTAB
	PRINTI	"""Greetings, brave "
	ICALL1	SAY-SORC
	PRINTI	","" he mumbles, grovelling at your feet. ""I am Grope, Mayor of the City of "
	PRINTD	FROON
	PRINTI	". On behalf of us all, I welcome you!""
  ""Welcome! Welcome to the "
	ICALL1	SAY-SORC
	PRINTI	"!"" echoes "
	ICALL2	THE-PRINT,FCROWD
	PRINTR	" joyfully."
?CCL25:	EQUAL?	FSCRIPT,3 \?CCL27
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	MOVE	FCROWD,IN-FROON
	SET	'P-THEM-OBJECT,FCROWD
	PUTP	IN-FROON,P?HEAR,FCROWD
	FSET	LADY,NODESC
	PRINTI	"""The Heeled One is fallen! Come see! Come see!""
  More and more of the little folk emerge from "
	ICALL2	THE-PRINT,FBEDS
	PRINTR	", staring first at the crushed boot, then at you. Soon you're completely surrounded by joyous little faces."
?CCL27:	EQUAL?	FSCRIPT,2 \FALSE
	ICALL2	CTHE-PRINT,LADY
	PRINTI	" tiptoes over to "
	ICALL2	THE-PRINT,BOOT
	PRINTR	" and gawks at it, awestruck. She gingerly reaches out to tickle the lifeless sole. Nothing happens. A broad grin spreads across her childlike face.
  ""It's dead,"" she squeaks, turning to look at you. ""You killed it."""


	.FUNCT	SAY-SORC
	PRINTI	"sorcere"
	FSET?	PLAYER,FEMALE \?CND1
	PRINTI	"ss"
	RTRUE	
?CND1:	PRINTC	114
	RTRUE	


	.FUNCT	I-SHILL
	FSET?	SHILL,NODESC \?CCL3
	FCLEAR	SHILL,NODESC
	RFALSE	
?CCL3:	IGRTR?	'SHILL-TIMER,5 \?CCL5
	ICALL2	DEQUEUE,I-SHILL
	SET	'SHILL-TIMER,0
	ICALL2	VANISH,SHILL
	EQUAL?	HERE,ON-WHARF \FALSE
	PRINT	TAB
	ICALL2	CTHE-PRINT,SHILL
	PRINTR	" slowly floats out of sight."
?CCL5:	EQUAL?	HERE,ON-WHARF \FALSE
	EQUAL?	SHILL-TIMER,4 \?CCL11
	PRINT	TAB
	ICALL2	CTHE-PRINT,SHILL
	PRINTR	" is beginning to float away."
?CCL11:	EQUAL?	SHILL-TIMER,1 \FALSE
	PRINT	TAB
	ICALL1	SEE-SHILL
	RTRUE	


	.FUNCT	SEE-SHILL
	FSET	SHILL,SEEN
	SET	'SHILL-TIMER,1
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	SET	'P-IT-OBJECT,SHILL
	MOVE	SHILL,COVE
	PRINTI	"A movement draws your eye to the water, where "
	ICALL2	PRINTA,SHILL
	PRINTR	" is bobbing on the waves."


	.FUNCT	I-DACT,V,X
	CALL2	VISIBLE?,DACT >V
	ZERO?	DACT-SLEEP /?CND1
	DEC	'DACT-SLEEP
	EQUAL?	DACT-SLEEP,3 /FALSE
	ZERO?	V /?CND3
	PRINT	TAB
?CND3:	ZERO?	DACT-SLEEP \?CCL9
	ICALL1	WAKE-DACT
	RTRUE	
?CCL9:	ZERO?	V /FALSE
	ICALL2	CTHE-PRINT,DACT
	EQUAL?	DACT-SLEEP,1 \?CND11
	PRINTR	" snorts restlessly. It looks as if it's about to wake up."
?CND11:	PRINTR	" caws softly in its dreams."
?CND1:	ZERO?	V /FALSE
	FSET?	DACT,SEEN \?CCL17
	FCLEAR	DACT,SEEN
	RFALSE	
?CCL17:	RANDOM	100
	LESS?	50,STACK \FALSE
	FSET	DACT,SEEN
	SET	'X,HAPPY-DACT
	EQUAL?	HERE,IN-SKY \?CCL21
	SET	'X,FLYING-DACT
	JUMP	?CND19
?CCL21:	FSET?	DACT,MUNGED \?CND19
	SET	'X,SICK-DACT
?CND19:	PRINT	TAB
	ICALL2	CTHE-PRINT,DACT
	CALL2	PICK-NEXT,X
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	


	.FUNCT	WAKE-DACT
	ICALL	REPLACE-ADJ?,DACT,W?SLEEPING,W?AWAKE
	FCLEAR	DACT,SLEEPING
	FSET	DACT,SEEN
	SET	'DACT-SLEEP,0
	CALL2	VISIBLE?,DACT
	ZERO?	STACK /TRUE
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	ICALL2	CTHE-PRINT,DACT
	PRINTI	" shakes its head, blinks its eyes and yawns stupidly."
	CRLF	
	FSET?	DACT,MUNGED \TRUE
	IN?	SADDLE,DACT \TRUE
	MOVE	SADDLE,HERE
	PRINT	TAB
	ICALL2	CTHE-PRINT,SADDLE
	PRINT	SON
	ICALL2	THE-PRINT,DACT
	PRINTI	"'s back aggravates his wound. So he shakes it off with a violent twist"
	IN?	PLAYER,SADDLE \?CND7
	MOVE	PLAYER,HERE
	PRINTI	", which sends you sprawling to "
	ICALL2	THE-PRINT,GROUND
	ICALL1	RELOOK
	RTRUE	
?CND7:	PRINT	PERIOD
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	RTRUE	


	.FUNCT	I-GRINDER-APPEARS
	EQUAL?	HERE,AT-GATE \FALSE
	DLESS?	'GRTIMER,1 \?CCL5
	SET	'GRTIMER,0
	ICALL2	DEQUEUE,I-GRINDER-APPEARS
	MOVE	GRINDER,AT-GATE
	ICALL1	SEE-GRINDER
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	TAB
	PRINTI	"Blue planes of energy form in the space around you. Their patterns of intersection whirl around a vortex of laughter, growing in power and malevolence.."
	PRINT	PERIOD
	ZERO?	DMODE /?CCL7
	EQUAL?	PRIOR,SHOWING-INV,SHOWING-STATS \TRUE
?CCL7:	ICALL2	RELOOK,TRUE-VALUE
	RTRUE	
?CCL5:	EQUAL?	GRTIMER,1 \?CCL11
	PRINT	TAB
	PRINTR	"The invisible voice chuckles again, and the tension in the air rises."
?CCL11:	EQUAL?	GRTIMER,2 \FALSE
	PRINT	TAB
	PRINTI	"A burst of hollow laughter echoes up and down the street. You turn, but see no one"
	PRINT	PTAB
	PRINTR	"There's a faint, electrical tension in the air."


	.FUNCT	SEE-GRINDER
	ICALL2	SEE-CHARACTER,GRINDER
	ICALL2	QUEUE,I-GRINDER
	SET	'LAST-MONSTER,GRINDER
	SET	'LAST-MONSTER-DIR,FALSE-VALUE
	FSET	GRINDER,SEEN
	RFALSE	


	.FUNCT	I-GRINDER
	EQUAL?	HERE,AT-GATE \FALSE
	INC	'GRTIMER
	PRINT	TAB
	GETP	GRINDER,P?ENDURANCE
	LESS?	STACK,1 \?CND3
	ICALL1	EXIT-GRINDER
	ICALL2	CTHE-PRINT,GURDY
	PRINTI	" falls from "
	ICALL2	THE-PRINT,GRINDER
	PRINTR	"'s dying grasp. Moments later, his body dissolves in a puff of steam."
?CND3:	ICALL2	NEXT-ENDURANCE?,GRINDER
	EQUAL?	GRTIMER,1 \?CCL7
	ICALL2	CTHE-PRINT,GRINDER
	PRINTI	" looks you up and down. ""Peasants,"" he sniffs, adjusting a knob on his "
	PRINTD	GURDY
	PRINTI	". ""Like unto sheep.""
  He turns the crank of "
	ICALL2	THE-PRINT,GURDY
	PRINTI	", and the air is filled with the combined stench of five herds of sheep, accompanied by a cacophany of hateful bleating."
	CRLF	
	JUMP	?CND5
?CCL7:	EQUAL?	GRTIMER,2 \?CCL9
	FCLEAR	NYMPH,LIVING
	PRINTI	"Ignoring you for the moment, "
	ICALL2	THE-PRINT,GRINDER
	PRINTI	" strides across to "
	ICALL2	THE-PRINT,GUILD-HALL
	PRINTI	"'s entrance.
  A warning nymph appears beside his "
	ICALL1	NYMPH-SAYS
	PRINTI	"... Oomph!"" This last exclamation is "
	ICALL2	THE-PRINT,NYMPH
	PRINTI	"'s last; for, quick as a wink, "
	ICALL2	THE-PRINT,GRINDER
	PRINTR	" snatches it out of the air and crushes it in his fist. ""Miserable pests."""
?CCL9:	EQUAL?	GRTIMER,3 \?CCL11
	ICALL2	CTHE-PRINT,GRINDER
	PRINTI	" turns around. ""Still here?"" he cries, adjusting his "
	PRINTD	GURDY
	PRINT	PTAB
	PRINTI	"He turns the crank again, and a wall of imaginary flame springs up around you. You wail as your skin burns with synthetic agony."
	CRLF	
	JUMP	?CND5
?CCL11:	EQUAL?	GRTIMER,4 \?CND5
	PRINTI	"""Guess I'll just have to finish you off."""
	CRLF	
	PRINT	TAB
?CND5:	GRTR?	GRTIMER,3 \?CND13
	ICALL2	CTHE-PRINT,GRINDER
	PRINTI	" turns the crank, and "
	CALL2	PICK-NEXT,TORTURES
	PRINT	STACK
	PRINT	PERIOD
?CND13:	ZERO?	AUTO /?CND15
	ICALL1	BMODE-ON
?CND15:	GETP	GRINDER,P?STRENGTH
	RANDOM	STACK
	SUB	0,STACK
	ICALL2	UPDATE-STAT,STACK
	RTRUE	


	.FUNCT	I-DORN,X,L,DIR,TBL,DEST,DAMAGE
	LOC	DORN >L
	EQUAL?	L,HERE \?CCL3
	FSET	DORN,SEEN
	PRINT	TAB
	GETP	DORN,P?ENDURANCE
	LESS?	STACK,1 \?CCL6
	PRINTI	"Howling with pain, "
	ICALL2	THE-PRINT,DORN
	PRINTI	" beats a hasty retreat."
	CRLF	
	ICALL2	KILL-MONSTER,DORN
	RTRUE	
?CCL6:	FSET?	DORN,MUNGED \?CCL8
	ICALL2	CTHE-PRINT,DORN
	DLESS?	'DORN-TIMER,1 \?CCL11
	SET	'DORN-TIMER,0
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	FCLEAR	DORN,MUNGED
	PRINTR	" sniffs away the last of its tears."
?CCL11:	EQUAL?	DORN-TIMER,1 \?CCL13
	PRINTR	" blows its nose noisily. It looks as if it's recovering."
?CCL13:	EQUAL?	DORN-TIMER,2 \?CND9
	PRINTR	" flails around the room, its eyes streaming. ""Hurumph!"" it bawls."
?CND9:	PRINTR	" almost crashes into you in its blind frenzy. ""Hurumph!"" it cries, its face soaked with tears."
?CCL8:	FSET?	DORN,SURPRISED \?CND4
	ICALL2	SEE-MONSTER,DORN
	ICALL2	CTHE-PRINT,DORN
	PRINTR	" begins turning its 69 eyes in your direction."
?CND4:	ICALL2	NEXT-ENDURANCE?,DORN
	CALL2	MONSTER-STRIKES?,DORN >DAMAGE
	ICALL2	CTHE-PRINT,DORN
	ZERO?	DAMAGE /?CND16
	CALL2	PICK-NEXT,DORN-HITS
	PRINT	STACK
	PRINTI	", and you feel strength drain from your body."
	CRLF	
	ICALL	UPDATE-STAT,DAMAGE,STRENGTH
	RTRUE	
?CND16:	CALL2	PICK-NEXT,DORN-MISSES
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CCL3:	FSET?	DORN,MUNGED \?CCL19
	DLESS?	'DORN-TIMER,1 \FALSE
	SET	'DORN-TIMER,0
	FCLEAR	DORN,MUNGED
	RFALSE	
?CCL19:	INTBL?	HERE,DORN-ROOMS+1,5,1 >X /?CND1
	REMOVE	DORN
	FCLEAR	DORN,SLEEPING
	FCLEAR	DORN,MUNGED
	FSET	DORN,SURPRISED
	SET	'DORN-TIMER,0
	FSET	DORN,NODESC
	ICALL2	DEQUEUE,I-DORN
	RFALSE	
?CND1:	CALL	MOVE-MONSTER?,DORN,TRUE-VALUE >DIR
	ZERO?	DIR /FALSE
	FSET	DORN,SEEN
	PRINT	TAB
	RANDOM	100
	LESS?	50,STACK /?CND25
	PRINTI	"""Hurumph!"" "
?CND25:	ICALL2	CTHE-PRINT,DORN
	EQUAL?	DIR,W?UP,W?DOWN \?CND27
	PRINTI	" clambers "
	PRINTB	DIR
	PRINTR	" the steps."
?CND27:	PRINT	STR?581
	PRINTB	DIR
	PRINT	PERIOD
	RTRUE	


	.FUNCT	I-ONION,V
	CALL2	VISIBLE?,ONION >V
	DLESS?	'ONION-TIMER,1 \?CCL3
	SET	'ONION-TIMER,0
	ICALL2	DEQUEUE,I-ONION
	ZERO?	DORN-TIMER /?CND4
	SET	'DORN-TIMER,1
?CND4:	ZERO?	V /FALSE
	PRINT	TAB
	ICALL2	CTHE-PRINT,ONION
	PRINTR	"'s sting diminishes enough to dry your eyes."
?CCL3:	ZERO?	V /FALSE
	PRINT	TAB
	IN?	DORN,HERE \?CND9
	FSET?	DORN,MUNGED /?CND9
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	FSET	DORN,MUNGED
	SET	'DORN-TIMER,4
	FSET	DORN,SEEN
	ICALL2	CTHE-PRINT,DORN
	PRINTI	"'s multiple eyes turn red and watery under the pungent influence of "
	ICALL2	THE-PRINT,ONION
	PRINTI	". ""Hurumph!"" it wails, utterly helpless"
	PRINT	PTAB
?CND9:	EQUAL?	ONION-TIMER,1 \?CCL15
	ICALL2	CTHE-PRINT,ONION
	PRINTR	" seems to be losing its potency."
?CCL15:	EQUAL?	ONION-TIMER,2 \?CND13
	PRINTI	"You rub your swollen eyes to lessen "
	ICALL2	THE-PRINT,ONION
	PRINTR	"'s pungent sting."
?CND13:	PRINTI	"Your eyes become red and itchy as "
	ICALL2	THE-PRINT,ONION
	PRINTI	"'s potent miasma"
	PRINT	STR?596
	PRINT	PERIOD
	RTRUE	


	.FUNCT	I-MOSS
	FSET?	THIS-MOSS,SEEN \?CCL3
	FCLEAR	THIS-MOSS,SEEN
	SET	'MOSS-TIMER,6
	RFALSE	
?CCL3:	DLESS?	'MOSS-TIMER,1 \?CCL5
	PRINT	TAB
	ICALL1	DO-MOSS
	RTRUE	
?CCL5:	EQUAL?	MOSS-TIMER,2,4 /FALSE
	PRINT	TAB
	EQUAL?	MOSS-TIMER,1 \?CCL9
	PRINTI	"Those itchy fingers are becoming quite a nuisance"
	GRTR?	MOSSES,1 \?CND10
	PRINTI	" again"
?CND10:	PRINT	PERIOD
	RTRUE	
?CCL9:	EQUAL?	MOSS-TIMER,3 \?CCL13
	PRINTR	"You give your fingers a satisfying scratch."
?CCL13:	EQUAL?	MOSS-TIMER,5 \FALSE
	ICALL	REPLACE-SYN?,HANDS,W?ZZZP,W?ITCH
	ICALL	REPLACE-ADJ?,HANDS,W?ZZZP,W?ITCHY
	PRINTR	"You idly scratch an itchy finger."


	.FUNCT	DO-MOSS,X
	SET	'THIS-MOSS,FALSE-VALUE
	SET	'MOSS-TIMER,0
	ICALL2	DEQUEUE,I-MOSS
	FSET	HANDS,MUNGED
	ICALL	REPLACE-ADJ?,HANDS,W?ITCHY,W?LONG
	ICALL	REPLACE-ADJ?,HANDS,W?ZZZP,W?SLENDER
	ZERO?	LIT? /?CCL3
	CALL1	LIGHT-SOURCE? >X
	PRINTI	"Damn that itch! You hold your bothersome hand up to "
	ZERO?	X /?CCL6
	ICALL2	THE-PRINT,X
	JUMP	?CND4
?CCL6:	PRINTI	"the light"
?CND4:	GRTR?	MOSSES,1 \?CCL9
	PRINTI	" and flex your fingers again, noting their improved agility"
	JUMP	?CND1
?CCL9:	PRINTI	"... and gasp with shock!"
	CRLF	
	PRINT	TAB
	PRINTI	"Your fingers, once fat and stubby, are now long and slender as a pianist's. You flex the new digits one at a time; they respond with unfamiliar agility. Fact is, your whole body feels tighter and more coordinated than ever"
	JUMP	?CND1
?CCL3:	PRINTI	"Your fingers tingle oddly, and the itch disappears"
?CND1:	PRINT	PERIOD
	ICALL	UPDATE-STAT,8,DEXTERITY,TRUE-VALUE
	RTRUE	


	.FUNCT	I-UNICORN
	EQUAL?	HERE,IN-STABLE \FALSE
	FSET?	STALL,OPENED \?CCL5
	PRINT	TAB
	ICALL2	CTHE-PRINT,UNICORN
	PRINTI	" wastes no time edging her way out of "
	ICALL2	THE-PRINT,STALL
	IN?	CHEST,HERE \?CND6
	PRINT	PERIOD
	ICALL1	UNICORN-OPENS-CHEST
	RTRUE	
?CND6:	PRINTI	". She "
	ICALL1	BYE-UNICORN
	RTRUE	
?CCL5:	FSET?	UNICORN,SEEN \?CCL9
	FCLEAR	UNICORN,SEEN
	RFALSE	
?CCL9:	RANDOM	100
	LESS?	50,STACK \FALSE
	FSET	UNICORN,SEEN
	SET	'P-HER-OBJECT,UNICORN
	PRINT	TAB
	ICALL2	CTHE-PRINT,UNICORN
	PRINTR	" whinnies sadly."


	.FUNCT	I-BABY
	EQUAL?	HERE,JUN0 \FALSE
	FSET?	BABY,SEEN \?CCL5
	FCLEAR	BABY,SEEN
	RFALSE	
?CCL5:	RANDOM	100
	LESS?	50,STACK \FALSE
	FSET	BABY,SEEN
	SET	'P-HIM-OBJECT,BABY
	PRINT	TAB
	ICALL2	CTHE-PRINT,BABY
	PRINTI	" bellows helplessly"
	CALL2	VISIBLE?,MAMA
	ZERO?	STACK /?CND7
	FSET	MAMA,SEEN
	RANDOM	100
	LESS?	50,STACK /?CND7
	SET	'P-HER-OBJECT,MAMA
	PRINTI	", and its mother responds"
?CND7:	PRINT	PERIOD
	RTRUE	


	.FUNCT	I-MAMA,DAMAGE,TBL,LEN,X,L,NL,PL,PLL,DIR
	LOC	MAMA >L
	LOC	PLAYER >PL
	CALL2	VISIBLE?,MAMA
	ZERO?	STACK /?CND1
	FSET?	MAMA,MONSTER /?CND3
	FSET?	MAMA,SEEN \?CCL7
	FCLEAR	MAMA,SEEN
	RFALSE	
?CCL7:	FSET?	MAMA,MONSTER /?CND5
	RANDOM	100
	LESS?	50,STACK \FALSE
?CND5:	SET	'P-HER-OBJECT,MAMA
	FSET	MAMA,SEEN
	PRINT	TAB
	ICALL2	CTHE-PRINT,MAMA
	PRINTI	" bellows"
	CALL2	VISIBLE?,BABY
	ZERO?	STACK /?CND10
	FSET	BABY,SEEN
	PRINTI	" impotently"
	RANDOM	100
	LESS?	50,STACK /?CND10
	SET	'P-HIM-OBJECT,BABY
	PRINTI	", and her baby responds"
?CND10:	PRINT	PERIOD
	RTRUE	
?CND3:	SET	'P-HER-OBJECT,MAMA
	FSET	MAMA,SEEN
	GETP	MAMA,P?ENDURANCE
	LESS?	STACK,1 \?CND14
	PRINTI	"  Bellowing with defeat, "
	ICALL2	THE-PRINT,MAMA
	PRINTI	" limps away into the jungle."
	CRLF	
	ICALL2	KILL-MONSTER,MAMA
	RTRUE	
?CND14:	CALL2	STILL-SLEEPING?,MAMA
	ZERO?	STACK \TRUE
	PRINT	TAB
	ICALL2	CTHE-PRINT,MAMA
	EQUAL?	L,PL \?CCL20
	EQUAL?	L,MAW \?CND21
	CALL2	PICK-NEXT,MAMA-CLIMBS
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CND21:	CALL2	MONSTER-STRIKES?,MAMA >X
	PRINTI	" charges you"
	ZERO?	X /?CND23
	ZERO?	STATIC \?CCL27
	PRINTI	". Ooof!"
	CRLF	
	JUMP	?CND25
?CCL27:	PRINT	PERIOD
?CND25:	CALL	MSPARK?,MAMA,X
	ICALL2	UPDATE-STAT,STACK
	RTRUE	
?CND23:	PRINTR	", missing by a hair."
?CCL20:	EQUAL?	PL,MAW \?CND18
	MOVE	MAMA,MAW
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINTI	" clambers onto the bottom of "
	ICALL2	THE-PRINT,PL
	PRINTR	", snorting with rage!"
?CND18:	PRINTI	" circles "
	ICALL2	THE-PRINT,PL
	PRINTR	", snorting angrily."
?CND1:	FSET?	MAMA,MONSTER \FALSE
	GETP	MAMA,P?LAST-LOC >NL
	ZERO?	NL /?CND31
	MOVE	MAMA,NL
	EQUAL?	NL,HERE \?CND31
	SET	'P-HER-OBJECT,MAMA
	PUTP	MAMA,P?LAST-LOC,FALSE-VALUE
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	TAB
	ICALL2	CTHE-PRINT,MAMA
	PRINTR	" storms into view!"
?CND31:	CALL2	WEARING-MAGIC?,CLOAK
	ZERO?	STACK \?CND35
	LOC	PL >PLL
	SET	'DIR,P?NORTH
?PRG37:	GETP	L,DIR >TBL
	ZERO?	TBL /?CND39
	GET	TBL,XTYPE
	BAND	STACK,65280
	EQUAL?	STACK,CONNECT,SCONNECT \?CND39
	GET	TBL,XROOM >X
	EQUAL?	X,AT-FALLS /?CND39
	EQUAL?	X,PL,PLL \?CND39
	PUTP	MAMA,P?LAST-LOC,X
	RFALSE	
?CND39:	DLESS?	'DIR,P?NW \?PRG37
?CND35:	PUTP	MAMA,P?LAST-LOC,0
	RFALSE	


	.FUNCT	I-IMPS
	EQUAL?	HERE,APLANE \FALSE
	EQUAL?	ABOVE,OPLAIN \FALSE
	FSET	IMPS,SEEN
	SET	'P-THEM-OBJECT,IMPS
	PRINT	TAB
	DLESS?	'IMPSAY,1 \?CCL7
	ICALL2	DEQUEUE,I-IMPS
	SET	'IMPSAY,3
	ICALL2	QUEUE,I-IMPS-TAKE
	MOVE	COCO,APLANE
	SET	'P-IT-OBJECT,COCO
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINTI	"""Catch!"" cries the "
	PRINT	STR?607
	PRINTI	", lobbing "
	ICALL2	THE-PRINT,COCO
	PRINTI	" high into the air"
	PRINT	PTAB
	PRINTI	"""Got it."" A loud-mouthed Implementor jumps out of his seat, steps backwards to grab the falling "
	PRINTD	COCO
	PRINTI	"... and plows directly into you"
	PRINT	PTAB
	ICALL2	ITALICIZE,STR?608
	PRINTI	". "
	ICALL2	CTHE-PRINT,COCO
	PRINTR	" skitters across the plane."
?CCL7:	EQUAL?	IMPSAY,3 \?CCL9
	PRINTR	"One of the Implementors notices your arrival. ""Company,"" he remarks with his mouth full.
  A few of the others glance down at you."
?CCL9:	EQUAL?	IMPSAY,2 \?CCL11
	PRINT	XA
	PRINT	STR?609
	PRINTI	" pitches "
	ICALL2	THE-PRINT,COCO
	PRINTI	" across the table. ""Isn't this the feeb who "
	FSET?	BOTTLE,SEEN \?CCL14
	PRINTI	"opened that mailbox"
	JUMP	?CND12
?CCL14:	GETB	LAST-BAD,0
	ZERO?	STACK /?CCL16
	PRINTI	"used the word '"
	ICALL2	PRINT-TABLE,LAST-BAD
	PRINTC	39
	JUMP	?CND12
?CCL16:	PRINTI	"bought that stupid onion"
?CND12:	PRINTI	" a few moves ago?"" he mutters, apparently referring to you"
	FSET?	IMPS,MUNGED \?CND17
	PRINTR	". ""Gimme another thunderbolt."""
?CND17:	PRINT	PTAB
	PRINTI	"""That's "
	FSET?	PLAYER,FEMALE \?CCL21
	PRINTB	W?HER
	JUMP	?CND19
?CCL21:	PRINTB	W?HIM
?CND19:	PRINTR	","" agrees one of the others."
?CCL11:	EQUAL?	IMPSAY,1 \FALSE
	PRINTI	"A "
	PRINT	STR?607
	PRINTI	" catches "
	ICALL2	THE-PRINT,COCO
	PRINTR	" and glares down at you with silent contempt."


	.FUNCT	I-IMPS-TAKE,X
	EQUAL?	HERE,APLANE \FALSE
	EQUAL?	ABOVE,OPLAIN \FALSE
	FSET	IMPS,SEEN
	SET	'P-THEM-OBJECT,IMPS
	PRINT	TAB
	SET	'P-IT-OBJECT,COCO
	DLESS?	'IMPSAY,1 \?CCL7
	PRINTI	"The loud-mouthed Implementor growls something obscene, shoves you out of the way and reaches down to retrieve "
	ICALL2	THE-PRINT,COCO
	PRINT	PTAB
	ICALL2	URGRUE-GETS-COCO,TRUE-VALUE
	RTRUE	
?CCL7:	EQUAL?	IMPSAY,1 \?CCL9
	PRINTI	"""Pick up that "
	PRINTD	COCO
	PRINTI	","" growls the Implementor, ""or I'll "
	GET	STATS,INTELLIGENCE
	LESS?	STACK,READING-IQ /?CCL12
	ICALL2	ITALICIZE,STR?541
	JUMP	?CND10
?CCL12:	ZERO?	VT220 \?CCL14
	PRINTI	"(something unintelligible)"
	JUMP	?CND10
?CCL14:	FONT	F-NEWFONT >X
	PRINTB	W?REMOVE
	FONT	F-DEFAULT >X
?CND10:	PRINTI	" you."""
	CRLF	
	PRINT	TAB
	PRINTR	"The other Implementors are enjoying this exchange."
?CCL9:	EQUAL?	IMPSAY,2 \FALSE
	PRINTI	"The Implementor who ran into you rises to his feet, livid with rage. ""Pick up that "
	PRINTD	COCO
	PRINTR	","" he demands."


	.FUNCT	I-IMPQUEST
	EQUAL?	HERE,APLANE \FALSE
	EQUAL?	ABOVE,OPLAIN \FALSE
	DLESS?	'IMPSAY,1 \?CCL7
	SET	'IMPSAY,3
	ICALL2	DEQUEUE,I-IMPQUEST
	ICALL2	QUEUE,I-IMPGIVE
	MOVE	GOBLET,IMPS
	SET	'P-IT-OBJECT,GOBLET
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	FSET	IMPS,SEEN
	PRINTI	"  A "
	PRINT	STR?610
	PRINTR	" empties his goblet of nectar with a gulp. ""Here,"" he says, holding it out for you. ""Carry this. It'll keep the thunderbolts off your back."""
?CCL7:	EQUAL?	IMPSAY,1 \?CCL9
	FSET	IMPS,SEEN
	PRINTI	"  ""So,"" sighs another Implementor, toying with his sunglasses. ""The Coconut is gone. Stolen. Any volunteers to get it back?""
  One by one, the Implementors turn to look at you.
  ""I'd say it's unanimous,"" smiles the "
	PRINT	STR?607
	PRINT	PERIOD
	RTRUE	
?CCL9:	EQUAL?	IMPSAY,2 \FALSE
	FSET	IMPS,SEEN
	PRINTI	"  ""This is awkward,"" remarks a loudmouthed Implementor. ""No telling what the ur-grue might do with the Coconut. He could crumble the foundations of reality. Plunge the world into a thousand years of darkness. We might even have to buy our own lunch!"" The other Implementors gasp. ""And it's all "
	HLIGHT	H-ITALIC
	FSET?	PLAYER,FEMALE \?CCL14
	PRINTI	"her"
	JUMP	?CND12
?CCL14:	PRINTI	"his"
?CND12:	HLIGHT	H-NORMAL
	PRINTR	" fault,"" he adds, pointing at you with a drumstick."


	.FUNCT	I-IMPGIVE
	EQUAL?	HERE,APLANE \FALSE
	EQUAL?	ABOVE,OPLAIN \FALSE
	FSET	IMPS,SEEN
	SET	'P-IT-OBJECT,GOBLET
	PRINT	TAB
	DLESS?	'IMPSAY,1 \?CCL7
	MOVE	GOBLET,ON-PIKE
	FSET	GOBLET,NODESC
	FSET	GOBLET,TOUCHED
	PRINTI	"""I don't think "
	FSET?	PLAYER,FEMALE \?CND8
	PRINTC	115
?CND8:	PRINTI	"he's going to accept "
	ICALL2	THE-PRINT,GOBLET
	PRINTI	","" sighs the "
	PRINT	STR?610
	PRINT	PTAB
	PRINTI	"""Of course "
	FSET?	PLAYER,FEMALE \?CND10
	PRINTC	115
?CND10:	PRINTI	"he will,"" smiles the "
	PRINT	STR?609
	PRINTI	", forcing it into your hands. ""See?"""
	CRLF	
	ICALL1	ATRII-KICK
	RTRUE	
?CCL7:	EQUAL?	IMPSAY,1 \?CCL13
	PRINTI	"""I really must insist that you take this goblet,"" repeats the "
	PRINT	STR?610
	PRINT	PERIOD
	RTRUE	
?CCL13:	EQUAL?	IMPSAY,2 \FALSE
	PRINTI	"""Here. Take this,"" urges the "
	PRINT	STR?610
	PRINTI	", holding out the "
	PRINT	STR?611
	RTRUE	


	.FUNCT	I-BFLY,FREE,V,L,LEN
	FSET?	BFLY,LIVING \FALSE
	LOC	BFLY >L
	ZERO?	L /?CND3
	CALL2	VISIBLE?,BFLY >V
	IN?	L,ROOMS /?CND3
	EQUAL?	L,ARCH \?CCL7
	EQUAL?	ATIME,PRESENT \?CND3
?CCL7:	FSET?	L,SURFACE /?CCL10
	FSET?	L,VEHICLE /?CCL10
	FSET?	L,LIVING /?CCL10
	FSET?	L,CONTAINER \?CND3
	FSET?	L,OPENED \?CND3
?CCL10:	INC	'FREE
?CND3:	EQUAL?	L,GOBLET \?CCL19
	ZERO?	V /FALSE
	FSET?	BFLY,SEEN \?CCL24
	FCLEAR	BFLY,SEEN
	RFALSE	
?CCL24:	RANDOM	100
	LESS?	75,STACK \FALSE
	FSET	BFLY,SEEN
	FSET	BFLY,IDENTIFIED
	PRINT	TAB
	ICALL2	CTHE-PRINT,BFLY
	CALL2	PICK-NEXT,BFLY-EATINGS
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CCL19:	ZERO?	V /?CND17
	FSET?	BFLY,SEEN \?CCL29
	FCLEAR	BFLY,SEEN
	RFALSE	
?CCL29:	RANDOM	100
	LESS?	75,STACK \FALSE
	FSET	BFLY,SEEN
	FSET	BFLY,IDENTIFIED
	PRINT	TAB
	EQUAL?	L,HERE /?CND31
	ZERO?	FREE /?CND31
	MOVE	BFLY,HERE
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	ICALL2	CTHE-PRINT,BFLY
	PRINTI	" flutters"
	ICALL2	OUT-OF-LOC,L
	PRINT	PERIOD
	RTRUE	
?CND31:	CALL2	VISIBLE?,GOBLET
	ZERO?	STACK /?CND34
	LOC	GOBLET >L
	ICALL2	CTHE-PRINT,BFLY
	LOC	PLAYER
	EQUAL?	L,PLAYER,HERE,STACK /?CCL37
	FSET?	L,SURFACE \?CND36
?CCL37:	MOVE	BFLY,GOBLET
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	PRINTI	" alights on the rim of "
	ICALL2	THE-PRINT,GOBLET
	PRINT	PERIOD
	RTRUE	
?CND36:	CALL2	PICK-NEXT,BFLY-HOVERS
	PRINT	STACK
	ICALL2	THE-PRINT,L
	PRINT	PERIOD
	RTRUE	
?CND34:	LOC	ARCH
	EQUAL?	HERE,STACK /?CND40
	RANDOM	100
	LESS?	66,STACK /?CND40
	ICALL2	CTHE-PRINT,BFLY
	CALL2	PICK-NEXT,BFLY-DOINGS
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CND40:	CALL2	NEXT-BFLY-ROOM?,HERE
	RSTACK	
?CND17:	ZERO?	L /FALSE
	IN?	L,ROOMS /?CCL47
	ZERO?	FREE /FALSE
	LOC	L
	MOVE	BFLY,STACK
	RFALSE	
?CCL47:	RANDOM	100
	LESS?	66,STACK \FALSE
	CALL2	NEXT-BFLY-ROOM?,L
	RSTACK	


	.FUNCT	NEXT-BFLY-ROOM?,L,DIR,CNT,TBL,TYPE,X,RM
	IN?	L,ROOMS \FALSE
	SET	'CNT,1
	SET	'DIR,I-NORTH
?PRG3:	GETB	PDIR-LIST,DIR
	GETP	L,STACK >TBL
	ZERO?	TBL /?CND5
	GET	TBL,XTYPE >X
	BAND	X,65280 >TYPE
	EQUAL?	TYPE,CONNECT,SCONNECT,X-EXIT /?CCL8
	EQUAL?	TYPE,DCONNECT \?PRD11
	GET	TBL,XDATA
	FSET?	STACK,OPENED /?CCL8
?PRD11:	EQUAL?	TYPE,FCONNECT \?CND5
	BAND	X,127
	ZERO?	STACK /?CND5
?CCL8:	GET	TBL,XROOM >RM
	EQUAL?	RM,L,ON-BRIDGE,IN-FROON /?CND5
	LOC	ARCH
	EQUAL?	RM,APLANE,IN-SPLENDOR,STACK /?CND5
	CALL2	PLAIN-ROOM?,RM
	ZERO?	STACK \?CCL19
	FSET?	BFLY,IDENTIFIED \?CND5
?CCL19:	FSET?	RM,INDOORS \?CCL22
	FSET?	L,INDOORS \?CND5
?CCL22:	EQUAL?	RM,HERE \?CCL26
	CALL2	WEARING-MAGIC?,CLOAK
	ZERO?	STACK \?CCL26
	SET	'CNT,2
	PUT	GOOD-DIRS,2,DIR
	JUMP	?REP4
?CCL26:	INC	'CNT
	PUT	GOOD-DIRS,CNT,DIR
?CND5:	IGRTR?	'DIR,I-NW \?PRG3
?REP4:	EQUAL?	CNT,1 /FALSE
	EQUAL?	CNT,2 \?CCL35
	GET	GOOD-DIRS,2 >DIR
	JUMP	?CND31
?CCL35:	PUT	GOOD-DIRS,0,CNT
	PUT	GOOD-DIRS,1,0
	CALL2	PICK-ONE,GOOD-DIRS >DIR
?CND31:	GETB	PDIR-LIST,DIR
	GETP	L,STACK
	GET	STACK,XROOM >RM
	EQUAL?	L,HERE \?CCL38
	MOVE	BFLY,RM
	ICALL2	BFLY-FLIES,DIR
	RTRUE	
?CCL38:	EQUAL?	RM,HERE \FALSE
	ICALL2	BFLY-ARRIVES,DIR
	RTRUE	


	.FUNCT	BFLY-FLIES,DIR
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	ICALL2	CTHE-PRINT,BFLY
	PRINTI	" flutters away"
	ASSIGNED?	'DIR \?CND1
	PRINTI	" to the "
	GET	DIR-NAMES,DIR
	PRINTB	STACK
?CND1:	PRINT	PERIOD
	RTRUE	


	.FUNCT	BFLY-ARRIVES,DIR
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	SET	'P-IT-OBJECT,BFLY
	MOVE	BFLY,HERE
	FSET	BFLY,SEEN
	FSET	BFLY,IDENTIFIED
	PRINT	TAB
	FSET?	BFLY,TOUCHED \?CCL3
	PRINT	XTHE
	JUMP	?CND1
?CCL3:	FSET	BFLY,TOUCHED
	PRINT	XA
?CND1:	ICALL2	DPRINT,BFLY
	PRINTI	" flutters into view"
	ASSIGNED?	'DIR \?CND4
	ADD	DIR,4 >DIR
	GRTR?	DIR,I-NW \?CND6
	SUB	DIR,8 >DIR
?CND6:	PRINTI	" from the "
	GET	DIR-NAMES,DIR
	PRINTB	STACK
?CND4:	PRINT	PERIOD
	RTRUE	


	.FUNCT	I-PILLAR,L
	LOC	BFLY >L
	ZERO?	L /FALSE
	FSET?	BFLY,LIVING \FALSE
	CALL2	VISIBLE?,BFLY
	ZERO?	STACK /?CCL7
	FSET?	BFLY,SEEN \?CCL10
	FCLEAR	BFLY,SEEN
	RFALSE	
?CCL10:	IN?	L,ROOMS \?CCL12
	ICALL2	VANISH,BFLY
	ICALL2	DEQUEUE,I-PILLAR
	PRINT	TAB
	ICALL2	CTHE-PRINT,BFLY
	PRINTR	" seems to have crawled out of sight."
?CCL12:	RANDOM	100
	LESS?	90,STACK \FALSE
	FSET	BFLY,SEEN
	PRINT	TAB
	ICALL2	CTHE-PRINT,BFLY
	RANDOM	100
	LESS?	50,STACK /?CCL16
	CALL2	PICK-NEXT,PILLAR-DOINGS
	PRINT	STACK
	JUMP	?CND14
?CCL16:	CALL2	PICK-NEXT,PILLAR-MOVES
	PRINT	STACK
	EQUAL?	L,PLAYER \?CCL19
	SET	'L,HANDS
	JUMP	?CND17
?CCL19:	EQUAL?	L,HERE \?CND17
	FSET?	HERE,INDOORS \?CCL22
	SET	'L,FLOOR
	JUMP	?CND17
?CCL22:	SET	'L,GROUND
?CND17:	ICALL2	THE-PRINT,L
?CND14:	PRINT	PERIOD
	RTRUE	
?CCL7:	IN?	L,ROOMS \FALSE
	RANDOM	100
	LESS?	33,STACK /FALSE
	REMOVE	BFLY
	ICALL2	DEQUEUE,I-PILLAR
	RFALSE	


	.FUNCT	I-CLERIC,X
	EQUAL?	HERE,IN-CHAPEL \FALSE
	FSET?	CLERIC,SEEN \?CND1
	FCLEAR	CLERIC,SEEN
	RFALSE	
?CND1:	PRINT	TAB
	IGRTR?	'CLERIC-SCRIPT,INIT-CLERIC-SCRIPT \?CCL7
	SET	'CLERIC-SCRIPT,0
	ICALL2	CTHE-PRINT,CLERIC
	PRINTI	" lifts his eyes as you walk in"
	FSET?	CONGREG,SEEN /?CND8
	FSET	CONGREG,SEEN
	PRINTI	". ""Art thou the Savior?"" he cries, and the entire "
	PRINTD	CONGREG
	PRINTI	" turns to stare at you"
	PRINT	PTAB
	PRINTI	"""Naw,"" sneers an unseen voice. ""Just some "
	SET	'X,W?GUY
	FSET?	PLAYER,FEMALE \?CND10
	SET	'X,W?DAME
?CND10:	PRINTB	X
	CALL2	SEE-ANYTHING-IN?,PLAYER
	ZERO?	STACK /?CND12
	PRINT	WITH
	FIRST?	PLAYER /?BOGUS14
?BOGUS14:	ICALL2	PRINTA,STACK
?CND12:	PRINT	PERQ
	PRINT	TAB
	PRINTI	"""Oh,"" mumbles "
	ICALL2	THE-PRINT,CLERIC
	PRINTI	" with a sigh of resignation. ""Have a seat, good "
	SET	'X,W?SIR
	FSET?	PLAYER,FEMALE \?CND15
	SET	'X,W?MISS
?CND15:	PRINTB	X
	PRINTR	", and join us in our hour of need."""
?CND8:	PRINTR	", and bows his head in sorrow."
?CCL7:	EQUAL?	CLERIC-SCRIPT,1 \?CCL18
	PRINTC	QUOTATION
	CALL2	PICK-NEXT,CLERIC-WOES
	PRINT	STACK
	PRINTC	EXCLAM
	ICALL1	CLERIC-WHINES
	PRINTI	"Behold! The wrath of the Trees is almost upon us. When the Glyph of Warding is melted, the village will be lost!"""
	CRLF	
	ICALL1	CROWD-AGREES
	RTRUE	
?CCL18:	EQUAL?	CLERIC-SCRIPT,2 \?CCL20
	PRINTI	"""Who can stop the marching Trees?"
	ICALL1	CLERIC-WHINES
	PRINTI	"Orkan's Glyphs are all that keep the monsters at bay. But Orkan answers not our summons; only one Glyph remains, and that is writ in snow!"""
	CRLF	
	ICALL1	CROWD-AGREES
	RTRUE	
?CCL20:	EQUAL?	CLERIC-SCRIPT,3 \?CCL22
	PRINTI	"""The southern mountains are their nest,"
	ICALL1	CLERIC-WHINES
	PRINTR	"They march relentlessly, choking the valley with their foul gifts and blasphemous songs. They know the wizard's Glyph is melting, and with it fades our only hope!"""
?CCL22:	EQUAL?	CLERIC-SCRIPT,INIT-CLERIC-SCRIPT \FALSE
	SET	'CLERIC-SCRIPT,0
	PRINTI	"""Where is the Savior of whom our legends speak?"
	ICALL1	CLERIC-WHINES
	PRINTI	"Anything "
	FSET?	PLAYER,FEMALE \?CND25
	PRINTC	115
?CND25:	PRINTI	"he asks will be "
	FSET?	PLAYER,FEMALE \?CCL29
	PRINTI	"her"
	JUMP	?CND27
?CCL29:	PRINTI	"his"
?CND27:	PRINTI	" reward, if only "
	FSET?	PLAYER,FEMALE \?CND30
	PRINTC	115
?CND30:	PRINTI	"he fulfills the ancient prophecy, and drives the plague of Tree-daemons from our doorstep!"""
	CRLF	
	ICALL1	CROWD-AGREES
	RTRUE	


	.FUNCT	CLERIC-WHINES,X
	ICALL2	WHIMPERS,CLERIC
	RANDOM	100
	LESS?	50,STACK /?CND1
	PRINTI	", "
	RANDOM	100 >X
	LESS?	X,33 \?CCL5
	PRINTI	"beating his breast"
	JUMP	?CND3
?CCL5:	LESS?	X,67 \?CCL7
	PRINTI	"wringing his hands"
	JUMP	?CND3
?CCL7:	PRINTI	"covering his face"
?CND3:	RANDOM	100
	LESS?	50,STACK /?CND1
	RANDOM	100
	LESS?	50,STACK /?CCL12
	PRINTI	" in supplication"
	JUMP	?CND1
?CCL12:	PRINTI	" hopelessly"
?CND1:	PRINTI	". """
	RFALSE	


	.FUNCT	CROWD-AGREES
	RANDOM	100
	LESS?	33,STACK /FALSE
	PRINT	TAB
	PRINTC	QUOTATION
	CALL2	PICK-NEXT,CLERIC-WOES
	PRINT	STACK
	PRINTC	EXCLAM
	ICALL2	WHIMPERS,CONGREG
	PRINT	PERIOD
	RFALSE	


	.FUNCT	WHIMPERS,OBJ,X
	PRINTI	""" "
	RANDOM	100 >X
	LESS?	X,33 \?CCL3
	PRINTI	"mourn"
	JUMP	?CND1
?CCL3:	LESS?	X,67 \?CCL5
	PRINTI	"whine"
	JUMP	?CND1
?CCL5:	PRINTI	"whimper"
?CND1:	PRINTI	"s "
	ICALL2	THE-PRINT,OBJ
	RFALSE	


	.FUNCT	I-THRIFF-WIN
	CALL2	VISIBLE?,CLERIC
	ZERO?	STACK /FALSE
	FSET?	CLERIC,SEEN \?CND1
	FCLEAR	CLERIC,SEEN
	RFALSE	
?CND1:	INC	'CLERIC-SCRIPT
	PRINT	TAB
	EQUAL?	CLERIC-SCRIPT,1 \?CCL7
	PRINTI	"""Congratulations, honored "
	ICALL1	SAY-SORC
	PRINTI	","" booms "
	ICALL2	THE-PRINT,CLERIC
	PRINTR	" over the crowd's cheers. ""Truly, thou art the Savior foretold in our eldest legends. Would that Orkan were here to witness this day."""
?CCL7:	EQUAL?	CLERIC-SCRIPT,2 \?CCL9
	PRINTI	"""What reward wouldst thou claim of us?"" asks "
	ICALL2	THE-PRINT,CLERIC
	PRINTI	", carefully holding "
	PRINT	STR?612
	PRINTR	"Ask for anything, and it shall be yours!"""
?CCL9:	EQUAL?	CLERIC-SCRIPT,3 \?CCL11
	PRINTI	"""Anything we possess is yours for the asking,"" repeats "
	ICALL2	THE-PRINT,CLERIC
	PRINT	PERIOD
	RTRUE	
?CCL11:	EQUAL?	CLERIC-SCRIPT,4 \?CND5
	ICALL2	CTHE-PRINT,CLERIC
	PRINTI	" adjusts "
	PRINT	STR?612
	PRINTI	"Perchance we have nothing to tempt such a mighty "
	ICALL1	SAY-SORC
	PRINTR	","" he remarks hopefully."
?CND5:	ICALL1	EXIT-CLERIC
	ICALL2	CTHE-PRINT,CONGREG
	PRINTI	" is beginning to wander away"
	PRINT	PTAB
	PRINTI	"""Your reticence betrays your humility, honored one,"" says the Cardinal, bowing his head. ""No doubt you have forsworn earthly gifts in lieu of some greater reward in the afterlife. In that case, farewell!""
  Clutching "
	ICALL2	THE-PRINT,RELIQUARY
	PRINTI	", "
	ICALL2	THE-PRINT,CLERIC
	PRINT	STR?501
	PRINTR	"crowd. In moments, the place is deserted."


	.FUNCT	EXIT-CLERIC
	ICALL2	DEQUEUE,I-THRIFF-WIN
	REMOVE	CLERIC
	SET	'P-HIM-OBJECT,NOT-HERE-OBJECT
	REMOVE	CONGREG
	SET	'P-THEM-OBJECT,NOT-HERE-OBJECT
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	RFALSE	


	.FUNCT	I-TRUFFLE,V
	LOC	TRUFFLE
	ZERO?	STACK \?CCL3
	SET	'TRUFFLE-TIMER,0
	ICALL2	DEQUEUE,I-TRUFFLE
	RFALSE	
?CCL3:	EQUAL?	HERE,APLANE,IN-SPLENDOR /FALSE
	CALL2	VISIBLE?,TRUFFLE >V
	EQUAL?	HERE,APLANE,IN-SPLENDOR /FALSE
	DLESS?	'TRUFFLE-TIMER,1 \?CCL9
	SET	'TRUFFLE-TIMER,0
	ICALL2	DEQUEUE,I-TRUFFLE
	ICALL2	VANISH,TRUFFLE
	ZERO?	V /FALSE
	PRINT	TAB
	PRINTI	"All that's left of "
	ICALL2	THE-PRINT,TRUFFLE
	PRINTR	" is a yummy memory."
?CCL9:	ZERO?	V /FALSE
	EQUAL?	TRUFFLE-TIMER,10 \?CCL15
	PRINT	TAB
	ICALL2	CTHE-PRINT,TRUFFLE
	PRINTI	" looks terribly soft"
	PRINT	STR?587
	RTRUE	
?CCL15:	EQUAL?	TRUFFLE-TIMER,30 \FALSE
	PRINT	TAB
	ICALL2	CTHE-PRINT,TRUFFLE
	PRINTR	" looks as if it's beginning to soften."


	.FUNCT	I-QUEEN,X
	EQUAL?	HERE,IN-GARDEN \FALSE
	INC	'PTIMER
	EQUAL?	PTIMER,1 /FALSE
	EQUAL?	PTIMER,2 \?CCL7
	PRINT	TAB
	PRINTR	"Voices can be heard somewhere in the distance."
?CCL7:	EQUAL?	PTIMER,3 \?CCL9
	PRINT	TAB
	PRINTR	"One of the unseen voices laughs harshly."
?CCL9:	EQUAL?	PTIMER,4 \?CCL11
	FCLEAR	QUEEN,NODESC
	PRINT	TAB
	PRINT	YOU-HEAR
	PRINTR	"a chorus of unpleasant giggles. ""I'll be in my garden,"" calls one of the voices."
?CCL11:	EQUAL?	PTIMER,5 \?CCL13
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	TAB
	PRINTI	"A whirlpool of twinkling light forms in "
	ICALL2	THE-PRINT,GARDEN
	PRINTI	". Something is beginning to materialize!"
	CRLF	
	IN?	DACT,HERE \?CND14
	FSET?	DACT,LIVING \?CND14
	FSET?	DACT,SLEEPING /?CND14
	FSET	DACT,SEEN
	PRINT	TAB
	ICALL2	CTHE-PRINT,DACT
	PRINTI	" beats its wings restlessly."
	CRLF	
?CND14:	CALL2	VISIBLE?,MINX
	ZERO?	STACK /TRUE
	FSET?	MINX,LIVING \TRUE
	FSET?	MINX,SLEEPING /TRUE
	FSET	MINX,SEEN
	PRINT	TAB
	ICALL2	CTHE-PRINT,MINX
	PRINTI	" whimpers fearfully as "
	ICALL2	THE-PRINT,GARDEN
	PRINTI	" brightens"
	IN?	MINX,BUSH /?CND24
	LOC	MINX >X
	MOVE	MINX,BUSH
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	PRINTI	". Before you can stop her, she "
	EQUAL?	X,IN-GARDEN /?CND26
	PRINTI	"leaps away from "
	EQUAL?	X,PLAYER \?CCL30
	PRINTI	"your grasp"
	JUMP	?CND28
?CCL30:	ICALL2	THE-PRINT,X
?CND28:	PRINTI	", "
?CND26:	PRINTI	"streaks across the lawn and disappears behind "
	ICALL2	THE-PRINT,BUSH
?CND24:	PRINT	PERIOD
	RTRUE	
?CCL13:	EQUAL?	PTIMER,6 \?CCL32
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	MOVE	QUEEN,HERE
	ICALL2	SEE-CHARACTER,QUEEN
	PRINT	TAB
	PRINTI	"The twinkling whirl resolves into a furry creature. Her face is turned away at the moment, but there's a flat tail sticking out from under her long, red gown."
	CRLF	
	ICALL2	TOPPLED?,QUEEN
	RTRUE	
?CCL32:	EQUAL?	PTIMER,7 \?CCL34
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PUTP	QUEEN,P?SDESC,0
	PRINT	TAB
	PRINTI	"The furry creature turns around, revealing her dark, beady eyes and fleshy bill. She's a platypus!"
	CRLF	
	IN?	DACT,HERE /?CCL36
	IN?	PLAYER,BUSH /TRUE
?CCL36:	ICALL1	QUEEN-SEES-YOU
	RTRUE	
?CCL34:	EQUAL?	PTIMER,8 \?CCL40
	MOVE	JAR,QUEEN
	FSET	BROG,CONTAINER
	FSET	BROG,OPENABLE
	FSET	BROG,OPENED
	ICALL	REPLACE-SYN?,BROG,W?ZZZP,W?COMPARTMENT
	ICALL	REPLACE-ADJ?,BROG,W?ZZZP,W?SECRET
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	TAB
	ICALL2	CTHE-PRINT,QUEEN
	PRINTI	" steps over to "
	ICALL2	THE-PRINT,BROG
	PRINTI	", glancing around to be sure she is alone. Then she opens a secret compartment and pulls out "
	ICALL2	PRINTA,JAR
	PRINT	PERIOD
	RTRUE	
?CCL40:	EQUAL?	PTIMER,9 \?CCL42
	ICALL2	CREATE-MIRROR?,MIRROR0
	PRINT	TAB
	ICALL2	CTHE-PRINT,QUEEN
	PRINTR	" opens the jar, takes out a circlet and blows a silver bubble. You watch as the bubble flattens into a round mirror, rotating slowly on its edge."
?CCL42:	EQUAL?	PTIMER,10 \?CCL44
	PRINT	TAB
	ICALL2	CTHE-PRINT,QUEEN
	PRINTR	" stops the spinning mirror and turns it until it faces her. Gazing into it she whispers,

 ""Mirror, mirror in the air,
  Who in Quendor is most fair?"""
?CCL44:	EQUAL?	PTIMER,11 \?CCL46
	PRINTI	"  The floating mirror shimmers, and a hollow voice says,

 ""Your Highness once was fair, 'tis true.
  But Morning-Star is "
	ICALL2	ITALICIZE,STR?613
	PRINTR	"!"""
?CCL46:	EQUAL?	PTIMER,12 \FALSE
	FCLEAR	BROG,OPENED
	MOVE	JAR,BROG
	ICALL2	DESTROY-MIRROR,MIRROR0
	ICALL2	DEQUEUE,I-MIRRORS
	REMOVE	QUEEN
	ICALL2	DEQUEUE,I-QUEEN
	SET	'PTIMER,0
	SET	'P-HER-OBJECT,NOT-HERE-OBJECT
	PRINTI	"  ""Liar!"" cries "
	ICALL2	THE-PRINT,QUEEN
	PRINTI	", bursting the mirror with an angry swipe. She stows "
	ICALL2	THE-PRINT,JAR
	PRINTI	" back in "
	ICALL2	THE-PRINT,BROG
	PRINTR	", blows a silver whistle and dissolves in a whirlpool of color."


	.FUNCT	I-DUST,INDENT,V
	CALL2	VISIBLE?,DUST >V
	ASSIGNED?	'INDENT /?CND1
	FSET?	DUST,SEEN \?CCL4
	FCLEAR	DUST,SEEN
	RFALSE	
?CCL4:	PRINT	TAB
?CND1:	FSET	DUST,SEEN
	EQUAL?	BUNNIES,1 \?CCL7
	SET	'P-THEM-OBJECT,DUST
	PUTP	DUST,P?SDESC,0
	FSET	DUST,PLURAL
	ZERO?	V /?CND5
	PRINTI	"With an ominous "
	HLIGHT	H-ITALIC
	PRINTI	"poof"
	HLIGHT	H-NORMAL
	PRINTI	", the dust bunny divides itself in two."
	CRLF	
	JUMP	?CND5
?CCL7:	ZERO?	V /?CND5
	HLIGHT	H-ITALIC
	PRINTI	"Poof"
	HLIGHT	H-NORMAL
	PRINTI	". "
	ICALL2	CTHE-PRINT,DUST
	CALL2	PICK-NEXT,BUNNY-SPLITS
	PRINT	STACK
	PRINT	PERIOD
?CND5:	ICALL1	MORE-BUNNIES
	RETURN	V


	.FUNCT	MORE-BUNNIES,X
	GRTR?	BUNNIES,BMAX /TRUE
	EQUAL?	BUNNIES,BMAX \?CCL5
	INC	'BUNNIES
	JUMP	?CND1
?CCL5:	SET	'X,BUNNIES
	ADD	OBUNNIES,BUNNIES >BUNNIES
	SET	'OBUNNIES,X
?CND1:	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	RFALSE	


	.FUNCT	I-MARE-SEES
	ICALL2	DEQUEUE,I-MARE-SEES
	EQUAL?	HERE,IN-SPLENDOR \FALSE
	PRINT	TAB
	ICALL2	UNICORNS-FLEE,STR?614
	RTRUE	


	.FUNCT	I-ARREST,INDENT,RM,OBJ,NXT
	ICALL2	DEQUEUE,I-ARREST
	EQUAL?	HERE,IN-SPLENDOR \FALSE
	ASSIGNED?	'INDENT /?CCL5
	PRINT	TAB
	PRINT	XTHE
	JUMP	?CND3
?CCL5:	PRINTI	"As you step across the glade, the "
?CND3:	PRINTI	"stillness is broken by the rumble of approaching hooves. Before you can think or move, you find yourself enclosed by a dozen sharp horns, each backed by a unicorn in full military regalia.
  A magnificent stallion regards you with calm authority. ""You"
	FSET?	HERD,SEEN \?CCL8
	PRINTI	"r fate is sealed"
	JUMP	?CND6
?CCL8:	PRINTI	" will find no welcome here"
?CND6:	PRINTI	", earth-dweller,"" whispers a stern voice in your mind. """
	FSET?	HERD,SEEN \?CND9
	PRINTI	"The injustice that drove us to this Plane is now yours. Forever."""
	CRLF	
	PRINT	TAB
	PRINTI	"A painful metal bit is forced into your mouth, and a wagonload of overweight, aristocratic unicorns is attached. The rest of your life is spent hauling this laughing burden in a small circle, with infrequent stops for dirty water and oats"
	ICALL1	JIGS-UP
	RTRUE	
?CND9:	FSET	HERD,SEEN
	PRINTI	"Our children must never know the pain we suffered at the hands of Men. Return to your people now, and describe the fate awaiting any who dares to violate our solitude again."""
	CRLF	
	PRINT	TAB
	PRINTI	"A lifetime of humiliating drudgery passes before your eyes. You cry out with pain and heartache as you haul wagons full of overweight aristocrats, standing silent and powerless as cruel taskmasters whip you over and over again..."
	ICALL1	CARRIAGE-RETURNS
	ICALL1	SAFE-VEHICLE-EXIT
	CALL2	META-LOC,CHEST >RM
	FIRST?	IN-SPLENDOR >OBJ \?CND11
?PRG13:	NEXT?	OBJ >NXT /?BOGUS15
?BOGUS15:	EQUAL?	OBJ,WINNER /?CND16
	FSET?	OBJ,TAKEABLE \?CND16
	MOVE	OBJ,RM
?CND16:	SET	'OBJ,NXT
	ZERO?	OBJ \?PRG13
?CND11:	SET	'P-WALK-DIR,FALSE-VALUE
	ICALL2	GOTO,RM
	RTRUE	


	.FUNCT	I-STRANGLE,X
	GET	STATS,ENDURANCE >X
	PRINT	TAB
	LESS?	CHOKE,X \?CND1
	CALL2	PICK-NEXT,STRANGLES
	PRINT	STACK
	DIV	X,CHOKE
	LESS?	STACK,2 \?CND3
	PRINTI	". Your endurance won't last much longer"
?CND3:	PRINTC	33
	CRLF	
	SUB	0,CHOKE
	ICALL2	UPDATE-STAT,STACK
	RTRUE	
?CND1:	SUB	0,X
	ICALL2	UPDATE-STAT,STACK
	PRINTI	"The choking fingers drain your endurance to its limit. As your consciousness sinks into oblivion, you feel "
	ICALL2	THE-PRINT,SKELETON
	PRINTI	" draping "
	PRINTB	W?SOMETHING
	PRINTI	" around your neck"
	ICALL1	JIGS-UP
	RTRUE	


	.FUNCT	NOLUCK?,CNT,LEN,OBJ
	GET	LUCKY-OBJECTS,0 >LEN
?PRG1:	GET	LUCKY-OBJECTS,LEN >OBJ
	IN?	OBJ,PLAYER \?CND3
	FSET?	OBJ,NEUTRALIZED /?CND3
	GETP	OBJ,P?DNUM >CNT
	DLESS?	'CNT,1 \?CND7
	ICALL2	VANISH,OBJ
	PRINT	TAB
	ICALL2	ITALICIZE,STR?615
	PRINTI	"! "
	ICALL2	CTHE-PRINT,OBJ
	PRINTI	" is consumed in a silent flash of green."
	CRLF	
	RFALSE	
?CND7:	PUTP	OBJ,P?DNUM,CNT
	PRINT	TAB
	PRINT	CYOUR
	ICALL2	DPRINT,OBJ
	PRINTI	" flickers green"
	EQUAL?	CNT,1 \?CND9
	PRINTI	" again, less brightly than before"
?CND9:	PRINT	PERIOD
	RFALSE	
?CND3:	DLESS?	'LEN,1 \?PRG1
	RTRUE	


	.FUNCT	I-GRUE,SEE,L,DIR,TBL,DEST,DAMAGE,X
	ZERO?	LIT? \FALSE
	EQUAL?	HERE,IN-LAIR /FALSE
	CALL1	GRUE-ROOM?
	ZERO?	STACK /FALSE
	CALL2	WEARING-MAGIC?,HELM >SEE
	IN?	GRUE,HERE \?CCL9
	GETP	GRUE,P?ENDURANCE
	LESS?	STACK,1 \?CND10
	IGRTR?	'GRUE-KILLS,2 \?CND12
	ICALL2	DEQUEUE,I-GRUE
?CND12:	PRINT	TAB
	ZERO?	SEE /?CCL16
	ICALL2	CTHE-PRINT,GRUE
	PRINTI	" retreats"
	JUMP	?CND14
?CCL16:	PRINT	YOU-HEAR
	PRINTB	W?SOMETHING
	PRINTI	" retreat"
?CND14:	PRINTI	" into the darkness."
	CRLF	
	GETP	GRUE,P?VALUE
	ICALL	UPDATE-STAT,STACK,EXPERIENCE,TRUE-VALUE
	ICALL2	EXUENT-MONSTER,GRUE
	GETP	GRUE,P?EMAX
	PUTP	GRUE,P?ENDURANCE,STACK
	RTRUE	
?CND10:	ICALL2	NEXT-ENDURANCE?,GRUE
	PRINT	TAB
	ZERO?	SEE /?CCL19
	ICALL2	CTHE-PRINT,GRUE
	JUMP	?CND17
?CCL19:	PRINTI	"Something"
?CND17:	PRINTI	" strikes out at you"
	CALL2	MONSTER-STRIKES?,GRUE >DAMAGE
	ZERO?	DAMAGE \?CCL22
	PRINTR	", but misses."
?CCL22:	ZERO?	STATIC \?CCL24
	PRINTI	". Ouch!"
	CRLF	
	JUMP	?CND20
?CCL24:	PRINT	PERIOD
?CND20:	CALL	MSPARK?,GRUE,DAMAGE
	ICALL2	UPDATE-STAT,STACK
	RTRUE	
?CCL9:	FSET?	GRUE,SURPRISED \?CND7
	FCLEAR	GRUE,SURPRISED
	RFALSE	
?CND7:	MOVE	GRUE,HERE
	ICALL2	SEE-MONSTER,GRUE
	ZERO?	SEE /?CND26
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
?CND26:	PRINT	TAB
	ZERO?	SEE /?CCL30
	PRINTI	"A presence"
	JUMP	?CND28
?CCL30:	PRINTI	"Something"
?CND28:	PRINTR	" lurks into the passage."


	.FUNCT	I-WIGHT,DAMAGE
	EQUAL?	HERE,ON-TRAIL \FALSE
	GETP	WIGHT,P?ENDURANCE
	LESS?	STACK,1 \?CCL6
	PRINT	TAB
	FSET?	WIGHT,SLEEPING /?CND7
	PRINTI	"Battered and confused, "
	ICALL2	THE-PRINT,WIGHT
	PRINTI	" backs over the edge of the cliff, shrieks and tumbles out of sight."
	CRLF	
?CND7:	ICALL2	KILL-MONSTER,WIGHT
	MOVE	DIAMOND,ON-TRAIL
	SET	'P-IT-OBJECT,DIAMOND
	PRINT	TAB
	PRINTI	"Something lands at your feet with a "
	ICALL2	ITALICIZE,STR?616
	PRINT	PERIOD
	RTRUE	
?CCL6:	FSET?	WIGHT,SURPRISED \?CND4
	ICALL2	SEE-MONSTER,WIGHT
	FSET?	WIGHT,SLEEPING /?CND4
	PRINT	TAB
	ICALL2	CTHE-PRINT,WIGHT
	PRINTI	" whirls to face you."
	CRLF	
	ICALL2	TOPPLED?,WIGHT
	RTRUE	
?CND4:	CALL2	STILL-SLEEPING?,WIGHT
	ZERO?	STACK \TRUE
	ICALL2	NEXT-ENDURANCE?,WIGHT
	CALL2	MONSTER-STRIKES?,WIGHT >DAMAGE
	PRINT	TAB
	ICALL2	CTHE-PRINT,WIGHT
	ZERO?	DAMAGE /?CND14
	PRINTI	" claws at you viciously."
	ZERO?	STATIC \?CND16
	PRINTI	" Ouch!"
?CND16:	CRLF	
	CALL	MSPARK?,WIGHT,DAMAGE
	ICALL2	UPDATE-STAT,STACK
	RTRUE	
?CND14:	PRINTR	" strikes out at you, but misses."


	.FUNCT	I-LAVA
	DLESS?	'LAVA-TIMER,1 \?CCL3
	EQUAL?	HERE,FOREST-EDGE,ON-TRAIL,ON-PEAK /?CCL5
	EQUAL?	HERE,IN-CABIN \?CND4
?CCL5:	ICALL1	CASCADE
	RTRUE	
?CND4:	REMOVE	PLUME
	SET	'LAVA-TIMER,0
	ICALL2	DEQUEUE,I-LAVA
	MOVE	MAGMA-GLOW,IN-THRIFF
	SET	'MAGMA-TIMER,4
	ICALL2	QUEUE,I-MAGMA
	ICALL2	EMPTY-ROOM,FOREST-EDGE
	PUTP	FOREST-EDGE,P?SDESC,0
	EQUAL?	HERE,IN-THRIFF \FALSE
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	TAB
	PRINTR	"A violent tremor wracks the earth and sends you sprawling. You bravely cover your eyes to await the tide of magma that will sweep you and Thriff into oblivion...






The silence gets the better of your curiosity."
?CCL3:	EQUAL?	LAVA-TIMER,1 \?CCL11
	EQUAL?	HERE,ON-TRAIL,ON-PEAK,IN-CABIN \?CND12
	ICALL1	CASCADE
	RTRUE	
?CND12:	REMOVE	MAILBOX
	PUTP	ON-TRAIL,P?SOUTH,0
	PUTP	ON-TRAIL,P?IN,0
	ICALL	REPLACE-GLOBAL?,ON-TRAIL,CABIN,NULL
	IN?	WIGHT,ON-TRAIL \?CND14
	REMOVE	WIGHT
	ICALL2	DEQUEUE,I-WIGHT
?CND14:	ICALL2	EMPTY-ROOM,ON-TRAIL
	EQUAL?	HERE,FOREST-EDGE,IN-THRIFF \FALSE
	PRINT	TAB
	ICALL2	CTHE-PRINT,GROUND
	PRINTI	" trembles with seismic distress"
	EQUAL?	HERE,IN-THRIFF \?CND18
	PRINT	PERIOD
	RTRUE	
?CND18:	PRINTR	" as a deadly torrent of lava sweeps down the western slope, only seconds away!"
?CCL11:	EQUAL?	LAVA-TIMER,2 \FALSE
	EQUAL?	HERE,ON-PEAK \?CND22
	ICALL1	CASCADE
	RTRUE	
?CND22:	ICALL2	EMPTY-ROOM,ON-PEAK
	EQUAL?	HERE,ON-TRAIL,FOREST-EDGE,IN-THRIFF /?CND24
	EQUAL?	HERE,IN-CABIN \FALSE
?CND24:	PRINT	TAB
	PRINTI	"Powerful shock waves rock the mountainside"
	EQUAL?	HERE,IN-CABIN \?CCL30
	PRINTR	", and the entire cabin shudders."
?CCL30:	EQUAL?	HERE,IN-THRIFF,FOREST-EDGE \?CND28
	PRINT	PERIOD
	RTRUE	
?CND28:	PRINTR	" as a red-hot wall of liquid rock roars down the trail, only seconds behind you!"


	.FUNCT	CASCADE,STR
	ASSIGNED?	'STR \?CCL3
	PRINTI	"As you "
	PRINT	STR
	PRINTI	" the lava, a cascade of it "
	JUMP	?CND1
?CCL3:	PRINT	TAB
	PRINTI	"A cascade of lava "
?CND1:	EQUAL?	HERE,IN-CABIN \?CCL6
	PRINTI	"buries "
	ICALL2	THE-PRINT,CABIN
	JUMP	?CND4
?CCL6:	EQUAL?	HERE,ON-PEAK /?CND7
	PRINTI	"roars down the mountainside and "
?CND7:	PRINTI	"knocks you off your feet, burying you"
?CND4:	PRINTI	" instantly under tons of molten rock"
	CALL2	WEARING-MAGIC?,RING
	ZERO?	STACK /?CND9
	PRINTI	"! Your magic ring miraculously shields you from the volcanic heat, but not from the inconvenience of having nothing to breathe"
?CND9:	ICALL1	JIGS-UP
	RTRUE	


	.FUNCT	EMPTY-ROOM,RM,OBJ,NXT
	FIRST?	RM >OBJ \?CND1
?PRG3:	NEXT?	OBJ >NXT /?BOGUS5
?BOGUS5:	FSET?	OBJ,TAKEABLE \?CND6
	REMOVE	OBJ
?CND6:	SET	'OBJ,NXT
	ZERO?	OBJ \?PRG3
?CND1:	ICALL	REPLACE-GLOBAL?,RM,SNOW,LAVA
	ICALL	REPLACE-GLOBAL?,RM,GLYPH,NULL
	RFALSE	


	.FUNCT	I-MAGMA,TBL,X
	GETPT	MAGMA-GLOW,P?ADJECTIVE >TBL
	DLESS?	'MAGMA-TIMER,1 \?CCL3
	SET	'MAGMA-TIMER,0
	ICALL2	DEQUEUE,I-MAGMA
	REMOVE	MAGMA-GLOW
	ICALL	REPLACE-SYN?,LAVA,W?ZZZP,W?CRUST
	EQUAL?	HERE,IN-THRIFF,FOREST-EDGE,ON-TRAIL /?CCL5
	EQUAL?	HERE,ON-PEAK \?CND4
?CCL5:	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	TAB
	PRINTI	"The red glow "
	EQUAL?	HERE,IN-THRIFF \?CCL10
	PRINTI	"from the south slowly fades from view"
	JUMP	?CND8
?CCL10:	PRINTI	"of the lava fades, leaving a hard crust underfoot"
?CND8:	PRINT	PERIOD
?CND4:	CALL	GLOBAL-IN?,FOREST-EDGE,GLYPH
	ZERO?	STACK /?CND11
	SET	'THRIFF-WON,TRUE-VALUE
	ICALL2	DEQUEUE,I-CLERIC
	FSET	CLERIC,LIVING
	SET	'CLERIC-SCRIPT,0
	FCLEAR	CLERIC,SEEN
	ICALL2	QUEUE,I-THRIFF-WIN
	ICALL2	QUEUE,I-UNHAPPY-XTREES
	FSET	XTREES,SEEN
	MOVE	RELIQUARY,CLERIC
	EQUAL?	HERE,IN-CHAPEL \?CND13
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	TAB
	PRINTI	"A messenger nymph appears above "
	ICALL2	THE-PRINT,ALTAR
	PRINTI	". ""Hooray!"" she cries. """
	ICALL2	PRINT-TABLE,CHARNAME
	PRINTI	" outfoxed "
	ICALL2	THE-PRINT,XTREES
	PRINTR	"!"""
?CND13:	FCLEAR	CLERIC,NODESC
	SET	'X,FOREST-EDGE
	EQUAL?	HERE,IN-THRIFF \?CND15
	SET	'X,HERE
?CND15:	MOVE	CLERIC,X
	MOVE	CONGREG,X
	EQUAL?	HERE,X \?CND11
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	TAB
	PRINTI	"A cheering crowd"
	EQUAL?	HERE,IN-THRIFF \?CCL21
	PRINTI	" streams out of "
	ICALL2	THE-PRINT,CHAPEL
	JUMP	?CND19
?CCL21:	PRINT	STR?617
	PRINTI	"village"
?CND19:	PRINTI	", led by "
	ICALL2	THE-PRINT,CLERIC
	PRINT	PERIOD
	RTRUE	
?CND11:	EQUAL?	HERE,FOREST-EDGE \TRUE
	ICALL1	SAY-XTREES
	PRINTI	" test the edges of the clearing with their roots"
	FSET?	BFLY,MUNGED \?CND24
	FSET?	BFLY,LIVING \?CND24
	IN?	BFLY,PLAYER /?CCL25
	IN?	BFLY,HERE \?CND24
?CCL25:	PRINTR	", but still appear reluctant to approach you."
?CND24:	PRINTI	". Finding no Glyphs of Warding or other inconveniences, they elect to "
	ICALL2	XTREES-EAT-YOU,TRUE-VALUE
	RTRUE	
?CCL3:	EQUAL?	MAGMA-TIMER,1 \?CCL32
	PUT	TBL,0,W?RED
	EQUAL?	HERE,IN-THRIFF \?CCL35
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	TAB
	PRINTI	"The southern "
	PRINT	STR?618
	RTRUE	
?CCL35:	EQUAL?	HERE,FOREST-EDGE,ON-TRAIL,ON-PEAK \FALSE
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	TAB
	PRINTI	"The lava's "
	PRINT	STR?618
	EQUAL?	HERE,FOREST-EDGE \TRUE
	ICALL1	SAY-XTREES
	PRINTR	" shuffle a bit closer to the clearing's edge."
?CCL32:	EQUAL?	MAGMA-TIMER,2 \FALSE
	PUT	TBL,0,W?ORANGE
	EQUAL?	HERE,IN-THRIFF \?CCL43
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	TAB
	PRINTR	"You watch as the southern glow fades from yellow to orange."
?CCL43:	EQUAL?	HERE,FOREST-EDGE,ON-TRAIL,ON-PEAK \FALSE
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	PRINT	TAB
	PRINTI	"The lava's glow fades from yellow to orange as it cools."
	CRLF	
	EQUAL?	HERE,FOREST-EDGE \TRUE
	ICALL1	SAY-XTREES
	PRINTR	" are keeping well away from the clearing's edge."


	.FUNCT	SAY-XTREES
	FSET	XTREES,SEEN
	PRINT	TAB
	ICALL2	CTHE-PRINT,XTREES
	RTRUE	


	.FUNCT	I-XTREES,X,C
	CALL	GLOBAL-IN?,FOREST-EDGE,GLYPH
	ZERO?	STACK /?CCL3
	EQUAL?	HERE,FOREST-EDGE \FALSE
	FSET?	XTREES,SEEN \?CCL8
	FCLEAR	XTREES,SEEN
	RFALSE	
?CCL8:	RANDOM	100
	LESS?	50,STACK \FALSE
	ICALL1	SAY-XTREES
	RANDOM	100
	LESS?	50,STACK /?CND10
	CALL2	PICK-NEXT,CAROLS >X
	CALL2	PICK-NEXT,HOW-SINGS
	PRINT	STACK
	PRINT	X
	PRINT	PERQ
	RTRUE	
?CND10:	CALL2	PICK-NEXT,XTREE-DOINGS
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	
?CCL3:	ZERO?	MAGMA-TIMER \FALSE
	EQUAL?	HERE,FOREST-EDGE,IN-THRIFF \?CCL15
	FSET?	BFLY,MUNGED \?CCL15
	FSET?	BFLY,LIVING \?CCL15
	IN?	BFLY,PLAYER /?CTR14
	IN?	BFLY,HERE \?CCL15
?CTR14:	ICALL1	SAY-XTREES
	PRINTI	" shuffle nervously at the edge of the "
	CALL	GLOBAL-IN?,SNOW,HERE
	ZERO?	STACK /?CCL24
	PRINTB	W?CLEARING
	JUMP	?CND22
?CCL24:	PRINTB	W?LAVA
?CND22:	PRINTI	". They"
	PRINT	STR?619
	RTRUE	
?CCL15:	FSET?	FOREST-EDGE,MUNGED /?CCL26
	EQUAL?	HERE,FOREST-EDGE \?CND27
	ICALL1	XTREES-EAT-YOU
	RTRUE	
?CND27:	FSET	FOREST-EDGE,MUNGED
	ICALL	NEW-EXIT?,ON-TRAIL,P?EAST,FCONNECT,XTREES-BLOCK
	ICALL	NEW-EXIT?,ON-TRAIL,P?DOWN,FCONNECT,XTREES-BLOCK
	ICALL	NEW-EXIT?,IN-THRIFF,P?SOUTH,FCONNECT,XTREES-BLOCK
	ICALL	NEW-EXIT?,IN-THRIFF,P?UP,FCONNECT,XTREES-BLOCK
	ICALL	REPLACE-GLOBAL?,ON-TRAIL,NULL,XTREES
	ICALL	REPLACE-GLOBAL?,IN-THRIFF,NULL,XTREES
	EQUAL?	HERE,IN-THRIFF,IN-CHAPEL,ON-TRAIL \FALSE
	ICALL1	XTREES-APPEAR
	RTRUE	
?CCL26:	FSET?	IN-THRIFF,MUNGED /FALSE
	EQUAL?	HERE,IN-THRIFF,IN-CHAPEL \?CND33
	ICALL1	XTREES-EAT-YOU
	RTRUE	
?CND33:	FSET	IN-THRIFF,MUNGED
	ICALL	NEW-EXIT?,IN-PASTURE,P?SE,FCONNECT,XTREES-BLOCK
	ICALL	NEW-EXIT?,AT-FALLS,P?SW,FCONNECT,XTREES-BLOCK
	ICALL	REPLACE-GLOBAL?,IN-PASTURE,NULL,XTREES
	ICALL	REPLACE-GLOBAL?,AT-FALLS,NULL,XTREES
	EQUAL?	HERE,IN-PASTURE,AT-FALLS \FALSE
	ICALL1	XTREES-APPEAR
	RTRUE	


	.FUNCT	XTREES-BLOCK
	IN?	BFLY,PLAYER \?CND1
	FSET?	BFLY,MUNGED \?CND1
	ICALL2	CTHE-PRINT,XTREES
	PRINTI	" fidget nervously as you approach, but refuse to stand aside."
	CRLF	
	RFALSE	
?CND1:	PRINT	STR?620
	PRINTD	XTREES
	PRINT	PERIOD
	RFALSE	


	.FUNCT	XTREES-EAT-YOU,X
	ASSIGNED?	'X /?CND1
	ICALL1	SAY-XTREES
?CND1:	PRINTI	" continue their delayed migration into Thriff, cheerfully trampling everything in their path. This includes you"
	ICALL1	JIGS-UP
	RTRUE	


	.FUNCT	XTREES-APPEAR,X
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	SET	'P-THEM-OBJECT,XTREES
	PRINT	TAB
	EQUAL?	HERE,IN-CHAPEL \?CND1
	PRINT	YOU-HEAR
	PRINTC	97
	PRINT	STR?621
	PRINTR	"outside."
?CND1:	PRINTC	65
	PRINT	STR?621
	PRINTI	"draws your attention to the "
	SET	'X,W?SOUTH
	EQUAL?	HERE,IN-PASTURE \?CCL5
	SET	'X,W?SOUTHEAST
	JUMP	?CND3
?CCL5:	EQUAL?	HERE,AT-FALLS \?CCL7
	SET	'X,W?SOUTHWEST
	JUMP	?CND3
?CCL7:	EQUAL?	HERE,ON-TRAIL \?CND3
	SET	'X,W?EAST
?CND3:	PRINTB	X
	PRINTI	", where a solid wall of "
	PRINTD	XTREES
	PRINTR	" has completely choked the trail."


	.FUNCT	I-UNHAPPY-XTREES
	EQUAL?	HERE,FOREST-EDGE \FALSE
	FSET?	XTREES,SEEN \?CCL5
	FCLEAR	XTREES,SEEN
	RFALSE	
?CCL5:	RANDOM	100
	LESS?	50,STACK \FALSE
	ICALL1	SAY-XTREES
	CALL2	PICK-NEXT,SAD-TREES
	PRINT	STACK
	PRINT	PERIOD
	RTRUE	


	.FUNCT	I-HOUSEFALL
	CALL1	PLAIN-ROOM?
	ZERO?	STACK /FALSE
	FSET?	FARM,NODESC \?CND1
	FCLEAR	FARM,NODESC
	RFALSE	
?CND1:	ICALL2	DEQUEUE,I-HOUSEFALL
	FCLEAR	FARMHOUSE,NODESC
	ZERO?	FARM-ROOM /?CND5
	ICALL1	DROP-FARM
?CND5:	FSET	CORBIES,SEEN
	PRINTI	"  A movement overhead catches your eye"
	PRINT	PTAB
	PRINTI	"Oh, my. A small farmhouse is falling out of the clouds! You "
	EQUAL?	HERE,FARM-ROOM \?CND7
	SET	'P-WALK-DIR,FALSE-VALUE
	SET	'OLD-HERE,FALSE-VALUE
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	SET	'P-IT-OBJECT,FARMHOUSE
	PRINTI	"dive out of the way just in time to avoid "
	ICALL1	LUMBER
	PRINT	PERIOD
	RTRUE	
?CND7:	PRINTI	"watch it spin as it tumbles earthward, and hear "
	ICALL1	LUMBER
	PRINTR	" somewhere nearby."


	.FUNCT	LUMBER
	PRINT	LTHE
	ICALL2	ITALICIZE,STR?622
	PRINTI	" of splintering lumber"
	RFALSE	


	.FUNCT	DROP-FARM
	FCLEAR	FARM,NODESC
	MOVE	FARM,FARM-ROOM
	PUTP	FARM-ROOM,P?SDESC,DESCRIBE-FARM-ROOM
	ICALL	REPLACE-GLOBAL?,FARM-ROOM,NULL,FARM-DOOR
	ICALL	REPLACE-GLOBAL?,FARM-ROOM,NULL,FARM-WINDOW
	ICALL	NEW-EXIT?,IN-FARM,P?NORTH,1409,FARM-ROOM,FARM-DOOR
	ICALL	NEW-EXIT?,IN-FARM,P?OUT,1409,FARM-ROOM,FARM-DOOR
	ICALL	NEW-EXIT?,FARM-ROOM,P?SOUTH,1409,IN-FARM,FARM-DOOR
	ICALL	NEW-EXIT?,FARM-ROOM,P?IN,1409,IN-FARM,FARM-DOOR
	RFALSE	


	.FUNCT	I-IQ
	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	PRINT	TAB
	PRINTI	"Your forehead tingles oddly for a moment."
	CRLF	
	ICALL	UPDATE-STAT,20,INTELLIGENCE,TRUE-VALUE
	RTRUE	


	.FUNCT	I-HEAL,STAT,MAX,OLD
	PRINT	TAB
	PRINTI	"Your body is flooded with an indescribable sense of well-being."
	CRLF	
?PRG1:	GET	STATS,STAT >OLD
	GET	MAXSTATS,STAT >MAX
	GRTR?	MAX,OLD \?CCL5
	SUB	MAX,OLD
	ICALL	UPDATE-STAT,STACK,STAT
	JUMP	?CND3
?CCL5:	EQUAL?	MAX,OLD \?CND3
	ICALL	UPDATE-STAT,5,STAT,TRUE-VALUE
?CND3:	IGRTR?	'STAT,STRENGTH \?PRG1
	ICALL1	BMODE-OFF
	RTRUE	


	.FUNCT	I-MIGHT,MAX,OLD
	PRINT	TAB
	PRINTI	"You feel a surge of tension in your arms and shoulders."
	CRLF	
	GET	STATS,STRENGTH >OLD
	GET	MAXSTATS,STRENGTH >MAX
	GRTR?	MAX,OLD \?CCL3
	SUB	MAX,OLD
	ICALL	UPDATE-STAT,STACK,STRENGTH
	RTRUE	
?CCL3:	EQUAL?	MAX,OLD \TRUE
	ICALL	UPDATE-STAT,16,STRENGTH,TRUE-VALUE
	RTRUE	


	.FUNCT	I-FORGET,ANY,OBJ,LEN
	FCLEAR	GLYPH,SEEN
	FIRST?	ROOMS >OBJ \?CND1
?PRG3:	FCLEAR	OBJ,VIEWED
	NEXT?	OBJ >OBJ /?PRG3
?CND1:	BOR	NEW-DBOX,SHOWING-ALL >NEW-DBOX
	SET	'P-WALK-DIR,FALSE-VALUE
	SET	'OLD-HERE,FALSE-VALUE
	GET	MAGIC-ITEMS,0 >LEN
?PRG7:	GET	MAGIC-ITEMS,LEN >OBJ
	FSET?	OBJ,IDENTIFIED \?CND9
	INC	'ANY
	FCLEAR	OBJ,IDENTIFIED
	FCLEAR	OBJ,PROPER
?CND9:	DLESS?	'LEN,1 \?PRG7
	PRINT	TAB
	PRINTR	"An uneasy feeling creeps into your soul."


	.FUNCT	I-DEATH
	PRINT	TAB
	PRINTI	"A sickening bile rises in your throat, and sweat breaks out on your forehead as your pulse races out of control. Moments later, you experience the combined effects of coronary arrest, catastrophic respiratory collapse and rickets"
	ICALL1	JIGS-UP
	RTRUE	


	.FUNCT	I-CAKE
	IN?	CAKE,IN-GURTH \FALSE
	REMOVE	CAKE
	EQUAL?	HERE,IN-GURTH \FALSE
	BOR	NEW-DBOX,SHOWING-ROOM >NEW-DBOX
	SET	'P-IT-OBJECT,NOT-HERE-OBJECT
	PRINT	TAB
	PRINTI	"An alley cat races between your legs, snatches "
	ICALL2	THE-PRINT,CAKE
	PRINTI	" and"
	PRINT	STR?501
	PRINTR	"crowd."


	.FUNCT	I-QUAKE
	PRINT	TAB
	IGRTR?	'QUAKE-TIMER,4 \?CCL3
	ICALL1	ENDING
	RTRUE	
?CCL3:	EQUAL?	QUAKE-TIMER,4 \?CCL5
	ICALL2	CTHE-PRINT,GROUND
	PRINTR	" heaves sharply to the right, and bits of broken rock shower down on your head. One more like that..."
?CCL5:	EQUAL?	QUAKE-TIMER,3 \?CCL7
	PRINTR	"The rumble grows to a roar as a mighty earthquake rocks the caverns to their very roots."
?CCL7:	EQUAL?	QUAKE-TIMER,2 \?CCL9
	PRINTR	"Another tremor wracks the earth, and a deep, ominous rumble begins to swell around you."
?CCL9:	ICALL2	CTHE-PRINT,GROUND
	PRINTR	" underfoot trembles for a moment."

	.ENDI