journey/wharf.zap

	.SEGMENT "ZAN"


	.FUNCT	GOOD-CAPTAIN-SETUP:ANY:0:0,OFF
	GET	CAPTAIN-TBL,0
	RANDOM	STACK >OFF
	GET	CAPTAIN-TBL,OFF >GOOD-CAPTAIN
	GET	CAPTAIN-NAME-TBL,OFF >GOOD-CAPTAIN-NAME
	RETURN	GOOD-CAPTAIN-NAME


	.FUNCT	ANONF-351:ANY:0:0
	ICALL2	UPDATE-REMOVE,MUD-SPELL
	FSET?	ZAN-2,BLACK-MIX \?CND1
	ICALL	ADD-TRAVEL-COMMAND,ZAN-2,INN-COMMAND
?CND1:	CALL	QSET?,HERE,SEEN
	ZERO?	STACK \?CND3
	CRLF	
	CRLF	
	PRINTI	"As we arrived at the waterfront, the harbormaster was just preparing to leave his station for the evening. As we had no clear notion of which boats might be available for charter, or what captains might be willing to take us to the Misty Isle, we sought his advice."
	CRLF	
	CRLF	
	PRINTI	"Rather than divulging our true purpose, Bergon simply told the harbormaster that we wished to charter a boat early the next morning for one of the neighboring islands."
	CRLF	
	CRLF	
	PRINTI	"""If you'd like, I could suggest a few of the captains that might be interested,"" the harbormaster replied. ""Or do you have some particular captain in mind?"""
	ICALL	OPTION,BERGON,YES-COMMAND,NO-COMMAND
?CND3:	FSET?	ELFENTIDE,SEEN \FALSE
	FSET?	SOUTH-SEAS,SEEN \FALSE
	FSET?	ZEPHYR,SEEN /?CCL7
	FSET?	HERE,USED-UP \FALSE
?CCL7:	FSET	HERE,TRAPPED
	FSET	HERE,ADVISE
	RTRUE	


	.FUNCT	ANONF-352:ANY:0:0,WDS,W1,?TMP2
?FCN:	EQUAL?	ACTION,YES-COMMAND \?CCL3
	CALL2	READ-ELVISH,BERGON
	ZERO?	STACK /?CCL6
	GETB	E-LEXV,1 >WDS
	GET	E-LEXV,1 >W1
	PRINTI	"""In fact, we did have someone in mind,"" Bergon replied. ""His name was "
	PRINTT	E-TEMP,E-TEMP-LEN
	PRINTI	", I believe."""
	CRLF	
	CRLF	
	EQUAL?	WDS,1 \?CCL9
	EQUAL?	W1,GOOD-CAPTAIN \?CCL9
	PRINTI	"""Now that's a laugh,"" the harbormaster replied, chortling. ""I can't imagine what use he'll be to you, but you'll find him aboard the Zephyr - that's on the third pier, fourth boat to the left. If you don't have any luck with the old sot, try over at the Elfentide or the South Seas - they're both in port and available for charter. "
	PRINT	GOOD-CAPTAIN-NAME
	PRINTI	", indeed! You folks have yourselves a fine evening."" He laughed again, pointed out the two other boats he had suggested, and strode back into town."
	FSET	HERE,USED-UP
	ICALL	TRAVEL-COMMANDS,HERE,ELFENTIDE-COMMAND,SOUTH-SEAS-COMMAND,ZEPHYR-COMMAND,BACK-COMMAND
	JUMP	?CND4
?CCL9:	EQUAL?	WDS,1 \?CCL13
	EQUAL?	W1,W?CALFON,W?STEGG \?CCL13
	PRINTI	"""Why, that's him over there,"" the harbormaster replied, pointing toward a nearby mooring. ""Boat's called the "
	EQUAL?	W1,W?CALFON \?CCL18
	PRINTI	"Elfentide"
	JUMP	?CND16
?CCL18:	PRINTI	"South Seas"
?CND16:	PRINTI	", and I'm right sure its for hire. But, if it's not, you might try the "
	EQUAL?	W1,W?CALFON \?CCL21
	PRINTI	"South Seas"
	JUMP	?CND19
?CCL21:	PRINTI	"Elfentide"
?CND19:	PRINTI	", right over there. You folks have a good night!"" And with that, he turned and strode away."
	ICALL	TRAVEL-COMMANDS,HERE,ELFENTIDE-COMMAND,SOUTH-SEAS-COMMAND,BACK-COMMAND
?CND4:	CALL1	END-OPTION
	RSTACK	
