-
Notifications
You must be signed in to change notification settings - Fork 12
/
Copy pathlake.zap
1127 lines (1014 loc) · 44.4 KB
/
lake.zap
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
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
.SEGMENT "LAKE"
.FUNCT GATE-TO-HIGH-PLAIN:ANY:0:0
PRINTI "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."
CALL2 MOVE-TO,HIGH-PLAIN
RSTACK
.FUNCT ANONF-168:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL1 CLEAR-EXBIT
EQUAL? ACTOR,PRAXIX \?CCL6
PRINTI "Praxix gazed absently at the stream, then picked up a small stone, and skimmed it over the rippling surface."
CRLF
CRLF
PRINTI """A storm is brewing,"" he said as the stone disappeared from sight. ""We should move quickly, lest we be caught in it!"""
JUMP ?CND4
?CCL6: ICALL CLEAR-EXBIT,GOLD-STREAM-OBJ,PRAXIX
ICALL ADD-TRAVEL-COMMAND,HERE,FIND-GOLD-COMMAND
FSET HERE,ADVISE
ICALL2 WPRINTD,ACTOR
PRINTI " 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."
CRLF
CRLF
PRINTI """I would swear it was gold,"" "
ICALL2 WPRINTD,ACTOR
PRINTI " said, as he stared intently into the waters. ""Now that would be something of value!"""
FSET? BERGON,IN-PARTY \?CND4
CRLF
CRLF
PRINTI """It is possible,"" Bergon replied, thoughtfully, ""that there is gold in these mountain waters, but I should think not."""
?CND4: CRLF
CRLF
PRINTI "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."
RTRUE
.FUNCT ANONF-169:ANY:0:0,TMP
EQUAL? ACTION,GET-ADVICE-COMMAND \?CCL3
GETP HERE,P?TEMP
ZERO? STACK \?CCL6
PRINTI "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."
CRLF
CRLF
PRINTI "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."
FSET? ESHER,IN-PARTY \?CND7
PRINTI " Esher put it best. ""A little rain won't hurt, and neither would a little gold,"" he said."
?CND7: CALL UPDATE-FCLEAR,HERE,ADVISE
RSTACK
?CCL6: GETP HERE,P?TEMP
EQUAL? STACK,1 \FALSE
PRINTI "Bergon was becoming increasingly concerned. But, as earlier, the group was less inclined to leave this opportunity behind."
CALL UPDATE-FCLEAR,HERE,ADVISE
RSTACK
?CCL3: EQUAL? ACTION,FIND-GOLD-COMMAND \?CCL12
GETP HERE,P?TEMP
ADD STACK,1 >TMP
PUTP HERE,P?TEMP,TMP
EQUAL? TMP,1 \?CCL15
ICALL UPDATE-FSET,HERE,ADVISE
PRINTI "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."
RTRUE
?CCL15: PRINTI "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!"
ICALL QUEUE,I-TORRENT-HITS,1
CALL1 REMOVE-TRAVEL-COMMAND
RSTACK
?CCL12: EQUAL? ACTION,INVENTORY-COMMAND \?CCL17
FSET? HERE,DEAD \?CCL17
CALL QSET?,HERE,BLUE-MIX
ZERO? STACK \?CCL17
PRINTI "Frantically, I searched my pack. "
ZERO? TORRENT-LOSER /?CCL23
PRINTI "Over and over I looked, but it was no use. The "
ICALL2 WPRINTD,TORRENT-LOSER
PRINTI " was gone!"
CRLF
CRLF
PRINTI "Praxix looked grim. ""This is an evil omen,"" he said. ""We shall not be able to replace it!"""
RTRUE
?CCL23: PRINTI "Fortunately, we had lost nothing to the storm."
RTRUE
?CCL17: EQUAL? ACTION,CAST-COMMAND \?CCL25
EQUAL? ACTION-OBJECT,LEVITATE-SPELL \?CCL25
GETP HERE,P?TEMP
GRTR? STACK,0 \?CCL25
EQUAL? ACTION-PRSI,TAG-OBJECT \?CCL31
PRINTI "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. "
ICALL1 FIND-STREAM-ESSENCE
PRINTI " 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."
CALL2 MOVE-TO,LAKE-SHORE-1
RSTACK
?CCL31: PRINTI "Praxix, taking out his air and earth essences, cast his elevation spell on "
ICALL2 WPRINTD,ACTION-PRSI
PRINTI ", who rose slowly into the air before us. Still, the onrushing waters approached, and I tried desparately to get away. "
ICALL1 TORRENT-HITS
RTRUE
?CCL25: EQUAL? ACTION,PROCEED-COMMAND \FALSE
GETP HERE,P?TEMP >TMP
LESS? TMP,1 \?CCL36
PRINTI "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."
CRLF
CRLF
PRINTI """That was awfully close!"" I said, checking that the contents of my pack were secure."
CRLF
CRLF
CALL MOVE-TO,LAKE-SHORE-1,STR?490
RSTACK
?CCL36: FSET? HERE,DEAD \?CCL38
CALL MOVE-TO,LAKE-SHORE-1,STR?491
RSTACK
?CCL38: ICALL1 TORRENT-HITS
RTRUE
.FUNCT ANONF-170:ANY:0:0
FSET? HERE,DEAD /FALSE
EQUAL? HERE,GOLD-STREAM \FALSE
CRLF
CRLF
CALL1 TORRENT-HITS
RSTACK
.FUNCT TORRENT-HITS:ANY:0:0
FSET HERE,DEAD
PRINTI "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."
IN? DWARF-STONE,INVENTORY \?CCL3
SET 'TORRENT-LOSER,DWARF-STONE
JUMP ?CND1
?CCL3: IN? WEBBA-MAP,INVENTORY \?CND1
SET 'TORRENT-LOSER,WEBBA-MAP
?CND1: ZERO? TORRENT-LOSER /?CND5
ICALL2 HINT,HINT-GOLD
ICALL2 UPDATE-MOVE,TORRENT-LOSER
?CND5: ICALL UPDATE-FCLEAR,HERE,ADVISE
ICALL UPDATE-FCLEAR,HERE,INVENTORIED
ICALL2 REMOVE-PARTY-COMMAND,FIND-GOLD-COMMAND
CALL1 FIND-STREAM-ESSENCE
RSTACK
.FUNCT FIND-STREAM-ESSENCE:ANY:0:0
CRLF
CRLF
PRINTI "Strangely, Praxix returned to the swollen stream, and pulled up a few peculiar golden stones."
CRLF
CRLF
PRINTI """After all that, you of all people are looking for gold!"" Bergon huffed."
CRLF
CRLF
PRINTI """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."
CALL FIND-ESSENCE,ESSENCE-WATER,3
RSTACK
.FUNCT ANONF-171:ANY:0:0
CALL QSET?,HERE,SEEN
ZERO? STACK \FALSE
EQUAL? PARTY-MAX,2 \?CND4
PRINTI "After a brief lunch at the lake, we continued around to the far shore."
ICALL REMOVE-TRAVEL-COMMAND,LAKE-SHORE-3,BACK-COMMAND
ICALL2 MOVE-TO,LAKE-SHORE-3
RTRUE
?CND4: CRLF
CRLF
PRINTI "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."
CRLF
CRLF
ICALL2 GRAPHIC,G-LAKE-SHORE
PRINTI """Have I ever told you about my fishing days at Lendros?"" he said. Nobody responded to this informal banter, but Bergon persisted."
CRLF
CRLF
PRINTI """How would everyone feel about some fresh lake trout?"" he asked."
CRLF
CRLF
PRINTI """Oh, my, yes; that would hit the spot!"" he replied, playfully."
CRLF
CRLF
PRINTI "Then, taking the slightest murmur from the group as a mandate, he dove into the icy clear waters."
CRLF
CRLF
PRINTI "He surfaced soon thereafter; though out of breath, he gasped something about our upcoming feast"
ZERO? 2ND-PASS \?CCL8
FSET? DWARF-MEETING,SEEN /?CCL8
CALL FIRST-IN-PARTY,MINAR,ESHER >LAKE-VICTIM
ZERO? LAKE-VICTIM /?CCL13
PRINTI ". Seeing how weakened Bergon had become, "
ICALL2 WPRINTD,LAKE-VICTIM
PRINTI " 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."
ICALL2 PARTY-REMOVE,LAKE-VICTIM
JUMP ?CND6
?CCL13: PRINTI ". But Praxix convinced Bergon that, having already lost some of our party, he should not attempt such a dive in his breathless condition."
ICALL UPDATE-FCLEAR,HERE,ADVISE
RTRUE
?CCL8: PRINTI ", laughed, then dove again into the lake. Only this time, he did not return."
SET 'LAKE-VICTIM,BERGON
ICALL2 PARTY-REMOVE,BERGON
?CND6: FSET LAKE-VICTIM,INCAPACITATED
SET 'UPDATE-FLAG,TRUE-VALUE
CALL2 ADD-PARTY-COMMAND,ENTER-LAKE-COMMAND
RSTACK
.FUNCT ANONF-172:ANY:0:0
EQUAL? ACTION,SCOUT-COMMAND \?CCL3
ICALL UPDATE-FSET,HERE,DONT-SCOUT
FSET HERE,SCOUTED
EQUAL? ACTOR,ESHER \?CCL6
PRINTI "Frant"
JUMP ?CND4
?CCL6: PRINTI "Method"
?CND4: PRINTI "ically, "
ICALL2 WPRINTD,ACTOR
PRINTI " scouted the area along the shore looking for any sign of "
ICALL2 WPRINTD,LAKE-VICTIM
PRINTI ". He returned frustrated, having found no sign of our missing friend."
EQUAL? ACTOR,MINAR \TRUE
PRINTI " He did, however, find something of interest, and not far from where we stood."
CRLF
CRLF
PRINTI """There's a cave,"" he said, ""just a little farther along the shore."""
RTRUE
?CCL3: EQUAL? ACTION,GET-ADVICE-COMMAND \?CCL10
ICALL UPDATE-FCLEAR,HERE,ADVISE
ICALL2 WPRINTD,LEADER
EQUAL? LAKE-VICTIM,BERGON \?CND11
PRINTI ", taking charge and attempting at the same time not to sound overly pessimistic,"
?CND11: PRINTI " said, ""Perhaps "
ICALL2 WPRINTD,LAKE-VICTIM
PRINTI " has been caught in a current, and carried further along the shore."""
CRLF
CRLF
EQUAL? LEADER,PRAXIX \?CCL15
PRINTI "Praxix continued. """
JUMP ?CND13
?CCL15: PRINTI "Praxix concurred. """
ICALL2 WPRINTD,LEADER
PRINTI " is right,"" he started, """
EQUAL? LEADER,ESHER \?CCL18
PRINTI "though I am loath to admit it. T"
JUMP ?CND13
?CCL18: PRINTC 116
?CND13: PRINTI "here is no sign of "
ICALL2 WPRINTD,LAKE-VICTIM
PRINTI ", and that is very disturbing indeed! Perhaps we shall learn more as we progress along the lake shore."""
RTRUE
?CCL10: EQUAL? ACTION,PROCEED-COMMAND \?CCL20
ZERO? LAKE-VICTIM /?CCL23
CALL MOVE-TO,LAKE-SHORE-2,STR?492
RSTACK
?CCL23: PRINTI "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."
CRLF
CRLF
GETP LAKE-SHORE-3,P?ACTION
ICALL STACK
RTRUE
?CCL20: EQUAL? ACTION,ENTER-LAKE-COMMAND \FALSE
PRINTI "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 "
ICALL2 WPRINTD,LAKE-VICTIM
PRINTC 33
CALL2 MOVE-TO,UNDERSHORE-1
RSTACK
.FUNCT ANONF-173:ANY:0:0
EQUAL? ACTION,SCOUT-COMMAND \?CCL3
ICALL UPDATE-FSET,HERE,DONT-SCOUT
FSET HERE,SCOUTED
ICALL2 WPRINTD,ACTOR
PRINTI " went ahead, "
FSET? PRAXIX,LIT /?CCL6
PRINTI "but returned before long, telling us that the cave was too dark to explore without additional light."
RTRUE
?CCL6: PRINTI "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."
RTRUE
?CCL3: EQUAL? ACTION,ENTER-CAVE-COMMAND \?CCL8
FSET HERE,DONT-SCOUT
FSET? LAKE-CAVE,SEEN \?CCL11
ICALL1 REMOVE-TRAVEL-COMMAND
ICALL REMOVE-TRAVEL-COMMAND,LAKE-SHORE-3,BACK-COMMAND
PRINTI "Determined not to give up hope, we again entered the cave"
FSET? LAKE-POOL,SEEN \?CCL14
PRINTI ", continuing down the narrow path until we reached the edge of the warm pool"
ICALL2 MOVE-TO,LAKE-POOL
JUMP ?CND12
?CCL14: ICALL2 MOVE-TO,LAKE-CAVE
?CND12: PRINTC 46
JUMP ?CND9
?CCL11: PRINTI "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."
ICALL2 MOVE-TO,LAKE-CAVE
?CND9: EQUAL? HERE,LAKE-CAVE \TRUE
FSET? PRAXIX,LIT /TRUE
PRINTI " 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
?CCL8: EQUAL? ACTION,PROCEED-COMMAND \FALSE
PRINTI "The path along the shore soon ended, continuing instead steeply upward into the surrounding hills. Further progress along the shore would be impossible."
FSET? LAKE-VICTIM,IN-PARTY /?CND21
CALL QSET?,HERE,BLUE-MIX
ZERO? STACK \?CND21
PRINTI " If we continued now, it was almost certain we'd never see "
ICALL2 WPRINTD,LAKE-VICTIM
PRINTI " again."
?CND21: CALL2 MOVE-TO,LAKE-SHORE-3
RSTACK
.FUNCT ANONF-174:ANY:0:0
FSET? LAKE-VICTIM,IN-PARTY \FALSE
CALL2 REMOVE-PARTY-COMMAND,BACK-COMMAND
RSTACK
.FUNCT ANONF-175:ANY:0:0
EQUAL? ACTION,PROCEED-COMMAND \?CCL3
ZERO? LAKE-VICTIM /?CCL6
FSET? LAKE-VICTIM,IN-PARTY /?CCL6
ICALL2 HINT,HINT-LAKE
PRINTI """I am afraid we have no alternative,"" "
ICALL2 WPRINTD,LEADER
PRINTI " said, ""but to go on without "
ICALL2 WPRINTD,LAKE-VICTIM
PRINTI "."""
CRLF
CRLF
JUMP ?CND4
?CCL6: ZERO? LAKE-VICTIM /?CND4
IN? NYMPH-STONE,INVENTORY /?CND4
ICALL2 HINT,HINT-NYMPH-STONE
?CND4: ZERO? 2ND-PASS /?CND12
FSET? BITE-FOREST,SEEN /?CCL16
FSET? MINAR,IN-PARTY /?CTR15
FSET? ESHER,IN-PARTY \?CCL16
?CTR15: PRINTI "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."
ICALL2 MOVE-TO,BITE-FOREST
RTRUE
?CCL16: ICALL2 N-DAY-TREK,3
RTRUE
?CND12: PRINTI "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."
CRLF
CRLF
CALL1 MOVE-TO-FOREST-RIDGE
RSTACK
?CCL3: EQUAL? ACTION,BACK-COMMAND \FALSE
ICALL1 REMOVE-TRAVEL-COMMAND
PRINTI "Unwilling to leave the lake without making another attempt at finding "
ICALL2 WPRINTD,LAKE-VICTIM
PRINTI ", we retraced our steps and soon arrived back at the mouth of the cave."
CALL2 MOVE-TO,LAKE-SHORE-2
RSTACK
.FUNCT ANONF-176:ANY:0:0
FSET? PRAXIX,LIT \FALSE
CALL FORCE-TRAVEL-COMMAND,HERE,PROCEED-COMMAND
RSTACK
.FUNCT ANONF-177:ANY:0:0
EQUAL? ACTION,PROCEED-COMMAND \?CCL3
FSET? PRAXIX,LIT /?CCL6
PRINTI "Despite the darkness, we continued down the narrow path until it became clearly futile to do so."
CRLF
CRLF
PRINTI """It is bad enough that we have lost "
ICALL2 WPRINTD,LAKE-VICTIM
PRINTI ","" Praxix said. ""It would be folly to risk other lives."""
CALL1 REMOVE-TRAVEL-COMMAND
RSTACK
?CCL6: CALL MOVE-TO,LAKE-POOL,STR?495
RSTACK
?CCL3: EQUAL? ACTION,BACK-COMMAND \FALSE
PRINTI "It appeared "
FSET? PRAXIX,LIT \?CCL11
PRINTI "the cave would lead nowhere"
JUMP ?CND9
?CCL11: PRINTI " we would not learn where the cave led"
?CND9: CALL MOVE-TO,LAKE-SHORE-2,STR?496
RSTACK
.FUNCT ANONF-178:ANY:0:0
EQUAL? ACTION,GET-ADVICE-COMMAND \?CCL3
ICALL UPDATE-FCLEAR,HERE,ADVISE
FSET? UNDERPOOL-2,SEEN /?CTR5
FSET? ESHER,IN-PARTY /?CCL6
?CTR5: PRINTI "We huddled among ourselves, but few words were spoken. And yet I could see in Praxix' eyes the desire that I"
FSET? UNDERPOOL-2,SEEN \?CND9
PRINTI " once again"
?CND9: PRINTI " attempt the descent."
RTRUE
?CCL6: FSET? UNDERPOOL-2,SEEN \?CCL12
PRINTI "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."
RTRUE
?CCL12: ICALL2 WPRINTD,LEADER
PRINTI " stood a long while in thought, then asked for advice."
GRTR? PARTY-MAX,2 \?CND13
PRINTI " When none spoke, I made a rare suggestion of my own."
?CND13: PRINTI " ""I am happy to have a look underwater, if you think it would help,"" I said."
EQUAL? LEADER,PRAXIX /TRUE
CRLF
CRLF
PRINTI "Praxix said nothing; he turned toward the pool and stared."
RTRUE
?CCL3: EQUAL? ACTION,SCOUT-COMMAND /?CTR17
EQUAL? ACTION,PROCEED-COMMAND \?CCL18
?CTR17: ICALL REMOVE-TRAVEL-COMMAND,HERE,PROCEED-COMMAND
ICALL UPDATE-FSET,HERE,DONT-SCOUT
EQUAL? ACTION,SCOUT-COMMAND \?CCL23
ICALL2 WPRINTD,ACTOR
JUMP ?CND21
?CCL23: PRINTI "Praxix, going on ahead,"
?CND21: PRINTI " tried to find another path through the cave, but failed. ""This is as far as it goes,"" he said."
RTRUE
?CCL18: EQUAL? ACTION,BACK-COMMAND \?CCL25
FSET? UNDERPOOL-2,SEEN \?CCL28
PRINTC 87
JUMP ?CND26
?CCL28: PRINTI "It appeared the cave would lead nowhere; and so, w"
?CND26: PRINTI "ith hope fading for our lost friend, we returned to the mouth of the cave."
CALL2 MOVE-TO,LAKE-SHORE-2
RSTACK
?CCL25: EQUAL? ACTION,ENTER-POOL-COMMAND \?CCL30
FSET HERE,ADVISE
ZERO? SUBGROUP-MODE \?CND31
ICALL2 MAKE-TAG-SUBGROUP,TRUE-VALUE
?CND31: FSET? UNDERPOOL-2,SEEN \?CCL35
PRINTI "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."
JUMP ?CND33
?CCL35: PRINTI "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."
CRLF
CRLF
PRINTI "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."
CRLF
CRLF
PRINTI "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!"
?CND33: CALL2 MOVE-TO,UNDERPOOL-2
RSTACK
?CCL30: EQUAL? ACTION,CAST-COMMAND \FALSE
EQUAL? ACTION-OBJECT,FAR-VISION-SPELL \FALSE
PRINTI "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."
FSET? ESHER,IN-PARTY \?CND40
PRINTI " Esher raised an eyebrow;"
?CND40: PRINTI " I stifled a laugh."
CRLF
CRLF
PRINTI "Praxix straightened up and, trying his best to sound sincere, said, ""As I suspected!"""
RTRUE
.FUNCT POOL-MOVE:ANY:1:1,STR
ICALL1 CLEAR-SUBGROUP
ICALL1 RESTORE-TAG-COMMANDS
ICALL1 RESTORE-TAG-OBJECTS
CALL MOVE-TO,LAKE-POOL,STR
RSTACK
.FUNCT ANONF-179:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL1 UPDATE-MOVE
PRINTI "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."
RTRUE
.FUNCT ANONF-180:ANY:0:0
EQUAL? ACTION,LEAVE-TUBE-COMMAND \?CCL3
PRINTI "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."
CALL1 UL-1-MOVE
RSTACK
?CCL3: EQUAL? ACTION,RETURN-COMMAND \FALSE
CALL QSET?,HERE,TRIED
ZERO? STACK \?CCL8
PRINTI "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!"
JUMP ?CND6
?CCL8: ICALL REMOVE-TRAVEL-COMMAND,LAKE-POOL,ENTER-POOL-COMMAND
PRINTI "Once again, however, I found myself unable to leave the tube and venture forth into the unknown."
?CND6: CRLF
CRLF
CALL2 POOL-MOVE,STR?503
RSTACK
.FUNCT ANONF-181:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL1 UPDATE-MOVE
PRINTI "Each of us was mesmerized by this lovely pool, whose depth appeared infinite. "
ICALL2 WPRINTD,ACTOR
PRINTI " 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."
RTRUE
.FUNCT ANONF-182:ANY:0:0
ICALL2 MAKE-SUBGROUP,TAG
CALL TRAVEL-COMMANDS,TAG,NUL-COMMAND
RSTACK
.FUNCT ANONF-183:ANY:0:0
ICALL1 CLEAR-SUBGROUP
CALL1 RESTORE-TAG-COMMANDS
RSTACK
.FUNCT ANONF-184:ANY:0:0
EQUAL? ACTION,DIVE-COMMAND \?CCL3
PRINTI "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."
CRLF
CRLF
CALL MOVE-TO,LAKE-SHORE-1,STR?507
RSTACK
?CCL3: EQUAL? ACTION,SURFACE-COMMAND \FALSE
ICALL TRAVEL-COMMANDS,LAKE-SHORE-1,PROCEED-COMMAND
PRINTI "With no sign of "
ICALL2 WPRINTD,LAKE-VICTIM
PRINTI ", I returned to the surface and reported back to the group."
CALL2 MOVE-TO,LAKE-SHORE-1
RSTACK
.ENDSEG
.SEGMENT "NYMPHS"
.FUNCT UL-1-MOVE:ANY:0:0
PICINF G-NYMPH-CHAMBER,PICINF-TBL /?BOGUS1
?BOGUS1: ZERO? SUBGROUP-MODE \?CND2
ICALL2 MAKE-TAG-SUBGROUP,TRUE-VALUE
?CND2: CRLF
CRLF
PRINTI "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."
CRLF
CRLF
PRINTI "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 "
ZERO? 2ND-PASS /?CCL6
PRINTI "Astrix"
JUMP ?CND4
?CCL6: PRINTI "my book of legends"
?CND4: PRINTI " was to be believed. And there, to my surprise, was "
ICALL2 WPRINTD,LAKE-VICTIM
PRINTI ", lying on a bed of straw and covered in a heavy woolen blanket."
CRLF
CRLF
ICALL TRAVEL-COMMANDS,TAG,PICK-UP-COMMAND,DROP-COMMAND,EXAMINE-COMMAND
CALL MOVE-TO,UL-2,STR?508
RSTACK
.FUNCT ANONF-185:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL1 UPDATE-MOVE
CALL1 EXAMINE-LAKE-VICTIM
RSTACK
.FUNCT ANONF-186:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL1 UPDATE-MOVE
CALL1 EXAMINE-LAKE-VICTIM
RSTACK
.FUNCT ANONF-187:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL1 UPDATE-MOVE
CALL1 EXAMINE-LAKE-VICTIM
RSTACK
.FUNCT EXAMINE-LAKE-VICTIM:ANY:0:0
FSET? LAKE-VICTIM,INCAPACITATED \?CCL3
FSET LAKE-VICTIM,TRIED
PRINTI "At first, "
ICALL2 WPRINTD,LAKE-VICTIM
PRINTI " appeared unnaturally still, perhaps dead. But the blanket which covered him heaved slowly with his breath, and for this, I was greatly relieved."
FSET? HERE,EXAMINED \?CND4
CRLF
CRLF
PRINTI "But as I knelt beside him, my foot inadvertantly caught the end of the blanket, and pulled it to the floor. "
ICALL2 WPRINTD,LAKE-VICTIM
PRINTI " was not only unconscious, but his feet and hands had been tightly bound!"
?CND4: PRINTI " 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."
CRLF
CRLF
PRINTI "But this problem was soon solved of itself, for "
ICALL2 WPRINTD,LAKE-VICTIM
PRINTI " 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
RTRUE
?CCL3: ICALL2 WPRINTD,LAKE-VICTIM
PRINTI " was already quite a bit stronger and appeared fit enough to return with me to the cave where our party stood waiting."
RTRUE
.FUNCT ANONF-188:ANY:0:0
FSET? LAKE-VICTIM,INCAPACITATED \?CND1
FCLEAR LAKE-VICTIM,INCAPACITATED
ICALL CHANGE-TRAVEL-COMMAND,UL-2,RETURN-ALONE-COMMAND,TO-CAVE-COMMAND
EQUAL? HERE,UL-2 \?CND1
CRLF
CRLF
PRINTI "Just then, "
ICALL2 WPRINTD,LAKE-VICTIM
PRINTI " stirred and I moved to his side. Within a few minutes, he had regained consciousness, but I advised him to remain quiet and calm"
FSET? LAKE-VICTIM,TRIED \?CCL7
PRINTI " until we were ready to make our escape."
JUMP ?CND1
?CCL7: PRINTI ". 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."
CRLF
CRLF
PRINTI """We must leave here at once,"" he said, ""for surely they will return before long."""
?CND1: REMOVE I-LAKE-VICTIM-COMES-TO
RTRUE
.FUNCT ANONF-189:ANY:0:0
ICALL2 TORCH-CHECK,HERE
CALL QSET?,HERE,SEEN
ZERO? STACK \FALSE
ICALL QUEUE,I-LAKE-VICTIM-COMES-TO,8
EQUAL? LAKE-VICTIM,MINAR \?CCL6
ICALL UPDATE-MOVE,UL-2-MINAR,HERE
JUMP ?CND4
?CCL6: EQUAL? LAKE-VICTIM,ESHER \?CCL8
ICALL UPDATE-MOVE,UL-2-ESHER,HERE
JUMP ?CND4
?CCL8: ICALL UPDATE-MOVE,UL-2-BERGON,HERE
?CND4: CALL OPTION,TAG,STAND-COMMAND,HIDE-COMMAND
RSTACK
.FUNCT ANONF-190:ANY:0:0
EQUAL? ACTION,TO-CAVE-COMMAND \?CCL3
FSET? LAKE-VICTIM,INCAPACITATED \?CCL6
PRINTI "It was clear that we were in great danger, and my immediate reaction was to return to the pool with "
ICALL2 WPRINTD,LAKE-VICTIM
PRINTI ". 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 "
ICALL2 WPRINTD,LAKE-VICTIM
PRINTC 46
CALL CHANGE-TRAVEL-COMMAND,HERE,TO-CAVE-COMMAND,RETURN-ALONE-COMMAND
RSTACK
?CCL6: PRINTI "Now conscious and regaining his strength, I managed to help "
ICALL2 WPRINTD,LAKE-VICTIM
PRINTI " back to the pool"
IN? TORCH,INVENTORY \?CCL9
PRINTI ". As much as I would have preferred to take the torch along, I simply could not handle both it and "
ICALL2 WPRINTD,LAKE-VICTIM
PRINTI ". Holding my friend firmly, we dove"
JUMP ?CND7
?CCL9: PRINTI " and then down"
?CND7: PRINTI " into the warm waters, finally reaching the tube which led back to"
CALL2 END-NYMPH-STORY,TRUE-VALUE
RSTACK
?CCL3: EQUAL? ACTION,RETURN-ALONE-COMMAND \?CCL11
PRINTI "There was no way that I could help poor "
ICALL2 WPRINTD,LAKE-VICTIM
PRINTI ". 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"
CALL1 END-NYMPH-STORY
RSTACK
?CCL11: EQUAL? ACTION,WIDE-PATH-COMMAND \?CCL13
CALL2 UL-MOVE-CHECK,UL-JCN
ZERO? STACK /FALSE
PRINTI "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."
CALL2 UL-MOVE,UL-JCN
RSTACK
?CCL13: EQUAL? ACTION,NARROW-PATH-COMMAND \?CCL18
CALL2 UL-MOVE-CHECK,UL-2-PIT
ZERO? STACK /FALSE
PRINTI "The narrow path snaked through the rock until it ended blindly at a very small, rounded chamber, in the middle of which lay a "
FSET? UL-2-PIT,SCOUTED \?CCL24
PRINTI "perfectly round pool of water."
JUMP ?CND22
?CCL24: PRINTI "large stone cover."
?CND22: CALL2 UL-MOVE,UL-2-PIT
RSTACK
?CCL18: EQUAL? ACTION,HIDE-COMMAND \?CCL26
ICALL2 SINGLE-MOVE-GRAPHIC,G-LIURA
FSET HERE,TRIED
ICALL QUEUE,I-NYMPHS-ARRIVE,40
PRINTI "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 "
ICALL2 WPRINTD,LAKE-VICTIM
PRINTI "'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 "
ICALL2 WPRINTD,LAKE-VICTIM
PRINTI "'s hands and feet! A moment later, the being glided out of the room, and I again reentered."
CALL1 END-OPTION
RSTACK
?CCL26: EQUAL? ACTION,WAIT-COMMAND \?CCL28
PRINTI "I did as the creature asked, but this was a tragic mistake. Within minutes"
PRINT ARMED-CREATURES
CALL1 END-NYMPH-STORY
RSTACK
?CCL28: EQUAL? ACTION,STAND-COMMAND \FALSE
ICALL2 SINGLE-MOVE-GRAPHIC,G-LIURA
ICALL QUEUE,I-NYMPHS-ARRIVE,24
PRINTI "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."
CRLF
CRLF
PRINTI """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."
ICALL ADD-TRAVEL-COMMAND,HERE,WAIT-COMMAND
FSET HERE,EXAMINED
CALL1 END-OPTION
RSTACK
.FUNCT ANONF-191:ANY:0:0
SET 'NYMPHS-COMING?,TRUE-VALUE
RETURN NYMPHS-COMING?
.FUNCT ANONF-192:ANY:0:0,TMP
EQUAL? ACTION,PICK-UP-COMMAND \?CCL3
EQUAL? HERE,UL-PIT \?CCL6
FCLEAR HERE,TORCHBIT
ICALL FORCE-TRAVEL-COMMAND,HERE,DIVE-COMMAND
ICALL UPDATE-MOVE,TORCH,INVENTORY
GETP TORCH,P?TEMP
ZERO? STACK \?CCL9
PRINTI "Not knowing which chambers might be unlighted, I thought it best to take one of the torches."
JUMP ?CND7
?CCL9: PRINTI "Again, I attempted to take one of the torches, but this time I succeeded."
?CND7: PRINTI " It's light was bright but cold, and its flame gave off little heat."
RTRUE
?CCL6: ICALL UPDATE-FSET,TORCH,DONT-TAKE
GETP TORCH,P?TEMP
ADD STACK,1 >TMP
PUTP TORCH,P?TEMP,TMP
GRTR? TMP,1 \?CND10
PRINTI "Again, "
?CND10: PRINTI "I tried to take one of the torches, but failed. They were too firmly attached to the wall."
RTRUE
?CCL3: EQUAL? ACTION,DROP-COMMAND \FALSE
PRINTI "I considered putting down the torch but decided against it, believing that it might well come in useful later."
RTRUE
.FUNCT TORCH-CHECK:ANY:1:1,RM
FSET? RM,TORCHBIT \FALSE
IN? TORCH,INVENTORY /FALSE
ICALL UPDATE-MOVE,TORCH,RM
CALL UPDATE-FCLEAR,TORCH,DONT-TAKE
RSTACK
.FUNCT UL-MOVE-CHECK:ANY:1:1,RM
IN? TORCH,INVENTORY /TRUE
FSET? RM,TORCHBIT /TRUE
FCLEAR RM,LIT
PRINTI "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
.FUNCT UL-MOVE:ANY:1:1,RM
ICALL2 TORCH-CHECK,RM
FSET RM,LIT
EQUAL? HERE,RM \?CND1
FSET? RM,TORCHBIT /?CCL2
EQUAL? RM,UL-PIT \?CND1
?CCL2: FSET? HERE,TORCHBIT /?CCL9
PRINTI " A single torch, mounted alongside"
JUMP ?CND7
?CCL9: PRINTI " Torches, mounted on either side of"
?CND7: PRINTI " the entrance, cast cold, flickering shadows on the stone walls."
?CND1: CALL2 MOVE-TO,RM
RSTACK
.FUNCT END-NYMPH-STORY:ANY:0:1,PA
REMOVE I-NYMPHS-ARRIVE
PRINTC 32
EQUAL? PARTY-MAX,3 \?CCL3
PRINTI "Praxix"
JUMP ?CND1
?CCL3: PRINTI "our party"
?CND1: PRINTI ". After retelling the story of my adventures, we left the cave, returning to the shore of the lake."
ICALL1 CLEAR-SUBGROUP
ICALL1 RESTORE-TAG-OBJECTS
ICALL1 RESTORE-TAG-COMMANDS
ICALL UPDATE-MOVE,TALE-NYMPHS,PRAXIX-TALES
ZERO? PA /?CND4
ICALL2 PARTY-ADD,LAKE-VICTIM
?CND4: ZERO? 2ND-PASS /?CCL8
FSET? LAKE-VICTIM,IN-PARTY /?CND9
ICALL2 HINT,HINT-LAKE
?CND9: FSET? BITE-FOREST,SEEN /?CCL13
FSET? MINAR,IN-PARTY /?CTR12
FSET? ESHER,IN-PARTY \?CCL13
?CTR12: PRINTI "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."
CALL2 MOVE-TO,BITE-FOREST
RSTACK
?CCL13: CRLF
CRLF
ICALL2 N-DAY-TREK,3
RTRUE
?CCL8: ICALL REMOVE-TRAVEL-COMMAND,LAKE-SHORE-3,BACK-COMMAND
CALL2 MOVE-TO,LAKE-SHORE-3
RSTACK
.FUNCT ANONF-193:ANY:0:0
PRINTI "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?"
RTRUE
.FUNCT ANONF-194:ANY:0:0
ZERO? NYMPHS-COMING? /?CCL3
CRLF
CRLF
PRINTI "Just then"
PRINT ARMED-CREATURES
CALL1 END-NYMPH-STORY
RSTACK
?CCL3: CALL2 GRAPHIC,G-UNDERLAND-JCN
RSTACK
.FUNCT ANONF-195:ANY:0:0
EQUAL? ACTION,BACK-COMMAND \?CCL3
CALL2 UL-MOVE-CHECK,UL-2
ZERO? STACK /FALSE
PRINTI "Thinking it best to check on my wounded friend, I returned to "
ICALL2 WPRINTD,LAKE-VICTIM
PRINTI "'s side. Thankfully, he was now conscious, though confused."
FCLEAR LAKE-VICTIM,INCAPACITATED
IN? NYMPH-STONE,INVENTORY \?CND7
ICALL TRAVEL-COMMANDS,UL-2,TO-CAVE-COMMAND
?CND7: CALL2 UL-MOVE,UL-2
RSTACK
?CCL3: EQUAL? ACTION,LEFT-COMMAND /?CTR9
EQUAL? ACTION,SMELLY-POOL-COMMAND \?CCL10
?CTR9: CALL2 UL-MOVE-CHECK,UL-PIT
ZERO? STACK /FALSE
EQUAL? ACTION,LEFT-COMMAND \?CCL18
PRINTI "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."
JUMP ?CND16
?CCL18: PRINTI "Holding my nose to avoid becoming sick, I moved gingerly toward the smelly pit and was soon staring into its murky depths."
?CND16: ICALL CHANGE-TRAVEL-COMMAND,HERE,LEFT-COMMAND,SMELLY-POOL-COMMAND
CALL2 UL-MOVE,UL-PIT
RSTACK
?CCL10: EQUAL? ACTION,RIGHT-COMMAND /?CTR19
EQUAL? ACTION,TREASURY-COMMAND \?CCL20
?CTR19: CALL2 UL-MOVE-CHECK,UL-TREASURY
ZERO? STACK /FALSE
FSET? UL-TREASURY,SEEN /?CCL28
PRINTI "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."
JUMP ?CND26
?CCL28: PRINTI "Again, I entered the treasury "
IN? NYMPH-STONE,UL-TREASURY \?CCL31
PRINTI " and found myself facing the blue amulet."
JUMP ?CND26
?CCL31: PRINTI " and stared at the empty pedestal from which I had taken the blue amulet."
?CND26: ICALL CHANGE-TRAVEL-COMMAND,HERE,RIGHT-COMMAND,TREASURY-COMMAND
CALL2 UL-MOVE,UL-TREASURY
RSTACK
?CCL20: EQUAL? ACTION,PROCEED-COMMAND \FALSE
ICALL1 REMOVE-TRAVEL-COMMAND
PRINTI "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."
RTRUE
.FUNCT ANONF-196:ANY:0:0
EQUAL? ACTION,PICK-UP-COMMAND \?CCL3
ICALL2 UPDATE-REMOVE,ACTION-OBJECT
FSET HERE,SCOUTED
PRINTI "The cover was quite heavy, but I did manage to move it aside, revealing a dark pool of water, about three feet across."
SET 'CURRENT-GRAPHIC,FALSE-VALUE
ICALL GRAPHIC,G-UNDERLAND-GRATE,G-UNDERLAND-PIT,BOTTOM-RIGHT
ICALL ADD-TRAVEL-COMMAND,HERE,DIVE-COMMAND
RTRUE
?CCL3: EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL UPDATE-FSET,ACTION-OBJECT,DONT-EXAMINE
PRINTI "The cover itself was made of stone, and appeared quite heavy."
RTRUE
.FUNCT ANONF-197:ANY:0:0
IN? UL-2-PIT-GRATE,HERE \?CCL3
CALL2 GRAPHIC,G-UNDERLAND-GRATE
RSTACK
?CCL3: CALL GRAPHIC,G-UNDERLAND-GRATE,G-UNDERLAND-PIT,BOTTOM-RIGHT
RSTACK
.FUNCT ANONF-198:ANY:0:0
EQUAL? ACTION,BACK-COMMAND \?CCL3
CALL QSET?,HERE,SEEN
ZERO? STACK /?CND4
ICALL REMOVE-TRAVEL-COMMAND,UL-2,NARROW-PATH-COMMAND
?CND4: CALL2 UL-MOVE-CHECK,UL-2
ZERO? STACK /FALSE
PRINTI "I could discern no purpose to this place, so I returned to the chamber outside."
CALL2 UL-MOVE,UL-2
RSTACK
?CCL3: EQUAL? ACTION,DROP-COMMAND \?CCL10
CALL1 UL-PIT-DROP
RSTACK
?CCL10: EQUAL? ACTION,DIVE-COMMAND \FALSE
ICALL1 REMOVE-TRAVEL-COMMAND
PRINT NARROW-POOL
RTRUE
.FUNCT UL-PIT-DROP:ANY:0:0
FSET? HERE,SCOUTED \FALSE
INC 'UL-DROPPED
ICALL UPDATE-MOVE,ACTION-OBJECT,UL-PIT-BOTTOM
ICALL ADD-TRAVEL-COMMAND,UL-2,NARROW-PATH-COMMAND
PRINTI "I dropped the "
ICALL2 WPRINTD,ACTION-OBJECT
PRINTI " into the pool, where it sank slowly into the dark waters and out of sight."
RTRUE
.FUNCT ANONF-199:ANY:0:0
EQUAL? ACTION,PICK-UP-COMMAND \?CCL3
ICALL2 UPDATE-REMOVE,ACTION-OBJECT
FSET HERE,SCOUTED
PRINTI "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."
SET 'CURRENT-GRAPHIC,FALSE-VALUE
ICALL GRAPHIC,G-UNDERLAND-GRATE,G-UNDERLAND-PIT,BOTTOM-RIGHT
ICALL ADD-TRAVEL-COMMAND,HERE,DIVE-COMMAND
RTRUE
?CCL3: EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL UPDATE-FSET,ACTION-OBJECT,DONT-EXAMINE
PRINTI "The cover itself was made of stone, and appeared quite heavy."
RTRUE
.FUNCT ANONF-200:ANY:0:0
IN? UL-TREASURY-PIT-GRATE,HERE \?CCL3
CALL2 GRAPHIC,G-UNDERLAND-GRATE
RSTACK
?CCL3: CALL GRAPHIC,G-UNDERLAND-GRATE,G-UNDERLAND-PIT,BOTTOM-RIGHT
RSTACK
.FUNCT ANONF-201:ANY:0:0
EQUAL? ACTION,BACK-COMMAND \?CCL3
CALL2 UL-MOVE-CHECK,UL-TREASURY
ZERO? STACK /FALSE
PRINTI "There was little point of staying here longer, so I returned to the treasury."
CALL2 UL-MOVE,UL-TREASURY
RSTACK
?CCL3: EQUAL? ACTION,JUNCTION-COMMAND \?CCL8
IN? NYMPH-STONE,INVENTORY \?CCL11
CALL1 TRY-TO-LEAVE-TREASURY
RSTACK
?CCL11: PRINTI "Having nothing further to do here, I passed through the treasury and back out into the hallway beyond."
CALL2 UL-MOVE,UL-JCN
RSTACK
?CCL8: EQUAL? ACTION,DROP-COMMAND \?CCL13
IN? UL-TREASURY-PIT-GRATE,HERE /?CCL13
EQUAL? ACTION-OBJECT,NYMPH-STONE \?CCL13
FSET? UL-TREASURY,TRAPPED \?CCL19
PRINTI "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."
JUMP ?CND17
?CCL19: PRINTI "On a hunch, I dropped the amulet into the pool and watched it sink rapidly into the dark waters."
?CND17: CALL UPDATE-MOVE,NYMPH-STONE,UL-PIT-BOTTOM
RSTACK
?CCL13: EQUAL? ACTION,DIVE-COMMAND \FALSE
ICALL1 REMOVE-TRAVEL-COMMAND
PRINT NARROW-POOL
RTRUE
.FUNCT ANONF-202:ANY:0:0
EQUAL? HERE,UL-PIT-BOTTOM \FALSE
CRLF
CRLF
PRINTI "Having spent as much time underwater as was possible, I swam back to the surface to catch my breath."
CALL2 MOVE-TO,UL-PIT
RSTACK
.FUNCT ANONF-203:ANY:0:0
FSET HERE,SEEN
ICALL QUEUE,I-PIT-SURFACE,3
IN? NYMPH-STONE,HERE \?CCL3
CALL GRAPHIC,G-UNDERLAND-PIT-BOTTOM,G-UNDERLAND-PIT-BOTTOM-STONE,BOTTOM-LEFT
RSTACK
?CCL3: CALL2 GRAPHIC,G-UNDERLAND-PIT-BOTTOM
RSTACK
.FUNCT ANONF-204:ANY:0:0
EQUAL? ACTION,SURFACE-COMMAND \?CCL3
IN? NYMPH-STONE,INVENTORY \?CCL6
PRINTI "In just a few moments, I had returned to the surface."
JUMP ?CND4
?CCL6: PRINTI "With nothing to show for my diving exploration, I returned to the surface."
?CND4: CALL2 MOVE-TO,UL-PIT
RSTACK
?CCL3: EQUAL? ACTION,PICK-UP-COMMAND \FALSE
PRINTI "Reaching down through the muck, I grabbed onto the "
ICALL2 WPRINTD,ACTION-OBJECT
PRINTI " and held it firmly in my hand."
SET 'CURRENT-GRAPHIC,FALSE-VALUE
ICALL2 GRAPHIC,G-UNDERLAND-PIT-BOTTOM
CALL UPDATE-MOVE,ACTION-OBJECT,INVENTORY
RSTACK