mirror of
https://github.com/historicalsource/journey
synced 2024-06-29 05:05:04 +03:00
531 lines
17 KiB
Plaintext
531 lines
17 KiB
Plaintext
|
|
||
|
.SEGMENT "RIVER"
|
||
|
|
||
|
|
||
|
.FUNCT ANONF-137:ANY:0:0
|
||
|
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
|
||
|
ICALL1 CLEAR-EXBIT
|
||
|
ICALL2 WPRINTD,ACTOR
|
||
|
GETP ACTION-OBJECT,P?EXBITS
|
||
|
ZERO? STACK \?CND4
|
||
|
PRINTI ", on the other hand,"
|
||
|
?CND4: EQUAL? ACTOR,PRAXIX \?CCL8
|
||
|
PRINTI " felt the raft was sturdy enough for an uneventful trip, though it would probably not fare so well in heavy or rocky waters. Nonetheless, as our only way of crossing the river, it would have to serve."
|
||
|
RTRUE
|
||
|
?CCL8: PRINTI " was doubtful that we would live to see the far side of the river since, in his words, the raft ""probably would not survive a good minute in a bathtub."""
|
||
|
RTRUE
|
||
|
|
||
|
|
||
|
.FUNCT RIVER-N-ENTER:ANY:0:1,GFX?
|
||
|
ASSIGNED? 'GFX? /?CND1
|
||
|
SET 'GFX?,TRUE-VALUE
|
||
|
?CND1: ZERO? GFX? /?CND3
|
||
|
ICALL2 GRAPHIC,G-RIVER
|
||
|
?CND3: FSET? RAFT,SEEN \?CND5
|
||
|
EQUAL? HERE,RIVER-FALLS /?CND5
|
||
|
MOVE RAFT,HERE
|
||
|
ICALL CHANGE-PARTY-COMMAND,BUILD-RAFT-COMMAND,LAUNCH-RAFT-COMMAND
|
||
|
?CND5: MOVE RIVER,HERE
|
||
|
EQUAL? HERE,RIVER-FALLS \FALSE
|
||
|
FSET FALLS,SEEN
|
||
|
MOVE FALLS,HERE
|
||
|
RTRUE
|
||
|
|
||
|
|
||
|
.FUNCT ANONF-138:ANY:0:0
|
||
|
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
|
||
|
ICALL UPDATE-FSET,ACTION-OBJECT,DONT-EXAMINE
|
||
|
ICALL2 WPRINTD,ACTOR
|
||
|
PRINTI " motioned "
|
||
|
CALL2 ME/US,2
|
||
|
PRINT STACK
|
||
|
PRINTI " to the edge of the falls. They were both beautiful and terrible; a raging, boiling fury the like of which we had not experienced before. At the bottom, the troubled river was crowned with a misty rainbow; from there, the water tumbled over jagged rocks as it flowed out of sight into a narrow, winding gorge."
|
||
|
RTRUE
|
||
|
|
||
|
|
||
|
.FUNCT ANONF-139:ANY:0:0
|
||
|
EQUAL? ACTION,EXAMINE-COMMAND \FALSE
|
||
|
FSET? RIVER,EXAMINED /FALSE
|
||
|
ICALL UPDATE-FSET,RIVER,DONT-EXAMINE
|
||
|
ICALL2 WPRINTD,ACTOR
|
||
|
PRINTI " ripped a small branch from a nearby tree and cast it into the river. Within moments, it had been carried out of sight. ""It is as I feared. The river flows with great speed."
|
||
|
FSET? FALLS,SEEN \?CCL8
|
||
|
PRINTI " How shall we cross without being carried over the falls?"" He got no answer."
|
||
|
RTRUE
|
||
|
?CCL8: EQUAL? ACTOR,PRAXIX \?CCL10
|
||
|
PRINTI " We shall not cross before we have been taken far downstream."""
|
||
|
RTRUE
|
||
|
?CCL10: EQUAL? ACTOR,ESHER \TRUE
|
||
|
PRINTI " We will not survive the crossing!"""
|
||
|
RTRUE
|
||
|
|
||
|
|
||
|
.FUNCT ANONF-140:ANY:0:0
|
||
|
EQUAL? ACTION,CAST-COMMAND \?CCL3
|
||
|
CALL1 SHORE-CAST
|
||
|
RSTACK
|
||
|
?CCL3: EQUAL? ACTION,DOWNSTREAM-COMMAND \?CCL5
|
||
|
CALL2 SHORE-MOVE,RIVER-2
|
||
|
RSTACK
|
||
|
?CCL5: EQUAL? ACTION,UPSTREAM-COMMAND \FALSE
|
||
|
ICALL1 REMOVE-TRAVEL-COMMAND
|
||
|
ICALL1 RIVER-N-ENTER
|
||
|
PRINTI "Exploring the shore upstream of our position, we quickly found it too rocky for use as any sort of raft launching site, and it was decided to go no further."
|
||
|
RTRUE
|
||
|
|
||
|
|
||
|
.FUNCT ANONF-141:ANY:0:0
|
||
|
EQUAL? ACTION,CAST-COMMAND \?CCL3
|
||
|
CALL1 SHORE-CAST
|
||
|
RSTACK
|
||
|
?CCL3: EQUAL? ACTION,DOWNSTREAM-COMMAND \?CCL5
|
||
|
CALL2 SHORE-MOVE,RIVER-3
|
||
|
RSTACK
|
||
|
?CCL5: EQUAL? ACTION,UPSTREAM-COMMAND \?CCL7
|
||
|
CALL2 SHORE-MOVE,RIVER-1
|
||
|
RSTACK
|
||
|
?CCL7: EQUAL? ACTION,SCOUT-COMMAND \FALSE
|
||
|
ICALL UPDATE-FSET,HERE,DONT-SCOUT
|
||
|
FSET HERE,SCOUTED
|
||
|
CALL1 SHORE-SCOUT
|
||
|
RSTACK
|
||
|
|
||
|
|
||
|
.FUNCT SHORE-SCOUT:ANY:0:0
|
||
|
FSET RIVER-2,DONT-SCOUT
|
||
|
FSET RIVER-3,DONT-SCOUT
|
||
|
FSET? RIVER-FALLS,SEEN /FALSE
|
||
|
EQUAL? ACTOR,ESHER \?CCL6
|
||
|
ICALL2 WPRINTD,ACTOR
|
||
|
PRINTI " made his way downstream along the shore, finally leaving our sight as followed the river's edge around a corner. He returned a few minutes later, out of breath. ""A falls!"" he said. ""Not far downstream!"""
|
||
|
RTRUE
|
||
|
?CCL6: ICALL2 WPRINTD,ACTOR
|
||
|
PRINTI " nimbly followed the river's edge out of sight. A minute later, he returned, reporting a large waterfall just downstream from where we stood."
|
||
|
RTRUE
|
||
|
|
||
|
|
||
|
.FUNCT ANONF-142:ANY:0:0
|
||
|
EQUAL? ACTION,CAST-COMMAND \?CCL3
|
||
|
CALL1 SHORE-CAST
|
||
|
RSTACK
|
||
|
?CCL3: EQUAL? ACTION,DOWNSTREAM-COMMAND \?CCL5
|
||
|
CALL2 SHORE-MOVE,RIVER-FALLS
|
||
|
RSTACK
|
||
|
?CCL5: EQUAL? ACTION,UPSTREAM-COMMAND \?CCL7
|
||
|
CALL2 SHORE-MOVE,RIVER-2
|
||
|
RSTACK
|
||
|
?CCL7: EQUAL? ACTION,SCOUT-COMMAND \FALSE
|
||
|
ICALL UPDATE-FSET,HERE,DONT-SCOUT
|
||
|
FSET HERE,SCOUTED
|
||
|
CALL1 SHORE-SCOUT
|
||
|
RSTACK
|
||
|
|
||
|
|
||
|
.FUNCT ANONF-143:ANY:0:0
|
||
|
CALL2 RIVER-N-ENTER,FALSE-VALUE
|
||
|
RSTACK
|
||
|
|
||
|
|
||
|
.FUNCT ANONF-144:ANY:0:0
|
||
|
EQUAL? ACTION,UPSTREAM-COMMAND \FALSE
|
||
|
CALL2 SHORE-MOVE,RIVER-3
|
||
|
RSTACK
|
||
|
|
||
|
|
||
|
.FUNCT SHORE-CAST:ANY:0:0
|
||
|
EQUAL? ACTION-OBJECT,WIND-SPELL /?PRD5
|
||
|
EQUAL? ACTION-OBJECT,LEVITATE-SPELL \FALSE
|
||
|
?PRD5: CALL QSET?,RIVER-1,TRIED
|
||
|
ZERO? STACK \FALSE
|
||
|
PRINTI """Perhaps,"" "
|
||
|
FSET? BERGON,IN-PARTY \?CCL10
|
||
|
PRINTI "Bergon"
|
||
|
JUMP ?CND8
|
||
|
?CCL10: PRINTC 73
|
||
|
?CND8: PRINTI " suggested, turning to Praxix, ""there is some magic that could propel us across the river."""
|
||
|
CRLF
|
||
|
CRLF
|
||
|
PRINTI """I have already considered this,"" Praxix replied. ""But the river is far too wide to attempt sending even one of us across."""
|
||
|
RTRUE
|
||
|
|
||
|
|
||
|
.FUNCT SHORE-MOVE:ANY:1:1,RM,TMP
|
||
|
ZERO? LAST-SHORE-MOVE \?CCL3
|
||
|
PRINTI "Not knowing which way was best, we headed "
|
||
|
JUMP ?CND1
|
||
|
?CCL3: EQUAL? LAST-SHORE-MOVE,ACTION \?CCL5
|
||
|
PRINTI "We continued "
|
||
|
JUMP ?CND1
|
||
|
?CCL5: PRINTI "Then, we turned around and walked "
|
||
|
?CND1: SET 'LAST-SHORE-MOVE,ACTION
|
||
|
EQUAL? ACTION,UPSTREAM-COMMAND \?CCL8
|
||
|
PRINTI "up"
|
||
|
JUMP ?CND6
|
||
|
?CCL8: PRINTI "down"
|
||
|
?CND6: PRINTI "stream along the shore"
|
||
|
IN? RAFT,HERE \?CND9
|
||
|
EQUAL? RM,RIVER-FALLS /?CND9
|
||
|
PRINTI ", dragging the raft along with us,"
|
||
|
?CND9: EQUAL? RM,RIVER-2 \?CCL15
|
||
|
PRINTI " and finally arrived back at our starting point along the shore."
|
||
|
JUMP ?CND13
|
||
|
?CCL15: EQUAL? HERE,RIVER-FALLS \?CCL17
|
||
|
PRINTI ", clambering down the rocks and back to the river's edge."
|
||
|
JUMP ?CND13
|
||
|
?CCL17: EQUAL? RM,RIVER-1 \?CCL19
|
||
|
FSET? RM,SEEN /?CCL22
|
||
|
PRINTI " to"
|
||
|
JUMP ?CND20
|
||
|
?CCL22: PRINTI " and were soon back at"
|
||
|
?CND20: PRINTI " the furthest point easily accessible on foot. From here, the river appeared quieter than at the place we had started."
|
||
|
JUMP ?CND13
|
||
|
?CCL19: EQUAL? RM,RIVER-FALLS \?CCL24
|
||
|
PRINTI ", as we followed the curve of the river to the right. The river's edge grew more rugged, and we needed to clamber up some rocks before we reached an outcropping high above a towering falls."
|
||
|
FSET? ESHER,IN-PARTY \?CND25
|
||
|
FSET FALLS,EXAMINED
|
||
|
CRLF
|
||
|
CRLF
|
||
|
PRINTI """It's wonderful!"" I said. ""No, not wonderful."" Esher replied, frowning. ""Dangerous... deadly..."" He had turned pale, almost ashen, as he spoke, his eyes tranfixed on the torrent that roared beneath us."
|
||
|
?CND25: IN? RAFT,RIVER-3 \?CND13
|
||
|
FSET? BERGON,IN-PARTY \?CND13
|
||
|
FSET? RM,SEEN /?CND13
|
||
|
CRLF
|
||
|
CRLF
|
||
|
PRINTI """We had best cross the river quickly."" Bergon said. ""I would not like to think of the alternative."""
|
||
|
JUMP ?CND13
|
||
|
?CCL24: FSET? RM,SEEN /?CCL33
|
||
|
PRINTI ". The river moved more swiftly here, and the sound of rushing water became ever louder as we progressed. Just ahead, the river curved to the right and out of sight."
|
||
|
JUMP ?CND13
|
||
|
?CCL33: PRINTI " to the point at which the river started its curve to the right."
|
||
|
?CND13: FSET RM,SEEN
|
||
|
CALL2 MOVE-TO,RM
|
||
|
RSTACK
|
||
|
|
||
|
|
||
|
.FUNCT ANONF-145:ANY:0:0
|
||
|
GETP HERE,P?TEMP
|
||
|
MOD STACK,5
|
||
|
EQUAL? STACK,4 \FALSE
|
||
|
MOVE FALLS,HERE
|
||
|
RTRUE
|
||
|
|
||
|
|
||
|
.FUNCT ANONF-146:ANY:0:0
|
||
|
FSET? HERE,ENCHANTED \?CCL3
|
||
|
FCLEAR HERE,ENCHANTED
|
||
|
EQUAL? ACTION,CAST-COMMAND \?CCL6
|
||
|
EQUAL? ACTION-OBJECT,WIND-SPELL \?CCL6
|
||
|
ICALL2 USE-ESSENCES,WIND-SPELL
|
||
|
GETP HERE,P?TEMP
|
||
|
GRTR? STACK,13 \?CCL11
|
||
|
PRINTI "Using more air essence than he would have liked, Praxix cast a wind spell at the levitated raft, blowing it (and us) across to the far shore of the river, where we tumbled onto the ground."
|
||
|
CALL1 CROSSED-RIVER
|
||
|
RSTACK
|
||
|
?CCL11: PRINTI "It was far too risky to try blowing us across the entire expanse of river, but there was enough air essence in Praxix' pouch to propel us back to the near shore, where we landed in a twisted heap, destroying the raft entirely."
|
||
|
FCLEAR RAFT,SEEN
|
||
|
CALL2 MOVE-TO,RIVER-2
|
||
|
RSTACK
|
||
|
?CCL6: PRINTI "It wasn't long before we found out. We watched, helplessly as our raft sank down into the churning waters and started drifting downstream. "
|
||
|
SET 'ACTION,UPSTREAM-COMMAND
|
||
|
CALL2 RIVER-MOVE,1
|
||
|
RSTACK
|
||
|
?CCL3: EQUAL? ACTION,CROSS-COMMAND \?CCL13
|
||
|
CALL2 RIVER-MOVE,6
|
||
|
RSTACK
|
||
|
?CCL13: EQUAL? ACTION,DOWNSTREAM-COMMAND \?CCL15
|
||
|
CALL2 RIVER-MOVE,1
|
||
|
RSTACK
|
||
|
?CCL15: EQUAL? ACTION,UPSTREAM-COMMAND \?CCL17
|
||
|
CALL2 RIVER-MOVE,1
|
||
|
RSTACK
|
||
|
?CCL17: EQUAL? ACTION,RETURN-COMMAND \?CCL19
|
||
|
CALL2 RIVER-MOVE,-4
|
||
|
RSTACK
|
||
|
?CCL19: EQUAL? ACTION,CAST-COMMAND \?CCL21
|
||
|
EQUAL? ACTION-OBJECT,RAIN-SPELL \?CCL21
|
||
|
ICALL1 SAVE-SPELL
|
||
|
REMOVE HYE-RIVER
|
||
|
PRINTI "It wasn't particularly funny when Praxix cast his rain spell and the level of the river grew even higher."
|
||
|
CRLF
|
||
|
CRLF
|
||
|
FSET? ESHER,IN-PARTY \?CCL26
|
||
|
PRINTI """Will somebody take that child's toys away from him?"" Esher snarled."
|
||
|
RTRUE
|
||
|
?CCL26: PRINTI """I think we've had enough magic for the present,"" Bergon said, trying his best to conceal his anger."
|
||
|
RTRUE
|
||
|
?CCL21: EQUAL? ACTION,CAST-COMMAND \?CCL28
|
||
|
EQUAL? ACTION-OBJECT,LEVITATE-SPELL \?CCL28
|
||
|
FSET? HERE,TRAPPED \?CCL28
|
||
|
CALL QSET?,HERE,ENCHANTED
|
||
|
ZERO? STACK \?CCL28
|
||
|
PRINTI "Praxix hurriedly attempted to cast an elevation spell to forestall our encounter with the falls, and this he accomplished not a moment before we were to plunge over the falls."
|
||
|
FSET? BERGON,IN-PARTY \FALSE
|
||
|
CRLF
|
||
|
CRLF
|
||
|
PRINTI """Out of curiosity,"" Bergon asked, turning to Praxix, ""what happens when the enchantment wears off?"""
|
||
|
RTRUE
|
||
|
?CCL28: EQUAL? ACTION,CAST-COMMAND \FALSE
|
||
|
EQUAL? ACTION-OBJECT,LEVITATE-SPELL \FALSE
|
||
|
ICALL1 SAVE-SPELL
|
||
|
ICALL1 UNUSE-ESSENCES
|
||
|
PRINTI "Praxix thought to cast his elevation spell on the raft, but the situation was not yet serious enough to take such a risk."
|
||
|
RTRUE
|
||
|
|
||
|
|
||
|
.FUNCT ANONF-147:ANY:0:0
|
||
|
CALL QSET?,HERE,SEEN
|
||
|
ZERO? STACK /?CND1
|
||
|
PRINTI " But this was to be our last attempt at crossing: the river had beaten us."
|
||
|
ICALL1 DIVIDER
|
||
|
ICALL1 GIVE-UP-ENDING
|
||
|
RTRUE
|
||
|
?CND1: ICALL2 UPDATE-REMOVE,RAFT
|
||
|
FCLEAR RAFT,SEEN
|
||
|
ZERO? FALLS-VICTIM \FALSE
|
||
|
CALL2 REMOVE-PARTY-COMMAND,COMB-AREA-COMMAND
|
||
|
RSTACK
|
||
|
|
||
|
|
||
|
.FUNCT ANONF-148:ANY:0:0
|
||
|
EQUAL? ACTION,SCOUT-COMMAND \?CCL3
|
||
|
ICALL UPDATE-FSET,HERE,DONT-SCOUT
|
||
|
FSET HERE,SCOUTED
|
||
|
CALL1 FALLS-SCOUT
|
||
|
RSTACK
|
||
|
?CCL3: EQUAL? ACTION,COMB-AREA-COMMAND \?CCL5
|
||
|
CALL1 FALLS-COMB
|
||
|
RSTACK
|
||
|
?CCL5: EQUAL? ACTION,UP-COMMAND \FALSE
|
||
|
SET 'FALLS-VICTIM,FALSE-VALUE
|
||
|
ICALL1 NEXT-DAY
|
||
|
FCLEAR RAFT,SEEN
|
||
|
CALL MOVE-TO,RIVER-FALLS,STR?458
|
||
|
RSTACK
|
||
|
|
||
|
|
||
|
.FUNCT FALLS-COMB:ANY:0:0
|
||
|
ICALL2 REMOVE-PARTY-COMMAND,COMB-AREA-COMMAND
|
||
|
PRINTI "Stumbling through the rocky shore, we spread out in search of "
|
||
|
ICALL2 WPRINTD,FALLS-VICTIM
|
||
|
PRINTI "; after an hour with no results, we regrouped."
|
||
|
CRLF
|
||
|
CRLF
|
||
|
PRINTI """I fear we have lost our friend, but we must go on without him."" Bergon said. ""He would wish it so."""
|
||
|
EQUAL? FALLS-VICTIM,ESHER \TRUE
|
||
|
FSET? FALLS,EXAMINED \TRUE
|
||
|
CRLF
|
||
|
CRLF
|
||
|
PRINTI "I thought back to what Esher had said earlier - could he have known what fate was in store for him?"
|
||
|
RTRUE
|
||
|
|
||
|
|
||
|
.FUNCT ANONF-149:ANY:0:0
|
||
|
ZERO? FALLS-VICTIM \FALSE
|
||
|
CALL2 REMOVE-PARTY-COMMAND,COMB-AREA-COMMAND
|
||
|
RSTACK
|
||
|
|
||
|
|
||
|
.FUNCT ANONF-150:ANY:0:0
|
||
|
EQUAL? ACTION,SCOUT-COMMAND \?CCL3
|
||
|
ICALL UPDATE-FSET,HERE,DONT-SCOUT
|
||
|
FSET HERE,SCOUTED
|
||
|
CALL1 FALLS-SCOUT
|
||
|
RSTACK
|
||
|
?CCL3: EQUAL? ACTION,COMB-AREA-COMMAND \?CCL5
|
||
|
CALL1 FALLS-COMB
|
||
|
RSTACK
|
||
|
?CCL5: EQUAL? ACTION,UP-COMMAND \FALSE
|
||
|
ICALL1 NEXT-DAY
|
||
|
PRINTI "Scrambling up the rocks, we came to the top of the falls. Exhausted and hurt, we quickly fell asleep and did not rise until late the next morning."
|
||
|
CRLF
|
||
|
CRLF
|
||
|
CALL1 GO-TO-ASTRIX-MAZE
|
||
|
RSTACK
|
||
|
|
||
|
|
||
|
.FUNCT GO-TO-ASTRIX-MAZE:ANY:0:0
|
||
|
PRINTI "The next day, we started toward the mountains upon a well-travelled path. By mid-morning, having climbed well into the foothills of the Sunrise Mountain, we came to the first of what was destined to be many forks."
|
||
|
CALL2 MOVE-TO,ASTRIX-MAZE
|
||
|
RSTACK
|
||
|
|
||
|
|
||
|
.FUNCT FALLS-SCOUT:ANY:0:0
|
||
|
ICALL2 WPRINTD,ACTOR
|
||
|
PRINTI " went ahead, scouting out the area, while the rest of us tended to our wounds. ""The shore goes only a short ways before the river enters a deep gorge."" he said, upon returning."
|
||
|
ZERO? FALLS-VICTIM /TRUE
|
||
|
PRINTI " ""I found no sign of "
|
||
|
ICALL2 WPRINTD,FALLS-VICTIM
|
||
|
PRINTI "."""
|
||
|
CRLF
|
||
|
CRLF
|
||
|
PRINTI "I walked to the river's edge, and gazed up at the deadly falls. ""I hope it is we who are the lucky ones!"" I said, thinking of the dangers to come."
|
||
|
RTRUE
|
||
|
|
||
|
|
||
|
.FUNCT FIRST-IN-PARTY:ANY:2:4,CHR1,CHR2,CHR3,CHR4
|
||
|
FSET? CHR1,IN-PARTY \?CCL3
|
||
|
RETURN CHR1
|
||
|
?CCL3: FSET? CHR2,IN-PARTY \?CCL5
|
||
|
RETURN CHR2
|
||
|
?CCL5: ZERO? CHR3 /?CCL7
|
||
|
FSET? CHR3,IN-PARTY \?CCL7
|
||
|
RETURN CHR3
|
||
|
?CCL7: ZERO? CHR4 /FALSE
|
||
|
FSET? CHR4,IN-PARTY \FALSE
|
||
|
RETURN CHR4
|
||
|
|
||
|
|
||
|
.FUNCT CROSSED-RIVER:ANY:0:0
|
||
|
CRLF
|
||
|
CRLF
|
||
|
PRINTI """That was enough excitement for a lifetime,"" I gasped, stumbling off the raft and onto the swaying earth."
|
||
|
FSET? BERGON,IN-PARTY \?CND1
|
||
|
CRLF
|
||
|
CRLF
|
||
|
PRINTI "Bergon laughed. ""I don't know about a lifetime,"" he said, ""but I suppose it will do for today!"""
|
||
|
?CND1: PRINTI " It was, in fact, late in the day, so we camped for the night alongside the river, expecting this to be our last night before meeting the Wizard Astrix."
|
||
|
CRLF
|
||
|
CRLF
|
||
|
CALL1 GO-TO-ASTRIX-MAZE
|
||
|
RSTACK
|
||
|
|
||
|
|
||
|
.FUNCT RIVER-MOVE:ANY:1:1,NUM,OLD,NEW,MD,DV,VICTIM
|
||
|
GETP HERE,P?TEMP >OLD
|
||
|
ADD OLD,NUM >NEW
|
||
|
MOD NEW,5 >MD
|
||
|
DIV NEW,5 >DV
|
||
|
PUTP HERE,P?TEMP,NEW
|
||
|
ZERO? MD \?CCL3
|
||
|
PRINTI "The roar of the falls filled our ears. We frantically paddled "
|
||
|
JUMP ?CND1
|
||
|
?CCL3: ZERO? PADDLE-FLAG \?CCL5
|
||
|
PRINTI "Now that we were on the water, we started paddling "
|
||
|
JUMP ?CND1
|
||
|
?CCL5: EQUAL? PADDLE-FLAG,ACTION /?CCL7
|
||
|
EQUAL? ACTION,RETURN-COMMAND \?CCL10
|
||
|
PRINTI "It was clear that we weren't going to make it across, so we changed direction and"
|
||
|
JUMP ?CND8
|
||
|
?CCL10: PRINTI "Next, we"
|
||
|
?CND8: PRINTI " started paddling "
|
||
|
JUMP ?CND1
|
||
|
?CCL7: CALL2 PICK-ONE,PADDLE-TBL
|
||
|
PRINT STACK
|
||
|
?CND1: SET 'PADDLE-FLAG,ACTION
|
||
|
EQUAL? ACTION,RETURN-COMMAND \?CCL13
|
||
|
PRINTI "back toward shore"
|
||
|
JUMP ?CND11
|
||
|
?CCL13: EQUAL? ACTION,DOWNSTREAM-COMMAND \?CCL15
|
||
|
PRINTI "downstream"
|
||
|
JUMP ?CND11
|
||
|
?CCL15: EQUAL? ACTION,UPSTREAM-COMMAND \?CCL17
|
||
|
ICALL2 REMOVE-PARTY-COMMAND,UPSTREAM-COMMAND
|
||
|
PRINTI "upstream"
|
||
|
JUMP ?CND11
|
||
|
?CCL17: PRINTI "across the river"
|
||
|
?CND11: EQUAL? NEW,10,15,20 /?CTR19
|
||
|
EQUAL? NEW,5 \?CCL20
|
||
|
EQUAL? NUM,1 \?CCL20
|
||
|
?CTR19: ICALL2 GRAPHIC,G-FALLS
|
||
|
PRINTI ", but it was no use! Down we went, tumbling end over end, lungs so filled with water that we could not even scream! I must have blacked out, for I have no memory of reaching the shore."
|
||
|
CRLF
|
||
|
CRLF
|
||
|
PRINTI "Bruised, but otherwise uninjured, I stumbled along the shore and came upon "
|
||
|
EQUAL? PARTY-MAX,2 \?CCL27
|
||
|
PRINTI "Praxix"
|
||
|
JUMP ?CND25
|
||
|
?CCL27: PRINTI "the others"
|
||
|
?CND25: ICALL2 HINT,HINT-RIVER
|
||
|
CALL1 SPARE-VICTIM >VICTIM
|
||
|
ZERO? VICTIM /?CND28
|
||
|
SET 'FALLS-VICTIM,VICTIM
|
||
|
ICALL2 PARTY-REMOVE,VICTIM
|
||
|
GRTR? PARTY-MAX,2 \?CCL32
|
||
|
PRINTI "; all, that is, but "
|
||
|
ICALL2 WPRINTD,VICTIM
|
||
|
PRINTI ", who"
|
||
|
JUMP ?CND30
|
||
|
?CCL32: PRINTI "; "
|
||
|
ICALL2 WPRINTD,VICTIM
|
||
|
?CND30: PRINTI " was nowhere to be seen"
|
||
|
?CND28: PRINTC 46
|
||
|
CRLF
|
||
|
CRLF
|
||
|
EQUAL? NEW,5,10,15 \?CCL35
|
||
|
FSET? PRAXIX,IN-PARTY \?CCL38
|
||
|
PRINTI """And for all our trouble, we're not even across the river!"" said Praxix. And this was true"
|
||
|
JUMP ?CND36
|
||
|
?CCL38: PRINTI "We had not even made it across the river"
|
||
|
?CND36: PRINTI "; at best, we could climb back up the rocks to the top of the falls and be back near our starting point."
|
||
|
ICALL2 MOVE-TO,BEACHED-NEAR
|
||
|
RTRUE
|
||
|
?CCL35: FSET? PRAXIX,IN-PARTY \?CCL41
|
||
|
PRINTI """If nothing else, we have made it across the river,"" said Praxix. And this was true"
|
||
|
JUMP ?CND39
|
||
|
?CCL41: PRINTI "We were across the river, however"
|
||
|
?CND39: PRINTI "; the riverfront was rough and rocky here, but it would be a simple matter to climb to our destination at the top of the falls."
|
||
|
ICALL2 MOVE-TO,BEACHED-FAR
|
||
|
RTRUE
|
||
|
?CCL20: EQUAL? NEW,5,25,0 \?CCL43
|
||
|
PRINTI ", and it seemed we must go over the falls. I closed my eyes, and a moment later the raft lurched forward as it struck some rocks not twenty paces from the falls. "
|
||
|
CALL FIRST-IN-PARTY,BERGON,MINAR,ESHER,PRAXIX
|
||
|
ICALL2 WPRINTD,STACK
|
||
|
PRINTI " swung himself off the raft, and pulled "
|
||
|
CALL2 ME/US,2
|
||
|
PRINT STACK
|
||
|
PRINTI " ashore."
|
||
|
EQUAL? NEW,5,0 \?CCL46
|
||
|
ICALL2 MOVE-TO,RIVER-FALLS
|
||
|
RTRUE
|
||
|
?CCL46: ICALL1 CROSSED-RIVER
|
||
|
RTRUE
|
||
|
?CCL43: EQUAL? ACTION,UPSTREAM-COMMAND \?CCL48
|
||
|
PRINTI ", but we were no contest for the fierce current, which pulled our raft further downstream."
|
||
|
JUMP ?CND18
|
||
|
?CCL48: EQUAL? ACTION,DOWNSTREAM-COMMAND \?CCL50
|
||
|
PRINTI ", but the strong current needed little of our help."
|
||
|
JUMP ?CND18
|
||
|
?CCL50: PRINTI " and were soon "
|
||
|
EQUAL? DV,1 \?CCL53
|
||
|
PRINTI "a third"
|
||
|
JUMP ?CND51
|
||
|
?CCL53: EQUAL? DV,2 \?CCL55
|
||
|
PRINTI "about half"
|
||
|
JUMP ?CND51
|
||
|
?CCL55: EQUAL? DV,3 \?CND51
|
||
|
PRINTI "two thirds"
|
||
|
?CND51: ZERO? DV /?CND57
|
||
|
PRINTI " of the way "
|
||
|
?CND57: EQUAL? ACTION,CROSS-COMMAND \?CCL61
|
||
|
PRINTI "to the far shore."
|
||
|
?CND18: EQUAL? MD,2 \?CCL66
|
||
|
PRINTI " The river was picking up speed, that was clear, and I was filled with foreboding about what lay beyond the curve ahead."
|
||
|
RTRUE
|
||
|
?CCL61: PRINTI "back to shore."
|
||
|
LESS? NEW,0 \?CND18
|
||
|
ADD NEW,5
|
||
|
GET SHORE-ROOMS,STACK
|
||
|
ICALL2 MOVE-TO,STACK
|
||
|
RTRUE
|
||
|
?CCL66: EQUAL? MD,3 \?CCL68
|
||
|
PRINTI " We were rushing downstream now, and a loud, roaring noise could be heard from around the curve ahead."
|
||
|
FSET? BERGON,IN-PARTY \TRUE
|
||
|
CRLF
|
||
|
CRLF
|
||
|
PRINTI """Paddle harder!"" Bergon implored, sensing the danger ahead."
|
||
|
RTRUE
|
||
|
?CCL68: PRINTI " As our raft turned the corner to the right, we could see "
|
||
|
FSET? FALLS,SEEN \?CCL73
|
||
|
PRINTI "the falls looming before us!"
|
||
|
JUMP ?CND71
|
||
|
?CCL73: PRINTI "the reason for the quickening river: a large falls, and directly ahead of us!"
|
||
|
?CND71: PRINTI " We had just moments to act!"
|
||
|
ICALL REMOVE-TRAVEL-COMMAND,HERE,DOWNSTREAM-COMMAND
|
||
|
ICALL1 RESTORE-SPELLS
|
||
|
FSET HERE,TRAPPED
|
||
|
RTRUE
|
||
|
|
||
|
.ENDSEG
|
||
|
|
||
|
.ENDI
|