?CCL13:	EQUAL?	WDS,1 \?CCL23
	ADD	CAPTAIN-TBL,2 >?TMP2
	GET	CAPTAIN-TBL,0
	INTBL?	W1,?TMP2,STACK \?CCL23
	PRINTI	"""Hmm,"" the harbormaster replied, ""Last I saw him was a few weeks ago, on the Stout. He'll be back before spring, I expect."""
	CRLF	
	CRLF	
	SET	'ACTION,NO-COMMAND
	JUMP	?FCN
?CCL23:	EQUAL?	WDS,1 /?CTR26
	FSET?	HERE,TRIED \?CCL27
?CTR26:	PRINTI	"""Never heard of him,"" the harbormaster replied."
	CRLF	
	CRLF	
	SET	'ACTION,NO-COMMAND
	JUMP	?FCN
?CCL27:	FSET	HERE,TRIED
	PRINTI	"""Come again,"" the harbormaster replied. ""What was his name?"""
	CRLF	
	SET	'ACTION,NO-COMMAND
	JUMP	?FCN
?CCL6:	PRINTI	"But Bergon apparently had nobody in mind, for he said nothing."
	CRLF	
	CRLF	
	SET	'ACTION,NO-COMMAND
	JUMP	?FCN
?CCL3:	EQUAL?	ACTION,NO-COMMAND \?CCL31
	PRINTI	"""Let me suggest you ask the captains of the Elventide, over there, and the South Seas, over there,"" he said, pointing out the two boats."
	ICALL	TRAVEL-COMMANDS,HERE,ELFENTIDE-COMMAND,SOUTH-SEAS-COMMAND,BACK-COMMAND
	CALL1	END-OPTION
	RSTACK	
?CCL31:	EQUAL?	ACTION,GET-ADVICE-COMMAND \?CCL33
	ICALL	UPDATE-FCLEAR,HERE,ADVISE
	FSET?	HERE,TRAPPED \?CCL36
	PRINTI	"Having seen the boats available for hire, we had a difficult choice to make."
	CRLF	
	CRLF	
	FSET?	ELFENTIDE,DEAD \?CCL39
	PRINTI	"""It will help somewhat that we haven't the option of taking the Elfentide,"" I said, ""though the captain's words sent shivers down my spine."" Concluding my thoughts, I added,"
	JUMP	?CND37
?CCL39:	PRINTI	"""The captains were all willing to take us, and that is a good sign,"" I said, hopefully."
?CND37:	PRINTI	" ""Perhaps it does not matter which one we choose."""
	FSET?	SOUTH-SEAS,TRUTHFUL \TRUE
	FSET?	ZEPHYR,TRUTHFUL \TRUE
	FSET?	ELFENTIDE,TRUTHFUL \TRUE
	CRLF	
	CRLF	
	PRINTI	"""The captain of the South Seas was willing to take us directly to the Misty Isle; shall we not take take him up on his offer?"" Bergon asked."
	CRLF	
	CRLF	
	PRINTI	"""His offer does not please me when I consider the responses of the others,"" Praxix countered. ""Why, I wonder, is he so anxious to take us into probable danger?"""
	RTRUE	
?CCL36:	PRINTI	"Huddling together, we agreed that the best plan of attack would be to check out each of the boats and make any decisions later."
	CRLF	
	CRLF	
	PRINTI	"""Our decision here is critical,"" "
	ICALL2	WPRINTD,ACTOR
	PRINTI	" said. ""Let us learn as much as we can about the boats and their crews."""
	RTRUE	
?CCL33:	EQUAL?	ACTION,SCOUT-COMMAND \?CCL46
	ICALL	UPDATE-FSET,HERE,DONT-SCOUT
	FSET	HERE,SCOUTED
	ICALL2	WPRINTD,ACTOR
	PRINTI	" took a quick look around the wharf, reporting that there were no other boats obviously available for charter. The rest, it seems, were vacant, or out trawling, or had been previously hired."
	RTRUE	
?CCL46:	EQUAL?	ACTION,BACK-COMMAND \?CCL48
	ICALL1	REMOVE-TRAVEL-COMMAND
	PRINTI	"I suggested we return to town, but Bergon was firm. ""Astrix warned us not to tarry in Zan, and I feel we are not entirely safe here. Let us arrange to charter one of the boats; I know I will sleep easier knowing that we sail tomorrow."
	RTRUE	
