mirror of
https://github.com/historicalsource/journey
synced 2024-04-26 22:19:32 +03:00
605 lines
38 KiB
Plaintext
605 lines
38 KiB
Plaintext
<FLAGS-AND-DEFAULTS (("DEBUGGING" %<>)) ()>
|
|
|
|
<BEGIN-SEGMENT LAVOS>
|
|
<GLOBAL CHEAT <>>
|
|
<ROOM START-LOC (TRAVEL-COMMANDS START-COMMAND BACKGROUND-COMMAND
|
|
CHANGE-NAME-COMMAND HELP-COMMAND) (GRAPHIC G-LAVOS) (ACTION <ACOND () (<EQUAL?
|
|
,ACTION ,BACKGROUND-COMMAND> <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, "> <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.">) (<EQUAL? ,
|
|
ACTION ,START-COMMAND> <SETG ASTRIX-MAZE-PATH <ADD #ZLOCAL!-IZILCH STACK 64>> <
|
|
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> <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."> <MOVE-TO ,LAVOS>)>)>
|
|
<DEFINE-ROUTINE ANONF-57>
|
|
<ROOM LAVOS (TRAVEL-COMMANDS PROCEED-COMMAND ENTER-COMMAND NUL-COMMAND) (FLAGS
|
|
DONT-SCOUT ADVISE) (GRAPHIC G-LAVOS) (ACTION <ACOND () (<EQUAL? ,ACTION ,
|
|
GET-ADVICE-COMMAND> <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 "> <WPRINTTAG> <PRINTI
|
|
",\" Praxix said kindly. \"And who knows -
|
|
maybe we'll find something important there after all.\"">) (<EQUAL? ,ACTION ,
|
|
PROCEED-COMMAND> <COND (<NOT <FSET? ,LANDS-END ,SEEN>> <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.">) (<NOT <FSET? ,LANDS-END-TAVERN ,
|
|
SEEN>> <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.">) (T <PRINTI
|
|
"We had seen town, such as it was, and it was now time to move on. "> <GRAPHIC
|
|
,G-FORK> <MOVE-TO ,NEWHALL-PASS ,LEAVE-LAVOS> <RTRUE>)> <MOVE-TO ,LANDS-END>) (
|
|
<EQUAL? ,ACTION ,ENTER-COMMAND> <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> <GRAPHIC
|
|
,G-WEBBA> <MOVE-TO ,WEBBAS #ZLOCAL!-IZILCH STR?391>)>)>
|
|
<DEFINE-ROUTINE ANONF-58>
|
|
<ROOM WEBBAS (TEMP 0) (GRAPHIC G-WEBBA) (FLAGS PROVISIONER DONT-CAST INDOORS) (
|
|
TRAVEL-COMMANDS EXIT-COMMAND NUL-COMMAND NUL-COMMAND) (ENTER FSET-SEEN) (EXIT <
|
|
EXECUTE () <COND (<IN? ,WEBBA-MAP ,INVENTORY> <FSET ,WEBBA-MAP ,DONT-EXAMINE>)>
|
|
<CLEAR-TEMP>>) (ACTION <ACOND WEBBAS-F () (<EQUAL? ,ACTION ,SELL-COMMAND> <
|
|
UPDATE-FSET ,HERE ,DONT-DROP> <COND (<EQUAL? ,ACTION-OBJECT ,WEBBA-MAP> <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!\""
|
|
>) (T <PRINTI "\"Oh, dear me, no!\" was Webba's reply when we tried to sell him the "
|
|
> <WPRINTD ,ACTION-OBJECT> <PRINTI
|
|
". \"I'm
|
|
sure I've got a whole shelf of them out back somewhere.\"">)>) (<EQUAL? ,ACTION
|
|
,REPLY-COMMAND> <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!\"">
|
|
<END-OPTION>) (<EQUAL? ,ACTION ,IGNORE-COMMAND> <PRINTI
|
|
"Fearing to expose our quest, "> <WPRINTD ,ACTOR> <PRINTI
|
|
" shrugged off the question. Webba didn't
|
|
pursue the matter, but he now looked at us with grave concern."> <END-OPTION>)
|
|
(<EQUAL? ,ACTION ,LOOK-AROUND-COMMAND> <UPDATE-FSET ,HERE ,DONT-SCOUT> <FSET ,
|
|
HERE ,SCOUTED> <PRINTI "\"I think I'll just have a look around,\" "> <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> <MAKE-BUSY ,ACTOR ,GONE-COMMAND> <
|
|
RTRUE>) (<EQUAL? ,ACTION ,EXIT-COMMAND> <TRAVEL-COMMANDS ,LAVOS ,
|
|
PROCEED-COMMAND> <MOVE-TO ,LAVOS #ZLOCAL!-IZILCH STR?392>)>)>
|
|
<DEFINE-ROUTINE ANONF-59>
|
|
<DEFINE-ROUTINE WEBBAS-F>
|
|
<OBJECT WEBBA-FOOD (LOC WEBBAS) (SDESC "food") (KBD 70) (ACTION <ACOND () (<
|
|
EQUAL? ,ACTION ,EXAMINE-COMMAND> <UPDATE-FSET ,ACTION-OBJECT ,DONT-EXAMINE> <
|
|
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.">) (<EQUAL? ,ACTION ,BUY-COMMAND> <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."> <UPDATE-MOVE ,WEBBA-FOOD>)>)>
|
|
<DEFINE-ROUTINE ANONF-61>
|
|
<ROOM LANDS-END (TRAVEL-COMMANDS PROCEED-COMMAND ENTER-COMMAND BACK-COMMAND) (
|
|
FLAGS DONT-SCOUT INDOORS) (GRAPHIC G-LAVOS) (ENTER <EXECUTE () <FSET ,HERE ,
|
|
SEEN> <COND (<FSET? ,WEBBAS ,SEEN> <REMOVE-TRAVEL-COMMAND ,HERE ,BACK-COMMAND>)
|
|
>>) (ACTION <ACOND () (<EQUAL? ,ACTION ,ENTER-COMMAND> <REMOVE-TRAVEL-COMMAND>
|
|
<MOVE-TO ,LANDS-END-TAVERN #ZLOCAL!-IZILCH STR?394>) (<EQUAL? ,ACTION ,
|
|
PROCEED-COMMAND> <MOVE-TO ,NEWHALL-PASS ,LEAVE-LAVOS>) (<EQUAL? ,ACTION ,
|
|
BACK-COMMAND> <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."> <REMOVE-TRAVEL-COMMAND> <
|
|
MOVE-TO ,LAVOS>)>)>
|
|
<DEFINE-ROUTINE ANONF-62>
|
|
<DEFINE-ROUTINE ANONF-63>
|
|
<CONSTANT LEAVE-LAVOS
|
|
"It was mid-afternoon when we left Lavos, heading south. The road,
|
|
which soon narrowed to a simple foot path, wound its way down into a deep
|
|
canyon, surrounded by sheer walls. After a short time, we found ourselves
|
|
at a fork in the path, the left branch leading east along the foothills and
|
|
the right one continuing down the valley to the south. Both appeared desolate
|
|
and poorly traveled. I wondered which path Garlimon's party had taken, and
|
|
how near they had come to reaching Astrix. And then, a cold, bone-dry wind
|
|
arose from the north, filling me with dread.">
|
|
<OBJECT LANDS-END-PEOPLE (LOC LANDS-END-TAVERN) (FLAGS DONT-TAKE) (SDESC
|
|
"customers") (KBD 67) (EXBITS PRAXIXBIT) (ACTION <ACOND () (<EQUAL? ,ACTION ,
|
|
EXAMINE-COMMAND> <UPDATE-FSET ,ACTION-OBJECT ,DONT-EXAMINE> <COND (<GETP ,HERE
|
|
,P?TEMP> <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.">) (T <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"> <COND (<FSET? ,LANDS-END-DRINKS ,SEEN> <
|
|
PRINTI "nother">)> <PRINTI " drink! Do not despair!\"">)>)>)>
|
|
<DEFINE-ROUTINE ANONF-64>
|
|
<OBJECT LANDS-END-DRINKS (LOC LANDS-END-TAVERN) (FLAGS DONT-EXAMINE) (SDESC
|
|
"drinks") (KBD 68) (ACTION <ACOND () (<EQUAL? ,ACTION ,BUY-COMMAND> <COND (<
|
|
FSET? ,LANDS-END-DRINKS ,SEEN> <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."> <COND (<FSET? ,HERE ,INCAPACITATED> <CRLF> <CRLF> <PRINTI
|
|
"The Wizard looked over his shoulder toward me and shrugged, then
|
|
emptied his tankard of ale in a single gulp.">)> <UPDATE-MOVE ,LANDS-END-DRINKS
|
|
>) (T <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.">)>)>)>
|
|
<DEFINE-ROUTINE ANONF-65>
|
|
<ROOM LANDS-END-TAVERN (TRAVEL-COMMANDS EXIT-COMMAND NUL-COMMAND NUL-COMMAND) (
|
|
FLAGS PROVISIONER DONT-CAST) (GRAPHIC G-ZAN-TAVERN) (TEMP 0) (ENTER FSET-SEEN)
|
|
(EXIT <EXECUTE () <CLEAR-TEMP>>) (ACTION <ACOND () (<EQUAL? ,ACTION ,
|
|
LOOK-AROUND-COMMAND> <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.\""> <COND (<NOT <FSET? ,
|
|
LANDS-END-PEOPLE ,EXAMINED>> <UPDATE-MOVE ,LANDS-END-PEOPLE ,HERE>)> <PUTP ,
|
|
HERE ,P?TEMP ,ACTOR> <MAKE-BUSY ,ACTOR ,GONE-COMMAND> <RTRUE>) (<EQUAL? ,ACTION
|
|
,EXIT-COMMAND> <COND (<AND <GETP ,HERE ,P?TEMP> <NOT <QSET? ,MINAR ,SEEN>>> <
|
|
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> <CLEAR-BUSY> <
|
|
PRINT ,MINAR-INTRO> <OPTION ,LEADER ,ACCEPT-COMMAND ,DECLINE-COMMAND ,
|
|
GET-ADVICE-COMMAND> <FSET ,HERE ,ADVISE> <SET UPDATE-FLAG #ZLOCAL!-IZILCH
|
|
TRUE-VALUE> <RTRUE>) (T <PRINTI
|
|
"It was Bergon's opinion that we had tarried here long enough, so we left
|
|
the tavern, returning to the road"> <COND (<FSET? ,LANDS-END-DRINKS ,SEEN> <
|
|
PRINTI " refreshed, and, if I might say,
|
|
with a good, warm feeling in our bellies">)> <PRINTI "."> <MOVE-TO ,LANDS-END>)
|
|
>) (<EQUAL? ,ACTION ,ACCEPT-COMMAND> <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!\""> <PARTY-ADD ,MINAR> <END-OPTION #ZLOCAL!-IZILCH
|
|
FALSE-VALUE> <MOVE-TO ,LANDS-END>) (<EQUAL? ,ACTION ,DECLINE-COMMAND> <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> <END-OPTION #ZLOCAL!-IZILCH FALSE-VALUE> <MOVE-TO ,LANDS-END>) (<AND <
|
|
EQUAL? ,ACTION ,GET-ADVICE-COMMAND> <EQUAL? ,PARTY-MODE ,OPTION-MODE>> <FCLEAR
|
|
,HERE ,ADVISE> <PRINTI
|
|
"None spoke, yet all frowned, if only a little, at the prospect of bringing
|
|
this stranger into our group."> <OPTION ,LEADER ,ACCEPT-COMMAND ,
|
|
DECLINE-COMMAND>)>)>
|
|
<DEFINE-ROUTINE ANONF-66>
|
|
<DEFINE-ROUTINE ANONF-67>
|
|
<ROOM NEWHALL-PASS (TRAVEL-COMMANDS LEFT-COMMAND RIGHT-COMMAND NUL-COMMAND) (
|
|
FLAGS ADVISE) (GRAPHIC G-FORK) (ENTER <EXECUTE () <FCLEAR ,WEBBA-MAP ,
|
|
DONT-EXAMINE> <ADD-TRAVEL-COMMAND ,PRAXIX ,TELL-LEGEND-COMMAND>>) (EXIT <
|
|
EXECUTE () <FSET ,WEBBA-MAP ,DONT-EXAMINE>>) (ACTION <ACOND () (<EQUAL? ,ACTION
|
|
,GET-ADVICE-COMMAND> <UPDATE-FCLEAR ,HERE ,ADVISE> <COND (<FSET? ,HERE ,SCOUTED
|
|
> <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.">) (<FSET? ,MINAR ,IN-PARTY> <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.\"">) (T
|
|
<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.">)>) (<EQUAL? ,ACTION ,SCOUT-COMMAND> <
|
|
UPDATE-FSET ,HERE ,DONT-SCOUT> <FSET ,HERE ,SCOUTED> <COND (<EQUAL? ,ACTOR ,
|
|
ESHER> <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.\""> <UPDATE-FCLEAR
|
|
,HERE ,ADVISE>) (T <PRINTI
|
|
"Bergon asked Minar to scout out the paths before us, but Minar, sensing
|
|
an insult, was initially disinclined to do so."> <CRLF> <CRLF> <SETG
|
|
FORK-BANDITS <RANDOM 2>> <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>)>) (<EQUAL? ,ACTION ,LEFT-COMMAND> <COND (<AND <EQUAL? ,FORK-BANDITS
|
|
1> <FSET? ,HERE ,SCOUTED> <FSET? ,MINAR ,IN-PARTY>> <PRINTI
|
|
"Although Minar had cautioned us against taking this route, Bergon chose to ">
|
|
<COND (<NOT <FSET? ,HERE ,ADVISE>> <PRINTI "take Praxix' advice and ">)> <
|
|
PRINTI "proceed ">) (T <PRINTI
|
|
"We chose to remain north of the mountains, following the path which led">)> <
|
|
MOVE-TO ,CANYON-COUNTRY #ZLOCAL!-IZILCH STR?398>) (<EQUAL? ,ACTION ,
|
|
RIGHT-COMMAND> <COND (<EQUAL? ,FORK-BANDITS 2> <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.">) (T <PRINTI
|
|
"Choosing the southern route, we descended through a steeply winding
|
|
canyon.">)> <MOVE-TO ,SYLMAR #ZLOCAL!-IZILCH STR?399>)>)>
|
|
<DEFINE-ROUTINE ANONF-68>
|
|
<DEFINE-ROUTINE ANONF-69>
|
|
<DEFINE-ROUTINE ANONF-70>
|
|
<CONSTANT MINAR-INTRO
|
|
"\"I am called Minar, and I have travelled often in the Outlands. You are in
|
|
great danger, whether you know it or not. If you will have me, I offer you my
|
|
services.\" Minar's eyes flickered with a disturbing light, but saying nothing,
|
|
we awaited the decision of Bergon.">
|
|
<GLOBAL FORK-BANDITS <>>
|
|
<GLOBAL BANDITS-SPELL <>>
|
|
<OBJECT BANDITS-FIGHT (GRAPHIC G-BANDITS) (ACTION <ACOND () (<EQUAL? ,ACTION ,
|
|
SCENE-START-COMMAND> <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> <SURPRISE-COMBAT>)
|
|
(<EQUAL? ,ACTION ,SCENE-END-COMMAND> <UPDATE-REMOVE ,BANDITS> <GRAPHIC #
|
|
ZLOCAL!-IZILCH STACK> <COND (,BANDITS-SPELL <CRLF> <CRLF> <PRINTI
|
|
"It was about this time that Praxix was ready to cast his \""> <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."> <COND (<FSET? ,ESHER ,IN-PARTY> <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.\"">)> <CLEAR-BUSY>)> <COND (<NOT <FSET? ,ESHER ,
|
|
IN-PARTY>> <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.">) (T <MAKE-UNBUSY ,MINAR>)> <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.">) (<EQUAL? ,ACTION ,COMBAT-RESULT-COMMAND> <COND (<ZERO? ,
|
|
COMBAT-ROUND> <COND (<EQUAL? ,FORK-BANDITS 1 2> <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.">) (T <PRINTI
|
|
"Caught completely unawares, w"> <HINT ,HINT-BANDITS> <BANDITS-KILL-ESHER>)>) (
|
|
T <COND (<FSET? ,ESHER ,IN-PARTY> <PRINTI
|
|
"Just then, a previously unseen attacker approached Esher from behind with
|
|
a large club. Not a moment before he"> <COND (<FSET? ,HERE ,TRIED> <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.">) (T <PRINTI
|
|
" was hit, I screamed a warning, but it was too late. W"> <HINT ,
|
|
HINT-BANDITS-FLANK> <BANDITS-KILL-ESHER>)> <CRLF> <CRLF>)> <COND (<NOT <FSET? ,
|
|
ESHER ,IN-PARTY>> <PRINTI "Our fortunes were finally improving">) (T <PRINTI
|
|
"The battle was "> <COND (<ZERO? ,FORK-BANDITS> <PRINTI "finally ">)> <PRINTI
|
|
"going well">)> <PRINTI "; Bergon"> <COND (<FSET? ,ESHER ,IN-PARTY> <PRINTI
|
|
", Esher,">)> <COND (<FSET? ,MINAR ,IN-PARTY> <PRINTI " and Minar">)> <COND (<
|
|
OR <FSET? ,MINAR ,IN-PARTY> <FSET? ,ESHER ,IN-PARTY>> <PRINTI " were">) (T <
|
|
PRINTI " was">)> <PRINTI " making some deadly hits with "> <COND (<OR <FSET? ,
|
|
MINAR ,IN-PARTY> <FSET? ,ESHER ,IN-PARTY>> <PRINTI "their weapons">) (T <PRINTI
|
|
"his sword">)> <PRINTI
|
|
", and the bandits appeared weaker in their
|
|
resolve to fight, taking ever more to the defensive.">)> <RTRUE>) (<EQUAL? ,
|
|
ACTION ,CAST-COMMAND> <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."> <MAKE-BUSY ,PRAXIX> <NEW-DEFAULT> <RTRUE>) (<AND <
|
|
EQUAL? ,ACTION ,COMBAT-COMMAND> <NOT <FSET? ,BANDITS-FIGHT ,SEEN>> <NOT <FSET?
|
|
,MINAR ,IN-PARTY>> <ZERO? ,COMBAT-ROUND>> <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> <PUTP ,BANDITS ,P?STATUS #ZLOCAL!-IZILCH STACK>
|
|
<RFALSE>) (<EQUAL? ,ACTION ,FLANK-COMMAND> <COND (<EQUAL? ,ACTOR ,MINAR> <
|
|
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.">) (T <
|
|
CHANGE-CIT ,MINAR 1 ,NUL-COMMAND> <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.">)> <CHANGE-CIT ,BERGON 1 ,NUL-COMMAND> <
|
|
NEW-DEFAULT>) (<AND <EQUAL? ,ACTION ,STRENGTH-COMMAND> <FSET? ,BANDITS-FIGHT ,
|
|
SEEN>> <ADD-PARTY-OFFENSE 40> <ADD-PARTY-DEFENSE 10> <RFALSE>) (<EQUAL? ,ACTION
|
|
,ACCEPT-COMMAND> <WPRINTD ,LEADER> <PRINTI ", still troubled, agreed. "> <COND
|
|
(<FSET? ,MINAR ,SEEN> <PRINTI
|
|
"\"It seems we cannot be rid of you,
|
|
so you may as well join us.\" ">)> <PRINTI
|
|
"Praxix appeared uneasy with
|
|
Bergon's decision, but, as for me, I was happy to take any help
|
|
we were offered."> <TRAVEL-COMMANDS ,ESHER ,EXAMINE-COMMAND> <END-OPTION> <
|
|
END-COMBAT #ZLOCAL!-IZILCH FALSE-VALUE> <PARTY-ADD ,MINAR> <RTRUE>) (<EQUAL? ,
|
|
ACTION ,RETREAT-COMMAND> <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.">) (<EQUAL? ,ACTION ,
|
|
PARLEY-COMMAND> <REMOVE-PARTY-COMMAND ,PARLEY-COMMAND> <CHANGE-CIT ,BERGON 1 ,
|
|
NUL-COMMAND> <COND (<FSET? ,MINAR ,IN-PARTY> <CHANGE-CIT ,MINAR 1 ,NUL-COMMAND>
|
|
)> <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.">) (<EQUAL? ,ACTION ,GET-ADVICE-COMMAND> <
|
|
UPDATE-FCLEAR ,HERE ,ADVISE> <PRINTI
|
|
"The group, grateful for Minar's help, was quiet, yet none came out against
|
|
taking in this inscrutable stranger."> <OPTION ,LEADER ,ACCEPT-COMMAND ,
|
|
DECLINE-COMMAND>) (<EQUAL? ,ACTION ,DECLINE-COMMAND> <WPRINTD ,LEADER> <PRINTI
|
|
" was firm. \"We are thankful for your help, but we must "> <COND (<FSET? ,
|
|
MINAR ,SEEN> <PRINTI "again ">)> <PRINTI
|
|
"refuse your offer. Good luck be with you!\" And, "> <COND (<FSET? ,MINAR ,SEEN
|
|
> <PRINTI "as before">) (T <PRINTI "without further ado">)> <PRINTI
|
|
", Minar left, disappearing into the shadows."> <HINT ,HINT-MINAR> <END-OPTION>
|
|
<END-COMBAT #ZLOCAL!-IZILCH FALSE-VALUE> <RTRUE>)>)>
|
|
<DEFINE-ROUTINE ANONF-71>
|
|
<DEFINE-ROUTINE BANDITS-KILL-ESHER>
|
|
<OBJECT BANDITS (SDESC "bandits") (KBD 66) (ATTACK 120 60) (STATUS 100) (
|
|
RETREAT 60) (FLAGS DONT-EXAMINE DONT-TAKE) (SPECIAL-ACTION <EXECUTE () <TELL CR
|
|
"The bandits, finding the fight more than they had bargained for,
|
|
retreated out of sight."> <COND (<FSET? ,BANDITS-FIGHT ,SEEN> <COND (,
|
|
BANDITS-SPELL <UNUSE-ESSENCES ,BANDITS-SPELL> <SET BANDITS-SPELL #
|
|
ZLOCAL!-IZILCH FALSE-VALUE> <PRINTI
|
|
" Praxix, seeing that there was no need for his magic, put away his pouch.">)>
|
|
<CLEAR-BUSY> <PRINTI " A moment later, "> <COND (<FSET? ,MINAR ,SEEN> <PRINTI
|
|
"Minar">) (T <PRINTI "the man we had seen entering the tavern">)> <PRINTI
|
|
" appeared, bow in
|
|
hand. \"I thought you might be needing some help,\" he said, grinning."> <CRLF>
|
|
<CRLF> <COND (<FSET? ,MINAR ,SEEN> <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.">) (T <PRINT ,MINAR-INTRO>)> <OPTION ,LEADER ,ACCEPT-COMMAND ,
|
|
DECLINE-COMMAND ,GET-ADVICE-COMMAND>) (T <END-COMBAT #ZLOCAL!-IZILCH
|
|
FALSE-VALUE>)> <RTRUE>>)>
|
|
<DEFINE-ROUTINE ANONF-72>
|
|
<ROOM SYLMAR (TRAVEL-COMMANDS PROCEED-COMMAND BACK-COMMAND NUL-COMMAND) (
|
|
GRAPHIC G-BEHIND-MOUNTAINS) (FLAGS DANGEROUS) (ENTER <EXECUTE () <COND (<EQUAL?
|
|
,FORK-BANDITS 2 0> <SET OPPONENT ,BANDITS> <SCENE ,BANDITS-FIGHT ,FIGHT-MODE>)>
|
|
>) (ACTION <ACOND () (<EQUAL? ,ACTION ,PROCEED-COMMAND> <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> <COND
|
|
(<AND <NOT <IN? ,ESSENCE-FIRE ,ESSENCES>> <FSET? ,NEWHALL-PASS ,SCOUTED> <NOT <
|
|
IN? ,HINT-MINAR ,HINTS>>> <HINT ,HINT-NO-FIRE>)> <NEXT-DAY 2> <
|
|
GATE-TO-HIGH-PLAIN>) (<EQUAL? ,ACTION ,SCOUT-COMMAND> <UPDATE-FSET ,HERE ,
|
|
DONT-SCOUT> <FSET ,HERE ,SCOUTED> <CAIRN-SCOUT> <RTRUE>) (<EQUAL? ,ACTION ,
|
|
BACK-COMMAND> <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.\""
|
|
>)>)>
|
|
<DEFINE-ROUTINE ANONF-73>
|
|
<DEFINE-ROUTINE ANONF-74>
|
|
<ROOM CANYON-COUNTRY (TRAVEL-COMMANDS PROCEED-COMMAND BACK-COMMAND NUL-COMMAND)
|
|
(GRAPHIC G-CANYON) (FLAGS DANGEROUS) (ENTER <EXECUTE () <COND (<EQUAL? ,
|
|
FORK-BANDITS 1 0> <SET OPPONENT ,BANDITS> <SCENE ,BANDITS-FIGHT ,FIGHT-MODE>)>>
|
|
) (ACTION <ACOND () (<EQUAL? ,ACTION ,PROCEED-COMMAND> <COND (<AND <NOT <IN? ,
|
|
ESSENCE-FIRE ,ESSENCES>> <FSET? ,NEWHALL-PASS ,SCOUTED> <NOT <IN? ,HINT-MINAR ,
|
|
HINTS>>> <HINT ,HINT-NO-FIRE>)> <MOVE-TO ,TUJUNGA-PATH #ZLOCAL!-IZILCH STR?402>
|
|
) (<EQUAL? ,ACTION ,SCOUT-COMMAND> <UPDATE-FSET ,HERE ,DONT-SCOUT> <FSET ,HERE
|
|
,SCOUTED> <CAIRN-SCOUT> <RTRUE>) (<EQUAL? ,ACTION ,BACK-COMMAND> <
|
|
REMOVE-TRAVEL-COMMAND> <COND (<FSET? ,ESHER ,IN-PARTY> <PRINTI
|
|
"Esher, dismayed by our confrontation with the bandits,">) (T <PRINTI
|
|
"Disheartened by the loss of Esher, I">)> <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.">)>)>
|
|
<DEFINE-ROUTINE ANONF-75>
|
|
<DEFINE-ROUTINE ANONF-76>
|
|
<OBJECT CANYON-BODIES (FLAGS DONT-TAKE) (SDESC "bodies") (KBD 66) (EXBITS <+ ,
|
|
PRAXIXBIT ,ESHERBIT>) (ACTION <ACOND () (<EQUAL? ,ACTION ,EXAMINE-COMMAND> <
|
|
CLEAR-EXBIT> <WPRINTD ,ACTOR> <PRINTI " examined the bodies"> <COND (<EQUAL? ,
|
|
ACTOR ,ESHER> <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.\"">) (T <FIND-ESSENCE ,ESSENCE-FIRE 2> <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.\"">)>)>)>
|
|
<DEFINE-ROUTINE ANONF-77>
|
|
<OBJECT CANYON-CAIRN (FLAGS DONT-TAKE) (SDESC "cairn") (KBD 67) (EXBITS <+ ,
|
|
PRAXIXBIT ,ESHERBIT>) (ACTION <ACOND () (<EQUAL? ,ACTION ,EXAMINE-COMMAND> <
|
|
UPDATE-MOVE> <COND (<EQUAL? ,ACTOR ,PRAXIX> <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.">) (T <PRINTI
|
|
"\"This cairn looks like one of ours,\" "> <WPRINTD ,ACTOR> <PRINTI
|
|
" said, looking over the mound
|
|
of carefully piled rocks. \"Not at all like those we passed on the outskirts
|
|
of Lavos.\"">)>)>)>
|
|
<DEFINE-ROUTINE ANONF-78>
|
|
<ROOM TUJUNGA-PATH (TRAVEL-COMMANDS PROCEED-COMMAND CLIMB-COMMAND NUL-COMMAND)
|
|
(GRAPHIC G-CANYON) (ENTER <EXECUTE () <FCLEAR ,WEBBA-MAP ,DONT-EXAMINE>>) (EXIT
|
|
<EXECUTE () <FSET ,WEBBA-MAP ,DONT-EXAMINE>>) (ACTION <ACOND () (<EQUAL? ,
|
|
ACTION ,SCOUT-COMMAND> <UPDATE-FSET ,HERE ,DONT-SCOUT> <FSET ,HERE ,SCOUTED> <
|
|
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.">) (<EQUAL? ,ACTION ,
|
|
PROCEED-COMMAND> <NEXT-DAY> <MOVE-TO ,CANYON-GATE #ZLOCAL!-IZILCH STR?405>) (<
|
|
EQUAL? ,ACTION ,CLIMB-COMMAND> <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> <GRAPHIC ,G-HIGH-PLAIN> <NEXT-DAY> <MOVE-TO ,
|
|
HIGH-PLAIN #ZLOCAL!-IZILCH STR?406>)>)>
|
|
<DEFINE-ROUTINE ANONF-79>
|
|
<DEFINE-ROUTINE ANONF-80>
|
|
<DEFINE-ROUTINE ANONF-81>
|
|
<DEFINE-ROUTINE CAIRN-SCOUT>
|
|
<ROOM CANYON-GATE (TRAVEL-COMMANDS PROCEED-COMMAND NUL-COMMAND NUL-COMMAND) (
|
|
GRAPHIC G-CANYON) (ENTER <EXECUTE () <COND (<AND ,2ND-PASS <NOT <FSET? ,MINAR ,
|
|
IN-PARTY>> <NOT <FSET? ,ESHER ,IN-PARTY>> <NOT <FSET? ,DWARF-MEETING ,TRIED>>>
|
|
<ADD-PARTY-COMMAND ,COMB-AREA-COMMAND>)>>) (ACTION <ACOND () (<EQUAL? ,ACTION ,
|
|
PROCEED-COMMAND> <MOVE-TO ,ANGELES-PATH #ZLOCAL!-IZILCH STR?407>) (<EQUAL? ,
|
|
ACTION ,COMB-AREA-COMMAND> <REMOVE-TRAVEL-COMMAND> <PRINTI
|
|
"We split up into two groups in search of the Dwarves' gate; Praxix and I
|
|
went toward the hills, and "> <COND (<EQUAL? ,PARTY-MAX 3> <PRINTI "Bergon">) (
|
|
T <PRINTI "the others">)> <PRINTI
|
|
" followed the canyon floor. Before
|
|
long, I found that I had wandered out of sight of Praxix."> <OPTION ,TAG ,
|
|
LOOK-AROUND-COMMAND ,GET-HELP-COMMAND>) (<EQUAL? ,ACTION ,SCOUT-COMMAND> <
|
|
UPDATE-FSET ,HERE ,DONT-SCOUT> <FSET ,HERE ,SCOUTED> <FSET ,HERE ,SCOUTED> <SET
|
|
KIDNAPPED ,ACTOR> <PARTY-REMOVE ,ACTOR> <COND (<AND <NOT <FSET? ,ESHER ,
|
|
IN-PARTY>> <NOT <FSET? ,MINAR ,IN-PARTY>>> <REMOVE-TRAVEL-COMMAND ,HERE ,
|
|
PROCEED-COMMAND>)> <WPRINTD ,LEADER> <PRINTI " sent "> <WPRINTD ,ACTOR> <PRINTI
|
|
" off to scout around the
|
|
area, which he did. After an hour, though, he had not returned and "> <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 "> <COND (<EQUAL? ,PARTY-MAX 3> <PRINTI "Bergon">) (T <
|
|
PRINTI "the others">)> <PRINTI
|
|
" followed the canyon floor. Before long, I found that I
|
|
had wandered out of sight of Praxix."> <MAKE-SUBGROUP ,TAG> <OPTION ,TAG ,
|
|
LOOK-AROUND-COMMAND ,GET-HELP-COMMAND>) (<EQUAL? ,ACTION ,LOOK-AROUND-COMMAND>
|
|
<COND (<QSET? ,HERE ,SEEN> <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.">) (T <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."> <OPTION ,TAG ,LOOK-AROUND-COMMAND ,
|
|
GET-HELP-COMMAND ,RETURN-COMMAND>)>) (<EQUAL? ,ACTION ,GET-HELP-COMMAND> <COND
|
|
(<AND <NOT <FSET? ,HERE ,SEEN>> <NOT ,2ND-PASS>> <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 "> <WPRINTD ,KIDNAPPED> <PRINTI ".\""> <CRLF> <CRLF> <SET ACTION ,
|
|
RETURN-COMMAND> <AGAIN>) (T <COND (,2ND-PASS <PRINTI
|
|
"Unhappy at exploring alone">) (T <PRINTI
|
|
"Eager to share my discovery with the others">)> <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 "> <COND (<FSET? ,
|
|
HERE ,SEEN> <PRINTI "the runes that I had discovered.">) (T <GRAPHIC ,
|
|
G-GATE-RUNES> <PRINTI
|
|
"some runes that I hadn't noticed before,
|
|
chiselled into the stone.">)> <CRLF> <CRLF> <PRINTI "Praxix then called for ">
|
|
<COND (<EQUAL? ,PARTY-MAX 3> <PRINTI "Bergon">) (T <PRINTI "the others">)> <
|
|
PRINTI ", who hurried to our side."> <CRLF> <CRLF> <CANYON-GATE-OPENS>)>) (<
|
|
EQUAL? ,ACTION ,ENTER-COMMAND> <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> <COND (
|
|
<FSET? ,PRAXIX ,LIT> <PRINTI
|
|
"We were fortunate indeed that Praxix had magically caused his staff to
|
|
glow, for the cavern itself was black as pitch.">) (T <COND (<FSET? ,ESHER ,
|
|
IN-PARTY> <PRINTI
|
|
"\"I don't suppose we have a torch anywhere,\" said Esher, knowing fully
|
|
well that we didn't. ">)> <PRINTI
|
|
"It was dark as pitch, the outline of the gate as invisible now as it had been
|
|
earlier.">)> <MOVE-TO ,BERN-I-LAV>) (<EQUAL? ,ACTION ,RETURN-COMMAND> <PRINTI
|
|
"Filled with apprehension, I returned to our camp. Before long the others had
|
|
also returned; there was no trace of "> <COND (,KIDNAPPED <WPRINTD ,KIDNAPPED>
|
|
<PRINTI "!">) (T <PRINTI "a gate.">)> <COND (<NOT <FSET? ,HERE ,SEEN>> <CRLF> <
|
|
CRLF> <PRINTI "\"We must face the fact that "> <WPRINTD ,KIDNAPPED> <PRINTI
|
|
" is gone,\" Praxix said.
|
|
\"Let us continue on our way.\""> <END-OPTION> <CLEAR-SUBGROUP> <
|
|
FORCE-TRAVEL-COMMAND ,HERE ,PROCEED-COMMAND> <RTRUE>)> <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. "> <
|
|
CANYON-GATE-OPENS>)>)>
|
|
<DEFINE-ROUTINE ANONF-82>
|
|
<DEFINE-ROUTINE ANONF-83>
|
|
<DEFINE-ROUTINE CANYON-GATE-OPENS>
|
|
<DEFINE-ROUTINE CAVERN-GRAPHIC>
|
|
<ROOM BERN-I-LAV (TRAVEL-COMMANDS EXIT-COMMAND PROCEED-COMMAND NUL-COMMAND) (
|
|
FLAGS UNDERGROUND DONT-SCOUT) (ENTER CAVERN-GRAPHIC) (ACTION <ACOND () (<EQUAL?
|
|
,ACTION ,EXIT-COMMAND> <REMOVE-TRAVEL-COMMAND> <PRINTI
|
|
"We groped for the gate itself, or for some device that would open it, but
|
|
to no avail.">) (<EQUAL? ,ACTION ,PROCEED-COMMAND> <COND (<NOT <FSET? ,PRAXIX ,
|
|
LIT>> <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>)> <MOVE-TO ,DWARF-MEETING-LOC #ZLOCAL!-IZILCH STR?408>) (<EQUAL?
|
|
,ACTION ,CAST-COMMAND> <COND (<EQUAL? ,ACTION-OBJECT ,LIGHT-SPELL> <
|
|
CAVERN-GRAPHIC> <CAST-LIGHT>)>)>)>
|
|
<DEFINE-ROUTINE ANONF-84>
|
|
<ROOM ANGELES-PATH (TRAVEL-COMMANDS PROCEED-COMMAND CLIMB-COMMAND NUL-COMMAND)
|
|
(GRAPHIC G-CANYON) (ACTION <ACOND () (<EQUAL? ,ACTION ,PROCEED-COMMAND> <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> <MOVE-TO-FOREST-RIDGE>) (<EQUAL? ,ACTION ,
|
|
SCOUT-COMMAND> <UPDATE-FSET ,HERE ,DONT-SCOUT> <FSET ,HERE ,SCOUTED> <COND (<
|
|
EQUAL? ,ACTOR ,MINAR> <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.\"">) (T <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.\"">)>) (<EQUAL? ,ACTION ,CLIMB-COMMAND> <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> <NEXT-DAY> <MOVE-TO ,HIGH-PLAIN #
|
|
ZLOCAL!-IZILCH STR?409>)>)>
|
|
<DEFINE-ROUTINE ANONF-85> |