710 lines
43 KiB
Plaintext
710 lines
43 KiB
Plaintext
|
|
<BEGIN-SEGMENT CASTLE>
|
|
<ROOM FOG-CAMP (TRAVEL-COMMANDS PROCEED-COMMAND NUL-COMMAND NUL-COMMAND) (ENTER
|
|
<EXECUTE () <FCLEAR ,PRAXIX ,LIT>>) (ACTION <ACOND () (<EQUAL? ,ACTION ,
|
|
SCOUT-COMMAND> <UPDATE-FSET ,HERE ,DONT-SCOUT> <FSET ,HERE ,SCOUTED> <WPRINTD ,
|
|
ACTOR> <PRINTI " tried to scout out the area, but the heavy mist made his task all
|
|
but impossible."> <CRLF> <CRLF> <COND (<EQUAL? ,ACTOR ,HURTH> <PRINTI
|
|
"\"I cannot say what lies ahead,\" he announced, \"though I have found
|
|
some heavy tracks in the mud which I fear to be orc footprints. We must be
|
|
careful, and move quietly!\"">) (T <PRINTI
|
|
"\"It's not good,\" he said, \"There are footprints in the mud just ahead,
|
|
and I doubt their owners are friendly.\"">)>) (<EQUAL? ,ACTION ,PROCEED-COMMAND
|
|
> <PRINTI "Early the next morning, we started again. The air was heavy with mist,
|
|
and it was difficult to see just a few paces before us. We had been moving
|
|
silently for an hour when "> <WPRINTD ,LEADER> <PRINTI " became alarmed."> <
|
|
CRLF> <CRLF> <PRINTI
|
|
"Gathering together, we soon learned that Praxix was missing from our
|
|
ranks. \"Praxix! Praxix!\" we called, but there was no reply, only the
|
|
sounds of the forest."> <CRLF> <CRLF> <PRINTI
|
|
"\"Praxix! Praxix!\" The words fell only upon the deaf ears of the forest."> <
|
|
DIVIDER> <MAKE-SUBGROUP ,PRAXIX> <MOVE-TO ,TREE-FORK>)>)>
|
|
<DEFINE-ROUTINE ANONF-265>
|
|
<DEFINE-ROUTINE ANONF-266>
|
|
<COMMAND ASK-TREE O-ASK-TREE () <TELL-TALE ,ACTION-OBJECT> <RTRUE>>
|
|
<DEFINE-ROUTINE V-ASK-TREE>
|
|
<DEFINE-ROUTINE O-ASK-TREE>
|
|
<OBJECT ASK-TREE-OBJECTS>
|
|
<OBJECT ASK-TREE-LOCATION (LOC ASK-TREE-OBJECTS) (SDESC "location") (KBD 76) (
|
|
TEXT <EXECUTE () <TELL
|
|
"\"Where am I?\" Praxix asked, thinking it might help. It didn't." CR CR> <TELL
|
|
"\"You're here with me,\" the tree replied." CR CR> <TELL
|
|
"\"And where would that be?\" Praxix tried." CR CR> <TELL
|
|
"\"In the forest?\" the tree replied uncertainly, trying his best to be
|
|
helpful." CR CR> <TELL
|
|
"Praxix slumped to the ground, rubbing his head. This was shaping up to
|
|
be a miserable day, he thought. Best to leave this leaf-laden philosopher
|
|
and try to find the others.">>)>
|
|
<DEFINE-ROUTINE ANONF-267>
|
|
<OBJECT ASK-TREE-PATHS (LOC ASK-TREE-OBJECTS) (SDESC "paths") (KBD 80) (TEXT <
|
|
EXECUTE () <FSET ,ASK-TREE-PATHS ,SEEN> <TRAVEL-COMMANDS ,HERE ,
|
|
MILKY-WAY-COMMAND ,ROAD-TO-RUIN-COMMAND ,GARDEN-PATH-COMMAND> <UPDATE-REMOVE ,
|
|
ACTION-OBJECT> <TELL
|
|
"Hoping at least to get some useful information from this root-bound
|
|
nuisance, Praxix asked, \"Do you know where these paths lead?\"" CR CR> <TELL
|
|
"\"Why, of course; on the left is the Milky Way, right in front of you is
|
|
the road to ruin, and here on the right is the garden path,\" the tree replied
|
|
matter-of-factly." CR CR> <TELL
|
|
"\"I don't suppose you have a preference,\" Praxix asked with little
|
|
hope." CR CR> <TELL
|
|
"\"No, I've never felt the need for one,\" the tree responded, \"I'm not
|
|
going much of anywhere.\" And with that, he shook a few branches to indicate
|
|
the limits of his movement.">>)>
|
|
<DEFINE-ROUTINE ANONF-268>
|
|
<COMMAND (ROAD-TO-RUIN RUIN)>
|
|
<COMMAND MILKY-WAY>
|
|
<COMMAND (GARDEN-PATH GARDEN)>
|
|
<ROOM TREE-FORK (TRAVEL-COMMANDS LEFT-COMMAND CENTER-COMMAND RIGHT-COMMAND) (
|
|
ENTER <EXECUTE () <COND (<NOT <QSET? ,HERE ,SEEN>> <PRINTI
|
|
"\"Praxix! Praxix!\" the voice cried out. \"Wake up!\""> <CRLF> <CRLF> <GRAPHIC
|
|
,G-TALKING-TREE> <PRINTI
|
|
"Praxix rose slowly and took stock of his situation. After separating
|
|
from the group, he had wandered aimlessly through the dense fog for the
|
|
better part of the morning before stopping to indulge in the tasty, red
|
|
berries that blanketed the ground beneath him. And then, he fell into
|
|
a deep, yet restless, sleep."> <CRLF> <CRLF> <PRINTI
|
|
"Now, someone was calling him, but who? He swung around, but found himself
|
|
alone. His head ached, and he wished for nothing more than to be left in
|
|
peace until the pain subsided."> <CRLF> <CRLF> <PRINTI
|
|
"\"Praxix! Don't you have anything better to do,\" the voice continued,
|
|
\"than to sleep the day away?\""> <CRLF> <CRLF> <PRINTI
|
|
"Praxix swung around again and faced a modest-sized oak tree as it was just
|
|
finishing the preceding question. \"You know my name?\" he asked, startled
|
|
more by the personal reference than the fact that he was being addressed in
|
|
whatever fashion by the local flora."> <CRLF> <CRLF> <PRINTI
|
|
"\"Why, of course!\" the tree replied enthusiastically. \"All trees sing your
|
|
praises.\""> <CRLF> <CRLF> <PRINTI
|
|
"\"They do?\" Praxix responded coyly, for he was not above flattery."> <CRLF> <
|
|
CRLF> <PRINTI "\"Oh, my, yes! We know how you helped old Tully when his house caught fire.
|
|
And then there was the poor Helspar widow, how you helped her...\""> <CRLF> <
|
|
CRLF> <PRINTI "\"Yes, yes, I see,\" Praxix interrupted, not wishing to pursue the matter
|
|
further. But he did not see, at least very clearly, and his head throbbed
|
|
in much the same way that he expected the Tremor spell would cause if cast
|
|
upon his cranium."> <TRAVEL-COMMANDS ,PRAXIX ,CAST-COMMAND ,ASK-TREE-COMMAND ,
|
|
EXAMINE-COMMAND>)>>) (EXIT FIXUP-PRAXIX-COMMANDS) (ACTION <ACOND () (<OR <
|
|
EQUAL? ,ACTION ,LEFT-COMMAND> <EQUAL? ,ACTION ,MILKY-WAY-COMMAND>> <COND (<IN?
|
|
,TALKING-TREE ,HERE> <LEAVE-TREE #ZLOCAL!-IZILCH STR?55>) (T <PRINTI
|
|
"This time he took the leftmost path. ">)> <PRINT ,PATH-TO-MILL> <MOVE-TO ,MILL
|
|
>) (<OR <EQUAL? ,ACTION ,CENTER-COMMAND> <EQUAL? ,ACTION ,ROAD-TO-RUIN-COMMAND>
|
|
> <COND (<IN? ,TALKING-TREE ,HERE> <LEAVE-TREE #ZLOCAL!-IZILCH STR?172>) (T <
|
|
PRINTI "This time he took the center path. ">)> <PRINTI
|
|
"Although the path twisted its way through the forest, it had been a more
|
|
important thoroughfare long ago, as evidenced by the crumbling stonework lying
|
|
by the wayside. "> <PRINT ,MOAT-DESC> <MOVE-TO ,OUTSIDE-MOAT>) (<EQUAL? ,ACTION
|
|
,RIGHT-COMMAND> <REMOVE-TRAVEL-COMMAND> <GUARDED-PATH>) (<EQUAL? ,ACTION ,
|
|
GARDEN-PATH-COMMAND> <REMOVE-TRAVEL-COMMAND> <GUARDED-PATH>)>)>
|
|
<DEFINE-ROUTINE ANONF-269>
|
|
<DEFINE-ROUTINE ANONF-270>
|
|
<CONSTANT PATH-TO-MILL
|
|
"The path snaked and wound its way toward the west, ending at the
|
|
side of a river, which Praxix assumed to be the very same that
|
|
we had followed from the underground caverns. The remains of an
|
|
old building stood here, crumbling; inside, a badly rusted
|
|
mechanism sat. Praxix imagined it would be used for the grinding
|
|
of grain.">
|
|
<CONSTANT MOAT-DESC
|
|
"Soon the forest
|
|
gave way to a clearing, in the middle of which stood the ruins of a moated
|
|
castle. What little remained of the bridge hung tentatively over the
|
|
water, making any crossing a speculative affair.">
|
|
<OBJECT MILL-MACHINERY (SDESC "mechanism") (8DESC "machine") (KBD 77) (LOC MILL
|
|
) (EXBITS PRAXIXBIT) (FLAGS DONT-TAKE) (ACTION <ACOND () (<EQUAL? ,ACTION ,
|
|
EXAMINE-COMMAND> <UPDATE-MOVE> <FSET ,MILL-MACHINERY ,EXAMINED> <FSET ,HERE ,
|
|
NEAR-DARK> <PRINTI
|
|
"Badly rusted from many years of disuse, the mill machinery stood as it
|
|
had for countless years. Praxix attempted to turn the great water wheel,
|
|
but it had rusted to the point of inoperability. He did, however, notice
|
|
a small passageway leading down from the machinery into a darker area below.">
|
|
<ADD-TRAVEL-COMMAND ,HERE ,DOWN-COMMAND>)>)>
|
|
<DEFINE-ROUTINE ANONF-271>
|
|
<DEFINE-ROUTINE MILL-TO-ASTRIX>
|
|
<ROOM MILL (TRAVEL-COMMANDS PROCEED-COMMAND NUL-COMMAND NUL-COMMAND) (GRAPHIC
|
|
G-MILL) (ENTER FSET-SEEN) (CLOCK <EXECUTE () <COND (<AND <FSET? ,PRAXIX ,LIT> <
|
|
FSET? ,MILL-MACHINERY ,EXAMINED>> <FORCE-TRAVEL-COMMAND ,HERE ,DOWN-COMMAND>)>>
|
|
) (ACTION <ACOND ("AUX" TMP) (<EQUAL? ,ACTION ,DOWN-COMMAND> <COND (<NOT <FSET?
|
|
,PRAXIX ,LIT>> <REMOVE-TRAVEL-COMMAND> <PRINTI
|
|
"It took only a few steps for Praxix to realize that the path leading inside
|
|
the mill mechanism was dark and potentially dangerous. Rather than risk injury,
|
|
he returned to the open air.">) (T <COND (<NOT ,SUBGROUP-MODE> <PRINTI
|
|
"Praxix insisted in exploring the mechanism himself, and we soon wished that
|
|
he hadn't."> <CRLF> <CRLF> <MAKE-SUBGROUP ,PRAXIX>)> <PRINTI
|
|
"At first, it appeared that the passage was merely some maintenance path with
|
|
access to the internal working parts of the mill mechanism. However, the path
|
|
soon reached a set of stone steps that led down beneath ground level, ending
|
|
at the junction of two paths."> <CRLF> <CRLF> <PRINTI
|
|
"But no sooner had Praxix started to think about where to proceed next, the
|
|
ground collapsed beneath the steps, and the resulting avalanche of stone
|
|
completely buried his only known route to the outside."> <MOVE-TO ,XFER-JCN> <
|
|
SET TMP <ADD #ZLOCAL!-IZILCH STACK 1>> <SETG TAG-SWAP-CHR <GET ,PARTY .TMP>> <
|
|
PUT ,PARTY #ZLOCAL!-IZILCH STACK ,TAG-SWAP-CHR> <PUT ,PARTY .TMP ,TAG> <FSET ,
|
|
TAG ,SHADOW> <SCENE ,MILL-SCENE>)>) (<EQUAL? ,ACTION ,PROCEED-COMMAND> <
|
|
LEAVE-MILL-AREA>)>)>
|
|
<DEFINE-ROUTINE ANONF-272>
|
|
<DEFINE-ROUTINE ANONF-273>
|
|
<OBJECT MILL-SCENE (ACTION <ACOND () (<EQUAL? ,ACTION ,INVENTORY-COMMAND> <
|
|
PRINTI "Praxix took stock of his possessions finding "> <COND (<NOT <
|
|
LIST-CONTENTS ,INVENTORY>> <PRINTI "only">) (T <PRINTI " and">)> <PRINTI
|
|
" his magical paraphenalia - his staff and pouch of powders."> <UPDATE-FSET ,
|
|
HERE ,INVENTORIED>) (<EQUAL? ,ACTION ,DROP-COMMAND> <COND (<EQUAL? ,HERE ,
|
|
XFER-1-ANTE ,XFER-2-ANTE ,XFER-3-ANTE> <UPDATE-MOVE ,ACTION-OBJECT #
|
|
ZLOCAL!-IZILCH STACK> <PRINTI
|
|
"Thinking it might be helpful, Praxix dropped the "> <WPRINTD ,ACTION-OBJECT> <
|
|
PRINTI " over the railing and
|
|
down to the bottom of the pit, where it landed "> <COND (<EQUAL? ,HERE ,
|
|
XFER-1-ANTE> <PRINTI "almost immediately.">) (T <PRINTI
|
|
"more than a couple of seconds later."> <CRLF> <CRLF> <PRINTI
|
|
"\"An awfully long way down,\" he said, gazing absently into the abyss.">)>) (T
|
|
<PRINTI "Praxix thought to drop the "> <WPRINTD ,ACTION-OBJECT> <PRINTI
|
|
", but felt it imprudent to do so.">)>)>)>
|
|
<DEFINE-ROUTINE ANONF-274>
|
|
<GLOBAL TAG-SWAP-CHR <>>
|
|
<DEFINE-ROUTINE LEAVE-MILL-AREA>
|
|
<DEFINE-ROUTINE LEAVE-TREE>
|
|
<DEFINE-ROUTINE GUARDED-PATH>
|
|
<OBJECT MOAT-BRIDGE (SDESC "bridge") (FLAGS DONT-TAKE) (ACTION <ACOND () (<
|
|
EQUAL? ,ACTION ,EXAMINE-COMMAND> <UPDATE-MOVE> <PRINTI
|
|
"Praxix' eye passed along the course of the bridge. Once supported by
|
|
huge stone pillars which rose high into the air, the roadway was now
|
|
barely suspended above the water, its wooden planking rotted nearly to
|
|
non-existence.">)>)>
|
|
<DEFINE-ROUTINE ANONF-275>
|
|
<OBJECT MOAT-WATER (SDESC "water") (FLAGS DONT-TAKE) (ACTION <ACOND () (<EQUAL?
|
|
,ACTION ,EXAMINE-COMMAND> <UPDATE-MOVE> <PRINTI
|
|
"Looking down at the moat itself was none too pleasant; the water had a
|
|
dark greenish cast, and strange red weeds covered much of the surface.
|
|
Every so often, large bubbles of air surfaced, from what source Praxix
|
|
could only imagine.">)>)>
|
|
<DEFINE-ROUTINE ANONF-276>
|
|
<ROOM OUTSIDE-MOAT (TRAVEL-COMMANDS CROSS-COMMAND NUL-COMMAND NUL-COMMAND) (
|
|
GRAPHIC G-MOAT) (ENTER <EXECUTE () <UPDATE-MOVE ,MOAT-BRIDGE ,HERE> <
|
|
UPDATE-MOVE ,MOAT-WATER ,HERE>>) (ACTION <ACOND () (<EQUAL? ,ACTION ,
|
|
CROSS-COMMAND> <PRINTI
|
|
"Praxix decided to explore the castle; gingerly, he made his way
|
|
across the bridge, the boards creaking and groaning with each step he
|
|
took. Halfway across, the board beneath his feet gave way, and he
|
|
was nearly over the side when his arm caught hold of a supporting brace.
|
|
Pulling himself to his feet, he realized that getting to the castle and
|
|
back again would be chancy at best."> <MOVE-TO ,CASTLE-BRIDGE>)>)>
|
|
<DEFINE-ROUTINE ANONF-277>
|
|
<DEFINE-ROUTINE ANONF-278>
|
|
<ROOM CASTLE-BRIDGE (TRAVEL-COMMANDS PROCEED-COMMAND BACK-COMMAND NUL-COMMAND)
|
|
(FLAGS DONT-CAST) (ENTER FSET-SEEN) (ACTION <ACOND () (<EQUAL? ,ACTION ,
|
|
PROCEED-COMMAND> <PRINTI
|
|
"Resolved to go on, Praxix took greater care in crossing the final
|
|
half of the bridge, arriving with no further incident to himself.
|
|
The bridge was another matter; having had just about enough from
|
|
the long ages, it crumbled and sank into the moat, leaving behind a
|
|
single large pier standing (or, rather, leaning) near the moat's midpoint."> <
|
|
CRLF> <CRLF> <PRINTI
|
|
"What remained of an ancient castle lay before him and he walked eagerly
|
|
into what would have been the courtyard. Of the four towers which had guarded
|
|
this fortress, only one stood, and that only barely; the others lay
|
|
in piles of broken stone and mortar."> <MOVE-TO ,CASTLE-COURTYARD>) (<EQUAL? ,
|
|
ACTION ,BACK-COMMAND> <PRINTI
|
|
"Not wishing to chance being trapped on the castle grounds, Praxix returned
|
|
to the safety of the near shore. "> <COND (<FSET? ,MILL ,SEEN> <MILL-TO-ASTRIX>
|
|
) (T <PRINTI "Following the only path nearby, he re-entered the forest and was soon
|
|
at the edge of the river he presumed to be the same we had followed in
|
|
leaving the lower levels of the caverns. At the river's edge stood the
|
|
crumbling remains of an old mill building."> <MOVE-TO ,MILL>)>)>)>
|
|
<DEFINE-ROUTINE ANONF-279>
|
|
<COMMAND TOWER>
|
|
<OBJECT CASTLE-COURTYARD-RUINS (SDESC "ruins") (LOC CASTLE-COURTYARD) (ACTION <
|
|
ACOND () (<EQUAL? ,ACTION ,EXAMINE-COMMAND> <UPDATE-MOVE> <PRINTI
|
|
"Praxix made a complete circle gazing at the remains of this castle.
|
|
Besides the fragments of three towers and the ghostly spectre of the
|
|
fourth, little remained to tell the tale of the castle's past.">)>)>
|
|
<DEFINE-ROUTINE ANONF-280>
|
|
<ROOM CASTLE-COURTYARD (TRAVEL-COMMANDS TOWER-COMMAND MOAT-COMMAND NUL-COMMAND)
|
|
(CAST-LIMIT 3) (GRAPHIC G-COURTYARD) (ENTER <EXECUTE () <FSET ,HERE ,SEEN> <
|
|
COND (<AND <OR <FSET? ,CASTLE-TOWER ,SEEN> ,PRAXIX-SIGNAL> <OR <FSET? ,
|
|
CASTLE-TROVE ,SEEN> <AND <NOT <FSET? ,UMBER ,IN-PARTY>> <FSET? ,CASTLE-DUNGEON
|
|
,SEEN>>>> <COND (,PRAXIX-SIGNAL <CRLF> <CRLF> <PRAXIX-WAITS-FOR-PARTY>) (T <
|
|
REMOVE-TRAVEL-COMMAND ,HERE ,TOWER-COMMAND> <COND (<EQUAL? #ZLOCAL!-IZILCH
|
|
STACK ,NUL-COMMAND> <CRLF> <CRLF> <PRINTI
|
|
"And so it was that Praxix became stranded on this man-made island,
|
|
with no means of escape and no help in sight."> <COND (<AND <NOT <
|
|
CHECK-ESSENCES ,FAR-VISION-SPELL>> <NOT <CHECK-ESSENCES ,LIGHTNING-SPELL>> <NOT
|
|
<CHECK-ESSENCES ,RAIN-SPELL>>> <HINT ,HINT-SIGNAL> <DIVIDER> <PRINTI
|
|
"The rest of us, having lost hope of reuniting with Praxix, slowly made
|
|
our way back to Astrix. Sadly, we never saw Praxix again."> <PART-TWO-ENDING>)>
|
|
)>)>)>>) (ACTION <ACOND () (<SENDING-SIGNAL?> <PRAXIX-SENDS-SIGNAL>) (<EQUAL? ,
|
|
ACTION ,TOWER-COMMAND> <PRINTI
|
|
"Walking into the base of the tower, he saw two staircases, one rising
|
|
to the battlements above, the other descending beneath the ground into
|
|
darkness."> <MOVE-TO ,CASTLE-BASE>) (<EQUAL? ,ACTION ,MOAT-COMMAND> <PRINTI
|
|
"Heading back toward the moat, Praxix surveyed the damage. Hardly a piece
|
|
of the collapsed bridge remained above the surface; there would be no
|
|
crossing here. And as for the water, it looked no more appetizing than when
|
|
he first cast his eyes upon it."> <TRAVEL-COMMANDS ,HERE ,TOWER-COMMAND> <
|
|
UPDATE-MOVE ,MOAT-WATER ,INSIDE-MOAT> <MOVE-TO ,INSIDE-MOAT>)>)>
|
|
<DEFINE-ROUTINE ANONF-281>
|
|
<DEFINE-ROUTINE ANONF-282>
|
|
<DEFINE-ROUTINE SENDING-SIGNAL?>
|
|
<COMMAND MOAT>
|
|
<ROOM INSIDE-MOAT (TRAVEL-COMMANDS COURTYARD-COMMAND SWIM-COMMAND NUL-COMMAND)
|
|
(CAST-LIMIT 3) (GRAPHIC G-COURTYARD) (ACTION <ACOND () (<AND <EQUAL? ,ACTION ,
|
|
CAST-COMMAND> <OR <EQUAL? ,ACTION-OBJECT ,WIND-SPELL> <EQUAL? ,ACTION-OBJECT ,
|
|
LEVITATE-SPELL>> <NOT <QSET? ,HERE ,ENCHANTED>>> <UNUSE-ESSENCES> <PRINTI
|
|
"Praxix considered using some combination of elevation and wind to get him
|
|
across the moat, but first he did some figuring. And the figuring told him
|
|
that he was an odds-on favorite to land inside of the moat rather than beyond
|
|
it. Praxix was not by nature a betting man, and it occurred to him that
|
|
this would be a poor time to start."> <CRLF> <CRLF> <PRINTI
|
|
"\"I could use a good length of rope,\" he said to a bird which had
|
|
just perched nearby. \"If the others were here, I wouldn't have this
|
|
problem, would I?\"">) (<SENDING-SIGNAL?> <PRAXIX-SENDS-SIGNAL>) (<EQUAL? ,
|
|
ACTION ,COURTYARD-COMMAND> <PRINTI
|
|
"There was little for Praxix to do here than wonder how he had gotten
|
|
himself into this predicament, so he returned to the courtyard."> <MOVE-TO ,
|
|
CASTLE-COURTYARD>) (<EQUAL? ,ACTION ,SWIM-COMMAND> <REMOVE-TRAVEL-COMMAND> <
|
|
PRINTI "It occurred to Praxix to swim across the moat, but he decided to test the
|
|
waters first. So, removing his shoe, he dipped an unwilling toe into the
|
|
moat. The first sensation he felt was warmth; then, an odd tingling
|
|
feeling gripped him. The water's surface rippled disturbingly, and Praxix
|
|
swore he felt something pincer-like grab at his toe just as he pulled
|
|
it from the water. Needless to say, Praxix gave up any thought of
|
|
subjecting other body parts to the moat.">)>)>
|
|
<DEFINE-ROUTINE ANONF-283>
|
|
<COMMAND COURTYARD>
|
|
<ROOM CASTLE-BASE (TRAVEL-COMMANDS UP-COMMAND DOWN-COMMAND COURTYARD-COMMAND) (
|
|
ENTER <EXECUTE () <COND (<OR <NOT <FSET? ,CASTLE-TOWER ,SEEN>> <NOT <FSET? ,
|
|
CASTLE-DUNGEON ,SEEN>>> <REMOVE-PARTY-COMMAND ,COURTYARD-COMMAND>)>>) (GRAPHIC
|
|
G-COURTYARD) (ACTION <ACOND () (<EQUAL? ,ACTION ,UP-COMMAND> <COND (<FSET? ,
|
|
CASTLE-TOWER ,SEEN> <REMOVE-TRAVEL-COMMAND>)> <PRINTI "Praxix"> <COND (<FSET? ,
|
|
UMBER ,IN-PARTY> <PRINTI ", with Umber in tow,">)> <PRINTI
|
|
" climbed the crumbling stairs and was soon atop the tower."> <MOVE-TO ,
|
|
CASTLE-TOWER>) (<EQUAL? ,ACTION ,DOWN-COMMAND> <CASTLE-DUNGEON-MOVE>) (<EQUAL?
|
|
,ACTION ,COURTYARD-COMMAND> <PRINTI
|
|
"From there, it was a short walk back to the courtyard."> <MOVE-TO ,
|
|
CASTLE-COURTYARD>)>)>
|
|
<DEFINE-ROUTINE ANONF-284>
|
|
<DEFINE-ROUTINE ANONF-285>
|
|
<DEFINE-ROUTINE CASTLE-DUNGEON-MOVE>
|
|
<ROOM CASTLE-TOWER (TRAVEL-COMMANDS DOWN-COMMAND NUL-COMMAND NUL-COMMAND) (
|
|
CAST-LIMIT 3) (ENTER <EXECUTE () <COND (<NOT <QSET? ,HERE ,SEEN>> <GRAPHIC ,
|
|
G-UMBER> <PRINTI
|
|
" Much to his surprise, he was not alone, for a man was already there,
|
|
leaning over a battlement and staring toward the distant horizon. As
|
|
Praxix approached, the man turned and greeted him with unrestrained
|
|
enthusiasm, as though he were a dear friend long absent and presumed
|
|
dead."> <CRLF> <CRLF> <PRINTI
|
|
"\"Ah, Praxix, my friend! We meet again!\" he said."> <CRLF> <CRLF> <PRINTI
|
|
"Praxix approached this too cheerful young man of whom he had no particular
|
|
recollection. \"Does this mean we have met before?\" he asked."> <CRLF> <CRLF>
|
|
<PRINTI "\"Yes we have, though you were somewhat - what's the word -
|
|
confused?\" he replied, and leaned forward towards Praxix' mouth,
|
|
sniffing."> <CRLF> <CRLF> <PRINTI "\"Indeed?\" said Praxix, eyebrows raised.">
|
|
<CRLF> <CRLF> <PRINTI "\"No. I think I meant to say 'incoherent.' "> <COND (,
|
|
ASK-TREE-PATHS <PRINTI
|
|
"First, you told all sorts of odd stories about yourself, and then you asked
|
|
some questions. Told you about these ruins, as a matter of fact.">) (T <PRINTI
|
|
"You told me all sorts of stories about yourself, then ran off.">)> <PRINTI
|
|
" I don't mean to be getting personal, seeing as how we've
|
|
just barely met, but I'd be staying away from those berries if I were
|
|
you. At least early in the day.\""> <CRLF> <CRLF> <PRINTI
|
|
"\"Ah, yes. I do remember,\" Praxix admitted, turning the faintest shade
|
|
of red. There was no talking tree, he realized; only a vivid
|
|
hallucination brought upon, apparently, by the berries he had indulged
|
|
in earlier in the day."> <CRLF> <CRLF> <PRINTI
|
|
"\"I don't know about you, but I could use a little company. May I join
|
|
you?\" the man asked."> <OPTION ,PRAXIX ,ACCEPT-COMMAND ,DECLINE-COMMAND>) (T <
|
|
GRAPHIC ,G-UMBER>)>>) (ACTION <ACOND ("AUX" (CNT 0) CHR) (<EQUAL? ,ACTION ,
|
|
DOWN-COMMAND> <COND (<OR <FSET? ,CASTLE-TROVE ,SEEN> <AND <FSET? ,
|
|
CASTLE-DUNGEON ,SEEN> <NOT <FSET? ,UMBER ,IN-PARTY>>>> <MOVE-TO ,CASTLE-BASE #
|
|
ZLOCAL!-IZILCH STR?651>) (T <CASTLE-DUNGEON-MOVE>)>) (<EQUAL? ,ACTION ,
|
|
ACCEPT-COMMAND> <PRINTI
|
|
"There was no apparent harm in this, so Praxix assented."> <CRLF> <CRLF> <
|
|
PARTY-CHANGE ,TAG ,UMBER> <FSET ,UMBER ,SUBGROUP> <SET UPDATE-FLAG #
|
|
ZLOCAL!-IZILCH TRUE-VALUE> <PRINTI
|
|
"\"Name's Umber,\" the man said by way of belated introduction, \"and
|
|
I'm pleased to meet you.\" He put out his hand, and smiled broadly, reminding
|
|
Praxix of the used merchandise sellers whom he despised so deeply."> <CRLF> <
|
|
CRLF> <PRINTI "\"What have I done?\" Praxix asked the heavens with upraised hands.
|
|
\"Trapped up here with... with...\" He paused, choosing his words with care.
|
|
\"With my party out there,\" he said, moving his hands across the broad
|
|
expanse of forest that lay before him."> <CRLF> <CRLF> <PRINTI
|
|
"\"Don't they know you're here?\" Umber asked, once again smiling."> <CRLF> <
|
|
CRLF> <PRINTI "A brilliant thought crossed Praxix' mind, then left as quickly as it had
|
|
entered. \"No, we were separated in the fog this morning.\""> <CRLF> <CRLF> <
|
|
PRINTI "\"Ah. Did I hear you say 'trapped'?\" Umber asked, smile waning."> <
|
|
CRLF> <CRLF> <PRINTI
|
|
"\"Yes, trapped. The bridge collapsed as I crossed it. So unless you're
|
|
up for a swim in the moat...,\" was Praxix' reply, and it left Umber at
|
|
a loss for words and smiles."> <END-OPTION>) (<EQUAL? ,ACTION ,DECLINE-COMMAND>
|
|
<HINT ,HINT-UMBER> <PRINTI
|
|
"\"I'm sorry, but I think not,\" Praxix replied as graciously as
|
|
possible."> <CRLF> <CRLF> <PRINTI
|
|
"\"Well, then. Perhaps we shall meet again!\" the young man replied,
|
|
and walked out of sight."> <CRLF> <CRLF> <PRINTI
|
|
"\"And perhaps not,\" Praxix said, with a wave of his hand. He heaved
|
|
a sigh of relief, and pondered what he should do next."> <END-OPTION>) (<
|
|
SENDING-SIGNAL?> <PRAXIX-SENDS-SIGNAL>)>)>
|
|
<DEFINE-ROUTINE ANONF-286>
|
|
<DEFINE-ROUTINE ANONF-287>
|
|
<DEFINE-ROUTINE PRAXIX-SENDS-SIGNAL>
|
|
<GLOBAL PRAXIX-SIGNAL <>>
|
|
<GLOBAL PRAXIX-SIGNAL-ROOM <>>
|
|
<ROOM CASTLE-TROVE (TRAVEL-COMMANDS BACK-COMMAND NUL-COMMAND NUL-COMMAND) (
|
|
GRAPHIC G-TROVE) (ENTER FSET-SEEN) (CAST-LIMIT 2) (ACTION <ACOND () (<EQUAL? ,
|
|
ACTION ,BACK-COMMAND> <TRAVEL-COMMANDS ,CASTLE-BASE ,UP-COMMAND ,
|
|
COURTYARD-COMMAND> <COND (<NOT <IN? ,SIXTH-STONE ,PRAXIX>> <PRINTI
|
|
"Declining the offer to take some of the stones, ">)> <PRINTI
|
|
"Praxix suggested he had
|
|
seen enough; the two then ascended the stairs, arriving back at the
|
|
base of the turret."> <COND (,PRAXIX-SIGNAL <PRINTI
|
|
" They then took the few short steps back to the courtyard."> <MOVE-TO ,
|
|
CASTLE-COURTYARD>) (T <MOVE-TO ,CASTLE-BASE>)>) (<AND <EQUAL? ,ACTION ,
|
|
USE-MIX-COMMAND> <EQUAL? ,MIXTURE ,SPECIAL-VISION-SPELL> <EQUAL? ,ACTION-OBJECT
|
|
,STONE-PILE>> <MOVE ,SIXTH-STONE ,PRAXIX> <UPDATE-REMOVE ,STONE-PILE> <GRAPHIC
|
|
#ZLOCAL!-IZILCH FALSE-VALUE ,G-TROVE-STONE ,TOP-RIGHT> <PRINTI
|
|
"Praxix cast his mixture at the pile of stones, and for
|
|
an instant, it appeared that nothing would happen. And then, slowly, from
|
|
the middle of the pile, a dim glow appeared, strengthening with each
|
|
passing moment. Praxix scrambled onto the pile, shovelling stones away with
|
|
his bare hands until the source of light was revealed. It was a small black
|
|
stone, perfectly round, and glowing with a powerful dark light."> <CRLF> <CRLF>
|
|
<PRINTI "\"The Earth Stone,\" he said, under his breath, taking the black stone
|
|
and placing it inside his cloak."> <CRLF> <CRLF> <PRINTI
|
|
"\"Pardon me,\" Umber said, \"but did you just say 'Erstin'? I once knew
|
|
a man with that name, but I wouldn't think he'd be an acquaintance of
|
|
yours.\""> <CRLF> <CRLF> <PRINTI
|
|
"\"Yes, of course,\" Praxix mumbled, without knowing why. But it had the desirable
|
|
effect of ending the conversation, as Umber could find nothing beyond a befuddled
|
|
\"Ah\" to reply."> <MIXTURE-CAST>)>)>
|
|
<DEFINE-ROUTINE ANONF-288>
|
|
<OBJECT STONE-PILE (LOC CASTLE-TROVE) (SDESC "stones") (FLAGS DONT-TAKE) (
|
|
ACTION <ACOND () (<EQUAL? ,ACTION ,EXAMINE-COMMAND> <UPDATE-FSET ,ACTION-OBJECT
|
|
,DONT-EXAMINE> <PRINTI
|
|
"There were thousands upon thousands of stones in the chest, of all
|
|
colors, shapes, and sizes. A profitable business for Umber, to be
|
|
sure."> <CRLF> <CRLF> <PRINTI
|
|
"\"Not too valuable, I would say,\" Umber said, picking up a few more
|
|
of the stones. \"But don't let the townsfolk know it!\"">)>)>
|
|
<DEFINE-ROUTINE ANONF-289>
|
|
<OBJECT CASTLE-DUNGEON-CELLS (LOC CASTLE-DUNGEON) (FLAGS DONT-TAKE) (SDESC
|
|
"cells") (ACTION <ACOND () (<EQUAL? ,ACTION ,EXAMINE-COMMAND> <UPDATE-MOVE> <
|
|
PRINTI "Praxix went through each of the cells in the dungeon, finding only rusted
|
|
chains and manacles. Perhaps there had been prisoners here in days long past,
|
|
but their remains would long since have turned to dust.">)>)>
|
|
<DEFINE-ROUTINE ANONF-290>
|
|
<ROOM CASTLE-DUNGEON (TRAVEL-COMMANDS UP-COMMAND NUL-COMMAND NUL-COMMAND) (
|
|
GRAPHIC G-DUNGEON) (ENTER <EXECUTE () <FSET ,HERE ,SEEN> <COND (<AND <FSET? ,
|
|
UMBER ,IN-PARTY> <NOT <QSET? ,HERE ,SCOUTED>>> <CRLF> <CRLF> <PRINTI
|
|
"The dungeons were dark and damp, but Umber was as cheerful as ever.
|
|
\"There are many secrets in these dungeons,\" he said. \"If you
|
|
give me your word you will tell no one, I will show you my favorite.\""> <CRLF>
|
|
<CRLF> <PRINTI "Praxix agreed, and Umber led him to the farthest of the dungeon cells.
|
|
Then, he removed one of the blocks in the cell wall, and reached for an
|
|
unseen lever that was hidden behind. As he did so, the entire wall slid
|
|
aside, revealing a large chamber."> <CRLF> <CRLF> <PRINTI
|
|
"The chamber was bare, save the rusted manacles hanging from the walls,
|
|
but in the center sat a large chest, brimming with precious stones."> <CRLF> <
|
|
CRLF> <PRINTI "\"I see you have been here before,\" Praxix said, with the slightest
|
|
hint of sarcasm."> <CRLF> <CRLF> <PRINTI
|
|
"\"Many times,\" Umber responded, \"I make my living selling
|
|
these stones. I figure it's safer to leave the bulk of them here so
|
|
that folks back in town don't get too suspicious. Every week or so, I
|
|
come here and pick up a few dozen.\""> <MOVE-TO ,CASTLE-TROVE>)>>) (ACTION <
|
|
ACOND () (<EQUAL? ,ACTION ,UP-COMMAND> <PRINTI
|
|
"Disappointed at having found nothing of interest, Praxix climbed the
|
|
crumbling stairs and was soon "> <COND (<NOT <FSET? ,CASTLE-TOWER ,SEEN>> <
|
|
PRINTI "atop the tower."> <MOVE-TO ,CASTLE-TOWER>) (T <PRINTI
|
|
"back at ground level."> <MOVE-TO ,CASTLE-BASE>)>)>)>
|
|
<DEFINE-ROUTINE ANONF-291>
|
|
<DEFINE-ROUTINE ANONF-292>
|
|
<OBJECT TALKING-TREE (LOC TREE-FORK) (SDESC "talking tree") (8DESC "tree") (KBD
|
|
84) (FLAGS DONT-TAKE) (ACTION <ACOND () (<EQUAL? ,ACTION ,EXAMINE-COMMAND> <
|
|
UPDATE-MOVE> <WPRINTD ,ACTOR> <PRINTI
|
|
" examined the talking tree skeptically, walking around it as an art expert
|
|
would a hideous piece of sculpture, but finally arrived at the
|
|
inescapable conclusion that this was indeed a talking tree, about seven
|
|
feet in height, neatly trimmed, and covered in wide, oddly shaped leaves.">)>)>
|
|
|
|
<DEFINE-ROUTINE ANONF-293>
|
|
<END-SEGMENT>
|
|
<BEGIN-SEGMENT MILL>
|
|
<COMMAND (CONTROL-ROOM CONTROLS)>
|
|
<ROOM XFER-JCN (TRAVEL-COMMANDS LEFT-COMMAND RIGHT-COMMAND BACK-COMMAND) (FLAGS
|
|
UNDERGROUND) (GRAPHIC G-XFER-JCN) (ENTER FSET-SEEN) (ACTION <ACOND () (<EQUAL?
|
|
,ACTION ,BACK-COMMAND> <REMOVE-TRAVEL-COMMAND> <PRINTI
|
|
"It was no use; no matter how Praxix tried, he could not move enough debris to
|
|
make his escape possible.">) (<EQUAL? ,ACTION ,LEFT-COMMAND> <FIRST-XFER-ANTE>
|
|
<MOVE-TO ,XFER-1-ANTE>) (<OR <EQUAL? ,ACTION ,RIGHT-COMMAND> <EQUAL? ,ACTION ,
|
|
CONTROL-ROOM-COMMAND>> <PRINTI
|
|
"A narrow doorway led Praxix into a small, closetlike chamber. On one wall, a
|
|
large glass window overlooked a shallow pit. Otherwise, the room was bare
|
|
except for a strange device mounted against another of the walls."> <MOVE-TO ,
|
|
XFER-MASTER> <CHANGE-TRAVEL-COMMAND ,XFER-JCN ,RIGHT-COMMAND ,
|
|
CONTROL-ROOM-COMMAND> <RTRUE>)>)>
|
|
<DEFINE-ROUTINE ANONF-294>
|
|
<DEFINE-ROUTINE FIRST-XFER-ANTE>
|
|
<COMMAND (BACK-TO-PITS BACK-PITS)>
|
|
<ROOM XFER-MASTER (TRAVEL-COMMANDS BACK-COMMAND NUL-COMMAND NUL-COMMAND
|
|
NUL-COMMAND) (FLAGS UNDERGROUND) (REFRESH COMPLETE-DIAL-GRAPHICS) (ENTER <
|
|
EXECUTE () <FSET ,HERE ,SEEN> <COND (<NOT <FSET? ,XFER-CONTROLS ,SEEN>> <
|
|
GRAPHIC ,G-XFER-MASTER>) (T <COMPLETE-DIAL-GRAPHICS>)>>) (ACTION <ACOND () (<OR
|
|
<EQUAL? ,ACTION ,BACK-COMMAND> <EQUAL? ,ACTION ,BACK-TO-PITS-COMMAND>> <COND (<
|
|
NOT <QSET? ,HERE ,BLACK-MIX>> <PRINTI
|
|
"Praxix then left this control room, or whatever it was, and reached the base
|
|
of the crumbled stairs. Seeing no way of getting through in that direction, he
|
|
started down the other path."> <CRLF> <CRLF> <CHANGE-TRAVEL-COMMAND ,HERE ,
|
|
BACK-COMMAND ,BACK-TO-PITS-COMMAND #ZLOCAL!-IZILCH TRUE-VALUE> <FIRST-XFER-ANTE
|
|
>) (T <PRINTI "It took only a few moments for Praxix to pass the rubble of the stairs and continue
|
|
onward to the railing above the shallow pit.">)> <MOVE-TO ,XFER-1-ANTE>)>)>
|
|
<DEFINE-ROUTINE ANONF-295>
|
|
<DEFINE-ROUTINE ANONF-296>
|
|
<DEFINE-ROUTINE COMPLETE-DIAL-GRAPHICS>
|
|
<DEFINE-ROUTINE DIAL-GRAPHICS>
|
|
<GLOBAL LEFT-DIAL 4>
|
|
<GLOBAL RIGHT-DIAL 5>
|
|
<GLOBAL BUTTON-PUSHED <>>
|
|
<GLOBAL XFER-TBL <LTABLE XFER-1 XFER-2 XFER-3 NXFER-1 NXFER-2 NXFER-3>>
|
|
<CONSTANT PRAXIX-NO-DIAL
|
|
"Slowly, Praxix twisted the dial on the right, but ended up leaving it
|
|
pointing to the ">
|
|
<COMMAND RIGHT-DIAL O-DIAL () <COND (<EQUAL? ,RIGHT-DIAL #ZLOCAL!-IZILCH STACK>
|
|
<PRINT ,PRAXIX-NO-DIAL> <WPRINTD ,ACTION-OBJECT> <PRINTI " rune.">) (T <SETG
|
|
RIGHT-DIAL <GETP ,ACTION-OBJECT ,P?TEMP>> <TELL-DIAL #ZLOCAL!-IZILCH STR?57>)>>
|
|
|
|
<DEFINE-ROUTINE V-RIGHT-DIAL>
|
|
<COMMAND LEFT-DIAL O-DIAL () <COND (<EQUAL? ,LEFT-DIAL #ZLOCAL!-IZILCH STACK> <
|
|
PRINT ,PRAXIX-NO-DIAL> <WPRINTD ,ACTION-OBJECT> <PRINTI " rune.">) (T <SETG
|
|
LEFT-DIAL <GETP ,ACTION-OBJECT ,P?TEMP>> <TELL-DIAL #ZLOCAL!-IZILCH STR?55>)>>
|
|
<DEFINE-ROUTINE V-LEFT-DIAL>
|
|
<DEFINE-ROUTINE TELL-DIAL>
|
|
<COMMAND WAIT <> () <TELL
|
|
"As Praxix waited, the droning noise grew ever louder."> <SET
|
|
I-BUTTON-PUSH-FLAG 100> <RTRUE>>
|
|
<DEFINE-ROUTINE V-WAIT>
|
|
<GLOBAL FIDDLED-WITH-DEVICE <>>
|
|
<COMMAND (PUSH-BUTTON PUSH-BUT 'N) <> () <CHANGE-TRAVEL-COMMAND ,HERE ,
|
|
PUSH-BUTTON-COMMAND ,WAIT-COMMAND> <SET BUTTON-PUSHED #ZLOCAL!-IZILCH
|
|
TRUE-VALUE> <SET FIDDLED-WITH-DEVICE #ZLOCAL!-IZILCH TRUE-VALUE> <QUEUE
|
|
I-BUTTON-PUSH -1> <TELL
|
|
"Praxix pushed the button, and it appeared that nothing was happening. A dull
|
|
droning noise, however, could soon be discerned, and it grew stronger as the
|
|
moments passed."> <RTRUE>>
|
|
<DEFINE-ROUTINE V-PUSH-BUTTON>
|
|
<GLOBAL I-BUTTON-PUSH-FLAG -1>
|
|
<OBJECT I-BUTTON-PUSH (TIME 0) (ACTION <EXECUTE ("AUX" FROM TO) <SETG
|
|
I-BUTTON-PUSH-FLAG <ADD ,I-BUTTON-PUSH-FLAG 1>> <COND (<EQUAL? ,
|
|
I-BUTTON-PUSH-FLAG 1> <CRLF> <CRLF> <PRINTI
|
|
"The droning was now quite loud and echoed throughout the chamber.">) (<GRTR? ,
|
|
I-BUTTON-PUSH-FLAG 1> <SET BUTTON-PUSHED #ZLOCAL!-IZILCH FALSE-VALUE> <SET
|
|
I-BUTTON-PUSH-FLAG -1> <REMOVE ,I-BUTTON-PUSH> <CHANGE-TRAVEL-COMMAND ,
|
|
XFER-MASTER ,WAIT-COMMAND ,PUSH-BUTTON-COMMAND> <CRLF> <CRLF> <PRINTI
|
|
"The droning noise had grown to an overwhelming intensity when it suddenly
|
|
stopped. The silence in these dark halls was now nearly as deafening."> <SET
|
|
FROM <GET ,XFER-TBL ,LEFT-DIAL>> <SET TO <GET ,XFER-TBL ,RIGHT-DIAL>> <COND (<
|
|
EQUAL? .TO .FROM> T) (<AND <EQUAL? ,HERE ,XFER-MASTER> <FIRST? .FROM> <EQUAL? .
|
|
TO ,XFER-1>> <CRLF> <CRLF> <PRINTI
|
|
"But something peculiar caught Praxix' eye as he looked through the glass and
|
|
down into the pit below. Something was down there, but he couldn't tell what.">
|
|
) (<EQUAL? ,HERE .FROM> <MOVE-TO .TO> <CRLF> <CRLF> <COND (<NOT <QSET? ,
|
|
XFER-MASTER ,TRAPPED>> <PRINTI "You can well imagine Praxix' surprise when he">
|
|
) (T <PRINTI "Suddenly, though unsurprisingly, Praxix">)> <PRINTI
|
|
" found himself standing at the bottom of a "> <COND (<EQUAL? .TO ,XFER-1> <
|
|
PRINTI "shallow">) (T <PRINTI "seemingly bottomless">)> <PRINTI " pit."> <
|
|
XFER-OBJECTS-CHECK .TO> <COND (<FIRST? .FROM> <PRINTI
|
|
" Not only that, but everything
|
|
that had been on the ground before was now here as well.">)> <COND (<EQUAL? .TO
|
|
,XFER-3> <PRINTI
|
|
" Fortunately, a shaft of light piercing the darkness indicated an exit
|
|
nearby.">) (T <SET XFER-TRAP #ZLOCAL!-IZILCH TRUE-VALUE>)>) (<AND <EQUAL? ,HERE
|
|
.TO> <FIRST? .FROM>> <CRLF> <CRLF> <COND (<NOT <QSET? ,XFER-MASTER ,DEAD>> <
|
|
PRINTI "You can well imagine Praxix' surprise when ">) (T <PRINTI
|
|
"Praxix was merely startled this time, as ">)> <LIST-CONTENTS .FROM> <PRINTI
|
|
" suddenly appeared on the ground beside him.">)> <SET UPDATE-FLAG #
|
|
ZLOCAL!-IZILCH TRUE-VALUE> <MOVE-ALL .FROM .TO>)>>)>
|
|
<DEFINE-ROUTINE ANONF-297>
|
|
<GLOBAL XFER-TRAP <>>
|
|
<CONSTANT DIAL-O-TABLE <LTABLE TOP-RUNE UPPER-LEFT-RUNE LOWER-LEFT-RUNE
|
|
UPPER-RIGHT-RUNE LOWER-RIGHT-RUNE BOTTOM-RUNE>>
|
|
<DEFINE-ROUTINE O-DIAL>
|
|
<GLOBAL INITIAL-RUNE-TBL <LTABLE 0 TOP-RUNE UPPER-LEFT-RUNE LOWER-LEFT-RUNE
|
|
UPPER-RIGHT-RUNE LOWER-RIGHT-RUNE BOTTOM-RUNE>>
|
|
<GLOBAL RUNES-SET <>>
|
|
<DEFINE-ROUTINE INIT-RUNES>
|
|
<GLOBAL RUNE-TBL <LTABLE 0 0 0 0 0 0>>
|
|
<OBJECT TOP-RUNE (SDESC "top") (KBD 84) (TEMP 0) (GRAPHIC G-RUNE-TOP)>
|
|
<OBJECT UPPER-LEFT-RUNE (SDESC "upper left") (8DESC "up left") (KBD 85) (TEMP 0
|
|
) (GRAPHIC G-RUNE-UL)>
|
|
<OBJECT LOWER-LEFT-RUNE (SDESC "lower left") (8DESC "low left") (KBD 76) (TEMP
|
|
0) (GRAPHIC G-RUNE-LL)>
|
|
<OBJECT UPPER-RIGHT-RUNE (SDESC "upper right") (8DESC "up right") (KBD 85) (
|
|
TEMP 0) (GRAPHIC G-RUNE-UR)>
|
|
<OBJECT LOWER-RIGHT-RUNE (SDESC "lower right") (8DESC "low right") (KBD 76) (
|
|
TEMP 0) (GRAPHIC G-RUNE-LR)>
|
|
<OBJECT BOTTOM-RUNE (SDESC "bottom") (KBD 66) (TEMP 0) (GRAPHIC G-RUNE-BOT)>
|
|
<OBJECT XFER-CONTROLS (LOC XFER-MASTER) (SDESC "device") (KBD 68) (FLAGS
|
|
DONT-TAKE DONT-CAST) (ACTION <ACOND () (<EQUAL? ,ACTION ,EXAMINE-COMMAND> <
|
|
UPDATE-MOVE> <COND (<NOT <QSET? ,XFER-CONTROLS ,EXAMINED>> <FSET ,XFER-CONTROLS
|
|
,SEEN> <COMPLETE-DIAL-GRAPHICS> <PRINTI
|
|
"Two devices that resembled dials of some sort were imbedded in the wall of the
|
|
chamber. Around each of the dials were the same six peculiar runes, in a language
|
|
that he could not recognize. Below and between the two dials sat a short, stubby,
|
|
black button."> <PUTP ,ACTION-OBJECT ,P?SDESC #ZLOCAL!-IZILCH STR?682> <SET
|
|
UPDATE-FLAG #ZLOCAL!-IZILCH TRUE-VALUE> <TRAVEL-COMMANDS ,HERE ,BACK-COMMAND ,
|
|
LEFT-DIAL-COMMAND ,RIGHT-DIAL-COMMAND ,PUSH-BUTTON-COMMAND>)>)>)>
|
|
<DEFINE-ROUTINE ANONF-298>
|
|
<ROOM NXFER-1 (TRAVEL-COMMANDS UP-COMMAND NUL-COMMAND NUL-COMMAND) (FLAGS
|
|
UNDERGROUND) (GRAPHIC G-DARK-CAVERN) (ACTION NXFER)>
|
|
<ROOM NXFER-2 (TRAVEL-COMMANDS UP-COMMAND NUL-COMMAND NUL-COMMAND) (FLAGS
|
|
UNDERGROUND) (GRAPHIC G-DARK-CAVERN) (ACTION NXFER)>
|
|
<ROOM NXFER-3 (TRAVEL-COMMANDS UP-COMMAND NUL-COMMAND NUL-COMMAND) (FLAGS
|
|
UNDERGROUND) (GRAPHIC G-DARK-CAVERN) (ACTION NXFER)>
|
|
<DEFINE-ROUTINE NXFER>
|
|
<DEFINE-ROUTINE TELL-ANTE-RUNE>
|
|
<ROOM XFER-1-ANTE (TRAVEL-COMMANDS PROCEED-COMMAND DOWN-COMMAND BACK-COMMAND) (
|
|
FLAGS UNDERGROUND) (ENTER <EXECUTE () <SET CURRENT-GRAPHIC #ZLOCAL!-IZILCH
|
|
FALSE-VALUE> <GRAPHIC ,G-XFER-ANTE> <COND (<FSET? ,XFER-MASTER ,SEEN> <
|
|
REMOVE-TRAVEL-COMMAND ,HERE ,BACK-COMMAND> <FORCE-TRAVEL-COMMAND ,HERE ,
|
|
CONTROL-ROOM-COMMAND>)> <COND (<FSET? ,XFER-MASTER ,SOLVED> <TELL-ANTE-RUNE 1>)
|
|
>>) (ACTION <ACOND () (<EQUAL? ,ACTION ,PROCEED-COMMAND> <PRINTI
|
|
"Continuing down the passageway, Praxix came to another railing separating him
|
|
from a rather more precipitous drop than at the previous pit. In fact, he could
|
|
not discern a bottom anywhere."> <MOVE-TO ,XFER-2-ANTE>) (<EQUAL? ,ACTION ,
|
|
DOWN-COMMAND> <COND (<NOT <FSET? ,XFER-1 ,SOLVED>> <PRINTI
|
|
"With an agility that belied his advancing years, Praxix flung himself over
|
|
the railing and down into the pit below. To his amazement, long strips of
|
|
fire and earth essences coursed through the rock. It would be quite a haul,
|
|
indeed, if he could mine any of the precious material.">) (T <PRINTI
|
|
"Praxix again flung himself over the railing and down into the pit below.">)> <
|
|
XFER-OBJECTS-CHECK ,XFER-1> <MOVE-TO ,XFER-1>) (<OR <EQUAL? ,ACTION ,
|
|
BACK-COMMAND> <EQUAL? ,ACTION ,CONTROL-ROOM-COMMAND>> <COND (<NOT <FSET? ,
|
|
XFER-MASTER ,SEEN>> <PRINTI
|
|
"Praxix now retraced his steps to the base of the fallen stairs. Having little
|
|
choice, he entered the narrow doorway into a small, closetlike chamber. On one wall, a
|
|
large glass window overlooked a shallow pit. Otherwise, the room was bare
|
|
except for a strange device mounted against another of the walls.">) (T <PRINTI
|
|
"Then, Praxix quickly retraced his steps back to the control room.">)> <MOVE-TO
|
|
,XFER-MASTER>) (<AND <EQUAL? ,ACTION ,CAST-COMMAND> <EQUAL? ,ACTION-OBJECT ,
|
|
WIND-SPELL> <NOT <FSET? ,XFER-MASTER ,ENCHANTED>>> <DO-XFER-WIND>)>)>
|
|
<DEFINE-ROUTINE ANONF-299>
|
|
<DEFINE-ROUTINE ANONF-300>
|
|
<DEFINE-ROUTINE XFER-OBJECTS-CHECK>
|
|
<DEFINE-ROUTINE DO-XFER-WIND>
|
|
<COMMAND MINE-ROCK>
|
|
<DEFINE-ROUTINE FORCE-MINE-ROCK>
|
|
<ROOM XFER-1 (TRAVEL-COMMANDS MINE-ROCK-COMMAND UP-COMMAND NUL-COMMAND) (FLAGS
|
|
UNDERGROUND) (GRAPHIC G-DARK-CAVERN) (ENTER <EXECUTE () <FSET ,HERE ,SEEN> <
|
|
FORCE-MINE-ROCK>>) (CLOCK FORCE-MINE-ROCK) (ACTION <ACOND () (<EQUAL? ,ACTION ,
|
|
MINE-ROCK-COMMAND> <REMOVE-TRAVEL-COMMAND> <COND (<EQUAL? #ZLOCAL!-IZILCH STACK
|
|
,HERE ,INVENTORY> <FIND-ESSENCE ,ESSENCE-FIRE 5> <FIND-ESSENCE ,ESSENCE-EARTH 5
|
|
> <FSET ,XFER-1 ,SOLVED> <PRINTI
|
|
"Having the perfect tool at hand, Praxix gathered as much of the rock
|
|
containing the earth and fire essences as was practical, considering the great
|
|
deal of time necessary to crush the rocks down into powder. Rather than spend
|
|
the rest of the day at it, he settled for taking a moderate amount of each."> <
|
|
CRLF> <CRLF> <PRINTI
|
|
"\"Not bad for a day's work,\" he said aloud, as he climbed out of the pit
|
|
and stood again alongside the railing. \"Now, my only problem is getting
|
|
out of this place alive.\""> <MOVE-TO ,XFER-1-ANTE>) (T <PRINTI
|
|
"The only problem for Praxix was that the rock in which the essences were
|
|
embedded was harder than any other he had come across. There was no chance
|
|
he would be able to mine the rocks without the proper tools.">)>) (<AND <EQUAL?
|
|
,ACTION ,CAST-COMMAND> <EQUAL? ,ACTION-OBJECT ,TREMOR-SPELL>> <PRINTI
|
|
"Thinking that his tremor spell might shake some of the rocks loose, Praxix
|
|
carefully measured out a small amount of earth essence and cast it at the
|
|
ground. The ensuing tremor nearly caused an avalanche of its own, without
|
|
so much as budging the rocks in which he had such a keen interest.">) (<EQUAL?
|
|
,ACTION ,UP-COMMAND> <PRINTI
|
|
"Finished with his examination of the pit, Praxix clambered up the side walls and
|
|
was soon back on the other side of the railing."> <MOVE-TO ,XFER-1-ANTE>)>)>
|
|
<DEFINE-ROUTINE ANONF-301>
|
|
<DEFINE-ROUTINE ANONF-302>
|
|
<ROOM XFER-2-ANTE (TRAVEL-COMMANDS PROCEED-COMMAND BACK-COMMAND DOWN-COMMAND
|
|
NUL-COMMAND) (FLAGS UNDERGROUND) (ENTER <EXECUTE () <SET CURRENT-GRAPHIC #
|
|
ZLOCAL!-IZILCH FALSE-VALUE> <GRAPHIC ,G-XFER-ANTE> <COND (<FSET? ,XFER-MASTER ,
|
|
SEEN> <FORCE-TRAVEL-COMMAND ,HERE ,CONTROL-ROOM-COMMAND>)> <COND (<FSET? ,
|
|
XFER-MASTER ,SOLVED> <TELL-ANTE-RUNE 2>)>>) (ACTION <ACOND () (<EQUAL? ,ACTION
|
|
,PROCEED-COMMAND> <PRINTI
|
|
"The passageway ended abruptly before him at the site of yet another railing
|
|
and associated pit. From the looks of things, an avalanche had permanently
|
|
sealed the way to what could only be presumed to be another set of pits. As
|
|
he leaned on the railing, "> <COND (<NOT <FSET? ,XFER-MASTER ,SOLVED>> <PRINTI
|
|
"resting his elbows into an inch or so of accumulated dust, ">)> <PRINTI
|
|
"he peered down into the depths of the pit and discerned a narrow shaft
|
|
of sunlight piercing the darkness."> <MOVE-TO ,XFER-3-ANTE>) (<EQUAL? ,ACTION ,
|
|
CONTROL-ROOM-COMMAND> <PRINTI
|
|
"In a matter of moments, Praxix had retraced his steps back to the control room."
|
|
> <MOVE-TO ,XFER-MASTER>) (<EQUAL? ,ACTION ,BACK-COMMAND> <PRINTI
|
|
"In just a few moments, Praxix was back at the first of the pits."> <MOVE-TO ,
|
|
XFER-1-ANTE>) (<EQUAL? ,ACTION ,DOWN-COMMAND> <REMOVE-TRAVEL-COMMAND> <PRINTI
|
|
"Getting down into the pit would pose something of a dilemma for Praxix. It was
|
|
painfully obvious that falling or jumping into the pit would mean certain
|
|
death.">) (<AND <EQUAL? ,ACTION ,CAST-COMMAND> <EQUAL? ,ACTION-OBJECT ,
|
|
LEVITATE-SPELL>> <XFER-DESCEND ,XFER-2>) (<AND <EQUAL? ,ACTION ,CAST-COMMAND> <
|
|
EQUAL? ,ACTION-OBJECT ,WIND-SPELL> <NOT <FSET? ,XFER-MASTER ,ENCHANTED>>> <
|
|
DO-XFER-WIND>) (<AND <EQUAL? ,ACTION ,CAST-COMMAND> <EQUAL? ,ACTION-OBJECT ,
|
|
FAR-VISION-SPELL>> <DO-XFER-FLARE ,XFER-2>)>)>
|
|
<DEFINE-ROUTINE ANONF-303>
|
|
<DEFINE-ROUTINE ANONF-304>
|
|
<DEFINE-ROUTINE XFER-DESCEND>
|
|
<DEFINE-ROUTINE DO-XFER-FLARE>
|
|
<ROOM XFER-2 (TRAVEL-COMMANDS UP-COMMAND NUL-COMMAND NUL-COMMAND) (FLAGS
|
|
UNDERGROUND) (GRAPHIC G-DARK-CAVERN) (ACTION NXFER)>
|
|
<OBJECT PICK-AXE (LOC XFER-2) (SDESC "pick-axe") (KBD 80) (ACTION <ACOND () (<
|
|
EQUAL? ,ACTION ,EXAMINE-COMMAND> <UPDATE-FSET ,ACTION-OBJECT ,DONT-EXAMINE> <
|
|
PRINTI "At this point, Praxix examined the axe more carefully. It was nearly new, though,
|
|
like everything else, it was covered in dust.">) (<EQUAL? ,ACTION ,
|
|
PICK-UP-COMMAND> <COND (<NOT <QSET? ,PICK-AXE ,USED-UP>> <PRINTI
|
|
"\"This should come in rather useful,\" Praxix said, as he picked up the pick
|
|
axe and slung it over his shoulder.">) (T <PRINTI
|
|
"Praxix then picked up the pick-axe and slung it over his shoulder, as he had
|
|
done before.">)> <UPDATE-MOVE ,PICK-AXE ,INVENTORY>) (<EQUAL? ,ACTION ,
|
|
DROP-COMMAND> <UPDATE-REMOVE ,PICK-AXE> <PRINTI
|
|
"Rather than carry the pick-axe any longer, Praxix rested it against a nearby
|
|
wall.">)>)>
|
|
<DEFINE-ROUTINE ANONF-305>
|
|
<ROOM XFER-3-ANTE (TRAVEL-COMMANDS PROCEED-COMMAND BACK-COMMAND DOWN-COMMAND
|
|
NUL-COMMAND) (FLAGS UNDERGROUND) (ENTER <EXECUTE () <FSET ,HERE ,SEEN> <SET
|
|
CURRENT-GRAPHIC #ZLOCAL!-IZILCH FALSE-VALUE> <GRAPHIC ,G-XFER-ANTE ,
|
|
G-XFER-ANTE-LIGHT ,BOTTOM-RIGHT> <COND (<FSET? ,XFER-MASTER ,SEEN> <
|
|
FORCE-TRAVEL-COMMAND ,HERE ,CONTROL-ROOM-COMMAND>)> <COND (<FSET? ,XFER-MASTER
|
|
,SOLVED> <PRINTI
|
|
" Alongside the opening to the chamber below was a rune that had been obliterated by
|
|
the passage of the long years.">)>>) (ACTION <ACOND () (<EQUAL? ,ACTION ,
|
|
PROCEED-COMMAND> <REMOVE-TRAVEL-COMMAND> <PRINTI
|
|
"It didn't take more than two looks at the debris before him for Praxix to realize
|
|
that he wasn't going any further in this direction.">) (<EQUAL? ,ACTION ,
|
|
BACK-COMMAND> <PRINTI
|
|
"Quickly, Praxix retreated to the middle of the three pits."> <MOVE-TO ,
|
|
XFER-2-ANTE>) (<EQUAL? ,ACTION ,CONTROL-ROOM-COMMAND> <PRINTI
|
|
"Quickly, Praxix passed by the two other pits as he made his way back to the
|
|
control room."> <MOVE-TO ,XFER-MASTER>) (<EQUAL? ,ACTION ,DOWN-COMMAND> <
|
|
REMOVE-TRAVEL-COMMAND> <PRINTI
|
|
"Getting down into the pit would pose something of a dilemma for Praxix. It was
|
|
painfully obvious that falling or jumping into the pit would mean certain
|
|
death.">) (<AND <EQUAL? ,ACTION ,CAST-COMMAND> <EQUAL? ,ACTION-OBJECT ,
|
|
LEVITATE-SPELL>> <XFER-DESCEND ,XFER-3>) (<AND <EQUAL? ,ACTION ,CAST-COMMAND> <
|
|
EQUAL? ,ACTION-OBJECT ,WIND-SPELL> <NOT <FSET? ,XFER-MASTER ,ENCHANTED>>> <
|
|
DO-XFER-WIND>) (<AND <EQUAL? ,ACTION ,CAST-COMMAND> <EQUAL? ,ACTION-OBJECT ,
|
|
FAR-VISION-SPELL>> <DO-XFER-FLARE ,XFER-3>)>)>
|
|
<DEFINE-ROUTINE ANONF-306>
|
|
<DEFINE-ROUTINE ANONF-307>
|
|
<COMMAND (FOLLOW-LIGHT FIND-LIGHT)>
|
|
<ROOM XFER-3 (TRAVEL-COMMANDS FOLLOW-LIGHT-COMMAND NUL-COMMAND NUL-COMMAND) (
|
|
FLAGS UNDERGROUND DONT-CAST) (GRAPHIC G-MINER-PASSAGE) (ACTION <EXECUTE ("AUX"
|
|
TMP) <COND (<EQUAL? ,ACTION ,FOLLOW-LIGHT-COMMAND> <COND (<IN? ,PICK-AXE ,
|
|
INVENTORY> <REMOVE ,PICK-AXE> <PRINTI
|
|
"Having no further need for the pick-axe, Praxix dropped it on the ground. He
|
|
then started following the stream of light, following a dirt path. ">)> <PRINTI
|
|
"The path wound its way up a crumbling set of stairs, but these soon were nearly
|
|
unrecognizable. Clambering the rest of the way back to ground level, he finally
|
|
extricated himself from the ground about one hundred paces away from the mill
|
|
itself. And as he looked back toward the large grinding wheel, he realized that
|
|
he had been dead wrong from the outset."> <CRLF> <CRLF> <PRINTI
|
|
"\"The mill is not for grains at all,\" he said aloud, \"but for milling
|
|
the stones of magical essences! To think I've been exploring a magic mine!\"">
|
|
<CRLF> <CRLF> <COND (,REJOINED <PRINTI
|
|
"You can imagine our relief at seeing our Wizard friend again, for it had been
|
|
quite some time since he had disappeared into the mill's mechanism, triggering the
|
|
avalanche that prevented us from following him."> <CRLF> <CRLF> <PRINTI
|
|
"\"Come, come, don't stand there gawking,\" he said, wagging his finger at us.
|
|
\"We still have much to do.\""> <CRLF> <CRLF>)> <FCLEAR ,TAG ,SHADOW> <SET TMP
|
|
<ADD #ZLOCAL!-IZILCH STACK 1>> <PUT ,PARTY #ZLOCAL!-IZILCH STACK ,TAG> <PUT ,
|
|
PARTY .TMP ,TAG-SWAP-CHR> <SCENE #ZLOCAL!-IZILCH FALSE-VALUE> <LEAVE-MILL-AREA>
|
|
) (T <NXFER>)>>)>
|
|
<DEFINE-ROUTINE ANONF-308> |