?CCL48:	EQUAL?	ACTION,ELFENTIDE-COMMAND \?CCL50
	FSET	HERE,DONT-SCOUT
	FCLEAR	HERE,ADVISE
	CALL	QSET?,ELFENTIDE,SEEN
	ZERO?	STACK \?CCL53
	PRINTI	"The 'Elfentide' was a fore-and-aft rigged fishing vessel, whose main mast stood fifty feet or more above decks, and whose tall mizzenmast sat just forward of the rudderpost."
	CRLF	
	CRLF	
	PRINTI	"""This is what you'd call a ketch,"" said Bergon, ""and a beauty at that."""
	CRLF	
	CRLF	
	PRINTI	"The captain stood at the bow, peering out over the sea, and every so often barked an order at one of his deck hands."
	CALL2	MOVE-TO,ELFENTIDE
	RSTACK	
?CCL53:	ICALL2	CHOOSE-BOAT,STR?761
	ICALL1	CHOOSE-ELFENTIDE
	CALL1	RETURN-FROM-WHARF
	RSTACK	
?CCL50:	EQUAL?	ACTION,ZEPHYR-COMMAND \?CCL55
	FSET	HERE,DONT-SCOUT
	FCLEAR	HERE,ADVISE
	CALL	QSET?,ZEPHYR,SEEN
	ZERO?	STACK \?CCL58
	PRINTI	"The 'Zephyr', like the 'Elfentide', was a fore-and-aft rigged fishing boat, with two tall masts."
	CRLF	
	CRLF	
	PRINTI	"The captain sat at the wheelhouse, head between his knees."
	CALL2	MOVE-TO,ZEPHYR
	RSTACK	
?CCL58:	ICALL2	CHOOSE-BOAT,STR?763
	ICALL1	CHOOSE-ZEPHYR
	CALL1	RETURN-FROM-WHARF
	RSTACK	
?CCL55:	EQUAL?	ACTION,SOUTH-SEAS-COMMAND \FALSE
	FSET	HERE,DONT-SCOUT
	FCLEAR	HERE,ADVISE
	CALL	QSET?,SOUTH-SEAS,SEEN
	ZERO?	STACK \?CCL63
	PRINTI	"Like the other boats here, the 'South Seas' was fore-and-aft rigged, but with a shorter mizzenmast than the other two."
	CRLF	
	CRLF	
	PRINTI	"""This boat's a yawl,"" said Bergon, ""and a beauty at that."""
	CRLF	
	CRLF	
	PRINTI	"At first, it appeared that the boat was deserted, but the captain soon came up from below decks with a member of his crew."
	CALL2	MOVE-TO,SOUTH-SEAS
	RSTACK	
?CCL63:	ICALL2	CHOOSE-BOAT,STR?765
	ICALL1	CHOOSE-SOUTH-SEAS
	CALL1	RETURN-FROM-WHARF
	RSTACK	


	.FUNCT	CHOOSE-BOAT:ANY:1:1,STR
	PRINTI	"We returned to the '"
	PRINT	STR
	PRINTI	"' and told the captain of our decision to accept his offer. ""When do you set sail?"" Bergon asked."
	CRLF	
	CRLF	
	RTRUE	


	.FUNCT	RETURN-FROM-WHARF:ANY:0:0
	CRLF	
	CRLF	
	PRINTI	"Tired from our travels, and nearer to our goal of setting sail toward the Misty Isle, we returned to the center of town. It was quite late, and the tavern was just closing for the night."
	CRLF	
	CRLF	
	PRINTI	"""I don't know about the rest of you,"" Praxix said, ""but this Wizard could use some rest."""
	ICALL	REMOVE-TRAVEL-COMMAND,ZAN-2,WHARF-COMMAND
	ICALL	REMOVE-TRAVEL-COMMAND,ZAN-2,TAVERN-COMMAND
	REMOVE	ZAN-2-TAVERN
	FSET	WHARF,SOLVED
	FSET	ZAN-2,ADVISE
	CALL2	MOVE-TO,ZAN-2
	RSTACK	


	.FUNCT	CHOOSE-ZEPHYR:ANY:0:0
	SET	'CHOSEN-BOAT,ZEPHYR
	SET	'CAPTAIN,FALSE-VALUE
	PRINT	GOOD-CAPTAIN-NAME
	PRINTI	" gazed skyward dreamily, then back at Bergon. ""Storm's coming; can feel it in my bones. We'd best be leaving early."""
	CRLF	
	CRLF	
	PRINTI	"""That is suitable,"" replied Bergon. ""My name is Bergon,"" he said, and then introduced the rest of our party. ""We shall return when the sun rises."""
	RTRUE	


	.FUNCT	ANONF-353:ANY:0:0
	FSET	HERE,SEEN
	CRLF	
	CRLF	
	PRINTI	"The sound of our footsteps on the wooden planking must have plainly announced our arrival, but nevertheless the captain did not move."
	CRLF	
	CRLF	
	PRINTI	"Finally, Bergon spoke. ""Excuse us, sir,"" he said, and the wizened man at the wheel raised his head. He was not a pretty sight, having not shaved or bathed in a week. A nearly empty bottle of whiskey lay beside him, its former contents amply represented by his foul breath."
	CRLF	
	CRLF	
	PRINTI	"""You're not from these parts,"" he said, in a slur. ""What would you be doing in Zan?"""
	CRLF	
	CRLF	
	PRINTI	"""We've come to charter a boat,"" Bergon replied."
	CRLF	
	CRLF	
	PRINTI	"""And just where do you expect this boat to take you?"""
	CALL	OPTION,BERGON,TELL-TRUTH-COMMAND,LIE-COMMAND
	RSTACK	


	.FUNCT	ANONF-354:ANY:0:0
	EQUAL?	ACTION,ACCEPT-COMMAND \?CCL3
	PRINT	VERY-KIND
	CRLF	
	CRLF	
	ICALL1	CHOOSE-ZEPHYR
	ICALL1	RETURN-FROM-WHARF
	CALL1	END-OPTION
	RSTACK	
?CCL3:	EQUAL?	ACTION,CONSIDER-COMMAND \?CCL5
	ICALL1	TELL-CONSIDER
	ICALL2	MOVE-TO,WHARF
	CALL1	END-OPTION
	RSTACK	
?CCL5:	EQUAL?	ACTION,LIE-COMMAND \?CCL7
	PRINTI	"""We're heading south, to the Isle of Estril,"" Bergon said. It was a lie, of course, but it was roughly in the right direction."
	CRLF	
	CRLF	
	PRINTI	"""Estril? What on earth would send you there?"" the captain scowled. ""No, don't tell me. If that's where you're headed, I can take you."""
	CALL	OPTION,BERGON,ACCEPT-COMMAND,CONSIDER-COMMAND
	RSTACK	
