mirror of
https://github.com/historicalsource/journey
synced 2024-06-26 03:40:49 +03:00
282 lines
10 KiB
Plaintext
282 lines
10 KiB
Plaintext
|
|
.SEGMENT "RIVER"
|
|
|
|
|
|
.FUNCT ANONF-215:ANY:0:0
|
|
FCLEAR WEBBA-MAP,DONT-EXAMINE
|
|
RTRUE
|
|
|
|
|
|
.FUNCT ANONF-216:ANY:0:0
|
|
EQUAL? ACTION,SCOUT-COMMAND \?CCL3
|
|
ICALL UPDATE-FSET,HERE,DONT-SCOUT
|
|
FSET HERE,SCOUTED
|
|
EQUAL? ACTOR,ESHER \?CCL6
|
|
ICALL2 WPRINTD,ACTOR
|
|
PRINTI " was sent to scout out the various paths, and returned a short while later. ""They all seem to lead up the mountain,"" he said. ""Perhaps it does not matter which one we take."""
|
|
JUMP ?CND4
|
|
?CCL6: ICALL2 WPRINTD,ACTOR
|
|
PRINTI " went ahead to scout the various paths, and returned a short while later. ""I have not been this far east in my travels,"" he said, ""I sense great danger here; I wish we did not have to guess which path to take up the mountain."""
|
|
?CND4: CRLF
|
|
CRLF
|
|
PRINTI """I fear that such a powerful Wizard as Astrix would try to defend himself against unwanted visitors,"" Praxix "
|
|
EQUAL? ACTOR,ESHER \?CCL9
|
|
PRINTI "countered"
|
|
JUMP ?CND7
|
|
?CCL9: PRINTI "said, echoing Minar's concerns"
|
|
?CND7: PRINTC 46
|
|
RTRUE
|
|
?CCL3: EQUAL? ACTION,LEFT-COMMAND \?CCL11
|
|
CALL2 AM-MOVE,0
|
|
RSTACK
|
|
?CCL11: EQUAL? ACTION,RIGHT-COMMAND \?CCL13
|
|
CALL2 AM-MOVE,1
|
|
RSTACK
|
|
?CCL13: EQUAL? ACTION,BACK-COMMAND \?CCL15
|
|
CALL2 AM-MOVE,-1
|
|
RSTACK
|
|
?CCL15: EQUAL? ACTION,CAST-COMMAND \?CCL17
|
|
EQUAL? ACTION-OBJECT,FAR-VISION-SPELL \?CCL17
|
|
CALL QSET?,FAR-VISION-SPELL,INCAPACITATED
|
|
ZERO? STACK \?CCL17
|
|
CALL1 ASTRIX-RESPONDS-TO-FLARE
|
|
RSTACK
|
|
?CCL17: EQUAL? ACTION,GIVE-UP-COMMAND \FALSE
|
|
ICALL2 HINT,HINT-WEBBA-MAP
|
|
REMOVE HINT-AVALANCHE
|
|
REMOVE HINT-MTN-LION
|
|
CALL1 GIVE-UP-ENDING
|
|
RSTACK
|
|
|
|
|
|
.FUNCT GIVE-UP-ENDING:ANY:0:0
|
|
PRINTI "I am sad to report that we never did reach Astrix, though we had travelled so far and accomplished so much. It was a sad retreat back to Lavos, and word of our failure spread throughout the land like a winter's gale. The end had come for our journey, and there would be no others."
|
|
CALL1 BAD-ENDING
|
|
RSTACK
|
|
|
|
|
|
.FUNCT AM-MOVE:ANY:1:1,LR
|
|
ICALL FORCE-TRAVEL-COMMAND,HERE,BACK-COMMAND
|
|
LESS? LR,0 \?CCL3
|
|
PRINTI "Unsure of whether our last decision was correct, we backtracked to "
|
|
SHIFT ASTRIX-MAZE-ROUTE,-1 >ASTRIX-MAZE-ROUTE
|
|
DEC 'ASTRIX-FORK
|
|
EQUAL? ASTRIX-MAZE-ROUTE,1 \?CCL6
|
|
ICALL CHANGE-TRAVEL-COMMAND,HERE,BACK-COMMAND,GIVE-UP-COMMAND
|
|
PRINTI "where all paths began, at the edge of the Great River."
|
|
RTRUE
|
|
?CCL6: PRINTI "the previous fork along the path."
|
|
RTRUE
|
|
?CCL3: SHIFT ASTRIX-MAZE-ROUTE,1
|
|
ADD STACK,LR >ASTRIX-MAZE-ROUTE
|
|
INC 'ASTRIX-FORK
|
|
EQUAL? ASTRIX-MAZE-ROUTE,ASTRIX-MAZE-PATH \?CCL9
|
|
FSET WEBBA-MAP,DONT-EXAMINE
|
|
CALL1 ARRIVE-AT-ASTRIX-TOWER
|
|
RSTACK
|
|
?CCL9: GRTR? ASTRIX-MAZE-ROUTE,63 \?CCL11
|
|
SET 'ASTRIX-MAZE-ROUTE,1
|
|
SET 'ASTRIX-FORK,1
|
|
ICALL CHANGE-TRAVEL-COMMAND,HERE,BACK-COMMAND,GIVE-UP-COMMAND
|
|
RANDOM 100
|
|
LESS? 50,STACK /?CCL14
|
|
CALL1 AM-LION
|
|
RSTACK
|
|
?CCL14: CALL1 AM-AVALANCHE
|
|
RSTACK
|
|
?CCL11: GET ASTRIX-MAZE-STR-1,ASTRIX-FORK
|
|
PRINT STACK
|
|
ZERO? LR \?CCL17
|
|
PRINTI "left"
|
|
JUMP ?CND15
|
|
?CCL17: PRINTI "right"
|
|
?CND15: PRINTI "hand path. "
|
|
GET ASTRIX-MAZE-STR-2,ASTRIX-FORK
|
|
PRINT STACK
|
|
RTRUE
|
|
|
|
|
|
.FUNCT AM-LION:ANY:0:0,FIP
|
|
CALL1 SPARE-VICTIM >FIP
|
|
PRINTI "Our path rose steeply for a short while, but the path ended abruptly. "
|
|
ZERO? FIP /?CCL3
|
|
ZERO? ASTRIX-TRAP \?CCL3
|
|
SET 'ASTRIX-TRAP,TRUE-VALUE
|
|
ICALL2 PARTY-REMOVE,FIP
|
|
ICALL2 HINT,HINT-MTN-LION
|
|
PRINTI "As "
|
|
ICALL2 WPRINTD,FIP
|
|
PRINTI " began clambering up the rock face, he was struck by a mountain lion, killing him instantly. The lion stood there before us, protecting his kill."
|
|
CALL2 CHECK-ESSENCES,FIRE-SPELL
|
|
ZERO? STACK /?CCL8
|
|
PRINTI " Praxix, quickly taking some fire essence from his pouch, cast it upon the lion, engulfing him in flame."
|
|
ICALL2 USE-ESSENCES,FIRE-SPELL
|
|
PRINTI " We buried poor "
|
|
ICALL2 WPRINTD,FIP
|
|
PRINTI " there, with Praxix performing the burial ritual. And then,"
|
|
JUMP ?CND1
|
|
?CCL8: PRINTI "With no magic that might help us retrieve "
|
|
ICALL2 WPRINTD,FIP
|
|
PRINTI "'s body,"
|
|
JUMP ?CND1
|
|
?CCL3: PRINTI """We shall be spending the next week climbing rock,"" Praxix said, ""I suggest trying another path."" I agreed, and"
|
|
?CND1: PRINTI " we slowly backtracked down the paths we had chosen, thereby reaching our starting point at the base of the mountain."
|
|
RTRUE
|
|
|
|
|
|
.FUNCT AM-AVALANCHE:ANY:0:0,FIP
|
|
PRINTI "Our chosen path wound its way steeply up the side of the mountain."
|
|
CALL1 SPARE-VICTIM >FIP
|
|
ZERO? FIP /?CCL3
|
|
ZERO? ASTRIX-TRAP \?CCL3
|
|
SET 'ASTRIX-TRAP,TRUE-VALUE
|
|
ICALL2 PARTY-REMOVE,FIP
|
|
ICALL2 HINT,HINT-AVALANCHE
|
|
PRINTI " With no warning, Praxix shouted, ""Down! Rocks!"" but "
|
|
ICALL2 WPRINTD,FIP
|
|
PRINTI " did not move quickly enough. A large rock struck him on the head, splitting his skull and knocking him off the path, and down into a deep gully."
|
|
CRLF
|
|
CRLF
|
|
ICALL UPDATE-FSET,HERE,DONT-SCOUT
|
|
CALL2 HAPPENED-QUICKLY,FIP
|
|
RSTACK
|
|
?CCL3: PRINTI " I was about to continue when Praxix grabbed me, pulling me out of the path of some large falling rocks. ""Let us try another path,"" he said. And so we made the long descent back to the river to attempt again to find the path to Astrix."
|
|
RTRUE
|
|
|
|
|
|
.FUNCT SPARE-VICTIM:ANY:0:0
|
|
FSET? MINAR,IN-PARTY \?CCL3
|
|
FSET? DWARF-MEETING,SEEN \?CCL3
|
|
RETURN MINAR
|
|
?CCL3: FSET? ESHER,IN-PARTY \?CCL7
|
|
RETURN ESHER
|
|
?CCL7: FSET? BERGON,IN-PARTY \FALSE
|
|
FSET? DWARF-MEETING,SEEN \FALSE
|
|
FSET? HIGH-PLAIN,SEEN \FALSE
|
|
RETURN BERGON
|
|
|
|
|
|
.FUNCT HAPPENED-QUICKLY:ANY:1:1,FIP
|
|
PRINTI "It had happened so quickly, we stood in stunned silence, staring at the place where "
|
|
ICALL2 WPRINTD,FIP
|
|
PRINTI " had met his end. ""We have come so far; this is a tragic blow!"" Praxix said, then performed a brief burial ritual. We descended all of the way back to our starting point at the river, but no words were spoken."
|
|
RTRUE
|
|
|
|
|
|
.FUNCT ARRIVE-AT-ASTRIX-TOWER:ANY:0:0,CNT,STN
|
|
CALL1 STONE-COUNT >CNT
|
|
SET '2ND-PASS,TRUE-VALUE
|
|
IN? HERMIT-POWDER,INVENTORY \?CND1
|
|
FSET HERMIT-POWDER,INCAPACITATED
|
|
?CND1: ICALL2 GRAPHIC,G-ASTRIX
|
|
PRINTI "For six long hours, we continued to climb steeply up the side of the Sunrise Mountain, and thus we came to the high tower of Astrix, the Wizard. No sooner had we arrived, than the tower's massive oak door opened."
|
|
CRLF
|
|
CRLF
|
|
PRINTI """I have been following your progress with great interest,"" the Wizard said, stroking his stringy gray beard. ""You are a very resourceful group, that is certain!"""
|
|
CRLF
|
|
CRLF
|
|
PRINTI "His voice then became dark. ""The question is: Have you mettle enough to make siege on the "
|
|
PRINT BAD-GUY
|
|
PRINTI " himself?"" And then, smiling, the darkness fell from his voice, and he answered his own question, ""We shall see, I suppose; we shall see."""
|
|
CRLF
|
|
CRLF
|
|
PRINTI "Leading us to his hearth, he sat us in a semi-circle around the blazing fire and spoke. ""There is a story I must tell, a story of Seven Stones. Created in a time lost to living memory, these Stones contained the very strength and essence of our world. Of the Seven, Four were entrusted to the races of men who could use them best: Elves, Dwarves, Nymphs, and Wizards."""
|
|
CRLF
|
|
CRLF
|
|
PRINTI """These are the Four: the Elf Stone, green as the forests of old, and the Dwarf Stone, brown as the caverns of Forn a-klamen; the Nymph Stone, blue as the deep waters of M'nera, and the Wizard Stone, red as the dark fire of Serdi."""
|
|
CRLF
|
|
CRLF
|
|
PRINTI """The four races are now sundered, and the Four have long been kept apart, but now, with the "
|
|
PRINT BAD-GUY
|
|
PRINTI " rearing his misshapen head in our lands, we must bring them together again. For with them, we can hope to find the Two, and then, finally, the One with whose help we can destroy all Evil."""
|
|
CRLF
|
|
CRLF
|
|
PRINTI """For it is told that having the Four, it is possible to find the Two; so, also, do the Two give witness to their master, the One that in elder days was called the Anvil!"""
|
|
CRLF
|
|
CRLF
|
|
GRTR? CNT,0 \?CND3
|
|
PRINTI """Do they look anything like this?"" I asked, sheepishly, holding up the "
|
|
CALL1 FIRST-STONE >STN
|
|
ICALL2 WPRINTD,STN
|
|
PRINTI " to Astrix' view."
|
|
CRLF
|
|
CRLF
|
|
PRINTI """You are too modest,"" he said, grinning widely, ""Yes, this is the "
|
|
CALL2 STONE-NAME,STN
|
|
PRINT STACK
|
|
PRINTI "."""
|
|
CRLF
|
|
CRLF
|
|
?CND3: GRTR? CNT,1 \?CND5
|
|
PRINTI """Oh,"" I said. ""And th"
|
|
EQUAL? CNT,2 \?CCL9
|
|
PRINTI "is"
|
|
JUMP ?CND7
|
|
?CCL9: PRINTI "ese"
|
|
?CND7: PRINTI "...?"""
|
|
CRLF
|
|
CRLF
|
|
PRINTI """Indeed, you have been busy,"" Astrix said, taking the stones, and slapping me heartily on the back."
|
|
CRLF
|
|
CRLF
|
|
?CND5: SET 'PASS-1-STONES,CNT
|
|
EQUAL? CNT,3 \?CND10
|
|
ICALL1 ASTRIX-SHOWS-STONE
|
|
RTRUE
|
|
?CND10: IN? NYMPH-STONE,INVENTORY \?CND12
|
|
REMOVE NYMPH-STONE
|
|
?CND12: IN? DWARF-STONE,INVENTORY \?CND14
|
|
REMOVE DWARF-STONE
|
|
?CND14: IN? ELF-STONE,INVENTORY \?CND16
|
|
REMOVE ELF-STONE
|
|
?CND16: FSET? DWARF-MEETING,SEEN /?CCL20
|
|
PRINTI "Astrix sat in deep thought, then spoke again. ""I am certain the Dwarves who still walk the dark caverns can be of help to us. I know of a gate...,"" Astrix said, and he proceeded to tell us where we might find entrance to the Dwarves' kingdom."
|
|
CRLF
|
|
CRLF
|
|
PRINTI "We trekked for five days until we reached the spot Astrix had sent us to; ironically, we were not far from the fork at Lavos where we had started our journey."
|
|
ICALL2 NEXT-DAY,5
|
|
FSET? CANYON-GATE,SCOUTED \?CCL23
|
|
ICALL TRAVEL-COMMANDS,CANYON-GATE,ENTER-COMMAND
|
|
JUMP ?CND21
|
|
?CCL23: ICALL2 TRAVEL-COMMANDS,CANYON-GATE
|
|
?CND21: CALL2 MOVE-TO,CANYON-GATE
|
|
RSTACK
|
|
?CCL20: FSET? HIGH-PLAIN,SEEN /?CCL25
|
|
PRINTI """There is a place,"" Astrix began, ""a place high in the mountains where we may find help in our cause."" He gave us directions, and sent us on our way."
|
|
CRLF
|
|
CRLF
|
|
PRINTI "We trekked for three days until we reached the high plain to which Astrix had sent us. Below, a large, clear lake sat in a bowl in the mountains."
|
|
ICALL2 NEXT-DAY,3
|
|
CALL2 MOVE-TO,HIGH-PLAIN
|
|
RSTACK
|
|
?CCL25: CALL2 RETURN-TO-ASTRIX-TOWER,TRUE-VALUE
|
|
RSTACK
|
|
|
|
|
|
.FUNCT STONE-COUNT:ANY:0:0,OBJ,CNT
|
|
FIRST? INVENTORY >OBJ /?PRG2
|
|
?PRG2: ZERO? OBJ \?CCL6
|
|
RETURN CNT
|
|
?CCL6: EQUAL? OBJ,DWARF-STONE,ELF-STONE,NYMPH-STONE \?CND4
|
|
INC 'CNT
|
|
?CND4: NEXT? OBJ >OBJ /?PRG2
|
|
JUMP ?PRG2
|
|
|
|
|
|
.FUNCT STONE-NAME:ANY:1:1,STN
|
|
GETP STN,P?STONE-NAME
|
|
RSTACK
|
|
|
|
|
|
.FUNCT FIRST-STONE:ANY:0:0,OBJ
|
|
FIRST? INVENTORY >OBJ /?PRG2
|
|
?PRG2: ZERO? OBJ /FALSE
|
|
EQUAL? OBJ,DWARF-STONE,ELF-STONE,NYMPH-STONE \?CND4
|
|
RETURN OBJ
|
|
?CND4: NEXT? OBJ >OBJ /?PRG2
|
|
JUMP ?PRG2
|
|
|
|
.ENDSEG
|
|
|
|
.ENDI
|