sorcerer/end.zap

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