?CCL7:	EQUAL?	ACTION,TELL-TRUTH-COMMAND \FALSE
	FSET	HERE,TRUTHFUL
	PRINTI	"""We were hoping to sail to the Misty Isle."""
	CRLF	
	CRLF	
	PRINTI	"The old man's eyes widened. ""The Misty Isle,"" he repeated. Then, he sat for a long while before speaking again."
	CRLF	
	CRLF	
	PRINTI	"""Lots of legends about the Misty Isle,"" he said, snivelling, ""and ain't none of them wouldn't keep you up nights. They say that none's returned that's gone there. No, I'm afraid I'm not young enough or drunk enough to try it. Tell you what - I can take you as far as Estril. Could be there's boats you can hire there that'll take you where you're heading."""
	CALL	OPTION,BERGON,ACCEPT-COMMAND,CONSIDER-COMMAND
	RSTACK	


	.FUNCT	CHOOSE-ELFENTIDE:ANY:0:0
	SET	'CHOSEN-BOAT,ELFENTIDE
	SET	'CAPTAIN,STR?784
	PRINTI	"""We sail with the sun, and we can't be waiting for you."""
	CRLF	
	CRLF	
	PRINTI	"""I am Bergon,"" our leader said, feeling it was the time for introductions. ""We shall be here early."""
	CRLF	
	CRLF	
	PRINTI	"""Name's Lemet. I'll see you boys later; there's lots to do before we sail. If you'll excuse me..."""
	RTRUE	


	.FUNCT	ANONF-355:ANY:0:0
	FSET	HERE,SEEN
	CRLF	
	CRLF	
	PRINTI	"As we approached him, he turned and looked us over, as if we were the catch of the day, and a poor day at that."
	CRLF	
	CRLF	
	PRINTI	"""What can I do for you folks? I don't got any work, if that's what you're looking for,"" he said."
	CRLF	
	CRLF	
	PRINT	NEED-BOAT
	CRLF	
	CRLF	
	PRINTI	"""That can be arranged. And where might you be going?"""
	CALL	OPTION,BERGON,TELL-TRUTH-COMMAND,LIE-COMMAND
	RSTACK	


	.FUNCT	ANONF-356:ANY:0:0
	EQUAL?	ACTION,ACCEPT-COMMAND \?CCL3
	PRINT	VERY-KIND
	CRLF	
	CRLF	
	ICALL1	CHOOSE-ELFENTIDE
	ICALL1	RETURN-FROM-WHARF
	CALL1	END-OPTION
	RSTACK	
?CCL3:	EQUAL?	ACTION,CONSIDER-COMMAND \?CCL5
	ICALL1	TELL-CONSIDER
	ICALL2	MOVE-TO,WHARF
	CALL1	END-OPTION
	RSTACK	
?CCL5:	EQUAL?	ACTION,LIE-COMMAND \?CCL7
	PRINTI	"""We're heading south, to the Isle of Estril,"" Bergon said. It was a lie, of course, but at least in the right direction."
	CRLF	
	CRLF	
	PRINTI	"""Estril, aye,"" the captain said, ""We can take you there, and get in a day's fishing at that."""
	CALL	OPTION,BERGON,ACCEPT-COMMAND,CONSIDER-COMMAND
	RSTACK	
