539 lines
16 KiB
Plaintext
539 lines
16 KiB
Plaintext
|
|
|
|
.FUNCT COVE-F,RARG,X=0
|
|
EQUAL? RARG,M-ENTER \FALSE
|
|
FSET? COVE,TOUCHBIT /FALSE
|
|
ZERO? BOOK-BELONGS-IN-LAGOON /?CND8
|
|
MOVE SPELL-BOOK,LAGOON-FLOOR
|
|
?CND8: PUT VEZZAS,6,0
|
|
ADD SCORE,20 >SCORE
|
|
CALL INT,I-SUFFOCATE
|
|
PUT STACK,0,0
|
|
CALL INT,I-YOUNGER-SELF
|
|
PUT STACK,0,0
|
|
CALL INT,I-OLDER-SELF
|
|
PUT STACK,0,0
|
|
ZERO? GOLMACKED /?ELS14
|
|
ZERO? COMBO-REVEALED \?ELS14
|
|
CALL POOF
|
|
JUMP ?CND12
|
|
?ELS14: ZERO? GOLMACKED \?CND12
|
|
CALL HELD?,ROPE
|
|
ZERO? STACK /?CND19
|
|
MOVE ROPE,DIAL
|
|
SET 'X,TRUE-VALUE
|
|
?CND19: CALL HELD?,BEAM
|
|
ZERO? STACK /?CND22
|
|
MOVE BEAM,DIAL
|
|
SET 'X,TRUE-VALUE
|
|
?CND22: CALL HELD?,VARDIK-SCROLL
|
|
ZERO? STACK /?CND25
|
|
MOVE VARDIK-SCROLL,DIAL
|
|
SET 'X,TRUE-VALUE
|
|
?CND25: CALL HELD?,GOLMAC-SCROLL
|
|
ZERO? STACK /?CND28
|
|
MOVE GOLMAC-SCROLL,DIAL
|
|
SET 'X,TRUE-VALUE
|
|
?CND28: ZERO? X /?CND12
|
|
PRINTI "As you slide down the chute, some of your possessions suddenly vanish! "
|
|
?CND12: PRINTI "You fly out of the chute and land just at the edge of some water..."
|
|
CRLF
|
|
CRLF
|
|
RTRUE
|
|
|
|
|
|
.FUNCT POOF
|
|
SET 'POOFED,TRUE-VALUE
|
|
PRINTI "Suddenly, without the slightest fanfare, you cease to exist!"
|
|
CRLF
|
|
CALL FINISH
|
|
RSTACK
|
|
|
|
|
|
.FUNCT OCEAN-SHORE-F,RARG
|
|
EQUAL? RARG,M-LOOK \FALSE
|
|
PRINTI "You are "
|
|
ZERO? FLYING /?ELS10
|
|
PRINTI "floating above"
|
|
JUMP ?CND8
|
|
?ELS10: PRINTI "standing on"
|
|
?CND8: PRINTI " the western shore of the mighty Flathead Ocean. According to legends you read at the University, the eastern shore of this ocean is a strange land of magical beings and priceless treasures. "
|
|
EQUAL? HERE,OCEAN-NORTH \?ELS22
|
|
PRINTI "You could go north along the shore; the edge of a small cove lies to the southwest."
|
|
JUMP ?CND20
|
|
?ELS22: PRINTI "The beach to the south is blocked by a tall cliff; a lagoon shore lies to the northwest."
|
|
?CND20: CRLF
|
|
RTRUE
|
|
|
|
|
|
.FUNCT OCEAN-F,X=0
|
|
EQUAL? HERE,GUN-EMPLACEMENT,TURRET,TOP-OF-FALLS \?ELS5
|
|
PRINTR "The ocean lies far below you."
|
|
?ELS5: EQUAL? PRSA,V?PULVER \?ELS9
|
|
SET 'PERFORMING-SPELL,TRUE-VALUE
|
|
CALL PERFORM,V?PULVER,LAGOON-OBJECT
|
|
RTRUE
|
|
?ELS9: EQUAL? PRSA,V?DRINK-FROM,V?DRINK \?ELS11
|
|
CALL PERFORM,V?DRINK,WATER
|
|
RTRUE
|
|
?ELS11: EQUAL? PRSA,V?EXAMINE \?ELS13
|
|
PRINTR "It streches east as far as the eye can see."
|
|
?ELS13: EQUAL? PRSA,V?RESEARCH \?ELS17
|
|
PRINTR "The Flathead Ocean, called the Great Sea by the ancients, has a very unusual feature -- its western shore basks in the sunlight while its eastern shore lies far underground."
|
|
?ELS17: EQUAL? PRSA,V?PUT \?ELS21
|
|
EQUAL? OCEAN,PRSI \?ELS21
|
|
MOVE PRSO,DIAL
|
|
CALL SPLASH
|
|
RSTACK
|
|
?ELS21: EQUAL? PRSA,V?THROUGH \FALSE
|
|
CALL JIGS-UP,STR?318
|
|
RSTACK
|
|
|
|
|
|
.FUNCT CLIFF-PSEUDO
|
|
EQUAL? PRSA,V?CLIMB-FOO,V?CLIMB-UP \FALSE
|
|
ZERO? FLYING /?ELS10
|
|
PRINTR "The cliff is too high to fly over."
|
|
?ELS10: PRINTR "The cliff is unclimbable."
|
|
|
|
|
|
.FUNCT LAGOON-OBJECT-F
|
|
EQUAL? PRSA,V?THROUGH \?ELS5
|
|
EQUAL? HERE,LAGOON,LAGOON-FLOOR \?ELS10
|
|
CALL LOOK-AROUND-YOU
|
|
RSTACK
|
|
?ELS10: CALL GOTO,LAGOON
|
|
RSTACK
|
|
?ELS5: EQUAL? PRSA,V?PUT \?ELS14
|
|
EQUAL? HERE,LAGOON-FLOOR /?ELS14
|
|
EQUAL? PRSI,LAGOON-OBJECT \?ELS14
|
|
MOVE PRSO,LAGOON-FLOOR
|
|
FSET? PRSO,SCROLLBIT /?THN20
|
|
EQUAL? PRSO,SPELL-BOOK \?CND17
|
|
?THN20: FSET PRSO,MUNGBIT
|
|
?CND17: CALL SPLASH
|
|
RSTACK
|
|
?ELS14: EQUAL? PRSA,V?EXAMINE \?ELS23
|
|
PRINTR "The water looks calm and hospitable."
|
|
?ELS23: EQUAL? PRSA,V?DRINK-FROM,V?DRINK \?ELS27
|
|
CALL PERFORM,V?DRINK,WATER
|
|
RTRUE
|
|
?ELS27: EQUAL? PRSA,V?PULVER \FALSE
|
|
PRINTR "The water level seems to drop an inch or two, for a moment."
|
|
|
|
|
|
.FUNCT LAGOON-F,RARG,X
|
|
EQUAL? RARG,M-ENTER \?ELS5
|
|
FIRST? PROTAGONIST >X /?KLU35
|
|
?KLU35:
|
|
?PRG6: ZERO? X /TRUE
|
|
FSET? X,SCROLLBIT /?THN15
|
|
EQUAL? X,SPELL-BOOK \?CND12
|
|
?THN15: FSET X,MUNGBIT
|
|
?CND12: NEXT? X >X /?KLU36
|
|
?KLU36: JUMP ?PRG6
|
|
?ELS5: EQUAL? RARG,M-LOOK \FALSE
|
|
PRINTI "You are "
|
|
ZERO? FLYING /?ELS25
|
|
PRINTI "flying over"
|
|
JUMP ?CND23
|
|
?ELS25: PRINTI "swimming on"
|
|
?CND23: PRINTR " the surface of a calm lagoon, whose sandy floor is visible below. A curved beach surrounds this inlet on its western side."
|
|
|
|
|
|
.FUNCT LAGOON-FLOOR-ENTER-F
|
|
ZERO? FLYING /?ELS5
|
|
CALL WHILE-FLYING
|
|
RFALSE
|
|
?ELS5: RETURN LAGOON-FLOOR
|
|
|
|
|
|
.FUNCT SAND-PSEUDO
|
|
EQUAL? PSEUDO-OBJECT,PRSO \?ELS5
|
|
SET 'PERFORMING-SPELL,TRUE-VALUE
|
|
CALL PERFORM,PRSA,GROUND,PRSI
|
|
RTRUE
|
|
?ELS5: SET 'PERFORMING-SPELL,TRUE-VALUE
|
|
CALL PERFORM,PRSA,PRSO,GROUND
|
|
RTRUE
|
|
|
|
|
|
.FUNCT LAGOON-FLOOR-F,RARG
|
|
EQUAL? RARG,M-ENTER \FALSE
|
|
CALL QUEUE,I-DROWN,-1
|
|
PUT STACK,0,1
|
|
RFALSE
|
|
|
|
|
|
.FUNCT I-DROWN
|
|
EQUAL? HERE,LAGOON-FLOOR \?ELS5
|
|
ZERO? VILSTUED \FALSE
|
|
INC 'UNDERWATER-COUNTER
|
|
EQUAL? UNDERWATER-COUNTER,3 \?ELS14
|
|
CRLF
|
|
PRINTR "You won't be able to hold your breath much longer."
|
|
?ELS14: EQUAL? UNDERWATER-COUNTER,4 \?ELS18
|
|
CRLF
|
|
PRINTR "Better get some fresh air soon!"
|
|
?ELS18: EQUAL? UNDERWATER-COUNTER,5 \FALSE
|
|
SET 'UNDERWATER-COUNTER,0
|
|
CRLF
|
|
CALL JIGS-UP,STR?320
|
|
RSTACK
|
|
?ELS5: SET 'UNDERWATER-COUNTER,0
|
|
CALL INT,I-DROWN
|
|
PUT STACK,0,0
|
|
RFALSE
|
|
|
|
|
|
.FUNCT CORAL-PSEUDO
|
|
EQUAL? PRSA,V?EXAMINE \FALSE
|
|
IN? HERE,SPENSEWEEDS \FALSE
|
|
PRINTR "The coral is covered by swaying spenseweeds."
|
|
|
|
|
|
.FUNCT SPENSEWEEDS-F
|
|
EQUAL? PRSA,V?MEEF \?ELS5
|
|
MOVE SPENSEWEEDS,DIAL
|
|
MOVE CRATE,HERE
|
|
CALL THIS-IS-IT,CRATE
|
|
PRINTR "The spenseweeds wilt away, revealing a wooden crate labelled with black lettering."
|
|
?ELS5: EQUAL? PRSA,V?LOOK-UNDER \FALSE
|
|
PRINTR "That's difficult -- they're well rooted in the coral."
|
|
|
|
|
|
.FUNCT CRATE-F
|
|
EQUAL? PRSA,V?REZROV,V?OPEN \?ELS5
|
|
ZERO? CRATE-POINT \?ELS5
|
|
SET 'CRATE-POINT,TRUE-VALUE
|
|
ADD SCORE,15 >SCORE
|
|
RFALSE
|
|
?ELS5: EQUAL? PRSA,V?READ \FALSE
|
|
CALL FIXED-FONT-ON
|
|
PRINTI "Stencilled diagonally across the crate:
|
|
|
|
GRUE PROTECTION KIT
|
|
|
|
Below, in much smaller letters:
|
|
|
|
FROM:
|
|
Frobozz Magic Grue Accessories Co.
|
|
|
|
TO:
|
|
Aragain Brothers Circus
|
|
Attn: Grue Trainer"
|
|
CRLF
|
|
CALL FIXED-FONT-OFF
|
|
RSTACK
|
|
|
|
|
|
.FUNCT BRASS-LANTERN-F
|
|
EQUAL? PRSA,V?EXAMINE \FALSE
|
|
PRINTI "It is a battery-powered lantern like those used by adventurers and explorers. It is currently "
|
|
FSET? BRASS-LANTERN,ONBIT \?ELS10
|
|
PRINTI "on"
|
|
JUMP ?CND8
|
|
?ELS10: PRINTI "off"
|
|
?CND8: PRINTR "."
|
|
|
|
|
|
.FUNCT GRUE-REPELLENT-F
|
|
EQUAL? PRSA,V?SHAKE \?ELS5
|
|
ZERO? SPRAY-USED? /?ELS10
|
|
PRINTR "The can seems empty."
|
|
?ELS10: PRINTR "There is a sloshing sound from inside."
|
|
?ELS5: EQUAL? PRSA,V?PUT-ON,V?SPRAY \FALSE
|
|
EQUAL? PRSO,GRUE-REPELLENT \FALSE
|
|
ZERO? SPRAY-USED? /?ELS26
|
|
PRINTR "The repellent is all gone."
|
|
?ELS26: ZERO? PRSI \?ELS31
|
|
SET 'SPRAY-USED?,TRUE-VALUE
|
|
PRINTR "The spray stinks amazingly for a few moments, then drifts away."
|
|
?ELS31: EQUAL? PRSI,ME \?CND36
|
|
CALL QUEUE,I-SPRAY,5
|
|
PUT STACK,0,1
|
|
SET 'SPRAYED?,TRUE-VALUE
|
|
?CND36: SET 'SPRAY-USED?,TRUE-VALUE
|
|
PRINTR "The spray smells like a mixture of old socks and burning rubber. If I were a grue I'd sure stay clear!"
|
|
|
|
|
|
.FUNCT I-SPRAY
|
|
SET 'SPRAYED?,FALSE-VALUE
|
|
CRLF
|
|
PRINTR "That horrible smell is much less pungent now."
|
|
|
|
|
|
.FUNCT MOUTH-OF-RIVER-F,RARG
|
|
EQUAL? RARG,M-LOOK \?ELS5
|
|
PRINTI "A mighty river spills into the ocean here. Looking up the river valley, you see a tall waterfall. Atop a cliff, high above you, is the rampart of a fortress. A cave entrance "
|
|
IN? VINES,HERE \?ELS10
|
|
PRINTI "at the base of the cliff to the west is blocked by writhing green vines"
|
|
JUMP ?CND8
|
|
?ELS10: PRINTI "lies to the west"
|
|
?CND8: PRINTR "."
|
|
?ELS5: EQUAL? RARG,M-END \FALSE
|
|
IN? VINES,HERE \FALSE
|
|
RANDOM 100
|
|
LESS? 15,STACK /FALSE
|
|
CRLF
|
|
PRINTI "Suddenly you realize that, without really thinking about it, you were "
|
|
ZERO? FLYING /?ELS27
|
|
PRINTI "flying"
|
|
JUMP ?CND25
|
|
?ELS27: PRINTI "walking"
|
|
?CND25: PRINTR " toward the wriggling vines. As you stop, a feeling of annoyance seems to radiate from the plants."
|
|
|
|
|
|
.FUNCT VINES-F
|
|
EQUAL? PRSA,V?MEEF \?ELS5
|
|
MOVE VINES,DIAL
|
|
PRINTR "You can almost feel a wave of pain from the vines as they shrivel away."
|
|
?ELS5: EQUAL? PRSA,V?KILL,V?ATTACK \?ELS9
|
|
CALL JIGS-UP,STR?324
|
|
RSTACK
|
|
?ELS9: EQUAL? PRSA,V?BITE,V?KICK,V?THROUGH /?THN12
|
|
EQUAL? PRSA,V?CLIMB-FOO,V?CLIMB-UP,V?TAKE /?THN12
|
|
EQUAL? PRSA,V?RUB,V?MOVE,V?PUSH \FALSE
|
|
?THN12: CALL DO-WALK,P?WEST
|
|
RSTACK
|
|
|
|
|
|
.FUNCT VINES-EXIT-F
|
|
IN? VINES,HERE \?ELS5
|
|
CALL JIGS-UP,STR?325
|
|
RFALSE
|
|
?ELS5: RETURN GRUE-LAIR
|
|
|
|
|
|
.FUNCT GRUE-LAIR-F,RARG
|
|
ZERO? SPRAYED? \FALSE
|
|
EQUAL? RARG,M-END \FALSE
|
|
IN? GRUE-SUIT,PROTAGONIST /FALSE
|
|
ZERO? LIT \?THN13
|
|
ZERO? BLORTED /?ELS12
|
|
?THN13: CALL JIGS-UP,STR?327
|
|
RSTACK
|
|
?ELS12: CALL JIGS-UP,STR?328
|
|
RSTACK
|
|
|
|
|
|
.FUNCT MUTATED-GRUES-F
|
|
EQUAL? PRSA,V?FROTZ \?ELS5
|
|
PRINTR "One of the grues gives off a flash of light but, strangely, it doesn't seem to notice or care."
|
|
?ELS5: EQUAL? PRSA,V?RESEARCH \FALSE
|
|
CALL PERFORM,V?RESEARCH,GRUE
|
|
RTRUE
|
|
|
|
|
|
.FUNCT MUTATED-GRUES-DESCFCN,RARG
|
|
ZERO? LIT \?THN6
|
|
ZERO? BLORTED /?ELS5
|
|
?THN6: ZERO? SPRAYED? /?ELS12
|
|
CALL LIT-MESSAGE
|
|
PRINTR "They stagger about the room, covering their noses and making horrid gurgling noises."
|
|
?ELS12: IN? GRUE-SUIT,PROTAGONIST \?ELS17
|
|
CALL LIT-MESSAGE
|
|
PRINTR "They seem to be ignoring you, aside from a few suspicious gurgles in your direction."
|
|
?ELS17: CALL LIT-MESSAGE
|
|
PRINTR "Baring tremendous fangs, they form a circle around you..."
|
|
?ELS5: PRINTR "There are terrifying gurgling noises from the darkness!"
|
|
|
|
|
|
.FUNCT LIT-MESSAGE
|
|
PRINTI "A pack of grues fills the room! "
|
|
ZERO? LIT /FALSE
|
|
PRINTI "The grues, contrary to all conventional wisdom, aren't bothered by your light in the least. They must be mutated grues, no longer fearing light! "
|
|
RTRUE
|
|
|
|
|
|
.FUNCT MAMMOTH-CAVERN-F,RARG
|
|
EQUAL? RARG,M-ENTER \FALSE
|
|
ADD SCORE,CAVERN-POINT >SCORE
|
|
SET 'CAVERN-POINT,0
|
|
PUT VEZZAS,7,0
|
|
RTRUE
|
|
|
|
|
|
.FUNCT MACHINERY-F
|
|
EQUAL? PRSA,V?LAMP-ON,V?MUNG \?ELS5
|
|
CALL JIGS-UP,STR?330
|
|
RSTACK
|
|
?ELS5: EQUAL? PRSA,V?READ,V?EXAMINE \FALSE
|
|
PRINTR "You notice, on one machine, a tiny plaque which reads:
|
|
|
|
FROBOZZ MAGIC MUTATED GRUE BREEDER CO."
|
|
|
|
|
|
.FUNCT CHAMBER-OF-LIVING-DEATH-F,RARG
|
|
EQUAL? RARG,M-BEG \?ELS5
|
|
EQUAL? PRSA,V?VERSION,V?SAVE,V?QUIT /?ELS5
|
|
EQUAL? PRSA,V?RESTART,V?RESTORE /?ELS5
|
|
EQUAL? PRSA,V?SUPER-BRIEF,V?VERBOSE,V?BRIEF /?ELS5
|
|
EQUAL? PRSA,V?UNSCRIPT,V?SCRIPT /?ELS5
|
|
CALL AGONY
|
|
RTRUE
|
|
?ELS5: EQUAL? RARG,M-END \FALSE
|
|
PRINTR "Hideous parasites descend upon you and tear the flesh from your bones, gnaw the eyes from your sockets, and feast upon your very brain tissue. Amazingly, you do not die, and your body regenerates itself as you await the next attack..."
|
|
|
|
|
|
.FUNCT PARASITES-PSEUDO
|
|
RFALSE
|
|
|
|
|
|
.FUNCT HALL-OF-ETERNAL-DEATH-F,RARG
|
|
EQUAL? RARG,M-BEG \?ELS5
|
|
EQUAL? PRSA,V?VERSION,V?SAVE,V?QUIT /?ELS5
|
|
EQUAL? PRSA,V?RESTART,V?RESTORE /?ELS5
|
|
EQUAL? PRSA,V?SUPER-BRIEF,V?VERBOSE,V?BRIEF /?ELS5
|
|
EQUAL? PRSA,V?UNSCRIPT,V?SCRIPT /?ELS5
|
|
CALL AGONY
|
|
RTRUE
|
|
?ELS5: EQUAL? RARG,M-END \FALSE
|
|
PRINTR "Disembodied forces suck the very thoughts from your mind, savoring each moment and growing stronger. Every second is an agonizing torment, as though thousands of raging fires were exploding in your skull, filling you with a pain greater than you could ever imagine."
|
|
|
|
|
|
.FUNCT FORCE-PSEUDO
|
|
RFALSE
|
|
|
|
|
|
.FUNCT AGONY
|
|
PRINTR "Your agony is too great to concentrate on such an action."
|
|
|
|
|
|
.FUNCT BLACK-DOOR-F
|
|
EQUAL? PRSA,V?REZROV,V?OPEN \FALSE
|
|
PRINTI "As the door opens, hundreds of slime-covered tentacles stream out and drag you across the threshold..."
|
|
CRLF
|
|
CRLF
|
|
CALL ROB,PROTAGONIST
|
|
CALL INT,I-TIRED
|
|
PUT STACK,0,0
|
|
CALL INT,I-THIRST
|
|
PUT STACK,0,0
|
|
CALL INT,I-HUNGER
|
|
PUT STACK,0,0
|
|
CALL WEAR-OFF-SPELLS
|
|
CALL GOTO,CHAMBER-OF-LIVING-DEATH
|
|
RSTACK
|
|
|
|
|
|
.FUNCT SILVER-DOOR-F
|
|
EQUAL? PRSA,V?REZROV,V?OPEN \FALSE
|
|
PRINTI "The door blows open, knocking you to the ground. You are pulled through the open doorway by an unseen force..."
|
|
CRLF
|
|
CRLF
|
|
CALL ROB,PROTAGONIST
|
|
CALL INT,I-TIRED
|
|
PUT STACK,0,0
|
|
CALL INT,I-HUNGER
|
|
PUT STACK,0,0
|
|
CALL INT,I-THIRST
|
|
PUT STACK,0,0
|
|
CALL WEAR-OFF-SPELLS
|
|
CALL GOTO,HALL-OF-ETERNAL-PAIN
|
|
RSTACK
|
|
|
|
|
|
.FUNCT WHITE-DOOR-F
|
|
EQUAL? PRSA,V?REZROV,V?OPEN \FALSE
|
|
EQUAL? HERE,BELBOZ-HIDEOUT \?CND6
|
|
CALL DO-WALK,P?EAST
|
|
RTRUE
|
|
?CND6: ADD SCORE,WHITE-DOOR-SCORE >SCORE
|
|
SET 'WHITE-DOOR-SCORE,0
|
|
PRINTI "The door creaks slowly open. Within, you see someone lying as though asleep. You feel yourself drawn into the room..."
|
|
CRLF
|
|
CRLF
|
|
CALL QUEUE,I-BELBOZ-AWAKES,8
|
|
PUT STACK,0,1
|
|
CALL GOTO,BELBOZ-HIDEOUT
|
|
RSTACK
|
|
|
|
|
|
.FUNCT I-UNVARDIK
|
|
SET 'VARDIKED,FALSE-VALUE
|
|
CRLF
|
|
PRINTR "Your head feels numb for a moment, and your mind feels suddenly open and unprotected."
|
|
|
|
|
|
.FUNCT KILL-BELBOZ
|
|
ZERO? BELBOZ-GASPARED /?ELS5
|
|
SET 'BELBOZ-GASPARED,FALSE-VALUE
|
|
PRINTI "As you stab Belboz, an apparition rises from his body. Floating above him like a cloud of fog, it howls with laughter. A moment later, gaspar begins to heal the wounds, and the spirit flows back into the body."
|
|
CRLF
|
|
CRLF
|
|
CALL I-BELBOZ-AWAKES
|
|
RSTACK
|
|
?ELS5: PRINTI "You stab the knife time and again into Belboz, who writhes in pain, eyes bulging outward. Sickened and dizzy, you stagger back."
|
|
CRLF
|
|
CRLF
|
|
SET 'BELBOZ-DEAD,TRUE-VALUE
|
|
CALL SWANZO-BELBOZ
|
|
RSTACK
|
|
|
|
|
|
.FUNCT SWANZO-BELBOZ
|
|
PRINTI "A wispy translucent shape rises from the "
|
|
ZERO? BELBOZ-DEAD /?ELS5
|
|
PRINTI "corpse"
|
|
JUMP ?CND3
|
|
?ELS5: PRINTI "body"
|
|
?CND3: PRINTI " of Belboz. It speaks in a voice so deep that your whole body seems to hear it. ""Foolish Charlatan! I am forced to flee that weak, old body -- I shall take your own, instead! Already I have sucked all knowledge, all secrets from that ancient Enchanter. Now begins an epoch of evil transcending even your worst nightmares; a reign of terror that will last a thousand thousand years!"" The shape blows toward you on a cold wind."
|
|
CRLF
|
|
CRLF
|
|
ZERO? VARDIKED /?ELS19
|
|
PRINTI "Jeearr surrounds you like a cloud and begins to contract. Suddenly, it strikes your invisible protection and recoils as if burned. ""No!"" it cries. ""Such a guileless Enchanter developing a mind shield?"" The cloud is thinner, the voice fainter. ""It cannot be! I cannot survive ... without a host."" The demon roils in agony, then thins and dissipates. There is a final scream of pain, then silence."
|
|
CRLF
|
|
CRLF
|
|
ZERO? BELBOZ-DEAD /?ELS27
|
|
PRINTI "Jeearr is vanquished; the kingdom is saved. But you - you are stranded in a land unknown, and your closest friend, the greatest Enchanter of his age, lies dead by your own hand. Kneeling by his blood-soaked corpse, you beg for another chance..."
|
|
CRLF
|
|
CALL FINISH
|
|
RSTACK
|
|
?ELS27: PRINTI "Belboz moans softly, and begins stirring. He sees you and rises, instantly alert. After posing a few well-chosen questions, he casts a brief but unfamiliar spell.
|
|
|
|
An instant later, "
|
|
IN? GRUE-SUIT,PROTAGONIST \?CND35
|
|
PRINTI "your grue suit has vanished and "
|
|
?CND35: PRINTI "you are standing in the Chamber of the Circle. The Circle of Enchanters is assembled. Belboz speaks. ""Once again, this young Enchanter has done a matchless service to the Guild and to the entire kingdom, displaying resourcefulness and imagination worthy of the greatest of Enchanters. I grow old, and must soon step down as Head of the Circle. But let it be known that a successor has been found."""
|
|
CRLF
|
|
CRLF
|
|
ADD SCORE,25 >SCORE
|
|
SET 'HERE,CHAMBER-OF-THE-CIRCLE
|
|
CALL V-SCORE
|
|
USL
|
|
CRLF
|
|
PRINTI "Here ends the second chapter of the Enchanter saga, in which, by virtue of your skills, you have been appointed as the next leader of the Circle of Enchanters. The final adventure awaits you as the Enchanter series concludes."
|
|
CRLF
|
|
IN? MORGIA-PLANT,BELBOZ-QUARTERS /?CND44
|
|
CRLF
|
|
PRINTI "You hear a distant bellow. ""What happened to my morgia plant?"""
|
|
CRLF
|
|
?CND44: CALL FINISH,TRUE-VALUE
|
|
RSTACK
|
|
?ELS19: PRINTI "You feel an overwhelming sense of oppression as the demon seizes control of your mind and body. The monster reaches into the recesses of your mind, adding your hard-earned magic powers to its own. As it settles comfortably into your skull, the demon grants you a vision of the future. You see the enslaved people of the land toiling to erect great idols to Jeearr. Parents offer up their own children upon these altars, as the rivers of the land fill with blood. And YOU embody Jeearr; you are cursed by ten thousand generations of victims; your face adorns the idols. And worst of all, you remain awake and aware, a witness to horror, never sleeping, and never, ever to escape."
|
|
CRLF
|
|
SET 'SCORE,-99
|
|
CALL FINISH
|
|
RSTACK
|
|
|
|
|
|
.FUNCT I-BELBOZ-AWAKES
|
|
EQUAL? HERE,BELBOZ-HIDEOUT \FALSE
|
|
CRLF
|
|
PRINTI "Suddenly, Belboz's eyes flicker and he leaps to his feet. His face is unrecognizable, a twisted mask of hatred. ""Meddlesome Enchanter! I should have killed you all before I left! But better late than never..."" Lightning bolts flash toward you from his fingers, but rather than dying, you find yourself in the..."
|
|
CRLF
|
|
CRLF
|
|
CALL ROB,PROTAGONIST
|
|
CALL INT,I-TIRED
|
|
PUT STACK,0,0
|
|
CALL INT,I-THIRST
|
|
PUT STACK,0,0
|
|
CALL INT,I-HUNGER
|
|
PUT STACK,0,0
|
|
CALL WEAR-OFF-SPELLS
|
|
CALL GOTO,HALL-OF-ETERNAL-PAIN
|
|
RSTACK
|
|
|
|
.ENDI
|