-
Notifications
You must be signed in to change notification settings - Fork 12
/
forest.zap
1787 lines (1672 loc) · 72.3 KB
/
forest.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 "FOREST"
.FUNCT MOVE-TO-FOREST-RIDGE:ANY:0:0
PRINTI "Looking back, we could follow the long canyon path back to the horizon, where I imagined I could see the fork just beyond Lavos. But the view ahead filled us with astonishment, for a vast forest stretched out before us, thick with pine, fir, and redwood. Beyond the forest, a wide river flowed from the north, disappearing into deep canyons to the south. And beyond the forest, the Sunrise Mountain, its jagged peak towering high above the surrounding mountains."
CRLF
CRLF
PRINTI """Magnificent!"" Praxix said. ""We stand before the Old Forest!"""
CRLF
CRLF
PRINTI """I have heard many a tale of the Old Forest,"" I said with a smile, reminiscing of the fanciful tales oft told about the forest."
CRLF
CRLF
PRINTI """I too have heard tales,"" Praxix replied, gravely. ""But judging by the comical look on your face, I suspect we have not heard the same ones."""
CRLF
CRLF
ICALL UPDATE-MOVE,TALE-ELVES,PRAXIX-TALES
ICALL1 NEXT-DAY
ICALL1 NEXT-DAY
PRINTI "It was now dark and after a hearty meal we slept. I dreamed of the forest that night, of brightly colored birds, and of the beautiful Wood Elves from the stories of my childhood. The next day, we rose with the sun."
CRLF
CRLF
PRINTI "The morning was still and hazy, and we started toward the forest with great eagerness. Praxix spotted a wide path which headed due east toward the Sunrise Mountain, and we spent a glorious morning beneath tall trees and a blue sky. Around midday, we came to a small clearing, where we decided to stop for lunch."
FSET? STAIR-BOTTOM,SEEN /?CCL3
CALL1 SKIP-BITE-FOREST
RSTACK
?CCL3: CALL2 MOVE-TO,BITE-FOREST
RSTACK
.FUNCT ANONF-96:ANY:0:0
CALL QSET?,HERE,SEEN
ZERO? STACK \?CCL3
FSET? MINAR,IN-PARTY \?CCL6
SET 'BITE-VICTIM,MINAR
SET 'BITE-VICTIM-OBJECT,MINAR-OBJECT
JUMP ?CND4
?CCL6: FSET? ESHER,IN-PARTY \?CCL8
SET 'BITE-VICTIM,ESHER
SET 'BITE-VICTIM-OBJECT,ESHER-OBJECT
?CND4: ICALL2 GRAPHIC,G-NIGHTFANG
CRLF
CRLF
PRINTI "And then, without warning, a large snake lunged at "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI ", grabbing him by the leg. "
FSET? BERGON,IN-PARTY \?CCL11
PRINTI "Bergon"
JUMP ?CND9
?CCL8: ICALL1 SKIP-BITE-FOREST
RTRUE
?CCL11: ICALL2 WPRINTD,BITE-VICTIM
?CND9: PRINTI ", reacting instinctively, killed the snake with a single blow of his sword"
FSET? BERGON,IN-PARTY \?CCL14
PRINTI "; "
ICALL2 WPRINTD,BITE-VICTIM
JUMP ?CND12
?CCL14: PRINTI " and"
?CND12: PRINTI " collapsed against a tree."
CRLF
CRLF
PRINTI """The snake,"" he started, grimacing with pain. ""Nightfang...."" His voice trailed off, and his eyes took on a glazed, vacant look."
CRLF
CRLF
PRINTI """But that cannot be! I thought Nightfang were nocturnal, like the Starstalker!"" I said, hopefully."
CRLF
CRLF
PRINTI """And you were right,"" replied Praxix. ""They were nocturnal. "
FSET? BERGON,IN-PARTY \?CCL17
PRINTI "Bergon, t"
JUMP ?CND15
?CCL17: PRINTC 84
?CND15: PRINTI "his man will die unless we can find some westflake root. There is little time!"""
ICALL UPDATE-MOVE,BITE-VICTIM-OBJECT,HERE
FSET BITE-VICTIM,INCAPACITATED
CALL MAKE-BUSY,BITE-VICTIM,ILL-COMMAND
RSTACK
?CCL3: IN? WOOD-ELF,HERE \?CND18
ICALL CHANGE-TRAVEL-COMMAND,HERE,TAG-ROUTE-COMMAND,ELF-HOME-COMMAND
?CND18: FSET? BERGON,TRAPPED /?CND20
ICALL REMOVE-TRAVEL-COMMAND,HERE,BERGON-ROUTE-COMMAND
?CND20: FSET? BITE-VICTIM,INCAPACITATED \?CCL24
FSET? BITE-VICTIM,DEAD /?CCL24
IN? WOOD-ELF,HERE /?CND27
IN? WESTFLAKE-ROOT,PRAXIX /?CND27
ICALL2 GRAPHIC,G-NIGHTFANG
?CND27: ZERO? SUBGROUP-MODE \?CND31
FSET? BITE-VICTIM,IN-PARTY /?CND31
ICALL2 PARTY-ADD,BITE-VICTIM
?CND31: ICALL UPDATE-MOVE,BITE-VICTIM-OBJECT,HERE
CALL MAKE-BUSY,BITE-VICTIM,ILL-COMMAND
RSTACK
?CCL24: FSET? WOOD-ELF,TRAPPED /?CCL36
FSET? BITE-VICTIM,DEAD \FALSE
?CCL36: CALL2 GRAPHIC,G-FOREST
RSTACK
.FUNCT ANONF-97:ANY:0:0
ZERO? SUBGROUP-MODE \FALSE
ZERO? BITE-VICTIM /FALSE
FSET? BITE-VICTIM,INCAPACITATED /?CCL3
FSET? BITE-VICTIM,DEAD \FALSE
?CCL3: CALL2 PARTY-REMOVE,BITE-VICTIM
RSTACK
.FUNCT ANONF-98:ANY:0:0
EQUAL? ACTION,ENTER-TUNNEL-COMMAND \?CCL3
PRINTI "We chose next to explore the tunnel that we had discovered underneath the stump, and, descending from our camp, quickly retraced our steps to the point at which we had entered it earlier. "
CALL MOVE-TO,WARREN,STR?412
RSTACK
?CCL3: EQUAL? ACTION,ELF-HOME-COMMAND \?CCL5
FSET? BERGON,TRAPPED \?CND6
FSET BERGON,DEAD
?CND6: FSET? WOOD-ELF,TRAPPED \?CCL10
PRINTI "Doing as V'ren had told us, I retraced my steps to the pool. V'ren was waiting there for us, and led us"
JUMP ?CND8
?CCL10: PRINTI "V'ren led us to the pool at which we had met, then"
?CND8: PRINTI " through twisty forest paths until we reached a small clearing. ""This is the Elf Home,"" she said, without words. ""Home of our Mothers since the beginning of all things."""
CRLF
CRLF
CALL MOVE-TO,ELF-HOME,STR?413
RSTACK
?CCL5: EQUAL? ACTION,TAG-ROUTE-COMMAND \?CCL12
FSET? BERGON,TRAPPED \?CND13
FSET BERGON,DEAD
?CND13: PRINTI "I retraced my earlier steps, "
FSET? ELFSTREAM-1,SEEN /?CCL17
PRINTI "but this time we decided to follow the stream."
CALL MOVE-TO,ELFSTREAM,STR?414
RSTACK
?CCL17: CALL MOVE-TO,ELFSTREAM,STR?415
RSTACK
?CCL12: EQUAL? ACTION,BERGON-ROUTE-COMMAND \?CCL19
IN? WOOD-ELF,HERE \?CND20
FSET WOOD-ELF,TRAPPED
PRINTI "We decided to follow Bergon's route in hopes of discovering his fate. V'ren said she could not come with us, but that we were welcome at the Elf Home. ""Come to the pool where we met,"" she said to me, ""and we shall meet again!"" And with that, she sped into the forest."
CRLF
CRLF
?CND20: CALL MOVE-TO,TANGLEWOOD,STR?416
RSTACK
?CCL19: EQUAL? ACTION,PRAXIX-ROUTE-COMMAND \?CCL23
FSET? BERGON,TRAPPED \?CND24
FSET BERGON,DEAD
?CND24: IN? WOOD-ELF,HERE \?CND26
FSET? WOOD-ELF,TRAPPED /?CND26
PRINTI "As we prepared to leave, V'ren explained that she must return to the Elf Home, but that we could find her anytime by returning to the pool at which we had first met. ""Good luck in your travels,"" she said without speech, and swiftly disappeared into the forest."
CRLF
CRLF
?CND26: PRINTI "Praxix led the way, and we soon arrived at the glade he had found nearby."
CALL QSET?,FOREST-GLADE,SEEN
ZERO? STACK \?CCL32
PRINTI " But, just as he was explaining his decision to go no farther, he stumbled over a tree stump that had been hidden in the knee-high grass!"
JUMP ?CND30
?CCL32: CALL QSET?,GLADE-STUMP,SEEN
ZERO? STACK \?CND30
FSET? FOREST-GLADE,SEEN \?CND34
CRLF
CRLF
PRINTI """Here's the stump that I walked into before,"" he said, giving it a"
FSET? GLADE-STUMP,EXAMINED \?CCL38
PRINTI "nother rap with his staff."
JUMP ?CND34
?CCL38: PRINTI " rap with his staff."
?CND34: IN? WESTFLAKE-ROOT,PRAXIX \?CCL41
PRINTI " ""Taught it a lesson!"" he added, pointing to its broken remains and the passage leading downward."
JUMP ?CND30
?CCL41: PRINTI " This, oddly, produced a hollow tone."
?CND30: CALL2 MOVE-TO,FOREST-GLADE
RSTACK
?CCL23: EQUAL? ACTION,EXAMINE-COMMAND \?CCL43
EQUAL? ACTION-OBJECT,BITE-VICTIM-OBJECT \?CCL43
ICALL UPDATE-FSET,BITE-VICTIM-OBJECT,DONT-EXAMINE
ICALL2 WPRINTD,ACTOR
PRINTI " examined "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI ". ""Unless we find the antidote, he will be dead before the sun sets."""
FSET? BERGON,IN-PARTY \TRUE
PRINTI " Bergon gazed up at the sky and frowned."
RTRUE
?CCL43: EQUAL? ACTION,GET-ADVICE-COMMAND \?CCL49
FSET? BITE-VICTIM,INCAPACITATED \?CCL49
ICALL UPDATE-FCLEAR,HERE,ADVISE
PRINTI "Unsure of how to save "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI ", Bergon asked for our advice. Praxix felt we had no alternative but to split up in search of the lifesaving root. I agreed, though I was fearful at the prospect of exploring this forest on my own."
RTRUE
?CCL49: EQUAL? ACTION,SPLIT-UP-COMMAND \?CCL53
PRINTI "It was agreed that we split up the group in search of the elusive westflake root, and "
ICALL UPDATE-FCLEAR,HERE,ADVISE
FSET? BERGON,IN-PARTY \?CCL56
PRINTI "Bergon indicated"
JUMP ?CND54
?CCL56: PRINTI "we decided on"
?CND54: PRINTI " the paths we should follow."
CRLF
CRLF
FSET? BERGON,IN-PARTY \?CCL59
FSET? DWARF-MEETING,SEEN /?CCL59
PRINTI """I shall remain here to tend to "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI ". Now go, and return before sunset! Do not wander far!"" he commanded."
FSET? ESHER,IN-PARTY \?CND57
EQUAL? BITE-VICTIM,ESHER /?CND57
PRINTI " But Esher would not leave, preferring to do what he could to keep Minar comfortable. And thus it was that Praxix and I went our separate ways into the forest."
JUMP ?CND57
?CCL59: FSET? BERGON,IN-PARTY \?CCL67
PRINTI """We will meet back here before sunset! Don't wander too far!"" he said."
JUMP ?CND57
?CCL67: PRINTI """We must meet back before sunset. Go quickly!"" Praxix said."
?CND57: FSET? BERGON,IN-PARTY \?CCL70
FSET? DWARF-MEETING,SEEN \?CCL70
ICALL1 DIVIDER
PRINTI "Choosing for himself the most difficult path, Bergon strode off into the thickening forest to our west."
FSET BERGON-SEARCH,SEEN
CALL2 SCENE,BERGON-SEARCH
RSTACK
?CCL70: CALL2 SCENE,PRAXIX-SEARCH
RSTACK
?CCL53: EQUAL? ACTION,COMB-AREA-COMMAND \FALSE
ICALL1 REMOVE-TRAVEL-COMMAND
PRINTI "We spent many frantic minutes searching the area for some westflake root, but to no avail. "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI " was now seemingly paralyzed; only the infrequent blinking of his eyes gave any clue that he remained alive."
RTRUE
.FUNCT MOVE-TO-ELF-HOME:ANY:0:0
PRINTI "Then, taking me by the hand, she led us through twisty forest paths until we reached a small clearing. ""This is the Elf Home,"" she said, without words. ""Home of our Mothers for all the long ages."""
CRLF
CRLF
CALL MOVE-TO,ELF-HOME,STR?417
RSTACK
.FUNCT ANONF-99:ANY:0:0
EQUAL? ACTION,SCENE-START-COMMAND \FALSE
ICALL1 DIVIDER
FSET? BERGON,TRAPPED \?CCL6
PRINTI "Praxix fared much better; leaving camp, he entered"
JUMP ?CND4
?CCL6: FSET? BERGON,IN-PARTY /?CCL8
PRINTI "Praxix chose to explore"
JUMP ?CND4
?CCL8: PRINTI "Bergon sent Praxix off to explore"
?CND4: PRINTI " the forest that lay to the east, and it was not long before he came to the edge of a grassy glade."
ICALL CHANGE-TRAVEL-COMMAND,BERGON,EXAMINE-COMMAND,GET-ADVICE-COMMAND
ICALL2 MAKE-SUBGROUP,PRAXIX
ICALL REMOVE-TRAVEL-COMMAND,PRAXIX,TELL-LEGEND-COMMAND
CALL2 MOVE-TO,FOREST-GLADE-EDGE
RSTACK
.FUNCT ANONF-100:ANY:0:0
EQUAL? ACTION,PROCEED-COMMAND \?CCL3
PRINTI "He had entered the glade and was moving swiftly through the knee-high grasses and wildflowers, when he walked straight into a tree stump that had been hidden in the undergrowth. Stifling a scream, Praxix rubbed his injured leg."
CRLF
CRLF
PRINTI """What an absurd place to leave a stump,"" he said, petulantly."
CALL2 MOVE-TO,FOREST-GLADE
RSTACK
?CCL3: EQUAL? ACTION,RETURN-COMMAND \FALSE
PRINTI "Praxix, unconvinced that westflake would be found here, returned to camp."
CALL2 SCENE,TAG-SEARCH
RSTACK
.FUNCT ANONF-101:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL UPDATE-FSET,ACTION-OBJECT,DONT-EXAMINE
PRINTI "Praxix inspected this misplaced piece of tree; then, as if to vent his anger, he rapped it with his staff, producing a hollow tone. ""Now, that is odd!"" he said, rubbing his still sore foot. Looking more closely now, he was unable to find any sign of how it might open."
RTRUE
.FUNCT ANONF-102:ANY:0:0
ICALL2 HINT,HINT-STUMP
PUTP HERE,P?CAST-LIMIT,2
FSET? GLADE-STUMP,ENCHANTED \?CND1
FSET? UNDERFOREST-2,TRIED /?CND1
ICALL ADD-TRAVEL-COMMAND,HERE,DOWN-COMMAND
?CND1: FSET FOREST-GLADE,SEEN
RTRUE
.FUNCT ANONF-103:ANY:0:0
EQUAL? ACTION,PROCEED-COMMAND \?CCL3
ICALL1 REMOVE-TRAVEL-COMMAND
ZERO? SUBGROUP-MODE /?CCL6
PRINTI "Limping slightly, Praxix continued on his way; before long, the terrain fell into a deep glen. ""Never get back in time!"" he said to himself, and returned to the glade."
FSET HERE,DONT-SCOUT
RTRUE
?CCL6: FSET? BITE-VICTIM,INCAPACITATED \?CCL8
PRINTI "We walked to the far end of the glade; the terrain sloped down sharply. ""No time to go farther!"" Praxix said, and he was right. It was nearly sunset, and "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI " was close to death."
RTRUE
?CCL8: ICALL UPDATE-FSET,HERE,DONT-SCOUT
PRINTI "The terrain ahead of us appeared unpromising, so we decided to take a different route."
RTRUE
?CCL3: EQUAL? ACTION,SCOUT-COMMAND \?CCL10
ICALL UPDATE-FSET,HERE,DONT-SCOUT
FSET HERE,SCOUTED
ICALL REMOVE-TRAVEL-COMMAND,HERE,PROCEED-COMMAND
FSET? BITE-VICTIM,INCAPACITATED \?CCL13
ICALL2 WPRINTD,ACTOR
PRINTI " went ahead to the far end of the glade, where the terrain sloped down sharply. ""No time to go farther!"" he said, and he was right. It was nearly sunset, and "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI " was close to death."
RTRUE
?CCL13: ICALL2 WPRINTD,ACTOR
PRINTI " checked out the far end of the glade, but returned with the report that the terrain appeared unpromising."
RTRUE
?CCL10: EQUAL? ACTION,RETURN-COMMAND \?CCL15
ZERO? SUBGROUP-MODE /?CCL18
PRINTI "Finding no sign of westflake, Praxix returned to our camp."
CALL2 SCENE,TAG-SEARCH
RSTACK
?CCL18: PRINTI "We returned to our camp, having found nothing "
FSET? BITE-VICTIM,INCAPACITATED \?CCL21
PRINTI "which could help our ailing friend"
JUMP ?CND19
?CCL21: PRINTI "useful along the route that Praxix had taken"
?CND19: PRINTC 46
ICALL REMOVE-TRAVEL-COMMAND,BITE-FOREST,PRAXIX-ROUTE-COMMAND
CALL2 MOVE-TO,BITE-FOREST
RSTACK
?CCL15: EQUAL? ACTION,DOWN-COMMAND \?CCL23
ZERO? SUBGROUP-MODE \?CCL26
CALL QSET?,HERE,TRIED
ZERO? STACK /?CND27
ICALL1 REMOVE-TRAVEL-COMMAND
?CND27: CALL MOVE-TO,UNDERFOREST-2,STR?419
RSTACK
?CCL26: CALL MOVE-TO,UNDERFOREST-2,STR?420
RSTACK
?CCL23: EQUAL? ACTION,CAST-COMMAND \FALSE
EQUAL? ACTION-OBJECT,LIGHTNING-SPELL \?PRD35
EQUAL? ACTION-PRSI,GLADE-STUMP /?PRD33
?PRD35: EQUAL? ACTION-OBJECT,FIRE-SPELL \?PRD38
EQUAL? ACTION-PRSI,GLADE-STUMP /?PRD33
?PRD38: EQUAL? ACTION-OBJECT,TREMOR-SPELL \FALSE
?PRD33: CALL QSET?,GLADE-STUMP,ENCHANTED
ZERO? STACK \FALSE
ICALL UPDATE-FSET,GLADE-STUMP,DONT-EXAMINE
ICALL ADD-TRAVEL-COMMAND,HERE,DOWN-COMMAND
ICALL2 GRAPHIC,G-STUMP
EQUAL? ACTION-OBJECT,LIGHTNING-SPELL \?CCL43
FSET LIGHTNING-SPELL,SEEN
PRINTI "Praxix carefully prepared a mixture of water and fire essences; then, he added just the slightest pinch of earth essence. He cast the mixture into the air and lifted his staff; from nowhere, clouds gathered and soon the sky was twilight-dark. Then, a single bolt of lightning fell from the sky, splitting the stump in two, and"
JUMP ?CND41
?CCL43: EQUAL? ACTION-OBJECT,TREMOR-SPELL \?CCL45
PRINTI "Praxix removed some earth essence from his pouch and cast it at the stump; the earth trembled briefly and the stump split in two"
JUMP ?CND41
?CCL45: PRINTI "Praxix removed a small handful of fire essence from his cloak and spread it over the stump. Within moments, the stump was afire; it burned itself out a few moments later,"
?CND41: PRINTI " revealing a passage below. ""Not bad! Not bad!"" he said, and he peered into the darkness below."
ZERO? SUBGROUP-MODE \?CND46
EQUAL? ACTION-OBJECT,LIGHTNING-SPELL \?CND46
CALL QSET?,LIGHTNING-SPELL,INCAPACITATED
ZERO? STACK \?CND46
CRLF
CRLF
PRINTI "Praxix, proud of his accomplishment, turned to me and whispered that it was the pinch of earth essence that really gives the lightning spell its added punch. But however the magic had been prepared, its effect was profound."
?CND46: PUTP HERE,P?GRAPHIC,G-STUMP
RTRUE
.FUNCT ANONF-104:ANY:0:0
FSET? PRAXIX,LIT /FALSE
CALL2 CHECK-ESSENCES,LIGHT-SPELL
ZERO? STACK \FALSE
CALL2 CHECK-ESSENCES,LEVITATE-SPELL
ZERO? STACK \FALSE
FSET HERE,TRAPPED
RTRUE
.FUNCT ANONF-105:ANY:0:0
LOC HINT-STUMP
ZERO? STACK /?CND1
ICALL2 UPDATE-REMOVE,HINT-STUMP
?CND1: FSET? PRAXIX,LIT \?CCL5
ICALL2 GRAPHIC,G-WARREN
CRLF
CRLF
PRINTI "With the aid of "
ZERO? SUBGROUP-MODE /?CCL8
PRINTI "his enchanted staff, Praxix"
JUMP ?CND6
?CCL8: PRINTI "Praxix' enchanted staff, we"
?CND6: PRINTI " could see that the passage led both back toward our camp and away."
ICALL2 ADD-PARTY-COMMAND,AWAY-COMMAND
ICALL CHANGE-PARTY-COMMAND,FEEL-AROUND-COMMAND,BACK-COMMAND
JUMP ?CND3
?CCL5: ICALL UPDATE-FSET,HERE,DONT-SCOUT
ICALL1 CAVERN-GRAPHIC
?CND3: FSET? PRAXIX,LIT \FALSE
ZERO? SUBGROUP-MODE \FALSE
FSET? BITE-VICTIM,INCAPACITATED /FALSE
CALL CHANGE-PARTY-COMMAND,AWAY-COMMAND,PROCEED-COMMAND
RSTACK
.FUNCT ANONF-106:ANY:0:0
EQUAL? ACTION,AWAY-COMMAND \?CCL3
ICALL2 REMOVE-PARTY-COMMAND,AWAY-COMMAND
PRINTI "Praxix absentmindedly started to head away from our camp, when he remembered how little time there was to save "
ICALL2 WPRINTD,BITE-VICTIM
PRINTC 46
CRLF
CRLF
PRINTI """There will be time for this later,"" he said, scolding himself, and quickly retraced his steps to his starting point."
RTRUE
?CCL3: EQUAL? ACTION,UP-COMMAND \?CCL5
ZERO? SUBGROUP-MODE /?CCL8
ICALL2 REMOVE-PARTY-COMMAND,UP-COMMAND
PRINTI "Try as he might, Praxix couldn't climb out of this hole he had dug for himself."
RTRUE
?CCL8: FCLEAR HERE,DEAD
CALL MOVE-TO,FOREST-GLADE,STR?423
RSTACK
?CCL5: EQUAL? ACTION,PROCEED-COMMAND \?CCL10
FSET? HERE,TRAPPED \?CCL13
PRINTI "The remainder of the day was spent tediously feeling our way through scores of dark, underground chambers until we finally reached an exit. We clambered out "
CALL1 MOVE-TO-ELFSTREAM
RSTACK
?CCL13: FSET? PRAXIX,LIT /?CCL15
PRINTI "We decided to explore this underground tunnel, but without light, the prospects were dim."
RTRUE
?CCL15: CALL MOVE-TO,WARREN,STR?424
RSTACK
?CCL10: EQUAL? ACTION,CAST-COMMAND \?CCL17
EQUAL? ACTION-OBJECT,LEVITATE-SPELL \?CCL17
ZERO? SUBGROUP-MODE /?CCL22
PRINTI "Then, taking out his air and earth essences, Praxix created an elevation spell and used it to raise himself back into the glade."
JUMP ?CND20
?CCL22: PRINTI "Praxix then used his elevation spell to lift "
ICALL2 WPRINTD,ACTION-PRSI
PRINTI " out of the hole; it was then a simple matter for the rest of us to make our way out."
?CND20: FSET HERE,TRIED
CALL2 MOVE-TO,FOREST-GLADE
RSTACK
?CCL17: EQUAL? ACTION,CAST-COMMAND \?CCL24
EQUAL? ACTION-OBJECT,LIGHT-SPELL \?CCL24
EQUAL? ACTION-PRSI,STAFF \?CCL24
CALL QSET?,PRAXIX,LIT
ZERO? STACK \?CCL24
LOC HINT-STUMP
ZERO? STACK /?CND29
ICALL2 UPDATE-REMOVE,HINT-STUMP
?CND29: ICALL2 GRAPHIC,G-WARREN
ICALL UPDATE-FCLEAR,HERE,DONT-SCOUT
ZERO? SUBGROUP-MODE \?CCL33
FSET? BITE-VICTIM,INCAPACITATED /?CCL33
FSET? HERE,DEAD \?CCL38
ICALL2 ADD-PARTY-COMMAND,PROCEED-COMMAND
JUMP ?CND31
?CCL38: ICALL CHANGE-PARTY-COMMAND,FEEL-AROUND-COMMAND,PROCEED-COMMAND
JUMP ?CND31
?CCL33: FSET? HERE,DEAD \?CCL41
ICALL2 ADD-PARTY-COMMAND,BACK-COMMAND
JUMP ?CND39
?CCL41: ICALL CHANGE-PARTY-COMMAND,FEEL-AROUND-COMMAND,BACK-COMMAND
?CND39: ICALL2 ADD-PARTY-COMMAND,AWAY-COMMAND
?CND31: PRINTI "It took some doing, but Praxix managed to fumble through his pouch and remove some fire and earth essence. He applied it to his staff, causing it to glow a dull red. "
ZERO? SUBGROUP-MODE /?CCL44
PRINTC 72
JUMP ?CND42
?CCL44: PRINTC 87
?CND42: PRINTI "e could now see that he was in a tunnel, with passages leading in two directions, though only one of these would head in the direction of camp."
RTRUE
?CCL24: EQUAL? ACTION,CAST-COMMAND \?CCL46
EQUAL? ACTION-OBJECT,FAR-VISION-SPELL \?CCL46
PRINTI "Praxix, with his flare spell, lit the walls of the tunnel, revealing that it was covered with a mossy, plantlike material, and that it spread out far in both directions."
RTRUE
?CCL46: EQUAL? ACTION,BACK-COMMAND \?CCL50
PRINTI "Using his staff for light, "
ZERO? SUBGROUP-MODE /?CCL53
ICALL2 WPRINTD,PRAXIX
JUMP ?CND51
?CCL53: PRINTI "we"
?CND51: PRINTI " continued down the tunnel in the direction of camp."
FSET? BITE-VICTIM,INCAPACITATED \?CND54
PRINTI " Casually scanning the walls, "
ZERO? SUBGROUP-MODE /?CCL58
PRINTI "he"
JUMP ?CND56
?CCL58: PRINTI "we"
?CND56: PRINTI " recognized the plant that almost completely surrounded "
ZERO? SUBGROUP-MODE /?CCL61
PRINTI "him"
JUMP ?CND59
?CCL61: PRINTI "us"
?CND59: PRINTI ": westflake! "
ZERO? SUBGROUP-MODE \?CCL64
ICALL2 WPRINTD,PRAXIX
JUMP ?CND62
?CCL64: PRINTI "He"
?CND62: PRINTI " gathered some of the root for "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI ", placing it in his cloak."
?CND54: ZERO? SUBGROUP-MODE \?CCL67
PRINTI " We"
JUMP ?CND65
?CCL67: PRINTI " He"
?CND65: PRINTI " continued down the tunnel, coming eventually to a ladder carved into the earth and rising into a hollowed-out tree stump!"
ZERO? SUBGROUP-MODE /?CCL70
PRINTI " The sound of a voice (or was it voices) could be heard just above, and Praxix eagerly pulled himself up the ladder."
MOVE WESTFLAKE-ROOT,PRAXIX
CALL2 SCENE,TAG-SEARCH
RSTACK
?CCL70: PRINTI " We raised ourselves out of the stump; we were back at our camp."
FSET? BITE-VICTIM,INCAPACITATED \?CCL73
ICALL2 MOVE-TO,BITE-FOREST
CRLF
CRLF
PRINTI "Praxix rushed over to "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI " and made a terrible discovery. "
ICALL1 BITE-VICTIM-DIES
ICALL CHANGE-TRAVEL-COMMAND,BITE-FOREST,PRAXIX-ROUTE-COMMAND,ENTER-TUNNEL-COMMAND
ICALL2 MOVE-TO,BITE-FOREST
RTRUE
?CCL73: CRLF
CRLF
PRINTI """As I suspected, this route leads only back to our camp,"" Praxix said. ""Come, let us see what lies at the other end of the tunnel."""
CRLF
CRLF
PRINTI "In a matter of moments, we had climbed back down into the tunnel, retracing our steps to our point of entry in the glade. "
ICALL MOVE-TO,WARREN,STR?424
RTRUE
?CCL50: EQUAL? ACTION,FEEL-AROUND-COMMAND \FALSE
ICALL2 REMOVE-PARTY-COMMAND,FEEL-AROUND-COMMAND
FSET HERE,DEAD
PRINTI "Though "
ZERO? SUBGROUP-MODE /?CCL78
PRINTC 104
JUMP ?CND76
?CCL78: PRINTC 119
?CND76: PRINTI "e could not see, it was clear by feeling around that "
ZERO? SUBGROUP-MODE /?CCL81
PRINTI "he was"
JUMP ?CND79
?CCL81: PRINTI "we were"
?CND79: PRINTI " in some sort of tunnel. Without any light, movement would be painfully slow and uncomfortable."
RTRUE
.FUNCT ANONF-107:ANY:0:0
EQUAL? ACTION,SCENE-START-COMMAND \?CCL3
ICALL1 DIVIDER
ICALL2 GRAPHIC,G-FOREST
FSET? BERGON,IN-PARTY \?CCL6
FSET? BERGON,TRAPPED /?CCL6
PRINTC 34
ICALL1 WPRINTTAG
PRINTI ", you search the forest to the north,"" Bergon said, and that was what I did"
JUMP ?CND4
?CCL6: PRINTI "I headed out into the forest that lay to the north"
?CND4: PRINTI ", though I was filled with apprehension at the thought of exploring on my own."
CRLF
CRLF
PRINTI "But the forest was beautiful, and the air cool and fresh. Up ahead, the sound of flowing water could be heard ever more clearly, and I followed that sound until I came upon a small stream, which took off at an angle to my path."
ICALL ADD-TRAVEL-COMMAND,PRAXIX,TELL-LEGEND-COMMAND
ICALL1 MAKE-TAG-SUBGROUP
CALL2 MOVE-TO,ELFWOOD-2
RSTACK
?CCL3: EQUAL? ACTION,SCENE-END-COMMAND \FALSE
FSET? WOOD-ELF,SEEN \?CCL13
FSET? ELFSTREAM-1,SOLVED /?CCL13
CALL2 HINT,HINT-ELF-SPEAK
RSTACK
?CCL13: FSET? ELFSTREAM-1,SEEN /?CCL17
IN? WESTFLAKE-ROOT,PRAXIX \?CCL17
CALL2 HINT,HINT-BITE-FOREST
RSTACK
?CCL17: FSET? WOOD-ELF,SEEN /FALSE
IN? WESTFLAKE-ROOT,PRAXIX \FALSE
CALL2 HINT,HINT-WOOD-ELF
RSTACK
.FUNCT SEARCH-END:ANY:0:0,TMP
ICALL2 MOVE-TO-NO-GFX,BITE-FOREST
ICALL1 CLEAR-SUBGROUP
ICALL1 RESTORE-TAG-COMMANDS
ICALL SCENE,FALSE-VALUE,FALSE-VALUE
CRLF
CRLF
IN? WOOD-ELF,HERE \?CCL3
PRINTI "We arrived a short time later; "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI " appeared lifeless, though he was breathing slowly. The Wood Elf strode to his side, placed her spindled arm on his wound, and entered a trance-like state."
CRLF
CRLF
ICALL GRAPHIC,G-NIGHTFANG,G-ELF-HEALS-BITE,BOTTOM-LEFT
IN? WESTFLAKE-ROOT,PRAXIX \?CCL6
ICALL1 PRAXIX-STUMP-APPEARANCE
JUMP ?CND4
?CCL6: PRINTI "Praxix returned, empty-handed, and started toward "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI ". After just a few steps, he "
?CND4: PRINTI "stopped, startled by the sight of my new friend."
CRLF
CRLF
PRINTI """You have done well, "
ICALL1 WPRINTTAG
PRINTI "! Very well indeed!"" I blushed, for it wasn't often this Wizard handed out compliments. ""There are but few Wood Elves left in this world, and lucky is the day we meet one!"""
CRLF
CRLF
PRINTI "We approached "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI " and watched in silence as the Wood Elf healed him with her touch. "
ICALL1 BITE-VICTIM-BITE-HEALED
JUMP ?CND1
?CCL3: IN? WESTFLAKE-ROOT,PRAXIX \?CCL8
ICALL GRAPHIC,G-NIGHTFANG,G-PRAXIX-HEALS-BITE,BOTTOM-LEFT
ICALL1 PRAXIX-STUMP-APPEARANCE
PRINTI "knelt at his side, binding the westflake root onto the wound. "
ICALL1 BITE-VICTIM-BITE-HEALED
JUMP ?CND1
?CCL8: ICALL2 GRAPHIC,G-NIGHTFANG
ICALL2 HINT,HINT-NIGHTFANG
PRINTI "Praxix and I arrived back at the same time, neither having found any westflake root. "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI " was motionless, eyes staring without seeing."
?CND1: SET 'TMP,ELF-HOME-COMMAND
IN? WOOD-ELF,HERE /?CND9
SET 'TMP,TAG-ROUTE-COMMAND
?CND9: FSET? BERGON,TRAPPED \?CCL13
ICALL TRAVEL-COMMANDS,HERE,BERGON-ROUTE-COMMAND,PRAXIX-ROUTE-COMMAND,TMP
JUMP ?CND11
?CCL13: ICALL TRAVEL-COMMANDS,HERE,PRAXIX-ROUTE-COMMAND,TMP
?CND11: FSET? BERGON,TRAPPED \?CCL16
CRLF
CRLF
FSET? BITE-VICTIM,BUSY \?CCL19
PRINTI "As if things were not bad enough, Bergon was missing. We waited until nearly sunset, and still he had not returned."
JUMP ?CND17
?CCL19: PRINTI "Surprisingly, it was Esher who first noticed Bergon's absence. We decided to wait, but by sunset, there was still no sign of him."
?CND17: CRLF
CRLF
PRINTI """It is not like Bergon to be late. I fear something has happened to him,"" Praxix said; he was tired now, and filled with concern."
JUMP ?CND14
?CCL16: FSET? BITE-VICTIM,BUSY \?CCL21
FSET? BERGON,IN-PARTY \?CCL21
CRLF
CRLF
FSET? BERGON-SEARCH,SEEN \?CND24
PRINTI "Bergon arrived a short time later; he, too, had failed to find the westflake root. "
?CND24: PRINTI "We stood over our friend, but no words were spoken; we had failed!"
JUMP ?CND14
?CCL21: FSET? BERGON,IN-PARTY \?CND14
FSET? BERGON-SEARCH,SEEN \?CND14
CRLF
CRLF
PRINTI "Bergon, who had missed all of the excitement, returned a short time later, and, relieved at "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI "'s condition, told of his adventures."
?CND14: FSET? ELFSTREAM-1,SEEN \?CCL31
IN? WOOD-ELF,HERE /?CCL31
CRLF
CRLF
PRINTI "Thinking that it "
FSET? BITE-VICTIM,INCAPACITATED \?CCL36
PRINTI "somehow might help"
JUMP ?CND34
?CCL36: FSET? BERGON,TRAPPED \?CCL38
PRINTI "might be helpful (though it didn't seem relevant to the problem of finding Bergon)"
JUMP ?CND34
?CCL38: PRINTI "might be important"
?CND34: PRINTI ", I told "
FSET? BERGON,TRAPPED /?PRD43
FSET? BERGON,IN-PARTY /?CCL41
?PRD43: FSET? BITE-VICTIM,INCAPACITATED \?CCL41
ICALL2 WPRINTD,PRAXIX
JUMP ?CND39
?CCL41: PRINTI "the others"
?CND39: PRINTI " about my adventure at the edge of the stream."
FSET? WOOD-ELF,SEEN \TRUE
PRINTI " Praxix was delighted! ""Wood Elves! Well, then! This is indeed our lucky day. Let us hope we shall be meeting them again!"""
RTRUE
?CCL31: IN? WOOD-ELF,HERE \TRUE
CRLF
CRLF
PRINTI "I thought this might be a good time for introductions, so I presented the Wood Elf to the others. ""I am happy to introduce..."" I started, but came up empty, and the Elf placed her hand on my shoulder. ""V'ren, of the House of G'lor,"" she said. ""And, if you wish, I shall take you to the Elf Home."""
CRLF
CRLF
PRINTI "We thanked V'ren for her gracious offer of help, but we had much to consider before we could commit to any decision. V'ren stood and waited as we discussed our options."
RTRUE
.FUNCT BITE-VICTIM-BITE-HEALED:ANY:0:0
ICALL UPDATE-MOVE,BITE-VICTIM-OBJECT,RANDOM-OBJECTS
FCLEAR BITE-VICTIM,INCAPACITATED
ICALL UPDATE-FCLEAR,BITE-FOREST,ADVISE
ICALL2 MAKE-UNBUSY,BITE-VICTIM
FCLEAR BITE-VICTIM-OBJECT,DONT-EXAMINE
PRINTI "It took a long while, though it was still light when "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI "'s eyes regained their sight and his body stirred. ""What are you all looking at?"" he said, blankly, and even Praxix' lips turned up into a smile."
EQUAL? BITE-VICTIM,ESHER \TRUE
CRLF
CRLF
PRINTI """We are looking at one very poor excuse for a physician,"" he said."
RTRUE
.FUNCT PRAXIX-STUMP-APPEARANCE:ANY:0:0
PRINTI "Just then, from out of nowhere, Praxix rose from the ground! I was mesmerized by the sight, and stood there, speechless. ""Don't just stand there!"" he shouted, ""Help an old man up!"""
CRLF
CRLF
PRINTI "Embarrassed, I helped him out of a hollowed-out stump that had been inconspicuously sitting nearby. But before I could ask him how he had gotten there, he rushed toward "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI ", then "
RTRUE
.FUNCT ANONF-108:ANY:0:0
EQUAL? ACTION,PROCEED-COMMAND \?CCL3
ICALL1 REMOVE-TRAVEL-COMMAND
FSET HERE,EXAMINED
PRINTI "The path descended into a deep ravine, and I was loath to follow it this near to twilight. Across the ravine, the forest was unnaturally dark, as though a black curtain had been drawn over it."
RTRUE
?CCL3: EQUAL? ACTION,STREAM-PATH-COMMAND \?CCL5
FSET? HERE,EXAMINED \?CCL8
PRINTI "Rather than giving up, I chose to follow the stream in search for the needed root."
JUMP ?CND6
?CCL8: PRINTI "Moving quickly and scanning the ground for any sign of westflake, I chose to follow the stream."
?CND6: CALL MOVE-TO,ELFSTREAM-1,STR?426
RSTACK
?CCL5: EQUAL? ACTION,RETURN-COMMAND \FALSE
PRINTI "Unable to find any westflake root, I returned to camp."
CALL1 SEARCH-END
RSTACK
.FUNCT MOVE-TO-NO-GFX:ANY:1:2,RM,STR
CALL MOVE-TO,RM,STR,FALSE-VALUE,TRUE-VALUE,FALSE-VALUE
RSTACK
.FUNCT ANONF-109:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL UPDATE-FSET,ACTION-OBJECT,DONT-EXAMINE
FSET WOOD-ELF,EXAMINED
FSET? WOOD-ELF,SEEN \?CCL6
PRINTI "Having recovered from the shock of that first look, I looked at this creature again and I began to feel her age and wisdom, and even sense a beauty that lay beneath her tree-like exterior."
RTRUE
?CCL6: PRINTI "The woman was slender, with long flowing hair. I could not see her face, yet some warm inner feeling was touched by her gentle grace."
RTRUE
.FUNCT ANONF-110:ANY:0:0
FSET HERE,SEEN
CALL GRAPHIC,G-WATERFALL-NO-ELF,G-WATERFALL,BOTTOM-RIGHT
RSTACK
.FUNCT ANONF-111:ANY:0:0
EQUAL? ACTION,TALK-TO-ELF-COMMAND \?CCL3
ICALL1 REMOVE-TRAVEL-COMMAND
PRINTI """I am pleased to meet you,"" I began, stumbling over the words. ""My friend is badly hurt..."""
CRLF
CRLF
PRINTI "But this creature that I assumed to be a Wood Elf appeared confused by my speech. I tried other, non-verbal means of communication, and was soon quite frustrated at my inability to communicate the desire that she come to the aid of "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI ", if indeed that was within her power. And then, just as I was about to return to our camp, she spoke in soft, lilting tones in a language that I presumed to be Elvish."
ICALL ADD-TRAVEL-COMMAND,HERE,SPEAK-ELVISH-COMMAND
FSET HERE,BLUE-MIX
RTRUE
?CCL3: EQUAL? ACTION,SPEAK-ELVISH-COMMAND \?CCL5
PRINTI "Well, what did I know of Elvish? But there was little else to do, so I gave it my best try...."
CRLF
CRLF
CALL2 READ-ELVISH,TAG
ZERO? STACK \TRUE
PRINTI "At least, I thought I would, but no sound came through my lips and at last, dejected, I raced back to camp, eager to tell the others of my discovery."
CALL1 SEARCH-END
RSTACK
?CCL5: EQUAL? ACTION,APPROACH-COMMAND \?CCL10
CALL QSET?,WOOD-ELF,SEEN
ZERO? STACK \?CCL13
PRINTI "I approached cautiously, hoping not to startle her. But as I neared, she sensed my presence, stood, and turned toward me...."
CRLF
CRLF
PRINTI "I gasped, stumbling backward onto the ground, and twisted my ankle. She was grotesque, her face leathery and brown, more like a gnarled tree than a person. She stretched her spindled arms toward me, and opened her eyes for the first time: clear, large, and fathomless."
ICALL2 GRAPHIC,G-ELF
ICALL REMOVE-TRAVEL-COMMAND,HERE,STAY-HIDDEN-COMMAND
CALL UPDATE-FCLEAR,WOOD-ELF,DONT-EXAMINE
RSTACK
?CCL13: PRINTI "As if under some hypnotic spell, I rose and hobbled toward this creature of the forest. Her eyes were kind and gentle, yet she backed off as I approached."
CALL CHANGE-TRAVEL-COMMAND,HERE,APPROACH-COMMAND,TALK-TO-ELF-COMMAND
RSTACK
?CCL10: EQUAL? ACTION,STAY-HIDDEN-COMMAND \?CCL15
CALL QSET?,WOOD-ELF,SCOUTED
ZERO? STACK \?CCL18
PRINTI "I waited there, mesmerized by the beauty of this forest dweller. After a few moments, two people came into view from further downstream but it was late in the afternoon, and the rays of the setting sun made it impossible to see them clearly. The woman motioned to the newcomers, who then returned to the forest."
RTRUE
?CCL18: PRINTI "Then the woman rose and followed the stream out of sight into the forest."
ICALL REMOVE-TRAVEL-COMMAND,HERE,APPROACH-COMMAND
CALL CHANGE-TRAVEL-COMMAND,HERE,STAY-HIDDEN-COMMAND,FOLLOW-COMMAND
RSTACK
?CCL15: EQUAL? ACTION,FOLLOW-COMMAND \?CCL20
PRINTI "I decided to follow the mysterious woman, but soon lost track of her as she sped along the course of the stream. It was now late, and I had no choice but to return to camp."
CALL1 SEARCH-END
RSTACK
?CCL20: EQUAL? ACTION,RETURN-COMMAND \FALSE
FSET? WOOD-ELF,SEEN \?CCL25
PRINTI "Though my ankle was hurt, I stumbled and crawled my way back to camp."
JUMP ?CND23
?CCL25: PRINTI "It was getting late, so I returned to camp with the intention of telling the others about these forest people."
?CND23: CALL1 SEARCH-END
RSTACK
.FUNCT ANONF-112:ANY:0:0
IN? WOOD-ELF,BITE-FOREST \?CCL3
CALL TRAVEL-COMMANDS,HERE,ELF-HOME-COMMAND
RSTACK
?CCL3: FSET? BITE-VICTIM,INCAPACITATED \?CTR4
FSET? BITE-VICTIM,DEAD \?CCL5
?CTR4: CALL TRAVEL-COMMANDS,HERE,PROCEED-COMMAND
RSTACK
?CCL5: CALL TRAVEL-COMMANDS,HERE,RETURN-COMMAND
RSTACK
.FUNCT ANONF-113:ANY:0:0
EQUAL? ACTION,ELF-HOME-COMMAND \?CCL3
PRINTI "We called out for V'ren, who quickly arrived at the side of the pool. "
CALL1 MOVE-TO-ELF-HOME
RSTACK
?CCL3: EQUAL? ACTION,PROCEED-COMMAND \?CCL5
PRINTI "The pool was refreshingly cool, and we drank from it contentedly."
FSET? ELFSTREAM-1,SEEN \?CND6
PRINTI " But none of the creatures I had seen before were here, and it soon became apparent that we had missed our opportunity of meeting them."
?CND6: ZERO? 2ND-PASS \?CCL10
CALL1 SKIP-BITE-FOREST
RSTACK
?CCL10: CRLF
CRLF
CALL2 N-DAY-TREK,1
RSTACK
?CCL5: EQUAL? ACTION,RETURN-COMMAND \FALSE
PRINTI "We returned to our camp at nightfall, full of despair and hopelessness. Praxix went over to where "
ICALL2 WPRINTD,BITE-VICTIM
PRINTI " lay."
ICALL1 BITE-VICTIM-DIES
CALL2 MOVE-TO,BITE-FOREST
RSTACK
.FUNCT BITE-VICTIM-DIES:ANY:0:0
ICALL2 HINT,HINT-NIGHTFANG
PRINTI """We are too late!"" he said softly. ""Too late!"""
CRLF
CRLF
PRINTI "I was barely able to hold back tears as we lifted our fallen friend and placed him in the cold earth. Praxix incanted an ancient and sorrowful song as we covered him with dirt and placed a burial cairn over the spot."
FSET? BERGON,TRAPPED /?CND1
PRINTI " Exhausted, we fell into a deep sleep."
?CND1: ICALL1 NEXT-DAY
FCLEAR BITE-VICTIM,INCAPACITATED
FSET BITE-VICTIM,DEAD
CALL2 UPDATE-MOVE,BITE-VICTIM-OBJECT
RSTACK
.FUNCT ANONF-114:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL1 UPDATE-MOVE
PRINTI """Look,"" "
ICALL2 WPRINTD,ACTOR
PRINTI " said, pointing out the Elves that were everywhere - climbing down trees, grabbing axes and crude buckets; soon, all would be heading north to fight the advancing blaze."
RTRUE
.FUNCT ANONF-115:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL1 UPDATE-MOVE
ICALL2 WPRINTD,ACTOR
PRINTI " pointed toward the north, where the sky was filled with a dark, billowing smoke. Every few moments, a flash of red flame could be seen lapping at the tree tops in the distance."
RTRUE
.FUNCT ANONF-116:ANY:0:0
ICALL2 GRAPHIC,G-ELF-HOME
FSET? FOREST-FIRE,SEEN /?CCL3
CRLF
CRLF
PRINTI "We talked among ourselves, marvelling at this ancient place, when three Elves rushed into the clearing, and their cries filled our ears. ""Fire!"" they said. ""The great flame approaches!"""
CRLF
CRLF
PRINTI "Across the way, an older Elf clambered down from his tree-hammock. ""Awake! Awake!"" he cried, and dozens of Elves were soon marching to the north, where smoke could be seen in the treetops."
FSET? ELFWOOD-2,EXAMINED \TRUE
CRLF
CRLF
PRINTI """That would explain the black forest I observed while searching for the westflake root!"" I exclaimed."
CRLF
CRLF
PRINTI """The fire moves quickly, then,"" Praxix said. ""We are all in danger here!"""
RTRUE
?CCL3: ICALL REMOVE-TRAVEL-COMMAND,HERE,FOLLOW-ELVES-COMMAND
CALL UPDATE-FCLEAR,HERE,ADVISE
RSTACK
.FUNCT ANONF-117:ANY:0:0
EQUAL? ACTION,GET-ADVICE-COMMAND \?CCL3
ICALL UPDATE-FCLEAR,HERE,ADVISE
PRINTI "We talked among ourselves, but could reach no consensus."
FSET? BITE-VICTIM,IN-PARTY \TRUE
PRINTC 32
ICALL2 WPRINTD,BITE-VICTIM
PRINTI " felt strongly that we must help the Elves, if it were at all possible. Praxix was unsure; he could sense how near we were to the eastern mountains and Astrix, and was wary of the delay."
RTRUE
?CCL3: EQUAL? ACTION,FOLLOW-ELVES-COMMAND \?CCL7
FSET? BITE-VICTIM,IN-PARTY \?CND8
ICALL2 WPRINTD,BITE-VICTIM
PRINTI " reacted quickly. ""We must help these Elves, if it is at all within our power to do so."""
CRLF
CRLF
?CND8: CALL MOVE-TO,FOREST-FIRE,STR?434
RSTACK
?CCL7: EQUAL? ACTION,PROCEED-COMMAND \?CCL11
FSET? BERGON,DEAD \?CCL14
ICALL2 HINT,HINT-TANGLETREES
PRINTI "We prepared to leave the forest, but were soon accosted by V'ren and two other Elves. ""I have tragic news for you. One of our scouts has located your friend; he had been strangled by the Tangle Trees into whose forest he had wandered. We have buried him here, among our bravest brethren. I am sorry."""
CRLF
CRLF
PRINTI "This was tragic news indeed, and we were greatly saddened by the loss of our leader. ""I feared this when he did not return last evening,"" Praxix said, ""He shall be sorely missed."""
CRLF
CRLF
JUMP ?CND12
?CCL14: PRINTI "Unsure of how to help, we decided to continue with our quest. "
?CND12: PRINTI "With V'ren guiding us, we soon came to the eastern edge of the forest, at the shore of a great river. ""Be well,"" V'ren said. ""I must return to help my people."" And with that, she turned and ran back into the forest."
IN? ELF-STONE,INVENTORY /?CND15
ICALL2 HINT,HINT-ELVES
?CND15: ZERO? 2ND-PASS /?CCL19
CRLF
CRLF
ICALL2 N-DAY-TREK,1
RTRUE
?CCL19: CALL2 MOVE-TO,RIVER-2
RSTACK
?CCL11: EQUAL? ACTION,SCOUT-COMMAND \FALSE
ICALL UPDATE-FSET,HERE,DONT-SCOUT
FSET HERE,SCOUTED
ICALL2 WPRINTD,ACTOR
PRINTI " rushed ahead with the Elves, and soon returned. ""It is a great fire, borne by the north wind,"" he reported. ""It won't be long until we are in danger here!"""
RTRUE
.FUNCT ANONF-118:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL1 UPDATE-MOVE
PRINTI "A wall of flame stood before us, consuming everything in its path. As if part of a conspiracy, the wind blew harder now, pushing the blaze toward the Elves' home a few mere miles downwind."
EQUAL? ACTOR,PRAXIX \?CCL6
CRLF
CRLF
PRINTI """These Elves are in great danger,"" Praxix said. ""We must do something now or leave, lest we be destroyed with them."""
RTRUE
?CCL6: CRLF
CRLF
PRINTI """We must retreat from here,"" "
ICALL2 WPRINTD,ACTOR
PRINTI " said. ""It is not safe!"""
RTRUE
.FUNCT ANONF-119:ANY:0:0
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
ICALL1 UPDATE-MOVE
PRINTI "Hundreds of Elves were here, trying desperately to fight the onrushing fire with buckets of water. Others were clearing brush and opening a wide trench, hoping to stop the flames at the trench line."
CRLF
CRLF
FSET? ESHER,IN-PARTY \TRUE
PRINTI """They'll never hold back the fire,"" Esher said, and it was hard to disagree. Praxix stood there in silent thought, eyes fixed on the approaching flames."
RTRUE
.FUNCT ANONF-120:ANY:0:0,TMP
?FCN: EQUAL? ACTION,RETURN-COMMAND \?CCL3
CALL MOVE-TO,ELF-HOME,STR?435
RSTACK
?CCL3: EQUAL? ACTION,CAST-COMMAND \FALSE
EQUAL? ACTION-OBJECT,RAIN-SPELL \?CCL8
GET ESSENCE-TBL,WATEROFF >TMP
LESS? TMP,FIRE-RAIN-REQUIRED \?CCL11
PRINTI """I don't believe I have enough,"" Praxix said, as he took all of his remaining water essence and cast it into the sky. Clouds gathered and a "
EQUAL? TMP,3,4 \?CCL14
PRINTI "good soaking rain"
JUMP ?CND12
?CCL14: EQUAL? TMP,2 \?CCL16
PRINTI "few showers soon"
JUMP ?CND12
?CCL16: PRINTI "sprinkle of rain"
?CND12: FSET FOREST-FIRE,TRIED
PRINTI " fell, but it was quickly evident that Praxix' assessment was accurate. The rains were too little, too late. The fires had been slowed, but not nearly enough."