?CCL7:	EQUAL?	ACTION,TELL-TRUTH-COMMAND \FALSE
	FSET	HERE,TRUTHFUL
	PRINTI	"""We are headed toward the Misty Isle."""
	CRLF	
	CRLF	
	PRINTI	"""The Misty Isle,"" the captain started, ""Is that so?"" He rubbed his stubbled face and continued, ""There's nobody fool enough to go there; ain't nobody ever returned. I'm sorry, lads, you'll have no luck around here. Now, if you don't mind, I've got some serious work to do."""
	ICALL	REMOVE-TRAVEL-COMMAND,WHARF,ELFENTIDE-COMMAND
	FSET	ELFENTIDE,DEAD
	ICALL2	MOVE-TO,WHARF
	CALL1	END-OPTION
	RSTACK	


	.FUNCT	CHOOSE-SOUTH-SEAS:ANY:0:0
	SET	'CHOSEN-BOAT,SOUTH-SEAS
	SET	'CAPTAIN,STR?787
	PRINTI	"""We can leave whenever you'd like."""
	CRLF	
	CRLF	
	PRINTI	"""All right, then,"" our leader said, ""we shall return here after we rise tomorrow morning."""
	CRLF	
	CRLF	
	PRINTI	"""That'll be fine. If you'll excuse me, I've got some things to attend to. Sleep well!"""
	RTRUE	


	.FUNCT	TELL-CONSIDER:ANY:0:0
	INC	'CONSIDER-COUNT
	GET	CONSIDER-TBL,CONSIDER-COUNT
	PRINT	STACK
	RTRUE	


	.FUNCT	ANONF-357:ANY:0:0
	FSET	HERE,SEEN
	CRLF	
	CRLF	
	PRINTI	"As we approached, he smiled broadly and welcomed us aboard. ""Name's Stegg,"" he said, ""and this here's my boat. Mighty proud of her, I am."""
	CRLF	
	CRLF	
	PRINT	NEED-BOAT
	CRLF	
	CRLF	
	PRINTI	"""That's my business,"" Stegg replied. ""Where is it then that you're bound?"""
	ICALL1	CHECK-FOREBODING
	CALL	OPTION,BERGON,TELL-TRUTH-COMMAND,LIE-COMMAND
	RSTACK	


	.FUNCT	ANONF-358:ANY:0:0
	EQUAL?	ACTION,ACCEPT-COMMAND \?CCL3
	PRINT	VERY-KIND
	CRLF	
	CRLF	
	ICALL1	CHOOSE-SOUTH-SEAS
	ICALL1	RETURN-FROM-WHARF
	CALL1	END-OPTION
	RSTACK	
?CCL3:	EQUAL?	ACTION,CONSIDER-COMMAND \?CCL5
	ICALL1	TELL-CONSIDER
	ICALL2	MOVE-TO,WHARF
	CALL1	END-OPTION
	RSTACK	
?CCL5:	EQUAL?	ACTION,LIE-COMMAND \?CCL7
	PRINTI	"""We're travelling to the Isle of Estril,"" Bergon said."
	CRLF	
	CRLF	
	PRINTI	"""Beautiful spot,"" the captain said, ""I can take you there tomorrow, if you like."""
	CALL	OPTION,BERGON,ACCEPT-COMMAND,CONSIDER-COMMAND
	RSTACK	
?CCL7:	EQUAL?	ACTION,TELL-TRUTH-COMMAND \FALSE
	FSET	HERE,TRUTHFUL
	PRINTI	"""We are headed toward the Misty Isle."""
	CRLF	
	CRLF	
	PRINTI	"""Well, then,"" Stegg replied without the least hesitation, ""the Misty Isle it is. We can leave in the morning, if you like."""
	CALL	OPTION,BERGON,ACCEPT-COMMAND,CONSIDER-COMMAND
	RSTACK	

	.ENDSEG

	.ENDI