-
Notifications
You must be signed in to change notification settings - Fork 12
/
Copy pathlavos.zap
891 lines (822 loc) · 39.1 KB
/
lavos.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
.SEGMENT "LAVOS"
.FUNCT ANONF-57:ANY:0:0
EQUAL? ACTION,BACKGROUND-COMMAND \?CCL3
PRINTI "Our story began nearly five years ago, at the time of our first crop failures. These things happen, of course, once in a while, but by the third year, we knew something was badly amiss. And then, in the fourth year of our despair, the water, too, failed us; not all at once, mind you, but by the fifth year, there were only a few folks whose water was not foul-tasting and disease-ridden. Many moved away, into the north country, but in fact neither had our neighbors been spared the spreading pestilence."
CRLF
CRLF
PRINTI "Hope was fading as the summer of that fateful year approached, and, with no respite in sight, it was decided to seek aid beyond our borders, from a powerful Wizard who was said to live atop the distant Sunrise Mountain. And so a party of four departed, headed by the elder blacksmith, Garlimon; and they were never seen again."
CRLF
CRLF
PRINTI "But as winter reached its icy hand toward us, another group was formed with the same slim hope of finding answers to our desperate situation. Bergon, the carpenter, was chosen to lead the party; and Bergon chose Praxix, the local Wizard, and Esher, a learned (but irritable) physician, to join him. And the group chose me, "
ICALL1 WPRINTTAG
PRINTI ", apprentice food merchant, to watch the supplies and to keep a diary of our journey, which, by the fortunes of the good earth, I recount for you now."
RTRUE
?CCL3: EQUAL? ACTION,START-COMMAND \FALSE
RANDOM 64
SUB STACK,1
ADD STACK,64 >ASTRIX-MAZE-PATH
ICALL1 CLEAR-SUBGROUP
PRINTI "Our journey started on a day bright and clear, and we made quick progress down the gently winding road that leads south, past the boundaries of our valley."
CRLF
CRLF
PRINTI "The air was warm, but the cool north wind at our backs reminded us that winter was near. It seemed that we had only just started out when we arrived at the outpost town of Lavos, shortly past noon."
CRLF
CRLF
ICALL2 GRAPHIC,G-LAVOS
PRINTI "So this was Lavos! We stood in front of an old wooden storefront, that of a provisioner. Farther down the road, the Lands End tavern beckoned us with the promise of food and drink."
CALL2 MOVE-TO,LAVOS
RSTACK
.FUNCT ANONF-58:ANY:0:0
EQUAL? ACTION,GET-ADVICE-COMMAND \?CCL3
ICALL UPDATE-FCLEAR,HERE,ADVISE
PRINTI """I suppose,"" Bergon said with a smile, ""that we've come to our first decision. How are we set for supplies?"""
CRLF
CRLF
PRINTI """I'm sure we're well enough supplied,"" I said meekly. ""But I wouldn't mind looking around the shop, if you wouldn't mind taking the time."
CRLF
CRLF
PRINTI """Let's not disappoint "
ICALL1 WPRINTTAG
PRINTI ","" Praxix said kindly. ""And who knows - maybe we'll find something important there after all."""
RTRUE
?CCL3: EQUAL? ACTION,PROCEED-COMMAND \?CCL5
FSET? LANDS-END,SEEN /?CCL8
PRINTI "We walked down the dusty road, stopping at the door of the tavern. As we stood there, an unsavory looking man, approaching from the far end of town, brushed past us and entered."
JUMP ?CND6
?CCL8: FSET? LANDS-END-TAVERN,SEEN /?CCL10
PRINTI "Once again, we walked down that dusty road and stood at the door of the tavern. Loud conversation could be heard within, and we were sorely tempted to see what lay inside."
?CND6: CALL2 MOVE-TO,LANDS-END
RSTACK
?CCL10: PRINTI "We had seen town, such as it was, and it was now time to move on. "
ICALL2 GRAPHIC,G-FORK
ICALL MOVE-TO,NEWHALL-PASS,LEAVE-LAVOS
RTRUE
?CCL5: EQUAL? ACTION,ENTER-COMMAND \FALSE
ICALL UPDATE-FCLEAR,HERE,ADVISE
PRINTI "We entered the provisioner's shop, and introduced ourselves to the proprietor, a portly man named Webba. ""Look around, look around!"" he said, proudly, though (if the truth be told) there was not much to be proud of. Still, this would be our last chance to provision ourselves before moving south to whatever lay beyond."
CRLF
CRLF
ICALL2 GRAPHIC,G-WEBBA
CALL MOVE-TO,WEBBAS,STR?391
RSTACK
.FUNCT ANONF-59:ANY:0:0
IN? WEBBA-MAP,INVENTORY \?CND1
FSET WEBBA-MAP,DONT-EXAMINE
?CND1: PUTP HERE,P?TEMP,0
RTRUE
.FUNCT WEBBAS-F:ANY:0:0
EQUAL? ACTION,SELL-COMMAND \?CCL3
ICALL UPDATE-FSET,HERE,DONT-DROP
EQUAL? ACTION-OBJECT,WEBBA-MAP \?CCL6
PRINTI """No, you just keep the map,"" Webba said, returning the money we had paid for it. ""If you're going on from here, you'll be needing whatever help you can get!"""
RTRUE
?CCL6: PRINTI """Oh, dear me, no!"" was Webba's reply when we tried to sell him the "
ICALL2 WPRINTD,ACTION-OBJECT
PRINTI ". ""I'm sure I've got a whole shelf of them out back somewhere."""
RTRUE
?CCL3: EQUAL? ACTION,REPLY-COMMAND \?CCL8
ICALL2 WPRINTD,ACTOR
PRINTI " started to tell of our quest, and Webba shook his head, resigned to having lost a good customer. ""This map will not help you. I sell this item to 'tourists' - those curious enough to visit, but not enough to go on!"" He laughed heartily, and told of the peculiar man who offered him the map in exchange for a few worthless trinkets. Of course, the map appeared equally worthless, though he thought it amusing, especially the faintly flickering, oddly shaped runes that appeared on it. He ran his finger across the map, as if to show us the originals, but none were even vaguely flickering, and he soon gave up."
CRLF
CRLF
FSET WEBBA-MAP,USED-UP
PRINTI """The old man looked harmless enough,"" the shopkeeper continued, ""so I bought it. But the map seemed awfully plain, if you know what I mean, so I added some runes of my own - thought it looked more official that way! But, if I were trying to find my way somewhere, I would sooner trust my brother's blind mule than this map!"""
CALL1 END-OPTION
RSTACK
?CCL8: EQUAL? ACTION,IGNORE-COMMAND \?CCL10
PRINTI "Fearing to expose our quest, "
ICALL2 WPRINTD,ACTOR
PRINTI " shrugged off the question. Webba didn't pursue the matter, but he now looked at us with grave concern."
CALL1 END-OPTION
RSTACK
?CCL10: EQUAL? ACTION,LOOK-AROUND-COMMAND \?CCL12
ICALL UPDATE-FSET,HERE,DONT-SCOUT
FSET HERE,SCOUTED
PRINTI """I think I'll just have a look around,"" "
ICALL2 WPRINTD,ACTOR
PRINTI " said, as he wandered off to explore the shop. ""Perhaps there's something more here than meets the eye."""
PUTP HERE,P?TEMP,ACTOR
ICALL MAKE-BUSY,ACTOR,GONE-COMMAND
RTRUE
?CCL12: EQUAL? ACTION,EXIT-COMMAND \FALSE
ICALL TRAVEL-COMMANDS,LAVOS,PROCEED-COMMAND
CALL MOVE-TO,LAVOS,STR?392
RSTACK
.FUNCT ANONF-61:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \?CCL3
ICALL UPDATE-FSET,ACTION-OBJECT,DONT-EXAMINE
ICALL2 WPRINTD,ACTOR
PRINTI ", who was by no means an expert on fine foods, browsed through the food selection, though he could not find anything that he particularly liked."
CRLF
CRLF
PRINTI """Perhaps we should buy some of these things,"" he said, turning in my general direction. I agreed to take a look around, though we were not short of supplies."
RTRUE
?CCL3: EQUAL? ACTION,BUY-COMMAND \FALSE
PRINTI "I selected the most appetizing of the dry foodstuffs and placed them in my pack; at least we wouldn't be worrying about food for a few weeks, which was longer than we hoped to be gone."
CALL2 UPDATE-MOVE,WEBBA-FOOD
RSTACK
.FUNCT ANONF-62:ANY:0:0
FSET HERE,SEEN
FSET? WEBBAS,SEEN \FALSE
CALL REMOVE-TRAVEL-COMMAND,HERE,BACK-COMMAND
RSTACK
.FUNCT ANONF-63:ANY:0:0
EQUAL? ACTION,ENTER-COMMAND \?CCL3
ICALL1 REMOVE-TRAVEL-COMMAND
CALL MOVE-TO,LANDS-END-TAVERN,STR?394
RSTACK
?CCL3: EQUAL? ACTION,PROCEED-COMMAND \?CCL5
CALL MOVE-TO,NEWHALL-PASS,LEAVE-LAVOS
RSTACK
?CCL5: EQUAL? ACTION,BACK-COMMAND \FALSE
PRINTI """So, this is all there is,"" Esher said, shaking his head scornfully. ""Perhaps we were hasty in passing over the provisioner's shop."""
CRLF
CRLF
PRINTI """It could not hurt to check it out,"" Bergon replied, and we were soon retracing our steps to the provisioner's door."
ICALL1 REMOVE-TRAVEL-COMMAND
CALL2 MOVE-TO,LAVOS
RSTACK
.FUNCT ANONF-64:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL UPDATE-FSET,ACTION-OBJECT,DONT-EXAMINE
GETP HERE,P?TEMP
ZERO? STACK /?CCL6
FSET ACTION-OBJECT,EXAMINED
PRINTI "Praxix motioned toward a particularly dark corner of the tavern, where Esher was now conversing with someone whose face was obscured in shadow."
CRLF
CRLF
PRINTI """Perhaps we shall learn something of value from our friend Esher,"" he said."
RTRUE
?CCL6: FSET HERE,INCAPACITATED
PRINTI "Praxix slowly scanned the faces of the customers, but none returned his gaze. Indeed, although everyone here appeared to know who we were, none would acknowledge our presence."
CRLF
CRLF
PRINTI "The almost palpable tension inside the tavern made me ill at ease, and I believe Praxix felt this as well, though he was not nearly as alarmed as I. ""We have barely left home and already you see danger everywhere you turn,"" he said, reassuringly. ""Have a"
FSET? LANDS-END-DRINKS,SEEN \?CND7
PRINTI "nother"
?CND7: PRINTI " drink! Do not despair!"""
RTRUE
.FUNCT ANONF-65:ANY:0:0
EQUAL? ACTION,BUY-COMMAND \FALSE
FSET? LANDS-END-DRINKS,SEEN \?CCL6
REMOVE HYE-DRINKS
PRINTI "I suggested that another drink might not hurt, but Bergon suggested that I had had quite enough."
CRLF
CRLF
PRINTI """We wouldn't want you walking over any cliffs, or falling into chasms,"" he said."
FSET? HERE,INCAPACITATED \?CND7
CRLF
CRLF
PRINTI "The Wizard looked over his shoulder toward me and shrugged, then emptied his tankard of ale in a single gulp."
?CND7: CALL2 UPDATE-MOVE,LANDS-END-DRINKS
RSTACK
?CCL6: FSET LANDS-END-DRINKS,SEEN
PRINTI "Stepping up to the bar, we ordered ourselves a few tankards of ale. Though bitter by our standards, it was nevertheless refreshing, and we passed some time there with idle talk about the journey that was to come."
RTRUE
.FUNCT ANONF-66:ANY:0:0
PUTP HERE,P?TEMP,0
RTRUE
.FUNCT ANONF-67:ANY:0:0
EQUAL? ACTION,LOOK-AROUND-COMMAND \?CCL3
PRINTI "It took Esher just a few moments to become restless, and he soon slipped away from us to mingle with the crowd."
CRLF
CRLF
PRINTI """Who knows?"" he said, all but disappearing into the tavern's smoke-filled air, ""I may even learn something useful."""
FSET? LANDS-END-PEOPLE,EXAMINED /?CND4
ICALL UPDATE-MOVE,LANDS-END-PEOPLE,HERE
?CND4: PUTP HERE,P?TEMP,ACTOR
ICALL MAKE-BUSY,ACTOR,GONE-COMMAND
RTRUE
?CCL3: EQUAL? ACTION,EXIT-COMMAND \?CCL7
GETP HERE,P?TEMP
ZERO? STACK /?CCL10
CALL QSET?,MINAR,SEEN
ZERO? STACK \?CCL10
ICALL2 GRAPHIC,G-MINAR
PRINTI "On our way out, Esher rejoined us, telling of an intriguing conversation he had just had with one of the locals. Before he could go on, the unsavory man we had seen before stepped outside and pushed his way into our midst. Bergon, flushed with anger, grabbed his sword, but Esher held him back. ""This is the man I was telling you about,"" he said with no particular enthusiasm."
CRLF
CRLF
ICALL1 CLEAR-BUSY
PRINT MINAR-INTRO
ICALL OPTION,LEADER,ACCEPT-COMMAND,DECLINE-COMMAND,GET-ADVICE-COMMAND
FSET HERE,ADVISE
SET 'UPDATE-FLAG,TRUE-VALUE
RTRUE
?CCL10: PRINTI "It was Bergon's opinion that we had tarried here long enough, so we left the tavern, returning to the road"
FSET? LANDS-END-DRINKS,SEEN \?CND13
PRINTI " refreshed, and, if I might say, with a good, warm feeling in our bellies"
?CND13: PRINTC 46
CALL2 MOVE-TO,LANDS-END
RSTACK
?CCL7: EQUAL? ACTION,ACCEPT-COMMAND \?CCL16
ICALL2 WPRINTD,LEADER
PRINTI " appeared troubled, but agreed to Minar's request. ""It is against the wishes of our Elders, yet we know little of the world that lies beyond Lavos. We shall take the stranger!"""
ICALL2 PARTY-ADD,MINAR
ICALL2 END-OPTION,FALSE-VALUE
CALL2 MOVE-TO,LANDS-END
RSTACK
?CCL16: EQUAL? ACTION,DECLINE-COMMAND \?CCL18
ICALL2 WPRINTD,LEADER
PRINTI " thought for a moment, then spoke. ""Wiser men than ourselves have set our number at four. Though our perils be unknown to us, we must not lightly bend the wishes of those who have set us upon our way."" And with that, he dismissed Minar, who slinked back into the tavern."
FSET MINAR,SEEN
ICALL2 END-OPTION,FALSE-VALUE
CALL2 MOVE-TO,LANDS-END
RSTACK
?CCL18: EQUAL? ACTION,GET-ADVICE-COMMAND \FALSE
EQUAL? PARTY-MODE,OPTION-MODE \FALSE
FCLEAR HERE,ADVISE
PRINTI "None spoke, yet all frowned, if only a little, at the prospect of bringing this stranger into our group."
CALL OPTION,LEADER,ACCEPT-COMMAND,DECLINE-COMMAND
RSTACK
.FUNCT ANONF-68:ANY:0:0
FCLEAR WEBBA-MAP,DONT-EXAMINE
CALL ADD-TRAVEL-COMMAND,PRAXIX,TELL-LEGEND-COMMAND
RSTACK
.FUNCT ANONF-69:ANY:0:0
FSET WEBBA-MAP,DONT-EXAMINE
RTRUE
.FUNCT ANONF-70:ANY:0:0
EQUAL? ACTION,GET-ADVICE-COMMAND \?CCL3
ICALL UPDATE-FCLEAR,HERE,ADVISE
FSET? HERE,SCOUTED \?CCL6
PRINTI "Having considered Minar's report, Bergon asked each of us for our advice. Esher, Minar, and I favored taking the righthand path and avoiding the bandits altogether. Praxix, however, was intensely curious as to the meaning of the bloodstained clothing, feeling that it might relate to the mystery surrounding the disappearance of Garlimon's party. Bergon listened carefully, though he kept his thoughts to himself."
RTRUE
?CCL6: FSET? MINAR,IN-PARTY \?CCL8
PRINTI "Bergon asked for our advice, but only Minar spoke. ""If our goal is the Sunrise Mountain,"" he said, ""we should have better luck keeping to the left."""
RTRUE
?CCL8: PRINTI "It felt like hours had passed while we stood at the fork, looking this way and that, not knowing which would lead more quickly to our destination. Perhaps it would not matter, yet we feared that time was critial and that our decision here would be crucial to our success."
RTRUE
?CCL3: EQUAL? ACTION,SCOUT-COMMAND \?CCL10
ICALL UPDATE-FSET,HERE,DONT-SCOUT
FSET HERE,SCOUTED
EQUAL? ACTOR,ESHER \?CCL13
ICALL2 WPRINTD,ACTOR
PRINTI " grudgingly agreed to run on ahead and check out both paths; when he arrived back, breathless, he was reticent."
CRLF
CRLF
PRINTI """Well,"" Bergon prompted, expecting some sort of information to be forthcoming."
CRLF
CRLF
PRINTI """How should I know?"" Esher replied, ""I've never been here before, and they just look like paths to me. If it's advice you're after, I say let's go left - there's less climbing that way."""
CALL UPDATE-FCLEAR,HERE,ADVISE
RSTACK
?CCL13: PRINTI "Bergon asked Minar to scout out the paths before us, but Minar, sensing an insult, was initially disinclined to do so."
CRLF
CRLF
RANDOM 2 >FORK-BANDITS
PRINTI """I have no need to scout these paths,"" he said harshly, ""for I have travelled them many times. If we seek the Sunrise Mountain, our best path is to the left."""
CRLF
CRLF
PRINTI "But then, Minar's voice softened. ""However, these are dangerous times, and we may have been followed."" And with that, he quietly disappeared down the lefthand path. When he returned, he shook his head knowingly."
CRLF
CRLF
SET 'FORK-BANDITS,1
PRINTI """It is as I feared. Not long after I left, I discovered this."" He held up a shredded piece of clothing, similar to our own, stained heavily with dried blood. ""There is more - there are fresh tracks in the ground - three or four, I would say. No doubt they are bandits, and they lie in wait for us. Also, sunset is near. We must hope to do better down the other path."""
FSET HERE,SCOUTED
RTRUE
?CCL10: EQUAL? ACTION,LEFT-COMMAND \?CCL15
EQUAL? FORK-BANDITS,1 \?CCL18
FSET? HERE,SCOUTED \?CCL18
FSET? MINAR,IN-PARTY \?CCL18
PRINTI "Although Minar had cautioned us against taking this route, Bergon chose to "
FSET? HERE,ADVISE /?CND22
PRINTI "take Praxix' advice and "
?CND22: PRINTI "proceed "
JUMP ?CND16
?CCL18: PRINTI "We chose to remain north of the mountains, following the path which led"
?CND16: CALL MOVE-TO,CANYON-COUNTRY,STR?398
RSTACK
?CCL15: EQUAL? ACTION,RIGHT-COMMAND \FALSE
EQUAL? FORK-BANDITS,2 \?CCL28
PRINTI "Although Minar had cautioned us against taking this route, Bergon chose to proceed southward, following a steeply winding path that led down through a narrow canyon."
JUMP ?CND26
?CCL28: PRINTI "Choosing the southern route, we descended through a steeply winding canyon."
?CND26: CALL MOVE-TO,SYLMAR,STR?399
RSTACK
.FUNCT ANONF-71:ANY:0:0
EQUAL? ACTION,SCENE-START-COMMAND \?CCL3
ICALL UPDATE-MOVE,BANDITS,HERE
CRLF
CRLF
PRINTI "Not a minute after locating a campsite, we were suddenly attacked by a small gang of bandits."
CRLF
CRLF
SET 'COMBAT-ROUND,-1
CALL1 SURPRISE-COMBAT
RSTACK
?CCL3: EQUAL? ACTION,SCENE-END-COMMAND \?CCL5
ICALL2 UPDATE-REMOVE,BANDITS
GETP HERE,P?GRAPHIC
ICALL2 GRAPHIC,STACK
ZERO? BANDITS-SPELL /?CND6
CRLF
CRLF
PRINTI "It was about this time that Praxix was ready to cast his """
ICALL2 WPRINTD,BANDITS-SPELL
PRINTI """ spell. But looking around for the first time since he had started, he came to the belated realization that it was no longer necessary."
FSET? ESHER,IN-PARTY \?CND8
CRLF
CRLF
PRINTI """Would that we had a medal for valor,"" Esher said, patting Praxix on the back and pouring on the sarcasm. ""I feel safer in battle just knowing that you are with us."""
?CND8: ICALL1 CLEAR-BUSY
?CND6: FSET? ESHER,IN-PARTY /?CCL12
CRLF
CRLF
PRINTI "The battle was now over, and we would have to go on without the services of our physician. Praxix performed a brief ceremony, after which we laid our friend to rest in a deep grave in the shade of a sycamore tree, and marked the spot with a rock cairn."
JUMP ?CND10
?CCL12: ICALL2 MAKE-UNBUSY,MINAR
?CND10: CRLF
CRLF
PRINTI "It was now late, so we set up camp, taking turns on guard through the night. Later, I dreamed that we stood on a high precipice, far above the clouds; storms surrounded us, and violent gusts of wind nearly swept us off our feet and down into a dark abyss. And then, the wind changed, and a gentle breeze blew, and we were carried off that precipice. But we were not afraid as we glided and soared through the ocean of still, clear air."
CRLF
CRLF
PRINTI "When morning came, misty and still, we packed silently and prepared to move onward. But the dream stayed with me, and in later days I would think of it often, sensing in it a foreshadowing of things to come - but when, or in what manner, I could not know."
RTRUE
?CCL5: EQUAL? ACTION,COMBAT-RESULT-COMMAND \?CCL14
ZERO? COMBAT-ROUND \?CCL17
EQUAL? FORK-BANDITS,1,2 \?CCL20
PRINTI "Having been warned of our danger, we reacted quickly and surely. I had never been in battle before, but it was clear that Bergon was our strongest fighter, wielding a heavy broadsword. Esher, surprisingly, was also a good fighter, and he easily handled the sword thrusts of his opponent. Praxix and I, however, were new to this sort of thing, and were satisfied with merely staving off injury."
RTRUE
?CCL20: PRINTI "Caught completely unawares, w"
ICALL2 HINT,HINT-BANDITS
ICALL1 BANDITS-KILL-ESHER
RTRUE
?CCL17: FSET? ESHER,IN-PARTY \?CND21
PRINTI "Just then, a previously unseen attacker approached Esher from behind with a large club. Not a moment before he"
FSET? HERE,TRIED \?CCL25
PRINTI " would have been hit, a sword ripped through the attacker's chest. Placing his foot on the attacker's back, Minar kicked the mortally wounded attacker to the ground and smiled. Clearly, Minar had done this sort of thing before, and what's more, he seemed to enjoy it. But the grotesque look on his victim's face filled me with dread and revulsion."
JUMP ?CND23
?CCL25: PRINTI " was hit, I screamed a warning, but it was too late. W"
ICALL2 HINT,HINT-BANDITS-FLANK
ICALL1 BANDITS-KILL-ESHER
?CND23: CRLF
CRLF
?CND21: FSET? ESHER,IN-PARTY /?CCL28
PRINTI "Our fortunes were finally improving"
JUMP ?CND26
?CCL28: PRINTI "The battle was "
ZERO? FORK-BANDITS \?CND29
PRINTI "finally "
?CND29: PRINTI "going well"
?CND26: PRINTI "; Bergon"
FSET? ESHER,IN-PARTY \?CND31
PRINTI ", Esher,"
?CND31: FSET? MINAR,IN-PARTY \?CND33
PRINTI " and Minar"
?CND33: FSET? MINAR,IN-PARTY /?CTR36
FSET? ESHER,IN-PARTY \?CCL37
?CTR36: PRINTI " were"
JUMP ?CND35
?CCL37: PRINTI " was"
?CND35: PRINTI " making some deadly hits with "
FSET? MINAR,IN-PARTY /?CTR41
FSET? ESHER,IN-PARTY \?CCL42
?CTR41: PRINTI "their weapons"
JUMP ?CND40
?CCL42: PRINTI "his sword"
?CND40: PRINTI ", and the bandits appeared weaker in their resolve to fight, taking ever more to the defensive."
RTRUE
?CCL14: EQUAL? ACTION,CAST-COMMAND \?CCL46
SET 'BANDITS-SPELL,ACTION-OBJECT
PRINTI "In the midst of the fighting, Praxix started preparing a spell of some sort. It wasn't easy, though, and it appeared we would not be seeing the spell's effects for some time."
ICALL2 MAKE-BUSY,PRAXIX
ICALL1 NEW-DEFAULT
RTRUE
?CCL46: EQUAL? ACTION,COMBAT-COMMAND \?CCL48
FSET? BANDITS-FIGHT,SEEN /?CCL48
FSET? MINAR,IN-PARTY /?CCL48
ZERO? COMBAT-ROUND \?CCL48
FSET BANDITS-FIGHT,SEEN
PRINTI "As we prepared to continue the fight, it was clear that something was wrong in the ranks of the bandits; one dropped dead in his tracks before we had commenced."
CRLF
CRLF
GETP BANDITS,P?STATUS
MUL STACK,3
DIV STACK,4
PUTP BANDITS,P?STATUS,STACK
RFALSE
?CCL48: EQUAL? ACTION,FLANK-COMMAND \?CCL54
EQUAL? ACTOR,MINAR \?CCL57
ICALL MAKE-BUSY,MINAR,GONE-COMMAND
FSET HERE,TRIED
PRINTI "We almost didn't notice that Minar had quietly slipped away, snaking his way through the brush to take up a position behind that of the bandits."
JUMP ?CND55
?CCL57: ICALL CHANGE-CIT,MINAR,1,NUL-COMMAND
ICALL2 WPRINTD,ACTOR
PRINTI " thought there would be some advantage to sneaking around the bandits' flank, but he was too large a man and too involved in the battle itself to do this without attracting notice."
?CND55: ICALL CHANGE-CIT,BERGON,1,NUL-COMMAND
CALL1 NEW-DEFAULT
RSTACK
?CCL54: EQUAL? ACTION,STRENGTH-COMMAND \?CCL59
FSET? BANDITS-FIGHT,SEEN \?CCL59
ICALL2 ADD-PARTY-OFFENSE,40
ICALL2 ADD-PARTY-DEFENSE,10
RFALSE
?CCL59: EQUAL? ACTION,ACCEPT-COMMAND \?CCL63
ICALL2 WPRINTD,LEADER
PRINTI ", still troubled, agreed. "
FSET? MINAR,SEEN \?CND64
PRINTI """It seems we cannot be rid of you, so you may as well join us."" "
?CND64: PRINTI "Praxix appeared uneasy with Bergon's decision, but, as for me, I was happy to take any help we were offered."
ICALL TRAVEL-COMMANDS,ESHER,EXAMINE-COMMAND
ICALL1 END-OPTION
ICALL2 END-COMBAT,FALSE-VALUE
ICALL2 PARTY-ADD,MINAR
RTRUE
?CCL63: EQUAL? ACTION,RETREAT-COMMAND \?CCL67
ICALL2 REMOVE-PARTY-COMMAND,RETREAT-COMMAND
PRINTI "Any thought of retreating from these bandits would soon be forgotten, as it became clear that we were far stronger than they."
RTRUE
?CCL67: EQUAL? ACTION,PARLEY-COMMAND \?CCL69
ICALL2 REMOVE-PARTY-COMMAND,PARLEY-COMMAND
ICALL CHANGE-CIT,BERGON,1,NUL-COMMAND
FSET? MINAR,IN-PARTY \?CND70
ICALL CHANGE-CIT,MINAR,1,NUL-COMMAND
?CND70: PRINTI "Hoping to avoid a bloody battle, we attempted to parley with the bandits, but they declined with words hardly fit to print. The attempt, however, cost us precious time in battle and made it virtually impossible for us to make any surprise moves."
RTRUE
?CCL69: EQUAL? ACTION,GET-ADVICE-COMMAND \?CCL73
ICALL UPDATE-FCLEAR,HERE,ADVISE
PRINTI "The group, grateful for Minar's help, was quiet, yet none came out against taking in this inscrutable stranger."
CALL OPTION,LEADER,ACCEPT-COMMAND,DECLINE-COMMAND
RSTACK
?CCL73: EQUAL? ACTION,DECLINE-COMMAND \FALSE
ICALL2 WPRINTD,LEADER
PRINTI " was firm. ""We are thankful for your help, but we must "
FSET? MINAR,SEEN \?CND76
PRINTI "again "
?CND76: PRINTI "refuse your offer. Good luck be with you!"" And, "
FSET? MINAR,SEEN \?CCL80
PRINTI "as before"
JUMP ?CND78
?CCL80: PRINTI "without further ado"
?CND78: PRINTI ", Minar left, disappearing into the shadows."
ICALL2 HINT,HINT-MINAR
ICALL1 END-OPTION
ICALL2 END-COMBAT,FALSE-VALUE
RTRUE
.FUNCT BANDITS-KILL-ESHER:ANY:0:0
ICALL2 PARTY-REMOVE,ESHER
PRINTI "e watched in horror as Esher was felled by a single blow of his attacker's club. The rest of our group, weapons drawn, began to take the initiative and scored some deadly hits of our own."
RTRUE
.FUNCT ANONF-72:ANY:0:0
CRLF
PRINTI "The bandits, finding the fight more than they had bargained for, retreated out of sight."
FSET? BANDITS-FIGHT,SEEN \?CCL3
ZERO? BANDITS-SPELL /?CND4
ICALL2 UNUSE-ESSENCES,BANDITS-SPELL
SET 'BANDITS-SPELL,FALSE-VALUE
PRINTI " Praxix, seeing that there was no need for his magic, put away his pouch."
?CND4: ICALL1 CLEAR-BUSY
PRINTI " A moment later, "
FSET? MINAR,SEEN \?CCL8
PRINTI "Minar"
JUMP ?CND6
?CCL8: PRINTI "the man we had seen entering the tavern"
?CND6: PRINTI " appeared, bow in hand. ""I thought you might be needing some help,"" he said, grinning."
CRLF
CRLF
FSET? MINAR,SEEN \?CCL11
PRINTI """My previous offer stands, and this time I would advise you to accept it."" He stood there, grinning all the time, waiting for our answer."
JUMP ?CND9
?CCL11: PRINT MINAR-INTRO
?CND9: ICALL OPTION,LEADER,ACCEPT-COMMAND,DECLINE-COMMAND,GET-ADVICE-COMMAND
RTRUE
?CCL3: ICALL2 END-COMBAT,FALSE-VALUE
RTRUE
.FUNCT ANONF-73:ANY:0:0
EQUAL? FORK-BANDITS,2,0 \FALSE
SET 'OPPONENT,BANDITS
CALL SCENE,BANDITS-FIGHT,FIGHT-MODE
RSTACK
.FUNCT ANONF-74:ANY:0:0
EQUAL? ACTION,PROCEED-COMMAND \?CCL3
PRINTI "The path curved toward the east along the foothills of the mountains, and we were soon forced to choose between climbing higher or veering off and into the southern valley. But there was no choice, really, since our goal was to the east; it would be impossible to avoid the mountains, so we started our ascent."
CRLF
CRLF
PRINTI "The climb was long and arduous, and it was not until late in the second day that we reached a plateau high in the mountains. But it was dark, and little could be seen. And so we camped there under a starry sky."
CRLF
CRLF
IN? ESSENCE-FIRE,ESSENCES /?CND4
FSET? NEWHALL-PASS,SCOUTED \?CND4
IN? HINT-MINAR,HINTS /?CND4
ICALL2 HINT,HINT-NO-FIRE
?CND4: ICALL2 NEXT-DAY,2
CALL1 GATE-TO-HIGH-PLAIN
RSTACK
?CCL3: EQUAL? ACTION,SCOUT-COMMAND \?CCL10
ICALL UPDATE-FSET,HERE,DONT-SCOUT
FSET HERE,SCOUTED
ICALL1 CAIRN-SCOUT
RTRUE
?CCL10: EQUAL? ACTION,BACK-COMMAND \FALSE
ICALL1 REMOVE-TRAVEL-COMMAND
PRINTI "I suggested returning to Lavos, but the idea was immediately quashed by the group."
CRLF
CRLF
PRINTI """Our destiny lies ahead, not behind,"" Praxix said. ""Try to remember that."""
RTRUE
.FUNCT ANONF-75:ANY:0:0
EQUAL? FORK-BANDITS,1,0 \FALSE
SET 'OPPONENT,BANDITS
CALL SCENE,BANDITS-FIGHT,FIGHT-MODE
RSTACK
.FUNCT ANONF-76:ANY:0:0
EQUAL? ACTION,PROCEED-COMMAND \?CCL3
IN? ESSENCE-FIRE,ESSENCES /?CND4
FSET? NEWHALL-PASS,SCOUTED \?CND4
IN? HINT-MINAR,HINTS /?CND4
ICALL2 HINT,HINT-NO-FIRE
?CND4: CALL MOVE-TO,TUJUNGA-PATH,STR?402
RSTACK
?CCL3: EQUAL? ACTION,SCOUT-COMMAND \?CCL10
ICALL UPDATE-FSET,HERE,DONT-SCOUT
FSET HERE,SCOUTED
ICALL1 CAIRN-SCOUT
RTRUE
?CCL10: EQUAL? ACTION,BACK-COMMAND \FALSE
ICALL1 REMOVE-TRAVEL-COMMAND
FSET? ESHER,IN-PARTY \?CCL15
PRINTI "Esher, dismayed by our confrontation with the bandits,"
JUMP ?CND13
?CCL15: PRINTI "Disheartened by the loss of Esher, I"
?CND13: PRINTI " suggested backtracking toward Lavos, but the idea was quickly quashed by the others who felt that we would make good progress along the path we had chosen."
RTRUE
.FUNCT ANONF-77:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL1 CLEAR-EXBIT
ICALL2 WPRINTD,ACTOR
PRINTI " examined the bodies"
EQUAL? ACTOR,ESHER \?CCL6
PRINTI " carefully. ""They were killed with sharp objects of some kind - swords and knives, I would guess. Whatever weapons they may have carried are gone - in fact, only their cloaks remain. I'd be willing to bet that they were waylaid and robbed."""
RTRUE
?CCL6: ICALL FIND-ESSENCE,ESSENCE-FIRE,2
ICALL FIND-ESSENCE,ESSENCE-WATER,1
PRINTI ", discovering two small pouches of powders hidden within a seam of one of the cloaks that had been used as a burial shroud. ""Fire essence,"" he beamed, opening the first and holding it up for my inspection. ""Or I'm an apprentice food merchant!"" And then, examining the second pouch, he found a far smaller amount of a different powder. He dipped a finger into the powder, and touched it to his lips. ""And this would be water essence, though barely enough for a single spell. And yet, all such powders are nigh impossible to obtain these days, and much can be done with them."""
RTRUE
.FUNCT ANONF-78:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL1 UPDATE-MOVE
EQUAL? ACTOR,PRAXIX \?CCL6
PRINTI "At Bergon's request, Praxix looked over the cairn. ""The cairn was made by our people and not by the locals from Lavos,"" he said."
RTRUE
?CCL6: PRINTI """This cairn looks like one of ours,"" "
ICALL2 WPRINTD,ACTOR
PRINTI " said, looking over the mound of carefully piled rocks. ""Not at all like those we passed on the outskirts of Lavos."""
RTRUE
.FUNCT ANONF-79:ANY:0:0
FCLEAR WEBBA-MAP,DONT-EXAMINE
RTRUE
.FUNCT ANONF-80:ANY:0:0
FSET WEBBA-MAP,DONT-EXAMINE
RTRUE
.FUNCT ANONF-81:ANY:0:0
EQUAL? ACTION,SCOUT-COMMAND \?CCL3
ICALL UPDATE-FSET,HERE,DONT-SCOUT
FSET HERE,SCOUTED
ICALL2 WPRINTD,ACTOR
PRINTI " scouted out the climbing path, and reported that it wound its way out of sight, high in the mountains."
CRLF
CRLF
PRINTI """The shortest path to the Sunrise Mountain lies ahead, unless, of course, you feel the urge to explore the high country,"" he said."
RTRUE
?CCL3: EQUAL? ACTION,PROCEED-COMMAND \?CCL5
ICALL1 NEXT-DAY
CALL MOVE-TO,CANYON-GATE,STR?405
RSTACK
?CCL5: EQUAL? ACTION,CLIMB-COMMAND \FALSE
PRINTI "Opting for the high road, we started to climb into the southern mountains. The path was narrow, and frequently choked with low brush, making progress slow. By midday however, we had climbed more than half of the distance to the ridge which hung above us. It took the rest of the afternoon, but we finally arrived at the ridge. We were all tired after our day of climbing, and so we camped there for the night."
CRLF
CRLF
ICALL2 GRAPHIC,G-HIGH-PLAIN
ICALL1 NEXT-DAY
CALL MOVE-TO,HIGH-PLAIN,STR?406
RSTACK
.FUNCT CAIRN-SCOUT:ANY:0:0
EQUAL? ACTOR,MINAR \?CCL3
ICALL UPDATE-MOVE,CANYON-CAIRN,HERE
MOVE CANYON-BODIES,HERE
ICALL2 WPRINTD,ACTOR
PRINTI " was sent out to explore the area around us. What he found brought little cheer."
CRLF
CRLF
PRINTI """A rock cairn,"" he said, leading us to a shaded spot beneath a grove of stately oaks, ""I am certain this was not here last summer, when I camped in this same spot."""
CRLF
CRLF
PRINTI "Minar's words were ominous - whatever was buried here had not lain long in the earth. Fearful over what we might find, we decided to dig up whatever remains lay there. It was not long before we found what we were after - three sets of human remains, their bodies mangled and bloodied, yet covered with their own cloaks."
CRLF
CRLF
PRINTI """Garlimon's party!"" cried Bergon. ""But there are only three, not four...."""
CRLF
CRLF
PRINTI """And that is but part of the mystery,"" replied Praxix, ""Who, I wonder, took the time to bury them? Surely not the assassins that tortured and killed them."""
RTRUE
?CCL3: PRINTI "Esher took a few moments to scout out the immediate area, but nothing of interest caught his eye, excepting the few rabbits he suggested might make a nice dinner."
RTRUE
.FUNCT ANONF-82:ANY:0:0
ZERO? 2ND-PASS /FALSE
FSET? MINAR,IN-PARTY /FALSE
FSET? ESHER,IN-PARTY /FALSE
FSET? DWARF-MEETING,TRIED /FALSE
CALL2 ADD-PARTY-COMMAND,COMB-AREA-COMMAND
RSTACK
.FUNCT ANONF-83:ANY:0:0
?FCN: EQUAL? ACTION,PROCEED-COMMAND \?CCL3
CALL MOVE-TO,ANGELES-PATH,STR?407
RSTACK
?CCL3: EQUAL? ACTION,COMB-AREA-COMMAND \?CCL5
ICALL1 REMOVE-TRAVEL-COMMAND
PRINTI "We split up into two groups in search of the Dwarves' gate; Praxix and I went toward the hills, and "
EQUAL? PARTY-MAX,3 \?CCL8
PRINTI "Bergon"
JUMP ?CND6
?CCL8: PRINTI "the others"
?CND6: PRINTI " followed the canyon floor. Before long, I found that I had wandered out of sight of Praxix."
CALL OPTION,TAG,LOOK-AROUND-COMMAND,GET-HELP-COMMAND
RSTACK
?CCL5: EQUAL? ACTION,SCOUT-COMMAND \?CCL10
ICALL UPDATE-FSET,HERE,DONT-SCOUT
FSET HERE,SCOUTED
FSET HERE,SCOUTED
SET 'KIDNAPPED,ACTOR
ICALL2 PARTY-REMOVE,ACTOR
FSET? ESHER,IN-PARTY /?CND11
FSET? MINAR,IN-PARTY /?CND11
ICALL REMOVE-TRAVEL-COMMAND,HERE,PROCEED-COMMAND
?CND11: ICALL2 WPRINTD,LEADER
PRINTI " sent "
ICALL2 WPRINTD,ACTOR
PRINTI " off to scout around the area, which he did. After an hour, though, he had not returned and "
ICALL2 WPRINTD,LEADER
PRINTI " was alarmed enough to set us out searching for him. We split up into two groups; Praxix and I went toward the hills, and "
EQUAL? PARTY-MAX,3 \?CCL17
PRINTI "Bergon"
JUMP ?CND15
?CCL17: PRINTI "the others"
?CND15: PRINTI " followed the canyon floor. Before long, I found that I had wandered out of sight of Praxix."
ICALL2 MAKE-SUBGROUP,TAG
CALL OPTION,TAG,LOOK-AROUND-COMMAND,GET-HELP-COMMAND
RSTACK
?CCL10: EQUAL? ACTION,LOOK-AROUND-COMMAND \?CCL19
CALL QSET?,HERE,SEEN
ZERO? STACK /?CCL22
ICALL OPTION,TAG,GET-HELP-COMMAND,RETURN-COMMAND
PRINTI "Having found these peculiar runes, I explored further in hopes of discovering more artifacts. But my search was fruitless, and I had soon wandered back to where I had started my explorations."
RTRUE
?CCL22: ICALL2 GRAPHIC,G-GATE-RUNES
PRINTI "Ambling aimlessly along the base of a rock cliff, something scurried by in the tall brush. When I looked, nothing was there, but my eye caught some strange lettering chiselled in the stone."
CALL OPTION,TAG,LOOK-AROUND-COMMAND,GET-HELP-COMMAND,RETURN-COMMAND
RSTACK
?CCL19: EQUAL? ACTION,GET-HELP-COMMAND \?CCL24
FSET? HERE,SEEN /?CCL27
ZERO? 2ND-PASS \?CCL27
PRINTI "Unhappy at exploring alone, I called out for Praxix, who soon appeared. ""What is it?"" he asked."
CRLF
CRLF
PRINTI "When I told him of my uneasiness in exploring alone, he acted annoyed. ""Return to our camp, then,"" he said, indicating the direction. ""I shall continue to look for "
ICALL2 WPRINTD,KIDNAPPED
PRINTI "."""
CRLF
CRLF
SET 'ACTION,RETURN-COMMAND
JUMP ?FCN
?CCL27: ZERO? 2ND-PASS /?CCL32
PRINTI "Unhappy at exploring alone"
JUMP ?CND30
?CCL32: PRINTI "Eager to share my discovery with the others"
?CND30: PRINTI ", I called out, and Praxix, following the sound of my voice, appeared within moments. ""Well, what now?"" he began, but as if by instinct, his eyes slowly wandered to "
FSET? HERE,SEEN \?CCL35
PRINTI "the runes that I had discovered."
JUMP ?CND33
?CCL35: ICALL2 GRAPHIC,G-GATE-RUNES
PRINTI "some runes that I hadn't noticed before, chiselled into the stone."
?CND33: CRLF
CRLF
PRINTI "Praxix then called for "
EQUAL? PARTY-MAX,3 \?CCL38
PRINTI "Bergon"
JUMP ?CND36
?CCL38: PRINTI "the others"
?CND36: PRINTI ", who hurried to our side."
CRLF
CRLF
CALL1 CANYON-GATE-OPENS
RSTACK
?CCL24: EQUAL? ACTION,ENTER-COMMAND \?CCL40
PRINTI "Slowly and cautiously, we passed through the gate and into the darkness. As if on some malicious cue, the gate crashed shut behind us."
CRLF
CRLF
FSET? PRAXIX,LIT \?CCL43
PRINTI "We were fortunate indeed that Praxix had magically caused his staff to glow, for the cavern itself was black as pitch."
JUMP ?CND41
?CCL43: FSET? ESHER,IN-PARTY \?CND44
PRINTI """I don't suppose we have a torch anywhere,"" said Esher, knowing fully well that we didn't. "
?CND44: PRINTI "It was dark as pitch, the outline of the gate as invisible now as it had been earlier."
?CND41: CALL2 MOVE-TO,BERN-I-LAV
RSTACK
?CCL40: EQUAL? ACTION,RETURN-COMMAND \FALSE
PRINTI "Filled with apprehension, I returned to our camp. Before long the others had also returned; there was no trace of "
ZERO? KIDNAPPED /?CCL50
ICALL2 WPRINTD,KIDNAPPED
PRINTC 33
JUMP ?CND48
?CCL50: PRINTI "a gate."
?CND48: FSET? HERE,SEEN /?CND51
CRLF
CRLF
PRINTI """We must face the fact that "
ICALL2 WPRINTD,KIDNAPPED
PRINTI " is gone,"" Praxix said. ""Let us continue on our way."""
ICALL1 END-OPTION
ICALL1 CLEAR-SUBGROUP
ICALL FORCE-TRAVEL-COMMAND,HERE,PROCEED-COMMAND
RTRUE
?CND51: CRLF
CRLF
PRINTI "Later, questioned by Praxix, I told of my explorations. He listened without interest until I came to the part about finding the runes, when he startled me by jumping to his feet. ""Take me!"" he commanded, and I did."
CRLF
CRLF
PRINTI "The old Wizard studied the runes, then called for the others. "
CALL1 CANYON-GATE-OPENS
RSTACK
.FUNCT CANYON-GATE-OPENS:ANY:0:0
ICALL UPDATE-MOVE,TALE-DWARF-GATES,PRAXIX-TALES
MOVE TALE-DWARVES,PRAXIX-TALES
PRINTI """The runes here are very old, and ancient languages are not my specialty. But the runes are Dwarvish, and long ago I learned some of their words. This first rune, 'Bern,' means a 'gate', and this second one, 'Lav,' refers to 'the plains'."""
CRLF
CRLF
PRINTI """The gate to the plains,"" I said, putting two and two together. ""But from where?"""
CRLF
CRLF
PRINTI """That is a simple question,"" Praxix replied, ""A more interesting one would be 'How shall we get it to open?'"""
FSET? ESHER,IN-PARTY \?CCL3
CRLF
CRLF
PRINTI """Or better still, 'What do we do now?'"" snarled Esher as, to everyone's surprise, a round gate appeared, yawning wide before us."
JUMP ?CND1
?CCL3: CRLF
CRLF
PRINTI "This was not to be a problem, for a round gate then appeared from nowhere and opened."
?CND1: ZERO? 2ND-PASS \?CND4
CRLF
CRLF
PRINTI "Of the group, only Praxix was genuinely pleased by our discovery, though he was mystified as to just how it had happened. ""Perhaps it was something I said,"" he offered, shrugging."
?CND4: PUTP CANYON-GATE,P?GRAPHIC,G-GATE-RUNES
ICALL GRAPHIC,FALSE-VALUE,G-GATE-OPENS,BOTTOM-RIGHT
ICALL1 END-OPTION
ICALL1 CLEAR-SUBGROUP
ICALL ADD-TRAVEL-COMMAND,HERE,ENTER-COMMAND
ICALL UPDATE-FSET,HERE,NEAR-DARK
RTRUE
.FUNCT CAVERN-GRAPHIC:ANY:0:0
FSET? PRAXIX,LIT \?CCL3
CALL2 GRAPHIC,G-DARK-CAVERN
RSTACK
?CCL3: ZERO? BLACK-PICTURE-BORDER /?CCL6
CLEAR GRAPHICS-WINDOW
JUMP ?CND4
?CCL6: ICALL2 GRAPHIC,G-BLACK
?CND4: SET 'CURRENT-GRAPHIC,-1
RETURN CURRENT-GRAPHIC
.FUNCT ANONF-84:ANY:0:0
EQUAL? ACTION,EXIT-COMMAND \?CCL3
ICALL1 REMOVE-TRAVEL-COMMAND
PRINTI "We groped for the gate itself, or for some device that would open it, but to no avail."
RTRUE
?CCL3: EQUAL? ACTION,PROCEED-COMMAND \?CCL5
FSET? PRAXIX,LIT /?CND6
PRINTI "I meekly suggested trying to feel our way through what ever passage we were in, and Bergon reluctantly agreed. ""We seem to have no other choice,"" he said."
CRLF
CRLF
?CND6: CALL MOVE-TO,DWARF-MEETING-LOC,STR?408
RSTACK
?CCL5: EQUAL? ACTION,CAST-COMMAND \FALSE
EQUAL? ACTION-OBJECT,LIGHT-SPELL \FALSE
ICALL1 CAVERN-GRAPHIC
CALL1 CAST-LIGHT
RSTACK
.FUNCT ANONF-85:ANY:0:0
EQUAL? ACTION,PROCEED-COMMAND \?CCL3
PRINTI "The sun peeked behind some high clouds as we wound our way along the floor of the canyon. Ahead, the path climbed up a tall ridge, and we arrived there as dusk approached and stood in awe of the world that surrounded us."
CRLF
CRLF
CALL1 MOVE-TO-FOREST-RIDGE
RSTACK
?CCL3: EQUAL? ACTION,SCOUT-COMMAND \?CCL5
ICALL UPDATE-FSET,HERE,DONT-SCOUT
FSET HERE,SCOUTED
EQUAL? ACTOR,MINAR \?CCL8
ICALL2 WPRINTD,ACTOR
PRINTI " went ahead, paying close attention to the trail that climbed into the mountains. ""It is a good trail,"" he said. ""As I recall, we can follow it to a high ridge no more than a day's climb from here."""
RTRUE
?CCL8: ICALL2 WPRINTD,ACTOR
PRINTI " went ahead, reporting back that the trail appeared to be passable as far as he could see, though it might well be more than a day's climb to the top of the ridge."""
RTRUE
?CCL5: EQUAL? ACTION,CLIMB-COMMAND \FALSE
PRINTI "The trail was steep, winding its way high into the hills. At times, the trail disappeared completely, and it was necessary to scout ahead to find the proper path. But we pressed on, ever climbing, until we reached a spot about halfway toward the top of the ridge."
CRLF
CRLF
ICALL1 NEXT-DAY
CALL MOVE-TO,HIGH-PLAIN,STR?409
RSTACK
.ENDSEG
.ENDI