892 lines
39 KiB
Plaintext
892 lines
39 KiB
Plaintext
|
|
.SEGMENT "LAVOS"
|
|
|
|
|
|
.FUNCT ANONF-57:ANY:0:0
|
|
EQUAL? ACTION,BACKGROUND-COMMAND \?CCL3
|
|
PRINTI "Our story began nearly five years ago, at the time of our first crop failures. These things happen, of course, once in a while, but by the third year, we knew something was badly amiss. And then, in the fourth year of our despair, the water, too, failed us; not all at once, mind you, but by the fifth year, there were only a few folks whose water was not foul-tasting and disease-ridden. Many moved away, into the north country, but in fact neither had our neighbors been spared the spreading pestilence."
|
|
CRLF
|
|
CRLF
|
|
PRINTI "Hope was fading as the summer of that fateful year approached, and, with no respite in sight, it was decided to seek aid beyond our borders, from a powerful Wizard who was said to live atop the distant Sunrise Mountain. And so a party of four departed, headed by the elder blacksmith, Garlimon; and they were never seen again."
|
|
CRLF
|
|
CRLF
|
|
PRINTI "But as winter reached its icy hand toward us, another group was formed with the same slim hope of finding answers to our desperate situation. Bergon, the carpenter, was chosen to lead the party; and Bergon chose Praxix, the local Wizard, and Esher, a learned (but irritable) physician, to join him. And the group chose me, "
|
|
ICALL1 WPRINTTAG
|
|
PRINTI ", apprentice food merchant, to watch the supplies and to keep a diary of our journey, which, by the fortunes of the good earth, I recount for you now."
|
|
RTRUE
|
|
?CCL3: EQUAL? ACTION,START-COMMAND \FALSE
|
|
RANDOM 64
|
|
SUB STACK,1
|
|
ADD STACK,64 >ASTRIX-MAZE-PATH
|
|
ICALL1 CLEAR-SUBGROUP
|
|
PRINTI "Our journey started on a day bright and clear, and we made quick progress down the gently winding road that leads south, past the boundaries of our valley."
|
|
CRLF
|
|
CRLF
|
|
PRINTI "The air was warm, but the cool north wind at our backs reminded us that winter was near. It seemed that we had only just started out when we arrived at the outpost town of Lavos, shortly past noon."
|
|
CRLF
|
|
CRLF
|
|
ICALL2 GRAPHIC,G-LAVOS
|
|
PRINTI "So this was Lavos! We stood in front of an old wooden storefront, that of a provisioner. Farther down the road, the Lands End tavern beckoned us with the promise of food and drink."
|
|
CALL2 MOVE-TO,LAVOS
|
|
RSTACK
|
|
|
|
|
|
.FUNCT ANONF-58:ANY:0:0
|
|
EQUAL? ACTION,GET-ADVICE-COMMAND \?CCL3
|
|
ICALL UPDATE-FCLEAR,HERE,ADVISE
|
|
PRINTI """I suppose,"" Bergon said with a smile, ""that we've come to our first decision. How are we set for supplies?"""
|
|
CRLF
|
|
CRLF
|
|
PRINTI """I'm sure we're well enough supplied,"" I said meekly. ""But I wouldn't mind looking around the shop, if you wouldn't mind taking the time."
|
|
CRLF
|
|
CRLF
|
|
PRINTI """Let's not disappoint "
|
|
ICALL1 WPRINTTAG
|
|
PRINTI ","" Praxix said kindly. ""And who knows - maybe we'll find something important there after all."""
|
|
RTRUE
|
|
?CCL3: EQUAL? ACTION,PROCEED-COMMAND \?CCL5
|
|
FSET? LANDS-END,SEEN /?CCL8
|
|
PRINTI "We walked down the dusty road, stopping at the door of the tavern. As we stood there, an unsavory looking man, approaching from the far end of town, brushed past us and entered."
|
|
JUMP ?CND6
|
|
?CCL8: FSET? LANDS-END-TAVERN,SEEN /?CCL10
|
|
PRINTI "Once again, we walked down that dusty road and stood at the door of the tavern. Loud conversation could be heard within, and we were sorely tempted to see what lay inside."
|
|
?CND6: CALL2 MOVE-TO,LANDS-END
|
|
RSTACK
|
|
?CCL10: PRINTI "We had seen town, such as it was, and it was now time to move on. "
|
|
ICALL2 GRAPHIC,G-FORK
|
|
ICALL MOVE-TO,NEWHALL-PASS,LEAVE-LAVOS
|
|
RTRUE
|
|
?CCL5: EQUAL? ACTION,ENTER-COMMAND \FALSE
|
|
ICALL UPDATE-FCLEAR,HERE,ADVISE
|
|
PRINTI "We entered the provisioner's shop, and introduced ourselves to the proprietor, a portly man named Webba. ""Look around, look around!"" he said, proudly, though (if the truth be told) there was not much to be proud of. Still, this would be our last chance to provision ourselves before moving south to whatever lay beyond."
|
|
CRLF
|
|
CRLF
|
|
ICALL2 GRAPHIC,G-WEBBA
|
|
CALL MOVE-TO,WEBBAS,STR?391
|
|
RSTACK
|
|
|
|
|
|
.FUNCT ANONF-59:ANY:0:0
|
|
IN? WEBBA-MAP,INVENTORY \?CND1
|
|
FSET WEBBA-MAP,DONT-EXAMINE
|
|
?CND1: PUTP HERE,P?TEMP,0
|
|
RTRUE
|
|
|
|
|
|
.FUNCT WEBBAS-F:ANY:0:0
|
|
EQUAL? ACTION,SELL-COMMAND \?CCL3
|
|
ICALL UPDATE-FSET,HERE,DONT-DROP
|
|
EQUAL? ACTION-OBJECT,WEBBA-MAP \?CCL6
|
|
PRINTI """No, you just keep the map,"" Webba said, returning the money we had paid for it. ""If you're going on from here, you'll be needing whatever help you can get!"""
|
|
RTRUE
|
|
?CCL6: PRINTI """Oh, dear me, no!"" was Webba's reply when we tried to sell him the "
|
|
ICALL2 WPRINTD,ACTION-OBJECT
|
|
PRINTI ". ""I'm sure I've got a whole shelf of them out back somewhere."""
|
|
RTRUE
|
|
?CCL3: EQUAL? ACTION,REPLY-COMMAND \?CCL8
|
|
ICALL2 WPRINTD,ACTOR
|
|
PRINTI " started to tell of our quest, and Webba shook his head, resigned to having lost a good customer. ""This map will not help you. I sell this item to 'tourists' - those curious enough to visit, but not enough to go on!"" He laughed heartily, and told of the peculiar man who offered him the map in exchange for a few worthless trinkets. Of course, the map appeared equally worthless, though he thought it amusing, especially the faintly flickering, oddly shaped runes that appeared on it. He ran his finger across the map, as if to show us the originals, but none were even vaguely flickering, and he soon gave up."
|
|
CRLF
|
|
CRLF
|
|
FSET WEBBA-MAP,USED-UP
|
|
PRINTI """The old man looked harmless enough,"" the shopkeeper continued, ""so I bought it. But the map seemed awfully plain, if you know what I mean, so I added some runes of my own - thought it looked more official that way! But, if I were trying to find my way somewhere, I would sooner trust my brother's blind mule than this map!"""
|
|
CALL1 END-OPTION
|
|
RSTACK
|
|
?CCL8: EQUAL? ACTION,IGNORE-COMMAND \?CCL10
|
|
PRINTI "Fearing to expose our quest, "
|
|
ICALL2 WPRINTD,ACTOR
|
|
PRINTI " shrugged off the question. Webba didn't pursue the matter, but he now looked at us with grave concern."
|
|
CALL1 END-OPTION
|
|
RSTACK
|
|
?CCL10: EQUAL? ACTION,LOOK-AROUND-COMMAND \?CCL12
|
|
ICALL UPDATE-FSET,HERE,DONT-SCOUT
|
|
FSET HERE,SCOUTED
|
|
PRINTI """I think I'll just have a look around,"" "
|
|
ICALL2 WPRINTD,ACTOR
|
|
PRINTI " said, as he wandered off to explore the shop. ""Perhaps there's something more here than meets the eye."""
|
|
PUTP HERE,P?TEMP,ACTOR
|
|
ICALL MAKE-BUSY,ACTOR,GONE-COMMAND
|
|
RTRUE
|
|
?CCL12: EQUAL? ACTION,EXIT-COMMAND \FALSE
|
|
ICALL TRAVEL-COMMANDS,LAVOS,PROCEED-COMMAND
|
|
CALL MOVE-TO,LAVOS,STR?392
|
|
RSTACK
|
|
|
|
|
|
.FUNCT ANONF-61:ANY:0:0
|
|
EQUAL? ACTION,EXAMINE-COMMAND \?CCL3
|
|
ICALL UPDATE-FSET,ACTION-OBJECT,DONT-EXAMINE
|
|
ICALL2 WPRINTD,ACTOR
|
|
PRINTI ", who was by no means an expert on fine foods, browsed through the food selection, though he could not find anything that he particularly liked."
|
|
CRLF
|
|
CRLF
|
|
PRINTI """Perhaps we should buy some of these things,"" he said, turning in my general direction. I agreed to take a look around, though we were not short of supplies."
|
|
RTRUE
|
|
?CCL3: EQUAL? ACTION,BUY-COMMAND \FALSE
|
|
PRINTI "I selected the most appetizing of the dry foodstuffs and placed them in my pack; at least we wouldn't be worrying about food for a few weeks, which was longer than we hoped to be gone."
|
|
CALL2 UPDATE-MOVE,WEBBA-FOOD
|
|
RSTACK
|
|
|
|
|
|
.FUNCT ANONF-62:ANY:0:0
|
|
FSET HERE,SEEN
|
|
FSET? WEBBAS,SEEN \FALSE
|
|
CALL REMOVE-TRAVEL-COMMAND,HERE,BACK-COMMAND
|
|
RSTACK
|
|
|
|
|
|
.FUNCT ANONF-63:ANY:0:0
|
|
EQUAL? ACTION,ENTER-COMMAND \?CCL3
|
|
ICALL1 REMOVE-TRAVEL-COMMAND
|
|
CALL MOVE-TO,LANDS-END-TAVERN,STR?394
|
|
RSTACK
|
|
?CCL3: EQUAL? ACTION,PROCEED-COMMAND \?CCL5
|
|
CALL MOVE-TO,NEWHALL-PASS,LEAVE-LAVOS
|
|
RSTACK
|
|
?CCL5: EQUAL? ACTION,BACK-COMMAND \FALSE
|
|
PRINTI """So, this is all there is,"" Esher said, shaking his head scornfully. ""Perhaps we were hasty in passing over the provisioner's shop."""
|
|
CRLF
|
|
CRLF
|
|
PRINTI """It could not hurt to check it out,"" Bergon replied, and we were soon retracing our steps to the provisioner's door."
|
|
ICALL1 REMOVE-TRAVEL-COMMAND
|
|
CALL2 MOVE-TO,LAVOS
|
|
RSTACK
|
|
|
|
|
|
.FUNCT ANONF-64:ANY:0:0
|
|
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
|
|
ICALL UPDATE-FSET,ACTION-OBJECT,DONT-EXAMINE
|
|
GETP HERE,P?TEMP
|
|
ZERO? STACK /?CCL6
|
|
FSET ACTION-OBJECT,EXAMINED
|
|
PRINTI "Praxix motioned toward a particularly dark corner of the tavern, where Esher was now conversing with someone whose face was obscured in shadow."
|
|
CRLF
|
|
CRLF
|
|
PRINTI """Perhaps we shall learn something of value from our friend Esher,"" he said."
|
|
RTRUE
|
|
?CCL6: FSET HERE,INCAPACITATED
|
|
PRINTI "Praxix slowly scanned the faces of the customers, but none returned his gaze. Indeed, although everyone here appeared to know who we were, none would acknowledge our presence."
|
|
CRLF
|
|
CRLF
|
|
PRINTI "The almost palpable tension inside the tavern made me ill at ease, and I believe Praxix felt this as well, though he was not nearly as alarmed as I. ""We have barely left home and already you see danger everywhere you turn,"" he said, reassuringly. ""Have a"
|
|
FSET? LANDS-END-DRINKS,SEEN \?CND7
|
|
PRINTI "nother"
|
|
?CND7: PRINTI " drink! Do not despair!"""
|
|
RTRUE
|
|
|
|
|
|
.FUNCT ANONF-65:ANY:0:0
|
|
EQUAL? ACTION,BUY-COMMAND \FALSE
|
|
FSET? LANDS-END-DRINKS,SEEN \?CCL6
|
|
REMOVE HYE-DRINKS
|
|
PRINTI "I suggested that another drink might not hurt, but Bergon suggested that I had had quite enough."
|
|
CRLF
|
|
CRLF
|
|
PRINTI """We wouldn't want you walking over any cliffs, or falling into chasms,"" he said."
|
|
FSET? HERE,INCAPACITATED \?CND7
|
|
CRLF
|
|
CRLF
|
|
PRINTI "The Wizard looked over his shoulder toward me and shrugged, then emptied his tankard of ale in a single gulp."
|
|
?CND7: CALL2 UPDATE-MOVE,LANDS-END-DRINKS
|
|
RSTACK
|
|
?CCL6: FSET LANDS-END-DRINKS,SEEN
|
|
PRINTI "Stepping up to the bar, we ordered ourselves a few tankards of ale. Though bitter by our standards, it was nevertheless refreshing, and we passed some time there with idle talk about the journey that was to come."
|
|
RTRUE
|
|
|
|
|
|
.FUNCT ANONF-66:ANY:0:0
|
|
PUTP HERE,P?TEMP,0
|
|
RTRUE
|
|
|
|
|
|
.FUNCT ANONF-67:ANY:0:0
|
|
EQUAL? ACTION,LOOK-AROUND-COMMAND \?CCL3
|
|
PRINTI "It took Esher just a few moments to become restless, and he soon slipped away from us to mingle with the crowd."
|
|
CRLF
|
|
CRLF
|
|
PRINTI """Who knows?"" he said, all but disappearing into the tavern's smoke-filled air, ""I may even learn something useful."""
|
|
FSET? LANDS-END-PEOPLE,EXAMINED /?CND4
|
|
ICALL UPDATE-MOVE,LANDS-END-PEOPLE,HERE
|
|
?CND4: PUTP HERE,P?TEMP,ACTOR
|
|
ICALL MAKE-BUSY,ACTOR,GONE-COMMAND
|
|
RTRUE
|
|
?CCL3: EQUAL? ACTION,EXIT-COMMAND \?CCL7
|
|
GETP HERE,P?TEMP
|
|
ZERO? STACK /?CCL10
|
|
CALL QSET?,MINAR,SEEN
|
|
ZERO? STACK \?CCL10
|
|
ICALL2 GRAPHIC,G-MINAR
|
|
PRINTI "On our way out, Esher rejoined us, telling of an intriguing conversation he had just had with one of the locals. Before he could go on, the unsavory man we had seen before stepped outside and pushed his way into our midst. Bergon, flushed with anger, grabbed his sword, but Esher held him back. ""This is the man I was telling you about,"" he said with no particular enthusiasm."
|
|
CRLF
|
|
CRLF
|
|
ICALL1 CLEAR-BUSY
|
|
PRINT MINAR-INTRO
|
|
ICALL OPTION,LEADER,ACCEPT-COMMAND,DECLINE-COMMAND,GET-ADVICE-COMMAND
|
|
FSET HERE,ADVISE
|
|
SET 'UPDATE-FLAG,TRUE-VALUE
|
|
RTRUE
|
|
?CCL10: PRINTI "It was Bergon's opinion that we had tarried here long enough, so we left the tavern, returning to the road"
|
|
FSET? LANDS-END-DRINKS,SEEN \?CND13
|
|
PRINTI " refreshed, and, if I might say, with a good, warm feeling in our bellies"
|
|
?CND13: PRINTC 46
|
|
CALL2 MOVE-TO,LANDS-END
|
|
RSTACK
|
|
?CCL7: EQUAL? ACTION,ACCEPT-COMMAND \?CCL16
|
|
ICALL2 WPRINTD,LEADER
|
|
PRINTI " appeared troubled, but agreed to Minar's request. ""It is against the wishes of our Elders, yet we know little of the world that lies beyond Lavos. We shall take the stranger!"""
|
|
ICALL2 PARTY-ADD,MINAR
|
|
ICALL2 END-OPTION,FALSE-VALUE
|
|
CALL2 MOVE-TO,LANDS-END
|
|
RSTACK
|
|
?CCL16: EQUAL? ACTION,DECLINE-COMMAND \?CCL18
|
|
ICALL2 WPRINTD,LEADER
|
|
PRINTI " thought for a moment, then spoke. ""Wiser men than ourselves have set our number at four. Though our perils be unknown to us, we must not lightly bend the wishes of those who have set us upon our way."" And with that, he dismissed Minar, who slinked back into the tavern."
|
|
FSET MINAR,SEEN
|
|
ICALL2 END-OPTION,FALSE-VALUE
|
|
CALL2 MOVE-TO,LANDS-END
|
|
RSTACK
|
|
?CCL18: EQUAL? ACTION,GET-ADVICE-COMMAND \FALSE
|
|
EQUAL? PARTY-MODE,OPTION-MODE \FALSE
|
|
FCLEAR HERE,ADVISE
|
|
PRINTI "None spoke, yet all frowned, if only a little, at the prospect of bringing this stranger into our group."
|
|
CALL OPTION,LEADER,ACCEPT-COMMAND,DECLINE-COMMAND
|
|
RSTACK
|
|
|
|
|
|
.FUNCT ANONF-68:ANY:0:0
|
|
FCLEAR WEBBA-MAP,DONT-EXAMINE
|
|
CALL ADD-TRAVEL-COMMAND,PRAXIX,TELL-LEGEND-COMMAND
|
|
RSTACK
|
|
|
|
|
|
.FUNCT ANONF-69:ANY:0:0
|
|
FSET WEBBA-MAP,DONT-EXAMINE
|
|
RTRUE
|
|
|
|
|
|
.FUNCT ANONF-70:ANY:0:0
|
|
EQUAL? ACTION,GET-ADVICE-COMMAND \?CCL3
|
|
ICALL UPDATE-FCLEAR,HERE,ADVISE
|
|
FSET? HERE,SCOUTED \?CCL6
|
|
PRINTI "Having considered Minar's report, Bergon asked each of us for our advice. Esher, Minar, and I favored taking the righthand path and avoiding the bandits altogether. Praxix, however, was intensely curious as to the meaning of the bloodstained clothing, feeling that it might relate to the mystery surrounding the disappearance of Garlimon's party. Bergon listened carefully, though he kept his thoughts to himself."
|
|
RTRUE
|
|
?CCL6: FSET? MINAR,IN-PARTY \?CCL8
|
|
PRINTI "Bergon asked for our advice, but only Minar spoke. ""If our goal is the Sunrise Mountain,"" he said, ""we should have better luck keeping to the left."""
|
|
RTRUE
|
|
?CCL8: PRINTI "It felt like hours had passed while we stood at the fork, looking this way and that, not knowing which would lead more quickly to our destination. Perhaps it would not matter, yet we feared that time was critial and that our decision here would be crucial to our success."
|
|
RTRUE
|
|
?CCL3: EQUAL? ACTION,SCOUT-COMMAND \?CCL10
|
|
ICALL UPDATE-FSET,HERE,DONT-SCOUT
|
|
FSET HERE,SCOUTED
|
|
EQUAL? ACTOR,ESHER \?CCL13
|
|
ICALL2 WPRINTD,ACTOR
|
|
PRINTI " grudgingly agreed to run on ahead and check out both paths; when he arrived back, breathless, he was reticent."
|
|
CRLF
|
|
CRLF
|
|
PRINTI """Well,"" Bergon prompted, expecting some sort of information to be forthcoming."
|
|
CRLF
|
|
CRLF
|
|
PRINTI """How should I know?"" Esher replied, ""I've never been here before, and they just look like paths to me. If it's advice you're after, I say let's go left - there's less climbing that way."""
|
|
CALL UPDATE-FCLEAR,HERE,ADVISE
|
|
RSTACK
|
|
?CCL13: PRINTI "Bergon asked Minar to scout out the paths before us, but Minar, sensing an insult, was initially disinclined to do so."
|
|
CRLF
|
|
CRLF
|
|
RANDOM 2 >FORK-BANDITS
|
|
PRINTI """I have no need to scout these paths,"" he said harshly, ""for I have travelled them many times. If we seek the Sunrise Mountain, our best path is to the left."""
|
|
CRLF
|
|
CRLF
|
|
PRINTI "But then, Minar's voice softened. ""However, these are dangerous times, and we may have been followed."" And with that, he quietly disappeared down the lefthand path. When he returned, he shook his head knowingly."
|
|
CRLF
|
|
CRLF
|
|
SET 'FORK-BANDITS,1
|
|
PRINTI """It is as I feared. Not long after I left, I discovered this."" He held up a shredded piece of clothing, similar to our own, stained heavily with dried blood. ""There is more - there are fresh tracks in the ground - three or four, I would say. No doubt they are bandits, and they lie in wait for us. Also, sunset is near. We must hope to do better down the other path."""
|
|
FSET HERE,SCOUTED
|
|
RTRUE
|
|
?CCL10: EQUAL? ACTION,LEFT-COMMAND \?CCL15
|
|
EQUAL? FORK-BANDITS,1 \?CCL18
|
|
FSET? HERE,SCOUTED \?CCL18
|
|
FSET? MINAR,IN-PARTY \?CCL18
|
|
PRINTI "Although Minar had cautioned us against taking this route, Bergon chose to "
|
|
FSET? HERE,ADVISE /?CND22
|
|
PRINTI "take Praxix' advice and "
|
|
?CND22: PRINTI "proceed "
|
|
JUMP ?CND16
|
|
?CCL18: PRINTI "We chose to remain north of the mountains, following the path which led"
|
|
?CND16: CALL MOVE-TO,CANYON-COUNTRY,STR?398
|
|
RSTACK
|
|
?CCL15: EQUAL? ACTION,RIGHT-COMMAND \FALSE
|
|
EQUAL? FORK-BANDITS,2 \?CCL28
|
|
PRINTI "Although Minar had cautioned us against taking this route, Bergon chose to proceed southward, following a steeply winding path that led down through a narrow canyon."
|
|
JUMP ?CND26
|
|
?CCL28: PRINTI "Choosing the southern route, we descended through a steeply winding canyon."
|
|
?CND26: CALL MOVE-TO,SYLMAR,STR?399
|
|
RSTACK
|
|
|
|
|
|
.FUNCT ANONF-71:ANY:0:0
|
|
EQUAL? ACTION,SCENE-START-COMMAND \?CCL3
|
|
ICALL UPDATE-MOVE,BANDITS,HERE
|
|
CRLF
|
|
CRLF
|
|
PRINTI "Not a minute after locating a campsite, we were suddenly attacked by a small gang of bandits."
|
|
CRLF
|
|
CRLF
|
|
SET 'COMBAT-ROUND,-1
|
|
CALL1 SURPRISE-COMBAT
|
|
RSTACK
|
|
?CCL3: EQUAL? ACTION,SCENE-END-COMMAND \?CCL5
|
|
ICALL2 UPDATE-REMOVE,BANDITS
|
|
GETP HERE,P?GRAPHIC
|
|
ICALL2 GRAPHIC,STACK
|
|
ZERO? BANDITS-SPELL /?CND6
|
|
CRLF
|
|
CRLF
|
|
PRINTI "It was about this time that Praxix was ready to cast his """
|
|
ICALL2 WPRINTD,BANDITS-SPELL
|
|
PRINTI """ spell. But looking around for the first time since he had started, he came to the belated realization that it was no longer necessary."
|
|
FSET? ESHER,IN-PARTY \?CND8
|
|
CRLF
|
|
CRLF
|
|
PRINTI """Would that we had a medal for valor,"" Esher said, patting Praxix on the back and pouring on the sarcasm. ""I feel safer in battle just knowing that you are with us."""
|
|
?CND8: ICALL1 CLEAR-BUSY
|
|
?CND6: FSET? ESHER,IN-PARTY /?CCL12
|
|
CRLF
|
|
CRLF
|
|
PRINTI "The battle was now over, and we would have to go on without the services of our physician. Praxix performed a brief ceremony, after which we laid our friend to rest in a deep grave in the shade of a sycamore tree, and marked the spot with a rock cairn."
|
|
JUMP ?CND10
|
|
?CCL12: ICALL2 MAKE-UNBUSY,MINAR
|
|
?CND10: CRLF
|
|
CRLF
|
|
PRINTI "It was now late, so we set up camp, taking turns on guard through the night. Later, I dreamed that we stood on a high precipice, far above the clouds; storms surrounded us, and violent gusts of wind nearly swept us off our feet and down into a dark abyss. And then, the wind changed, and a gentle breeze blew, and we were carried off that precipice. But we were not afraid as we glided and soared through the ocean of still, clear air."
|
|
CRLF
|
|
CRLF
|
|
PRINTI "When morning came, misty and still, we packed silently and prepared to move onward. But the dream stayed with me, and in later days I would think of it often, sensing in it a foreshadowing of things to come - but when, or in what manner, I could not know."
|
|
RTRUE
|
|
?CCL5: EQUAL? ACTION,COMBAT-RESULT-COMMAND \?CCL14
|
|
ZERO? COMBAT-ROUND \?CCL17
|
|
EQUAL? FORK-BANDITS,1,2 \?CCL20
|
|
PRINTI "Having been warned of our danger, we reacted quickly and surely. I had never been in battle before, but it was clear that Bergon was our strongest fighter, wielding a heavy broadsword. Esher, surprisingly, was also a good fighter, and he easily handled the sword thrusts of his opponent. Praxix and I, however, were new to this sort of thing, and were satisfied with merely staving off injury."
|
|
RTRUE
|
|
?CCL20: PRINTI "Caught completely unawares, w"
|
|
ICALL2 HINT,HINT-BANDITS
|
|
ICALL1 BANDITS-KILL-ESHER
|
|
RTRUE
|
|
?CCL17: FSET? ESHER,IN-PARTY \?CND21
|
|
PRINTI "Just then, a previously unseen attacker approached Esher from behind with a large club. Not a moment before he"
|
|
FSET? HERE,TRIED \?CCL25
|
|
PRINTI " would have been hit, a sword ripped through the attacker's chest. Placing his foot on the attacker's back, Minar kicked the mortally wounded attacker to the ground and smiled. Clearly, Minar had done this sort of thing before, and what's more, he seemed to enjoy it. But the grotesque look on his victim's face filled me with dread and revulsion."
|
|
JUMP ?CND23
|
|
?CCL25: PRINTI " was hit, I screamed a warning, but it was too late. W"
|
|
ICALL2 HINT,HINT-BANDITS-FLANK
|
|
ICALL1 BANDITS-KILL-ESHER
|
|
?CND23: CRLF
|
|
CRLF
|
|
?CND21: FSET? ESHER,IN-PARTY /?CCL28
|
|
PRINTI "Our fortunes were finally improving"
|
|
JUMP ?CND26
|
|
?CCL28: PRINTI "The battle was "
|
|
ZERO? FORK-BANDITS \?CND29
|
|
PRINTI "finally "
|
|
?CND29: PRINTI "going well"
|
|
?CND26: PRINTI "; Bergon"
|
|
FSET? ESHER,IN-PARTY \?CND31
|
|
PRINTI ", Esher,"
|
|
?CND31: FSET? MINAR,IN-PARTY \?CND33
|
|
PRINTI " and Minar"
|
|
?CND33: FSET? MINAR,IN-PARTY /?CTR36
|
|
FSET? ESHER,IN-PARTY \?CCL37
|
|
?CTR36: PRINTI " were"
|
|
JUMP ?CND35
|
|
?CCL37: PRINTI " was"
|
|
?CND35: PRINTI " making some deadly hits with "
|
|
FSET? MINAR,IN-PARTY /?CTR41
|
|
FSET? ESHER,IN-PARTY \?CCL42
|
|
?CTR41: PRINTI "their weapons"
|
|
JUMP ?CND40
|
|
?CCL42: PRINTI "his sword"
|
|
?CND40: PRINTI ", and the bandits appeared weaker in their resolve to fight, taking ever more to the defensive."
|
|
RTRUE
|
|
?CCL14: EQUAL? ACTION,CAST-COMMAND \?CCL46
|
|
SET 'BANDITS-SPELL,ACTION-OBJECT
|
|
PRINTI "In the midst of the fighting, Praxix started preparing a spell of some sort. It wasn't easy, though, and it appeared we would not be seeing the spell's effects for some time."
|
|
ICALL2 MAKE-BUSY,PRAXIX
|
|
ICALL1 NEW-DEFAULT
|
|
RTRUE
|
|
?CCL46: EQUAL? ACTION,COMBAT-COMMAND \?CCL48
|
|
FSET? BANDITS-FIGHT,SEEN /?CCL48
|
|
FSET? MINAR,IN-PARTY /?CCL48
|
|
ZERO? COMBAT-ROUND \?CCL48
|
|
FSET BANDITS-FIGHT,SEEN
|
|
PRINTI "As we prepared to continue the fight, it was clear that something was wrong in the ranks of the bandits; one dropped dead in his tracks before we had commenced."
|
|
CRLF
|
|
CRLF
|
|
GETP BANDITS,P?STATUS
|
|
MUL STACK,3
|
|
DIV STACK,4
|
|
PUTP BANDITS,P?STATUS,STACK
|
|
RFALSE
|
|
?CCL48: EQUAL? ACTION,FLANK-COMMAND \?CCL54
|
|
EQUAL? ACTOR,MINAR \?CCL57
|
|
ICALL MAKE-BUSY,MINAR,GONE-COMMAND
|
|
FSET HERE,TRIED
|
|
PRINTI "We almost didn't notice that Minar had quietly slipped away, snaking his way through the brush to take up a position behind that of the bandits."
|
|
JUMP ?CND55
|
|
?CCL57: ICALL CHANGE-CIT,MINAR,1,NUL-COMMAND
|
|
ICALL2 WPRINTD,ACTOR
|
|
PRINTI " thought there would be some advantage to sneaking around the bandits' flank, but he was too large a man and too involved in the battle itself to do this without attracting notice."
|
|
?CND55: ICALL CHANGE-CIT,BERGON,1,NUL-COMMAND
|
|
CALL1 NEW-DEFAULT
|
|
RSTACK
|
|
?CCL54: EQUAL? ACTION,STRENGTH-COMMAND \?CCL59
|
|
FSET? BANDITS-FIGHT,SEEN \?CCL59
|
|
ICALL2 ADD-PARTY-OFFENSE,40
|
|
ICALL2 ADD-PARTY-DEFENSE,10
|
|
RFALSE
|
|
?CCL59: EQUAL? ACTION,ACCEPT-COMMAND \?CCL63
|
|
ICALL2 WPRINTD,LEADER
|
|
PRINTI ", still troubled, agreed. "
|
|
FSET? MINAR,SEEN \?CND64
|
|
PRINTI """It seems we cannot be rid of you, so you may as well join us."" "
|
|
?CND64: PRINTI "Praxix appeared uneasy with Bergon's decision, but, as for me, I was happy to take any help we were offered."
|
|
ICALL TRAVEL-COMMANDS,ESHER,EXAMINE-COMMAND
|
|
ICALL1 END-OPTION
|
|
ICALL2 END-COMBAT,FALSE-VALUE
|
|
ICALL2 PARTY-ADD,MINAR
|
|
RTRUE
|
|
?CCL63: EQUAL? ACTION,RETREAT-COMMAND \?CCL67
|
|
ICALL2 REMOVE-PARTY-COMMAND,RETREAT-COMMAND
|
|
PRINTI "Any thought of retreating from these bandits would soon be forgotten, as it became clear that we were far stronger than they."
|
|
RTRUE
|
|
?CCL67: EQUAL? ACTION,PARLEY-COMMAND \?CCL69
|
|
ICALL2 REMOVE-PARTY-COMMAND,PARLEY-COMMAND
|
|
ICALL CHANGE-CIT,BERGON,1,NUL-COMMAND
|
|
FSET? MINAR,IN-PARTY \?CND70
|
|
ICALL CHANGE-CIT,MINAR,1,NUL-COMMAND
|
|
?CND70: PRINTI "Hoping to avoid a bloody battle, we attempted to parley with the bandits, but they declined with words hardly fit to print. The attempt, however, cost us precious time in battle and made it virtually impossible for us to make any surprise moves."
|
|
RTRUE
|
|
?CCL69: EQUAL? ACTION,GET-ADVICE-COMMAND \?CCL73
|
|
ICALL UPDATE-FCLEAR,HERE,ADVISE
|
|
PRINTI "The group, grateful for Minar's help, was quiet, yet none came out against taking in this inscrutable stranger."
|
|
CALL OPTION,LEADER,ACCEPT-COMMAND,DECLINE-COMMAND
|
|
RSTACK
|
|
?CCL73: EQUAL? ACTION,DECLINE-COMMAND \FALSE
|
|
ICALL2 WPRINTD,LEADER
|
|
PRINTI " was firm. ""We are thankful for your help, but we must "
|
|
FSET? MINAR,SEEN \?CND76
|
|
PRINTI "again "
|
|
?CND76: PRINTI "refuse your offer. Good luck be with you!"" And, "
|
|
FSET? MINAR,SEEN \?CCL80
|
|
PRINTI "as before"
|
|
JUMP ?CND78
|
|
?CCL80: PRINTI "without further ado"
|
|
?CND78: PRINTI ", Minar left, disappearing into the shadows."
|
|
ICALL2 HINT,HINT-MINAR
|
|
ICALL1 END-OPTION
|
|
ICALL2 END-COMBAT,FALSE-VALUE
|
|
RTRUE
|
|
|
|
|
|
.FUNCT BANDITS-KILL-ESHER:ANY:0:0
|
|
ICALL2 PARTY-REMOVE,ESHER
|
|
PRINTI "e watched in horror as Esher was felled by a single blow of his attacker's club. The rest of our group, weapons drawn, began to take the initiative and scored some deadly hits of our own."
|
|
RTRUE
|
|
|
|
|
|
.FUNCT ANONF-72:ANY:0:0
|
|
CRLF
|
|
PRINTI "The bandits, finding the fight more than they had bargained for, retreated out of sight."
|
|
FSET? BANDITS-FIGHT,SEEN \?CCL3
|
|
ZERO? BANDITS-SPELL /?CND4
|
|
ICALL2 UNUSE-ESSENCES,BANDITS-SPELL
|
|
SET 'BANDITS-SPELL,FALSE-VALUE
|
|
PRINTI " Praxix, seeing that there was no need for his magic, put away his pouch."
|
|
?CND4: ICALL1 CLEAR-BUSY
|
|
PRINTI " A moment later, "
|
|
FSET? MINAR,SEEN \?CCL8
|
|
PRINTI "Minar"
|
|
JUMP ?CND6
|
|
?CCL8: PRINTI "the man we had seen entering the tavern"
|
|
?CND6: PRINTI " appeared, bow in hand. ""I thought you might be needing some help,"" he said, grinning."
|
|
CRLF
|
|
CRLF
|
|
FSET? MINAR,SEEN \?CCL11
|
|
PRINTI """My previous offer stands, and this time I would advise you to accept it."" He stood there, grinning all the time, waiting for our answer."
|
|
JUMP ?CND9
|
|
?CCL11: PRINT MINAR-INTRO
|
|
?CND9: ICALL OPTION,LEADER,ACCEPT-COMMAND,DECLINE-COMMAND,GET-ADVICE-COMMAND
|
|
RTRUE
|
|
?CCL3: ICALL2 END-COMBAT,FALSE-VALUE
|
|
RTRUE
|
|
|
|
|
|
.FUNCT ANONF-73:ANY:0:0
|
|
EQUAL? FORK-BANDITS,2,0 \FALSE
|
|
SET 'OPPONENT,BANDITS
|
|
CALL SCENE,BANDITS-FIGHT,FIGHT-MODE
|
|
RSTACK
|
|
|
|
|
|
.FUNCT ANONF-74:ANY:0:0
|
|
EQUAL? ACTION,PROCEED-COMMAND \?CCL3
|
|
PRINTI "The path curved toward the east along the foothills of the mountains, and we were soon forced to choose between climbing higher or veering off and into the southern valley. But there was no choice, really, since our goal was to the east; it would be impossible to avoid the mountains, so we started our ascent."
|
|
CRLF
|
|
CRLF
|
|
PRINTI "The climb was long and arduous, and it was not until late in the second day that we reached a plateau high in the mountains. But it was dark, and little could be seen. And so we camped there under a starry sky."
|
|
CRLF
|
|
CRLF
|
|
IN? ESSENCE-FIRE,ESSENCES /?CND4
|
|
FSET? NEWHALL-PASS,SCOUTED \?CND4
|
|
IN? HINT-MINAR,HINTS /?CND4
|
|
ICALL2 HINT,HINT-NO-FIRE
|
|
?CND4: ICALL2 NEXT-DAY,2
|
|
CALL1 GATE-TO-HIGH-PLAIN
|
|
RSTACK
|
|
?CCL3: EQUAL? ACTION,SCOUT-COMMAND \?CCL10
|
|
ICALL UPDATE-FSET,HERE,DONT-SCOUT
|
|
FSET HERE,SCOUTED
|
|
ICALL1 CAIRN-SCOUT
|
|
RTRUE
|
|
?CCL10: EQUAL? ACTION,BACK-COMMAND \FALSE
|
|
ICALL1 REMOVE-TRAVEL-COMMAND
|
|
PRINTI "I suggested returning to Lavos, but the idea was immediately quashed by the group."
|
|
CRLF
|
|
CRLF
|
|
PRINTI """Our destiny lies ahead, not behind,"" Praxix said. ""Try to remember that."""
|
|
RTRUE
|
|
|
|
|
|
.FUNCT ANONF-75:ANY:0:0
|
|
EQUAL? FORK-BANDITS,1,0 \FALSE
|
|
SET 'OPPONENT,BANDITS
|
|
CALL SCENE,BANDITS-FIGHT,FIGHT-MODE
|
|
RSTACK
|
|
|
|
|
|
.FUNCT ANONF-76:ANY:0:0
|
|
EQUAL? ACTION,PROCEED-COMMAND \?CCL3
|
|
IN? ESSENCE-FIRE,ESSENCES /?CND4
|
|
FSET? NEWHALL-PASS,SCOUTED \?CND4
|
|
IN? HINT-MINAR,HINTS /?CND4
|
|
ICALL2 HINT,HINT-NO-FIRE
|
|
?CND4: CALL MOVE-TO,TUJUNGA-PATH,STR?402
|
|
RSTACK
|
|
?CCL3: EQUAL? ACTION,SCOUT-COMMAND \?CCL10
|
|
ICALL UPDATE-FSET,HERE,DONT-SCOUT
|
|
FSET HERE,SCOUTED
|
|
ICALL1 CAIRN-SCOUT
|
|
RTRUE
|
|
?CCL10: EQUAL? ACTION,BACK-COMMAND \FALSE
|
|
ICALL1 REMOVE-TRAVEL-COMMAND
|
|
FSET? ESHER,IN-PARTY \?CCL15
|
|
PRINTI "Esher, dismayed by our confrontation with the bandits,"
|
|
JUMP ?CND13
|
|
?CCL15: PRINTI "Disheartened by the loss of Esher, I"
|
|
?CND13: PRINTI " suggested backtracking toward Lavos, but the idea was quickly quashed by the others who felt that we would make good progress along the path we had chosen."
|
|
RTRUE
|
|
|
|
|
|
.FUNCT ANONF-77:ANY:0:0
|
|
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
|
|
ICALL1 CLEAR-EXBIT
|
|
ICALL2 WPRINTD,ACTOR
|
|
PRINTI " examined the bodies"
|
|
EQUAL? ACTOR,ESHER \?CCL6
|
|
PRINTI " carefully. ""They were killed with sharp objects of some kind - swords and knives, I would guess. Whatever weapons they may have carried are gone - in fact, only their cloaks remain. I'd be willing to bet that they were waylaid and robbed."""
|
|
RTRUE
|
|
?CCL6: ICALL FIND-ESSENCE,ESSENCE-FIRE,2
|
|
ICALL FIND-ESSENCE,ESSENCE-WATER,1
|
|
PRINTI ", discovering two small pouches of powders hidden within a seam of one of the cloaks that had been used as a burial shroud. ""Fire essence,"" he beamed, opening the first and holding it up for my inspection. ""Or I'm an apprentice food merchant!"" And then, examining the second pouch, he found a far smaller amount of a different powder. He dipped a finger into the powder, and touched it to his lips. ""And this would be water essence, though barely enough for a single spell. And yet, all such powders are nigh impossible to obtain these days, and much can be done with them."""
|
|
RTRUE
|
|
|
|
|
|
.FUNCT ANONF-78:ANY:0:0
|
|
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
|
|
ICALL1 UPDATE-MOVE
|
|
EQUAL? ACTOR,PRAXIX \?CCL6
|
|
PRINTI "At Bergon's request, Praxix looked over the cairn. ""The cairn was made by our people and not by the locals from Lavos,"" he said."
|
|
RTRUE
|
|
?CCL6: PRINTI """This cairn looks like one of ours,"" "
|
|
ICALL2 WPRINTD,ACTOR
|
|
PRINTI " said, looking over the mound of carefully piled rocks. ""Not at all like those we passed on the outskirts of Lavos."""
|
|
RTRUE
|
|
|
|
|
|
.FUNCT ANONF-79:ANY:0:0
|
|
FCLEAR WEBBA-MAP,DONT-EXAMINE
|
|
RTRUE
|
|
|
|
|
|
.FUNCT ANONF-80:ANY:0:0
|
|
FSET WEBBA-MAP,DONT-EXAMINE
|
|
RTRUE
|
|
|
|
|
|
.FUNCT ANONF-81:ANY:0:0
|
|
EQUAL? ACTION,SCOUT-COMMAND \?CCL3
|
|
ICALL UPDATE-FSET,HERE,DONT-SCOUT
|
|
FSET HERE,SCOUTED
|
|
ICALL2 WPRINTD,ACTOR
|
|
PRINTI " scouted out the climbing path, and reported that it wound its way out of sight, high in the mountains."
|
|
CRLF
|
|
CRLF
|
|
PRINTI """The shortest path to the Sunrise Mountain lies ahead, unless, of course, you feel the urge to explore the high country,"" he said."
|
|
RTRUE
|
|
?CCL3: EQUAL? ACTION,PROCEED-COMMAND \?CCL5
|
|
ICALL1 NEXT-DAY
|
|
CALL MOVE-TO,CANYON-GATE,STR?405
|
|
RSTACK
|
|
?CCL5: EQUAL? ACTION,CLIMB-COMMAND \FALSE
|
|
PRINTI "Opting for the high road, we started to climb into the southern mountains. The path was narrow, and frequently choked with low brush, making progress slow. By midday however, we had climbed more than half of the distance to the ridge which hung above us. It took the rest of the afternoon, but we finally arrived at the ridge. We were all tired after our day of climbing, and so we camped there for the night."
|
|
CRLF
|
|
CRLF
|
|
ICALL2 GRAPHIC,G-HIGH-PLAIN
|
|
ICALL1 NEXT-DAY
|
|
CALL MOVE-TO,HIGH-PLAIN,STR?406
|
|
RSTACK
|
|
|
|
|
|
.FUNCT CAIRN-SCOUT:ANY:0:0
|
|
EQUAL? ACTOR,MINAR \?CCL3
|
|
ICALL UPDATE-MOVE,CANYON-CAIRN,HERE
|
|
MOVE CANYON-BODIES,HERE
|
|
ICALL2 WPRINTD,ACTOR
|
|
PRINTI " was sent out to explore the area around us. What he found brought little cheer."
|
|
CRLF
|
|
CRLF
|
|
PRINTI """A rock cairn,"" he said, leading us to a shaded spot beneath a grove of stately oaks, ""I am certain this was not here last summer, when I camped in this same spot."""
|
|
CRLF
|
|
CRLF
|
|
PRINTI "Minar's words were ominous - whatever was buried here had not lain long in the earth. Fearful over what we might find, we decided to dig up whatever remains lay there. It was not long before we found what we were after - three sets of human remains, their bodies mangled and bloodied, yet covered with their own cloaks."
|
|
CRLF
|
|
CRLF
|
|
PRINTI """Garlimon's party!"" cried Bergon. ""But there are only three, not four...."""
|
|
CRLF
|
|
CRLF
|
|
PRINTI """And that is but part of the mystery,"" replied Praxix, ""Who, I wonder, took the time to bury them? Surely not the assassins that tortured and killed them."""
|
|
RTRUE
|
|
?CCL3: PRINTI "Esher took a few moments to scout out the immediate area, but nothing of interest caught his eye, excepting the few rabbits he suggested might make a nice dinner."
|
|
RTRUE
|
|
|
|
|
|
.FUNCT ANONF-82:ANY:0:0
|
|
ZERO? 2ND-PASS /FALSE
|
|
FSET? MINAR,IN-PARTY /FALSE
|
|
FSET? ESHER,IN-PARTY /FALSE
|
|
FSET? DWARF-MEETING,TRIED /FALSE
|
|
CALL2 ADD-PARTY-COMMAND,COMB-AREA-COMMAND
|
|
RSTACK
|
|
|
|
|
|
.FUNCT ANONF-83:ANY:0:0
|
|
?FCN: EQUAL? ACTION,PROCEED-COMMAND \?CCL3
|
|
CALL MOVE-TO,ANGELES-PATH,STR?407
|
|
RSTACK
|
|
?CCL3: EQUAL? ACTION,COMB-AREA-COMMAND \?CCL5
|
|
ICALL1 REMOVE-TRAVEL-COMMAND
|
|
PRINTI "We split up into two groups in search of the Dwarves' gate; Praxix and I went toward the hills, and "
|
|
EQUAL? PARTY-MAX,3 \?CCL8
|
|
PRINTI "Bergon"
|
|
JUMP ?CND6
|
|
?CCL8: PRINTI "the others"
|
|
?CND6: PRINTI " followed the canyon floor. Before long, I found that I had wandered out of sight of Praxix."
|
|
CALL OPTION,TAG,LOOK-AROUND-COMMAND,GET-HELP-COMMAND
|
|
RSTACK
|
|
?CCL5: EQUAL? ACTION,SCOUT-COMMAND \?CCL10
|
|
ICALL UPDATE-FSET,HERE,DONT-SCOUT
|
|
FSET HERE,SCOUTED
|
|
FSET HERE,SCOUTED
|
|
SET 'KIDNAPPED,ACTOR
|
|
ICALL2 PARTY-REMOVE,ACTOR
|
|
FSET? ESHER,IN-PARTY /?CND11
|
|
FSET? MINAR,IN-PARTY /?CND11
|
|
ICALL REMOVE-TRAVEL-COMMAND,HERE,PROCEED-COMMAND
|
|
?CND11: ICALL2 WPRINTD,LEADER
|
|
PRINTI " sent "
|
|
ICALL2 WPRINTD,ACTOR
|
|
PRINTI " off to scout around the area, which he did. After an hour, though, he had not returned and "
|
|
ICALL2 WPRINTD,LEADER
|
|
PRINTI " was alarmed enough to set us out searching for him. We split up into two groups; Praxix and I went toward the hills, and "
|
|
EQUAL? PARTY-MAX,3 \?CCL17
|
|
PRINTI "Bergon"
|
|
JUMP ?CND15
|
|
?CCL17: PRINTI "the others"
|
|
?CND15: PRINTI " followed the canyon floor. Before long, I found that I had wandered out of sight of Praxix."
|
|
ICALL2 MAKE-SUBGROUP,TAG
|
|
CALL OPTION,TAG,LOOK-AROUND-COMMAND,GET-HELP-COMMAND
|
|
RSTACK
|
|
?CCL10: EQUAL? ACTION,LOOK-AROUND-COMMAND \?CCL19
|
|
CALL QSET?,HERE,SEEN
|
|
ZERO? STACK /?CCL22
|
|
ICALL OPTION,TAG,GET-HELP-COMMAND,RETURN-COMMAND
|
|
PRINTI "Having found these peculiar runes, I explored further in hopes of discovering more artifacts. But my search was fruitless, and I had soon wandered back to where I had started my explorations."
|
|
RTRUE
|
|
?CCL22: ICALL2 GRAPHIC,G-GATE-RUNES
|
|
PRINTI "Ambling aimlessly along the base of a rock cliff, something scurried by in the tall brush. When I looked, nothing was there, but my eye caught some strange lettering chiselled in the stone."
|
|
CALL OPTION,TAG,LOOK-AROUND-COMMAND,GET-HELP-COMMAND,RETURN-COMMAND
|
|
RSTACK
|
|
?CCL19: EQUAL? ACTION,GET-HELP-COMMAND \?CCL24
|
|
FSET? HERE,SEEN /?CCL27
|
|
ZERO? 2ND-PASS \?CCL27
|
|
PRINTI "Unhappy at exploring alone, I called out for Praxix, who soon appeared. ""What is it?"" he asked."
|
|
CRLF
|
|
CRLF
|
|
PRINTI "When I told him of my uneasiness in exploring alone, he acted annoyed. ""Return to our camp, then,"" he said, indicating the direction. ""I shall continue to look for "
|
|
ICALL2 WPRINTD,KIDNAPPED
|
|
PRINTI "."""
|
|
CRLF
|
|
CRLF
|
|
SET 'ACTION,RETURN-COMMAND
|
|
JUMP ?FCN
|
|
?CCL27: ZERO? 2ND-PASS /?CCL32
|
|
PRINTI "Unhappy at exploring alone"
|
|
JUMP ?CND30
|
|
?CCL32: PRINTI "Eager to share my discovery with the others"
|
|
?CND30: PRINTI ", I called out, and Praxix, following the sound of my voice, appeared within moments. ""Well, what now?"" he began, but as if by instinct, his eyes slowly wandered to "
|
|
FSET? HERE,SEEN \?CCL35
|
|
PRINTI "the runes that I had discovered."
|
|
JUMP ?CND33
|
|
?CCL35: ICALL2 GRAPHIC,G-GATE-RUNES
|
|
PRINTI "some runes that I hadn't noticed before, chiselled into the stone."
|
|
?CND33: CRLF
|
|
CRLF
|
|
PRINTI "Praxix then called for "
|
|
EQUAL? PARTY-MAX,3 \?CCL38
|
|
PRINTI "Bergon"
|
|
JUMP ?CND36
|
|
?CCL38: PRINTI "the others"
|
|
?CND36: PRINTI ", who hurried to our side."
|
|
CRLF
|
|
CRLF
|
|
CALL1 CANYON-GATE-OPENS
|
|
RSTACK
|
|
?CCL24: EQUAL? ACTION,ENTER-COMMAND \?CCL40
|
|
PRINTI "Slowly and cautiously, we passed through the gate and into the darkness. As if on some malicious cue, the gate crashed shut behind us."
|
|
CRLF
|
|
CRLF
|
|
FSET? PRAXIX,LIT \?CCL43
|
|
PRINTI "We were fortunate indeed that Praxix had magically caused his staff to glow, for the cavern itself was black as pitch."
|
|
JUMP ?CND41
|
|
?CCL43: FSET? ESHER,IN-PARTY \?CND44
|
|
PRINTI """I don't suppose we have a torch anywhere,"" said Esher, knowing fully well that we didn't. "
|
|
?CND44: PRINTI "It was dark as pitch, the outline of the gate as invisible now as it had been earlier."
|
|
?CND41: CALL2 MOVE-TO,BERN-I-LAV
|
|
RSTACK
|
|
?CCL40: EQUAL? ACTION,RETURN-COMMAND \FALSE
|
|
PRINTI "Filled with apprehension, I returned to our camp. Before long the others had also returned; there was no trace of "
|
|
ZERO? KIDNAPPED /?CCL50
|
|
ICALL2 WPRINTD,KIDNAPPED
|
|
PRINTC 33
|
|
JUMP ?CND48
|
|
?CCL50: PRINTI "a gate."
|
|
?CND48: FSET? HERE,SEEN /?CND51
|
|
CRLF
|
|
CRLF
|
|
PRINTI """We must face the fact that "
|
|
ICALL2 WPRINTD,KIDNAPPED
|
|
PRINTI " is gone,"" Praxix said. ""Let us continue on our way."""
|
|
ICALL1 END-OPTION
|
|
ICALL1 CLEAR-SUBGROUP
|
|
ICALL FORCE-TRAVEL-COMMAND,HERE,PROCEED-COMMAND
|
|
RTRUE
|
|
?CND51: CRLF
|
|
CRLF
|
|
PRINTI "Later, questioned by Praxix, I told of my explorations. He listened without interest until I came to the part about finding the runes, when he startled me by jumping to his feet. ""Take me!"" he commanded, and I did."
|
|
CRLF
|
|
CRLF
|
|
PRINTI "The old Wizard studied the runes, then called for the others. "
|
|
CALL1 CANYON-GATE-OPENS
|
|
RSTACK
|
|
|
|
|
|
.FUNCT CANYON-GATE-OPENS:ANY:0:0
|
|
ICALL UPDATE-MOVE,TALE-DWARF-GATES,PRAXIX-TALES
|
|
MOVE TALE-DWARVES,PRAXIX-TALES
|
|
PRINTI """The runes here are very old, and ancient languages are not my specialty. But the runes are Dwarvish, and long ago I learned some of their words. This first rune, 'Bern,' means a 'gate', and this second one, 'Lav,' refers to 'the plains'."""
|
|
CRLF
|
|
CRLF
|
|
PRINTI """The gate to the plains,"" I said, putting two and two together. ""But from where?"""
|
|
CRLF
|
|
CRLF
|
|
PRINTI """That is a simple question,"" Praxix replied, ""A more interesting one would be 'How shall we get it to open?'"""
|
|
FSET? ESHER,IN-PARTY \?CCL3
|
|
CRLF
|
|
CRLF
|
|
PRINTI """Or better still, 'What do we do now?'"" snarled Esher as, to everyone's surprise, a round gate appeared, yawning wide before us."
|
|
JUMP ?CND1
|
|
?CCL3: CRLF
|
|
CRLF
|
|
PRINTI "This was not to be a problem, for a round gate then appeared from nowhere and opened."
|
|
?CND1: ZERO? 2ND-PASS \?CND4
|
|
CRLF
|
|
CRLF
|
|
PRINTI "Of the group, only Praxix was genuinely pleased by our discovery, though he was mystified as to just how it had happened. ""Perhaps it was something I said,"" he offered, shrugging."
|
|
?CND4: PUTP CANYON-GATE,P?GRAPHIC,G-GATE-RUNES
|
|
ICALL GRAPHIC,FALSE-VALUE,G-GATE-OPENS,BOTTOM-RIGHT
|
|
ICALL1 END-OPTION
|
|
ICALL1 CLEAR-SUBGROUP
|
|
ICALL ADD-TRAVEL-COMMAND,HERE,ENTER-COMMAND
|
|
ICALL UPDATE-FSET,HERE,NEAR-DARK
|
|
RTRUE
|
|
|
|
|
|
.FUNCT CAVERN-GRAPHIC:ANY:0:0
|
|
FSET? PRAXIX,LIT \?CCL3
|
|
CALL2 GRAPHIC,G-DARK-CAVERN
|
|
RSTACK
|
|
?CCL3: ZERO? BLACK-PICTURE-BORDER /?CCL6
|
|
CLEAR GRAPHICS-WINDOW
|
|
JUMP ?CND4
|
|
?CCL6: ICALL2 GRAPHIC,G-BLACK
|
|
?CND4: SET 'CURRENT-GRAPHIC,-1
|
|
RETURN CURRENT-GRAPHIC
|
|
|
|
|
|
.FUNCT ANONF-84:ANY:0:0
|
|
EQUAL? ACTION,EXIT-COMMAND \?CCL3
|
|
ICALL1 REMOVE-TRAVEL-COMMAND
|
|
PRINTI "We groped for the gate itself, or for some device that would open it, but to no avail."
|
|
RTRUE
|
|
?CCL3: EQUAL? ACTION,PROCEED-COMMAND \?CCL5
|
|
FSET? PRAXIX,LIT /?CND6
|
|
PRINTI "I meekly suggested trying to feel our way through what ever passage we were in, and Bergon reluctantly agreed. ""We seem to have no other choice,"" he said."
|
|
CRLF
|
|
CRLF
|
|
?CND6: CALL MOVE-TO,DWARF-MEETING-LOC,STR?408
|
|
RSTACK
|
|
?CCL5: EQUAL? ACTION,CAST-COMMAND \FALSE
|
|
EQUAL? ACTION-OBJECT,LIGHT-SPELL \FALSE
|
|
ICALL1 CAVERN-GRAPHIC
|
|
CALL1 CAST-LIGHT
|
|
RSTACK
|
|
|
|
|
|
.FUNCT ANONF-85:ANY:0:0
|
|
EQUAL? ACTION,PROCEED-COMMAND \?CCL3
|
|
PRINTI "The sun peeked behind some high clouds as we wound our way along the floor of the canyon. Ahead, the path climbed up a tall ridge, and we arrived there as dusk approached and stood in awe of the world that surrounded us."
|
|
CRLF
|
|
CRLF
|
|
CALL1 MOVE-TO-FOREST-RIDGE
|
|
RSTACK
|
|
?CCL3: EQUAL? ACTION,SCOUT-COMMAND \?CCL5
|
|
ICALL UPDATE-FSET,HERE,DONT-SCOUT
|
|
FSET HERE,SCOUTED
|
|
EQUAL? ACTOR,MINAR \?CCL8
|
|
ICALL2 WPRINTD,ACTOR
|
|
PRINTI " went ahead, paying close attention to the trail that climbed into the mountains. ""It is a good trail,"" he said. ""As I recall, we can follow it to a high ridge no more than a day's climb from here."""
|
|
RTRUE
|
|
?CCL8: ICALL2 WPRINTD,ACTOR
|
|
PRINTI " went ahead, reporting back that the trail appeared to be passable as far as he could see, though it might well be more than a day's climb to the top of the ridge."""
|
|
RTRUE
|
|
?CCL5: EQUAL? ACTION,CLIMB-COMMAND \FALSE
|
|
PRINTI "The trail was steep, winding its way high into the hills. At times, the trail disappeared completely, and it was necessary to scout ahead to find the proper path. But we pressed on, ever climbing, until we reached a spot about halfway toward the top of the ridge."
|
|
CRLF
|
|
CRLF
|
|
ICALL1 NEXT-DAY
|
|
CALL MOVE-TO,HIGH-PLAIN,STR?409
|
|
RSTACK
|
|
|
|
.ENDSEG
|
|
|
|
.ENDI
|