mirror of
https://github.com/historicalsource/journey
synced 2024-04-26 22:19:32 +03:00
1788 lines
72 KiB
Plaintext
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
|