-
Notifications
You must be signed in to change notification settings - Fork 12
/
flume.zabstr
470 lines (469 loc) · 29.2 KB
/
flume.zabstr
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
<BEGIN-SEGMENT CAVERNS>
<OBJECT MINE-ORC-BODIES (FLAGS DONT-TAKE) (SDESC "dead orcs") (KBD 68) (EXBITS
<+ ,ESHERBIT ,PRAXIXBIT>) (ACTION <ACOND () (<EQUAL? ,ACTION ,EXAMINE-COMMAND>
<UPDATE-MOVE> <WPRINTD ,ACTOR> <PRINTI
" took a moment to look over the carnage; over two dozen orcs were
piled on the ground, most of them dispatched single-handedly by Hurth."> <COND
(<OR <AND <FSET? ,ESHER ,IN-PARTY> <FSET? ,ESHER ,BUSY>> <FSET? ,BERGON ,BUSY>>
<PRINTI " But there was no joy in our victory - we had paid a heavy price!">)>
<RTRUE>)>)>
<DEFINE-ROUTINE ANONF-242>
<OBJECT MINE-ORCS (FLAGS DONT-TAKE DONT-EXAMINE) (SDESC "orcs") (KBD 79) (
ATTACK 250 250) (STATUS 100) (RETREAT 0)>
<OBJECT MINE-FIGHT (TEMP 0) (ACTION <ACOND ("AUX" TMP) (<EQUAL? ,ACTION ,
SCENE-START-COMMAND> <MOVE ,MINE-ORCS ,HERE> <SET OPPONENT ,MINE-ORCS> <
PRINT-CHARACTER-COMMANDS> <SET UPDATE-FLAG #ZLOCAL!-IZILCH FALSE-VALUE> <
CHANGE-CIT ,BERGON 1 ,NUL-COMMAND #ZLOCAL!-IZILCH FALSE-VALUE> <CHANGE-CIT ,
HURTH 1 ,NUL-COMMAND> <COND (,MIX-DONE <CHANGE-CIT ,PRAXIX 2 ,USE-MIX-COMMAND>)
> <NUL-PARTY-COMMAND ,RETREAT-COMMAND> <NUL-PARTY-COMMAND ,PARLEY-COMMAND> <SET
COMBAT-ROUND -1>) (<EQUAL? ,ACTION ,SCENE-END-COMMAND> <COND (<NOT <FSET? ,HERE
,SOLVED>> <UPDATE-MOVE ,MINE-ORC-BODIES ,HERE> <UPDATE-REMOVE ,MINE-ORCS> <
UPDATE-FCLEAR ,PRAXIX ,BUSY> <CRLF> <CRLF> <PRINTI
"The fight was over; Bergon was slumped on the ground, rapidly losing his
battle for life."> <COND (<FSET? ,ESHER ,IN-PARTY> <PRINTI
" Esher fared worse still, and died in Praxix' arms before
the Wizard could begin to help."> <KILLED-OFF ,ESHER>)> <COND (,COMBAT-SPELL <
PRINTI " Praxix, no longer concerned with the spell he was preparing, tossed the
mixed powders to the ground and rushed to Bergon's side.">)> <UPDATE-MOVE ,
BERGON-OBJECT ,HERE> <FCLEAR ,BERGON-OBJECT ,DONT-EXAMINE> <PUTP ,HERE ,P?TEMP
,MOVE-NUMBER>)>) (<EQUAL? ,ACTION ,COMBAT-RESULT-COMMAND> <COND (<ZERO? ,
COMBAT-ROUND> <PRINTI
"The first orcs started to come through the hole, and we had an easy
time dispatching them as they came. After four were killed, they stopped
coming for a time. All was quiet, and yet we felt certain that we had
not seen the last of these orcs."> <CRLF> <CRLF> <PRINTI
"At once, the quiet was broken as the orcs started a guttural chant,
and their harsh footsteps could again be heard just outside of the
chamber!"> <CRLF> <CRLF> <PRINTI
"\"It seems we are trapped,\" Bergon said, gloomily, \"and the orcs
come yet again.\""> <COND (<EQUAL? ,COMBAT-SPELL ,TREMOR-SPELL> <CRLF> <CRLF> <
PRINTI "\"It seems we are trapped, yes,\" Praxix repeated, \"but things are not
always what they seem!\"">)> <RTRUE>) (<EQUAL? ,COMBAT-ROUND 1> <PRINTI
"The orcs, sensing the folly in entering our midst singly, now changed their
strategy, and pushed over themselves into the chamber. They paid dearly
for the effort, and their bodies soon piled up near the entry. But
they were successful, and a few orcs now arrived among us. Hurth
was exceedingly strong, and killed a few more orcs with his broadsword.
Bergon, too, fought well, but he was soon hit by the side of an orc's axe,
and stumbled backward on the ground."> <UPDATE-MOVE ,BERGON-OBJECT ,HERE> <
MAKE-BUSY ,BERGON ,ILL-COMMAND>) (<EQUAL? ,COMBAT-ROUND 2> <PRINTI
"On and on they came, slowed somewhat by the carnage at the chamber's
entrance. I killed two orcs that were threatening Bergon, but he was hit
yet again, and soon lay unconscious on the ground. Hurth again bore the
brunt of our offense, and soon claimed a dozen orcs with only a few minor
wounds."> <COND (<EQUAL? ,COMBAT-SPELL ,TREMOR-SPELL> <CRLF> <CRLF> <PRINTI
"\"If we are not trapped,\" I said, remarking on Praxix' obtuse
comment of a few moments ago, \"this would be a good time to show us.\"">)> <
MAKE-BUSY ,BERGON ,ILL-COMMAND>) (T <PRINTI
"The last few orcs in the raiding party were now here, but we were strong
enough to defeat them."> <COND (<FSET? ,ESHER ,IN-PARTY> <MAKE-BUSY ,ESHER ,
ILL-COMMAND> <PRINTI
" As the last of them went down, he slashed Esher in the chest. Bleeding
badly, Esher slumped to the floor, as Hurth killed the last of the living
attackers.">)> <HINT ,HINT-TREMOR> <TRAVEL-COMMANDS ,HERE ,BACK-COMMAND> <
END-COMBAT #ZLOCAL!-IZILCH FALSE-VALUE> <MAKE-BUSY ,BERGON ,ILL-COMMAND> <RTRUE
>)> <COND (<AND ,COMBAT-SPELL <GRTR? #ZLOCAL!-IZILCH STACK 1>> <COND (<EQUAL? ,
COMBAT-SPELL ,TREMOR-SPELL> <CRLF> <CRLF> <PRINTI
"At last, Praxix was ready to cast his spell. \"Back! This way!\" he
shouted, leading us to the farthest spot from the entrance. But I would
not leave Bergon behind, and I managed to avoid injury as I dragged him out
of harm's way. And then, with our party a safe distance from the orcs,
the spell was cast, and the ground shook mightily."> <CRLF> <CRLF> <FSET ,HERE
,SOLVED> <SCENE #ZLOCAL!-IZILCH FALSE-VALUE ,TRAVEL-MODE> <FLUME-TREMOR #
ZLOCAL!-IZILCH TRUE-VALUE>) (T <CHANGE-CIT ,PRAXIX 1 ,NUL-COMMAND> <SET
COMBAT-SPELL #ZLOCAL!-IZILCH FALSE-VALUE> <CRLF> <CRLF> <PRINTI
"Praxix' spell was now prepared, but he reluctantly concluded that it would
do no good in the midst of this pandemonium.">)>)> <RTRUE>) (<AND <EQUAL? ,
ACTION ,USE-MIX-COMMAND> <EQUAL? ,MIXTURE ,ANIMATE-SPELL> <EQUAL? ,
ACTION-OBJECT ,BERGON-OBJECT>> <PRINTI
"Praxix tried to reach Bergon with his mixture, but there were orcs between
their positions, and would have faced certain death in the attempt."> <
CHANGE-CIT ,PRAXIX 2 ,NUL-COMMAND> <SET MIX-DONE #ZLOCAL!-IZILCH FALSE-VALUE> <
RTRUE>) (<AND <EQUAL? ,ACTION ,USE-MIX-COMMAND> <EQUAL? ,MIXTURE ,ANIMATE-SPELL
> <EQUAL? ,ACTION-OBJECT ,MINE-ORCS>> <PRINTI
"Praxix cast his mixture on the orcs, but the only effect was that of making
the orcs somewhat stronger than they had been previously."> <CHANGE-CIT ,PRAXIX
2 ,NUL-COMMAND> <SET MIX-DONE #ZLOCAL!-IZILCH FALSE-VALUE> <RTRUE>) (<AND <
EQUAL? ,ACTION ,CAST-COMMAND> <NOT ,COMBAT-SPELL>> <SET COMBAT-SPELL ,
ACTION-OBJECT> <SET COMBAT-SPELL-ROUND ,COMBAT-ROUND> <MAKE-BUSY ,PRAXIX> <
PRINTI "Praxix, meanwhile, was attempting to cast his "> <WPRINTD ,COMBAT-SPELL
> <PRINTI " spell.
But these things take time, and we weren't counting on any quick
results.">)>)>
<DEFINE-ROUTINE ANONF-243>
<GLOBAL COMBAT-SPELL <>>
<GLOBAL COMBAT-SPELL-ROUND <>>
<ROOM ABOVE-FLUME (TRAVEL-COMMANDS FIGHT-COMMAND NUL-COMMAND NUL-COMMAND) (
GRAPHIC G-DEAD-END) (FLAGS UNDERGROUND DANGEROUS DONT-SCOUT) (CAST-LIMIT INF) (
TEMP 0) (ENTER <EXECUTE () <COND (<NOT <QSET? ,MINE-FIGHT ,SEEN>> <PUT #
ZLOCAL!-IZILCH STACK 0 ,NUL-COMMAND> <PUT #ZLOCAL!-IZILCH STACK 0 ,NUL-COMMAND>
<CRLF> <CRLF> <PRINTI
"Drawing our weapons, we prepared for battle. It was clear that we had
one obvious advantage and one obvious disadvantage. What's more, they were
one and the same - the narrow entry into our chamber."> <CRLF> <CRLF> <PRINTI
"On the one hand, it would be a simple matter to dispatch the orcs one at
a time as they stumbled into our midst. On the other hand, they might not
oblige us, in which case we were trapped."> <SCENE ,MINE-FIGHT ,FIGHT-MODE>)>>)
(ACTION <ACOND () (<AND <FSET? ,BERGON ,BUSY> <EQUAL? ,PARTY-MODE ,TRAVEL-MODE>
<GRTR? ,MOVE-NUMBER #ZLOCAL!-IZILCH STACK>> <PRINTI
"It mattered little what we chose to do next. Bergon was dead, and our mission a
failure! We retreated as we had come, fortunate indeed to have escaped another group
of orcs that had been approaching, and appeared finally before Astrix. His face was
grim and determined."> <CRLF> <CRLF> <HINT ,HINT-WOUNDS> <PART-ONE-BAD-ENDING>)
(<AND <EQUAL? ,ACTION ,EXAMINE-COMMAND> <EQUAL? ,ACTION-OBJECT ,BERGON-OBJECT>>
<UPDATE-FSET ,BERGON-OBJECT ,DONT-EXAMINE> <WPRINTD ,ACTION-OBJECT> <PRINTI
" was badly hurt, as "> <WPRINTD ,ACTOR> <PRINTI
" was quick to recognize. He
would die soon unless we acted; but what could we do?">) (<AND <FSET? ,BERGON ,
BUSY> <EQUAL? ,ACTION ,USE-MIX-COMMAND> <EQUAL? ,MIXTURE ,ANIMATE-SPELL> <
EQUAL? ,ACTION-OBJECT ,BERGON-OBJECT>> <UPDATE-MOVE ,BERGON-OBJECT ,
RANDOM-OBJECTS> <PRINTI
"Praxix cast his mixture at Bergon; for a moment, it
appeared that nothing would happen. But then, as we watched, his
wounds began to heal and in a matter of minutes he was as strong
as on the day we had embarked on our journey."> <CRLF> <CRLF> <PRINTI
"\"A powerful enchantment!\" said Praxix"> <COND (<FSET? ,HERMIT-POWDER ,SEEN>
<PRINTI ", \"I wonder if old Garlimon
knew the power his gift possessed!\"">) (T <PRINTI ".">)> <MIXTURE-CAST> <SET
UPDATE-FLAG #ZLOCAL!-IZILCH TRUE-VALUE> <TRAVEL-COMMANDS ,HERE ,BACK-COMMAND> <
FSET ,HERE ,BLUE-MIX> <CLEAR-BUSY>) (<EQUAL? ,ACTION ,BACK-COMMAND> <
REMOVE-TRAVEL-COMMAND> <COND (<FSET? ,BERGON ,BUSY> <REMOVE-PARTY-COMMAND ,
BACK-COMMAND> <PRINTI
"Nearly panicked, I started to run from the chamber, but was held back by
Praxix. \"We must not leave our friend while he lays alive,\" he said.">) (<
FSET? ,HERE ,BLUE-MIX> <PRINTI
"We were trapped now, or nearly so; more orcs were nearby, perhaps alerted
by the ones we had just narrowly defeated. We retreated as we
had come, fortunate indeed to have escaped another group of orcs that
had been approaching, and appeared finally before Astrix. His face was grim
and determined."> <CRLF> <CRLF> <PART-ONE-BAD-ENDING>) (T <PRINTI
"We started back toward the junction, but more orcs could be heard
there as well. It appeared we were trapped!">)>) (<AND <NOT <EQUAL? ,
SCENE-OBJECT ,MINE-FIGHT>> <EQUAL? ,ACTION ,CAST-COMMAND> <EQUAL? ,
ACTION-OBJECT ,TREMOR-SPELL>> <FLUME-TREMOR>)>)>
<DEFINE-ROUTINE ANONF-244>
<DEFINE-ROUTINE ANONF-245>
<DEFINE-ROUTINE FLUME-TREMOR>
<END-SEGMENT>
<BEGIN-SEGMENT MINES>
<ROOM FLUME-POOL (TRAVEL-COMMANDS PROCEED-COMMAND NUL-COMMAND NUL-COMMAND) (
CAST-LIMIT 2) (FLAGS UNDERGROUND DONT-SCOUT) (GRAPHIC G-FLUME-POOL) (ENTER <
EXECUTE () <COND (<NOT <QSET? ,HERE ,SEEN>> T) (T <FSET ,HERE ,TRAPPED> <
PARTY-ADD ,BERGON> <MAKE-BUSY ,BERGON ,ILL-COMMAND> <CRLF> <CRLF> <PRINTI
"Bergon was here, slumped against a wall; he was dying, that was
certain.">)>>) (ACTION <ACOND () (<AND <EQUAL? ,ACTION ,EXAMINE-COMMAND> <
EQUAL? ,ACTION-OBJECT ,BERGON-OBJECT>> <UPDATE-FSET ,BERGON-OBJECT ,
DONT-EXAMINE> <COND (<FSET? ,HERE ,TRAPPED> <WPRINTD ,ACTOR> <PRINTI
" went over to look at Bergon; his pulse was slow, his breathing
irregular. Shaking his head sadly, he returned to the group.">) (T <WPRINTD ,
ACTOR> <PRINTI " examined Bergon briefly. \"He's got a punctured lung, and a good deal of
other internal damage from his wounds,\" he reported. \"He's also lost a
great deal of blood. Unless we do something quickly, I'm afraid he's
going to die.\" He then did what he could to stop Bergon's bleeding,
but his actions were merely palliative.">)>) (<AND <EQUAL? ,ACTION ,
USE-MIX-COMMAND> <EQUAL? ,ACTION-OBJECT ,BERGON-OBJECT> <EQUAL? ,MIXTURE ,
ANIMATE-SPELL> <FSET? ,BERGON ,BUSY>> <MIXTURE-CAST> <TRAVEL-COMMANDS ,HERE ,
PROCEED-COMMAND> <PRINTI "Praxix cast this strange enchantment at "> <WPRINTD ,
ACTION-OBJECT> <PRINTI
"; for a moment, it
appeared that nothing would happen. But then, as we watched, his
wounds began to heal and in a matter of minutes he was as strong as
on the day we had embarked on our journey."> <CRLF> <CRLF> <PRINTI
"\"A powerful enchantment!\" said Praxix"> <COND (<FSET? ,HERMIT-POWDER ,SEEN>
<PRINTI ", \"I wonder if old Garlimon
knew the power his gift possessed!\"">) (T <PRINTI ".">)> <SET LEADER ,BERGON>
<SET UPDATE-FLAG #ZLOCAL!-IZILCH TRUE-VALUE> <UPDATE-MOVE ,BERGON-OBJECT ,
RANDOM-OBJECTS> <CLEAR-BUSY> <COND (<FSET? ,MINE-LOWER-STAIR ,SEEN> <CRLF> <
CRLF> <END-PART-TWO-A>)> <RTRUE>) (<AND <EQUAL? ,ACTION ,PROCEED-COMMAND> <NOT
<FSET? ,HERE ,TRAPPED>>> <COND (<FSET? ,BERGON ,BUSY> <PARTY-REMOVE ,BERGON> <
PRINTI "It was undesirable to leave Bergon here, unattended, but we agreed
there was no alternative. And so, making him as comfortable as we
could, we left his side."> <CRLF> <CRLF>)> <PRINTI
"A wide path followed the raging river upstream, and we followed it
until we came to a tunnel leading back into what we supposed were the
main chambers at this level."> <MOVE-TO ,ALONG-FLUME>) (<AND <FSET? ,HERE ,
TRAPPED> <NOT <EQUAL? ,ACTION ,USE-MIX-COMMAND>> <NOT <EQUAL? ,ACTION ,
MIX-COMMAND>> <NOT <GAME-COMMAND?>>> <PRINTI
"Just then, Bergon's body heaved and his eyes opened. Praxix and I
moved closer to him, and "> <COND (<IN? ,SPIRIT-STONE ,INVENTORY> <PRINTI
"Praxix held up the white stone to his view."> <CRLF> <CRLF> <PRINTI
"Bergon smiled faintly. \"It is very beautiful,">) (T <PRINTI
"tried our best to comfort him."> <CRLF> <CRLF> <PRINTI
"Bergon winced in pain. \"The Stone... You
have found it?">)> <PRINTI
"\" he whispered, and taking one last raspy breath,
he expired in our arms."> <CRLF> <CRLF> <PRINTI
"We were silent a long while. What could we say about this brave man who
had led us through so many dangers? We knew it would be impossible to bury
him here and so, after a short ritual, we wrapped him in his cloak and cast
him into the waters, watching him as he was carried out of sight into the
very depths of the earth."> <CRLF> <CRLF> <HINT ,HINT-WOUNDS> <FCLEAR ,BERGON ,
BUSY> <KILLED-OFF ,BERGON> <END-PART-TWO-A> <RTRUE>)>)>
<DEFINE-ROUTINE ANONF-246>
<DEFINE-ROUTINE ANONF-247>
<DEFINE-ROUTINE END-PART-TWO-A>
<COMMAND (ENTER-TUNNEL ENTER)>
<COMMAND (FOLLOW-RIVER FOL\'W-RIV\'R)>
<ROOM ALONG-FLUME (TRAVEL-COMMANDS ENTER-TUNNEL-COMMAND FOLLOW-RIVER-COMMAND
NUL-COMMAND) (GRAPHIC G-ALONG-FLUME) (FLAGS UNDERGROUND) (ACTION <ACOND () (<
EQUAL? ,ACTION ,SCOUT-COMMAND> <UPDATE-FSET ,HERE ,DONT-SCOUT> <FSET ,HERE ,
SCOUTED> <WPRINTD ,ACTOR> <PRINTI
", moving out ahead of us, brought back the report that the path
ahead climbed as it followed the underground river."> <COND (<EQUAL? ,ACTOR ,
HURTH> <CRLF> <CRLF> <PRINTI
"\"If these caverns are laid out as I surmise, we can follow it to reach
the forest above,\" he remarked.">)> <RTRUE>) (<EQUAL? ,ACTION ,
FOLLOW-RIVER-COMMAND> <REMOVE-TRAVEL-COMMAND> <UPDATE-FSET ,HERE ,DONT-SCOUT> <
PRINTI "We started ahead, climbing along the side of the raging river; a dim
light from up ahead grew brighter as we continued; this path would
surely lead out of the caverns. Not wishing to forego the exploration
of the lower regions, we retraced our steps, returning to the entrance
to the tunnel.">) (<EQUAL? ,ACTION ,ENTER-TUNNEL-COMMAND> <PRINTI
"The tunnel ran straight for a few hundred paces, ending finally
at the bottom of a wide stair. To our right, another path led
through a tall archway and to our left, a crudely made hole
entered the rock."> <CRLF> <CRLF> <PRINTI
"\"Praxix, you have done well,\" said Hurth, smiling broadly. \"This
would be the bottom of the stairs that start up high at the Bern i-Fen.
I had nearly lost hope of arriving here.\""> <COND (<OR <NOT <FSET? ,ESHER ,
IN-PARTY>> <NOT <FSET? ,BERGON ,IN-PARTY>>> <CRLF> <CRLF> <PRINTI
"\"Indeed, though I regret we are not all here to see it,\"
Praxix replied quietly. \"There is great evil within the earth; let
us hope there is great good also.\"">)> <CRLF> <CRLF> <PRINTI
"\"Am I the only one that hears something peculiar?\" I asked."> <CRLF> <CRLF>
<PRINTI "\"I was about to say the same thing,\" answered Hurth. \"It sounds
to me like someone chipping away at rock somewhere down the passage
to the left.\""> <MOVE-TO ,MINE-LOWER-STAIR>)>)>
<DEFINE-ROUTINE ANONF-248>
<COMMAND MINES>
<ROOM MINE-LOWER-STAIR (TRAVEL-COMMANDS UP-COMMAND LEFT-COMMAND RIGHT-COMMAND
BACK-COMMAND) (GRAPHIC G-D-STAIR-BOTTOM) (FLAGS UNDERGROUND) (ENTER FSET-SEEN)
(ACTION <ACOND () (<AND <EQUAL? ,ACTION ,SCOUT-COMMAND> <NOT <QSET? ,HERE ,
SCOUTED>> <NOT <FSET? ,MINER-PASSAGE ,SEEN>>> <UPDATE-FSET ,HERE ,DONT-SCOUT> <
PRINTI "We sent "> <WPRINTD ,ACTOR> <PRINTI
" off to find the source of the tapping sound. Indeed,
it was coming from the path on the left, inside some sort of mine.">) (<EQUAL?
,ACTION ,UP-COMMAND> <REMOVE-TRAVEL-COMMAND> <PRINTI
"It took only a short walk up the stairs to "> <COND (<FSET? ,MINE-2-W ,TRAPPED
> <PRINTI "confirm what we already knew:">) (T <PRINTI "discover that">)> <
PRINTI " the stairs were almost utterly destroyed, by what tremendous
force, we would never know."> <COND (<NOT <IN? ,SPIRIT-STONE ,INVENTORY>> <CRLF
> <CRLF> <PRINTI
"\"Someone, or something, preferred that this region be sealed off,
and did quite a fine job of it,\" Praxix commented. \"It would seem
likely, then, that the Stone which we seek lies close at hand. But in
which direction?\"">)> <RTRUE>) (<EQUAL? ,ACTION ,BACK-COMMAND> <COND (<FSET? ,
BERGON ,BUSY> <PRINTI
"In a short time, we were back at the side of the underground river,
and we rushed back to the shore of the pool hoping that Bergon was
still alive."> <MOVE-TO ,FLUME-POOL>) (T <END-PART-TWO-A> <RTRUE>)>) (<EQUAL? ,
ACTION ,RIGHT-COMMAND> <COND (<FSET? ,GATE-JUNCTION ,SEEN> <
REMOVE-TRAVEL-COMMAND ,HERE ,RIGHT-COMMAND> <PRINTI
"Again, we tried the right-hand path, finding ourselves back in the
vestibule that we had explored earlier.">) (T <PRINTI
"The right-hand path led to a wide vestibule with paths leading both left
and right, but while the right path was wide and ornate, the one to the
left was crudely constructed.">)> <MOVE-TO ,GATE-JUNCTION>) (<EQUAL? ,ACTION ,
LEFT-COMMAND> <CHANGE-TRAVEL-COMMAND ,HERE ,LEFT-COMMAND ,MINES-COMMAND> <
PRINTI "The passage twisted and wound its way through the rock until we
came to a small, open chamber from which two passages led.
One, supported by old wooden beams, appeared to be an abandoned mine
of some sort. The other appeared to be a more recent excavation, and
the tapping sound was coming from that direction."> <CRLF> <CRLF> <PRINTI
"\"It would appear we have company,\" Praxix said, motioning to the
newer mine."> <MOVE-TO ,MINE-JUNCTION>) (<EQUAL? ,ACTION ,MINES-COMMAND> <COND
(<QSET? ,HERE ,BLACK-MIX> <REMOVE-TRAVEL-COMMAND>)> <PRINTI
"Once again, our party followed the twisting passage that led to the
entrance of the two mines. As it had before, a tapping sound issued from the
newer of them"> <COND (<FSET? ,ACTIVE-MINE ,SOLVED> <PRINTI
"; the miner was a tireless worker indeed">)> <PRINTI "."> <MOVE-TO ,
MINE-JUNCTION>)>)>
<DEFINE-ROUTINE ANONF-249>
<COMMAND OLD-MINE>
<COMMAND NEW-MINE>
<ROOM MINE-JUNCTION (TRAVEL-COMMANDS OLD-MINE-COMMAND NEW-MINE-COMMAND
NUL-COMMAND) (FLAGS UNDERGROUND) (ENTER <EXECUTE () <GRAPHIC ,G-MINE-JUNCTION>
<COND (<AND <NOT <FSET? ,OLD-MINE ,SEEN>> <NOT <FSET? ,MINER-PASSAGE ,SEEN>> <
NOT <QSET? ,HERE ,BLACK-MIX>>> <ADD-TRAVEL-COMMAND ,HERE ,BACK-COMMAND>)> <COND
(<FSET? ,OLD-MINE ,GRAY-MIX> <GRAPHIC #ZLOCAL!-IZILCH FALSE-VALUE ,
G-MINE-JUNCTION-2 ,BOTTOM-LEFT>)> <FSET ,HERE ,SEEN> <COND (<OR <FSET? ,
OLD-MINE ,SEEN> <FSET? ,MINER-PASSAGE ,SEEN>> <UPDATE-FSET ,HERE ,DONT-SCOUT>)>
>) (ACTION <ACOND () (<EQUAL? ,ACTION ,SCOUT-COMMAND> <UPDATE-FSET ,HERE ,
DONT-SCOUT> <FSET ,HERE ,SCOUTED> <WPRINTD ,ACTOR> <PRINTI
" went off into both mines to check them out. \"The older mine is in
bad shape,\" he reported, \"I fear it is nearly ready to collapse.\"">) (<
EQUAL? ,ACTION ,BACK-COMMAND> <PRINTI
"Having done all the exploring we could in the mines, we returned to the
bottom of the stairs."> <REMOVE-TRAVEL-COMMAND ,MINE-LOWER-STAIR ,LEFT-COMMAND>
<MOVE-TO ,MINE-LOWER-STAIR>) (<EQUAL? ,ACTION ,NEW-MINE-COMMAND> <PRINTI
"We made our way through the passage until we came to a small round
chamber. At the far end, a cleft in the rock opened up a narrow
passage"> <COND (<NOT <QSET? ,MINER-PASSAGE ,SEEN>> <PRINTI
" through which a loud, tapping noise could be heard."> <CRLF> <CRLF> <PRINTI
"Praxix motioned toward the cleft. \"Shall we see who it is?\" he asked">)> <
MOVE-TO ,MINER-PASSAGE #ZLOCAL!-IZILCH STR?606>) (<EQUAL? ,ACTION ,
OLD-MINE-COMMAND> <COND (<FSET? ,OLD-MINE ,SEEN> <REMOVE-TRAVEL-COMMAND ,HERE ,
OLD-MINE-COMMAND> <PRINTI
"Again, I expressed my reservations about entering the old mine, but I
was assured by "> <WPRINTD #ZLOCAL!-IZILCH STACK> <PRINTI
" that we would not enter the mine again after having
one last look. Reluctantly, I agreed. The wall boards groaned and creaked
with our every step, and it appeared that a loud sneeze could bring the whole
mine down on top of us.">) (T <PRINTI
"I was not very comfortable about the decision to enter this old mine. The
ancient wooden beams which were intended to hold up the walls and roof
appeared barely able to help even themselves. As we moved, small pieces
of rock fell from above, and a disturbing sound, like a sick groan, came
from all around us.">)> <MOVE-TO ,OLD-MINE>)>)>
<DEFINE-ROUTINE ANONF-250>
<DEFINE-ROUTINE ANONF-251>
<OBJECT OLD-MINE-WALLS (SDESC "walls") (LOC OLD-MINE) (KBD 87) (FLAGS DONT-TAKE
) (EXBITS <+ ,HURTHBIT ,PRAXIXBIT>) (ACTION <ACOND () (<EQUAL? ,ACTION ,
EXAMINE-COMMAND> <CLEAR-EXBIT> <COND (<EQUAL? ,ACTOR ,HURTH> <PRINTI
"Hurth surveyed the walls of the old mine, and reported only that the
excavations here were not of recent origin. He also expressed doubts as
to our safety.">) (T <UPDATE-REMOVE ,OLD-MINE-WALLS> <COND (<NOT <GETP ,
OLD-MINE-WALLS ,P?EXBITS>> <PRINTI "Unlike Hurth, Praxix">) (T <PRINTI
"Praxix, carefully examining the excavations,">)> <PRINTI
" found something quite remarkable in the walls: a vein of blue-green rock
coursing through the granite and marble. Excited by his discovery, he chipped
away a small piece with his staff. The rock crumbled easily in his fingers, and
its taste was indeed bitter. "> <COND (<FSET? ,REAGENT ,SOLVED> <PRINTI
"\"This is the same reagent we were given by Garlimon,\" he said. \"I
would suggest taking some more, as we may need it later.\"">) (T <PRINTI
"\"This is the reagent Astrix told us about,\" he said. \"Let us
take some while we have the chance!\"">)> <COND (<AND <FSET? ,REAGENT ,SOLVED>
<FSET? ,HURTH ,IN-PARTY>> <CRLF> <CRLF> <PRINTI
"Hurth, who had been carefully surveying the mine structure, was
concerned. \"We already have some of this magical rock, or whatever you call
it. The roof seems near to collapse, and I fear to disturb the mine
even a little,\" he said urgently. \"Let us leave while it is still
possible!\"">)> <FSET ,HERE ,ADVISE> <TRAVEL-COMMANDS ,HERE ,MINE-ROCK-COMMAND
,BACK-COMMAND>)>)>)>
<DEFINE-ROUTINE ANONF-252>
<ROOM OLD-MINE (TRAVEL-COMMANDS BACK-COMMAND NUL-COMMAND NUL-COMMAND) (FLAGS
UNDERGROUND DONT-SCOUT DANGEROUS) (ENTER <EXECUTE () <FSET ,HERE ,SEEN> <
GRAPHIC ,G-ACTIVE-MINE ,G-OLD-MINE ,TOP-LEFT>>) (ACTION <ACOND () (<EQUAL? ,
ACTION ,GET-ADVICE-COMMAND> <UPDATE-FCLEAR ,HERE ,ADVISE> <PRINTI
"\"Well, what do you think?\" "> <WPRINTD ,ACTOR> <PRINTI
" asked the assembled group."> <CRLF> <CRLF> <COND (<IN? ,REAGENT ,INVENTORY> <
PRINTI "\"I am certain this is a magical reagent,\" Praxix replied, \"It may
be powerful and an aid in time of crisis. I vote for mining the rock.\"">) (T <
PRINTI "The consensus was that it would be too dangerous to do so, yet Praxix,
understanding the value of things magical, appeared to favor gaining
some more.">)>) (<EQUAL? ,ACTION ,MINE-ROCK-COMMAND> <REMOVE-TRAVEL-COMMAND> <
FSET ,HERE ,DANGEROUS> <PRINTI
"Using our primitive tools, we hammered at the rock until we
had taken enough of the magical reagent. And although we
were pleased at our discovery, we were also aware that the groaning
noises we had heard earlier were now louder and more ominous."> <CRLF> <CRLF> <
FSET ,HERE ,SOLVED> <UPDATE-FCLEAR ,HERE ,ADVISE> <COND (<NOT <QSET? ,REAGENT ,
SOLVED>> <FIXUP-PRAXIX-COMMANDS>)> <COND (<NOT <IN? ,REAGENT ,REAGENTS>> <MOVE
,REAGENT ,REAGENTS>) (T <PUT ,ESSENCE-TBL ,BLUEOFF #ZLOCAL!-IZILCH STACK>)> <
PRINTI "\"Let's get out of here!\" I shouted. \"The mine's about to collapse!\""
>) (<EQUAL? ,ACTION ,BACK-COMMAND> <COND (<FSET? ,HERE ,SOLVED> <
REMOVE-TRAVEL-COMMAND ,MINE-JUNCTION ,OLD-MINE-COMMAND> <FSET ,OLD-MINE ,
GRAY-MIX> <COND (<FSET? ,HURTH ,IN-PARTY> <KILLED-OFF ,HURTH> <HINT ,
HINT-OLD-MINE> <PRINTI
"The mine trembled violently as we made our way out, and large
pieces of roofing were starting to come down upon us. One hit
poor Hurth in the head, knocking him unconscious. We tried to
go back, but more of the mine collapsed. Incredibly, the rest
of us made it to safety, but Hurth was lost to us!">) (T <PRINTI
"The mine trembled violently as we made our escape, as walls and
roofing collapsed at our heels. We were all safe, but this had
been a narrow escape, and the old mine was now completely inaccessible.">)>) (T
<PRINTI "We returned to the junction of the two mines. The tapping noise
was again coming from the newer mine."> <COND (<FSET? ,ACTIVE-MINE ,SOLVED> <
CRLF> <CRLF> <PRINTI
"\"Hard at work again,\" said Praxix, nodding toward the newer mine.
\"Quite a character!\"">)>)> <MOVE-TO ,MINE-JUNCTION>)>)>
<DEFINE-ROUTINE ANONF-253>
<DEFINE-ROUTINE ANONF-254>
<COMMAND (ORNATE-PATH ORNATE)>
<COMMAND (CRUDE-PATH CRUDE)>
<ROOM GATE-JUNCTION (TRAVEL-COMMANDS ORNATE-PATH-COMMAND CRUDE-PATH-COMMAND
BACK-COMMAND) (GRAPHIC G-GATE-JUNCTION) (FLAGS UNDERGROUND) (ENTER FSET-SEEN) (
ACTION <ACOND () (<EQUAL? ,ACTION ,SCOUT-COMMAND> <UPDATE-FSET ,HERE ,
DONT-SCOUT> <FSET ,HERE ,SCOUTED> <UPDATE-FSET ,HERE ,DONT-SCOUT> <COND (<AND <
NOT <FSET? ,TOMB-ANTE ,SEEN>> <NOT <FSET? ,MINE-HOLE ,SEEN>>> <COND (<EQUAL? ,
ACTOR ,HURTH> <PRINTI
"\"Both paths are fascinating,\" Hurth said, having quickly explored our two
alternatives. \"Come, have a look.\"">) (T <WPRINTD ,ACTOR> <PRINTI
" checked out both paths. \"You'll have to see this for yourself,\" he
said, bewildered. \"Each path is more bizarre than the other!\"">)>) (<EQUAL? ,
ACTOR ,HURTH> <WPRINTD ,ACTOR> <PRINTI
" was excited by what he discovered upon scouting out the path we had not
yet taken. \"Let me show you,\" he said.">) (T <WPRINTD ,ACTOR> <PRINTI
" took the path we had not yet taken, and reported that we had better take a
look for ourselves.">)>) (<EQUAL? ,ACTION ,BACK-COMMAND> <PRINTI
"Retracing our steps, we returned to the bottom of the stairs."> <MOVE-TO ,
MINE-LOWER-STAIR>) (<EQUAL? ,ACTION ,CRUDE-PATH-COMMAND> <COND (<FSET? ,
TOMB-ANTE ,SEEN> <FSET ,HERE ,DONT-SCOUT>)> <COND (<FSET? ,MINE-HOLE ,SEEN> <
REMOVE-TRAVEL-COMMAND ,HERE ,CRUDE-PATH-COMMAND> <FSET ,HERE ,TRAPPED> <PRINTI
"For the second and last time, we entered the crudely formed chamber
with the crack in the center."> <COND (,HOLE-VICTIM <CRLF> <CRLF> <PRINTI
"We had left our friend "> <WPRINTD ,HOLE-VICTIM> <PRINTI
" for dead not long before, and
still there was no response when we called down to him.">)>) (T <PRINTI
"We followed the winding path to a dead-end chamber, in the middle of which
a crack in the earth led into darkness.">)> <MOVE-TO ,MINE-HOLE>) (<EQUAL? ,
ACTION ,ORNATE-PATH-COMMAND> <COND (<FSET? ,MINE-HOLE ,SEEN> <FSET ,HERE ,
DONT-SCOUT>)> <PRINTI
"Our chosen path led through a richly carved vestibule, at the end of
which sat a formidable wooden door. "> <COND (<FSET? ,BERGON ,IN-PARTY> <PRINTI
"\"I hope it is open,\" Bergon
said wistfully, \"for I fear even an army would be hard put to break
through this!\"">) (T <PRINTI
"\"It had better be open,\" Praxix offered,
\"for I have not the magic to open this formidable a door.\"">)> <MOVE-TO ,
TOMB-ANTE>)>)>
<DEFINE-ROUTINE ANONF-255>
<GLOBAL HOLE-VICTIM <>>
<OBJECT TOMB-ANTE-DOOR (SDESC "door") (KBD 68) (LOC TOMB-ANTE) (FLAGS DONT-TAKE
) (ACTION <ACOND () (<EQUAL? ,ACTION ,EXAMINE-COMMAND> <UPDATE-MOVE> <PRINTI
"It was "> <WPRINTD ,ACTOR> <PRINTI
" who finally approached the door, and attempted to open
it. \"I am sorry, "> <COND (<FSET? ,BERGON ,IN-PARTY> <PRINTI
"Bergon,\" he started, \"but we shall be needing your army after all!">) (<
EQUAL? ,ACTOR ,PRAXIX> <PRINTI
"but we shall need a miracle to get through this door.">) (T <PRINTI
"Praxix,\" he started, \"but it is magic that we need!\"">)> <PRINTI "\""> <
CRLF> <CRLF> <PRINTI
"\"Or the key,\" I added, pointing to the keyhole that lay in the
door's center."> <COND (<IN? ,IRON-KEY ,INVENTORY> <PRINTI
" Fumbling through my pack, I pulled out the key we had found at
the bottom of the nearby hole and held it out to "> <WPRINTD ,ACTOR> <PRINTI
". \"The key,\"
I said, and bowed as gracefully as I could.">)> <RTRUE>)>)>
<DEFINE-ROUTINE ANONF-256>
<COMMAND OPEN-DOOR>
<ROOM TOMB-ANTE (TRAVEL-COMMANDS OPEN-DOOR-COMMAND BACK-COMMAND NUL-COMMAND) (
CAST-LIMIT 2) (GRAPHIC G-MASSIVE-DOOR) (FLAGS UNDERGROUND) (ENTER <EXECUTE () <
FSET ,HERE ,SEEN> <COND (<IN? ,IRON-KEY ,INVENTORY> <FORCE-TRAVEL-COMMAND ,HERE
,OPEN-DOOR-COMMAND>)>>) (ACTION <ACOND () (<EQUAL? ,ACTION ,GET-ADVICE-COMMAND>
<UPDATE-FCLEAR ,HERE ,ADVISE> <COND (<NOT <FSET? ,MINE-HOLE ,SEEN>> <PRINTI
"\"Why don't we see what's down the crude path?\" I suggested,
and this was met with a murmur of agreement.">) (T <PRINTI
"\"There's no use standing here by the door,\" Praxix said. \"I
don't believe it will open merely from force of will. Let us look
elsewhere for the solution.\"">)>) (<EQUAL? ,ACTION ,OPEN-DOOR-COMMAND> <COND (
<IN? ,IRON-KEY ,INVENTORY> <FCLEAR ,HERE ,ADVISE> <UPDATE-FSET ,IRON-KEY ,
DONT-EXAMINE> <PRINTI
"The iron key was a perfect fit for the lock. We were soon
inside a tall, rounded chamber. A beam of light from high
above illuminated a metallic vault inset into the floor of the
chamber. Inscribed in the stone around the vault were runes which
looked to be Dwarvish."> <UPDATE-FCLEAR ,IRON-KEY ,DONT-DROP> <MOVE-TO ,TOMB>)
(T <REMOVE-TRAVEL-COMMAND> <PRINTI
"Trying to force the door open would be fruitless; another way would
have to be found if we were to get inside."> <REMOVE-PARTY-COMMAND ,
ENTER-COMMAND> <UPDATE-FSET ,HERE ,ADVISE>)>) (<EQUAL? ,ACTION ,BACK-COMMAND> <
COND (<FSET? ,GATE-JUNCTION ,TRAPPED> <PRINTI
"We had failed in our attempts to pass through the door, and decided
to return to the bottom of the stairs and consider whether there were
any other options left open to us in these caverns."> <REMOVE-TRAVEL-COMMAND ,
MINE-LOWER-STAIR ,RIGHT-COMMAND> <MOVE-TO ,MINE-LOWER-STAIR>) (T <MOVE-TO ,
GATE-JUNCTION #ZLOCAL!-IZILCH STR?616>)>)>)>
<DEFINE-ROUTINE ANONF-257>
<DEFINE-ROUTINE ANONF-258>