1380 lines
48 KiB
Plaintext
1380 lines
48 KiB
Plaintext
"LAKE for
|
|
JOURNEY
|
|
(c) Copyright 1988, 1989 Infocom, Inc. All Rights Reserved."
|
|
|
|
<BEGIN-SEGMENT LAKE>
|
|
|
|
<ROUTINE GATE-TO-HIGH-PLAIN ()
|
|
<TELL
|
|
"We awoke with the sun, and could see now where we had come. We were
|
|
on a ridge above a high plain in the mountains, just a few hundred
|
|
feet above a large, blue-green lake. Not long after starting, we had
|
|
descended into the plain. The sky was starting to darken in the north, and
|
|
this could only mean an approaching storm.">
|
|
<MOVE-TO ,HIGH-PLAIN>>
|
|
|
|
<OBJECT GOLD-STREAM-OBJ
|
|
(SDESC "stream")
|
|
(KBD %<ASCII !\S>)
|
|
(LOC GOLD-STREAM)
|
|
(FLAGS DONT-TAKE)
|
|
(EXBITS <+ ,PRAXIXBIT ,ESHERBIT>)
|
|
(ACTION
|
|
<ACOND ()
|
|
(EXAMINE
|
|
<CLEAR-EXBIT>
|
|
<COND (<EQUAL? ,ACTOR ,PRAXIX>
|
|
<TELL
|
|
"Praxix gazed absently at the stream, then picked up a small stone, and skimmed
|
|
it over the rippling surface." CR CR>
|
|
<TELL
|
|
"\"A storm is brewing,\" he said as the stone disappeared from sight. \"We should
|
|
move quickly, lest we be caught in it!\"">)
|
|
(T
|
|
<CLEAR-EXBIT ,GOLD-STREAM-OBJ ,PRAXIX>
|
|
<ADD-TRAVEL-COMMAND ,HERE ,FIND-GOLD-COMMAND>
|
|
<FSET ,HERE ,ADVISE>
|
|
<TELL ACT
|
|
" bent down and ran his fingers through the icy mountain waters. He was
|
|
just about to stand when his eye caught a glimpse of a shiny golden object
|
|
sitting in the stream bed. Rolling up his sleeve, he reached down for it, but
|
|
failed to come up with anything." CR CR>
|
|
<TELL
|
|
"\"I would swear it was gold,\" " ACT " said, as he stared intently into the
|
|
waters. \"Now that would be something of value!\"">
|
|
<COND (<IN-PARTY? ,BERGON>
|
|
<TELL CR CR
|
|
"\"It is possible,\" Bergon replied, thoughtfully, \"that there is gold in these
|
|
mountain waters, but I should think not.\"">)>)>
|
|
<TELL CR CR
|
|
"The dark clouds lowered as they rolled in from the north. The winds
|
|
started to howl; it would not be long before the rains came.">)>)>
|
|
|
|
<COMMAND FIND-GOLD>
|
|
|
|
<GLOBAL TORRENT-LOSER <>>
|
|
|
|
<ROOM GOLD-STREAM
|
|
(TRAVEL-COMMANDS PROCEED-COMMAND NUL-COMMAND NUL-COMMAND)
|
|
(GRAPHIC G-GOLD-STREAM)
|
|
(FLAGS DONT-SCOUT DANGEROUS)
|
|
(TEMP 0)
|
|
(ACTION
|
|
<ACOND ("AUX" TMP)
|
|
(GET-ADVICE
|
|
<COND (<ZERO? <GET-TEMP>>
|
|
<TELL
|
|
"Unsure of whether to press on or to search for more gold, Bergon
|
|
gathered us together. \"I fear the storm that is to come,\" he said,
|
|
then asked the rest of us for our opinions." CR CR>
|
|
<TELL
|
|
"It is true that we had not travelled here in search of gold, but gold is
|
|
a rare and valuable commodity. And thus, it was difficult to know whether
|
|
it would hurt to search just a little longer.">
|
|
<COND (<IN-PARTY? ,ESHER>
|
|
<TELL " Esher put it best. \"A little
|
|
rain won't hurt, and neither would a little gold,\" he said.">)>
|
|
<UPDATE-FCLEAR ,HERE ,ADVISE>)
|
|
(<EQUAL? <GET-TEMP> 1>
|
|
<TELL
|
|
"Bergon was becoming increasingly concerned. But, as earlier, the
|
|
group was less inclined to leave this opportunity behind.">
|
|
<UPDATE-FCLEAR ,HERE ,ADVISE>)>)
|
|
(FIND-GOLD
|
|
<SET-TEMP <SET TMP <+ <GET-TEMP> 1>>>
|
|
<COND (<EQUAL? .TMP 1>
|
|
<UPDATE-FSET ,HERE ,ADVISE>
|
|
<TELL
|
|
"We each scanned the stream for gold, with little luck. The clouds,
|
|
dark and heavy, began to rain down upon us. \"Look!\" said Bergon,
|
|
pointing at the chain lightning off to the north. Seconds later, the
|
|
earth shook with the roar of thunder. \"It is not far now,\" he
|
|
added, as his eyes drifted to the blackening sky.">)
|
|
(T
|
|
<TELL
|
|
"Runoff from the nearby hills was forming into numerous streams,
|
|
each coursing into the main channel in which we searched in vain
|
|
for gold. Crash! A tree nearby cracked in two by a stroke of
|
|
lightning. Rain was falling now in buckets, and Bergon screamed
|
|
for us to take cover. As I turned upstream, a great torrent of water
|
|
was heading right at me!">
|
|
<QUEUE I-TORRENT-HITS 1>
|
|
<REMOVE-TRAVEL-COMMAND>)>)
|
|
(<AND <ACTION? INVENTORY>
|
|
<FSET? ,HERE ,DEAD>
|
|
<NOT <QSET? ,HERE ,BLUE-MIX>>>
|
|
<TELL
|
|
"Frantically, I searched my pack. ">
|
|
<COND (,TORRENT-LOSER
|
|
<TELL "Over and over I looked, but it was
|
|
no use. The " D ,TORRENT-LOSER " was gone!" CR CR>
|
|
<TELL
|
|
"Praxix looked grim. \"This is an evil omen,\" he said. \"We shall
|
|
not be able to replace it!\"">)
|
|
(T
|
|
<TELL "Fortunately, we had lost nothing
|
|
to the storm.">)>)
|
|
(<AND <ACTION? CAST>
|
|
<OBJECT? LEVITATE-SPELL>
|
|
<G? <GET-TEMP> 0>>
|
|
<COND (<PRSI? TAG-OBJECT>
|
|
<TELL
|
|
"Fortunately, Praxix had the presence of mind to cast his levitate spell upon me,
|
|
so that the torrent that approached washed harmlessly beneath me, preventing an
|
|
almost certain loss of our possessions, no less my life. The others fared less well,
|
|
having been knocked quite a ways downstream before they regained their footing. ">
|
|
<FIND-STREAM-ESSENCE>
|
|
<TELL
|
|
" Having had the good fortune to have found some magical essence, we continued alongside
|
|
the stream until we came to the shore of the lake.">
|
|
<MOVE-TO ,LAKE-SHORE-1>)
|
|
(T
|
|
<TELL
|
|
"Praxix, taking out his air and earth essences, cast his elevation spell on "
|
|
D ,ACTION-PRSI ", who rose slowly into the air before us. Still, the onrushing
|
|
waters approached, and I tried desparately to get away. ">
|
|
<TORRENT-HITS>
|
|
<RTRUE>)>)
|
|
(PROCEED
|
|
<COND (<L? <SET TMP <GET-TEMP>> 1>
|
|
<TELL
|
|
"We made our way along the stream down to the shore of the lake, as
|
|
a great downpour was loosed from the sky. The stream rose steadily,
|
|
and lightning filled the northern sky. Soon, the stream became a
|
|
wild torrent, nearly washing us aside as we rushed to take cover.
|
|
And then, as quickly as it came, the storm passed, and a wide
|
|
rainbow filled the brightening sky." CR CR>
|
|
<TELL
|
|
"\"That was awfully close!\" I said, checking that the contents
|
|
of my pack were secure." CR CR>
|
|
<MOVE-TO ,LAKE-SHORE-1
|
|
"\"It could have been far worse for us,\" Bergon said darkly. \"Let us continue.\"
|
|
A short time later, we had taken the few hundred paces to the near shore of the
|
|
lake.">)
|
|
(<FSET? ,HERE ,DEAD>
|
|
<MOVE-TO ,LAKE-SHORE-1
|
|
"Having barely survived our adventure at the stream, we walked the last few hundred
|
|
paces to the near shore of the lake.">)
|
|
(T
|
|
<TORRENT-HITS>
|
|
<RTRUE>)>)>)>
|
|
|
|
<OBJECT I-TORRENT-HITS
|
|
(TIME 0)
|
|
(ACTION
|
|
<EXECUTE ()
|
|
<COND (<AND <NOT <FSET? ,HERE ,DEAD>>
|
|
<EQUAL? ,HERE ,GOLD-STREAM>>
|
|
;"Only once now..."
|
|
<TELL CR CR>
|
|
<TORRENT-HITS>)>>)>
|
|
|
|
<ROUTINE TORRENT-HITS ()
|
|
<FSET ,HERE ,DEAD>
|
|
<TELL
|
|
"Too late! We watched as a torrent flowed down the hillside,
|
|
knocking us down and washing my pack downstream. I did my
|
|
best to salvage its contents, then scrambled with the others to a
|
|
rock-sheltered spot nearby, where we waited for the storm to abate.">
|
|
<COND (<IN? ,DWARF-STONE ,INVENTORY>
|
|
<SETG TORRENT-LOSER ,DWARF-STONE>)
|
|
(<IN? ,WEBBA-MAP ,INVENTORY>
|
|
<SETG TORRENT-LOSER ,WEBBA-MAP>)>
|
|
<COND (,TORRENT-LOSER
|
|
<HINT ,HINT-GOLD>
|
|
<UPDATE-MOVE ,TORRENT-LOSER>)>
|
|
<UPDATE-FCLEAR ,HERE ,ADVISE>
|
|
<UPDATE-FCLEAR ,HERE ,INVENTORIED>
|
|
<REMOVE-PARTY-COMMAND ,FIND-GOLD-COMMAND>
|
|
<FIND-STREAM-ESSENCE>>
|
|
|
|
<ROUTINE FIND-STREAM-ESSENCE ()
|
|
<TELL CR CR
|
|
"Strangely, Praxix returned to the swollen stream, and pulled up a few peculiar
|
|
golden stones." CR CR>
|
|
<TELL
|
|
"\"After all that, you of all people are looking for gold!\" Bergon huffed." CR CR>
|
|
<TELL
|
|
"\"Not gold, Bergon,\" he said, rubbing the golden veneer off of the stone. \"Water
|
|
essence, though not altogether much, I'm afraid. I suspect that's what caught our
|
|
eye in the first place.\" Soon, Praxix had finished isolating the water essence from
|
|
its golden facade, and had placed it safely away in his pouch.">
|
|
<FIND-ESSENCE ,ESSENCE-WATER 3>>
|
|
|
|
<GLOBAL LAKE-VICTIM <>>
|
|
|
|
<ROOM LAKE-SHORE-1
|
|
(TRAVEL-COMMANDS PROCEED-COMMAND NUL-COMMAND NUL-COMMAND)
|
|
(FLAGS ADVISE DANGEROUS)
|
|
(ENTER
|
|
<EXECUTE ()
|
|
<COND (<NOT <QSET? ,HERE ,SEEN>>
|
|
<COND (<EQUAL? ,PARTY-MAX 2>
|
|
<TELL
|
|
"After a brief lunch at the lake, we continued around to the far shore.">
|
|
<REMOVE-TRAVEL-COMMAND ,LAKE-SHORE-3 ,BACK-COMMAND>
|
|
<MOVE-TO ,LAKE-SHORE-3>
|
|
<RTRUE>)>
|
|
<TELL CR CR
|
|
"The sun was high in the sky; no sign, not even the rainbow,
|
|
remained as testament to the deluge we had just witnessed.
|
|
It had been a while since our last meal, and talk soon turned to lunch.
|
|
Bergon strode to the shore of the glistening lake and eyed it
|
|
hungrily." CR CR>
|
|
<GRAPHIC ,G-LAKE-SHORE>
|
|
<TELL
|
|
"\"Have I ever told you about my fishing days at Lendros?\" he
|
|
said. Nobody responded to this informal banter, but Bergon
|
|
persisted." CR CR>
|
|
<TELL
|
|
"\"How would everyone feel about some fresh lake trout?\" he asked." CR CR>
|
|
<TELL
|
|
"\"Oh, my, yes; that would hit the spot!\" he replied, playfully." CR CR>
|
|
<TELL
|
|
"Then, taking the slightest murmur from the group as a mandate, he dove
|
|
into the icy clear waters." CR CR>
|
|
<TELL
|
|
"He surfaced soon thereafter; though out of breath, he gasped
|
|
something about our upcoming feast">
|
|
<COND (<AND <NOT ,2ND-PASS>
|
|
<NOT <FSET? ,DWARF-MEETING ,SEEN>>>
|
|
<SETG LAKE-VICTIM
|
|
<FIRST-IN-PARTY ,MINAR ,ESHER>>
|
|
<COND (,LAKE-VICTIM
|
|
<TELL ". Seeing how weakened Bergon
|
|
had become, " D ,LAKE-VICTIM " pulled him from the lake and dove in to
|
|
catch our lunch himself. But he did not surface, and, after a few agonizingly
|
|
long minutes, our concern turned to alarm.">
|
|
<PARTY-REMOVE ,LAKE-VICTIM>)
|
|
(T
|
|
;"Can't do the nymph scene in this condition..."
|
|
<TELL ". But Praxix convinced Bergon that,
|
|
having already lost some of our party, he should not attempt such a dive in
|
|
his breathless condition.">
|
|
<UPDATE-FCLEAR ,HERE ,ADVISE>
|
|
<RTRUE>)>)
|
|
(T
|
|
<TELL ", laughed, then dove again into the
|
|
lake. Only this time, he did not return.">
|
|
<SETG LAKE-VICTIM ,BERGON>
|
|
<PARTY-REMOVE ,BERGON>)>
|
|
<FSET ,LAKE-VICTIM ,INCAPACITATED>
|
|
<SETG UPDATE-FLAG T>
|
|
<ADD-PARTY-COMMAND ,ENTER-LAKE-COMMAND>)>>)
|
|
(ACTION
|
|
<ACOND ()
|
|
(SCOUT:REMOVE
|
|
<COND (<EQUAL? ,ACTOR ,ESHER>
|
|
<TELL "Frant">)
|
|
(T
|
|
<TELL "Method">)>
|
|
<TELL
|
|
"ically, " ACT " scouted the area along the shore looking for any sign
|
|
of " D ,LAKE-VICTIM ". He returned frustrated, having found no sign of our
|
|
missing friend.">
|
|
<COND (<EQUAL? ,ACTOR ,MINAR>
|
|
<TELL
|
|
" He did, however, find something of interest, and not far
|
|
from where we stood." CR CR>
|
|
<TELL
|
|
"\"There's a cave,\" he said, \"just a little farther along the
|
|
shore.\"">)>
|
|
<RTRUE>)
|
|
(GET-ADVICE:REMOVE
|
|
<TELL D ,LEADER>
|
|
<COND (<EQUAL? ,LAKE-VICTIM ,BERGON>
|
|
<TELL ", taking charge and attempting at the same time
|
|
not to sound overly pessimistic,">)>
|
|
<TELL
|
|
" said, \"Perhaps " D ,LAKE-VICTIM " has been caught in a current, and
|
|
carried further along the shore.\"">
|
|
<TELL CR CR>
|
|
<COND (<EQUAL? ,LEADER ,PRAXIX>
|
|
<TELL "Praxix continued. \"">)
|
|
(T
|
|
<TELL
|
|
"Praxix concurred. \"" D ,LEADER " is right,\" he
|
|
started, \"">
|
|
<COND (<EQUAL? ,LEADER ,ESHER>
|
|
<TELL "though I am loath to admit it. T">)
|
|
(T
|
|
<TELL "t">)>)>
|
|
<TELL
|
|
"here is no sign of " D ,LAKE-VICTIM ", and that is very disturbing indeed!
|
|
Perhaps we shall learn more as we progress along the lake shore.\"">
|
|
<RTRUE>)
|
|
(PROCEED
|
|
<COND (,LAKE-VICTIM
|
|
<MOVE-TO ,LAKE-SHORE-2
|
|
"Having little alternative, we packed our things and moved along the
|
|
shore, coming to a narrow cave through which a warm spring emptied
|
|
into the lake.">)
|
|
(T
|
|
<TELL
|
|
"After a restful night at the shore of the lake, we marched around the
|
|
shore until the path ended, continuing instead steeply upward into the
|
|
surrounding hills." CR CR>
|
|
<APPLY <GETP ,LAKE-SHORE-3 ,P?ACTION>>
|
|
<RTRUE>)>)
|
|
(ENTER-LAKE
|
|
<TELL
|
|
"With a sense of urgency, I jumped into the cold waters and dove
|
|
vertically down along a vast rock wall which stretched out of sight
|
|
beneath me. But whereas the wall bounded my movements on one side,
|
|
the vastness of the lake stretched out before me on the other - clear
|
|
and still - and there was no sign of " D ,LAKE-VICTIM "!">
|
|
<MOVE-TO ,UNDERSHORE-1>)>)>
|
|
|
|
<COMMAND (ENTER-CAVE ENTER)>
|
|
|
|
<ROOM LAKE-SHORE-2
|
|
(TRAVEL-COMMANDS PROCEED-COMMAND ENTER-CAVE-COMMAND NUL-COMMAND)
|
|
(GRAPHIC G-LAKE-SHORE-CAVE)
|
|
(FLAGS NEAR-DARK)
|
|
(ACTION
|
|
<ACOND ()
|
|
(SCOUT:REMOVE
|
|
<TELL ACT " went ahead, ">
|
|
<COND (<NOT <FSET? ,PRAXIX ,LIT>>
|
|
<TELL
|
|
"but returned before long, telling us that the cave was too
|
|
dark to explore without additional light.">)
|
|
(T
|
|
<TELL
|
|
"taking Praxix' staff with him for light. When he returned, he
|
|
related that the cave continued until it ended at the site of a deep, warm pool.">)>)
|
|
(ENTER-CAVE
|
|
<FSET ,HERE ,DONT-SCOUT>
|
|
<COND (<FSET? ,LAKE-CAVE ,SEEN>
|
|
<REMOVE-TRAVEL-COMMAND>
|
|
<REMOVE-TRAVEL-COMMAND ,LAKE-SHORE-3 ,BACK-COMMAND>
|
|
<TELL
|
|
"Determined not to give up hope, we again entered the cave">
|
|
<COND (<FSET? ,LAKE-POOL ,SEEN>
|
|
<TELL
|
|
", continuing down the narrow path until we reached the edge of the warm pool">
|
|
<MOVE-TO ,LAKE-POOL>)
|
|
(T
|
|
<MOVE-TO ,LAKE-CAVE>)>
|
|
<TELL ".">)
|
|
(T
|
|
<TELL
|
|
"Following the side of the warm spring into the cave, we passed through
|
|
caverns whose water-polished walls gave testimony to the torrents that
|
|
had flowed through these chambers many long years ago.">
|
|
<MOVE-TO ,LAKE-CAVE>)>
|
|
<COND (<AND <EQUAL? ,HERE ,LAKE-CAVE>
|
|
<NOT <FSET? ,PRAXIX ,LIT>>>
|
|
<TELL
|
|
" We were now far enough into the cave that the available light was fading
|
|
quickly. It would be far too dangerous to proceed any further.">)>
|
|
<RTRUE>)
|
|
(PROCEED
|
|
<TELL
|
|
"The path along the shore soon ended, continuing instead steeply
|
|
upward into the surrounding hills. Further progress along the shore
|
|
would be impossible.">
|
|
<COND (<AND <NOT <IN-PARTY? ,LAKE-VICTIM>>
|
|
<NOT <QSET? ,HERE ,BLUE-MIX>>>
|
|
<TELL
|
|
" If we continued now, it was almost certain we'd never see " D ,LAKE-VICTIM
|
|
" again.">)>
|
|
<MOVE-TO ,LAKE-SHORE-3>)>)>
|
|
|
|
<ROOM LAKE-SHORE-3
|
|
(TRAVEL-COMMANDS PROCEED-COMMAND BACK-COMMAND NUL-COMMAND)
|
|
(FLAGS DONT-SCOUT)
|
|
(GRAPHIC G-LAKE-SHORE-3)
|
|
(ENTER
|
|
<EXECUTE ()
|
|
<COND (<IN-PARTY? ,LAKE-VICTIM>
|
|
<REMOVE-PARTY-COMMAND ,BACK-COMMAND>)>>)
|
|
(ACTION
|
|
<ACOND ()
|
|
(PROCEED
|
|
<COND (<AND ,LAKE-VICTIM <NOT <IN-PARTY? ,LAKE-VICTIM>>>
|
|
<HINT ,HINT-LAKE>
|
|
<TELL
|
|
"\"I am afraid we have no alternative,\" " D ,LEADER " said, \"but
|
|
to go on without " D ,LAKE-VICTIM ".\"" CR CR>)
|
|
(<AND ,LAKE-VICTIM <NOT <IN? ,NYMPH-STONE ,INVENTORY>>>
|
|
<HINT ,HINT-NYMPH-STONE>)>
|
|
<COND (,2ND-PASS
|
|
<COND (<AND <NOT <FSET? ,BITE-FOREST ,SEEN>>
|
|
<OR <IN-PARTY? ,MINAR> <IN-PARTY? ,ESHER>>>
|
|
<TELL
|
|
"The next morning, we retraced our earlier steps, skirting the edge of the lake,
|
|
and descending back into the forest for our return to Astrix. It was soon midday,
|
|
and we decided to stop in a nearby clearing for some lunch.">
|
|
<MOVE-TO ,BITE-FOREST>
|
|
<RTRUE>)
|
|
(T
|
|
<N-DAY-TREK 3>
|
|
<RTRUE>)>)>
|
|
<TELL
|
|
"We left the lake, climbing out of the valley and into the northeastern
|
|
hills. Following a narrow path, we marched until, late in the afternoon,
|
|
the path climbed steeply up a high ridge. We arrived as dusk approached
|
|
and stood in awe of the world that surrounded us." CR CR>
|
|
<MOVE-TO-FOREST-RIDGE>)
|
|
(BACK:REMOVE
|
|
<TELL
|
|
"Unwilling to leave the lake without making another attempt at finding "
|
|
D ,LAKE-VICTIM ", we retraced our steps and soon arrived back at the mouth of
|
|
the cave.">
|
|
<MOVE-TO ,LAKE-SHORE-2>)>)>
|
|
|
|
<ROOM LAKE-CAVE
|
|
(TRAVEL-COMMANDS PROCEED-COMMAND BACK-COMMAND NUL-COMMAND)
|
|
(FLAGS DONT-SCOUT NEAR-DARK)
|
|
(ENTER FSET-SEEN)
|
|
(GRAPHIC G-NARROW-SLIT)
|
|
(CLOCK
|
|
<EXECUTE ()
|
|
<COND (<FSET? ,PRAXIX ,LIT>
|
|
<FORCE-TRAVEL-COMMAND ,HERE ,PROCEED-COMMAND>)>>)
|
|
(ACTION
|
|
<ACOND ()
|
|
(PROCEED
|
|
<COND (<NOT <FSET? ,PRAXIX ,LIT>>
|
|
<TELL
|
|
"Despite the darkness, we continued down the narrow path until it became clearly
|
|
futile to do so." CR CR>
|
|
<TELL
|
|
"\"It is bad enough that we have lost " D ,LAKE-VICTIM ",\" Praxix said.
|
|
\"It would be folly to risk other lives.\"">
|
|
<REMOVE-TRAVEL-COMMAND>)
|
|
(T
|
|
<MOVE-TO ,LAKE-POOL
|
|
"A narrow path now led beside the gently flowing spring, and this we
|
|
followed until we came upon a deep, warm pool whose crystal clarity was a
|
|
revelation to behold.">)>)
|
|
(BACK
|
|
<TELL "It appeared ">
|
|
<COND (<FSET? ,PRAXIX ,LIT>
|
|
<TELL "the cave would lead nowhere">)
|
|
(T
|
|
<TELL " we would not learn where the cave led">)>
|
|
<MOVE-TO ,LAKE-SHORE-2
|
|
"; and so, with hope fading for our lost friend, we returned to the mouth of
|
|
the cave.">)>)>
|
|
|
|
<ROOM LAKE-POOL
|
|
(TRAVEL-COMMANDS PROCEED-COMMAND BACK-COMMAND ENTER-POOL-COMMAND)
|
|
(GRAPHIC G-LAKE-POOL)
|
|
(ENTER FSET-SEEN)
|
|
(FLAGS UNDERGROUND ADVISE)
|
|
(ACTION
|
|
<ACOND ()
|
|
(GET-ADVICE:REMOVE
|
|
<COND (<OR <FSET? ,UNDERPOOL-2 ,SEEN>
|
|
<NOT <IN-PARTY? ,ESHER>>>
|
|
<TELL
|
|
"We huddled among ourselves, but few words were spoken. And yet I could see
|
|
in Praxix' eyes the desire that I">
|
|
<COND (<FSET? ,UNDERPOOL-2 ,SEEN>
|
|
<TELL " once again">)>
|
|
<TELL " attempt the descent.">)
|
|
(<FSET? ,UNDERPOOL-2 ,SEEN>
|
|
<TELL
|
|
"Esher felt it would be dangerous to explore the pool further, but
|
|
Praxix was more optimistic. \"This pool appears natural, yet it is clearly
|
|
the handiwork of great artisans; the search for knowledge is always
|
|
dangerous, Esher, and yet is it not the purpose of our Journey?\" he said.">)
|
|
(T
|
|
<TELL D ,LEADER
|
|
" stood a long while in thought, then asked for advice.">
|
|
<COND (<G? ,PARTY-MAX 2>
|
|
<TELL
|
|
" When none spoke, I made a rare suggestion of my own.">)>
|
|
<TELL " \"I
|
|
am happy to have a look underwater, if you think it would help,\" I
|
|
said.">
|
|
<COND (<NOT <EQUAL? ,LEADER ,PRAXIX>>
|
|
<TELL CR CR
|
|
"Praxix said nothing; he turned toward the pool and stared.">)>
|
|
<RTRUE>)>)
|
|
(<OR <ACTION? SCOUT>
|
|
<ACTION? PROCEED>>
|
|
<REMOVE-TRAVEL-COMMAND ,HERE ,PROCEED-COMMAND>
|
|
<UPDATE-FSET ,HERE ,DONT-SCOUT>
|
|
<COND (<ACTION? SCOUT>
|
|
<TELL ACT>)
|
|
(T
|
|
<TELL "Praxix, going on ahead,">)>
|
|
<TELL
|
|
" tried to find another path through the cave, but failed. \"This is
|
|
as far as it goes,\" he said.">)
|
|
(BACK
|
|
<COND (<FSET? ,UNDERPOOL-2 ,SEEN>
|
|
<TELL "W">)
|
|
(T
|
|
<TELL
|
|
"It appeared the cave would lead nowhere; and so, w">)>
|
|
<TELL
|
|
"ith hope fading for our lost friend, we returned to the mouth of the cave.">
|
|
<MOVE-TO ,LAKE-SHORE-2>)
|
|
(ENTER-POOL
|
|
<FSET ,HERE ,ADVISE>
|
|
<COND (<NOT ,SUBGROUP-MODE>
|
|
<MAKE-TAG-SUBGROUP T>)>
|
|
<COND (<FSET? ,UNDERPOOL-2 ,SEEN>
|
|
<TELL
|
|
"With Praxix' encouragement, I descended again through the warm
|
|
waters, coming finally to the lip of the tube. I had only seconds to
|
|
make a decision.">)
|
|
(T
|
|
<TELL
|
|
"It was the consensus that we search the depths of the pool in search of
|
|
whatever lay below. I volunteered, giving my pack to Praxix for safe keeping.
|
|
Then, taking a deep breath, I plunged into the warming waters." CR CR>
|
|
<TELL
|
|
"I descended along the rock formations which bounded the pool, admiring
|
|
the flowing forms that the water had created through the long ages.
|
|
And then, a knot formed in my stomach. For the walls surrounding
|
|
me were now smooth, like polished glass. I shuddered, thinking of
|
|
what might lie beyond." CR CR>
|
|
<TELL
|
|
"I had just about reached the limit of my descent, when I
|
|
came to the end of the tube as it opened out into what I could only
|
|
imagine was the greater part of the lake. I had to think fast: no
|
|
matter which choice I made, I would have to surface at once!">)>
|
|
<MOVE-TO ,UNDERPOOL-2>)
|
|
(<AND <ACTION? CAST> <OBJECT? FAR-VISION-SPELL>>
|
|
<TELL
|
|
"Praxix was intrigued by this pool, and decided to see just how deep
|
|
it was. And so he pulled out some fire and air essence, and shot a ball of
|
|
flame into the water; it fizzled out even as it penetrated the surface.">
|
|
<COND (<IN-PARTY? ,ESHER>
|
|
<TELL " Esher raised an eyebrow;">)>
|
|
<TELL " I stifled a laugh." CR CR>
|
|
<TELL
|
|
"Praxix straightened up and, trying his best to sound sincere, said,
|
|
\"As I suspected!\"">)>)>
|
|
|
|
<ROUTINE POOL-MOVE (STR)
|
|
<CLEAR-SUBGROUP>
|
|
<RESTORE-TAG-COMMANDS>
|
|
<RESTORE-TAG-OBJECTS>
|
|
<MOVE-TO ,LAKE-POOL .STR>>
|
|
|
|
<COMMAND (LEAVE-TUBE LV-TUBE)>
|
|
<COMMAND (ENTER-LAKE ENTER)>
|
|
|
|
<OBJECT UNDERPOOL-2-TUBE
|
|
(LOC UNDERPOOL-2)
|
|
(SDESC "tube")
|
|
(KBD %<ASCII !\T>)
|
|
(FLAGS DONT-TAKE)
|
|
(ACTION
|
|
<ACOND ()
|
|
(EXAMINE:REMOVE
|
|
<TELL
|
|
"Having little time, I nonetheless examined the tube. It was smooth to
|
|
the touch, and of a material completely foreign to me. Here, at the
|
|
bottom, it was only four feet across, making it difficult to maneuver.">)>)>
|
|
|
|
<ROOM UNDERPOOL-2
|
|
(TRAVEL-COMMANDS RETURN-COMMAND LEAVE-TUBE-COMMAND NUL-COMMAND)
|
|
(GRAPHIC G-UNDERPOOL-TUBE)
|
|
(FLAGS UNDERWATER)
|
|
(ENTER FSET-SEEN)
|
|
(ACTION
|
|
<ACOND ()
|
|
(LEAVE-TUBE
|
|
<TELL
|
|
"Now I am not a cowardly person, yet I was sorely tempted to rise back
|
|
to the surface. But some inner reserve of strength guided my actions;
|
|
I pulled myself through the lip of the tube, then rose steadily
|
|
toward the unknown." >
|
|
<UL-1-MOVE>)
|
|
(RETURN
|
|
<COND (<NOT <QSET? ,HERE ,TRIED>>
|
|
<TELL
|
|
"Now I am not a cowardly person, though by returning to the surface
|
|
it may appear otherwise. And yet, how could I know what I might
|
|
find when I rose to the surface outside of the tube? For that matter,
|
|
I could not even be sure there was a surface to reach!">)
|
|
(T
|
|
<REMOVE-TRAVEL-COMMAND ,LAKE-POOL ,ENTER-POOL-COMMAND>
|
|
<TELL
|
|
"Once again, however, I found myself unable to leave the tube and
|
|
venture forth into the unknown.">)>
|
|
<TELL CR CR>
|
|
<POOL-MOVE
|
|
"And thus I returned to the safety of the pool, fully aware that my
|
|
decision might forever doom our missing friend.">)>)>
|
|
|
|
<OBJECT WARM-POOL
|
|
(SDESC "pool")
|
|
(KBD %<ASCII !\P>)
|
|
(LOC LAKE-POOL)
|
|
(FLAGS DONT-TAKE)
|
|
(ACTION
|
|
<ACOND ()
|
|
(EXAMINE:REMOVE
|
|
<TELL
|
|
"Each of us was mesmerized by this lovely pool, whose depth appeared
|
|
infinite. " ACT " picked up a rock lying nearby and tossed
|
|
it into the water; we watched it as it fell and when it finally
|
|
disappeared from sight, we were watching still.">)>)>
|
|
|
|
<COMMAND (ENTER-POOL ENTER)>
|
|
|
|
<ROOM UNDERSHORE-1
|
|
(TRAVEL-COMMANDS DIVE-COMMAND SURFACE-COMMAND NUL-COMMAND)
|
|
(FLAGS UNDERWATER)
|
|
(ENTER
|
|
<EXECUTE () <MAKE-SUBGROUP ,TAG> <TRAVEL-COMMANDS ,TAG ,NUL-COMMAND>>)
|
|
(EXIT
|
|
<EXECUTE ()
|
|
<CLEAR-SUBGROUP>
|
|
<RESTORE-TAG-COMMANDS>>)
|
|
(ACTION
|
|
<ACOND ()
|
|
(DIVE
|
|
<TELL
|
|
"Mustering my remaining strength, I dove farther along the rock
|
|
wall. Almost out of air, I caught sight of the wall's bottom some fifty
|
|
or more feet below me. \"He could not have gone this way,\" I said to
|
|
myself. \"There is not a person alive strong enough!\" And yet, gazing
|
|
into the expanse of lake before me, I could hardly imagine where else he
|
|
could have gone without leaving the slightest trace." CR CR>
|
|
<MOVE-TO ,LAKE-SHORE-1
|
|
"The water here, thirty feet or so below the surface, was strangely warm
|
|
and comforting, but some inner alarm awakened me to my danger. It would be
|
|
madness to go further, so I ascended to the surface.">)
|
|
(SURFACE
|
|
<TRAVEL-COMMANDS ,LAKE-SHORE-1
|
|
,PROCEED-COMMAND
|
|
;,DIVE-COMMAND>
|
|
<TELL
|
|
"With no sign of " D ,LAKE-VICTIM ", I returned to the surface and reported
|
|
back to the group.">
|
|
<MOVE-TO ,LAKE-SHORE-1>)>)>
|
|
|
|
<END-SEGMENT>
|
|
|
|
<BEGIN-SEGMENT NYMPHS>
|
|
|
|
<ROUTINE UL-1-MOVE ()
|
|
<PICINF ,G-NYMPH-CHAMBER ,PICINF-TBL> ;"Force disk flip"
|
|
<COND (<NOT ,SUBGROUP-MODE>
|
|
<MAKE-TAG-SUBGROUP T>)>
|
|
<TELL CR CR>
|
|
<TELL
|
|
"Within moments, I had arrived at the surface, pulling myself out
|
|
of another, larger pool and onto a sandy area. Exhausted, yet
|
|
exhilarated, I rose to my feet and found myself standing in a wide chamber
|
|
cut from the surrounding rock; a finely carved archway led into a dimly
|
|
glowing passage. On the archway were runes quite unlike any I had ever seen
|
|
before.">
|
|
<TELL CR CR
|
|
"Still somewhat lightheaded from my time underwater, I walked into
|
|
the passage, which soon widened into a grander chamber adorned with colorful
|
|
banners. This would be the land of the Nymphs, if ">
|
|
<COND (,2ND-PASS <TELL "Astrix">)
|
|
(T <TELL "my book of legends">)>
|
|
<TELL " was to be believed. And there, to my surprise, was " D ,LAKE-VICTIM
|
|
", lying on a bed of straw and covered in a heavy woolen blanket." CR CR>
|
|
<TRAVEL-COMMANDS ,TAG ,PICK-UP-COMMAND ,DROP-COMMAND ,EXAMINE-COMMAND>
|
|
<MOVE-TO ,UL-2
|
|
"And as I approached my sleeping friend, I could hear someone approach
|
|
from another corridor nearby.">>
|
|
|
|
<OBJECT UL-2-MINAR
|
|
(SDESC "Minar")
|
|
(KBD %<ASCII !\M>)
|
|
(FLAGS DONT-TAKE)
|
|
(ACTION
|
|
<ACOND ()
|
|
(EXAMINE:REMOVE
|
|
<EXAMINE-LAKE-VICTIM>)>)>
|
|
|
|
<OBJECT UL-2-ESHER
|
|
(SDESC "Esher")
|
|
(KBD %<ASCII !\E>)
|
|
(FLAGS DONT-TAKE)
|
|
(ACTION
|
|
<ACOND ()
|
|
(EXAMINE:REMOVE
|
|
<EXAMINE-LAKE-VICTIM>)>)>
|
|
|
|
<OBJECT UL-2-BERGON
|
|
(SDESC "Bergon")
|
|
(KBD %<ASCII !\B>)
|
|
(FLAGS DONT-TAKE)
|
|
(ACTION
|
|
<ACOND ()
|
|
(EXAMINE:REMOVE
|
|
<EXAMINE-LAKE-VICTIM>)>)>
|
|
|
|
<ROUTINE EXAMINE-LAKE-VICTIM ()
|
|
<COND (<FSET? ,LAKE-VICTIM ,INCAPACITATED>
|
|
<FSET ,LAKE-VICTIM ,TRIED>
|
|
;"Set flag to say we've seen him..."
|
|
<TELL
|
|
"At first, " D ,LAKE-VICTIM " appeared unnaturally still, perhaps dead. But
|
|
the blanket which covered him heaved slowly with his breath, and for this,
|
|
I was greatly relieved.">
|
|
<COND (<FSET? ,HERE ,EXAMINED>
|
|
<TELL CR CR
|
|
"But as I knelt beside him, my foot inadvertantly caught the end of the
|
|
blanket, and pulled it to the floor. " D ,LAKE-VICTIM " was not only unconscious,
|
|
but his feet and hands had been tightly bound!">)>
|
|
<TELL
|
|
" Fortunately, it was a simple matter to remove his bonds. Bringing him back
|
|
to consciousness would be another thing entirely, and it was likely that the
|
|
creature that bound him would return before long." CR CR>
|
|
<TELL
|
|
"But this problem was soon solved of itself, for " D ,LAKE-VICTIM " slowly
|
|
started to wake. He was too weak to be moved, so I calmed him the best I could
|
|
by urging him to rest.">
|
|
<FCLEAR ,LAKE-VICTIM ,INCAPACITATED>)
|
|
(T
|
|
<TELL D ,LAKE-VICTIM
|
|
" was already quite a bit stronger and appeared fit enough to return with me
|
|
to the cave where our party stood waiting.">)>>
|
|
|
|
<COMMAND TO-CAVE>
|
|
|
|
<COMMAND (RETURN-ALONE RETURN)>
|
|
|
|
<OBJECT I-LAKE-VICTIM-COMES-TO
|
|
(TIME 0)
|
|
(ACTION
|
|
<EXECUTE ()
|
|
<COND (<FSET? ,LAKE-VICTIM ,INCAPACITATED>
|
|
<FCLEAR ,LAKE-VICTIM ,INCAPACITATED>
|
|
<CHANGE-TRAVEL-COMMAND ,UL-2
|
|
,RETURN-ALONE-COMMAND
|
|
,TO-CAVE-COMMAND>
|
|
<COND (<EQUAL? ,HERE ,UL-2>
|
|
<TELL CR CR
|
|
"Just then, " D ,LAKE-VICTIM " stirred and I moved to his side. Within a few minutes,
|
|
he had regained consciousness, but I advised him to remain quiet and calm">
|
|
<COND (<FSET? ,LAKE-VICTIM ,TRIED>
|
|
;"We know about his capture..."
|
|
<TELL
|
|
" until we were ready to make our escape.">)
|
|
(T
|
|
<TELL
|
|
". Although short of breath, he told of his underwater capture by the Nymphs. He
|
|
did not know their purpose, nor could he guess, yet he was certain of their evil
|
|
designs." CR CR>
|
|
<TELL
|
|
"\"We must leave here at once,\" he said, \"for surely they will return before
|
|
long.\"">)>)>)>
|
|
<REMOVE ,I-LAKE-VICTIM-COMES-TO>>)>
|
|
|
|
<ROOM UL-2
|
|
(TRAVEL-COMMANDS TO-CAVE-COMMAND WIDE-PATH-COMMAND NARROW-PATH-COMMAND
|
|
NUL-COMMAND)
|
|
(GRAPHIC G-NYMPH-CHAMBER)
|
|
(FLAGS UNDERGROUND TORCHBIT LIT)
|
|
(ENTER
|
|
<EXECUTE ()
|
|
<TORCH-CHECK ,HERE>
|
|
<COND (<NOT <QSET? ,HERE ,SEEN>>
|
|
<QUEUE I-LAKE-VICTIM-COMES-TO 8>
|
|
<COND (<EQUAL? ,LAKE-VICTIM ,MINAR>
|
|
<UPDATE-MOVE ,UL-2-MINAR ,HERE>)
|
|
(<EQUAL? ,LAKE-VICTIM ,ESHER>
|
|
<UPDATE-MOVE ,UL-2-ESHER ,HERE>)
|
|
(T
|
|
<UPDATE-MOVE ,UL-2-BERGON ,HERE>)>
|
|
<OPTION ,TAG ,STAND-COMMAND ,HIDE-COMMAND>)>>)
|
|
(ACTION
|
|
<ACOND ()
|
|
(TO-CAVE
|
|
<COND (<FSET? ,LAKE-VICTIM ,INCAPACITATED>
|
|
<TELL
|
|
"It was clear that we were in great danger, and my immediate reaction was to
|
|
return to the pool with " D ,LAKE-VICTIM ". But it was painfully obvious that
|
|
he was in no condition to be moved, no less withstand the dive. No, I could
|
|
return, but it would not be with " D ,LAKE-VICTIM ".">
|
|
<CHANGE-TRAVEL-COMMAND ,HERE
|
|
,TO-CAVE-COMMAND
|
|
,RETURN-ALONE-COMMAND>)
|
|
(T
|
|
<TELL
|
|
"Now conscious and regaining his strength, I managed to help " D ,LAKE-VICTIM " back
|
|
to the pool">
|
|
<COND (<IN? ,TORCH ,INVENTORY>
|
|
<TELL ". As much as I would have preferred to take
|
|
the torch along, I simply could not handle both it and " D ,LAKE-VICTIM ". Holding
|
|
my friend firmly, we dove">)
|
|
(T
|
|
<TELL " and then down">)>
|
|
<TELL
|
|
" into the warm waters, finally reaching the tube which led back to">
|
|
<END-NYMPH-STORY T>)>)
|
|
(RETURN-ALONE
|
|
<TELL
|
|
"There was no way that I could help poor " D ,LAKE-VICTIM ". In a few moments,
|
|
his captors would no doubt arrive, and then both of us might well be doomed.
|
|
Heavy of heart, I dove back into the pool, and from there back into the tube
|
|
which led back to">
|
|
<END-NYMPH-STORY>)
|
|
(WIDE-PATH
|
|
<COND (<UL-MOVE-CHECK ,UL-JCN>
|
|
<TELL
|
|
"With a good deal of apprehension, I ventured through the doorway and into
|
|
a hallway which came to a large, empty chamber, with an ornate doorway
|
|
to the right and a simpler one to the left, from which a nasty smell
|
|
emanated. Ahead, another passage led into the distance.">
|
|
<UL-MOVE ,UL-JCN>)>)
|
|
(NARROW-PATH
|
|
<COND (<UL-MOVE-CHECK ,UL-2-PIT>
|
|
<TELL
|
|
"The narrow path snaked through the rock until it ended blindly at a very small,
|
|
rounded chamber, in the middle of which lay a ">
|
|
<COND (<FSET? ,UL-2-PIT ,SCOUTED>
|
|
<TELL "perfectly round pool of water.">)
|
|
(T
|
|
<TELL "large stone cover.">)>
|
|
<UL-MOVE ,UL-2-PIT>)>)
|
|
(HIDE
|
|
<SINGLE-MOVE-GRAPHIC ,G-LIURA>
|
|
<FSET ,HERE ,TRIED>
|
|
<QUEUE I-NYMPHS-ARRIVE 40>
|
|
<TELL
|
|
"With some hesitation, I decided to wait outside of the chamber until I could
|
|
see who was coming. And then it came, whatever creature it was that inhabited these
|
|
halls. It moved slowly, but gracefully, to " D ,LAKE-VICTIM "'s side, as if
|
|
checking on his health. Relieved, I was about to greet this unknown being,
|
|
when I noticed the ropes which bound together " D ,LAKE-VICTIM "'s hands and
|
|
feet! A moment later, the being glided out of the room, and I again reentered.">
|
|
<END-OPTION>)
|
|
(WAIT
|
|
<TELL
|
|
"I did as the creature asked, but this was a tragic mistake. Within minutes"
|
|
,ARMED-CREATURES>
|
|
<END-NYMPH-STORY>)
|
|
(STAND
|
|
<SINGLE-MOVE-GRAPHIC ,G-LIURA>
|
|
<QUEUE I-NYMPHS-ARRIVE 24>
|
|
<TELL
|
|
"I stood there as a strange creature entered the chamber, and I cannot honestly say
|
|
which of us was the more surprised. But a moment later, it spoke with an utterly
|
|
foreign accent and a hint of what I could only call nervousness." CR CR
|
|
"\"Your friend is quite ill,\" it said. \"It would be best for you to wait
|
|
by his side until I return. Do not touch or examine him! He clings perilously to
|
|
life!\" And with that, the creature left the chamber.">
|
|
<ADD-TRAVEL-COMMAND ,HERE ,WAIT-COMMAND>
|
|
<FSET ,HERE ,EXAMINED>
|
|
<END-OPTION>)>)>
|
|
|
|
<OBJECT I-NYMPHS-ARRIVE
|
|
(TIME 0)
|
|
(ACTION
|
|
<EXECUTE ()
|
|
<SETG NYMPHS-COMING? T>>)>
|
|
|
|
<GLOBAL NYMPHS-COMING? <>>
|
|
|
|
<COMMAND (WIDE-PATH WIDE)>
|
|
<COMMAND (NARROW-PATH NARROW)>
|
|
|
|
<OBJECT TORCH
|
|
(SDESC "torch")
|
|
(FLAGS DONT-EXAMINE DONT-DROP)
|
|
(KBD %<ASCII !\T>)
|
|
(TEMP 0)
|
|
(ACTION
|
|
<ACOND ("AUX" TMP)
|
|
(PICK-UP
|
|
<COND (<EQUAL? ,HERE ,UL-PIT>
|
|
<FCLEAR ,HERE ,TORCHBIT>
|
|
<FORCE-TRAVEL-COMMAND ,HERE ,DIVE-COMMAND>
|
|
<UPDATE-MOVE ,TORCH ,INVENTORY>
|
|
<COND (<NOT <GETP ,TORCH ,P?TEMP>>
|
|
<TELL
|
|
"Not knowing which chambers might be unlighted, I thought it best to take one
|
|
of the torches.">)
|
|
(T
|
|
<TELL
|
|
"Again, I attempted to take one of the torches, but this time I succeeded.">)>
|
|
<TELL
|
|
" It's light was bright but cold, and its flame gave off little heat.">)
|
|
(T
|
|
<UPDATE-FSET ,TORCH ,DONT-TAKE>
|
|
<PUTP ,TORCH
|
|
,P?TEMP
|
|
<SET TMP <+ <GETP ,TORCH ,P?TEMP> 1>>>
|
|
<COND (<G? .TMP 1>
|
|
<TELL "Again, ">)>
|
|
<TELL
|
|
"I tried to take one of the torches, but failed. They were too firmly attached to
|
|
the wall.">)>)
|
|
(DROP
|
|
<TELL
|
|
"I considered putting down the torch but decided against it, believing that it
|
|
might well come in useful later.">)>)>
|
|
|
|
<ROUTINE TORCH-CHECK (RM)
|
|
<COND (<AND <FSET? .RM ,TORCHBIT>
|
|
<NOT <IN? ,TORCH ,INVENTORY>>>
|
|
<UPDATE-MOVE ,TORCH .RM>
|
|
<UPDATE-FCLEAR ,TORCH ,DONT-TAKE>)>>
|
|
|
|
<ROUTINE UL-MOVE-CHECK (RM)
|
|
<COND (<AND <NOT <IN? ,TORCH ,INVENTORY>>
|
|
<NOT <FSET? .RM ,TORCHBIT>>>
|
|
<FCLEAR .RM ,LIT>
|
|
<TELL
|
|
"I slowly entered the chamber, but it was pitch black inside and, rather than
|
|
risk injury (or worse), I decided to retrace my steps.">
|
|
<RFALSE>)
|
|
(T
|
|
<RTRUE>)>>
|
|
|
|
<ROUTINE UL-MOVE (RM)
|
|
<TORCH-CHECK .RM>
|
|
<FSET .RM ,LIT>
|
|
<COND (<AND <EQUAL? ,HERE .RM>
|
|
<OR <FSET? .RM ,TORCHBIT>
|
|
<EQUAL? .RM ,UL-PIT>>>
|
|
<COND (<NOT <FSET? ,HERE ,TORCHBIT>>
|
|
<TELL " A single torch, mounted alongside">)
|
|
(T
|
|
<TELL " Torches, mounted on either side of">)>
|
|
<TELL
|
|
" the entrance, cast cold, flickering shadows on the stone walls.">)>
|
|
<MOVE-TO .RM>>
|
|
|
|
<ROUTINE END-NYMPH-STORY ("OPTIONAL" (PA <>))
|
|
<REMOVE ,I-NYMPHS-ARRIVE>
|
|
<TELL " ">
|
|
<COND (<EQUAL? ,PARTY-MAX 3> <TELL "Praxix">)
|
|
(T
|
|
<TELL "our party">)>
|
|
<TELL
|
|
". After retelling the story of my adventures, we left the cave, returning to the
|
|
shore of the lake.">
|
|
<CLEAR-SUBGROUP>
|
|
<RESTORE-TAG-OBJECTS>
|
|
<RESTORE-TAG-COMMANDS>
|
|
<UPDATE-MOVE ,TALE-NYMPHS ,PRAXIX-TALES>
|
|
<COND (.PA <PARTY-ADD ,LAKE-VICTIM>)>
|
|
<COND (,2ND-PASS
|
|
<COND (<NOT <IN-PARTY? ,LAKE-VICTIM>>
|
|
<HINT ,HINT-LAKE>)>
|
|
<COND (<AND <NOT <FSET? ,BITE-FOREST ,SEEN>>
|
|
<OR <IN-PARTY? ,MINAR> <IN-PARTY? ,ESHER>>>
|
|
<TELL
|
|
"The next morning, we retraced our earlier steps, skirting the edge of the lake,
|
|
and descending back into the forest for our return to Astrix. It was soon midday,
|
|
and we decided to stop in a nearby clearing for some lunch.">
|
|
<MOVE-TO ,BITE-FOREST>)
|
|
(T
|
|
<TELL CR CR>
|
|
<N-DAY-TREK 3>
|
|
<RTRUE>)>)
|
|
(T
|
|
<REMOVE-TRAVEL-COMMAND ,LAKE-SHORE-3 ,BACK-COMMAND>
|
|
<MOVE-TO ,LAKE-SHORE-3>)>>
|
|
|
|
<OBJECT TALE-NYMPHS
|
|
(SDESC "Nymphs")
|
|
(KBD %<ASCII !\N>)
|
|
(TEXT
|
|
<EXECUTE ()
|
|
<TELL
|
|
"Praxix, now in a garrulous mood, told the tale of the Nymphs.
|
|
\"Long ago, at the beginning of things, it is said that the Nymphs took to
|
|
the waters, becoming, well, fish-like: able to remain submerged for extended
|
|
periods, swimming silent and deep, hunting for their meals in the great
|
|
lakes and oceans of the world. That any remain today is indeed a surprise, though
|
|
perhaps not a happy one. It would appear that they are less than friendly now,
|
|
but who is to be the judge in these difficult times?">>)>
|
|
|
|
<CONSTANT ARMED-CREATURES
|
|
", a group of armed creatures turned the corner and, catching sight of
|
|
me, let out a horrific scream and raced in my direction. Having no other choice,
|
|
I sprinted back to the pool and dove in, eventually making my way back to">
|
|
|
|
<ROOM UL-JCN
|
|
(TRAVEL-COMMANDS BACK-COMMAND LEFT-COMMAND RIGHT-COMMAND PROCEED-COMMAND)
|
|
(FLAGS UNDERGROUND TORCHBIT)
|
|
(ENTER
|
|
<EXECUTE ()
|
|
<COND (,NYMPHS-COMING?
|
|
<TELL CR CR "Just then" ,ARMED-CREATURES>
|
|
<END-NYMPH-STORY>)
|
|
(T
|
|
<GRAPHIC ,G-UNDERLAND-JCN>)>>)
|
|
(ACTION
|
|
<ACOND ()
|
|
(BACK
|
|
<COND (<UL-MOVE-CHECK ,UL-2>
|
|
<TELL
|
|
"Thinking it best to check on my wounded friend, I returned to " D ,LAKE-VICTIM
|
|
"'s side. Thankfully, he was now conscious, though confused.">
|
|
<FCLEAR ,LAKE-VICTIM ,INCAPACITATED>
|
|
<COND (<IN? ,NYMPH-STONE ,INVENTORY>
|
|
<TRAVEL-COMMANDS ,UL-2 ,TO-CAVE-COMMAND>)>
|
|
<UL-MOVE ,UL-2>)>)
|
|
(<OR <ACTION? LEFT> <ACTION? SMELLY-POOL>>
|
|
<COND (<UL-MOVE-CHECK ,UL-PIT>
|
|
<COND (<ACTION? LEFT>
|
|
<TELL
|
|
"The lefthand path led to a good-sized chamber in the middle of which sat a
|
|
large pool. A frightful smell emanated from the pool's depths, though I could not
|
|
see just what it was that caused it.">)
|
|
(T
|
|
<TELL
|
|
"Holding my nose to avoid becoming sick, I moved gingerly toward the smelly pit
|
|
and was soon staring into its murky depths.">)>
|
|
<CHANGE-TRAVEL-COMMAND ,HERE
|
|
,LEFT-COMMAND
|
|
,SMELLY-POOL-COMMAND>
|
|
<UL-MOVE ,UL-PIT>)>)
|
|
(<OR <ACTION? RIGHT> <ACTION? TREASURY>>
|
|
<COND (<UL-MOVE-CHECK ,UL-TREASURY>
|
|
<COND (<NOT <FSET? ,UL-TREASURY ,SEEN>>
|
|
<TELL
|
|
"The ornate path led to a beautifully appointed chamber in which hundreds of jewels
|
|
and other age-old relics were kept. One, however, stood out from among the others.
|
|
It was a simple amulet with a large blue stone which shone with a light of
|
|
another world. I stood transfixed before it, not knowing whether I dare take it for
|
|
my own.">)
|
|
(T
|
|
<TELL
|
|
"Again, I entered the treasury ">
|
|
<COND (<IN? ,NYMPH-STONE ,UL-TREASURY>
|
|
<TELL
|
|
" and found myself facing the blue amulet.">)
|
|
(T
|
|
<TELL
|
|
" and stared at the empty pedestal from which I had taken the blue amulet.">)>)>
|
|
<CHANGE-TRAVEL-COMMAND ,HERE
|
|
,RIGHT-COMMAND
|
|
,TREASURY-COMMAND>
|
|
<UL-MOVE ,UL-TREASURY>)>)
|
|
(PROCEED:REMOVE
|
|
<TELL
|
|
"I continued away from the chamber and soon caught sight of a group of creatures
|
|
conversing. Rather than reveal myself, I returned to the junction.">)>)>
|
|
|
|
<COMMAND (SMELLY-POOL SMELLY)>
|
|
<COMMAND TREASURY>
|
|
|
|
<OBJECT UL-2-PIT-GRATE
|
|
(SDESC "cover")
|
|
(LOC UL-2-PIT)
|
|
(KBD %<ASCII !\C>)
|
|
(ACTION
|
|
<ACOND ()
|
|
(PICK-UP
|
|
<UPDATE-REMOVE ,ACTION-OBJECT>
|
|
<FSET ,HERE ,SCOUTED>
|
|
<TELL
|
|
"The cover was quite heavy, but I did manage to move it aside, revealing a
|
|
dark pool of water, about three feet across.">
|
|
<SETG CURRENT-GRAPHIC <>>
|
|
<GRAPHIC ,G-UNDERLAND-GRATE ,G-UNDERLAND-PIT ,BOTTOM-RIGHT>
|
|
<ADD-TRAVEL-COMMAND ,HERE ,DIVE-COMMAND>
|
|
<RTRUE>)
|
|
(EXAMINE:CLEAR
|
|
<TELL
|
|
"The cover itself was made of stone, and appeared quite heavy.">)>)>
|
|
|
|
<ROOM UL-2-PIT
|
|
(TRAVEL-COMMANDS BACK-COMMAND NUL-COMMAND NUL-COMMAND)
|
|
(FLAGS UNDERGROUND TORCHBIT)
|
|
(ENTER
|
|
<EXECUTE ()
|
|
<COND (<IN? ,UL-2-PIT-GRATE ,HERE>
|
|
<GRAPHIC ,G-UNDERLAND-GRATE>)
|
|
(T
|
|
<GRAPHIC ,G-UNDERLAND-GRATE
|
|
,G-UNDERLAND-PIT
|
|
,BOTTOM-RIGHT>)>>)
|
|
(ACTION
|
|
<ACOND ()
|
|
(BACK
|
|
<COND (<QSET? ,HERE ,SEEN>
|
|
<REMOVE-TRAVEL-COMMAND ,UL-2 ,NARROW-PATH-COMMAND>)>
|
|
<COND (<UL-MOVE-CHECK ,UL-2>
|
|
<TELL
|
|
"I could discern no purpose to this place, so I returned to the chamber outside.">
|
|
<UL-MOVE ,UL-2>)>)
|
|
(DROP
|
|
<UL-PIT-DROP>)
|
|
(DIVE:REMOVE
|
|
<TELL ,NARROW-POOL>)>)>
|
|
|
|
<GLOBAL UL-DROPPED 0>
|
|
|
|
<ROUTINE UL-PIT-DROP ()
|
|
<COND (<FSET? ,HERE ,SCOUTED>
|
|
<SETG UL-DROPPED <+ ,UL-DROPPED 1>>
|
|
<UPDATE-MOVE ,ACTION-OBJECT ,UL-PIT-BOTTOM>
|
|
<ADD-TRAVEL-COMMAND ,UL-2 ,NARROW-PATH-COMMAND>
|
|
<TELL
|
|
"I dropped the " AO " into the pool, where it sank slowly into the dark waters
|
|
and out of sight.">)>>
|
|
|
|
<OBJECT UL-TREASURY-PIT-GRATE
|
|
(SDESC "cover")
|
|
(LOC UL-TREASURY-PIT)
|
|
(KBD %<ASCII !\C>)
|
|
(ACTION
|
|
<ACOND ()
|
|
(PICK-UP
|
|
<UPDATE-REMOVE ,ACTION-OBJECT>
|
|
<FSET ,HERE ,SCOUTED>
|
|
<TELL
|
|
"The cover was indeed heavy, but I did manage to move it aside, revealing a
|
|
dark pool of water, about three feet across. I held my torch up to its surface,
|
|
but nothing was revealed.">
|
|
<SETG CURRENT-GRAPHIC <>>
|
|
<GRAPHIC ,G-UNDERLAND-GRATE ,G-UNDERLAND-PIT ,BOTTOM-RIGHT>
|
|
<ADD-TRAVEL-COMMAND ,HERE ,DIVE-COMMAND>
|
|
<RTRUE>)
|
|
(EXAMINE:CLEAR
|
|
<TELL
|
|
"The cover itself was made of stone, and appeared quite heavy.">)>)>
|
|
|
|
<COMMAND JUNCTION>
|
|
|
|
<ROOM UL-TREASURY-PIT
|
|
(TRAVEL-COMMANDS BACK-COMMAND JUNCTION-COMMAND NUL-COMMAND)
|
|
(FLAGS UNDERGROUND)
|
|
(ENTER
|
|
<EXECUTE ()
|
|
<COND (<IN? ,UL-TREASURY-PIT-GRATE ,HERE>
|
|
<GRAPHIC ,G-UNDERLAND-GRATE>)
|
|
(T
|
|
<GRAPHIC ,G-UNDERLAND-GRATE ,G-UNDERLAND-PIT ,BOTTOM-RIGHT>)>>)
|
|
(ACTION
|
|
<ACOND ()
|
|
(BACK
|
|
<COND (<UL-MOVE-CHECK ,UL-TREASURY>
|
|
<TELL
|
|
"There was little point of staying here longer, so I returned to the treasury.">
|
|
<UL-MOVE ,UL-TREASURY>)>)
|
|
(JUNCTION
|
|
<COND (<IN? ,NYMPH-STONE ,INVENTORY>
|
|
<TRY-TO-LEAVE-TREASURY>)
|
|
(T
|
|
<TELL
|
|
"Having nothing further to do here, I passed through the treasury and back out
|
|
into the hallway beyond.">
|
|
<UL-MOVE ,UL-JCN>)>)
|
|
(<AND <ACTION? DROP>
|
|
<NOT <IN? ,UL-TREASURY-PIT-GRATE ,HERE>>
|
|
<OBJECT? NYMPH-STONE>>
|
|
<COND (<FSET? ,UL-TREASURY ,TRAPPED>
|
|
<TELL
|
|
"There was no great likelihood of removing the amulet through the usual means,
|
|
so I thought there would be no harm of dropping it into the pool. Sure enough, no
|
|
magic prevented it from making a rapid descent into the dark waters.">)
|
|
(T
|
|
<TELL
|
|
"On a hunch, I dropped the amulet into the pool and watched it sink rapidly into
|
|
the dark waters.">)>
|
|
<UPDATE-MOVE ,NYMPH-STONE ,UL-PIT-BOTTOM>)
|
|
(DIVE:REMOVE
|
|
<TELL ,NARROW-POOL>)>)>
|
|
|
|
<CONSTANT NARROW-POOL
|
|
"I dove into the pool, and carefully started to descend. This was no ordinary pool,
|
|
however; it was a tube, and a narrow one at that. After a short while, the tube
|
|
curved and narrowed, so much so that it was soon difficult to proceed. Discouraged,
|
|
I returned to the surface.">
|
|
|
|
<OBJECT I-PIT-SURFACE
|
|
(TIME 0)
|
|
(ACTION
|
|
<EXECUTE ()
|
|
<COND (<EQUAL? ,HERE ,UL-PIT-BOTTOM>
|
|
<TELL CR CR
|
|
"Having spent as much time underwater as was possible, I swam back to the surface
|
|
to catch my breath.">
|
|
<MOVE-TO ,UL-PIT>)>>)>
|
|
|
|
<ROOM UL-PIT-BOTTOM
|
|
(TRAVEL-COMMANDS SURFACE-COMMAND NUL-COMMAND NUL-COMMAND)
|
|
(FLAGS UNDERGROUND)
|
|
(ENTER
|
|
<EXECUTE ()
|
|
<FSET ,HERE ,SEEN>
|
|
<QUEUE I-PIT-SURFACE 3>
|
|
<COND (<IN? ,NYMPH-STONE ,HERE>
|
|
;"Check stamp location??"
|
|
<GRAPHIC ,G-UNDERLAND-PIT-BOTTOM
|
|
,G-UNDERLAND-PIT-BOTTOM-STONE
|
|
,BOTTOM-LEFT>)
|
|
(T
|
|
<GRAPHIC ,G-UNDERLAND-PIT-BOTTOM>)>>)
|
|
(ACTION
|
|
<ACOND ()
|
|
(SURFACE
|
|
<COND (<IN? ,NYMPH-STONE ,INVENTORY>
|
|
<TELL
|
|
"In just a few moments, I had returned to the surface.">)
|
|
(T
|
|
<TELL
|
|
"With nothing to show for my diving exploration, I returned to the surface.">)>
|
|
<MOVE-TO ,UL-PIT>)
|
|
(PICK-UP
|
|
<TELL
|
|
"Reaching down through the muck, I grabbed onto the " AO " and held it firmly
|
|
in my hand.">
|
|
<SETG CURRENT-GRAPHIC <>>
|
|
<GRAPHIC ,G-UNDERLAND-PIT-BOTTOM>
|
|
<UPDATE-MOVE ,ACTION-OBJECT ,INVENTORY>)>)>
|
|
|
|
<ROOM UL-PIT
|
|
(TRAVEL-COMMANDS BACK-COMMAND DIVE-COMMAND NUL-COMMAND)
|
|
(FLAGS UNDERGROUND TORCHBIT)
|
|
(ENTER
|
|
<EXECUTE ()
|
|
<GRAPHIC ,G-UNDERLAND-GRATE ,G-UNDERLAND-PIT ,BOTTOM-RIGHT>
|
|
<COND (<IN? ,TORCH ,INVENTORY>
|
|
<FSET ,HERE ,DEAD>
|
|
<FORCE-TRAVEL-COMMAND ,HERE ,DIVE-COMMAND>)>>)
|
|
(ACTION
|
|
<ACOND ("AUX" RM)
|
|
(BACK
|
|
<COND (<IN? ,NYMPH-STONE ,INVENTORY>
|
|
<SET RM ,UL-2>)
|
|
(T
|
|
<SET RM ,UL-JCN>)>
|
|
<COND (<UL-MOVE-CHECK .RM>
|
|
<COND (<IN? ,NYMPH-STONE ,INVENTORY>
|
|
<TRAVEL-COMMANDS .RM ,TO-CAVE-COMMAND>
|
|
<TELL
|
|
"With the amulet in hand, I made a hasty return to the chamber in which I had left "
|
|
D ,LAKE-VICTIM ". Thankfully, he was conscious.">)
|
|
(T
|
|
<COND (<AND <IN? ,TORCH ,INVENTORY>
|
|
<NOT <FSET? ,HERE ,DEAD>>>
|
|
<TELL
|
|
"With the torch now in my possession">)
|
|
(T
|
|
<TELL
|
|
"Having nothing to show from this excursion">)>
|
|
<TELL ", I returned to the chamber outside.">)>
|
|
<UL-MOVE .RM>)>)
|
|
(DIVE
|
|
<COND (<IN? ,TORCH ,INVENTORY>
|
|
<COND (<NOT <QSET? ,HERE ,BLUE-MIX>>
|
|
<TELL
|
|
"As I dove into the water, I was filled with amazement that the torch I was carrying
|
|
had not been extinguished. If anything, it appeared to glow more brightly, and the flame
|
|
became warmer. Soon, I had reached the bottom of the pool, which was covered with
|
|
every sort of putrifying debris you can imagine, and some that you probably couldn't.
|
|
Decaying debris lowered the visibility considerably, making it difficult to gauge
|
|
anything much about the pool itself.">)
|
|
(T
|
|
<TELL
|
|
"Again, I took the torch down into the miserable pit and descended to the bottom,
|
|
peering with difficulty through the cloudy waters">
|
|
<COND (<NOT <FIRST? ,UL-PIT-BOTTOM>>
|
|
<TELL ", yet finding nothing of import">)>
|
|
<TELL ".">)>
|
|
<COND (<IN? ,NYMPH-STONE ,UL-PIT-BOTTOM>
|
|
<TELL
|
|
" But then, at the bottom of the pool, in the midst of the unspeakable filth,
|
|
I caught a glimpse of the the amulet I had taken from the treasury">
|
|
<COND (<G? ,UL-DROPPED 0>
|
|
<TELL ", but nothing else">)>
|
|
<TELL ".">)
|
|
(<FIRST? ,UL-PIT-BOTTOM>
|
|
<TELL
|
|
" Imagine my surprise when there, at the bottom, lay ">
|
|
<LIST-CONTENTS ,UL-PIT-BOTTOM <>>
|
|
<TELL " I had dropped into the
|
|
pit earlier.">)>
|
|
<MOVE-TO ,UL-PIT-BOTTOM>)
|
|
(T
|
|
<REMOVE-TRAVEL-COMMAND>
|
|
<TELL
|
|
"I dove down into the foul-smelling pool and swam into its dismal depths. By
|
|
the time I reached the bottom, it was too dark to see anything at all. Unable
|
|
to learn anything new, I returned to the surface.">)>)>)>
|
|
|
|
<ROUTINE TREASURY-GRAPHIC ()
|
|
<SETG CURRENT-GRAPHIC <>>
|
|
<COND (<IN? ,NYMPH-STONE ,HERE>
|
|
;"Check location of stamp??"
|
|
<GRAPHIC ,G-UNDERLAND-TREASURY-NO-STONE
|
|
,G-UNDERLAND-TREASURY
|
|
,BOTTOM-RIGHT>)
|
|
(T
|
|
<GRAPHIC ,G-UNDERLAND-TREASURY-NO-STONE>)>>
|
|
|
|
<ROOM UL-TREASURY
|
|
(TRAVEL-COMMANDS PROCEED-COMMAND BACK-COMMAND NUL-COMMAND)
|
|
(FLAGS UNDERGROUND TORCHBIT)
|
|
(ENTER
|
|
<EXECUTE ()
|
|
<FSET ,HERE ,SEEN>
|
|
<TREASURY-GRAPHIC>
|
|
<FORCE-TRAVEL-COMMAND ,HERE ,BACK-COMMAND>
|
|
<COND (<AND <FSET? ,HERE ,TRAPPED>
|
|
<NOT <IN? ,NYMPH-STONE ,INVENTORY>>>
|
|
<FCLEAR ,HERE ,TRAPPED>)>>)
|
|
(ACTION
|
|
<ACOND ()
|
|
(PROCEED
|
|
<COND (<UL-MOVE-CHECK ,UL-TREASURY-PIT>
|
|
<TELL
|
|
"At the far end of the treasury, a narrow path led a short way, ending at a simple,
|
|
rounded chamber, in the middle of which lay a ">
|
|
<COND (<FSET? ,UL-TREASURY-PIT ,SCOUTED>
|
|
<TELL "perfectly round pool of water">)
|
|
(T
|
|
<TELL "large stone cover">)>
|
|
<TELL
|
|
". It was odd that such a nondescript chamber would be placed adjacent to the
|
|
rather opulent treasury, and I could only guess at its purpose.">
|
|
<UL-MOVE ,UL-TREASURY-PIT>)>)
|
|
(<AND <ACTION? DROP>
|
|
<OBJECT? NYMPH-STONE>>
|
|
<COND (<FSET? ,HERE ,TRAPPED>
|
|
<TELL
|
|
"It was clear that I wasn't leaving this treasury with the amulet, so I replaced it
|
|
on its pedestal and pondered my next move.">
|
|
<FCLEAR ,HERE ,TRAPPED>
|
|
<ADD-TRAVEL-COMMAND ,HERE ,BACK-COMMAND>)
|
|
(T
|
|
<TELL
|
|
"Thinking it was perhaps ill-advised to take the amulet, I gingerly returned it to its
|
|
pedestal.">)>
|
|
<UPDATE-MOVE ,NYMPH-STONE ,HERE>
|
|
<TREASURY-GRAPHIC>
|
|
<RTRUE>)
|
|
(BACK
|
|
<TRY-TO-LEAVE-TREASURY>)>)>
|
|
|
|
<ROUTINE TRY-TO-LEAVE-TREASURY ()
|
|
<COND (<IN? ,NYMPH-STONE ,INVENTORY>
|
|
<COND (<NOT <QSET? ,UL-TREASURY ,SCOUTED>>
|
|
<TELL
|
|
"With the amulet firmly in hand, I started out of the treasury. But I didn't get
|
|
very far. At first, I thought I had become paralyzed below my waist, but that was
|
|
clearly not so. No, something unnatural was holding me inside the treasury. And
|
|
I was reasonably certain it was the amulet.">)
|
|
(T
|
|
<TELL
|
|
"Again, some unknown and unseen force prevented me from leaving the treasury while
|
|
I held the blue amulet.">)>
|
|
<COND (<NOT <EQUAL? ,HERE ,UL-TREASURY>>
|
|
<UL-MOVE ,UL-TREASURY>)>
|
|
<REMOVE-TRAVEL-COMMAND ,UL-TREASURY ,BACK-COMMAND>
|
|
<FSET ,UL-TREASURY ,TRAPPED>)
|
|
(T
|
|
<COND (<UL-MOVE-CHECK ,UL-JCN>
|
|
<TELL
|
|
"There was nothing more I could think to do inside the treasury, so I returned to the
|
|
chamber just outside.">
|
|
<UL-MOVE ,UL-JCN>)>)>>
|
|
|
|
|
|
|
|
|