journey/forest.zap
historicalsource 689e06b55f Final Revision
2019-04-14 16:35:30 -04:00

1788 lines
72 KiB
Plaintext

.SEGMENT "FOREST"
.FUNCT MOVE-TO-FOREST-RIDGE:ANY:0:0
PRINTI "Looking back, we could follow the long canyon path back to the horizon, where I imagined I could see the fork just beyond Lavos. But the view ahead filled us with astonishment, for a vast forest stretched out before us, thick with pine, fir, and redwood. Beyond the forest, a wide river flowed from the north, disappearing into deep canyons to the south. And beyond the forest, the Sunrise Mountain, its jagged peak towering high above the surrounding mountains."
CRLF
CRLF
PRINTI """Magnificent!"" Praxix said. ""We stand before the Old Forest!"""
CRLF
CRLF
PRINTI """I have heard many a tale of the Old Forest,"" I said with a smile, reminiscing of the fanciful tales oft told about the forest."
CRLF
CRLF
PRINTI """I too have heard tales,"" Praxix replied, gravely. ""But judging by the comical look on your face, I suspect we have not heard the same ones."""
CRLF
CRLF
ICALL UPDATE-MOVE,TALE-ELVES,PRAXIX-TALES
ICALL1 NEXT-DAY
ICALL1 NEXT-DAY
PRINTI "It was now dark and after a hearty meal we slept. I dreamed of the forest that night, of brightly colored birds, and of the beautiful Wood Elves from the stories of my childhood. The next day, we rose with the sun."
CRLF
CRLF
PRINTI "The morning was still and hazy, and we started toward the forest with great eagerness. Praxix spotted a wide path which headed due east toward the Sunrise Mountain, and we spent a glorious morning beneath tall trees and a blue sky. Around midday, we came to a small clearing, where we decided to stop for lunch."
FSET? STAIR-BOTTOM,SEEN /?CCL3
CALL1 SKIP-BITE-FOREST
RSTACK
?CCL3: CALL2 MOVE-TO,BITE-FOREST
RSTACK
.FUNCT ANONF-96:ANY:0:0
CALL QSET?,HERE,SEEN
ZERO? STACK \?CCL3
FSET? MINAR,IN-PARTY \?CCL6
SET 'BITE-VICTIM,MINAR
SET 'BITE-VICTIM-OBJECT,MINAR-OBJECT
JUMP ?CND4
?CCL6: FSET? ESHER,IN-PARTY \?CCL8
SET 'BITE-VICTIM,ESHER
SET 'BITE-VICTIM-OBJECT,ESHER-OBJECT
?CND4: ICALL2 GRAPHIC,G-NIGHTFANG
CRLF
CRLF
PRINTI "And then, without warning, a large snake lunged at "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI ", grabbing him by the leg. "
FSET? BERGON,IN-PARTY \?CCL11
PRINTI "Bergon"
JUMP ?CND9
?CCL8: ICALL1 SKIP-BITE-FOREST
RTRUE
?CCL11: ICALL2 WPRINTD,BITE-VICTIM
?CND9: PRINTI ", reacting instinctively, killed the snake with a single blow of his sword"
FSET? BERGON,IN-PARTY \?CCL14
PRINTI "; "
ICALL2 WPRINTD,BITE-VICTIM
JUMP ?CND12
?CCL14: PRINTI " and"
?CND12: PRINTI " collapsed against a tree."
CRLF
CRLF
PRINTI """The snake,"" he started, grimacing with pain. ""Nightfang...."" His voice trailed off, and his eyes took on a glazed, vacant look."
CRLF
CRLF
PRINTI """But that cannot be! I thought Nightfang were nocturnal, like the Starstalker!"" I said, hopefully."
CRLF
CRLF
PRINTI """And you were right,"" replied Praxix. ""They were nocturnal. "
FSET? BERGON,IN-PARTY \?CCL17
PRINTI "Bergon, t"
JUMP ?CND15
?CCL17: PRINTC 84
?CND15: PRINTI "his man will die unless we can find some westflake root. There is little time!"""
ICALL UPDATE-MOVE,BITE-VICTIM-OBJECT,HERE
FSET BITE-VICTIM,INCAPACITATED
CALL MAKE-BUSY,BITE-VICTIM,ILL-COMMAND
RSTACK
?CCL3: IN? WOOD-ELF,HERE \?CND18
ICALL CHANGE-TRAVEL-COMMAND,HERE,TAG-ROUTE-COMMAND,ELF-HOME-COMMAND
?CND18: FSET? BERGON,TRAPPED /?CND20
ICALL REMOVE-TRAVEL-COMMAND,HERE,BERGON-ROUTE-COMMAND
?CND20: FSET? BITE-VICTIM,INCAPACITATED \?CCL24
FSET? BITE-VICTIM,DEAD /?CCL24
IN? WOOD-ELF,HERE /?CND27
IN? WESTFLAKE-ROOT,PRAXIX /?CND27
ICALL2 GRAPHIC,G-NIGHTFANG
?CND27: ZERO? SUBGROUP-MODE \?CND31
FSET? BITE-VICTIM,IN-PARTY /?CND31
ICALL2 PARTY-ADD,BITE-VICTIM
?CND31: ICALL UPDATE-MOVE,BITE-VICTIM-OBJECT,HERE
CALL MAKE-BUSY,BITE-VICTIM,ILL-COMMAND
RSTACK
?CCL24: FSET? WOOD-ELF,TRAPPED /?CCL36
FSET? BITE-VICTIM,DEAD \FALSE
?CCL36: CALL2 GRAPHIC,G-FOREST
RSTACK
.FUNCT ANONF-97:ANY:0:0
ZERO? SUBGROUP-MODE \FALSE
ZERO? BITE-VICTIM /FALSE
FSET? BITE-VICTIM,INCAPACITATED /?CCL3
FSET? BITE-VICTIM,DEAD \FALSE
?CCL3: CALL2 PARTY-REMOVE,BITE-VICTIM
RSTACK
.FUNCT ANONF-98:ANY:0:0
EQUAL? ACTION,ENTER-TUNNEL-COMMAND \?CCL3
PRINTI "We chose next to explore the tunnel that we had discovered underneath the stump, and, descending from our camp, quickly retraced our steps to the point at which we had entered it earlier. "
CALL MOVE-TO,WARREN,STR?412
RSTACK
?CCL3: EQUAL? ACTION,ELF-HOME-COMMAND \?CCL5
FSET? BERGON,TRAPPED \?CND6
FSET BERGON,DEAD
?CND6: FSET? WOOD-ELF,TRAPPED \?CCL10
PRINTI "Doing as V'ren had told us, I retraced my steps to the pool. V'ren was waiting there for us, and led us"
JUMP ?CND8
?CCL10: PRINTI "V'ren led us to the pool at which we had met, then"
?CND8: PRINTI " through twisty forest paths until we reached a small clearing. ""This is the Elf Home,"" she said, without words. ""Home of our Mothers since the beginning of all things."""
CRLF
CRLF
CALL MOVE-TO,ELF-HOME,STR?413
RSTACK
?CCL5: EQUAL? ACTION,TAG-ROUTE-COMMAND \?CCL12
FSET? BERGON,TRAPPED \?CND13
FSET BERGON,DEAD
?CND13: PRINTI "I retraced my earlier steps, "
FSET? ELFSTREAM-1,SEEN /?CCL17
PRINTI "but this time we decided to follow the stream."
CALL MOVE-TO,ELFSTREAM,STR?414
RSTACK
?CCL17: CALL MOVE-TO,ELFSTREAM,STR?415
RSTACK
?CCL12: EQUAL? ACTION,BERGON-ROUTE-COMMAND \?CCL19
IN? WOOD-ELF,HERE \?CND20
FSET WOOD-ELF,TRAPPED
PRINTI "We decided to follow Bergon's route in hopes of discovering his fate. V'ren said she could not come with us, but that we were welcome at the Elf Home. ""Come to the pool where we met,"" she said to me, ""and we shall meet again!"" And with that, she sped into the forest."
CRLF
CRLF
?CND20: CALL MOVE-TO,TANGLEWOOD,STR?416
RSTACK
?CCL19: EQUAL? ACTION,PRAXIX-ROUTE-COMMAND \?CCL23
FSET? BERGON,TRAPPED \?CND24
FSET BERGON,DEAD
?CND24: IN? WOOD-ELF,HERE \?CND26
FSET? WOOD-ELF,TRAPPED /?CND26
PRINTI "As we prepared to leave, V'ren explained that she must return to the Elf Home, but that we could find her anytime by returning to the pool at which we had first met. ""Good luck in your travels,"" she said without speech, and swiftly disappeared into the forest."
CRLF
CRLF
?CND26: PRINTI "Praxix led the way, and we soon arrived at the glade he had found nearby."
CALL QSET?,FOREST-GLADE,SEEN
ZERO? STACK \?CCL32
PRINTI " But, just as he was explaining his decision to go no farther, he stumbled over a tree stump that had been hidden in the knee-high grass!"
JUMP ?CND30
?CCL32: CALL QSET?,GLADE-STUMP,SEEN
ZERO? STACK \?CND30
FSET? FOREST-GLADE,SEEN \?CND34
CRLF
CRLF
PRINTI """Here's the stump that I walked into before,"" he said, giving it a"
FSET? GLADE-STUMP,EXAMINED \?CCL38
PRINTI "nother rap with his staff."
JUMP ?CND34
?CCL38: PRINTI " rap with his staff."
?CND34: IN? WESTFLAKE-ROOT,PRAXIX \?CCL41
PRINTI " ""Taught it a lesson!"" he added, pointing to its broken remains and the passage leading downward."
JUMP ?CND30
?CCL41: PRINTI " This, oddly, produced a hollow tone."
?CND30: CALL2 MOVE-TO,FOREST-GLADE
RSTACK
?CCL23: EQUAL? ACTION,EXAMINE-COMMAND \?CCL43
EQUAL? ACTION-OBJECT,BITE-VICTIM-OBJECT \?CCL43
ICALL UPDATE-FSET,BITE-VICTIM-OBJECT,DONT-EXAMINE
ICALL2 WPRINTD,ACTOR
PRINTI " examined "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI ". ""Unless we find the antidote, he will be dead before the sun sets."""
FSET? BERGON,IN-PARTY \TRUE
PRINTI " Bergon gazed up at the sky and frowned."
RTRUE
?CCL43: EQUAL? ACTION,GET-ADVICE-COMMAND \?CCL49
FSET? BITE-VICTIM,INCAPACITATED \?CCL49
ICALL UPDATE-FCLEAR,HERE,ADVISE
PRINTI "Unsure of how to save "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI ", Bergon asked for our advice. Praxix felt we had no alternative but to split up in search of the lifesaving root. I agreed, though I was fearful at the prospect of exploring this forest on my own."
RTRUE
?CCL49: EQUAL? ACTION,SPLIT-UP-COMMAND \?CCL53
PRINTI "It was agreed that we split up the group in search of the elusive westflake root, and "
ICALL UPDATE-FCLEAR,HERE,ADVISE
FSET? BERGON,IN-PARTY \?CCL56
PRINTI "Bergon indicated"
JUMP ?CND54
?CCL56: PRINTI "we decided on"
?CND54: PRINTI " the paths we should follow."
CRLF
CRLF
FSET? BERGON,IN-PARTY \?CCL59
FSET? DWARF-MEETING,SEEN /?CCL59
PRINTI """I shall remain here to tend to "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI ". Now go, and return before sunset! Do not wander far!"" he commanded."
FSET? ESHER,IN-PARTY \?CND57
EQUAL? BITE-VICTIM,ESHER /?CND57
PRINTI " But Esher would not leave, preferring to do what he could to keep Minar comfortable. And thus it was that Praxix and I went our separate ways into the forest."
JUMP ?CND57
?CCL59: FSET? BERGON,IN-PARTY \?CCL67
PRINTI """We will meet back here before sunset! Don't wander too far!"" he said."
JUMP ?CND57
?CCL67: PRINTI """We must meet back before sunset. Go quickly!"" Praxix said."
?CND57: FSET? BERGON,IN-PARTY \?CCL70
FSET? DWARF-MEETING,SEEN \?CCL70
ICALL1 DIVIDER
PRINTI "Choosing for himself the most difficult path, Bergon strode off into the thickening forest to our west."
FSET BERGON-SEARCH,SEEN
CALL2 SCENE,BERGON-SEARCH
RSTACK
?CCL70: CALL2 SCENE,PRAXIX-SEARCH
RSTACK
?CCL53: EQUAL? ACTION,COMB-AREA-COMMAND \FALSE
ICALL1 REMOVE-TRAVEL-COMMAND
PRINTI "We spent many frantic minutes searching the area for some westflake root, but to no avail. "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI " was now seemingly paralyzed; only the infrequent blinking of his eyes gave any clue that he remained alive."
RTRUE
.FUNCT MOVE-TO-ELF-HOME:ANY:0:0
PRINTI "Then, taking me by the hand, she led us through twisty forest paths until we reached a small clearing. ""This is the Elf Home,"" she said, without words. ""Home of our Mothers for all the long ages."""
CRLF
CRLF
CALL MOVE-TO,ELF-HOME,STR?417
RSTACK
.FUNCT ANONF-99:ANY:0:0
EQUAL? ACTION,SCENE-START-COMMAND \FALSE
ICALL1 DIVIDER
FSET? BERGON,TRAPPED \?CCL6
PRINTI "Praxix fared much better; leaving camp, he entered"
JUMP ?CND4
?CCL6: FSET? BERGON,IN-PARTY /?CCL8
PRINTI "Praxix chose to explore"
JUMP ?CND4
?CCL8: PRINTI "Bergon sent Praxix off to explore"
?CND4: PRINTI " the forest that lay to the east, and it was not long before he came to the edge of a grassy glade."
ICALL CHANGE-TRAVEL-COMMAND,BERGON,EXAMINE-COMMAND,GET-ADVICE-COMMAND
ICALL2 MAKE-SUBGROUP,PRAXIX
ICALL REMOVE-TRAVEL-COMMAND,PRAXIX,TELL-LEGEND-COMMAND
CALL2 MOVE-TO,FOREST-GLADE-EDGE
RSTACK
.FUNCT ANONF-100:ANY:0:0
EQUAL? ACTION,PROCEED-COMMAND \?CCL3
PRINTI "He had entered the glade and was moving swiftly through the knee-high grasses and wildflowers, when he walked straight into a tree stump that had been hidden in the undergrowth. Stifling a scream, Praxix rubbed his injured leg."
CRLF
CRLF
PRINTI """What an absurd place to leave a stump,"" he said, petulantly."
CALL2 MOVE-TO,FOREST-GLADE
RSTACK
?CCL3: EQUAL? ACTION,RETURN-COMMAND \FALSE
PRINTI "Praxix, unconvinced that westflake would be found here, returned to camp."
CALL2 SCENE,TAG-SEARCH
RSTACK
.FUNCT ANONF-101:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL UPDATE-FSET,ACTION-OBJECT,DONT-EXAMINE
PRINTI "Praxix inspected this misplaced piece of tree; then, as if to vent his anger, he rapped it with his staff, producing a hollow tone. ""Now, that is odd!"" he said, rubbing his still sore foot. Looking more closely now, he was unable to find any sign of how it might open."
RTRUE
.FUNCT ANONF-102:ANY:0:0
ICALL2 HINT,HINT-STUMP
PUTP HERE,P?CAST-LIMIT,2
FSET? GLADE-STUMP,ENCHANTED \?CND1
FSET? UNDERFOREST-2,TRIED /?CND1
ICALL ADD-TRAVEL-COMMAND,HERE,DOWN-COMMAND
?CND1: FSET FOREST-GLADE,SEEN
RTRUE
.FUNCT ANONF-103:ANY:0:0
EQUAL? ACTION,PROCEED-COMMAND \?CCL3
ICALL1 REMOVE-TRAVEL-COMMAND
ZERO? SUBGROUP-MODE /?CCL6
PRINTI "Limping slightly, Praxix continued on his way; before long, the terrain fell into a deep glen. ""Never get back in time!"" he said to himself, and returned to the glade."
FSET HERE,DONT-SCOUT
RTRUE
?CCL6: FSET? BITE-VICTIM,INCAPACITATED \?CCL8
PRINTI "We walked to the far end of the glade; the terrain sloped down sharply. ""No time to go farther!"" Praxix said, and he was right. It was nearly sunset, and "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI " was close to death."
RTRUE
?CCL8: ICALL UPDATE-FSET,HERE,DONT-SCOUT
PRINTI "The terrain ahead of us appeared unpromising, so we decided to take a different route."
RTRUE
?CCL3: EQUAL? ACTION,SCOUT-COMMAND \?CCL10
ICALL UPDATE-FSET,HERE,DONT-SCOUT
FSET HERE,SCOUTED
ICALL REMOVE-TRAVEL-COMMAND,HERE,PROCEED-COMMAND
FSET? BITE-VICTIM,INCAPACITATED \?CCL13
ICALL2 WPRINTD,ACTOR
PRINTI " went ahead to the far end of the glade, where the terrain sloped down sharply. ""No time to go farther!"" he said, and he was right. It was nearly sunset, and "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI " was close to death."
RTRUE
?CCL13: ICALL2 WPRINTD,ACTOR
PRINTI " checked out the far end of the glade, but returned with the report that the terrain appeared unpromising."
RTRUE
?CCL10: EQUAL? ACTION,RETURN-COMMAND \?CCL15
ZERO? SUBGROUP-MODE /?CCL18
PRINTI "Finding no sign of westflake, Praxix returned to our camp."
CALL2 SCENE,TAG-SEARCH
RSTACK
?CCL18: PRINTI "We returned to our camp, having found nothing "
FSET? BITE-VICTIM,INCAPACITATED \?CCL21
PRINTI "which could help our ailing friend"
JUMP ?CND19
?CCL21: PRINTI "useful along the route that Praxix had taken"
?CND19: PRINTC 46
ICALL REMOVE-TRAVEL-COMMAND,BITE-FOREST,PRAXIX-ROUTE-COMMAND
CALL2 MOVE-TO,BITE-FOREST
RSTACK
?CCL15: EQUAL? ACTION,DOWN-COMMAND \?CCL23
ZERO? SUBGROUP-MODE \?CCL26
CALL QSET?,HERE,TRIED
ZERO? STACK /?CND27
ICALL1 REMOVE-TRAVEL-COMMAND
?CND27: CALL MOVE-TO,UNDERFOREST-2,STR?419
RSTACK
?CCL26: CALL MOVE-TO,UNDERFOREST-2,STR?420
RSTACK
?CCL23: EQUAL? ACTION,CAST-COMMAND \FALSE
EQUAL? ACTION-OBJECT,LIGHTNING-SPELL \?PRD35
EQUAL? ACTION-PRSI,GLADE-STUMP /?PRD33
?PRD35: EQUAL? ACTION-OBJECT,FIRE-SPELL \?PRD38
EQUAL? ACTION-PRSI,GLADE-STUMP /?PRD33
?PRD38: EQUAL? ACTION-OBJECT,TREMOR-SPELL \FALSE
?PRD33: CALL QSET?,GLADE-STUMP,ENCHANTED
ZERO? STACK \FALSE
ICALL UPDATE-FSET,GLADE-STUMP,DONT-EXAMINE
ICALL ADD-TRAVEL-COMMAND,HERE,DOWN-COMMAND
ICALL2 GRAPHIC,G-STUMP
EQUAL? ACTION-OBJECT,LIGHTNING-SPELL \?CCL43
FSET LIGHTNING-SPELL,SEEN
PRINTI "Praxix carefully prepared a mixture of water and fire essences; then, he added just the slightest pinch of earth essence. He cast the mixture into the air and lifted his staff; from nowhere, clouds gathered and soon the sky was twilight-dark. Then, a single bolt of lightning fell from the sky, splitting the stump in two, and"
JUMP ?CND41
?CCL43: EQUAL? ACTION-OBJECT,TREMOR-SPELL \?CCL45
PRINTI "Praxix removed some earth essence from his pouch and cast it at the stump; the earth trembled briefly and the stump split in two"
JUMP ?CND41
?CCL45: PRINTI "Praxix removed a small handful of fire essence from his cloak and spread it over the stump. Within moments, the stump was afire; it burned itself out a few moments later,"
?CND41: PRINTI " revealing a passage below. ""Not bad! Not bad!"" he said, and he peered into the darkness below."
ZERO? SUBGROUP-MODE \?CND46
EQUAL? ACTION-OBJECT,LIGHTNING-SPELL \?CND46
CALL QSET?,LIGHTNING-SPELL,INCAPACITATED
ZERO? STACK \?CND46
CRLF
CRLF
PRINTI "Praxix, proud of his accomplishment, turned to me and whispered that it was the pinch of earth essence that really gives the lightning spell its added punch. But however the magic had been prepared, its effect was profound."
?CND46: PUTP HERE,P?GRAPHIC,G-STUMP
RTRUE
.FUNCT ANONF-104:ANY:0:0
FSET? PRAXIX,LIT /FALSE
CALL2 CHECK-ESSENCES,LIGHT-SPELL
ZERO? STACK \FALSE
CALL2 CHECK-ESSENCES,LEVITATE-SPELL
ZERO? STACK \FALSE
FSET HERE,TRAPPED
RTRUE
.FUNCT ANONF-105:ANY:0:0
LOC HINT-STUMP
ZERO? STACK /?CND1
ICALL2 UPDATE-REMOVE,HINT-STUMP
?CND1: FSET? PRAXIX,LIT \?CCL5
ICALL2 GRAPHIC,G-WARREN
CRLF
CRLF
PRINTI "With the aid of "
ZERO? SUBGROUP-MODE /?CCL8
PRINTI "his enchanted staff, Praxix"
JUMP ?CND6
?CCL8: PRINTI "Praxix' enchanted staff, we"
?CND6: PRINTI " could see that the passage led both back toward our camp and away."
ICALL2 ADD-PARTY-COMMAND,AWAY-COMMAND
ICALL CHANGE-PARTY-COMMAND,FEEL-AROUND-COMMAND,BACK-COMMAND
JUMP ?CND3
?CCL5: ICALL UPDATE-FSET,HERE,DONT-SCOUT
ICALL1 CAVERN-GRAPHIC
?CND3: FSET? PRAXIX,LIT \FALSE
ZERO? SUBGROUP-MODE \FALSE
FSET? BITE-VICTIM,INCAPACITATED /FALSE
CALL CHANGE-PARTY-COMMAND,AWAY-COMMAND,PROCEED-COMMAND
RSTACK
.FUNCT ANONF-106:ANY:0:0
EQUAL? ACTION,AWAY-COMMAND \?CCL3
ICALL2 REMOVE-PARTY-COMMAND,AWAY-COMMAND
PRINTI "Praxix absentmindedly started to head away from our camp, when he remembered how little time there was to save "
ICALL2 WPRINTD,BITE-VICTIM
PRINTC 46
CRLF
CRLF
PRINTI """There will be time for this later,"" he said, scolding himself, and quickly retraced his steps to his starting point."
RTRUE
?CCL3: EQUAL? ACTION,UP-COMMAND \?CCL5
ZERO? SUBGROUP-MODE /?CCL8
ICALL2 REMOVE-PARTY-COMMAND,UP-COMMAND
PRINTI "Try as he might, Praxix couldn't climb out of this hole he had dug for himself."
RTRUE
?CCL8: FCLEAR HERE,DEAD
CALL MOVE-TO,FOREST-GLADE,STR?423
RSTACK
?CCL5: EQUAL? ACTION,PROCEED-COMMAND \?CCL10
FSET? HERE,TRAPPED \?CCL13
PRINTI "The remainder of the day was spent tediously feeling our way through scores of dark, underground chambers until we finally reached an exit. We clambered out "
CALL1 MOVE-TO-ELFSTREAM
RSTACK
?CCL13: FSET? PRAXIX,LIT /?CCL15
PRINTI "We decided to explore this underground tunnel, but without light, the prospects were dim."
RTRUE
?CCL15: CALL MOVE-TO,WARREN,STR?424
RSTACK
?CCL10: EQUAL? ACTION,CAST-COMMAND \?CCL17
EQUAL? ACTION-OBJECT,LEVITATE-SPELL \?CCL17
ZERO? SUBGROUP-MODE /?CCL22
PRINTI "Then, taking out his air and earth essences, Praxix created an elevation spell and used it to raise himself back into the glade."
JUMP ?CND20
?CCL22: PRINTI "Praxix then used his elevation spell to lift "
ICALL2 WPRINTD,ACTION-PRSI
PRINTI " out of the hole; it was then a simple matter for the rest of us to make our way out."
?CND20: FSET HERE,TRIED
CALL2 MOVE-TO,FOREST-GLADE
RSTACK
?CCL17: EQUAL? ACTION,CAST-COMMAND \?CCL24
EQUAL? ACTION-OBJECT,LIGHT-SPELL \?CCL24
EQUAL? ACTION-PRSI,STAFF \?CCL24
CALL QSET?,PRAXIX,LIT
ZERO? STACK \?CCL24
LOC HINT-STUMP
ZERO? STACK /?CND29
ICALL2 UPDATE-REMOVE,HINT-STUMP
?CND29: ICALL2 GRAPHIC,G-WARREN
ICALL UPDATE-FCLEAR,HERE,DONT-SCOUT
ZERO? SUBGROUP-MODE \?CCL33
FSET? BITE-VICTIM,INCAPACITATED /?CCL33
FSET? HERE,DEAD \?CCL38
ICALL2 ADD-PARTY-COMMAND,PROCEED-COMMAND
JUMP ?CND31
?CCL38: ICALL CHANGE-PARTY-COMMAND,FEEL-AROUND-COMMAND,PROCEED-COMMAND
JUMP ?CND31
?CCL33: FSET? HERE,DEAD \?CCL41
ICALL2 ADD-PARTY-COMMAND,BACK-COMMAND
JUMP ?CND39
?CCL41: ICALL CHANGE-PARTY-COMMAND,FEEL-AROUND-COMMAND,BACK-COMMAND
?CND39: ICALL2 ADD-PARTY-COMMAND,AWAY-COMMAND
?CND31: PRINTI "It took some doing, but Praxix managed to fumble through his pouch and remove some fire and earth essence. He applied it to his staff, causing it to glow a dull red. "
ZERO? SUBGROUP-MODE /?CCL44
PRINTC 72
JUMP ?CND42
?CCL44: PRINTC 87
?CND42: PRINTI "e could now see that he was in a tunnel, with passages leading in two directions, though only one of these would head in the direction of camp."
RTRUE
?CCL24: EQUAL? ACTION,CAST-COMMAND \?CCL46
EQUAL? ACTION-OBJECT,FAR-VISION-SPELL \?CCL46
PRINTI "Praxix, with his flare spell, lit the walls of the tunnel, revealing that it was covered with a mossy, plantlike material, and that it spread out far in both directions."
RTRUE
?CCL46: EQUAL? ACTION,BACK-COMMAND \?CCL50
PRINTI "Using his staff for light, "
ZERO? SUBGROUP-MODE /?CCL53
ICALL2 WPRINTD,PRAXIX
JUMP ?CND51
?CCL53: PRINTI "we"
?CND51: PRINTI " continued down the tunnel in the direction of camp."
FSET? BITE-VICTIM,INCAPACITATED \?CND54
PRINTI " Casually scanning the walls, "
ZERO? SUBGROUP-MODE /?CCL58
PRINTI "he"
JUMP ?CND56
?CCL58: PRINTI "we"
?CND56: PRINTI " recognized the plant that almost completely surrounded "
ZERO? SUBGROUP-MODE /?CCL61
PRINTI "him"
JUMP ?CND59
?CCL61: PRINTI "us"
?CND59: PRINTI ": westflake! "
ZERO? SUBGROUP-MODE \?CCL64
ICALL2 WPRINTD,PRAXIX
JUMP ?CND62
?CCL64: PRINTI "He"
?CND62: PRINTI " gathered some of the root for "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI ", placing it in his cloak."
?CND54: ZERO? SUBGROUP-MODE \?CCL67
PRINTI " We"
JUMP ?CND65
?CCL67: PRINTI " He"
?CND65: PRINTI " continued down the tunnel, coming eventually to a ladder carved into the earth and rising into a hollowed-out tree stump!"
ZERO? SUBGROUP-MODE /?CCL70
PRINTI " The sound of a voice (or was it voices) could be heard just above, and Praxix eagerly pulled himself up the ladder."
MOVE WESTFLAKE-ROOT,PRAXIX
CALL2 SCENE,TAG-SEARCH
RSTACK
?CCL70: PRINTI " We raised ourselves out of the stump; we were back at our camp."
FSET? BITE-VICTIM,INCAPACITATED \?CCL73
ICALL2 MOVE-TO,BITE-FOREST
CRLF
CRLF
PRINTI "Praxix rushed over to "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI " and made a terrible discovery. "
ICALL1 BITE-VICTIM-DIES
ICALL CHANGE-TRAVEL-COMMAND,BITE-FOREST,PRAXIX-ROUTE-COMMAND,ENTER-TUNNEL-COMMAND
ICALL2 MOVE-TO,BITE-FOREST
RTRUE
?CCL73: CRLF
CRLF
PRINTI """As I suspected, this route leads only back to our camp,"" Praxix said. ""Come, let us see what lies at the other end of the tunnel."""
CRLF
CRLF
PRINTI "In a matter of moments, we had climbed back down into the tunnel, retracing our steps to our point of entry in the glade. "
ICALL MOVE-TO,WARREN,STR?424
RTRUE
?CCL50: EQUAL? ACTION,FEEL-AROUND-COMMAND \FALSE
ICALL2 REMOVE-PARTY-COMMAND,FEEL-AROUND-COMMAND
FSET HERE,DEAD
PRINTI "Though "
ZERO? SUBGROUP-MODE /?CCL78
PRINTC 104
JUMP ?CND76
?CCL78: PRINTC 119
?CND76: PRINTI "e could not see, it was clear by feeling around that "
ZERO? SUBGROUP-MODE /?CCL81
PRINTI "he was"
JUMP ?CND79
?CCL81: PRINTI "we were"
?CND79: PRINTI " in some sort of tunnel. Without any light, movement would be painfully slow and uncomfortable."
RTRUE
.FUNCT ANONF-107:ANY:0:0
EQUAL? ACTION,SCENE-START-COMMAND \?CCL3
ICALL1 DIVIDER
ICALL2 GRAPHIC,G-FOREST
FSET? BERGON,IN-PARTY \?CCL6
FSET? BERGON,TRAPPED /?CCL6
PRINTC 34
ICALL1 WPRINTTAG
PRINTI ", you search the forest to the north,"" Bergon said, and that was what I did"
JUMP ?CND4
?CCL6: PRINTI "I headed out into the forest that lay to the north"
?CND4: PRINTI ", though I was filled with apprehension at the thought of exploring on my own."
CRLF
CRLF
PRINTI "But the forest was beautiful, and the air cool and fresh. Up ahead, the sound of flowing water could be heard ever more clearly, and I followed that sound until I came upon a small stream, which took off at an angle to my path."
ICALL ADD-TRAVEL-COMMAND,PRAXIX,TELL-LEGEND-COMMAND
ICALL1 MAKE-TAG-SUBGROUP
CALL2 MOVE-TO,ELFWOOD-2
RSTACK
?CCL3: EQUAL? ACTION,SCENE-END-COMMAND \FALSE
FSET? WOOD-ELF,SEEN \?CCL13
FSET? ELFSTREAM-1,SOLVED /?CCL13
CALL2 HINT,HINT-ELF-SPEAK
RSTACK
?CCL13: FSET? ELFSTREAM-1,SEEN /?CCL17
IN? WESTFLAKE-ROOT,PRAXIX \?CCL17
CALL2 HINT,HINT-BITE-FOREST
RSTACK
?CCL17: FSET? WOOD-ELF,SEEN /FALSE
IN? WESTFLAKE-ROOT,PRAXIX \FALSE
CALL2 HINT,HINT-WOOD-ELF
RSTACK
.FUNCT SEARCH-END:ANY:0:0,TMP
ICALL2 MOVE-TO-NO-GFX,BITE-FOREST
ICALL1 CLEAR-SUBGROUP
ICALL1 RESTORE-TAG-COMMANDS
ICALL SCENE,FALSE-VALUE,FALSE-VALUE
CRLF
CRLF
IN? WOOD-ELF,HERE \?CCL3
PRINTI "We arrived a short time later; "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI " appeared lifeless, though he was breathing slowly. The Wood Elf strode to his side, placed her spindled arm on his wound, and entered a trance-like state."
CRLF
CRLF
ICALL GRAPHIC,G-NIGHTFANG,G-ELF-HEALS-BITE,BOTTOM-LEFT
IN? WESTFLAKE-ROOT,PRAXIX \?CCL6
ICALL1 PRAXIX-STUMP-APPEARANCE
JUMP ?CND4
?CCL6: PRINTI "Praxix returned, empty-handed, and started toward "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI ". After just a few steps, he "
?CND4: PRINTI "stopped, startled by the sight of my new friend."
CRLF
CRLF
PRINTI """You have done well, "
ICALL1 WPRINTTAG
PRINTI "! Very well indeed!"" I blushed, for it wasn't often this Wizard handed out compliments. ""There are but few Wood Elves left in this world, and lucky is the day we meet one!"""
CRLF
CRLF
PRINTI "We approached "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI " and watched in silence as the Wood Elf healed him with her touch. "
ICALL1 BITE-VICTIM-BITE-HEALED
JUMP ?CND1
?CCL3: IN? WESTFLAKE-ROOT,PRAXIX \?CCL8
ICALL GRAPHIC,G-NIGHTFANG,G-PRAXIX-HEALS-BITE,BOTTOM-LEFT
ICALL1 PRAXIX-STUMP-APPEARANCE
PRINTI "knelt at his side, binding the westflake root onto the wound. "
ICALL1 BITE-VICTIM-BITE-HEALED
JUMP ?CND1
?CCL8: ICALL2 GRAPHIC,G-NIGHTFANG
ICALL2 HINT,HINT-NIGHTFANG
PRINTI "Praxix and I arrived back at the same time, neither having found any westflake root. "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI " was motionless, eyes staring without seeing."
?CND1: SET 'TMP,ELF-HOME-COMMAND
IN? WOOD-ELF,HERE /?CND9
SET 'TMP,TAG-ROUTE-COMMAND
?CND9: FSET? BERGON,TRAPPED \?CCL13
ICALL TRAVEL-COMMANDS,HERE,BERGON-ROUTE-COMMAND,PRAXIX-ROUTE-COMMAND,TMP
JUMP ?CND11
?CCL13: ICALL TRAVEL-COMMANDS,HERE,PRAXIX-ROUTE-COMMAND,TMP
?CND11: FSET? BERGON,TRAPPED \?CCL16
CRLF
CRLF
FSET? BITE-VICTIM,BUSY \?CCL19
PRINTI "As if things were not bad enough, Bergon was missing. We waited until nearly sunset, and still he had not returned."
JUMP ?CND17
?CCL19: PRINTI "Surprisingly, it was Esher who first noticed Bergon's absence. We decided to wait, but by sunset, there was still no sign of him."
?CND17: CRLF
CRLF
PRINTI """It is not like Bergon to be late. I fear something has happened to him,"" Praxix said; he was tired now, and filled with concern."
JUMP ?CND14
?CCL16: FSET? BITE-VICTIM,BUSY \?CCL21
FSET? BERGON,IN-PARTY \?CCL21
CRLF
CRLF
FSET? BERGON-SEARCH,SEEN \?CND24
PRINTI "Bergon arrived a short time later; he, too, had failed to find the westflake root. "
?CND24: PRINTI "We stood over our friend, but no words were spoken; we had failed!"
JUMP ?CND14
?CCL21: FSET? BERGON,IN-PARTY \?CND14
FSET? BERGON-SEARCH,SEEN \?CND14
CRLF
CRLF
PRINTI "Bergon, who had missed all of the excitement, returned a short time later, and, relieved at "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI "'s condition, told of his adventures."
?CND14: FSET? ELFSTREAM-1,SEEN \?CCL31
IN? WOOD-ELF,HERE /?CCL31
CRLF
CRLF
PRINTI "Thinking that it "
FSET? BITE-VICTIM,INCAPACITATED \?CCL36
PRINTI "somehow might help"
JUMP ?CND34
?CCL36: FSET? BERGON,TRAPPED \?CCL38
PRINTI "might be helpful (though it didn't seem relevant to the problem of finding Bergon)"
JUMP ?CND34
?CCL38: PRINTI "might be important"
?CND34: PRINTI ", I told "
FSET? BERGON,TRAPPED /?PRD43
FSET? BERGON,IN-PARTY /?CCL41
?PRD43: FSET? BITE-VICTIM,INCAPACITATED \?CCL41
ICALL2 WPRINTD,PRAXIX
JUMP ?CND39
?CCL41: PRINTI "the others"
?CND39: PRINTI " about my adventure at the edge of the stream."
FSET? WOOD-ELF,SEEN \TRUE
PRINTI " Praxix was delighted! ""Wood Elves! Well, then! This is indeed our lucky day. Let us hope we shall be meeting them again!"""
RTRUE
?CCL31: IN? WOOD-ELF,HERE \TRUE
CRLF
CRLF
PRINTI "I thought this might be a good time for introductions, so I presented the Wood Elf to the others. ""I am happy to introduce..."" I started, but came up empty, and the Elf placed her hand on my shoulder. ""V'ren, of the House of G'lor,"" she said. ""And, if you wish, I shall take you to the Elf Home."""
CRLF
CRLF
PRINTI "We thanked V'ren for her gracious offer of help, but we had much to consider before we could commit to any decision. V'ren stood and waited as we discussed our options."
RTRUE
.FUNCT BITE-VICTIM-BITE-HEALED:ANY:0:0
ICALL UPDATE-MOVE,BITE-VICTIM-OBJECT,RANDOM-OBJECTS
FCLEAR BITE-VICTIM,INCAPACITATED
ICALL UPDATE-FCLEAR,BITE-FOREST,ADVISE
ICALL2 MAKE-UNBUSY,BITE-VICTIM
FCLEAR BITE-VICTIM-OBJECT,DONT-EXAMINE
PRINTI "It took a long while, though it was still light when "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI "'s eyes regained their sight and his body stirred. ""What are you all looking at?"" he said, blankly, and even Praxix' lips turned up into a smile."
EQUAL? BITE-VICTIM,ESHER \TRUE
CRLF
CRLF
PRINTI """We are looking at one very poor excuse for a physician,"" he said."
RTRUE
.FUNCT PRAXIX-STUMP-APPEARANCE:ANY:0:0
PRINTI "Just then, from out of nowhere, Praxix rose from the ground! I was mesmerized by the sight, and stood there, speechless. ""Don't just stand there!"" he shouted, ""Help an old man up!"""
CRLF
CRLF
PRINTI "Embarrassed, I helped him out of a hollowed-out stump that had been inconspicuously sitting nearby. But before I could ask him how he had gotten there, he rushed toward "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI ", then "
RTRUE
.FUNCT ANONF-108:ANY:0:0
EQUAL? ACTION,PROCEED-COMMAND \?CCL3
ICALL1 REMOVE-TRAVEL-COMMAND
FSET HERE,EXAMINED
PRINTI "The path descended into a deep ravine, and I was loath to follow it this near to twilight. Across the ravine, the forest was unnaturally dark, as though a black curtain had been drawn over it."
RTRUE
?CCL3: EQUAL? ACTION,STREAM-PATH-COMMAND \?CCL5
FSET? HERE,EXAMINED \?CCL8
PRINTI "Rather than giving up, I chose to follow the stream in search for the needed root."
JUMP ?CND6
?CCL8: PRINTI "Moving quickly and scanning the ground for any sign of westflake, I chose to follow the stream."
?CND6: CALL MOVE-TO,ELFSTREAM-1,STR?426
RSTACK
?CCL5: EQUAL? ACTION,RETURN-COMMAND \FALSE
PRINTI "Unable to find any westflake root, I returned to camp."
CALL1 SEARCH-END
RSTACK
.FUNCT MOVE-TO-NO-GFX:ANY:1:2,RM,STR
CALL MOVE-TO,RM,STR,FALSE-VALUE,TRUE-VALUE,FALSE-VALUE
RSTACK
.FUNCT ANONF-109:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL UPDATE-FSET,ACTION-OBJECT,DONT-EXAMINE
FSET WOOD-ELF,EXAMINED
FSET? WOOD-ELF,SEEN \?CCL6
PRINTI "Having recovered from the shock of that first look, I looked at this creature again and I began to feel her age and wisdom, and even sense a beauty that lay beneath her tree-like exterior."
RTRUE
?CCL6: PRINTI "The woman was slender, with long flowing hair. I could not see her face, yet some warm inner feeling was touched by her gentle grace."
RTRUE
.FUNCT ANONF-110:ANY:0:0
FSET HERE,SEEN
CALL GRAPHIC,G-WATERFALL-NO-ELF,G-WATERFALL,BOTTOM-RIGHT
RSTACK
.FUNCT ANONF-111:ANY:0:0
EQUAL? ACTION,TALK-TO-ELF-COMMAND \?CCL3
ICALL1 REMOVE-TRAVEL-COMMAND
PRINTI """I am pleased to meet you,"" I began, stumbling over the words. ""My friend is badly hurt..."""
CRLF
CRLF
PRINTI "But this creature that I assumed to be a Wood Elf appeared confused by my speech. I tried other, non-verbal means of communication, and was soon quite frustrated at my inability to communicate the desire that she come to the aid of "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI ", if indeed that was within her power. And then, just as I was about to return to our camp, she spoke in soft, lilting tones in a language that I presumed to be Elvish."
ICALL ADD-TRAVEL-COMMAND,HERE,SPEAK-ELVISH-COMMAND
FSET HERE,BLUE-MIX
RTRUE
?CCL3: EQUAL? ACTION,SPEAK-ELVISH-COMMAND \?CCL5
PRINTI "Well, what did I know of Elvish? But there was little else to do, so I gave it my best try...."
CRLF
CRLF
CALL2 READ-ELVISH,TAG
ZERO? STACK \TRUE
PRINTI "At least, I thought I would, but no sound came through my lips and at last, dejected, I raced back to camp, eager to tell the others of my discovery."
CALL1 SEARCH-END
RSTACK
?CCL5: EQUAL? ACTION,APPROACH-COMMAND \?CCL10
CALL QSET?,WOOD-ELF,SEEN
ZERO? STACK \?CCL13
PRINTI "I approached cautiously, hoping not to startle her. But as I neared, she sensed my presence, stood, and turned toward me...."
CRLF
CRLF
PRINTI "I gasped, stumbling backward onto the ground, and twisted my ankle. She was grotesque, her face leathery and brown, more like a gnarled tree than a person. She stretched her spindled arms toward me, and opened her eyes for the first time: clear, large, and fathomless."
ICALL2 GRAPHIC,G-ELF
ICALL REMOVE-TRAVEL-COMMAND,HERE,STAY-HIDDEN-COMMAND
CALL UPDATE-FCLEAR,WOOD-ELF,DONT-EXAMINE
RSTACK
?CCL13: PRINTI "As if under some hypnotic spell, I rose and hobbled toward this creature of the forest. Her eyes were kind and gentle, yet she backed off as I approached."
CALL CHANGE-TRAVEL-COMMAND,HERE,APPROACH-COMMAND,TALK-TO-ELF-COMMAND
RSTACK
?CCL10: EQUAL? ACTION,STAY-HIDDEN-COMMAND \?CCL15
CALL QSET?,WOOD-ELF,SCOUTED
ZERO? STACK \?CCL18
PRINTI "I waited there, mesmerized by the beauty of this forest dweller. After a few moments, two people came into view from further downstream but it was late in the afternoon, and the rays of the setting sun made it impossible to see them clearly. The woman motioned to the newcomers, who then returned to the forest."
RTRUE
?CCL18: PRINTI "Then the woman rose and followed the stream out of sight into the forest."
ICALL REMOVE-TRAVEL-COMMAND,HERE,APPROACH-COMMAND
CALL CHANGE-TRAVEL-COMMAND,HERE,STAY-HIDDEN-COMMAND,FOLLOW-COMMAND
RSTACK
?CCL15: EQUAL? ACTION,FOLLOW-COMMAND \?CCL20
PRINTI "I decided to follow the mysterious woman, but soon lost track of her as she sped along the course of the stream. It was now late, and I had no choice but to return to camp."
CALL1 SEARCH-END
RSTACK
?CCL20: EQUAL? ACTION,RETURN-COMMAND \FALSE
FSET? WOOD-ELF,SEEN \?CCL25
PRINTI "Though my ankle was hurt, I stumbled and crawled my way back to camp."
JUMP ?CND23
?CCL25: PRINTI "It was getting late, so I returned to camp with the intention of telling the others about these forest people."
?CND23: CALL1 SEARCH-END
RSTACK
.FUNCT ANONF-112:ANY:0:0
IN? WOOD-ELF,BITE-FOREST \?CCL3
CALL TRAVEL-COMMANDS,HERE,ELF-HOME-COMMAND
RSTACK
?CCL3: FSET? BITE-VICTIM,INCAPACITATED \?CTR4
FSET? BITE-VICTIM,DEAD \?CCL5
?CTR4: CALL TRAVEL-COMMANDS,HERE,PROCEED-COMMAND
RSTACK
?CCL5: CALL TRAVEL-COMMANDS,HERE,RETURN-COMMAND
RSTACK
.FUNCT ANONF-113:ANY:0:0
EQUAL? ACTION,ELF-HOME-COMMAND \?CCL3
PRINTI "We called out for V'ren, who quickly arrived at the side of the pool. "
CALL1 MOVE-TO-ELF-HOME
RSTACK
?CCL3: EQUAL? ACTION,PROCEED-COMMAND \?CCL5
PRINTI "The pool was refreshingly cool, and we drank from it contentedly."
FSET? ELFSTREAM-1,SEEN \?CND6
PRINTI " But none of the creatures I had seen before were here, and it soon became apparent that we had missed our opportunity of meeting them."
?CND6: ZERO? 2ND-PASS \?CCL10
CALL1 SKIP-BITE-FOREST
RSTACK
?CCL10: CRLF
CRLF
CALL2 N-DAY-TREK,1
RSTACK
?CCL5: EQUAL? ACTION,RETURN-COMMAND \FALSE
PRINTI "We returned to our camp at nightfall, full of despair and hopelessness. Praxix went over to where "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI " lay."
ICALL1 BITE-VICTIM-DIES
CALL2 MOVE-TO,BITE-FOREST
RSTACK
.FUNCT BITE-VICTIM-DIES:ANY:0:0
ICALL2 HINT,HINT-NIGHTFANG
PRINTI """We are too late!"" he said softly. ""Too late!"""
CRLF
CRLF
PRINTI "I was barely able to hold back tears as we lifted our fallen friend and placed him in the cold earth. Praxix incanted an ancient and sorrowful song as we covered him with dirt and placed a burial cairn over the spot."
FSET? BERGON,TRAPPED /?CND1
PRINTI " Exhausted, we fell into a deep sleep."
?CND1: ICALL1 NEXT-DAY
FCLEAR BITE-VICTIM,INCAPACITATED
FSET BITE-VICTIM,DEAD
CALL2 UPDATE-MOVE,BITE-VICTIM-OBJECT
RSTACK
.FUNCT ANONF-114:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL1 UPDATE-MOVE
PRINTI """Look,"" "
ICALL2 WPRINTD,ACTOR
PRINTI " said, pointing out the Elves that were everywhere - climbing down trees, grabbing axes and crude buckets; soon, all would be heading north to fight the advancing blaze."
RTRUE
.FUNCT ANONF-115:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL1 UPDATE-MOVE
ICALL2 WPRINTD,ACTOR
PRINTI " pointed toward the north, where the sky was filled with a dark, billowing smoke. Every few moments, a flash of red flame could be seen lapping at the tree tops in the distance."
RTRUE
.FUNCT ANONF-116:ANY:0:0
ICALL2 GRAPHIC,G-ELF-HOME
FSET? FOREST-FIRE,SEEN /?CCL3
CRLF
CRLF
PRINTI "We talked among ourselves, marvelling at this ancient place, when three Elves rushed into the clearing, and their cries filled our ears. ""Fire!"" they said. ""The great flame approaches!"""
CRLF
CRLF
PRINTI "Across the way, an older Elf clambered down from his tree-hammock. ""Awake! Awake!"" he cried, and dozens of Elves were soon marching to the north, where smoke could be seen in the treetops."
FSET? ELFWOOD-2,EXAMINED \TRUE
CRLF
CRLF
PRINTI """That would explain the black forest I observed while searching for the westflake root!"" I exclaimed."
CRLF
CRLF
PRINTI """The fire moves quickly, then,"" Praxix said. ""We are all in danger here!"""
RTRUE
?CCL3: ICALL REMOVE-TRAVEL-COMMAND,HERE,FOLLOW-ELVES-COMMAND
CALL UPDATE-FCLEAR,HERE,ADVISE
RSTACK
.FUNCT ANONF-117:ANY:0:0
EQUAL? ACTION,GET-ADVICE-COMMAND \?CCL3
ICALL UPDATE-FCLEAR,HERE,ADVISE
PRINTI "We talked among ourselves, but could reach no consensus."
FSET? BITE-VICTIM,IN-PARTY \TRUE
PRINTC 32
ICALL2 WPRINTD,BITE-VICTIM
PRINTI " felt strongly that we must help the Elves, if it were at all possible. Praxix was unsure; he could sense how near we were to the eastern mountains and Astrix, and was wary of the delay."
RTRUE
?CCL3: EQUAL? ACTION,FOLLOW-ELVES-COMMAND \?CCL7
FSET? BITE-VICTIM,IN-PARTY \?CND8
ICALL2 WPRINTD,BITE-VICTIM
PRINTI " reacted quickly. ""We must help these Elves, if it is at all within our power to do so."""
CRLF
CRLF
?CND8: CALL MOVE-TO,FOREST-FIRE,STR?434
RSTACK
?CCL7: EQUAL? ACTION,PROCEED-COMMAND \?CCL11
FSET? BERGON,DEAD \?CCL14
ICALL2 HINT,HINT-TANGLETREES
PRINTI "We prepared to leave the forest, but were soon accosted by V'ren and two other Elves. ""I have tragic news for you. One of our scouts has located your friend; he had been strangled by the Tangle Trees into whose forest he had wandered. We have buried him here, among our bravest brethren. I am sorry."""
CRLF
CRLF
PRINTI "This was tragic news indeed, and we were greatly saddened by the loss of our leader. ""I feared this when he did not return last evening,"" Praxix said, ""He shall be sorely missed."""
CRLF
CRLF
JUMP ?CND12
?CCL14: PRINTI "Unsure of how to help, we decided to continue with our quest. "
?CND12: PRINTI "With V'ren guiding us, we soon came to the eastern edge of the forest, at the shore of a great river. ""Be well,"" V'ren said. ""I must return to help my people."" And with that, she turned and ran back into the forest."
IN? ELF-STONE,INVENTORY /?CND15
ICALL2 HINT,HINT-ELVES
?CND15: ZERO? 2ND-PASS /?CCL19
CRLF
CRLF
ICALL2 N-DAY-TREK,1
RTRUE
?CCL19: CALL2 MOVE-TO,RIVER-2
RSTACK
?CCL11: EQUAL? ACTION,SCOUT-COMMAND \FALSE
ICALL UPDATE-FSET,HERE,DONT-SCOUT
FSET HERE,SCOUTED
ICALL2 WPRINTD,ACTOR
PRINTI " rushed ahead with the Elves, and soon returned. ""It is a great fire, borne by the north wind,"" he reported. ""It won't be long until we are in danger here!"""
RTRUE
.FUNCT ANONF-118:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL1 UPDATE-MOVE
PRINTI "A wall of flame stood before us, consuming everything in its path. As if part of a conspiracy, the wind blew harder now, pushing the blaze toward the Elves' home a few mere miles downwind."
EQUAL? ACTOR,PRAXIX \?CCL6
CRLF
CRLF
PRINTI """These Elves are in great danger,"" Praxix said. ""We must do something now or leave, lest we be destroyed with them."""
RTRUE
?CCL6: CRLF
CRLF
PRINTI """We must retreat from here,"" "
ICALL2 WPRINTD,ACTOR
PRINTI " said. ""It is not safe!"""
RTRUE
.FUNCT ANONF-119:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL1 UPDATE-MOVE
PRINTI "Hundreds of Elves were here, trying desperately to fight the onrushing fire with buckets of water. Others were clearing brush and opening a wide trench, hoping to stop the flames at the trench line."
CRLF
CRLF
FSET? ESHER,IN-PARTY \TRUE
PRINTI """They'll never hold back the fire,"" Esher said, and it was hard to disagree. Praxix stood there in silent thought, eyes fixed on the approaching flames."
RTRUE
.FUNCT ANONF-120:ANY:0:0,TMP
?FCN: EQUAL? ACTION,RETURN-COMMAND \?CCL3
CALL MOVE-TO,ELF-HOME,STR?435
RSTACK
?CCL3: EQUAL? ACTION,CAST-COMMAND \FALSE
EQUAL? ACTION-OBJECT,RAIN-SPELL \?CCL8
GET ESSENCE-TBL,WATEROFF >TMP
LESS? TMP,FIRE-RAIN-REQUIRED \?CCL11
PRINTI """I don't believe I have enough,"" Praxix said, as he took all of his remaining water essence and cast it into the sky. Clouds gathered and a "
EQUAL? TMP,3,4 \?CCL14
PRINTI "good soaking rain"
JUMP ?CND12
?CCL14: EQUAL? TMP,2 \?CCL16
PRINTI "few showers soon"
JUMP ?CND12
?CCL16: PRINTI "sprinkle of rain"
?CND12: FSET FOREST-FIRE,TRIED
PRINTI " fell, but it was quickly evident that Praxix' assessment was accurate. The rains were too little, too late. The fires had been slowed, but not nearly enough."
CRLF
CRLF
ICALL2 UPDATE-REMOVE,ESSENCE-WATER
PUT ESSENCE-TBL,WATEROFF,0
SET 'ACTION,RETURN-COMMAND
JUMP ?FCN
?CCL11: ICALL2 GRAPHIC,G-FIRE-RAINS
SUB TMP,FIRE-RAIN-REQUIRED
PUT ESSENCE-TBL,WATEROFF,STACK
EQUAL? TMP,FIRE-RAIN-REQUIRED \?CND17
ICALL2 UPDATE-REMOVE,ESSENCE-WATER
?CND17: PRINTI "Seeing little choice, Praxix removed "
EQUAL? TMP,FIRE-RAIN-REQUIRED /?CND19
PRINTI "almost "
?CND19: PRINTI "all of his stock of water essence and cast it into the sky. The sky was obscured in smoke, yet the approaching storm could be felt in the air. Lightning danced through the clouds, and the roar of thunder soon filled the sky. All at once, the clouds burst, dropping a drenching rain on us. So violent was it, that many Elves were carried off by the rushing water. It was as though the rains would never end, and Praxix appeared somewhat embarrassed."
CRLF
CRLF
PRINTI """Perhaps I did not need so much,"" he said, ""but these things are quite unpredictable; one must take into account such variables as the winds, the temperature, the time of year, the altitude..."""
CRLF
CRLF
FSET? ESHER,IN-PARTY \?CCL23
PRINTI """The expertise of the Wizard who cast it?"" Esher added."
CRLF
CRLF
PRINTI """Harumph!"" was Praxix' reply, and as if to second his rejoinder, "
JUMP ?CND21
?CCL23: PRINTI "But happily "
?CND21: PRINTI "the rains suddenly stopped, and the sky partially cleared. The fire had been extinguished!"
CRLF
CRLF
PRINTI "There was much cleaning up to do, and we each did what we could to help. And then, tired and dirty, we returned to the Elf Home where we bathed, and went off to sleep."
CRLF
CRLF
ICALL1 NEXT-DAY
REMOVE HYE-RIVER
ICALL2 MOVE-TO,ELF-HOME-2
RTRUE
?CCL8: EQUAL? ACTION-OBJECT,LIGHTNING-SPELL /?PRD27
EQUAL? ACTION-OBJECT,FIRE-SPELL \?CCL25
?PRD27: EQUAL? ACTION-PRSI,FOREST-FIRE-FIRE \?CCL25
REMOVE HYE-FIRE
EQUAL? ACTION-OBJECT,LIGHTNING-SPELL \?CND30
FSET LIGHTNING-SPELL,SEEN
?CND30: PRINTI "In the spirit of fairness, I will call it absentmindedness, but Praxix now attempted to fight fire with fire as he cast his """
ICALL2 WPRINTD,ACTION-OBJECT
PRINTI """ spell at the onrushing flames. Fortunately, he was unobserved by the others and his spell did little damage, but I began to have my doubts as to the stability of our wizardly friend."
JUMP ?CND6
?CCL25: EQUAL? ACTION-OBJECT,TREMOR-SPELL \?CCL33
PRINTI "Praxix took some earth essence and flung it at the earth before him. The earth shook, and the ground opened up before us. But this small rift would hold the fire only a short time."
CRLF
CRLF
PRINT PRAXIX-HASNT-GOT-ENOUGH
JUMP ?CND6
?CCL33: EQUAL? ACTION-OBJECT,WIND-SPELL \?CCL35
PRINTI "Praxix took some air essence from his pouch and flung it at the approaching flames. A new, southern wind fought with the cold north wind, and the Elves were cheered by the slowing progress of the fire. But Praxix' magical wind departed within the hour, and the fire continued its relentless approach."
CRLF
CRLF
PRINT PRAXIX-HASNT-GOT-ENOUGH
JUMP ?CND6
?CCL35: ICALL1 UNUSE-ESSENCES
PRINTI "Praxix now thought to cast his """
ICALL2 WPRINTD,ACTION-OBJECT
PRINTI """ spell, but it didn't occur to him how it could possibly help."
?CND6: CALL2 CHECK-ESSENCES,RAIN-SPELL
ZERO? STACK \TRUE
CALL QSET?,HERE,DEAD
ZERO? STACK \TRUE
CRLF
CRLF
PRINTI """What I need is water essence,"" the Wizard said mournfully, ""Without it, I fear we are of no use to the Elves."""
RTRUE
.FUNCT ANONF-121:ANY:0:0
PRINTI "When we awoke the next morning, a great feast had been prepared for us - breads, berries, fruits, and many foods we had never seen before. After eating heartily, the food was taken away, and we were led to the Elf leader, who sat upon a tall wooden throne."
CRLF
CRLF
PRINTI """I am N'dar,"" he began, ""and I thank you on behalf of the Elves. We have not seen the last of these scourges from the north, and I am keenly aware that your quest is our quest also."""
CRLF
CRLF
MOVE ELF-STONE,INVENTORY
FSET? BERGON,DEAD \?CND1
ICALL2 HINT,HINT-TANGLETREES
PRINTI """This is a day for rejoicing, but I am afraid that I have tragic news for you. One of our scouts has located your friend; he had been strangled by the Snaketrees into whose forest he had wandered. We have buried him here, among our bravest brethren. I am indeed sorry."""
CRLF
CRLF
?CND1: PRINTI "Then, he stood and took a green amulet from around his neck. ""This is our most precious possession. It is said that it held great power once; perhaps, it shall again."" And, so saying, he called Praxix forward and placed it around the Wizard's neck."
CRLF
CRLF
PRINTI "Thanking N'dar, we prepared to leave. V'ren was saddened, but said nothing as she led us east through the forest and to the edge of a great river."
IN? ELF-STONE,INVENTORY /?CND3
ICALL2 HINT,HINT-ELVES
?CND3: ZERO? 2ND-PASS /?CND5
PRINTC 32
ICALL2 N-DAY-TREK,1
RTRUE
?CND5: CRLF
CRLF
PRINTI """I must leave now,"" she said, and turning her back, she ran into the forest."
CALL2 MOVE-TO,RIVER-2
RSTACK
.FUNCT ANONF-122:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL1 CLEAR-EXBIT
CALL QSET?,WARREN-WALLS,EXAMINED
ZERO? STACK \?CND4
PRINTI "The walls here were slimy to the touch, and covered in green mosses and lichens. Life flourished here, though it was not the sort of life that was happily endured: spiders, slugs, toads, worms, lizards, and maggots. But not all of us were disheartened."
CRLF
CRLF
?CND4: EQUAL? ACTOR,PRAXIX \?CCL8
PRINTI """If I were a maker of magic potions,"" Praxix said, wistfully, ""I should have a field day here!"""
FSET? ESHER,IN-PARTY \TRUE
CRLF
CRLF
PRINTI "Esher shook his head in disbelief. ""Yes,"" he said with indelicate sarcasm, ""A lovely spot for a party. Now, why don't you make yourself useful and get us out of here? Damned Wizard..."" His voice trailed off to a whining whisper."
RTRUE
?CCL8: FSET WARREN-WALLS,SOLVED
PRINTI """Hawkbane,"" Esher said, holding up a phosphorescent root that he had discovered growing in the walls of this warren, or whatever it was."
CRLF
CRLF
PRINTI """Hawkbane?"" Praxix echoed, unaware of any such thing."
CRLF
CRLF
PRINTI """Yes, a remarkable find,"" he replied. ""A very rare medicinal herb, not seen much where we come from. It's the most potent inhibitor of allergic reactions that exists, but its rarity makes it virtually unknown outside of professional circles."" Getting down on his knees, he pulled a few more of the faintly glowing roots and placed them inside his cloak."
RTRUE
.FUNCT ANONF-123:ANY:0:0,TMP
?FCN: EQUAL? ACTION,DROP-COMMAND \?CCL3
ICALL UPDATE-FSET,HERE,DONT-DROP
PRINTI "I thought to drop something as an aid in mapping this labyrinth, but realized we had too few items to spare in case we got lost."
RTRUE
?CCL3: EQUAL? ACTION,CAST-COMMAND \?CCL5
EQUAL? ACTION-OBJECT,LIGHT-SPELL \?CCL8
EQUAL? ACTION-PRSI,STAFF \?CCL8
FSET? HERE,BLUE-MIX /?CCL8
GETP HERE,P?TEMP >TMP
MOD TMP,4
ZERO? STACK /?CTR13
MOD TMP,3
ZERO? STACK \?CCL14
?CTR13: PRINTI "Preferring to see where we were going, Praxix pulled more fire and earth essences from his pouch and applied them to his staff, causing it to glow more brightly. ""We had best leave this water-logged prison soon, for I shan't be able to do this often!"" he said."
JUMP ?CND12
?CCL14: MOD TMP,5
ZERO? STACK \?CCL18
FSET HERE,BLUE-MIX
PRINTI "Praxix fumbled for some fire and earth essence, which he applied to the end of his staff. Soon it was glowing again with a pale red glow."
JUMP ?CND12
?CCL18: GRTR? WARREN-COUNT,12 \?CCL20
PRINTI """This,"" Praxix said petulantly, ""is ridiculous. I refuse to use more precious essences on this festering sore of a tunnel!"" He put his pouch away, and stood there, fuming."
RTRUE
?CCL20: PRINTI "Fearing that his staff's light was fading in the dampness, Praxix applied some additional fire and earth essence, making it brighten somewhat."
?CND12: PUTP HERE,P?TEMP,0
RTRUE
?CCL8: EQUAL? ACTION-OBJECT,FAR-VISION-SPELL \?CCL22
ICALL2 CAST-FAR-VISION,FALSE-VALUE
PRINTI " But little was illuminated. "
FSET? HERE,EXAMINED \?CTR24
FSET? ESHER,IN-PARTY /?CCL25
?CTR24: PRINTI """I fear we shall have little help in getting ourselves out of this maze!"" he said."
RTRUE
?CCL25: PRINTI """I think that should put your fears to rest, Esher,"" he said."
CRLF
CRLF
PRINTI """Not really. It gives rise to new ones,"" he replied, leading me to wonder whether Esher in fact had a sense of humor after all."
RTRUE
?CCL22: EQUAL? ACTION-OBJECT,TREMOR-SPELL \FALSE
CALL QSET?,HERE,ENCHANTED
ZERO? STACK \?CCL32
PRINTI "Thinking perhaps that a good jolt would lead us back into the forest, Praxix cast his tremor spell. The results were not spectacular; I was covered in a mossy slime, and Bergon's head received a visit from a pile of hard-packed mud."
CRLF
CRLF
PRINTI """Well, well, yes,"" he said proudly. ""Just a little more tremor and I'm quite certain we'll be back above ground."""
CRLF
CRLF
PRINTI """Or buried alive,"" I replied, thinking not only for my safety but for that of our belongings."
RTRUE
?CCL32: PRINTI """Well, here goes,"" Praxix said as he cast yet another tremor spell. The effect was certainly more pronounced than the last time, and, indeed, the tunnel split apart with such force that we were thrown from our feet and nearly buried in the mud, moss, and slime. But we had survived, and our possessions all appeared to be in place. Sunlight streamed in from above, and we were quickly back on our feet and ready to clamber up and out of this underground maze of tunnels."
IN? WEBBA-MAP,INVENTORY \?CND33
FSET WEBBA-MAP,INCAPACITATED
?CND33: FSET HERE,USED-UP
SET 'ACTION,UP-COMMAND
JUMP ?FCN
?CCL5: EQUAL? ACTION,GET-ADVICE-COMMAND \?CCL36
ICALL UPDATE-FCLEAR,HERE,ADVISE
ICALL2 WPRINTD,ACTOR
PRINTI " looked to each of us, but none had any good ideas on how to escape this soggy underground nest of twisting passages."
CRLF
CRLF
PRINTI """Then we had best continue,"" Bergon said, ""There must be an exit somewhere!"" We were beginning to have our doubts."
RTRUE
?CCL36: EQUAL? ACTION,PROCEED-COMMAND /?CTR37
EQUAL? ACTION,BACK-COMMAND /?CTR37
EQUAL? ACTION,LEFT-COMMAND /?CTR37
EQUAL? ACTION,RIGHT-COMMAND \?CCL38
?CTR37: GETP HERE,P?TEMP
ADD STACK,1 >TMP
PUTP HERE,P?TEMP,TMP
EQUAL? TMP,1 \?CCL45
EQUAL? ACTION,BACK-COMMAND \?CCL45
PRINTI "Hoping to avoid getting lost in what appeared to be an underground labyrinth, we turned back and were surprised to find two passages behind us, one leading left and the other right."
CRLF
CRLF
CALL QSET?,HERE,DEAD
ZERO? STACK \?CCL50
PRINT OH-DEAR-MAZE
JUMP ?CND48
?CCL50: PRINT OH-DEAR-MAZE-2
?CND48: CALL TRAVEL-COMMANDS,HERE,LEFT-COMMAND,RIGHT-COMMAND,UP-COMMAND
RSTACK
?CCL45: ICALL1 COBBLE-WARREN-DESC
EQUAL? TMP,1 \?CCL53
CALL QSET?,HERE,DEAD
ZERO? STACK \?CCL56
CRLF
CRLF
PRINT OH-DEAR-MAZE
JUMP ?CND51
?CCL56: CRLF
CRLF
PRINT OH-DEAR-MAZE-2
JUMP ?CND51
?CCL53: MOD TMP,3
ZERO? STACK \?CCL58
LESS? WARREN-COUNT,5 \?CCL61
CRLF
CRLF
PRINTI """Blast the dampness,"" growled Praxix, as his staff started growing dim. ""Never in my long years have I seen this! Soon we shall be growing moss!"""
CRLF
CRLF
PRINTI "But then, his anger turned to some measure of excitement as he discovered some small stones containing fire essence. ""Just a moment, if you will,"" he implored, as he crushed the stones and placed the resulting small pile of essence into his pouch. ""Given what the humidity here is doing to my glow spell, we shall be glad to have found this!"""
ICALL FIND-ESSENCE,ESSENCE-FIRE,2
JUMP ?CND51
?CCL61: CRLF
CRLF
PRINTI """Not again!"" Praxix said, wearily, as his staff again started to grow dim from the extreme humidity. ""Toads will be soon be leaping from our clothes if we don't find our way out of here."""
JUMP ?CND51
?CCL58: MOD TMP,4
ZERO? STACK \?CCL63
CRLF
CRLF
PRINTI "Praxix' staff glowed with an ever fainter light; soon, it would be impossible to see the way before us."
?CND51: CALL TRAVEL-COMMANDS,HERE,LEFT-COMMAND,RIGHT-COMMAND,BACK-COMMAND,UP-COMMAND
RSTACK
?CCL63: MOD TMP,5
ZERO? STACK \?CND51
ICALL2 GRAPHIC,G-WARREN-LIGHT
FCLEAR PRAXIX,LIT
CRLF
CRLF
PRINTI "Just then, Praxix' staff went out, and the tunnel went dark. Dark, that is, except for the pale light of day faintly peeking its way through the cracks in a hole just above us."
CRLF
CRLF
PRINTI """Well, I'll be!"" said Praxix, with a smile. ""It seems that sometimes, darkness is the best light to see by!"""
ICALL UPDATE-FSET,HERE,DONT-SCOUT
ICALL UPDATE-FCLEAR,HERE,ADVISE
ICALL TRAVEL-COMMANDS,HERE,UP-COMMAND
RTRUE
?CCL38: EQUAL? ACTION,SCOUT-COMMAND \?CCL66
ICALL UPDATE-FSET,HERE,DONT-SCOUT
FSET HERE,SCOUTED
PRINTI "We thought to send "
ICALL2 WPRINTD,ACTOR
PRINTI " ahead, but were fearful of getting lost, so we decided to stay together until we could find a way out."
RTRUE
?CCL66: EQUAL? ACTION,UP-COMMAND \FALSE
FSET? HERE,USED-UP /?CTR70
FSET? PRAXIX,LIT /?CCL71
MOD TMP,5
ZERO? STACK \?CCL71
?CTR70: IN? WOOD-ELF,BITE-FOREST \?CND76
ICALL TRAVEL-COMMANDS,ELFSTREAM,ELF-HOME-COMMAND
?CND76: PRINTI "With an exit in sight, we happily climbed out of the warren "
CALL1 MOVE-TO-ELFSTREAM
RSTACK
?CCL71: ICALL2 REMOVE-PARTY-COMMAND,UP-COMMAND
PRINTI "Hoping to find some way out, we tried feeling our way around the top of the tunnel, but the thick growth above us made this all but impossible. There might be a way out up there, but it was unlikely we were going to find it."
RTRUE
.FUNCT MOVE-TO-ELFSTREAM:ANY:0:0
FSET? ELFSTREAM-1,SEEN \?CCL3
PRINTI "and found ourselves alongside the pool and waterfall where I had first seen the Wood Elf."
JUMP ?CND1
?CCL3: PRINTI " at a place where a gently flowing stream cascades over a small waterfall and into a shallow pool."
?CND1: CALL2 MOVE-TO,ELFSTREAM
RSTACK
.FUNCT TELL-WARREN-DIR:ANY:0:0
EQUAL? ACTION,LEFT-COMMAND \?CCL3
PRINTI "left path"
RTRUE
?CCL3: EQUAL? ACTION,RIGHT-COMMAND \?CCL5
PRINTI "path to the right"
RTRUE
?CCL5: EQUAL? ACTION,PROCEED-COMMAND \?CCL7
PRINTI "path before us"
RTRUE
?CCL7: PRINTI "path behind us"
RTRUE
.FUNCT COBBLE-WARREN-DESC:ANY:0:0,TMP
GETP HERE,P?TEMP >TMP
INC 'WARREN-COUNT
GRTR? TMP,1 \?CCL3
RANDOM 100
LESS? 50,STACK /?CCL3
CALL2 PICK-ONE,WARREN-TBL-1
PRINT STACK
PRINTI " the "
ICALL1 TELL-WARREN-DIR
PRINTI ", we went a short way before coming to another junction."
JUMP ?CND1
?CCL3: MOD TMP,5
EQUAL? STACK,1 /?CCL7
PRINTI "This time, we went down the "
ICALL1 TELL-WARREN-DIR
PRINTI ", but "
CALL2 PICK-ONE,WARREN-TBL-2
PRINT STACK
JUMP ?CND1
?CCL7: PRINTI "I had the unpleasant feeling that it little mattered, but we started along the "
ICALL1 TELL-WARREN-DIR
PRINTI " and soon came to a similar spot."
EQUAL? TMP,1 \?CND1
CRLF
CRLF
PRINTI "Sure enough, it now appeared that similar passages were leading off in all directions."
?CND1: EQUAL? WARREN-COUNT,2 \FALSE
GETP PRISON,P?TEMP
GRTR? STACK,1 \FALSE
FSET HERE,EXAMINED
FSET? ESHER,IN-PARTY \?CCL17
CRLF
CRLF
PRINTI "Esher, who had been unusually silent, said ""I have the strange feeling I've been here before,"" no doubt referring to the Dwarves' prison. Then, putting two and two together and achieving five, he added, ""We have gone nowhere!"""
CRLF
CRLF
PRINTI "Praxix corrected him, though it wasn't easy."
JUMP ?CND15
?CCL17: CRLF
CRLF
PRINTI "I offered the suggestion that our situation seemed familiar, thinking of the Dwarves' prison, but Praxix disagreed."
?CND15: PRINTI " ""I have been looking carefully at these passages, and I believe they are not the same. If you wish, we can try using the flare enchantment, but I already know the result."""
RTRUE
.FUNCT DIVIDER:ANY:0:1,NUM,COL,Y,STARWID,SCRWID,CURX
ASSIGNED? 'NUM /?CND1
SET 'NUM,4
?CND1: SET 'CURX,1
CRLF
CRLF
CURGET CURGET-TABLE
GET CURGET-TABLE,0 >Y
CALL2 TEXT-WIDTH,STR?449 >STARWID
SUB SCREEN-WIDTH,TEXT-WINDOW-LEFT
MUL STACK,CHRH >SCRWID
SUB NUM,1
MUL STACK,STARWID
SUB SCRWID,STACK
DIV STACK,NUM >COL
ADD 1,COL >CURX
?PRG3: DLESS? 'NUM,1 /?REP4
CURSET Y,CURX
PRINTC 42
ADD CURX,COL
ADD STACK,STARWID >CURX
JUMP ?PRG3
?REP4: CRLF
CRLF
RTRUE
.FUNCT PARSE-ELVISH:ANY:0:0,WDS,W1,W2
GETB E-LEXV,1 >WDS
GET E-LEXV,1 >W1
GET E-LEXV,3 >W2
SET 'SPOKE-ELVISH,TRUE-VALUE
PRINTC 34
PRINTT E-TEMP,E-TEMP-LEN
PRINTI ","" I said in my best imitation of an Elvish accent. "
GRTR? WDS,2 \?CCL3
PRINTI "But the Elf appeared even more bewildered, and it occurred to me that I should speak only a few words at a time to make myself more clearly understood."
RTRUE
?CCL3: EQUAL? W2,W?LA \?CCL5
ZERO? FOO-LA-FLAG \?CCL5
SET 'FOO-LA-FLAG,TRUE-VALUE
PRINTI "The Elf appeared to understand, and regarded me intently"
EQUAL? W1,W?TAG /?CND8
ZERO? TAG-NAME-LENGTH \?CND8
FSET WOOD-ELF,USED-UP
PRINTI ", though with evident suspicion"
?CND8: PRINTI ", as if waiting for me to say more."
RTRUE
?CCL5: EQUAL? W1,W?VALEN \?CCL13
EQUAL? W2,W?BRAN \?CCL13
ZERO? VALEN-BRAN-FLAG \?CCL13
SET 'VALEN-BRAN-FLAG,TRUE-VALUE
PRINTI "It was clear that the Elf understood the words I had spoken, but she did not respond, except, perhaps, with a quizzical look."
RTRUE
?CCL13: EQUAL? W?BRAN,W1,W2 \?CCL18
EQUAL? W?AGRITH,W1,W2 \?CCL18
EQUAL? W1,W2 /?CCL18
PRINTI "The Elf paused for a moment, then smiled. You can imagine my surprise when she spoke to me in my own tongue."
CRLF
CRLF
PRINTI """Do not be so surprised,"" she said. ""There are many enemies abroad on our lands, and many would appear to be friends. Some, indeed, speak our tongue to deceive us. "
FSET? WOOD-ELF,USED-UP \?CCL24
PRINTI "I do not know why you have given a false name, b"
JUMP ?CND22
?CCL24: PRINTC 66
?CND22: PRINTI "ut it is plain that you have met Agrith, and he has always been like kin to the Elves. But more of this later. We had best look after your friend. I believe I can help if you will take me to him."""
CRLF
CRLF
ICALL UPDATE-MOVE,WOOD-ELF,BITE-FOREST
FSET WOOD-ELF,DONT-EXAMINE
FSET ELFSTREAM-1,SOLVED
PRINTI "With little time to lose, we sped through the forest, finally reaching our camp at sunset."
CALL1 SEARCH-END
RSTACK
?CCL18: EQUAL? W1,W?BRAN \?CCL26
ZERO? BRAN-FOO-FLAG \?CCL26
SET 'BRAN-FOO-FLAG,TRUE-VALUE
PRINTI "I must have said something meaningful, for the Elf appeared to listen more intently to my words. Yet, she did not respond. Clearly, I was not saying anything she cared to hear."
RTRUE
?CCL26: PRINTI "The Elf looked at me with the utmost suspicion, then quickly leapt away through the trees and out of sight. Discouraged, I returned to our camp."
ICALL1 SEARCH-END
RTRUE
.ENDSEG
.SEGMENT "TANGLEWOOD"
.FUNCT ANONF-124:ANY:0:0
EQUAL? ACTION,SCENE-START-COMMAND \FALSE
ICALL2 MAKE-SUBGROUP,BERGON
ICALL CHANGE-TRAVEL-COMMAND,BERGON,GET-ADVICE-COMMAND,EXAMINE-COMMAND
CALL2 MOVE-TO,TANGLEWOOD-1
RSTACK
.FUNCT ANONF-125:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL1 UPDATE-MOVE
ICALL2 WPRINTD,ACTOR
PRINTI " stopped to admire the surrounding pine and alder. But up ahead, the forest appeared darker and more forebidding."
RTRUE
.FUNCT ANONF-126:ANY:0:0
MOVE HYE-TANGLE,HAVE-YOU-EVER
RTRUE
.FUNCT ANONF-127:ANY:0:0
EQUAL? ACTION,RETURN-COMMAND \?CCL3
ICALL REMOVE-TRAVEL-COMMAND,BITE-FOREST,BERGON-ROUTE-COMMAND
ICALL2 MOVE-TO,BITE-FOREST
FSET? BERGON,DEAD \?CCL6
PRINTI "Carrying Bergon's body on our shoulders,"
JUMP ?CND4
?CCL6: FSET? BERGON,TRAPPED \?CCL8
PRINTI "Unable to help Bergon, and with the snake-trees moving ever closer,"
JUMP ?CND4
?CCL8: PRINTI "Carrying Bergon on our shoulders,"
?CND4: PRINTI " we retreated to the safety of our camp."
FSET? BERGON,DEAD \?CCL11
ICALL2 HINT,HINT-TANGLETREES
CRLF
CRLF
PRINTI "We buried Bergon there, after a short ritual performed by Praxix."
RTRUE
?CCL11: FSET? BERGON,TRAPPED /?CCL13
FSET? BITE-VICTIM,INCAPACITATED \?CCL16
CRLF
CRLF
PRINTI "Bergon regained his strength quickly; he looked at "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI " and frowned. ""We must do something quickly, or he will die!"""
RTRUE
?CCL16: CRLF
CRLF
PRINTI "It had been a long and frightening day; the sun had set, and we fell into a deep and dreamless sleep."
CALL1 NEXT-DAY
RSTACK
?CCL13: FSET BERGON,DEAD
RTRUE
?CCL3: EQUAL? ACTION,CAST-COMMAND \?CCL18
EQUAL? ACTION-OBJECT,LEVITATE-SPELL \?CCL18
EQUAL? ACTION-PRSI,BERGON-OBJECT \?CCL18
PRINTI "Praxix tried using his spell of elevation, but the trees' grip was too strong."
RTRUE
?CCL18: EQUAL? ACTION,CAST-COMMAND \?CCL23
EQUAL? ACTION-OBJECT,FIRE-SPELL \?CCL23
ICALL1 UNUSE-ESSENCES
PRINTI "Praxix started to reach for his fire and earth essence, but he stopped himself. ""Not the best place for a bonfire,"" he said softly."
RTRUE
?CCL23: EQUAL? ACTION,CAST-COMMAND \?CCL27
EQUAL? ACTION-OBJECT,LIGHTNING-SPELL \?PRD31
EQUAL? ACTION-PRSI,TANGLETREE /?CTR26
?PRD31: EQUAL? ACTION-OBJECT,FAR-VISION-SPELL \?CCL27
?CTR26: EQUAL? ACTION-OBJECT,FAR-VISION-SPELL \?CND34
ICALL2 GRAPHIC,G-TANGLEWOOD-BURNS
?CND34: IN? WESTFLAKE-ROOT,PRAXIX \?CND36
PRINTI "For the second time that day, "
?CND36: PRINTI "Praxix put his magic to good use! "
EQUAL? ACTION-OBJECT,LIGHTNING-SPELL \?CCL40
FSET LIGHTNING-SPELL,SEEN
PRINTI "He mixed together the essences of fire and water, then added just a pinch of earth essence. Just moments after casting the mixture, clouds gathered around him, and the sky turned black. He motioned with his staff at the deadly tree and a bolt of white lightning struck it, splitting it down the middle. A few branches caught fire, and instinctively withdrew, as if in pain."
CALL QSET?,LIGHTNING-SPELL,INCAPACITATED
ZERO? STACK \?CND38
CRLF
CRLF
PRINTI "Praxix, proud of his accomplishment, turned to me and whispered that it was the pinch of earth essence that really gives the lightning spell its added punch. But however the magic had been prepared, its effect was profound."
JUMP ?CND38
?CCL40: PRINTI "Praxix prepared his flare enchantment, and cast it at the tree before us. The ball of flame sped through the forest before us, and the tentacles withdrew, as if in pain, clearing a path in its wake."
?CND38: PRINTI " The tentacles loosened, we retrieved Bergon from their deadly embrace."
FCLEAR BERGON,TRAPPED
FSET? BERGON,DEAD \?CCL45
PRINTI " But it was too late; Bergon was dead!"
RTRUE
?CCL45: ICALL2 PARTY-ADD,BERGON
ICALL MAKE-BUSY,BERGON,ILL-COMMAND
CRLF
CRLF
PRINTI """They don't much care for fire,"" Praxix mused, ""Let's get away before they recover!"""
RTRUE
?CCL27: EQUAL? ACTION,EXAMINE-COMMAND \FALSE
EQUAL? ACTION-OBJECT,BERGON-OBJECT \FALSE
ICALL2 WPRINTD,ACTOR
PRINTI " looked Bergon over; he was unconscious. The tentacles were slowly, inexorably, squeezing the life out of him!"
RTRUE
.FUNCT ANONF-128:ANY:0:0
EQUAL? ACTION,PROCEED-COMMAND \?CCL3
PRINTI "As "
ZERO? SUBGROUP-MODE \?CCL6
PRINTC 119
JUMP ?CND4
?CCL6: PRINTC 104
?CND4: PRINTI "e continued, the forest grew increasingly dark and foreboding. The stately stands of pine and alder were gone, replaced by shorter, more twisted trees that seemed to choke the very life out of the forest. A rustling noise filled "
ZERO? SUBGROUP-MODE \?CCL9
PRINTI "our"
JUMP ?CND7
?CCL9: PRINTI "his"
?CND7: PRINTI " ears, and the trees writhed with a hypnotic motion, though the air was still, with no hint of a breeze."
CALL2 MOVE-TO,TANGLEWOOD-2
RSTACK
?CCL3: EQUAL? ACTION,RETURN-COMMAND \FALSE
ZERO? SUBGROUP-MODE \?CCL14
CALL1 TANGLE-NO-RETURN
RSTACK
?CCL14: CALL2 START-PRAXIX-SEARCH,STR?453
RSTACK
.FUNCT TANGLE-NO-RETURN:ANY:0:0
SET 'TANGLE-TWO-B,TRUE-VALUE
ICALL2 REMOVE-PARTY-COMMAND,RETURN-COMMAND
PRINTI "I suggested turning back but Praxix"
FSET? BERGON,IN-PARTY \?CND1
PRINTI " and Bergon"
?CND1: PRINTI " would not hear of it."
CRLF
CRLF
ZERO? A-B-FLAG /?CCL5
PRINTI """Going back into the caverns is not an alternative,"" Praxix said. ""Indeed, we are fortunate enough to have found the one way out; I do not relish the thought of finding another."""
RTRUE
?CCL5: PRINTI """No, this is the path we have chosen,"" Bergon said firmly. ""I feel we are heading in the direction Astrix would have wished."""
CRLF
CRLF
PRINTI """Yes,"" Praxix said, ""This might well be a good choice, whether or not it was the one Astrix had in mind."""
RTRUE
.FUNCT START-PRAXIX-SEARCH:ANY:1:1,STR
PRINT STR
PRINTI ", Bergon slowly headed back toward camp."
CALL2 SCENE,PRAXIX-SEARCH
RSTACK
.FUNCT ANONF-129:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL UPDATE-FSET,ACTION-OBJECT,DONT-EXAMINE
ZERO? SUBGROUP-MODE \?CCL6
PRINTC 87
JUMP ?CND4
?CCL6: PRINTC 72
?CND4: PRINTI "e looked around, but could find no source of the rustling noises, except for the trees themselves."
FSET? BERGON,IN-PARTY \TRUE
CRLF
CRLF
PRINTI """Argh!"" Bergon cried, seeing a fox twisted until nearly unrecognizable by the strangling branches."
RTRUE
.FUNCT ANONF-130:ANY:0:0
FSET? HERE,BLACK-MIX \?CCL3
CALL QSET?,HERE,BLUE-MIX
ZERO? STACK \?CCL3
CRLF
CRLF
PRINTI """These are the same trees that trapped me in the forest where "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI " was stricken by the Nightfang,"" Bergon said."
CRLF
CRLF
PRINTI """Yes,"" replied Praxix. ""Let us hope that my magic will work now as it did before!"""
JUMP ?CND1
?CCL3: FSET? HERE,TRIED \?CND1
CALL QSET?,HERE,BLUE-MIX
ZERO? STACK \?CND1
CRLF
CRLF
PRINTI """I have seen these trees before,"" Bergon said darkly, ""in the forest, where "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI " was stricken by the Nightfang. We must find some other way, for there is no escape for us if we are caught in their grasp!"""
?CND1: ZERO? SUBGROUP-MODE /?CCL11
FSET HERE,TRIED
RTRUE
?CCL11: ZERO? PART-TWO /FALSE
ZERO? TANGLE-TWO-B /FALSE
CALL TRAVEL-COMMANDS,HERE,PROCEED-COMMAND
RSTACK
.FUNCT ANONF-131:ANY:0:0
EQUAL? ACTION,PROCEED-COMMAND \?CCL3
PRINTI "The gnarled trees were soon too thick to penetrate, and "
FSET? BERGON,IN-PARTY \?CCL6
PRINTI "Bergon"
JUMP ?CND4
?CCL6: CALL FIRST-IN-PARTY,ESHER,MINAR,HURTH,PRAXIX
ICALL2 WPRINTD,STACK
?CND4: PRINTI " finally unsheathed his sword, hacking at the undulating branches. But the branches did not break; they sloughed off, falling to the ground in a pool of steamy green slime. The air was now steamy, and the wavy branches taunted "
ZERO? SUBGROUP-MODE \?CCL9
PRINTI "us"
JUMP ?CND7
?CCL9: PRINTI "him"
?CND7: PRINTI ", goading "
ZERO? SUBGROUP-MODE \?CCL12
PRINTI "us"
JUMP ?CND10
?CCL12: PRINTI "him"
?CND10: PRINTI " onward into their unrelenting grasp."
CALL2 MOVE-TO,TANGLEWOOD-3
RSTACK
?CCL3: EQUAL? ACTION,RETURN-COMMAND \FALSE
ZERO? SUBGROUP-MODE \?CCL17
ICALL REMOVE-TRAVEL-COMMAND,HERE,RETURN-COMMAND
CALL1 TANGLE-NO-RETURN
RSTACK
?CCL17: CALL2 START-PRAXIX-SEARCH,STR?454
RSTACK
.FUNCT ANONF-132:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL UPDATE-FSET,ACTION-OBJECT,DONT-EXAMINE
ICALL2 WPRINTD,ACTOR
PRINTI " turned, but the choking trees were everywhere. Escape would be difficult, if not impossible!"
RTRUE
.FUNCT ANONF-133:ANY:0:0
ZERO? SUBGROUP-MODE /?CND1
FSET TANGLEWOOD-2,BLACK-MIX
?CND1: ZERO? PART-TWO /FALSE
ZERO? TANGLE-TWO-B /FALSE
CALL TRAVEL-COMMANDS,HERE,PROCEED-COMMAND
RSTACK
.FUNCT ANONF-134:ANY:0:0
EQUAL? ACTION,PROCEED-COMMAND \?CCL3
ICALL1 REMOVE-TRAVEL-COMMAND
ZERO? SUBGROUP-MODE \?CCL6
PRINTI "We"
JUMP ?CND4
?CCL6: PRINTI "Bergon"
?CND4: PRINTI " tried to move forward, but it was no use. The growth was too thick!"
RTRUE
?CCL3: EQUAL? ACTION,RETURN-COMMAND \FALSE
ZERO? SUBGROUP-MODE \?CCL11
PRINTI "Sensing our peril, we tried to retreat, but the trees had closed in behind us. A branch rested on Bergon's"
JUMP ?CND9
?CCL11: PRINTI "Bergon, sensing his peril, tried to move back, but the trees had closed in behind him. A branch rested on his"
?CND9: PRINTI " shoulder, writhing and undulating as it spread itself around his arms and chest. The trees were closing in, and "
ZERO? SUBGROUP-MODE \?CCL14
PRINTI "we were trapped!"
CALL REMOVE-TRAVEL-COMMAND,HERE,RETURN-COMMAND
RSTACK
?CCL14: PRINTI "Bergon was trapped!"
FSET BERGON,TRAPPED
ICALL2 PARTY-REMOVE,BERGON
CALL2 SCENE,PRAXIX-SEARCH
RSTACK
.FUNCT ANONF-135:ANY:0:0
EQUAL? HERE,TANGLEWOOD-3 \FALSE
CALL2 CHECK-ESSENCES,FAR-VISION-SPELL
ZERO? STACK \FALSE
CALL FORCE-TRAVEL-COMMAND,HERE,PROCEED-COMMAND
RSTACK
.FUNCT ANONF-136:ANY:0:0,TMP
EQUAL? ACTION,PROCEED-COMMAND \?CCL3
EQUAL? HERE,TANGLEWOOD-3 \?CCL3
CALL2 CHECK-ESSENCES,FAR-VISION-SPELL
ZERO? STACK \?CCL3
ICALL2 HINT,HINT-TANGLESCENE
CALL FIRST-IN-PARTY,BERGON,HURTH,ESHER,MINAR >TMP
ICALL2 PARTY-REMOVE,TMP
ICALL2 SCENE,FALSE-VALUE
PRINTI "There appeared to be no alternative to hacking and slashing our way through these infernal trees, and for a while no harm came to us. But I am appalled to report that one of the trees grabbed "
ICALL2 WPRINTD,TMP
PRINTI " and crushed him to death before our very eyes. And, most eerily, the trees then bothered us no longer, as if satisfied at our sacrifice. You can imagine our desolation as, safe at last from the accursed forest, we made our camp for the night."
LESS? PARTY-MAX,3 \?CND7
CRLF
CRLF
ICALL1 PART-TWO-TOO-FEW
RTRUE
?CND7: CALL2 MOVE-TO,FOG-CAMP
RSTACK
?CCL3: EQUAL? ACTION,CAST-COMMAND \FALSE
EQUAL? ACTION-OBJECT,FIRE-SPELL \?CCL13
EQUAL? ACTION-PRSI,TANGLE-TREES-1,TANGLE-TREES-2,TANGLE-TREES-3 \?CCL13
PRINTI """Perhaps they do not like fire,"" Praxix said, but fearing an uncontrollable blaze, he cast only a small amount of magical powders at a nearby tree. Sure enough, the tree recoiled as if in pain."
CRLF
CRLF
PRINTI """The problem is,"" Praxix said, ""that I haven't enough magical powders to burn every tree we need to pass through. And if I use too much at one time, I may cause a great forest fire, with even less chance of escape than we now have! No,"" he said, ""there must be a better way."""
RTRUE
?CCL13: EQUAL? ACTION-OBJECT,LIGHTNING-SPELL \?CCL17
FSET LIGHTNING-SPELL,SEEN
PRINTI "Clouds gathered as Praxix cast his lightning spell, and as he pointed his staff at the tree before us, a bolt of white lightning split it in two. A few branches caught fire and instinctively withdrew, as if in pain."
CRLF
CRLF
CALL QSET?,LIGHTNING-SPELL,INCAPACITATED
ZERO? STACK \?CND18
PRINTI "Praxix, proud of his accomplishment, turned to me and said, ""It's that tiny bit of earth essence that gives the lightning spell its extra punch!"" Then, he turned to the others and spoke. "
?CND18: PRINTI """Effective, but inefficient,"" Praxix declared. ""I don't have nearly enough fire essence to strike every tree that lies before us!"""
RTRUE
?CCL17: EQUAL? ACTION-OBJECT,RAIN-SPELL \?CCL21
REMOVE HYE-TANGLE
PRINTI "Praxix cast his rain spell, and soon a heavy rain fell over the forest. But rather than helping our condition, rather the trees appeared to strengthen from the moisture, so much so that we were now more endangered than we had been before."
RTRUE
?CCL21: EQUAL? ACTION-OBJECT,FAR-VISION-SPELL \FALSE
ICALL2 GRAPHIC,G-TANGLEWOOD-BURNS
PRINTI "And then Praxix found the solution. Taking out his air and fire essences, he cast the flare enchantment in our direction of travel. A ball of white-hot flame flew from his fingertips, and the tentacles withdrew from the approaching fire, leaving a narrow, but clear, path in its wake."
CRLF
CRLF
PRINTI "He wiped the "
ICALL TELL-COLOR,ESSENCE-FIRE,ESSENCE-AIR
PRINTI " residue from his fingertips and implored us onward. ""Come quickly,"" Praxix cried, ""Even hurt, these trees are disquieting, and I wish to be long gone when they make their recovery."""
CRLF
CRLF
ICALL2 SCENE,FALSE-VALUE
PRINTI "It was a long march through these tangled trees, and it was a few hours before we reached their farthest limits. That night, we made our camp in a clearing nearby. To celebrate our escape, "
CALL FIRST-IN-PARTY,BERGON,HURTH,ESHER,PRAXIX
ICALL2 WPRINTD,STACK
PRINTI " rounded up a few large rabbits, from which we made a hearty stew."
CRLF
CRLF
PRINTI "Sitting around the campfire, we began to eat our meal. Praxix, though, had removed his pouch of magical essences and brought forth a fine, white powder which he cast ever so carefully at his portion of supper. We gazed intently as Praxix fretted and stared at his food, then cast more of the powder and fretted and stared some more. Finally, Praxix returned his pouch to his cloak and ate his dinner with relish. Looking up from his fast-emptying bowl, he saw us staring at him with a mixture of curiosity and bewilderment. Finally, I asked him what magic he had so delicately performed on his dinner."
CRLF
CRLF
PRINTI """Not magic,"" he said. ""Salt. Can't digest a rabbit stew properly without it."""
CRLF
CRLF
PRINTI "After dinner, we slept, but the night was cold and damp, and we rested fitfully, awakening to a dark and foggy morning."
ICALL2 GRAPHIC,G-FOREST
CALL2 MOVE-TO,FOG-CAMP
RSTACK
.ENDSEG
.ENDI