mirror of
https://github.com/historicalsource/beyondzork
synced 2024-04-26 22:29:46 +03:00
4862 lines
116 KiB
Plaintext
4862 lines
116 KiB
Plaintext
|
|
|
|
.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
|