mirror of
https://github.com/historicalsource/journey
synced 2024-06-29 05:05:04 +03:00
279 lines
12 KiB
Plaintext
279 lines
12 KiB
Plaintext
|
|
||
|
.SEGMENT "0"
|
||
|
|
||
|
|
||
|
.FUNCT QSET?:ANY:2:2,OBJ,BIT
|
||
|
FSET? OBJ,BIT /TRUE
|
||
|
FSET OBJ,BIT
|
||
|
RFALSE
|
||
|
|
||
|
|
||
|
.FUNCT UPDATE-REMOVE:ANY:1:1,OBJ
|
||
|
CALL2 UPDATE-MOVE,OBJ
|
||
|
RSTACK
|
||
|
|
||
|
|
||
|
.FUNCT UPDATE-FSET:ANY:2:2,OBJ,BIT
|
||
|
SET 'UPDATE-FLAG,TRUE-VALUE
|
||
|
FSET OBJ,BIT
|
||
|
RTRUE
|
||
|
|
||
|
|
||
|
.FUNCT UPDATE-FCLEAR:ANY:2:2,OBJ,BIT
|
||
|
SET 'UPDATE-FLAG,TRUE-VALUE
|
||
|
FCLEAR OBJ,BIT
|
||
|
RTRUE
|
||
|
|
||
|
|
||
|
.FUNCT UPDATE-MOVE:ANY:0:2,OBJ,TO,L
|
||
|
ASSIGNED? 'OBJ /?CND1
|
||
|
SET 'OBJ,ACTION-OBJECT
|
||
|
?CND1: LOC OBJ >L
|
||
|
SET 'UPDATE-FLAG,TRUE-VALUE
|
||
|
ZERO? TO /?CCL5
|
||
|
MOVE OBJ,TO
|
||
|
RTRUE
|
||
|
?CCL5: REMOVE OBJ
|
||
|
RTRUE
|
||
|
|
||
|
|
||
|
.FUNCT ANONF-14:ANY:0:0
|
||
|
EQUAL? ACTION,DROP-COMMAND \?CCL3
|
||
|
CALL2 CHARACTER-HERE?,PRAXIX
|
||
|
ZERO? STACK /?CCL3
|
||
|
FSET SPYGLASS,TRIED
|
||
|
PRINTI "I don't know why, but I suddenly had the urge to lighten my pack at the expense of the spyglass that I had taken in the Dwarves' high tower. When Praxix saw what I was about to do, he urged me to keep it, saying it was a rare antiquity of great beauty and, perhaps, value."
|
||
|
RTRUE
|
||
|
?CCL3: EQUAL? ACTION,PICK-UP-COMMAND \FALSE
|
||
|
PRINTI "Although wiser minds than I had concluded that the spyglass was unfit for use, I was nonetheless taken by its beauty, and quietly placed it in my pack. I do not think the others noticed, or, if they did, they said nothing."
|
||
|
CALL UPDATE-MOVE,SPYGLASS,INVENTORY
|
||
|
RSTACK
|
||
|
|
||
|
|
||
|
.FUNCT ANONF-15:ANY:0:0
|
||
|
EQUAL? ACTION,EXAMINE-COMMAND \?CCL3
|
||
|
ICALL UPDATE-FSET,ACTION-OBJECT,DONT-EXAMINE
|
||
|
EQUAL? ACTOR,TAG \?CCL6
|
||
|
PRINTC 73
|
||
|
JUMP ?CND4
|
||
|
?CCL6: ICALL2 WPRINTD,ACTOR
|
||
|
?CND4: PRINTI " took a moment to admire the amulet. It was a small, golden orb, and in its center lay a clear stone whose color was like that of the deep oceans. Surrounding the stone were many hundreds of small, white diamonds, woven into an intricate pattern of great beauty."
|
||
|
RTRUE
|
||
|
?CCL3: EQUAL? ACTION,PICK-UP-COMMAND \?CCL8
|
||
|
FSET NYMPH-STONE,TRIED
|
||
|
ICALL UPDATE-MOVE,ACTION-OBJECT,INVENTORY
|
||
|
ICALL1 TREASURY-GRAPHIC
|
||
|
PRINTI "Unsure of the wisdom of my intentions, I nonetheless grasped the amulet and took it from atop its pedestal. To my surprise, no alarms rang and no guards charged into the chamber. I held firmly on to the amulet, and planned my escape."
|
||
|
RTRUE
|
||
|
?CCL8: EQUAL? ACTION,DROP-COMMAND \FALSE
|
||
|
PRINTI "Having done so much to obtain the amulet, it would have been foolish to put it down on the ground, so I resisted the temptation to do just that."
|
||
|
RTRUE
|
||
|
|
||
|
|
||
|
.FUNCT ANONF-16:ANY:0:0
|
||
|
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
|
||
|
EQUAL? ACTOR,TAG \?CCL6
|
||
|
PRINTI "I decided to check on the contents of the hermit's bag and found five smaller bags of powders, much like those used by Praxix. Presumably, Praxix would want to examine them himself."
|
||
|
JUMP ?CND4
|
||
|
?CCL6: EQUAL? ACTOR,PRAXIX /?CCL8
|
||
|
ICALL2 WPRINTD,ACTOR
|
||
|
PRINTI " looked in the bag, opened it, and sniffed its contents. ""Powders of some sort, I would guess,"" he said."
|
||
|
CRLF
|
||
|
CRLF
|
||
|
PRINTI "Praxix snatched the bag from "
|
||
|
ICALL2 WPRINTD,ACTOR
|
||
|
JUMP ?CND4
|
||
|
?CCL8: PRINTI "Praxix took the bag, opened it,"
|
||
|
?CND4: FSET HERMIT-POWDER,SEEN
|
||
|
ICALL2 UPDATE-MOVE,HERMIT-POWDER
|
||
|
ICALL FIND-ESSENCE,ESSENCE-WATER,3
|
||
|
ICALL FIND-ESSENCE,ESSENCE-AIR,2
|
||
|
ICALL FIND-ESSENCE,ESSENCE-FIRE,3
|
||
|
ICALL FIND-ESSENCE,ESSENCE-EARTH,4
|
||
|
PRINTI " and reached inside. Nodding his head knowingly, he pulled five smaller packets from the bag, and said, ""Magical powders. Garlimon was quite resourceful to have salvaged these from the carnage of his party. Perhaps it is the reason he has survived this long."" And then, examining the contents of each packet, he continued. ""The four basic essences are here: air, earth, fire, and water - of course, there's not much of any of them here. But this fifth powder..."" His voice trailed off as he gazed intently at the blue-green powder"
|
||
|
ZERO? PART-TWO /?CCL11
|
||
|
CALL QSET?,REAGENT,SOLVED
|
||
|
ZERO? STACK \?CND12
|
||
|
ICALL1 FIXUP-PRAXIX-COMMANDS
|
||
|
?CND12: PRINTI ". ""This must be the reagent that Astrix told us about. How silly of me to have forgotten to examine Garlimon's bag sooner!"""
|
||
|
JUMP ?CND9
|
||
|
?CCL11: EQUAL? HERE,HIGH-PLAIN \?CND14
|
||
|
PRINTI ", then turned his eyes back toward the hermit's hut"
|
||
|
?CND14: PRINTI ". ""I have never seen this before. Ah, well! Perhaps Astrix will know it."""
|
||
|
?CND9: PRINTI " And with that, he placed the powders among his own."
|
||
|
RTRUE
|
||
|
|
||
|
|
||
|
.FUNCT ANONF-17:ANY:0:0
|
||
|
EQUAL? ACTION,PICK-UP-COMMAND \?CCL3
|
||
|
ICALL UPDATE-MOVE,RED-ROCK,INVENTORY
|
||
|
FSET? RED-ROCK,DONT-EXAMINE \?CCL6
|
||
|
PRINTI "Praxix was very much more interested in the red rock than the miner, though he did not say why. Just in case, I picked up a few small rocks"
|
||
|
JUMP ?CND4
|
||
|
?CCL6: PRINTI "The red rocks intrigued me, so I picked a few up"
|
||
|
?CND4: PRINTI " and placed them in my pack for safe keeping."
|
||
|
FSET RED-ROCK,DONT-EXAMINE
|
||
|
FSET RED-ROCK,SOLVED
|
||
|
RTRUE
|
||
|
?CCL3: EQUAL? ACTION,EXAMINE-COMMAND \FALSE
|
||
|
ICALL UPDATE-FSET,ACTION-OBJECT,DONT-EXAMINE
|
||
|
ICALL2 WPRINTD,ACTOR
|
||
|
PRINTI " reached down to pick up the red rock, but was interrupted by the miner."
|
||
|
CRLF
|
||
|
CRLF
|
||
|
PRINTI """That, my friend, is what you might call junk rock,"" the miner said with an unmistakable tension in his voice. ""Pretty enough, but not worth a tinker's damn."""
|
||
|
RTRUE
|
||
|
|
||
|
|
||
|
.FUNCT ANONF-18:ANY:0:0
|
||
|
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
|
||
|
ICALL UPDATE-FSET,ACTION-OBJECT,DONT-EXAMINE
|
||
|
PRINTI "The amulet was a golden brown stone that had been set in another, darker stone, and hung at the end of a chain of gold."
|
||
|
RTRUE
|
||
|
|
||
|
|
||
|
.FUNCT ANONF-19:ANY:0:0
|
||
|
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
|
||
|
ICALL UPDATE-FSET,ACTION-OBJECT,DONT-EXAMINE
|
||
|
PRINTI "The stone in the amulet that N'dar had given us was a rich green, like that of the forest itself, and hung on a single strand of some vine-like material that was unfamiliar to me; certainly, no such thing grew back in the plains."
|
||
|
RTRUE
|
||
|
|
||
|
|
||
|
.FUNCT ANONF-20:ANY:0:0,TMP
|
||
|
EQUAL? ACTION,EXAMINE-COMMAND \?CCL3
|
||
|
EQUAL? HERE,WEBBAS \?CCL6
|
||
|
FSET WEBBA-MAP,DONT-EXAMINE
|
||
|
IN? WEBBA-MAP,INVENTORY /?CND7
|
||
|
PRINTI "Praxix expressed a keen interest in the map, and Webba obliged him by taking the old parchment from the wall and, not letting it out of his grasp, holding it up before the Wizard. "
|
||
|
?CND7: ICALL2 SINGLE-MOVE-GRAPHIC,G-MAP
|
||
|
PRINTI "The map was old and worn, and of a land unknown to us. Suddenly looking grave, Webba asked, ""So you're going on... to the Outlands?"""
|
||
|
CALL OPTION,ACTOR,REPLY-COMMAND,IGNORE-COMMAND
|
||
|
RSTACK
|
||
|
?CCL6: ICALL UPDATE-FSET,ACTION-OBJECT,DONT-EXAMINE
|
||
|
FSET? WEBBA-MAP,ENCHANTED /?CND9
|
||
|
PRINTI "As we stood, unsure of which way to proceed, I was asked by "
|
||
|
ICALL2 WPRINTD,ACTOR
|
||
|
PRINTI " to bring out the map we had bought at Webba's. Removing it from my pack, I unfolded it and handed it to him."
|
||
|
CRLF
|
||
|
CRLF
|
||
|
?CND9: FSET? WEBBA-MAP,INCAPACITATED \?CND11
|
||
|
ICALL2 UPDATE-REMOVE,WEBBA-MAP
|
||
|
PRINTI """Why, this is terrible,"" he said, looking at the mud-soaked and hopelessly damaged map. My fears in the mossy, underground maze had been realized, and I tossed the map away in disgust."
|
||
|
EQUAL? HERE,ASTRIX-MAZE /TRUE
|
||
|
PRINTI " All we could do was hope the map wouldn't be needed."
|
||
|
RTRUE
|
||
|
?CND11: EQUAL? HERE,SUNSET-TOWER \?CCL17
|
||
|
PRINTI """Yes,"" Praxix said, looking over the map. ""The paths on the map are there, across the great river. They appear to lead to the tower of Astrix - it is a good thing we bought the map after all!"
|
||
|
?CND15: FSET? WEBBA-MAP,DEAD \?CND19
|
||
|
ICALL UPDATE-FSET,WEBBA-MAP,DONT-EXAMINE
|
||
|
ICALL2 SINGLE-MOVE-GRAPHIC,G-MAP
|
||
|
PRINTI "Once again, we examined the map carefully, but could discern no method by which we could determine the correct path to Astrix' tower."
|
||
|
CRLF
|
||
|
CRLF
|
||
|
PRINTI """The map is of no use to us,"" Praxix said finally, and he was right."
|
||
|
RTRUE
|
||
|
?CCL17: EQUAL? HERE,ASTRIX-MAZE /?CND15
|
||
|
PRINTI "His eyes darted from the map to our surroundings, and back again to the map. Then, he slowly shook his head in the negative. ""The map indicates both a river and mountain paths,"" he said. ""It would seem that the map refers to someplace else."" Discouraged, I took back the map and returned it to my pack."
|
||
|
RTRUE
|
||
|
?CND19: PRINTI """Yes!"" he said, knowingly. ""There is the river we crossed with the forest behind it, and the mountains - here - lie ahead of us."""
|
||
|
CRLF
|
||
|
CRLF
|
||
|
FSET? WEBBA-MAP,SOLVED \?CCL23
|
||
|
FSET WEBBA-MAP,BLUE-MIX
|
||
|
PRINTI """And these runes here, the ones which are glowing faintly,"" Praxix began, ""These mark the path we are to take."
|
||
|
EQUAL? ASTRIX-MAZE-ROUTE,1 /?CND24
|
||
|
PRINTI " Of course, we'll have to backtrack to the river first, but no matter."
|
||
|
?CND24: PRINTI """ "
|
||
|
CALL1 ARRIVE-AT-ASTRIX-TOWER
|
||
|
RSTACK
|
||
|
?CCL23: FSET WEBBA-MAP,DEAD
|
||
|
ICALL2 SINGLE-MOVE-GRAPHIC,G-MAP
|
||
|
PRINTI """But which path is the right one?"" I asked, pointing at the bewildering array of marks which adorned each and every fork."
|
||
|
CRLF
|
||
|
CRLF
|
||
|
PRINTI """I'm afraid we cannot know,"" Praxix admitted. ""Perhaps they are all good paths,"" he added, with little conviction."
|
||
|
RTRUE
|
||
|
?CCL3: EQUAL? ACTION,BUY-COMMAND \FALSE
|
||
|
PRINTI "Not knowing if it would ever be of use to us, we nevertheless decided to buy the strange map."
|
||
|
CRLF
|
||
|
CRLF
|
||
|
GETP HERE,P?TEMP >TMP
|
||
|
ZERO? TMP /?CND28
|
||
|
ICALL1 CLEAR-BUSY
|
||
|
PRINTI "Just then, "
|
||
|
ICALL2 WPRINTD,TMP
|
||
|
PRINTI ", having concluded his survey of the shop, wandered back into our midst and stared blankly at the parchment. "
|
||
|
ICALL CHANGE-CIT,TMP,1,NUL-COMMAND
|
||
|
?CND28: PRINTI """Rivers, forests, and mountains,"" "
|
||
|
ZERO? TMP /?CCL32
|
||
|
PRINTI "he"
|
||
|
JUMP ?CND30
|
||
|
?CCL32: PRINTI "Esher"
|
||
|
?CND30: PRINTI " said sourly, glancing at the map as I stowed it away in my pack, ""Why, this place could be anywhere!"""
|
||
|
CRLF
|
||
|
CRLF
|
||
|
PRINTI """Yes,"" answered Praxix, ""and I fear that is precisely where we are headed."""
|
||
|
CALL UPDATE-MOVE,WEBBA-MAP,INVENTORY
|
||
|
RSTACK
|
||
|
|
||
|
|
||
|
.FUNCT ANONF-21:ANY:0:0
|
||
|
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
|
||
|
ICALL UPDATE-FSET,ACTION-OBJECT,DONT-EXAMINE
|
||
|
GETP HERE,P?TEMP
|
||
|
EQUAL? ACTOR,STACK \?CCL6
|
||
|
ICALL2 WPRINTD,ACTOR
|
||
|
PRINTI " asked us to look over the key more closely. We did, reporting back into the hole that it had no markings, and, given its enormous size, must have been intended for a door of similar proportions."
|
||
|
RTRUE
|
||
|
?CCL6: ICALL2 WPRINTD,ACTOR
|
||
|
PRINTI " took the key and looked it over. It was ludicrously large and without markings; the door it was intended to open would presumably match it in proportions."
|
||
|
RTRUE
|
||
|
|
||
|
|
||
|
.FUNCT ANONF-22:ANY:0:0
|
||
|
EQUAL? ACTION,EXAMINE-COMMAND /?CCL3
|
||
|
EQUAL? ACTION,PICK-UP-COMMAND \FALSE
|
||
|
?CCL3: ICALL UPDATE-FSET,SPIRIT-STONE,DONT-EXAMINE
|
||
|
ICALL UPDATE-MOVE,SPIRIT-STONE,INVENTORY
|
||
|
EQUAL? ACTION,PICK-UP-COMMAND \?CCL8
|
||
|
PRINTC 73
|
||
|
JUMP ?CND6
|
||
|
?CCL8: ICALL2 WPRINTD,ACTOR
|
||
|
?CND6: PRINTI " took the white stone from around the neck of Cedrith and held it up before him."
|
||
|
CRLF
|
||
|
CRLF
|
||
|
PRINTI """It is weightless, or so it seems,"" "
|
||
|
EQUAL? ACTION,PICK-UP-COMMAND \?CCL11
|
||
|
PRINTC 73
|
||
|
JUMP ?CND9
|
||
|
?CCL11: PRINTI "he"
|
||
|
?CND9: PRINTI " said, suddenly filled with fear."
|
||
|
EQUAL? PRAXIX,ACTOR /?CCL14
|
||
|
CRLF
|
||
|
CRLF
|
||
|
JUMP ?CND12
|
||
|
?CCL14: PRINTC 32
|
||
|
?CND12: PRINTI """It is not of this world!"""
|
||
|
EQUAL? PRAXIX,ACTOR /?CND15
|
||
|
PRINTI " Praxix responded, taking it in his hand."
|
||
|
?CND15: CRLF
|
||
|
CRLF
|
||
|
PRINTI """If I heard Astrix correctly, this stone is one of the Two."
|
||
|
FSET? STORY-CEDRITH,EXAMINED \?CCL19
|
||
|
PRINTI " Cedrith's prize,"" Praxix said, holding up the white stone."
|
||
|
JUMP ?CND17
|
||
|
?CCL19: PRINTC 34
|
||
|
?CND17: PRINTI " He handed it to me, and I placed it securely in my pack."
|
||
|
RTRUE
|
||
|
|
||
|
|
||
|
.FUNCT ANONF-23:ANY:0:0
|
||
|
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
|
||
|
ICALL UPDATE-FSET,ACTION-OBJECT,DONT-EXAMINE
|
||
|
PRINTI "Praxix peered into the round, black stone, and as he did, its blackness grew deeper and darker until Praxix was certain he had gone completely blind. He pressed his eyes tightly closed and thrust the stone within his cloak; when he opened his eyes, his vision had been restored."
|
||
|
RTRUE
|
||
|
|
||
|
.ENDSEG
|
||
|
|
||
|
.ENDI
|