erasmus.zil

"ERASMUS for
				 SHOGUN
	(c) Copyright 1988 Infocom, Inc.  All Rights Reserved."

<FILE-FLAGS SENTENCE-ENDS?>

<BEGIN-SEGMENT ERASMUS>

;<CONSTANT CREW
	  <LTABLE HENDRIK VINCK MAETSUKKER GINSEL SPILLBERGEN VAN-NEKK
		  CROOCQ SONK ROPER PIETERZOON SALAMON>>

<OBJECT COMPASS
	(SCENE S-ERASMUS)
	(DESC "compass")
	(SYNONYM COMPASS)
	(ADJECTIVE MAGNETIC)
	(FLAGS TAKEBIT READBIT)
	(ACTION COMPASS-F)>

<ROUTINE COMPASS-F ()
	 <COND (<VERB? EXAMINE READ>
		<TELL
"The compass points north.  From it you can see that the course is ">
		<TELL-DIRECTION ,SHIP-DIRECTION>
		<TELL " and that the wind is out of the east, perhaps
a point or two south of east." CR>)>>

<OBJECT DECK
	(SCENE S-ERASMUS)
	(LOC LOCAL-GLOBALS)
	(DESC "deck")
	(SYNONYM DECK ABOVE WATCH POST POSTS)
	(FLAGS NDESCBIT TAKEBIT)
	(GENERIC GENERIC-DECK-F)
	(ACTION DECK-F)>

<ROUTINE DECK-F ()
	 <COND (<VERB? EXAMINE>
		<COND (<NOUN-USED? ,PRSO ,W?WATCH>
		       <COND (<FSET? ,MAETSUKKER ,SCOREBIT>
			      <TELL
"The men on watch are tired." CR>)
			     (ELSE
			      <TELL
"The watch is as fresh as can be expected." CR>)>)>)
	       (<VERB? TAKE>
		<COND (<NOUN-USED? ,PRSO ,W?WATCH>
		       <TELL
"You are too tired to take the watch yourself." CR>)
		      (ELSE
		       <TELL "You can't take that." CR>)>)
	       (<VERB? RELEASE>
		<COND (<HERE? ,BELOW-DECKS>
		       <TELL
"You should probably send some of these men out to relieve the
watch." CR>)
		      (ELSE
		       <TELL
,YOU-HAVE-TO "send some fresh crewmen out to do that." CR>)>)
	       (<VERB? WALK-UNDER>
		<DO-WALK ,P?FORE>)
	       (<VERB? STEP-ON BOARD>
		<DO-WALK ,P?OUT>)>>

<OBJECT REEF
	(LOC LOCAL-GLOBALS)
	(OWNER REEF)
	(DESC "reef")
	(SYNONYM REEF REEFS REEF-TOPS ROCKS GAP BREAK)
	(FLAGS NDESCBIT SCOREBIT)
	(ACTION REEF-F)>

<ROUTINE REEF-F ()
	 <COND (<VERB? EXAMINE>
		<COND (<SCENE? ,S-ANJIRO ,S-RODRIGUES>
		       <TELL
"The reefs are over the horizon, invisible." CR>)
		      (<NOT ,REEF-FLAG>
		       <TELL
"You've been avoiding reefs for days.  Right now the visibility is
terrible; only a few hundred yards.  You couldn't see a reef unless
you were almost on top of it.  A horrible thought!" CR>)
		      (<AND <EQUAL? ,SHIP-X 8> ;"10"
			    <EQUAL? ,SHIP-Y 2>>
		       <TELL
G"There's a break in the reef ahead and to starboard!" CR>)
		      (<AND <EQUAL? ,SHIP-X 6> ;"11"
			    <EQUAL? ,SHIP-Y 2>>
		       <TELL
"The gap in the reef is to port." CR>)
		      (<AND <EQUAL? ,SHIP-Y 1> ;"12"
			    <EQUAL? ,SHIP-X 5>>
		       <TELL
"The neck of the pass is right here, right to starboard, a maelstrom
of foaming sea and crashing combers." CR>)
		      (<AND <EQUAL? ,SHIP-Y 1>
			    <G? ,SHIP-X 0>
			    <L? ,SHIP-Y 5>>
		       <TELL
"The reef surrounds you on both sides, a terrifyingly narrow channel
hemmed in by rocks and smashed by waves." CR>)
		      (<EQUAL? ,REEF-X ,REEF-Y>
		       <TELL
"The reef is barely two hundred yards ">
		       <TELL-REEF-DIR>
		       <TELL ", great black claws of rocks
pounded by the hungry sea.  A foaming line of surf looms ">
		       <TELL-REEF-DIR>
		       <TELL ", broken intermittently ">
		       <COND (<EQUAL? ,SHIP-DIRECTION ,P?WEST ,P?NW>
			      <TELL "to port">)
			     (<EQUAL? ,SHIP-DIRECTION ,P?SW>
			      <TELL "to starboard">)
			     (ELSE
			      <TELL "by too-narrow channels">)>
		       <TELL "." CR>)
		      (ELSE
		       <TELL
"The reef is off to the west, veiled in storm but revealed by
breakers." CR>)>)
	       (<VERB? TURN-AROUND>
		<TELL ,YOU-HAVE-TO G"specify a direction." CR>)
	       (<VERB? TURN-TOWARD TURN-AWAY AVOID>
		<COND (,REEF-FLAG
		       <COND (<VERB? TURN-TOWARD>
			      <SETG P-DIRECTION ,P?STARBOARD>)
			     (ELSE
			      <SETG P-DIRECTION ,P?PORT>)>
		       <PERFORM ,V?TURN ,WHEEL ,INTDIR>
		       <RTRUE>)>)>>

<ROUTINE TELL-REEF-DIR ()
	 <COND (<EQUAL? ,SHIP-DIRECTION ,P?WEST>
		<TELL "ahead">)
	       (<EQUAL? ,SHIP-DIRECTION ,P?SW>
		<TELL "to starboard">)
	       (<EQUAL? ,SHIP-DIRECTION ,P?NW>
		<TELL "to port">)
	       (ELSE <TELL "away">)>>

<OBJECT FORESAILS
	(LOC LOCAL-GLOBALS)
	(DESC "foresails")
	(SYNONYM FORESAILS SAILS SAIL HALLIARD)
	(ADJECTIVE FORE)
	(FLAGS NDESCBIT SCOREBIT)
	(ACTION FORESAILS-F)>

<ROUTINE FORESAILS-F ()
	 <COND (<VERB? EXAMINE>
		<COND (<FSET? ,FORESAILS ,TRYTAKEBIT>
		       <TELL "The foremast has snapped.  You may be able
to survive without it for a while, though." CR>)
		      (ELSE
		       <TELL
"In this storm, only the barest storm sails are necessary, but you
can't get by with none.  The foresails ">
		       <COND (<FSET? ,PRSO ,RMUNGBIT>
			      <TELL "have been torn away!" CR>)
			     (ELSE
			      <TELL "are barely hanging together." CR>)>)>)
	       (<P? ASK-ABOUT * FORESAILS>
		<TELL
D ,PRSO " replies, \"Foresails only in a storm like this, by
God!  Anything more and we'd lose the mast!\"" CR>)
	       (<VERB? LOWER>
		<COND (<OR <FSET? ,FORESAILS ,RMUNGBIT>
			   <FSET? ,FORESAILS ,TRYTAKEBIT>>
		       <TELL "No need for that!" CR>)
		      (ELSE
		       <TELL
"Without foresails, there would be no control, and the ship would be
doomed.  You wisely reconsider." CR>)>)
	       (<VERB? RAISE REPAIR>
		<COND (<FSET? ,FORESAILS ,TRYTAKEBIT>
		       <TELL
"The mast itself has snapped, there's no way to repair the sails!" CR>)
		      (<NOT <FSET? ,FORESAILS ,RMUNGBIT>>
		       <COND (<FSET? ,FORESAILS ,SCOREBIT>
			      <TELL
"The foresails are still holding on, the maximum sail that the
ship can tolerate in this terrific gale." CR>)
			     (ELSE
			      <TELL
"The new foresails have already been raised." CR>)>)
		      (,CREW-ON-DECK?
		       <FCLEAR ,FORESAILS ,RMUNGBIT>
		       <TELL
"You yell to the crewmen, \"Fores'ls ho!\"  Foot by foot they haul
themselves into the shrouds of the foremast rigging, dragging new
sails aloft as others below
lean on the ropes to give them a hand.  They curse the sail out of
its ropes.  It falls open, cracking like a cannonade as the wind
fills it, and the ship lurches.  Now you have some control!" CR>
		       <SCORE-OBJECT ,FORESAILS>)
		      (<OR <IN? ,HENDRIK ,ON-DECK>
			   <IN? ,GINSEL ,ON-DECK>
			   <IN? ,VINCK ,ON-DECK>
			   <IN? ,MAETSUKKER ,ON-DECK>>
		       <QUEUE I-HANDS 2>
		       <TELL
"The crewmen on deck try to obey, but there are too few of them!  You
need more crew on deck!  They ring the bell.  \"All hands on deck!\"
someone screams." CR>)
		      (ELSE
		       <TELL
"There's no one here to carry out your order!" CR>)>)>>

<OBJECT LG-ERASMUS
	(LOC LOCAL-GLOBALS)
	(OWNER BLACKTHORNE)
	(DESC "Erasmus")
	(SYNONYM ERASMUS SHIP BOAT)
	(FLAGS NDESCBIT THE ;PERSON FEMALE VEHBIT SCOREBIT)
	(GENERIC GENERIC-SHIP-F)
	(ACTION LG-ERASMUS-F)>

<ROUTINE LG-ERASMUS-F ("OPT" (RARG <>))
	 <COND (<RARG? SUBJ>
		<RFALSE>)
	       (<P? (TELL ASK-ABOUT) LG-ERASMUS>
		<TELL "You have been at sea too long!" CR>)
	       (<VERB? EXAMINE>
		<COND (<SCENE? ,S-ANJIRO>
		       <COND (<HERE? ,ANJIRO ,ANJIRO-WATERFRONT
				     ,ANJIRO-HARBOR ,AT-ERASMUS>
			      <TELL
"The " I "Erasmus"" is anchored neatly, fifty yards from shore, in good
water, with three bow cables.  You can see native men aboard." CR>
			      <COND (<NOT <FSET? ,RUTTER ,RMUNGBIT>>
				     <FSET ,RUTTER ,RMUNGBIT>
				     <TELL CR
"With a start you realize you don't know where your rutters are!  Can
they still be on the ship?  They are your most precious possessions,
and the stolen Portuguese one is a death sentence in any Catholic
country!" CR>)>
			      <RTRUE>)
			     (ELSE
			      <TELL
"You are surprised at how neat the ship is.  The tattered sails are down
and tied in place.  But the lashings are different from any you've ever
seen.  You presume the Japaners have made the vessel secure." CR>)>)
		      (<FSET? ,FORESAILS ,TRYTAKEBIT>
		       <TELL
"The ship is without a foremast!" CR>)
		      (<FSET? ,FORESAILS ,RMUNGBIT>
		       <TELL
"Right now, the "I"Erasmus"" is missing her foresails." CR>)
		      (ELSE
		       <TELL
"The " I "Erasmus"" is a pisscutter of a ship, lean and taut as a
greyhound.  If she can make it to port, God willing, all will be
well.  Otherwise, you're a dead man." CR>)>)
	       (<AND <VERB? DROP>
		     <EQUAL? ,P-PRSA-WORD ,W?ABANDON>
		     <SCENE? ,S-ERASMUS>>
		<TELL
G"That would be suicide in this storm." CR>)
	       (<VERB? WALK-TO>
		<COND (<AND <SCENE? ,S-ANJIRO ,S-RODRIGUES>
			    <NOT <IN? ,PLAYER ,SMALL-BOAT>>>
		       <TELL
,YOU-HAVE-TO "use a boat to do that." CR>)>)
	       (<VERB? LEAP DIVE>
		<COND (<HERE? ,ON-DECK ,BRIDGE-OF-ERASMUS>
		       <COND (<SCENE? ,S-ERASMUS>
			      <TELL
G"That would be suicide in this storm." CR>)
			     (ELSE
			      <TELL
"You hurry over the side and down the gangway!" CR CR>
			      <DO-WALK ,P?DOWN>)>)
		      (ELSE
		       <TELL
"You can hardly jump overboard from here!" CR>)>)
	       (<AND <VERB? DISEMBARK EXIT>
		     <SCENE? ,S-ANJIRO ,S-RODRIGUES>>
		<DO-WALK ,P?DOWN>)
	       (<VERB? POINT>
		<COND (<EQUAL? ,OMI-QUESTION 1 2>
		       <TELL
"\"That's no answer, heretic!\"" CR>)
		      (<IN? ,SEBASTIO ,HERE>
		       <TELL
"\"Your ship has been well cared for, pirate!\"" CR>)>)
	       (<VERB? BOARD CLIMB-ON THROUGH CLIMB-UP>
		<COND (<HERE? ,AT-ERASMUS>
		       <DO-WALK ,P?UP>)
		      (<HERE? ,ON-DECK ,BRIDGE-OF-ERASMUS
			      ,PASSAGEWAY ,PILOTS-CABIN ,MATES-CABIN
			      ,CAPTAINS-CABIN>
		       <TELL "You already are!" CR>)
		      (ELSE
		       <YOULL-HAVE-TO "get to it">)>)
	       (<VERB? TURN>
		<COND (<HERE? ,BRIDGE-OF-ERASMUS>
		       <PERFORM ,V?TURN ,WHEEL ,PRSI>
		       <RTRUE>)
		      (<SCENE? ,S-ERASMUS>
		       <ARENT-WHERE-PRSO-IS>
		       <FRUSTRATED <COND (<FSET? ,HENDRIK ,DEAD> ,VINCK)
					 (ELSE ,HENDRIK)>>)>)
	       (<VERB? REPAIR>
		<MORE-SPECIFIC>)
	       (<HOSTILE-VERB?>
		<TELL "What an infantile idea." CR>)>>

<ROUTINE ARENT-WHERE-PRSO-IS ()
	 <TELL
"You aren't on the bridge, where " THE ,PRSO " is.">>

<OBJECT GANGWAY
	(LOC LOCAL-GLOBALS)
	(DESC "gangway")
	(SYNONYM GANGWAY)
	(FLAGS NDESCBIT)
	(ACTION GANGWAY-F)>

<ROUTINE GANGWAY-F ()
	 <COND (<VERB? CLIMB-UP>
		<DO-WALK ,P?UP>)
	       (<VERB? CLIMB-DOWN>
		<DO-WALK ,P?DOWN>)
	       (<VERB? CLIMB-FOO CLIMB-ON>
		<COND (<HERE? ,AT-ERASMUS ,WHARF>
		       <DO-WALK ,P?UP>)
		      (<HERE? ,ON-DECK ,MAIN-DECK>
		       <DO-WALK ,P?DOWN>)>)>>

<GLOBAL STORM-DELAY? <>>

<GLOBAL SHIP-DIRECTION <>>
<GLOBAL SHIP-X 21>
<GLOBAL SHIP-Y 9>

<GLOBAL SHIP-COURSE <>>

;<GLOBAL SHIP-DEBUG <>>	;"T to print out ship position stuff"

;<ROUTINE SHIP-INFO ()
	 <TELL
"[Course ">
	 <TELL-DIRECTION ,SHIP-DIRECTION>
	 <TELL "; wheel ">
	 <TELL-DIRECTION ,SHIP-COURSE>
	 <TELL "; X=" N ,SHIP-X ",Y=" N ,SHIP-Y "; Reef X=" N ,REEF-X ",Y=" N ,REEF-Y "]" CR>>

<ROUTINE QUEUE-STORM ("AUX" S DONE?)
	 <SET S <GETPT <GET ,SCENE-LOCS ,SCENE> ,P?SCORE>>
	 <SET S <GETB .S 0>>
	 <SET DONE? <DONE-BELOW?>>
	 <COND (<L? ,STORM-DELAY? 0>
		<SETG STORM-DELAY? <+ ,STORM-DELAY? 1>>
		<QUEUE I-STORM 30>)
	       (<AND ,STORM-DELAY? ;"delay storm if loser increased score"
		     <FSET? ,BELL ,SCOREBIT> ;"unless we're in height of storm"
		     <G? .S ,STORM-DELAY?>
		     <NOT .DONE?>>
		<SETG STORM-DELAY? .S>
		<QUEUE I-STORM 10>
		<RFALSE>)
	       (<OR <FSET? ,HERE ,OUTSIDE> ;"storm fast if outside"
		    .DONE? ;"or hanging around below decks too long">
		<SETG STORM-DELAY? .S>
		<QUEUE I-STORM
		       <COND (<OR ,REEF-FLAG <EQUAL? .S 7>> 4)
			     (<AND <FSET? ,HERE ,OUTSIDE> .DONE?> 3)
			     (ELSE 9)>>)
	       (<AND <EQUAL? ,SHIP-COURSE ,P?PORT ,P?STARBOARD> ;"or if stupid"
		     <NOT <FSET? ,WHEEL ,RMUNGBIT>>
		     <NOT <FSET? ,HENDRIK ,TRYTAKEBIT>>>
		<QUEUE I-STORM 2>)
	       (ELSE ;"storm slow if inside"
		<SETG STORM-DELAY? .S>
		<QUEUE I-STORM
		       <COND (,REEF-FLAG 7) (ELSE 15)>>)>>

<GLOBAL WHEEL-SPINNING? <>>

<ROUTINE I-STORM ()
	 <COND (<NOT <QUEUE-STORM>> ;"returns false if storm-delay in effect"
		<RFALSE>)>
	 <COND (<EQUAL? ,SHIP-COURSE ,P?FORE>)
	       (<EQUAL? ,SHIP-COURSE ,P?PORT>
		<COND (<EQUAL? ,SHIP-DIRECTION ,P?WEST>
		       <SETG SHIP-DIRECTION ,P?SW>)
		      (<EQUAL? ,SHIP-DIRECTION ,P?SW>
		       <SETG SHIP-DIRECTION ,P?SOUTH>)
		      (<EQUAL? ,SHIP-DIRECTION ,P?NW>
		       <SETG SHIP-DIRECTION ,P?WEST>)
		      (<EQUAL? ,SHIP-DIRECTION ,P?NORTH>
		       <SETG SHIP-DIRECTION ,P?NW>)>)
	       (<EQUAL? ,SHIP-COURSE ,P?STARBOARD>
		<COND (<EQUAL? ,SHIP-DIRECTION ,P?WEST>
		       <SETG SHIP-DIRECTION ,P?NW>)
		      (<EQUAL? ,SHIP-DIRECTION ,P?SW>
		       <SETG SHIP-DIRECTION ,P?WEST>)
		      (<EQUAL? ,SHIP-DIRECTION ,P?NW>
		       <SETG SHIP-DIRECTION ,P?NORTH>)
		      (<EQUAL? ,SHIP-DIRECTION ,P?SOUTH>
		       <SETG SHIP-DIRECTION ,P?SW>)>)>
	 <COND (<EQUAL? ,SHIP-DIRECTION ,P?WEST>
		<COND (<OR <FSET? ,FORESAILS ,RMUNGBIT>
			   <AND <EQUAL? ,SHIP-Y 1>
				<L=? ,SHIP-X 7>>>
		       <SETG SHIP-X <- ,SHIP-X 1>>)
		      (ELSE
		       <SETG SHIP-X <- ,SHIP-X 2>>)>)
	       (<EQUAL? ,SHIP-DIRECTION ,P?SW>
		<SETG SHIP-X <- ,SHIP-X 1>>
		<SETG SHIP-Y <- ,SHIP-Y 1>>)
	       (<EQUAL? ,SHIP-DIRECTION ,P?NW>
		<SETG SHIP-X <- ,SHIP-X 1>>
		<SETG SHIP-Y <+ ,SHIP-Y 1>>)
	       (<EQUAL? ,SHIP-DIRECTION ,P?NORTH ,P?SOUTH>
		<SHIP-BROADSIDE>)>
	 <COND (<NOT <REEF-DISTANCE>>
		<COND (<G? ,SHIP-X 6>
		       <TELL CR
"The waiting spines of the reef tear into the ship!">
		       <COND (<FSET? ,HERE ,OUTSIDE>
			      <TELL "The gap is tantalizingly
close, but you missed it.">)>
		       <TELL "Two years out from England, and it ends here in
a watery grave." CR>
		       <JIGS-UP>)
		      (<EQUAL? ,SHIP-X 6>
		       <TELL CR
"The ship smashes into the ">
		       <COND (<FSET? ,HERE ,OUTSIDE>
			      <TELL "side of the gap in the ">)>
		       <TELL "reef, tearing a huge
rent in the hull.  Water pours in, and the stern crashes against the rocks">
		       <COND (<FSET? ,HERE ,OUTSIDE>
			      <TELL
", throwing you to the deck.  Suddenly the mainmast gives way.  It's crashing
down upon you">)>
		       <TELL "!" CR>
		       <JIGS-UP>)
		      (ELSE
		       <CRLF>
		       <COND (<FSET? ,HERE ,OUTSIDE>
			      <TELL "You steer">)
			     (ELSE
			      <TELL "The ship steers">)>
		       <TELL
" directly into the waiting rocks!" CR>
		       <JIGS-UP>)>
		<RFATAL>)>
	 <COND (<AND <L? ,SHIP-X 19>
		     <NOT <GETP ,BLACKTHORNE ,P?HEALTH>>>
		<QUEUE I-TIRED-WARNING 5 T>
		<QUEUE I-TIRED 10 T>)>
	 ;<COND (,SHIP-DEBUG <SHIP-INFO>)>
	 <COND (,REEF-FLAG)
	       (<REEF-SIGHTED?>
		<SETG REEF-FLAG T>
		<CRLF>
		<COND (<FSET? ,HERE ,OUTSIDE>
		       <COND (<IN? ,GINSEL ,BELOW-DECKS>
			      <TELL "The bow lookout">)
			     (ELSE
			      <TELL "Ginsel, the bow lookout,">)>
		       <TELL " yells \"Rotz vooruit!\"  Reef
ahead!  A foaming line of surf stretches ahead of you,
broken intermittently to port!" CR>
		       <COND (<AND <HERE? ,BRIDGE-OF-ERASMUS>
				   <FSET? ,HENDRIK ,RMUNGBIT>>
			      <FCLEAR ,HENDRIK ,RMUNGBIT>
			      <TELL CR
"The yelling wakes Hendrik." CR>)>)
		      (ELSE
		       <FCLEAR ,HENDRIK ,RMUNGBIT>
		       <TELL
"Faintly, over the roar of the storm, you hear the terrified
cry \"Rotz vooruit!\"  Reef ahead!  ">
		       <COND (<HERE? ,BELOW-DECKS>
			      <TELL
"The crewmen pull themselves painfully from their bunks.  \"We're
dead men!\" screams one.">
			      <COND (<IN? ,VINCK ,HERE>
				     <MOVE ,VINCK ,ON-DECK>
				     <TELL
"\"We'd better go above, Pilot,\" urges Vinck as he shuffles toward
the door." CR>)
				    (ELSE <CRLF>)>)
			     (<HERE? ,CAPTAINS-CABIN>
			      <TELL
"\"Get out there, Pilot!\" Spillbergen orders you.  \"We'll all die
thanks to you!  Out!\"" CR>)
			     (ELSE
			      <TELL
"You sense from the terror in the voice that the reefs are close.">
			      <COND (<IN? ,GINSEL ,BELOW-DECKS>
				     <TELL
"Has the watch been asleep?  All too likely!">)>
			      <CRLF>)>)>
		<RTRUE>)>
	 <COND (<AND <EQUAL? ,SHIP-Y 9>
		     <EQUAL? ,SHIP-X 19>>
		<QUEUE I-HENDRIK -1>
		<FCLEAR ,WHEEL ,ONBIT>
		<TELL CR
"The ship heels in a sudden squall, throwing you ">
		<COND (<FSET? ,WHEEL ,RMUNGBIT>
		       <COND (<HERE? ,BRIDGE-OF-ERASMUS>
			      <TELL
"from your post at the wheel." CR>)
			     (ELSE
			      <TELL "to the deck." CR>)>)
		      (ELSE
		       <COND (<HERE? ,BRIDGE-OF-ERASMUS>
			      <TELL
"from your post at the wheel, which">)
			     (ELSE
			      <TELL "to the deck.  The wheel">)>
		       <SETG SHIP-COURSE ,P?PORT>
		       <SETG SHIP-DIRECTION ,P?SW>
		       <QUEUE I-BROADSIDE 4>
		       <QUEUE I-SHIP-BROADSIDE 8>
		       <TELL
", uncontrolled, begins to turn to port." CR>)>
		<RTRUE>)
	       (<OR <EQUAL? ,SHIP-X 18>
		    <AND <EQUAL? ,SHIP-Y 9>
			 <EQUAL? ,SHIP-X 17>>>
		<TELL CR
"The wind freshens even more, and the ship lurches." CR>
		<RTRUE>)
	       (<AND <EQUAL? ,SHIP-Y 8>
		     <EQUAL? ,SHIP-X 14>>
		<COND (<FSET? ,HERE ,OUTSIDE>
		       <TELL CR
"A forepeak halliard snaps, and the highest top gallant spar is carried
away into the sea, ">
		       <COND (<EQUAL? ,SHIP-DIRECTION ,P?SW>
			      <TELL
"but the ship is now making way parallel to the reef." CR>)
			     (ELSE
			      <TELL
"and the ship continues to approach the waiting reef." CR>)>)>)
	       (<AND <EQUAL? ,SHIP-Y 7>
		     <EQUAL? ,SHIP-X 13>>
		<COND (<FSET? ,HERE ,OUTSIDE>
		       <CRLF>
		       <COND (<EQUAL? ,SHIP-DIRECTION ,P?SW>
			      <TELL
"The ship runs parallel to the reef, barely staying away from it, and a huge following wave towers over the ship!" CR>)
			     (ELSE
			      <TELL
"The ship is being carried still closer to the reef, and a huge wave is
approaching from the starboard side!" CR>)>)>)
	       (<AND <EQUAL? ,SHIP-Y 6>
		     <EQUAL? ,SHIP-X 12>>
		<COND (<NOT <EQUAL? ,SHIP-DIRECTION ,P?SW>>
		       <FSET ,LG-ERASMUS ,RMUNGBIT>)>
		<COND (<FSET? ,HERE ,OUTSIDE>
		       <TELL CR
"Another halliard gives, block and tackle swinging wildly.  The wave breaks
over the ship!  ">
		       <COND (<EQUAL? ,SHIP-DIRECTION ,P?SW>
			      <TELL "It looks for a moment like you're
going to founder, but she shakes it off." CR>)
			     (ELSE
			      <TELL
"The force of the wave drives the ship onto the reef, the sharp
rocks tearing into the wooden hull!  In what seems like an instant, she's
sinking!" CR>)>
		       <RTRUE>)>)
	       (<AND <EQUAL? ,SHIP-Y 5>
		     <EQUAL? ,SHIP-X 11>>
		<FSET ,FORESAILS ,RMUNGBIT>
		<COND (<FSET? ,HERE ,OUTSIDE>
		       <CRLF>
		       <COND (<EQUAL? ,SHIP-DIRECTION ,P?SW>
			      <TELL
"Another following sea towers above the ship.  The ship is wallowing,
and the foresails are torn away by the tempest." CR>
			      <RTRUE>)
			     (ELSE
			      <JIGS-UP
"You struggle to stay afloat in the raging sea, but you are too weak to
fight the waves for long, and are dashed against the rocks.">
			      <RFATAL>)>)>)
		 (<AND <EQUAL? ,SHIP-Y 4>
		       <EQUAL? ,SHIP-X 10>>
		  <FSET ,HENDRIK ,DEAD>
		  <MOVE ,HENDRIK ,GENERIC-OBJECTS>
		  <COND (<FSET? ,HERE ,OUTSIDE>
			 <TELL CR
"This wave comes in stronger than the last.  Hendrik is caught and lifted,
gasping and struggling, into the sea." CR>
			 <TELL CR
"A giant comber throws Hendrik high above the ship, then takes him
away and pulps him against a rock spine." CR>)>)
		 (<AND <EQUAL? ,SHIP-Y 2>
		       <EQUAL? ,SHIP-X 8>>
		  <COND (<FSET? ,HERE ,OUTSIDE>
			 <TELL CR
G"There's a break in the reef ahead and to starboard!" CR>)>)
		 (<AND <EQUAL? ,SHIP-Y 2>
		       <EQUAL? ,SHIP-X 6>>
		  <COND (<FSET? ,HERE ,OUTSIDE>
			 <TELL CR
"The gulch through the reef is three points to windward, and you aren't gaining
way!  You search desperately for another channel but know there is
none.  The "I"Erasmus"" is heading for the rocks starboard of the gap!" CR>)>)
		 (<AND <EQUAL? ,SHIP-Y 1>
		       <EQUAL? ,SHIP-X 7>>
		  <COND (<FSET? ,HERE ,OUTSIDE>
			 <TELL CR
"The ship is being swept past the gap in the reef!" CR>)>)
		 (<AND <EQUAL? ,SHIP-Y 1>
		       <EQUAL? ,SHIP-X 5>>
		  <COND (<HERE? ,BRIDGE-OF-ERASMUS ,ON-DECK>
			 <MOVE ,VINCK ,HERE>)
			(ELSE <MOVE ,VINCK ,BRIDGE-OF-ERASMUS>)>
		  <COND (<FSET? ,HERE ,OUTSIDE>
			 <TELL CR
"The ship is gaining way, helped by the fall off from the wind.  You are
holding course parallel to the reef and approaching a narrow gap which
heads to starboard." CR CR
"You see Vinck making his way up the companionway to the bridge." CR>)>)
		 (<AND <EQUAL? ,SHIP-Y 1>
		       <EQUAL? ,SHIP-X 4>
		       <EQUAL? ,SHIP-DIRECTION ,P?WEST>>
		  <TELL CR
"There is a wailing, tormented shudder as the keel scrapes the razor
spines of the reef below!">
		  <COND (<NOT <FSET? ,WHEEL ,RMUNGBIT>>
			 <SETG WHEEL-SPINNING? T>
			 <DEQUEUE I-BROADSIDE>
			 <COND (<FSET? ,WHEEL ,ONBIT>
				<FCLEAR ,WHEEL ,ONBIT>
				<COND (<FSET? ,HERE ,OUTSIDE>
				       <TELL
"The"G" wheel spins out of your hands!" CR>)>)
			       (ELSE
				<TELL
"The wheel begins spinning wildly!" CR>)>)>)
		 (<AND <EQUAL? ,SHIP-Y 1>
		       <EQUAL? ,SHIP-X 3>
		       <EQUAL? ,SHIP-DIRECTION ,P?WEST>>
		  <COND (<FSET? ,HERE ,OUTSIDE>
			 <TELL CR
"The ship is sucked into a narrow vortex between the rocks.  ">
			 <COND (<AND <NOT <FSET? ,WHEEL ,ONBIT>>
				     <NOT <FSET? ,WHEEL ,RMUNGBIT>>>
				<TELL
"The wheel spins from side to side, out of control!  ">)>
			 <FSET ,FORESAILS ,TRYTAKEBIT> ;"can't be repaired"
			 <TELL "The bowsprit
catches a rock and is torn loose!  The foremast snaps!  The men on deck
fall on the rigging with axes and cut it adrift as the ship founders
down the channel." CR>)>)
		 (<AND <EQUAL? ,SHIP-Y 1>
		       <EQUAL? ,SHIP-X 2>
		       <EQUAL? ,SHIP-DIRECTION ,P?WEST>>
		  <COND (<AND <NOT <FSET? ,WHEEL ,ONBIT>>
			      <NOT <FSET? ,WHEEL ,RMUNGBIT>>>
			 <CRLF>
			 <JIGS-UP
"Out of control, the ship spins broadside, and holes against the rocks.">
			 <RFATAL>)
			(<FSET? ,HERE ,OUTSIDE>
			 <TELL CR
"The ship is pulled by the waves deeper into the strait, and then
pushed back by the return, but she's making some progress." CR>)>)
		 (<AND <EQUAL? ,SHIP-Y 1>
		       <EQUAL? ,SHIP-X 1>
		       <EQUAL? ,SHIP-DIRECTION ,P?WEST>>
		  <COND (<FSET? ,HERE ,OUTSIDE>
			 <TELL CR
"For an instant, the strait broadens.  Ahead, it narrows ominously and
turns to port." CR>)>)
		 (<AND <ZERO? ,SHIP-Y>
		       <ZERO? ,SHIP-X>
		       <EQUAL? ,SHIP-DIRECTION ,P?SW>>
		  <DEQUEUE I-STORM>
		  <COND (<FSET? ,HERE ,OUTSIDE>
			 <TELL CR
"The sea race quickens.  The ship is in the neck and dead, but then the
keel scrapes a mud shoal, and the shock turns her head.  The rudder bites
into the sea, the wind and sea join to help, and before the wind she
speeds through the pass to safety.  Into the bay beyond." CR>
			 <COND (<IN? ,COMPASS ,BLACKTHORNE>
				<REMOVE ,COMPASS>)>
			 <COND (<IN? ,QUILL ,BLACKTHORNE>
				<REMOVE ,QUILL>)>
			 <REMOVE ,APPLE>
			 <SCORE-OBJECT ,REEF>
			 <CRLF>
			 <NEXT-SCENE>)>)>>

<GLOBAL REEF-FLAG <>>

"returns T the first time the reef is sighted"

<ROUTINE REEF-SIGHTED? ()
	 <COND (,REEF-FLAG <RFALSE>)
	       (<OR <L=? ,REEF-X 2>
		    <L=? ,REEF-Y 2>>
		<RTRUE>)
	       (ELSE <RFALSE>)>>

<GLOBAL REEF-X <>>	;"x distance from ship to reef"
<GLOBAL REEF-Y <>>	;"y distance from ship to reef"

<ROUTINE REEF-DISTANCE ()
	 <SETG REEF-X 0>
	 <SETG REEF-Y 0>
	 <COND (<EQUAL? ,SHIP-X 0>
		<COND (<ZERO? ,SHIP-Y>
		       <SETG REEF-X 1000>
		       <SETG REEF-Y 1000>)
		      (ELSE <RFALSE>)>)
	       (<AND <EQUAL? ,SHIP-Y 0>
		     <G? ,SHIP-X 0>
		     <L? ,SHIP-X 7>>
		<RFALSE>)
	       (<AND <EQUAL? ,SHIP-Y 1>
		     <EQUAL? ,SHIP-X 6>>
		<RFALSE>)
	       (<AND <EQUAL? ,SHIP-Y 0 1>
		     <EQUAL? ,SHIP-X 7>>
		<SETG REEF-X 1>
		<SETG REEF-Y <- 3 ,SHIP-Y>>)
	       (<AND <EQUAL? ,SHIP-Y 1>
		     <L=? ,SHIP-X 5>>
		<SETG REEF-X ,SHIP-X>
		<SETG REEF-Y 1>)
	       (<L=? ,SHIP-Y 1>
		<COND (<L? ,SHIP-X 7>
		       <RFALSE>)
		      (ELSE
		       <SETG REEF-X <- ,SHIP-X 6>>
		       <SETG REEF-Y <+ <- ,SHIP-Y> <- ,SHIP-X 4>>>)>)
	       (<G=? ,SHIP-Y 11>
		<SETG REEF-X <- ,SHIP-X 15>>
		<COND (<G? ,SHIP-X 15> <SETG REEF-Y 1000>)
		      (ELSE <SETG REEF-Y 0>)>)
	       (<AND <EQUAL? ,SHIP-Y 2>
		     <EQUAL? ,SHIP-X 6 7>>
		<SETG REEF-X <- ,SHIP-X 5>>
		<SETG REEF-Y 1>)
	       (<G=? ,SHIP-Y 2>
		<SETG REEF-X <- <- ,SHIP-X 6> <- ,SHIP-Y 2>>>
		<SETG REEF-Y <- <- ,SHIP-X 4> ,SHIP-Y>>)>
	 <COND (<OR <L=? ,REEF-X 0> <L=? ,REEF-Y 0>>
		<SETG REEF-X 0>
		<SETG REEF-Y 0>
		<RFALSE>)
	       (ELSE <RTRUE>)>>



<OBJECT CREWMEN
	(LOC BELOW-DECKS)
	(DESC "crewmen")
	(SYNONYM CREW CREWMEN CREWMAN MEN MAN SAILOR SAILORS)
	(FLAGS PERSON DUTCHBIT NOABIT THE PLURAL DONT-ALL)
	(DESCFCN CREWMEN-DESC)
	(GENERIC GENERIC-CREWMEN-F)
	(ACTION LG-CREWMEN-F)>

<ROUTINE CREWMEN-DESC ("OPT" RARG OBJ)
	 <COND (<RARG? OBJDESC?>
		<COND (<HERE? ,BELOW-DECKS ,VILLAGE-SQUARE>
		       <RTRUE>)>)
	       (<RARG? OBJDESC>
		<COND (<HERE? ,BELOW-DECKS>
		       <COND (,CREW-ON-DECK?
			      <TELL
"A few of the worst-off crewmen are still here.">)
			     (,REEF-FLAG
			      <TELL
"Most of the surviving crewmen are preparing to go on deck.">)
			     (ELSE
			      <TELL
"Most of the survivors of the crew are here in bunks
and hammocks, some sleeping, some awake.">)>)
		      (<HERE? ,VILLAGE-SQUARE>
		       <TELL
"The rabble of the ship's crew kneel behind you, guards watching them.">)>)>>

<OBJECT LG-CREWMEN
	(LOC LOCAL-GLOBALS)
	(DESC "crewmen")
	(SYNONYM CREW CREWMEN CREWMAN MAN MEN)
	(FLAGS PERSON DUTCHBIT JAPANESEBIT NOABIT THE PLURAL)
	(GENERIC GENERIC-CREWMEN-F)
	(ACTION LG-CREWMEN-F)>

<GLOBAL CREW-ON-DECK? <>>

<ROUTINE LG-CREWMEN-F ("OPT" (RARG <>))
	 <COND (<RARG? SUBJ>
		<RFALSE>)
	       (<SCENE? S-ERASMUS S-YABU> ;"dutch crew"
		<COND (<RARG? WINNER>
		       <COND (<OR <HERE? PILOTS-CABIN CAPTAINS-CABIN
					 PASSAGEWAY>
				  <AND <HERE? ,BELOW-DECKS>
				       ,CREW-ON-DECK?>>
			      <TELL "There are no crewmen here." CR>)
			     (<P? WHO YOU>
			      <SETG WINNER ,PLAYER>
			      <PERFORM ,V?WHO ,CREWMEN>
			      <END-QUOTE>
			      <RFATAL>)
			     (<HERE? ,BELOW-DECKS ,MATES-CABIN>
			      <TELL
G"The crewmen whine and groan and pretend you are referring to someone
else.  You'll have to order specific crewmen to get any results." CR>)
			     (<P? (RAISE REPAIR LOWER REPLACE) FORESAILS>
			      <RFALSE>)
			     (<AND <IN? ,VINCK ,HERE>
				   <P? HELP>
				   <P? TAKE WHEEL>>
			      <SETG WINNER ,VINCK>
			      <PERFORM ,PRSA ,PRSO ,PRSI>
			      <RTRUE>)
			     (<AND <HERE? BELOW-DECKS>
				   <SEND-HIM-OUT?>>
			      <TELL
"The crewmen mutter among themselves, but no one moves." CR>)
			     (ELSE
			      <CURSES-IN "Dutch">)>)
		      (<VERB? EXAMINE WHO>
		       <LIST-PEOPLE ,CREWMAN? "crewman" "crewmen">
		       <COND (<HERE? ,BELOW-DECKS>
			      <COND (<IN? ,VINCK ,BELOW-DECKS>
				     <COND (<IN? ,GINSEL ,BELOW-DECKS>
					    <COND (<IN? ,MAETSUKKER
							,BELOW-DECKS>
						   <TELL
"Vinck, Ginsel, and Maetsukker are">)
						  (ELSE
						   <TELL
"Vinck and Ginsel are">)>)
					   (<IN? ,MAETSUKKER ,BELOW-DECKS>
					    <TELL
"Vinck and Maetsukker are">)
					   (ELSE
					    <TELL
"Vinck is">)>)
				    (<IN? ,GINSEL ,BELOW-DECKS>
				     <COND (<IN? ,MAETSUKKER ,BELOW-DECKS>
					    <TELL
"Ginsel and Maetsukker are">)
					   (ELSE
					    <TELL
"Ginsel is">)>)
				    (<IN? ,MAETSUKKER ,BELOW-DECKS>
				     <TELL
"Maetsukker is">)
				    (ELSE <CRLF> <RTRUE>)>
			      <TELL
" in the best condition, although everyone is badly off.">)
			     (<HERE? ,BRIDGE-OF-ERASMUS>
			      <TELL "">
			      <LIST-PEOPLE ,CREWMAN? "crewman" "crewmen"
					   ,ON-DECK "elsewhere on deck">)
			     (<HERE? ,ON-DECK>
			      <TELL "">
			      <LIST-PEOPLE ,CREWMAN?
					   "crewman" "crewmen"
					   ,BRIDGE-OF-ERASMUS
					   "on the bridge">)>
		       <CRLF>)
		      (<AND <VERB? TELL>
			    ,CREW-ON-DECK?
			    <HERE? ,BRIDGE-OF-ERASMUS ,ON-DECK>>
		       <RFALSE>)
		      (<NOT <CREW-HERE?>>
		       <TELL
G"There aren't any crewmen here." CR>
		       <COND (<VERB? TELL>
			      <END-QUOTE>
			      <RFATAL>)
			     (ELSE <RTRUE>)>)
		      (<AND <HERE? ,BELOW-DECKS>
			    <VERB? SEND>>
		       <TELL
G"The crewmen whine and groan and pretend you are referring to someone
else.  You'll have to order specific crewmen to get any results." CR>)
		      (<AND <VERB? WAKE> <HERE? ,BELOW-DECKS>>
		       <TELL
"You cuff a few of the sleepers into wakefulness, but most are too far
gone to do more than curse feebly." CR>)>)
	       (<SCENE? S-PIT>
		<COND (<VERB? EXAMINE>
		       <TELL
"They look scared." CR>)>)
	       (<SCENE? S-RODRIGUES>
		<TELL "There are no longer any crewmen aboard." CR>)
	       (<SCENE? S-VOYAGE> ;"japanese crew of galley"
		<COND (<RARG? WINNER>
		       <COND (<P? (DROP THROW PUT LOWER) ANCHOR>
			      <RFALSE>)
			     (ELSE
			      <CURSES-IN "Japanese">)>)>)
	       (<SCENE? S-MARIKO>
 		<COND (<NOT <ABSTRACT-VERB?>>
		       <TELL CTHE ,LG-CREWMEN " aren't here." CR>
		       <COND (<VERB? TELL> <END-QUOTE> <RFATAL>)
			     (ELSE <RTRUE>)>)>)>>

<ROUTINE CURSES-IN (L)
	 <TELL
"The only responses are muttered curses in " .L "." CR>>

<ROUTINE CREW-HERE? ()
	 <REPEAT ((F <FIRST? ,HERE>))
		 <COND (<NOT .F>
			<RFALSE>)
		       (<AND <NOT <EQUAL? .F ,CREWMEN>>
			     <FSET? .F ,DUTCHBIT>>
			<RTRUE>)>
		 <SET F <NEXT? .F>>>>

<OBJECT HENDRIK
	(DESC "Hendrik Specz")
	(SYNONYM HENDRIK SPECZ MATE)
	(ADJECTIVE HENDRIK THIRD)
	(FLAGS PERSON DUTCHBIT NOABIT NOTHEBIT)
	(DESCFCN HENDRIK-DESC)
	(ACTION HENDRIK-F)>

<ROUTINE HENDRIK-DESC (RARG OBJ)
	 <COND (<RARG? OBJDESC?>
		<COND (<FSET? ,HENDRIK ,RMUNGBIT> <RTRUE>)
		      (<FSET? ,HENDRIK ,TRYTAKEBIT> <RTRUE>)
		      (ELSE <RFALSE>)>)
	       (<RARG? OBJDESC>
		<TELL "Hendrik Specz ">
		<COND (<FSET? ,HENDRIK ,RMUNGBIT>
		       <TELL "is asleep at">)
		      (ELSE
		       <TELL "has">)>
		<TELL " the wheel.">)>>

<ROUTINE HENDRIK-F ("OPT" (RARG <>))
	 <COND (<RARG? SUBJ>
		<RFALSE>)
	       (<RARG? WINNER>
		<COND (<VERB? FOLLOW WALK WALK-TO WALK-UNDER>
		       <COND (<FSET? ,WHEEL ,ONBIT>
			      <TELL
"\"Pilot, it's my watch.  Let me take the wheel.  You must rest.\"" CR>)
			     (ELSE
			      <TELL
"\"One of us must stay and hold the God-cursed wheel, or we all die!\"" CR>)>)
		      (<OR <P? TAKE-OVER (<> WHEEL DECK)>
			   <P? (TAKE TURN) (WHEEL DECK)>>
		       <FSET ,HENDRIK ,TRYTAKEBIT> ;"hendrik has the wheel"
		       <HENDRIK-TAKES-WHEEL>
		       <TELL
"\"Aye, Pilot, I take the wheel.\"" CR>)
		      (<P? (RAISE REPAIR LOWER) FORESAILS>
		       <RFALSE>)
		      (<PRSO? ,WHEEL>
		       <TELL
"\"If you want the wheel, take it,\" snarls Hendrik." CR>)
		      (<OR <P? SHUT-UP ROOMS>
			   <AND <P? BE INTADJ>
				<ADJ? ,W?QUIET>>>
		       <TELL
"\"We'll all be quiet soon enough!\"" CR>)
		      (<VERB? TELL-ME-ABOUT>
		       <COND (<PRSO? ,JAPAN>
			      <TELL
"\"You're the one who said it's here.  Between latitudes thirty and
forty north, you said.  Well, I don't see it.\"" CR>)
			     (<PRSO? ,SPILLBERGEN>
			      <TELL
"\"He's a maggot-eaten fool and we'll all be dead because of him.\"" CR>)
			     (ELSE
			      <TELL
"He doesn't answer." CR>)>)
		      (<I-DONT-KNOW?>
		       <TELL
"\"You don't know?  You're the God-cursed Pilot, you'd better know!\"" CR>)
		      (ELSE
		       <TELL
"Hendrik's reply is a mixture of whining and curses." CR>)>)
	       (<VERB? TELL>
		<COND (<FSET? ,HENDRIK ,RMUNGBIT>
		       <TELL
"Hendrik is asleep." CR>
		       <END-QUOTE>)>)
	       (<P? EXAMINE>
		<TELL
"Hendrik, like all the crew members, is suffering from scurvy.  His face
is gray, his eyes are sunken, and his skin is blotched and sallow.  He
is dying." CR>)
	       (<VERB? GIVE>
		<COND (<FSET? ,HENDRIK ,RMUNGBIT>
		       <YOULL-HAVE-TO "wake him">)
		      (<PRSO? WHEEL>
		       <SETG WINNER ,HENDRIK>
		       <PERFORM ,V?TAKE ,WHEEL>
		       <SETG WINNER ,PLAYER>
		       <RTRUE>)>)
	       (<VERB? SOOTHE>
		<TELL
"He remains skeptical, muttering quietly to himself." CR>)
	       (<OR <HOSTILE-VERB?>
		    <AND <VERB? WAKE>
			 <FSET? ,PRSO ,RMUNGBIT>>>
		<COND (<FSET? ,PRSO ,RMUNGBIT>
		       <FCLEAR ,PRSO ,RMUNGBIT>
		       <TELL "You awaken Hendrik.  ">
		       <COND (,REEF-FLAG
			      <TELL
"\"We're lost,\" he screams.  \"Oh, Lord Jesus help us!\"" CR>)
			     (ELSE
			      <TELL
"\"I wasn't asleep,\" he says, sheepishly." CR>)>)
		      (ELSE
		       <TELL
"You realize it's only your fatigue making you want to hurt him, and
refrain." CR>)>)>>

<ROUTINE I-HENDRIK ()
	 <ZLINES ,HENDRIK-CNT
		 (<MOVE ,HENDRIK ,HERE>
		  <TELL CR
"Hendrik Specz, the third mate, appears on deck, pulling himself
painfully up the gangway.  ">
		  <THIS-IS-IT ,HENDRIK>
		  <COND (<HERE? ,BRIDGE-OF-ERASMUS>
			 <TELL
"He joins you on the bridge.  \"Go below, Pilot.  I take this watch if
it pleases you.\"  Gray with fatigue, he leans heavily against the
binnacle and retches.  \"Blessed Lord Jesus help me!\"" CR>)
			(ELSE
			 <TELL
"\"God curse you, Pilot!  Have you gone mad at last!  No one is at the
wheel!  We'll head onto the reef, God rot your bones!\"" CR>)>)
		 (<COND (<HERE? ,BRIDGE-OF-ERASMUS>
			 <MOVE ,HENDRIK ,HERE>
			 <SETG QCONTEXT ,HENDRIK>
			 <TELL CR
"\"Where's the landfall you promised us?  Where's the Japans?  Where is it,
I ask?\"" CR>)
			(<HERE? ,ON-DECK>
			 <COND (<AND <NOT <FSET? ,WHEEL ,RMUNGBIT>>
				     <NOT <FSET? ,WHEEL ,ONBIT>>
				     <NOT <FSET? ,HENDRIK ,TRYTAKEBIT>>>
				<TELL CR
"\"You'll drown us all, you crazy Englishman!\" Hendrik screams">
				<COND (<NOT <IN? ,HENDRIK ,BRIDGE-OF-ERASMUS>>
				       <MOVE ,HENDRIK ,BRIDGE-OF-ERASMUS>
				       <TELL
" as he rushes to the bridge." CR>)
				      (ELSE <TELL "." CR>)>)
			       (ELSE
				<TELL CR
G"Hendrik is muttering to himself.  Only a few curses are audible." CR>)>)>)
		 (<SETG QCONTEXT <>>
		  <COND (<HERE? ,BRIDGE-OF-ERASMUS>
			 <MOVE ,HENDRIK ,HERE>
			 <TELL CR
"\"Perhaps there is no Japans,\" Hendrik mutters scornfully.  \"It's just a "
I "Gottbewonden" " legend.\"" CR>)
			(<HERE? ,ON-DECK>
			 <TELL CR
G"Hendrik is muttering to himself.  Only a few curses are audible." CR>)>)
		 (<DEQUEUE I-HENDRIK>
		  <MOVE ,HENDRIK ,BRIDGE-OF-ERASMUS>
		  <COND (<AND <NOT <FSET? ,WHEEL ,RMUNGBIT>>
			      <NOT <FSET? ,WHEEL ,ONBIT>>
			      <NOT <FSET? ,HENDRIK ,TRYTAKEBIT>>>
			 <HENDRIK-SAVES-THE-DAY>)>
		  <COND (<AND <FSET? ,HERE ,OUTSIDE>
			      <NOT <HERE? ,ON-DECK>>>
			 <QUEUE I-TIRED-WARNING 4 T>
			 <QUEUE I-TIRED 8 T>)>
		  <TELL CR
"You are tired, deathly tired, and near starving.">
		  <COND (<OR <IN? ,VINCK ,BELOW-DECKS>
			     <IN? ,GINSEL ,BELOW-DECKS>
			     <IN? ,MAETSUKKER ,BELOW-DECKS>>
			 <COND (<AND <IN? ,VINCK ,BELOW-DECKS>
				     <IN? ,GINSEL ,BELOW-DECKS>
				     <IN? ,MAETSUKKER ,BELOW-DECKS>>
				<TELL
"With a start, you realize it's time to ">
				<COND (<FSET? ,HERE ,OUTSIDE>
				       <TELL "go below and ">)>
				<TELL "send out replacements for the
men on watch, by now freezing and windburned.">)
			       (ELSE
				<TELL "You know more men are needed
on watch.">)>)>
		  <COND (<ZERO? <GETP ,BLACKTHORNE ,P?HEALTH>>
			 <TELL
"It's past time to eat some of your meager cache of food; a few shrivelled
apples.">)>
		  <COND (<FSET? ,FLAGON ,SCOREBIT>
			 <TELL
"Time, too, for the unpleasant task of visiting Captain Spillbergen,
still in nominal command but deathly sick, confined to his cabin.">)>
		  <COND (<FSET? ,RUTTER ,SCOREBIT>
			 <TELL "It's also time to write
in your rutter, though God knows there is nothing new since yesterday;
nothing, that is, but death.">)>
		  <CRLF>)>>

<ROUTINE HENDRIK-TAKES-WHEEL ()
	 <FSET ,HENDRIK ,TRYTAKEBIT>
	 <SETG SHIP-COURSE ,P?FORE>
	 <SETG SHIP-DIRECTION P?WEST>
	 <DEQUEUE I-BROADSIDE>
	 <DEQUEUE I-SHIP-BROADSIDE>>

<ROUTINE HENDRIK-SAVES-THE-DAY ()
	 <FCLEAR ,WHEEL ,SCOREBIT>
	 <HENDRIK-TAKES-WHEEL>
	 <COND (<HERE? ,ON-DECK ,BRIDGE-OF-ERASMUS>
		<TELL CR
"Hendrik grabs the wheel, muttering vile curses on you and your kin." CR>)>>

<OBJECT MAETSUKKER
	(LOC BELOW-DECKS)
	(DESC "Maetsukker")
	(SYNONYM MAETSUKKER)
	(FLAGS NDESCBIT PERSON DUTCHBIT NOABIT NOTHEBIT SCOREBIT)
	(ACTION MAETSUKKER-F)>

<ROUTINE MAETSUKKER-F ("OPT" (RARG <>))
	 <COND (<RARG? SUBJ>
		<RFALSE>)
	       (<RARG? WINNER>
		<COND (<P? (RAISE REPAIR LOWER) FORESAILS>
		       <RFALSE>)
		      (<SEND-HIM-OUT?>
		       <SETG WINNER ,PLAYER>
		       <PERFORM ,V?SEND ,MAETSUKKER ,ROOMS>
		       <RTRUE>)
		      (ELSE
		       <TELL
"Maetsukker makes an almost inaudible remark about your mother." CR>)>)
	       (<VERB? EXAMINE>
		<TELL
"Maetsukker is a small, sharp-featured man.  He is in better shape than
most of the crew members." CR>)
	       (<AND <P? SEND MAETSUKKER>
		     <SCENE? ,S-ERASMUS>>
		<COND (<NOT <HERE? ,BELOW-DECKS>>
		       <TELL
"\"I'm already on watch, Pilot!\" he snarls." CR>)
		      (<NOT <FSET? ,MAETSUKKER ,RMUNGBIT>>
		       <FSET ,MAETSUKKER ,RMUNGBIT>
		       <TELL
"\"I'm near death,\" the small, sharp-featured man says, and cringes
away from you.  \"I'm sick.  Look, the scurvy's taken all my
teeth.  Take someone else!\"  Other members of the crew take up the
refrain.  They are all sick, all scurvied, all tired unto death." CR>)
		      (ELSE
		       <TELL
"\"I'm a merchant, not a seaman!  I'm not part of the crew!  Take someone
else!\"  Other crewmen nod in agreement.  None of them want to go on deck
if they can avoid it." CR>)>)
	       (<OR <VERB? TAKE>
		    <HOSTILE-VERB?>>
		<COND (<NOT <HERE? ,BELOW-DECKS>>
		       <TELL
"The two of you begin fighting, but before you can do any damage, the
other crewmen pull you apart." CR>)
		      (<FSET? ,MAETSUKKER ,RMUNGBIT>
		       <MOVE ,MAETSUKKER ,ON-DECK>
		       <TELL
"Maetsukker screams as you ">
		       <COND (<VERB? KICK>
			      <TELL "kick him like a dog and then ">)
			     (<VERB? HIT SWING>
			      <TELL "punch him in the stomach and then ">)
			     (<VERB? BITE>
			      <TELL "growl, baring your teeth, and then ">)>
		       <TELL "jerk him to his feet.  Blood flecks his
mouth as he pulls the door open and flees in agony.  The other crewmen
grumble, but seem to accept this assertion of your authority." CR>
		       <COND (<AND <IN? ,GINSEL ,ON-DECK>
				   <IN? ,VINCK ,ON-DECK>>
			      <RESTART-STORM?>
			      <SCORE-OBJECT ,MAETSUKKER>)>
		       <RTRUE>)
		      (ELSE
		       <TELL
"You have no reason to attack Maetsukker." CR>)>)>>

<OBJECT GINSEL
	(LOC BELOW-DECKS)
	(DESC "Ginsel")
	(SYNONYM GINSEL)
	(FLAGS NDESCBIT PERSON DUTCHBIT NOABIT NOTHEBIT)
	(ACTION GINSEL-F)>

<ROUTINE GINSEL-F ("OPT" (RARG <>))
	 <COND (<RARG? SUBJ>
		<RFALSE>)
	       (<RARG? WINNER>
		<COND (<P? (RAISE REPAIR LOWER) FORESAILS>
		       <RFALSE>)
		      (<SEND-HIM-OUT?>
		       <SETG WINNER ,PLAYER>
		       <PERFORM ,V?SEND ,GINSEL ,ROOMS>
		       <RTRUE>)
		      (<HOSTILE-VERB?>
		       <TELL "He looks at you as though you are crazy." CR>)
		      (ELSE
		       <TELL "Ginsel nods weakly." CR>)>)
	       (<RARG? <>>
		<COND (<VERB? EXAMINE>
		       <TELL
"Ginsel is a tall, good-looking youth with short arms and very bowed
legs.  He has lost all his teeth to scurvy and looks very weak." CR>)
		      (<P? SEND GINSEL>
		       <MOVE ,GINSEL ,ON-DECK>
		       <TELL
"\"Ginsel, you're bow lookout,\" you say quietly.|
\"Yes, sir.\"  Ginsel pulls himself upright and stumbles out." CR>
		       <COND (<AND <IN? ,MAETSUKKER ,ON-DECK>
				   <IN? ,VINCK ,ON-DECK>>
			      <RESTART-STORM?>
			      <SCORE-OBJECT ,MAETSUKKER>)>
		       <RTRUE>)>)>>

<ROOM BRIDGE-OF-ERASMUS
      (LOC ROOMS)
      (SCENE S-ERASMUS)
      (OWNER LG-ERASMUS)
      (DESC "Bridge")
      (SYNONYM BRIDGE)
      (PICTURE P-STORM)
      (SCORE 11)
      (FDESC
"The gale tears at you, biting deep within, and you know that if you
don't make landfall soon you'll all be dead.  You are John Blackthorne,
Pilot-Major of a dead fleet: one ship left out of five, eight and twenty
men out of one hundred and seven, and only ten of those can walk.  Little
food, almost no water, and that brackish and foul.")
      (DOWN TO ON-DECK)
      (FORE TO ON-DECK)
      (PORT SORRY "You would fall overboard.")
      (STARBOARD SORRY "You would fall overboard.")
      (AFT SORRY "You would fall overboard.")
      (ACTION BRIDGE-OF-ERASMUS-F)
      (GLOBAL LG-ERASMUS REEF FORESAILS LG-CREWMEN LG-SEA DECK)
      (FLAGS ONBIT OUTSIDE)>

<ROUTINE BRIDGE-OF-ERASMUS-F (RARG)
	 <COND (<RARG? SCENE-SETUP>
		<DRESS-BLACKTHORNE T>
		<MOVE ,COMPASS ,BLACKTHORNE>
		<PUTP ,BLACKTHORNE ,P?HEALTH 0>
		<SETG SHIP-COURSE ,P?FORE>
		<SETG SHIP-DIRECTION ,P?WEST>
		<QUEUE I-BROADSIDE 4>
		<QUEUE I-SHIP-BROADSIDE 8>
		<SETG STORM-DELAY? -2> ;"give 2*25 moves before storm serious"
		<QUEUE I-STORM -1>)
	       (<RARG? LOOK>
		<TELL
"This is the bridge of the " I "Erasmus"", a Dutch merchant and
privateer.  The ">
		<COND (<FSET? ,WHEEL ,RMUNGBIT>
		       <TELL "securely lashed">)
		      (ELSE
		       <TELL "unlashed">)>
		<TELL
" wheel is directly forward of you, a sea chair is lashed to the
deck aft of the wheel, and the ship's bell is hanging here.">
		<COND (<QUEUED? I-STORM>
		       <TELL
"Spray blows past in an angry torrent.">)>
		<CRLF>)
	       (<RARG? ENTER>
		<COND (<AND <SCENE? ,S-ERASMUS>
			    <NOT <FSET? ,HENDRIK ,RMUNGBIT>>
			    <FSET? ,BELL ,SCOREBIT>
			    <OR <FSET? ,PASSAGEWAY ,TOUCHBIT>
				<FSET? ,BELOW-DECKS ,TOUCHBIT>>>
		       <FSET ,HENDRIK ,RMUNGBIT> ;"asleep"
		       <FSET ,WHEEL ,RMUNGBIT> ;"lash wheel"
		       <TELL
"As you climb onto the bridge, you see that Hendrik has fallen asleep
at his post.  At least the wheel is lashed in place." CR CR>)>
		<RTRUE>)
	       (<RARG? BEG>
		<COND (<P? LISTEN <>>
		       <PERFORM ,V?LISTEN ,WIND>
		       <RTRUE>)
		      (<AND <P? WALK (P?DOWN P?FORE)>
			    <NOT <FSET? ,WHEEL ,RMUNGBIT>>
			    <NOT <FSET? ,WHEEL ,ONBIT>>
			    <OR <NOT <IN? ,HENDRIK ,BRIDGE-OF-ERASMUS>>
				<NOT <FSET? ,HENDRIK ,TRYTAKEBIT>>>>
		       <COND (<AND <IN? ,HENDRIK ,BRIDGE-OF-ERASMUS>
				   <NOT <FSET? ,HENDRIK ,TRYTAKEBIT>>>
			      <TELL
"Hendrik grabs for the wheel as you leave.  \"Curse you, Pilot!  Someone
has to hold the course!\"">)
			     (ELSE
			      <TELL
"As you climb down to the deck, you see the wheel spinning
uncontrolled.">)>
		       <CRLF>
		       <CRLF>
		       <RFALSE>)
		      (<P? TURN INTDIR>
		       <PERFORM ,V?TURN ,WHEEL ,INTDIR>
		       <RTRUE>)
		      (<P? TAKE-OVER <>>
		       <PERFORM ,V?TAKE-OVER ,WHEEL>
		       <RTRUE>)
		      (<AND <VERB? SHRUG>
			    <IN? ,HENDRIK ,HERE>>
		       <TELL
"Hendrik's reaction is unprintable." CR>)
		      (<P? LOOK-UP ROOMS>
		       <PERFORM ,V?EXAMINE ,FORESAILS>
		       <RTRUE>)>)>>

<ROUTINE DONE-BELOW? ()
	 <COND (<AND <NOT <FSET? ,ROPER ,SCOREBIT>>
		     <NOT <FSET? ,APPLE ,SCOREBIT>>
		     <NOT <FSET? ,KEY ,SCOREBIT>>
		     <NOT <FSET? ,RUTTER ,SCOREBIT>>
		     <NOT <FSET? ,CAPTAINS-DESK ,SCOREBIT>>
		     <NOT <FSET? ,FLAGON ,SCOREBIT>>
		     <NOT <FSET? ,MAETSUKKER ,SCOREBIT>>>
		<RTRUE>)>>

<ROUTINE RESTART-STORM? ()
	 <COND (<DONE-BELOW?>
		<SETG STORM-DELAY? 0>
		<QUEUE I-STORM 2>
		<RTRUE>)>>

<OBJECT BELL
	(LOC BRIDGE-OF-ERASMUS)
	(DESC "bell")
	(SYNONYM BELL)
	(FLAGS NDESCBIT SCOREBIT)
	(ACTION BELL-F)>

<ROUTINE BELL-F ()
	 <COND (<VERB? RING>
		<TELL "You ring the bell.  \"All hands on deck!\" you yell.">
		<COND (<SCENE? ,S-ERASMUS>
		       <QUEUE I-HANDS 2>
		       <COND (<AND <IN? ,HENDRIK ,BRIDGE-OF-ERASMUS>
				   <FSET? ,HENDRIK ,RMUNGBIT>>
			      <FCLEAR ,HENDRIK ,RMUNGBIT>
			      <TELL "The noise wakes Hendrik.  \"We're
lost,\" he screams.  \"Oh, Lord Jesus help us!\"">)>
		       <CRLF>
		       <COND (<AND ,REEF-FLAG
				   <FSET? ,BELL ,SCOREBIT>>
			      <SCORE-OBJECT ,BELL>)>)
		      (ELSE <CRLF>)>
		<RTRUE>)>>

<ROUTINE MOVE-CREW (RM "OPT" (NDESC? <>))
	 <COND (<NOT .RM>
		<REMOVE ,CREWMEN>
		<REMOVE ,HENDRIK>
		<REMOVE ,VINCK>
		<REMOVE ,MAETSUKKER>
		<REMOVE ,GINSEL>
		<REMOVE ,SPILLBERGEN>
		<REMOVE ,VAN-NEKK>
		<REMOVE ,CROOCQ>
		<REMOVE ,SONK>
		<REMOVE ,ROPER>
		<REMOVE ,PIETERZOON>
		<REMOVE ,SALAMON>)
	       (ELSE
		<SETG CREW-ON-DECK? T>
		<COND (<EQUAL? .RM ,VILLAGE-SQUARE ,PIT>
		       <MOVE ,PIETERZOON .RM>
		       <COND (.NDESC? <FSET ,PIETERZOON ,NDESCBIT>)
			     (ELSE <FCLEAR ,PIETERZOON ,NDESCBIT>)>
		       <MOVE ,ROPER .RM>
		       <COND (.NDESC? <FSET ,ROPER ,NDESCBIT>)
			     (ELSE <FCLEAR ,ROPER ,NDESCBIT>)>
		       <MOVE ,SONK .RM>
		       <COND (.NDESC? <FSET ,SONK ,NDESCBIT>)
			     (ELSE <FCLEAR ,SONK ,NDESCBIT>)>
		       <MOVE ,SALAMON .RM>
		       <COND (.NDESC? <FSET ,SALAMON ,NDESCBIT>)
			     (ELSE <FCLEAR ,SALAMON ,NDESCBIT>)>)>
		<MOVE ,VINCK .RM>
		<COND (.NDESC? <FSET ,VINCK ,NDESCBIT>)
		      (ELSE <FCLEAR ,VINCK ,NDESCBIT>)>
		<MOVE ,CROOCQ .RM>
		<COND (.NDESC? <FSET ,CROOCQ ,NDESCBIT>)
		      (ELSE <FCLEAR ,CROOCQ ,NDESCBIT>)>
		<MOVE ,GINSEL .RM>
		<COND (.NDESC? <FSET ,GINSEL ,NDESCBIT>)
		      (ELSE <FCLEAR ,GINSEL ,NDESCBIT>)>
		<MOVE ,MAETSUKKER .RM>
		<COND (.NDESC? <FSET ,MAETSUKKER ,NDESCBIT>)
		      (ELSE <FCLEAR ,MAETSUKKER ,NDESCBIT>)>
		<MOVE ,VAN-NEKK .RM>
		<COND (.NDESC? <FSET ,VAN-NEKK ,NDESCBIT>)
		      (ELSE <FCLEAR ,VAN-NEKK ,NDESCBIT>)>
		<COND (<EQUAL? .RM ,VILLAGE-SQUARE ,PIT>
		       <MOVE ,SPILLBERGEN .RM>)>
		<MOVE ,CREWMEN .RM>)>>

<ROUTINE I-HANDS ()
	 <COND (<NOT ,CREW-ON-DECK?>
		<TELL CR
"The noise of the bell and your yelling have aroused the crew and
they pull themselves out onto the deck.">
		<COND (,REEF-FLAG
		       <MOVE-CREW ,ON-DECK>
		       <TELL "They are terrified when they
see the encroaching reef, most are panicked and don't know what
to do next, but a few with their last reserves of strength
try ineffectually to get the ship under control." CR>)
		      (ELSE
		<TELL "They sullenly look around, see that there is
no danger, and muttering curses, return below, oblivious to your
entreaties." CR>)>)>>

<OBJECT SEA-CHAIR
	(LOC BRIDGE-OF-ERASMUS)
	(DESC "sea chair")
	(SYNONYM CHAIR)
	(ADJECTIVE SEA)
	(FLAGS NDESCBIT FURNITURE OPENBIT CONTBIT VEHBIT SEARCHBIT)
	(ACTION SEA-CHAIR-F)>

<ROUTINE SEA-CHAIR-F (RARG)
	 <COND (<RARG? BEG>
		<COND (<VERB? WALK>
		       <YOULL-HAVE-TO "get out of the sea chair">)
		      (<VERB? STAND>
		       <B-STAND>
		       <MOVE ,WINNER ,HERE>
		       <TELL
"You rise to your feet." CR>)>)
	       (ELSE
		<COND (<VERB? BOARD SIT>
		       <COND (<NOT <IN? ,WINNER ,SEA-CHAIR>>
			      <MOVE ,WINNER ,SEA-CHAIR>
			      <B-SIT>
			      <TELL
"You are now sitting in the sea chair." CR>)>)>)>>

<OBJECT FOCSLE-DOOR
	(LOC LOCAL-GLOBALS)
	(OWNER CREWMEN)
	(DESC "focsle door")
	(SYNONYM DOOR)
	(ADJECTIVE CREW FOCSLE FORECASTLE)
	(FLAGS DOORBIT LOCKABLE)
	(ACTION FOCSLE-DOOR-F)>

<ROUTINE FOCSLE-DOOR-F ()
	 <COND (<AND <NOT <PASSIVE-VERB?>>
		     <SCENE? ,S-ANJIRO>>
		<PERFORM ,V?RUB ,RIBBON>
		<RTRUE>)>>

<ROOM BELOW-DECKS
      (LOC ROOMS)
      (SCENE S-ERASMUS)
      (DESC "Below Decks")
      (SYNONYM QUARTERS FORECASTLE FOCSLE DECKS)
      (ADJECTIVE CREW ;BELOW)
      (PICTURE P-BELOW-DECKS)
      (UP TO ON-DECK IF FOCSLE-DOOR IS OPEN)
      (AFT TO ON-DECK IF FOCSLE-DOOR IS OPEN)
      (OUT TO ON-DECK IF FOCSLE-DOOR IS OPEN)
      (ACTION BELOW-DECKS-F)
      (FLAGS ONBIT)
      (GLOBAL DECK LG-ERASMUS FOCSLE-DOOR LG-CREWMEN LG-BUNK)
      (THINGS <> RAT RAT-PSEUDO
	      <> COCKROACH COCKROACH-PSEUDO)>

<ROUTINE BELOW-DECKS-F (RARG)
	 <COND (<RARG? LOOK>
		<TELL
"The crew's quarters of the "I"Erasmus"".  A companionway leads up to the
deck.  It's dim, warm and close here, and the stench is abominable." CR>)
	       (<RARG? ENTER>
		<COND (<AND <SCENE? S-ERASMUS>
			    <EQUAL? ,OHERE ,ON-DECK>
			    <NOT ,CREW-ON-DECK?>>
		       <SETG TIRED-TIME <DEQUEUE I-TIRED>>
		       <FCLEAR ,FOCSLE-DOOR ,OPENBIT>
		       <THIS-IS-IT ,CREWMEN>
		       <COND (,REEF-FLAG
			      <TELL
"As you enter, you see the men resignedly preparing to go on deck." CR CR>)
			     (ELSE
			      <TELL
"As you enter, a volley of feeble curses greets you.  You close the door
and they subside.  No one moves." CR CR>)>)>
		<RTRUE>)
	       (<RARG? BEG>
		<COND (<VERB? SMELL>
		       <TELL
"The stench here is terrible.  Rotten food, rotten flesh, offal, and
worse." CR>)
		      (<AND <P? TAKE * LG-BUNK>
			    <FSET? ,PRSO ,PERSON>>
		       <PERFORM ,V?MOVE ,PRSO>
		       <RTRUE>)
		      (<P? YELL-AT (<> CREWMEN)>
		       <TELL
"They just yell right back at you." CR>)
		      (<P? (ATTACK HIT) CREWMEN>
		       <TELL
"They back off, intimidated." CR>)>)>>

<BEGIN-SEGMENT ANJIRO>
<BEGIN-SEGMENT RODRIGUES>

<ROOM ON-DECK
      (SCENE S-ERASMUS)
      (LOC ROOMS)
      (DESC "Deck")
      (SYNONYM DECK)
      (UP TO BRIDGE-OF-ERASMUS)
      (DOWN SORRY "The gangways are fore and aft.  Down is ambiguous.")
      (PORT SORRY "You would fall overboard.")
      (STARBOARD SORRY "You would fall overboard.")
      (AFT TO PASSAGEWAY IF PASSAGE-DOOR IS OPEN)
      (FORE TO BELOW-DECKS IF FOCSLE-DOOR IS OPEN)
      (FLAGS ONBIT OUTSIDE)
      (GLOBAL LG-ERASMUS FOCSLE-DOOR PASSAGE-DOOR REEF LG-CREWMEN FORESAILS
       DECK GANGWAY LG-SEA LG-SMALL-BOAT)
      (ACTION ON-DECK-F)>

<ROUTINE ON-DECK-F (RARG)
	 <COND (<RARG? LOOK>
		<TELL
"This is the main deck of the "I"Erasmus"".  A companionway leads up to the
bridge, and another one forward leads below decks to the
crew quarters.  A stairway aft leads to the officers' cabins." CR>)
	       (<RARG? BEG>
		<COND (<SCENE? ,S-ANJIRO ,S-RODRIGUES>
		       <COND (<P? LISTEN <>>
			      <PERFORM ,V?LISTEN ,WIND>
			      <RTRUE>)
			     (<P? WALK (P?UP P?FORE P?AFT)>
			      <COND (<IN? ,RODRIGUES ,PASSAGEWAY>
				     <RFALSE>)
				    (ELSE
				     <PERFORM ,V?RUB ,RIBBON>
				     <RTRUE>)>)
			     (<P? WALK (P?DOWN ,P?PORT ,P?WEST)>
			      <COND (<FSET? ,SAMURAI-GUARDS ,RMUNGBIT>
				     <TELL
"You climb down the gangway into the ">
				     <COND (<IN? ,SMALL-BOAT ,AT-ERASMUS>
					    <MOVE ,WINNER ,SMALL-BOAT>
					    <TELL D ,SMALL-BOAT>)
					   (ELSE
					    <TELL "water">)>
				     <TELL "." CR CR>
				     <GOTO ,AT-ERASMUS>)
				    (<EQUAL? ,RIBBON-CNT 3>
				     <TELL
"You start down the gangway, and stop.  You feel your cold sweat and see
the samurai staring at you malevolently." CR>)
				    (ELSE
				     <TELL
"You start to climb down the gangway, but you can't force yourself
to leave without trying to regain your rutters." CR>)>)
			     (<P? BOW <>>
			      <PERFORM ,V?BOW ,SAMURAI-GUARDS>
			      <RTRUE>)>)
		      (<SCENE? ,S-ERASMUS>
		       <COND (<P? LOOK-UP ROOMS>
			      <PERFORM ,V?EXAMINE ,FORESAILS>
			      <RTRUE>)>)>)
	       (<RARG? ENTER>
		<COND (<SCENE? S-ERASMUS>
		       <COND (<AND ,TIRED-TIME
				   <EQUAL? ,OHERE ,BELOW-DECKS ,PASSAGEWAY>>
			      <QUEUE I-TIRED ,TIRED-TIME>)>
		       <COND (<OR <EQUAL? <SCORE-HAVE> 7> ;"almost done"
				  <AND <EQUAL? ,OHERE ,PASSAGEWAY>
				       <FSET? ,APPLE ,SCOREBIT>>
				  <AND <EQUAL? ,OHERE ,BELOW-DECKS>
				       <FSET? ,MAETSUKKER ,SCOREBIT>>>
			      <SETG STORM-DELAY? <>>
			      <QUEUE-STORM>)>)
		      (<SCENE? ,S-ANJIRO>
		       <COND (<EQUAL? ,OHERE ,AT-ERASMUS>
			      <QUEUE I-RIBBON 3>)>)
		      (<SCENE? ,S-RODRIGUES>
		       <COND (<AND <EQUAL? ,OHERE ,AT-ERASMUS>
				   <IN? ,RODRIGUES ,HERE>>
			      <TELL
"As you climb aboard, ">
			      <SEALED-PASSAGE>
			      <CRLF>)>)>
		<RTRUE>)>>

<END-SEGMENT ;"ERASMUS+ANJIRO+RODRIGUES">

<BEGIN-SEGMENT ERASMUS>

<OBJECT ERASMUS-ANCHOR
	(LOC ON-DECK)
	(OWNER LG-ERASMUS)
	(DESC "anchor")
	(SYNONYM ANCHOR)
	(SIZE 200)
	(FLAGS TAKEBIT AN)
	(DESCFCN ERASMUS-ANCHOR-DESC)
	(ACTION ERASMUS-ANCHOR-F)>

<ROUTINE ERASMUS-ANCHOR-DESC (RARG OBJ)
	 <COND (<RARG? OBJDESC?>
		<COND (<SCENE? ,S-ERASMUS> <RTRUE>)
		      (ELSE <RFALSE>)>)
	       (<RARG? OBJDESC>
		<TELL
"The anchor hangs over the side, ready to be dropped if ever, by the
grace of God and your good piloting, the "I"Erasmus"" reaches port.">)>>

<ROUTINE ERASMUS-ANCHOR-F ()
	 <COND (<VERB? RAISE>
		<PERFORM ,V?TAKE ,PRSO>
		<RTRUE>)
	       (<VERB? DROP THROW PUT LOWER>
		<TELL
G"That would be suicide in this storm." CR>)>>

<BEGIN-SEGMENT RODRIGUES>

<ROOM PASSAGEWAY
      (LOC ROOMS)
      (DESC "Passageway")
      (SYNONYM PASSAGEWAY)
      (LDESC
"The Captain's cabin is aft of here.  Your cabin is to port, and the Mates'
cabin to starboard.  The main deck is forward of here.")
      (AFT TO CAPTAINS-CABIN IF CAPTAINS-CABIN-DOOR IS OPEN)
      (STARBOARD TO MATES-CABIN IF MATES-CABIN-DOOR IS OPEN)
      (PORT TO PILOTS-CABIN IF PILOTS-CABIN-DOOR IS OPEN)
      (FORE TO ON-DECK IF PASSAGE-DOOR IS OPEN)
      (OUT TO ON-DECK IF PASSAGE-DOOR IS OPEN)
      (FLAGS ONBIT)
      (GLOBAL DECK LG-ERASMUS LG-CREWMEN PASSAGE-DOOR
              PILOTS-CABIN CAPTAINS-CABIN MATES-CABIN
	      PILOTS-CABIN-DOOR CAPTAINS-CABIN-DOOR MATES-CABIN-DOOR)
      (ACTION PASSAGEWAY-F)
      (THINGS <> RAT RAT-PSEUDO
	      <> COCKROACH COCKROACH-PSEUDO)>

<ROUTINE PASSAGEWAY-F (RARG)
	 <COND (<RARG? ENTER>
		<COND (<SCENE? ,S-ERASMUS>
		       <SETG TIRED-TIME <DEQUEUE I-TIRED>>
		       <QUEUE I-BELOW-DECKS -1 T>
		       <COND (<IN? ,ROPER ,PASSAGEWAY>
			      <MOVE ,ROPER ,MATES-CABIN>
			      <MOVE ,APPLE ,ROPER>
			      <TELL
"As you enter the relative quiet of the aft passageway, you notice
Jan Roper heading across the passage from your cabin to the Mates'
cabin." CR CR>)>)>
		<RTRUE>)
	       (<RARG? BEG>
		<COND (<P? (OPEN CLOSE)>
		       <COND (<PRSO? PILOTS-CABIN>
			      <PERFORM ,PRSA ,PILOTS-CABIN-DOOR>
			      <RTRUE>)
			     (<PRSO? MATES-CABIN>
			      <PERFORM ,PRSA ,MATES-CABIN-DOOR>
			      <RTRUE>)
			     (<PRSO? CAPTAINS-CABIN>
			      <PERFORM ,PRSA ,CAPTAINS-CABIN-DOOR>
			      <RTRUE>)>)>)>>

<END-SEGMENT ;"ERASMUS+RODRIGUES">
<BEGIN-SEGMENT ERASMUS>

<ROUTINE I-BELOW-DECKS ()
	 <COND (<FSET? ,HERE ,OUTSIDE>
		<DEQUEUE I-BELOW-DECKS>
		<RFALSE>)
	       (<PROB 25>
		<TELL CR <PICK-ONE ,BELOW-DECKS-BACKGROUND> CR>)>>

<GLOBAL BELOW-DECKS-BACKGROUND
	<LTABLE 0
		"A rat scurries in the shadows cast by a hanging oil lamp."
		"Timbers creak pleasantly."
		"Cockroaches swarm on the floor.">>

<ROOM CAPTAINS-CABIN
      (LOC ROOMS)
      (DESC "Captain's Cabin")
      (OWNER SPILLBERGEN)
      (SYNONYM CABIN ROOM)
      (LDESC
"This is the great cabin, the Captain-General's quarters and
magazine.  The passageway leading to the other officers' cabins
is forward.")
      (FORE TO PASSAGEWAY IF CAPTAINS-CABIN-DOOR IS OPEN)
      (OUT TO PASSAGEWAY IF CAPTAINS-CABIN-DOOR IS OPEN)
      (FLAGS ONBIT)
      (GLOBAL DECK LG-ERASMUS CAPTAINS-CABIN-DOOR LG-CREWMEN LG-BUNK)
      (ACTION CAPTAINS-CABIN-F)
      (THINGS <> RAT RAT-PSEUDO
	      <> COCKROACH COCKROACH-PSEUDO)>

<ROUTINE CAPTAINS-CABIN-F (RARG)
	 <COND (<RARG? BEG>
		<COND (<P? FIND GLOBAL-WATER>
		       <PERFORM ,V?OPEN ,CAPTAINS-DESK>
		       <RTRUE>)>)
	       (<RARG? LEAVE>
		<COND (<SCENE? S-ERASMUS>
		       <DEQUEUE I-WHINE>
		       <TELL CR
"You close your ears to the whines and leave, hating Spillbergen
anew." CR CR>)>)
	       (<RARG? END>
		<COND (<AND <SCENE? S-ERASMUS>
			    <NOT <QUEUED? I-WHINE>>>
		       <I-WHINE T>)>)>>

<ROUTINE I-WHINE ("OPT" (END <>))
	 <QUEUE I-WHINE 3>
	 <THIS-IS-IT ,SPILLBERGEN>
	 <TELL CR
"Spillbergen whines weakly.  \"I'm ">
	 <COND (<FSET? ,FLAGON ,SCOREBIT> <TELL "thirsty">)
	       (ELSE <TELL "hungry">)>
	 <TELL ",\" he rasps.">
	 <COND (.END
		<TELL
"You've set some water aside for him, out of pity.">)>
	 <CRLF>>

<OBJECT FLAGON
	(LOC CAPTAINS-DESK)
	(DESC "flagon")
	(SYNONYM FLAGON WATER DRINK)
	(FLAGS TAKEBIT SEARCHBIT OPENABLE TRANSBIT CONTBIT SCOREBIT)
	(CAPACITY 10)
	(ACTION FLAGON-F)>

<ROUTINE FLAGON-F ("AUX" (W <NOUN-USED? ,PRSO ,W?WATER>))
	 <COND (<AND <VERB? LEAP DIVE> .W>
		<PERFORM ,PRSA ,LG-SEA>
		<RTRUE>)
	       (<AND .W <FSET? ,FLAGON ,RMUNGBIT>>
		<TELL "There's no longer any water in the flagon." CR>)
	       (<VERB? EXAMINE>
		<TELL
"This is a flagon ">
		<COND (<FSET? ,FLAGON ,RMUNGBIT>
		       <TELL "which contained">)
		      (ELSE <TELL "containing">)>
		<TELL " a secret cache of water you've set aside
for the Captain-General.  The water doesn't look too palatable." CR>)
	       (<VERB? PUT-AWAY>
		<MOVE ,FLAGON ,CAPTAINS-DESK>
		<TELL "You put the flagon back into the desk." CR>)
	       (<VERB? LOOK-INSIDE>
		<COND (<NOT <FSET? ,FLAGON ,OPENBIT>>
		       <TELL CTHE ,FLAGON " isn't open." CR>)
		      (<FSET? ,FLAGON ,RMUNGBIT>
		       <TELL CTHE ,FLAGON " is now empty." CR>)
		      (ELSE
		       <TELL
"There is some water in the flagon." CR>)>)
	       (<VERB? POUR>
		<COND (<NOT <FSET? ,FLAGON ,OPENBIT>>
		       <TELL CTHE ,FLAGON " isn't open." CR>)
		      (<FSET? ,FLAGON ,RMUNGBIT>
		       <TELL CTHE ,FLAGON " is empty." CR>)
		      (ELSE
		       <FSET ,FLAGON ,RMUNGBIT>
		       <TELL
"You pour the water">
		       <COND (<AND <HERE? ,CAPTAINS-CABIN>
				   <PRSI? <> ,SPILLBERGEN>>
			      <TELL
" on the Captain, who whines pitifully at your
cruelty." CR>)
			     (ELSE <TELL "." CR>)>)>)
	       (<VERB? DRINK TASTE>
		<COND (<NOT <FSET? ,FLAGON ,OPENBIT>>
		       <TELL CTHE ,FLAGON " isn't open." CR>)
		      (<FSET? ,FLAGON ,RMUNGBIT>
		       <TELL
"There's no more water." CR>)
		      (ELSE
		       <TELL
"You sip a little">
		       <COND (<FSET? ,FLAGON ,SCOREBIT>
			      <TELL ", reserving the rest for Spillbergen">)>
		       <TELL
".  The water tastes terrible, but at least it's not salt water.  It's
well known that if you descend to drinking salt water, you go mad." CR>)>)
	       (<AND <P? GIVE>
		     <NOT <FSET? ,FLAGON ,RMUNGBIT>>
		     <FSET? ,PRSI ,PERSON>>
		<COND (<FSET? ,PRSI ,PLURAL>
		       <TELL
"You can't share that little bit of water among so many." CR>)
		      (ELSE
		       <MOVE ,FLAGON ,PRSI>
		       <FSET ,FLAGON ,OPENBIT>
		       <TELL CTHE ,PRSI " drinks it greedily." CR>)>)
	       (<AND <VERB? TAKE>
		     <NOUN-USED? ,PRSO ,W?WATER>>
		<COND (<HELD? ,FLAGON>
		       <COND (<FSET? ,FLAGON ,RMUNGBIT>
			      <TELL
"The flagon held the last of the good water, tarry but drinkable." CR>)
			     (ELSE
			      <TELL
"You already have a flagon full of water." CR>)>)
		      (ELSE
		       <RFALSE>)>)>>

<OBJECT SECRET-DRAWER
	(LOC CAPTAINS-CABIN)
	(OWNER SPILLBERGEN)
	(DESC "secret drawer")
	(SYNONYM DRAWER CATCH ORNAMENTATION)
	(ADJECTIVE SECRET SMALL)
	(FLAGS INVISIBLE NDESCBIT SEARCHBIT OPENABLE CONTBIT FURNITURE)
	(ACTION SECRET-DRAWER-F)>

<ROUTINE SECRET-DRAWER-F ()
	 <COND (<VERB? EXAMINE OPEN CLOSE>
		<PERFORM ,PRSA ,CAPTAINS-DESK>
		<RTRUE>)
	       (<VERB? PUSH MOVE>
		<PERFORM ,V?OPEN ,CAPTAINS-DESK>
		<RTRUE>)>>

<OBJECT CAPTAINS-DESK
	(LOC CAPTAINS-CABIN)
	(OWNER SPILLBERGEN)
	(DESC "desk")
	(LDESC "The Captain's ornate desk fills one wall of the cabin.")
	(SYNONYM DESK)
	(ADJECTIVE CAPTAIN)
	(FLAGS SEARCHBIT SURFACEBIT OPENABLE CONTBIT FURNITURE SCOREBIT)
	(CAPACITY 100)
	(ACTION CAPTAINS-DESK-F)>

<ROUTINE CAPTAINS-DESK-F ()
	 <COND (<VERB? EXAMINE>
		<TELL
"This desk is much like your own, but the captain hasn't used it in
weeks.  He is too sick to leave his bunk.">
		<COND (<NOT <FSET? ,CAPTAINS-DESK ,RMUNGBIT>>
		       <TELL "">
		       <PERFORM ,V?OPEN ,CAPTAINS-DESK>
		       <RTRUE>)>
		<CRLF>)
	       (<VERB? OPEN LOOK-INSIDE SEARCH LOOK-ON>
		<COND (<NOT <FSET? ,CAPTAINS-DESK ,RMUNGBIT>>
		       <FSET ,CAPTAINS-DESK ,RMUNGBIT>
		       <FCLEAR ,SECRET-DRAWER ,INVISIBLE>
		       <TELL
"You look through the desk, knowing you left a flagon of water in it.  In your
tiredness you fumble around, unsure where you put it, and then remember
the secret drawer.  Where's that catch?  Ah, there it is, a small piece of
ornamentation." CR>)
		      (<NOT <FSET? ,CAPTAINS-DESK ,OPENBIT>>
		       <FSET ,CAPTAINS-DESK ,OPENBIT>
		       <FSET ,SECRET-DRAWER ,OPENBIT>
		       <TELL
"You open the secret drawer to the desk, revealing ">
		       <DESCRIBE-REST ,CAPTAINS-DESK>
		       <TELL "." CR>
		       <RESTART-STORM?>
		       <SCORE-OBJECT ,CAPTAINS-DESK>)>)>>

<BEGIN-SEGMENT RODRIGUES>

<ROOM PILOTS-CABIN
      (LOC ROOMS)
      (DESC "Pilot's Cabin")
      (SCENE S-ERASMUS S-ANJIRO S-RODRIGUES)
      (OWNER BLACKTHORNE)
      (SYNONYM CABIN ROOM)
      ;(ADJECTIVE MY)
      (STARBOARD TO PASSAGEWAY IF PILOTS-CABIN-DOOR IS OPEN)
      (OUT TO PASSAGEWAY IF PILOTS-CABIN-DOOR IS OPEN)
      (FLAGS ONBIT)
      (GLOBAL DECK PILOTS-CABIN-DOOR LG-ERASMUS LG-CREWMEN)
      (THINGS <> RAT RAT-PSEUDO
	      <> COCKROACH COCKROACH-PSEUDO)
      (ACTION PILOTS-CABIN-F)>

<ROUTINE PILOTS-CABIN-F (RARG)
	 <COND (<RARG? LOOK>
		<TELL
"This is your cabin, sparsely furnished and small but nonetheless the
second best on the ship.  The only exit is out to the passageway.">
		<COND (<AND <SCENE? S-ERASMUS>
			    <NOT <FSET? ,HERE ,TOUCHBIT>>>
		       <TELL
"There's something wrong here.  Your cabin has been disturbed.  As
you look around, trying to see what's wrong, your eyes stray to the
sea chest which contains your rutters.  You do it almost in a panic, for
a pilot's rutters are his life.">)
		      (<SCENE? S-RODRIGUES>
		       <TELL
"The room looks as though it has been tidied up and then thoroughly
turned over again.">)>
		<CRLF>)
	       (<RARG? ENTER>
		<COND (<SCENE? S-ERASMUS>
		       <QUEUE I-BUNK 4>)>
		<RTRUE>)
	       (<RARG? LEAVE>
		<COND (<SCENE? ,S-ERASMUS>
		       <DEQUEUE I-BUNK>)>)
	       (<RARG? BEG>
		<COND (<P? WALK (P?OUT P?STARBOARD)>
		       <COND (<OR <HELD? ,RUTTER>
				  <HELD? ,SECRET-RUTTER>>
			      <TELL
"As you start to leave, you remember you are carrying one of your
precious rutters out into the storm or into the inquisitive eyes
of your crew.  You think better of it." CR>)>)
		      (<VERB? SLEEP LIE-DOWN>
		       <PERFORM ,V?BOARD ,BUNK>
		       <RTRUE>)>)>>

<END-SEGMENT ;"ERASMUS+RODRIGUES">
<BEGIN-SEGMENT ERASMUS>

<NEW-ADD-WORD "RUTTERS" NOUN <VOC "RUTTER"> ,PLURAL-FLAG>
<NEW-ADD-WORD "MAPS" NOUN <VOC "MAP"> ,PLURAL-FLAG>

<OBJECT SECRET-RUTTER
	(LOC SEA-CHEST)
	(DESC "secret Portuguese rutter")
	(SYNONYM RUTTER MAP)
	(ADJECTIVE SECRET PORTUGUESE)
	(FLAGS READBIT TAKEBIT OPENABLE)
	(ACTION SECRET-RUTTER-F)>

<ROUTINE SECRET-RUTTER-F ()
	 <COND (<OR <VERB? ;WHERE FIND>
		    <AND <P? BE * INTPP>
			 <PP? ,W?ON ,LG-ERASMUS>>>
		<COND (<SCENE? ,S-ANJIRO>
		       <PERFORM ,PRSA ,RUTTER ,PRSI>
		       <RTRUE>)>)
	       (<IN? ,RUTTER ,GENERIC-OBJECTS>
		<COND (<ABSTRACT-VERB?> <RFALSE>)
		      (ELSE
		       <TELL
G"There's no rutter here." CR>)>)
	       (<P? PUT-AWAY SECRET-RUTTER ROOMS>
		<PERFORM ,PRSA ,PRSO ,SEA-CHEST>
		<RTRUE>)
	       (<VERB? EXAMINE READ OPEN>
		<FSET ,PRSO ,OPENBIT>
		<TELL
"This rutter explains the sea route through Magellan's Pass into the
Pacific and up the west coast of Spanish America.  It is a treasure
beyond price." CR>)
	       (<VERB? WRITE>
		<TELL
"You haven't written in this rutter since you fled the Spanish into
the Pacific.  It deals with Magellan's Pass, and goes no further than
Chile." CR>)
	       (<VERB? FOLLOW STEER-BY>
		<TELL
G"You are in uncharted territory now, and the rutter is no help." CR>)
	       (<P? SHOW * (VINCK HENDRIK)>
		<TELL
CTHE ,PRSI " appears interested, probably wondering why you are
revealing your secret now.  Perhaps you expect to die..." CR>)
	       (<VERB? MUNG TEAR>
		<TELL G"You could never destroy such a valuable object." CR>)
	       (<VERB? PUT DROP>
		<FCLEAR ,PRSO ,OPENBIT>
		<RFALSE>)>>

<OBJECT RUTTER
	(LOC SEA-CHEST)
	(OWNER BLACKTHORNE)
	(DESC "your rutter")
	(SYNONYM RUTTER ;RUTTERS MAP ;MAPS)
	;(ADJECTIVE MY)
	(FLAGS NOABIT NOTHEBIT READBIT TAKEBIT SCOREBIT OPENABLE)
	(ACTION RUTTER-F)>

<ROUTINE RUTTER-F ()
	 <COND (<OR <VERB? ;WHERE FIND>
		    <AND <P? BE * INTPP>
			 <PP? ,W?ON ,LG-ERASMUS>>>
		<COND (<SCENE? ,S-ANJIRO>
		       <FSET ,RUTTER ,RMUNGBIT>
		       <TELL
"You haven't seen your rutters.  Could they still be on the "I"Erasmus""?  Or
worse, could they have been taken?  They are your most precious
possessions, and the secret one could cost you your life in any
Catholic nation!" CR>)>)
	       (<VERB? WHAT>
		<TELL
"A rutter is a small book containing the detailed observation of
a pilot who has been there before.  It records magnetic compass courses
between ports and capes, headlands and channels.  It sets down how we
got there and how we got back.  Rutters that reveal the mysteries of
the Pass of Magellan into the Pacific -- a Portuguese discovery -- and
thence the seaways to Asia are guarded as national treasures by the
Spanish and Portuguese." CR>)
	       (<IN? ,RUTTER ,GENERIC-OBJECTS>
		<COND (<ABSTRACT-VERB?> <RFALSE>)
		      (ELSE
		       <TELL
G"There's no rutter here." CR>)>)
	       (<P? PUT-AWAY RUTTER ROOMS>
		<PERFORM ,PRSA ,PRSO ,SEA-CHEST>
		<RTRUE>)
	       (<VERB? FOLLOW STEER-BY>
		<TELL
G"You are in uncharted territory now, and the rutter is no help." CR>)
	       (<VERB? EXAMINE READ OPEN>
		<FSET ,RUTTER ,OPENBIT>
		<TELL
"This rutter is the record of your voyage from Rotterdam in the Netherlands
south through the Atlantic, through the Pass of Magellan, up the west
coast of South America, and into the unknown Pacific." CR>)
	       (<VERB? WRITE>
		<COND (<NOT <PRSI? <> ,QUILL>>
		       <CANT-X-WITH-PRSI "write">)
		      (<FSET? ,RUTTER ,SCOREBIT>
		       <TELL "You">
		       <COND (<NOT <HELD? ,QUILL>>
			      <SETG PRSO ,QUILL>
			      <COND (<NOT <ITAKE <>>>
				     <TELL
"'ll have a devil of a time writing without a quill." CR>
				     <RTRUE>)
				    (ELSE
				     <TELL " take the quill and">)>
			      <SETG PRSO ,RUTTER>)>
		       <FSET ,RUTTER ,OPENBIT>
		       <TELL " write: \"April 21 1600.  Fifth
hour.  Dusk.  133d day from Santa Maria Island, Chile, on the 32 degree
North line
of latitude.  Sea still high and wind strong.  We are running before the
wind along a course of 270 degrees, making way briskly.  Large reefs
were sighted at half the hour bearing North East by North half a
league distant.  Three men died in the night of the scurvy.  Today
Bosun Rijckloff died.  I estimate we are still on course and that
landfall in the Japans should be soon.\"|
|
But how soon, you wonder?" CR>
		       <RESTART-STORM?>
		       <SCORE-OBJECT ,RUTTER>)
		      (ELSE
		       <TELL
"You've already written in the rutter today.  Perhaps you need some
rest." CR>)>)
	       (<VERB? MUNG TEAR>
		<TELL G"You could never destroy such a valuable object." CR>)
	       (<VERB? PUT DROP>
		<FCLEAR ,RUTTER ,OPENBIT>
		<RFALSE>)>>

<OBJECT SEA-CHEST
	(LOC PILOTS-CABIN)
	(DESC "sea chest")
	(SYNONYM CHEST TRUNK)
	(ADJECTIVE SEA)
	(SIZE 200)
	(FLAGS LOCKED LOCKABLE TAKEBIT SEARCHBIT CONTBIT OPENABLE)
	(CAPACITY 20)
	(ACTION SEA-CHEST-F)>

<ROUTINE SEA-CHEST-F ()
	 <COND (<VERB? EXAMINE>
		<COND (<AND <NOT <FSET? ,PRSO ,OPENBIT>>
			    <FSET? ,PRSO ,LOCKED>>
		       <FSET ,SEA-CHEST ,RMUNGBIT>	
		       <TELL
"It's locked and appears undisturbed." CR>)>)
	       (<VERB? OPEN>
		<COND (<PRSI? ,KEY>
		       <PERFORM ,V?UNLOCK ,SEA-CHEST ,KEY>
		       <RTRUE>)
		      (<FSET? ,SEA-CHEST ,LOCKED>
		       <FSET ,SEA-CHEST ,RMUNGBIT>
		       <TELL
"It's locked.  You keep your rutters in it, and they are your most
precious possessions." CR>)
		      (<NOT <FSET? ,SEA-CHEST ,OPENBIT>>
		       <FSET ,SEA-CHEST ,OPENBIT>
		       <TELL
"The sea chest opens.  Inside it is ">
		       <DESCRIBE-REST ,SEA-CHEST>
		       <TELL "." CR>)>)
	       (<AND <P? LOCK SEA-CHEST (<> KEY)>
		     <NOT <FSET? ,SEA-CHEST ,LOCKED>>>
		<COND (<FSET? ,SEA-CHEST ,OPENBIT>
		       <YOULL-HAVE-TO "close it">)
		      (<HELD? ,KEY>
		       <FSET ,SEA-CHEST ,LOCKED>
		       <TELL "You've now locked it securely." CR>)
		      (ELSE
		       <TELL G"You don't have the key." CR>)>)
	       (<AND <P? UNLOCK SEA-CHEST (<> KEY)>
		     <FSET? ,SEA-CHEST ,LOCKED>>
		<COND (<HELD? ,KEY>
		       <FCLEAR ,SEA-CHEST ,LOCKED>
		       <TELL "You unlock " THE ,PRSO "." CR>)
		      (ELSE
		       <FSET ,SEA-CHEST ,RMUNGBIT>
		       <TELL G"You don't have the key." CR>)>)
	       (<VERB? CLOSE>
		<COND (<FSET? ,SEA-CHEST ,OPENBIT>
		       <FCLEAR ,SEA-CHEST ,OPENBIT>
		       <TELL
"The sea chest is now closed." CR>)>)>>

<ROUTINE I-BUNK ("AUX" CNT)
	 <COND (<G? <GETP ,BLACKTHORNE ,P?HEALTH> 0>
		<RFALSE>)>
	 <QUEUE I-BUNK 6>
	 <PUTP ,BUNK ,P?COUNT <SET CNT <+ 1 <GETP ,BUNK ,P?COUNT>>>>
	 <TELL CR
"You glance at your bunk.  You are so tired.  Go to sleep just for an hour,
for ten minutes..." CR CR>
	 <COND (<G? .CNT 4>
		<TELL "\"I must sleep.  Sleep.  They rely on me...\" You
fall into a deep, exhausted sleep which is interrupted only when the "
I"Erasmus"" is holed on the reef and sinks to the bottom." CR>
		<JIGS-UP>)
	       (ELSE
		<TELL "\"I won't, I'll sleep tomorrow,\" you force yourself
to say." CR>)>>

<OBJECT LG-BUNK
	(LOC LOCAL-GLOBALS)
	(SCENE S-ERASMUS S-ANJIRO S-RODRIGUES)
	(DESC "bed")
	(SYNONYM BUNK BED HAMMOCK BUNKS BEDS HAMMOCKS)
	(FLAGS FURNITURE SURFACEBIT VEHBIT)
	(ACTION LG-BUNK-F)>

<ROUTINE LG-BUNK-F ()
	 <COND (<VERB? BOARD>
		<TELL
"This is no time to think of sleep!" CR>)>>

<OBJECT BUNK
	(LOC PILOTS-CABIN)
	(SCENE S-ERASMUS S-ANJIRO S-RODRIGUES)
	(DESC "bunk")
	(FDESC "The long narrow bunk with its straw palliasse looks inviting.")
	(SYNONYM BUNK BED)
	(ADJECTIVE LONG NARROW)
	(FLAGS FURNITURE VEHBIT)
	(COUNT 0)
	(ACTION BUNK-F)>

<CONSTANT J-BUNK 10>

<ROUTINE BUNK-F ()
	 <COND (<VERB? BOARD CLIMB-ON>
		<COND (<JIGS-UP? ,J-BUNK
"Your tired brain tells you that if you lie down, you will sleep, and if
you sleep, the ship will be lost, so you push yourself away.">
		       <TELL
"While you might have had a chance of resisting sleep if you hadn't lain
in the bunk, once you are in it, you fall quickly into an exhausted
slumber.  When you are awakened, it is by the wrenching, tearing sound of
the reef scraping the hull off of the ship.  You and the "I"Erasmus"" are
doomed." CR>
		       <JIGS-UP>)
		      (ELSE <RTRUE>)>)>>

<OBJECT DESK
	(LOC PILOTS-CABIN)
	(DESC "desk")
	(SYNONYM DESK)
	(FLAGS FURNITURE OPENBIT SURFACEBIT CONTBIT SEARCHBIT)
	(CAPACITY 100)
	(ACTION DESK-F)>

<ROUTINE DESK-F ()
	 <COND (<VERB? EXAMINE>
		<TELL
"This is a battered old writing desk, with a top large enough for
charts and rutters.">
		<COND (<AND <SCENE? ,S-ERASMUS> <IN? ,APPLE ,ROPER>>
		       <TELL
"You don't see the apples you've been saving.">)>
		<CRLF>)
	       (<VERB? OPEN>
		<COND (<AND <FSET? ,KEY ,NDESCBIT>
			    <SCENE? ,S-ERASMUS>>
		       <PERFORM ,V?SEARCH ,DESK>
		       <RTRUE>)
		      (ELSE
		       <TELL
"Opening the desk reveals little of interest.  You've seen it all a
thousand times before." CR>)>)
	       (<VERB? SEARCH>
		<COND (<AND <FSET? ,KEY ,NDESCBIT>
			    <SCENE? ,S-ERASMUS>>
		       <FSET ,KEY ,TAKEBIT>
		       <FSET ,KEY ,TRYTAKEBIT>
		       <FCLEAR ,KEY ,NDESCBIT>
		       <COND (<IN? ,APPLE ,ROPER>
			      <TELL
"The first thing you notice is that the apples you've been saving are
gone!  ">)>
		       <COND (<FSET? ,SEA-CHEST ,RMUNGBIT>
			      <FCLEAR ,SEA-CHEST ,RMUNGBIT>
			      <MOVE ,KEY ,WINNER>
			      <THIS-IS-IT ,KEY>
			      <TELL
"You search for the key to your sea chest.  Can someone have taken it?  No!  There it is.  You take it with thanks." CR>)
			     (ELSE
			      <TELL "You notice the key to your sea chest,
safe and sound where you left it." CR>)>
		       <RESTART-STORM?>
		       <SCORE-OBJECT ,KEY>)
		      (ELSE
		       <TELL
"You search the desk, finding nothing of particular interest." CR>)>)>>

<OBJECT QUILL
	(LOC DESK)
	(DESC "quill")
	(SYNONYM QUILL PEN)
	(ADJECTIVE FRESH QUILL)
	(FLAGS TAKEBIT TOOLBIT)>

<OBJECT KEY
	(LOC PILOTS-CABIN)
	(DESC "rusty key")
	(SYNONYM KEY)
	(ADJECTIVE RUSTY)
	(FLAGS NDESCBIT ;TRYTAKEBIT ;TAKEBIT SCOREBIT)
	(ACTION KEY-F)>

<ROUTINE KEY-F ()
	 <COND (<VERB? FIND>
		<COND (<FSET? ,KEY ,NDESCBIT>
		       <TELL
"You keep the key in your desk, so you look there first.  ">)>
		<PERFORM ,V?SEARCH ,DESK>
		<RTRUE>)
	       (<FSET? ,KEY ,NDESCBIT>
		<TELL
"You see no key here." CR>)
	       (<AND <P? UNLOCK SEA-CHEST KEY>
		     <FSET? ,SEA-CHEST ,LOCKED>>
		<FCLEAR ,SEA-CHEST ,LOCKED>
		<TELL
"The chest unlocks with a rusty click." CR>)
	       (<AND <P? LOCK SEA-CHEST KEY>
		     <NOT <FSET? ,SEA-CHEST ,LOCKED>>>
		<FCLEAR ,SEA-CHEST ,OPENBIT>
		<FSET ,SEA-CHEST ,LOCKED>
		<TELL
"The chest is now securely locked." CR>)>>

<OBJECT APPLE
	(DESC "tiny bruised apple")
	(OWNER BLACKTHORNE)
	(SYNONYM APPLE APPLES SLICE)
	(ADJECTIVE BRUISED TINY MOLDY)
	(FLAGS NDESCBIT TAKEBIT FOODBIT SCOREBIT DONT-ALL)
	(COUNT 4)
	(ACTION APPLE-F)>

<ROUTINE APPLE-F ("AUX" TMP)
	 <COND (<VERB? FIND>
		<COND (<AND <IN? ,APPLE ,ROPER>
			    <FSET? ,APPLE ,NDESCBIT>>
		       <TELL
"A cursory search of the premises reveals no apple." CR>)>)
	       (<VERB? EXAMINE>
		<COND (<IN? ,APPLE ,ROPER>
		       <COND (<FSET? ,APPLE ,NDESCBIT>
			      <TELL
"You see no apple." CR>)
			     (ELSE
			      <TELL
"This is the last of the apples you have carefully hoarded all the way
from Santa Maria Island, off Chile.  It's bruised and tiny, with mold on
a rotting section." CR>)>)>)
	       (<VERB? EAT>
		<COND (<NOT <HELD? ,APPLE>>
		       <TELL
"You don't have the apple." CR>
		       <RTRUE>)>
		<SET TMP <- <GETP ,APPLE ,P?COUNT> 1>>
		<PUTP ,APPLE ,P?COUNT .TMP>
		<COND (<ZERO? .TMP>
		       <REMOVE ,APPLE>
		       <TELL
"You eat the last quarter of the apple." CR>)
		      (ELSE
		       <TELL
"You carefully eat a quarter of the apple, wrap the remainder, and put it
away.  There are a few maggots in the quarter you've cut off, but you
heed the old sea legend that apple maggots are effective against
scurvy.  You chew the fruit gently because your teeth are aching and your gums
sore and tender.  After you finish the apple, you feel better." CR>
		       <COND (<EQUAL? .TMP 3>
			      <PUTP ,WINNER ,P?HEALTH 1>
			      <SETG TIRED-TIME 0>
			      <DEQUEUE I-TIRED-WARNING>
			      <DEQUEUE I-TIRED>
			      <RESTART-STORM?>
			      <SCORE-OBJECT ,APPLE>)>
		       <RTRUE>)>)
	       (<AND <P? GIVE APPLE *>
		     <FSET? ,PRSI ,PERSON>>
		<REMOVE ,APPLE>
		<TELL
CTHE ,PRSI " take" S ,PRSI " the apple and gobble" S ,PRSI " it greedily.">
		<COND (<PRSI? ,VINCK ,PIETERZOON CROOCQ>
		       <TELL
"\"Thank you, Pilot.  Thank you!\"">)>
		<CRLF>)>>

<ROUTINE RAT-PSEUDO ()
	 <RANDOM-PSEUDO "rat">>

<ROUTINE COCKROACH-PSEUDO ()
	 <RANDOM-PSEUDO "cockroaches">>

<ROUTINE RANDOM-PSEUDO (WHAT)
	 <TELL "You don't see the " .WHAT " any more." CR>>

<ROOM MATES-CABIN
      (LOC ROOMS)
      (DESC "Mates' Cabin")
      (OWNER MATES)
      (SYNONYM CABIN ROOM)
      (ADJECTIVE MATES)
      (PORT TO PASSAGEWAY IF MATES-CABIN-DOOR IS OPEN)
      (OUT TO PASSAGEWAY IF MATES-CABIN-DOOR IS OPEN)
      (FLAGS ONBIT)
      (GLOBAL DECK MATES-CABIN-DOOR LG-ERASMUS LG-CREWMEN)
      (THINGS <> RAT RAT-PSEUDO
	      <> COCKROACH COCKROACH-PSEUDO)
      (ACTION MATES-CABIN-F)>

<ROUTINE MATES-CABIN-F (RARG)
	 <COND (<RARG? LOOK>
		<TELL
"This is the Mates' cabin.">
		<COND (<SCENE? ,S-ERASMUS>
		       <TELL "It is now shared by Baccus van Nekk, the
chief merchant, Hendrik the third mate, and the boy, Croocq.">)>
		<TELL "The passageway is outside." CR>)
	       (<RARG? BEG>
		<COND (<AND <P? SEARCH GLOBAL-HERE>
			    <IN? ,APPLE ,ROPER>>
		       <TELL
"You find nothing.  Roper watches with a smirk on his face.  \"Go ahead,
Pilot.  Search all you want.\"" CR>)
		      (<AND <P? SEARCH (PIETERZOON VAN-NEKK CROOCQ)>
			    <IN? ,APPLE ,ROPER>>
		       <TELL
D ,PRSO " reluctantly allows himself to be searched, cursing you all
the while.  You find nothing." CR>)>)>>

<BEGIN-SEGMENT RODRIGUES>

<OBJECT PILOTS-CABIN-DOOR
	(LOC LOCAL-GLOBALS)
	(OWNER BLACKTHORNE)
	(DESC "Pilot's cabin door")
	(SYNONYM DOOR)
	(ADJECTIVE ;MY CABIN)
	(FLAGS DOORBIT LOCKABLE)>

<END-SEGMENT ;"ERASMUS+RODRIGUES">
<BEGIN-SEGMENT ERASMUS>

<OBJECT CAPTAINS-CABIN-DOOR
	(LOC LOCAL-GLOBALS)
	(OWNER SPILLBERGEN)
	(DESC "Captain's cabin door")
	(SYNONYM DOOR)
	(ADJECTIVE CABIN)
	(FLAGS DOORBIT LOCKABLE)
	(ACTION CAPTAINS-CABIN-DOOR-F)>

<ROUTINE CAPTAINS-CABIN-DOOR-F ()
	 <COND (<VERB? KNOCK>
		<COND (<IN? ,SPILLBERGEN ,CAPTAINS-CABIN>
		       <TELL
"You hear a faint response." CR>)>)>>

<OBJECT MATES
	(LOC GENERIC-OBJECTS)
	(DESC "Mates")
	(SYNONYM MATES MATE OFFICERS OFFICER)
	(ADJECTIVE FIRST SECOND THIRD)
	(FLAGS PERSON DUTCHBIT)>

<OBJECT MATES-CABIN-DOOR
	(LOC LOCAL-GLOBALS)
	(OWNER MATES)
	(DESC "Mates' cabin door")
	(SYNONYM DOOR)
	(ADJECTIVE CABIN)
	(FLAGS DOORBIT LOCKABLE)
	(ACTION MATES-CABIN-DOOR-F)>

<ROUTINE MATES-CABIN-DOOR-F ()
	 <COND (<VERB? KNOCK>
		<COND (<SCENE? ,S-ERASMUS>
		       <TELL
"\"Aye?  Come in, damn you!  Do think this is a palace?\"" CR>)>)>>

<BEGIN-SEGMENT ANJIRO>
<BEGIN-SEGMENT RODRIGUES>

<OBJECT PASSAGE-DOOR
	(LOC LOCAL-GLOBALS)
	(DESC "passageway door")
	(SYNONYM DOOR)
	(ADJECTIVE PASSAGE PASSAGEWAY)
	(FLAGS DOORBIT LOCKABLE)
	(ACTION PASSAGE-DOOR-F)>

<ROUTINE PASSAGE-DOOR-F ()
	 <COND (<SCENE? ,S-ANJIRO>
		<COND (<NOT <PASSIVE-VERB?>>
		       <PERFORM ,V?RUB ,RIBBON>
		       <RTRUE>)>)
	       (<SCENE? ,S-ERASMUS>
		<COND (<VERB? KNOCK>
		       <TELL
"You hear noise inside, but no response to your knock." CR>)>)>>

<END-SEGMENT ;"ERASMUS+ANJIRO+RODRIGUES">
<BEGIN-SEGMENT ERASMUS>

<OBJECT LASHING
	(LOC BRIDGE-OF-ERASMUS)
	(DESC "protective lashing")
	(SYNONYM LASHING ROPE)
	(ADJECTIVE PROTECTIVE)
	(FLAGS NDESCBIT)>

<OBJECT WHEEL
	(LOC BRIDGE-OF-ERASMUS)
	(OWNER LG-ERASMUS)
	(DESC "wheel")
	(SYNONYM WHEEL RUDDER HELM TILLER)
	(DESCFCN WHEEL-DESC)
	(FLAGS CANT-HOLD SCOREBIT)
	(ACTION WHEEL-F)>

<ROUTINE WHEEL-DESC (RARG OBJ)
	 <COND (<RARG? OBJDESC?> <RTRUE>)
	       (<RARG? OBJDESC>
		<TELL
"The wheel dominates the quarterdeck.  It is
turned ">
		<COND (<EQUAL? ,SHIP-COURSE ,P?PORT> <TELL "to port">)
		      (<EQUAL? ,SHIP-COURSE ,P?STARBOARD> <TELL "to starboard">)
		      (ELSE <TELL "straight">)>
	 <TELL " and ">
	 <COND (<FSET? ,WHEEL ,RMUNGBIT>
		<TELL "lashed in place">)
	       (ELSE <TELL "free to turn">)>
	 <TELL  " now.">)>>

<ROUTINE WHEEL-F ("AUX" (ST? <>) (TOOK? <>))
	 <COND (<VERB? EXAMINE>
		<TELL
"The wheel is connected to the rudder and steers the ship.  It is
turned ">
		<COND (<EQUAL? ,SHIP-COURSE ,P?PORT> <TELL "to port">)
		      (<EQUAL? ,SHIP-COURSE ,P?STARBOARD> <TELL "to starboard">)
		      (ELSE <TELL "straight">)>
		<TELL " now, ">
		<COND (<FSET? ,WHEEL ,RMUNGBIT>
		       <TELL
"lashed in place against the surging sea." CR>)
		      (<FSET? ,WHEEL ,ONBIT>
		       <TELL
"unlashed and held steady only by all the strength you can summon
from a weakened body." CR>)
		      (ELSE
		       <TELL
"spinning freely from side to side, the lashing hanging loosely beside
it." CR>)>)
	       (<VERB? TAKE TAKE-OVER>
		<COND (<FSET? ,WHEEL ,RMUNGBIT>
		       <PERFORM ,V?UNTIE ,WHEEL>
		       <RTRUE>)
		      (<NOT <FSET? ,WHEEL ,ONBIT>>
		       <TELL
"You take hold of the wheel, trying to keep it under control">
		       <COND (<AND <EQUAL? ,SHIP-Y 1> ;">=13"
				   <G? ,SHIP-X 0>
				   <L? ,SHIP-X 6>>
			      <TELL ", but the currents and the
crashing waves spin it away from from you.  You just aren't strong
enough to hold it alone.  \"Piss on you, storm!  Get your dung-eating
hands off my ship!\", you rage in frustration." CR>)
			     (ELSE
			      <FCLEAR ,HENDRIK ,TRYTAKEBIT>
			      <FSET ,WHEEL ,ONBIT>
			      <TELL "." CR>)>)
		      (ELSE
		       <TELL
"You hold the wheel as strongly as you can, fighting the surging
sea." CR>)>)
	       (<VERB? DROP>
		<COND (<FSET? ,WHEEL ,RMUNGBIT>
		       <PERFORM ,V?UNTIE ,WHEEL>
		       <RTRUE>)
		      (<FSET? ,WHEEL ,ONBIT>
		       <FCLEAR ,WHEEL ,ONBIT>
		       <TELL
"You let go of the wheel." CR>)
		      (ELSE
		       <TELL
"You arent' holding it." CR>)>)
	       (<P? PUT LASHING WHEEL>
		<PERFORM ,V?TIE ,WHEEL>
		<RTRUE>)
	       (<P? (TAKE TAKE-OFF) LASHING>
		<PERFORM ,V?UNTIE ,WHEEL>
		<RTRUE>)
	       (<P? TIE WHEEL>
		<COND (<FSET? ,WHEEL ,RMUNGBIT>
		       <TELL G"It already is." CR>)
		      (<AND <EQUAL? ,SHIP-Y 1> ;">=13"
			    <G? ,SHIP-X 0>
			    <L? ,SHIP-X 6>
			    <NOT <FSET? ,WHEEL ,ONBIT>>>
		       <TELL
"The wheel is spinning too wildly to lash.  ">
		       <YOULL-HAVE-TO "get it under control">)
		      (ELSE
		       <FSET ,WHEEL ,RMUNGBIT>
		       <FCLEAR ,WHEEL ,ONBIT>
		       <TELL
"You loop the protective lashing around the spokes of the wheel.  It
is now locked in place." CR>)>)
	       (<P? UNTIE WHEEL>
		<COND (<FSET? ,WHEEL ,RMUNGBIT>
		       <FCLEAR ,HENDRIK ,TRYTAKEBIT>
		       <FSET ,WHEEL ,ONBIT>
		       <FCLEAR ,WHEEL ,RMUNGBIT>
		       <TELL
"You remove the protective lashing, and brace yourself in place against
the force of the sea.  You can now turn the wheel freely." CR>)
		      (ELSE
		       <TELL
G"It already is." CR>)>)
	       (<P? TIE * WHEEL>
		<COND (<PRSO? ,LASHING>
		       <PERFORM ,V?TIE ,WHEEL>
		       <RTRUE>)
		      (ELSE
		       <TELL
"You can't tie " THE ,PRSO " to the wheel!" CR>)>)
	       (<P? UNTIE LASHING WHEEL>
		<PERFORM ,V?UNTIE ,WHEEL>)
	       (<P? STRAIGHTEN WHEEL>
		<SETG P-DIRECTION ,P?FORE>
		<PERFORM ,V?TURN ,WHEEL ,INTDIR>
		<RTRUE>)
	       (<P? TURN WHEEL>
		<COND (<NOT <FSET? ,WHEEL ,ONBIT>>
		       <COND (<AND <EQUAL? ,SHIP-Y 1> ;">=13"
				   <G? ,SHIP-X 0>
				   <L? ,SHIP-X 6>>
			      <TELL
"You grab for the spinning, thrashing wheel, but the force of the
storm is too strong, and the"G" wheel spins out of your hands!" CR>
			      <RTRUE>)
			     (ELSE
			      <SET TOOK? T>
			      <FCLEAR ,HENDRIK ,TRYTAKEBIT>
			      <FSET ,WHEEL ,ONBIT>
			      <TELL
"You take the wheel">
			      <COND (<FSET? ,WHEEL ,RMUNGBIT>
				     <FCLEAR ,WHEEL ,RMUNGBIT>
				     <TELL ", unlashing it first">)>)>)>
		<COND (<FSET? ,LG-ERASMUS ,RMUNGBIT>
		       <COND (.TOOK? <TELL ", but the">)
			     (ELSE <TELL "The">)>
		       <TELL
" ship is pinned to the reef, so turning the wheel is futile!" CR>)
		      (<FSET? ,WHEEL ,RMUNGBIT>
		       <COND (.TOOK? <TELL ", but it's">)
			     (ELSE <TELL "The wheel is">)>
		       <TELL " lashed in place and won't turn." CR>)
		      (<FSET? ,FORESAILS ,RMUNGBIT>
		       <COND (.TOOK? <TELL " and turn it">)
			     (ELSE
			      <TELL "You turn the wheel">)>
		       <TELL ", but there just isn't enough sail without the
foresails, and the ship wallows like a pig!" CR>)
		      (<PRSI? ,INTDIR>
		       <COND (<OR <AND <EQUAL? ,P-DIRECTION ,P?STARBOARD>
				       <EQUAL? ,SHIP-COURSE ,P?PORT>>
				  <AND <EQUAL? ,P-DIRECTION ,P?PORT>
				       <EQUAL? ,SHIP-COURSE ,P?STARBOARD>>>
			      <SET ST? ,P-DIRECTION>
			      <SETG P-DIRECTION ,P?FORE>)>
		       <COND (<EQUAL? ,P-DIRECTION ,SHIP-COURSE>
			      <COND (.TOOK? <TELL ".  ">)>
			      <COND (<EQUAL? ,SHIP-COURSE ,P?FORE>
				     <TELL "You maintain course ">
				     <TELL-DIRECTION ,SHIP-DIRECTION>
				     <TELL ", the wheel still ">)
				    (ELSE
				     <TELL "The wheel is already ">)>
			      <COND (<EQUAL? ,SHIP-COURSE ,P?PORT>
				     <TELL "turned to port">)
				    (<EQUAL? ,SHIP-COURSE ,P?STARBOARD>
				     <TELL "turned to starboard">)
				    (<EQUAL? ,SHIP-COURSE ,P?FORE>
				     <TELL "straight">)>
			      <TELL "." CR>)
			     (<EQUAL? ,P-DIRECTION ,P?PORT>
			      <QUEUE I-BROADSIDE 2>
			      <SET-COURSE ,P?PORT>
			      <COND (.TOOK? <TELL ".  ">)>
			      <TELL
"Straining against the sea, you turn the wheel to port.">
			      <COND (<AND ,REEF-FLAG ;"3,4"
					  <EQUAL? ,REEF-X ,REEF-Y>>
				     <TELL
"The ship turns broadside to the reef, struggling against the
wind which tries to drive it onto the spines." CR>)
				    (<AND <EQUAL? ,SHIP-X 6> ;"11"
					  <EQUAL? ,SHIP-Y 2>>
				     <TELL
"Fighting the wind, the ship slowly turns away from the reef." CR>)
				    (<AND <EQUAL? ,SHIP-X 1> ;"15"
					  <EQUAL? ,SHIP-Y 1>>
				     <TELL
"Struggling, the ship begins to turn to port, slowly, slowly as the
swift currents are drawing you deeper into the maze of rocks." CR>)
				    (ELSE
				     <TELL
"The ship struggles against the wind." CR>)>)
			     (<EQUAL? ,P-DIRECTION ,P?STARBOARD>
			      <QUEUE I-BROADSIDE 2>
			      <SET-COURSE ,P?STARBOARD>
			      <COND (.TOOK? <TELL " and turn it">)
				    (ELSE <TELL "You turn the wheel">)>
			      <TELL " to starboard.">
			      <COND (<AND <EQUAL? ,SHIP-X 8> ;"10"
					  <EQUAL? ,SHIP-Y 2>>
				     <TELL
"The wind snaps the sails full and the ship heads for the gap, but it
means coming very close to the waiting reef!" CR>)
				    (<AND <EQUAL? ,SHIP-X 5> ;"12"
					  <EQUAL? ,SHIP-Y 1>>
				     <TELL
"With a crack the sails fill, shooting the "I"Erasmus"" into the gap!" CR>)
				    (ELSE
				     <TELL
"The ship gains speed with the wind." CR>)>)
			     (<EQUAL? ,P-DIRECTION ,P?FORE ,P?IN>
			      <DEQUEUE I-BROADSIDE>
			      <SET-COURSE ,P?FORE>
			      <COND (.ST?
				     <COND (.TOOK? <TELL " and haul it to ">)
					   (ELSE <TELL "You haul the wheel to ">)>
				     <TELL-DIRECTION .ST?>
				     <TELL
", centering it">)
				    (ELSE
				     <COND (.TOOK? <TELL " and straighten it">)
					   (ELSE <TELL "You straighten the wheel">)>)>
			      <COND (<AND <EQUAL? ,SHIP-Y 9>
					  <EQUAL? ,SHIP-X 19>>
				     <SETG SHIP-DIRECTION ,P?WEST>
				     <TELL
".  Helped by the following wind, the ship returns to its course." CR>
				     <SCORE-OBJECT ,WHEEL>)
				    (ELSE
				     <TELL
", trying to hold a steady course." CR>)>)
			     (ELSE
			      <COND (.TOOK? <TELL ".  ">)>
			      <TELL
"You can only turn the ship to port or starboard!" CR>)>)
		      (ELSE
		       <COND (.TOOK? <TELL ".  ">)>
		       <TELL G"You must specify a direction!" CR>)>)>>

<ROUTINE I-BROADSIDE ()
	 <COND (<NOT <EQUAL? ,SHIP-COURSE ,P?FORE>>
		<TELL CR
"The "I"Erasmus"" continues to turn, further and further off the
wind.  Soon she'll be broadside to the waves!" CR>)>>

<ROUTINE I-SHIP-BROADSIDE ()
	 <COND (<NOT <EQUAL? ,SHIP-COURSE ,P?FORE>>
		<SHIP-BROADSIDE>)>>

<ROUTINE SHIP-BROADSIDE ()
	 <TELL CR "The ship continues turning to ">
	 <TELL-DIRECTION ,SHIP-COURSE>
	 <JIGS-UP
".  It is now broadside to the waves, which spill torrents of water
onto the deck, and below.  Soon she is foundering, the entire ocean seeming
to want to fill her holds.">
	 <RFATAL>>

<ROUTINE SET-COURSE (DIR)
	 <COND (<NOT <EQUAL? .DIR ,SHIP-COURSE ,P?FORE>>
		<QUEUE I-STORM 1>)>
	 <SETG SHIP-COURSE .DIR>
	 <RTRUE>>

<GLOBAL TIRED-TIME 0>

<ROUTINE I-TIRED-WARNING ()
	 <COND (<ZERO? <GETP ,BLACKTHORNE ,P?HEALTH>>
		<TELL CR
"Exhaustion is rapidly overcoming you, but you know you can't sleep
now." CR>)>>

<ROUTINE I-TIRED ()
	 <COND (<ZERO? <GETP ,BLACKTHORNE ,P?HEALTH>>
		<CRLF>
		<JIGS-UP
"Your exhausted body, pushed beyond its last reserves of strength,
fails you.  You collapse, every fiber aching with months of
deprivation.  It is not long after that the ship is driven against the
rocks.">)>>

<BEGIN-SEGMENT YABU>
<BEGIN-SEGMENT PIT>

<OBJECT SPILLBERGEN
	(LOC CAPTAINS-CABIN)
	(DESC "Captain-General Spillbergen")
	(SYNONYM SPILLBERGEN CAPTAIN MAN)
	(ADJECTIVE CAPTAIN-GENERAL CAPTAIN PAULUS)
	(FLAGS PERSON DUTCHBIT OPENBIT CONTBIT SEARCHBIT NOABIT NOTHEBIT)
	(DESCFCN SPILLBERGEN-DESC)
	(GENERIC GENERIC-CAPTAIN-F)
	(ACTION SPILLBERGEN-F)>

<ROUTINE SPILLBERGEN-DESC (RARG OBJ)
	 <COND (<RARG? OBJDESC?>
		<COND (<SCENE? ,S-ERASMUS ,S-YABU ,S-PIT> <RTRUE>)
		      (ELSE <RFALSE>)>)
	       (<RARG? OBJDESC>
		<TELL
"Captain-General Paulus Spillbergen ">
		<COND (<SCENE? ,S-ERASMUS>
		       <TELL "lies half conscious in his bunk.">)
		      (<SCENE? ,S-YABU>
		       <TELL "lies nearly unconscious on a pallet.">)
		      (<SCENE? ,S-PIT>
		       <COND (<AND <LOC ,LONG-STRAW> <LOC ,SHORT-STRAW>>
			      <TELL
"lies delirious in the mud.">)
			     (ELSE
			      <TELL
"sits in the mud, leaning back against a wall.">)>)>)>>

<ROUTINE SPILLBERGEN-F ("OPT" (RARG <>))
	 <COND (<RARG? SUBJ>
		<RFALSE>)
	       (<RARG? WINNER>
		<COND (<OR <VERB? STOP>
			   <P? SHUT-UP ROOMS>>
		       <TELL
"He stops for a moment, looking at you pitifully." CR>)
		      (ELSE
		       <TELL
"He stirs weakly, but otherwise doesn't respond." CR>)>)
	       (<VERB? PISS>
		<TELL
"You have come to hate him, but to humilate him in his helpless,
weakened condition would be too much." CR>)
	       (<VERB? MOVE>
		<TELL "He's too weak to be moved." CR>)
	       (<HOSTILE-VERB?>
		<TELL
"You want to hit him, even as weak and helpless as he is.  He's to
blame, it's true, but you can't do it."G" Almost exactly
one year ago the fleet reached Tierra del Fuego, the winds favorable for
the stab into the unknown of Magellan's Pass.  But the Captain-General had
ordered a landing to search for gold and treasure.  The fleet had been
forced to winter in the harsh southern wastes, and it was four months
before they could sail.  By then, one hundred and fifty six men had died
of starvation and cold." CR>)
	       (<VERB? WHO>
		<TELL
"Paulus Spillbergen is the Captain-General of the fleet."G" Almost exactly
one year ago the fleet reached Tierra del Fuego, the winds favorable for
the stab into the unknown of Magellan's Pass.  But the Captain-General had
ordered a landing to search for gold and treasure.  The fleet had been
forced to winter in the harsh southern wastes, and it was four months
before they could sail.  By then, one hundred and fifty six men had died
of starvation and cold." CR>)
	       (<VERB? EXAMINE>
		<TELL "Spillbergen ">
		<COND (<HERE? ,CAPTAINS-CABIN>
		       <TELL
"is lying half conscious in his bunk.  He ">)>
		<TELL "is a short,
florid man, normally very fat, now very thin, the skin of his
paunch hanging slackly in folds.">
		<COND (<AND <HERE? ,CAPTAINS-CABIN>
			    <FSET? ,FLAGON ,SCOREBIT>>
		       <TELL "He looks parched.">)>
		<CRLF>)
	       (<AND <VERB? FIND>
		     <SCENE? ,S-ERASMUS>
		     <NOT <HERE? ,CAPTAINS-CABIN>>>
		<TELL "He's in his cabin." CR>)
	       (<P? ASK-ABOUT * GLOBAL-WATER>
		<TELL
"\"I'm parched, Pilot!  Give me water!  You had some before!\"" CR>)
	       (<P? SHOW * SPILLBERGEN>
		<COND (<PRSO? FLAGON APPLE>
		       <TELL
"The captain reaches feebly for " THE ,PRSO "." CR>)>)
	       (<P? GIVE * SPILLBERGEN>
		<COND (<PRSO? FLAGON>
		       <FSET ,FLAGON ,OPENBIT>
		       <TELL
"Weakly, Spillbergen drinks a little water.">
		       <COND (<FSET? ,FLAGON ,SCOREBIT>
			      <TELL
"\"Thanks,\" he says.  \"Where's land -- where's land?\"|
|
\"Ahead\" is all you can say in reply." CR>
			      <RESTART-STORM?>
			      <SCORE-OBJECT ,FLAGON>)
			     (ELSE <CRLF>)>)
		      (<PRSO? APPLE>
		       <REMOVE ,APPLE>
		       <TELL
"The captain greedily devours your last apple, the pulp dripping down
his chin." CR>)>)
	       (<VERB? SOOTHE>
		<TELL
"His whining continues unabated." CR>)
	       (<VERB? HELP>
		<TELL
"He seems hungry and thirsty." CR>)
	       (<VERB? SEARCH>
		<TELL
"He squirms and whines in a futile attempt to prevent you.  You find
nothing interesting anyway." CR>)>>

<OBJECT PIETERZOON
	(LOC MATES-CABIN)
	(DESC "Pieterzoon")
	(SYNONYM PIETERZOON GUNNER)
	(FLAGS PERSON DUTCHBIT NOABIT NOTHEBIT)
	(ACTION PIETERZOON-F)>

<ROUTINE PIETERZOON-F ("OPT" (RARG <>))
	 <COND (<RARG? WINNER>
	        <COND (<SEND-HIM-OUT?>
		       <SETG WINNER ,PLAYER>
		       <PERFORM ,V?SEND ,PIETERZOON ,ROOMS>
		       <RTRUE>)
		      (ELSE
		       <TELL
CTHE ,WINNER G" responds with little enthusiasm." CR>)>)
	       (<RARG? <>>
		<COND (<AND <NOT <IN? ,PIETERZOON ,HERE>>
			    <HERE? ,PIT>
			    <NOT <ABSTRACT-VERB?>>>
		       <TELL
"Pieterzoon isn't here." CR>
		       <COND (<VERB? TELL> <END-QUOTE>)
			     (ELSE <RTRUE>)>)
		      (<AND <VERB? EXAMINE>
			    <FSET? ,PIETERZOON ,DEAD>>
		       <TELL
"He looks like a boiled roast of beef." CR>)
		      (<P? SEND PIETERZOON>
		       <TELL
"\"I'm too weak, Pilot!  Go forward and send Ginsel out, or Maetsukker!  He's
always shirking his watch!\"" CR>)>)>>

<OBJECT ROPER
	(LOC PASSAGEWAY)
	(DESC "Jan Roper")
	(SYNONYM JAN ROPER CALVINIST)
	(ADJECTIVE JAN)
	(FLAGS PERSON DUTCHBIT NOABIT NOTHEBIT SCOREBIT
	       CONTBIT OPENBIT SEARCHBIT)
	(CONTFCN ROPER-F)
	(ACTION ROPER-F)>

<ROUTINE ROPER-F ("OPT" (RARG <>))
	 <COND (<RARG? SUBJ>
		<RFALSE>)
	       (<RARG? WINNER>
		<COND (<NOT <SCENE? ,S-ERASMUS>>
		       <TELL "He responds with disdain." CR>)
		      (<OR <P? ACCUSE ROPER>
			   <P? TELL-ME-ABOUT APPLE>
			   <AND <P? (BE BE?) ;WHY YOU INTPP>
				<PP? ,W?IN ,PILOTS-CABIN>>>
		       <FCLEAR ,APPLE ,NDESCBIT>
		       <TELL
"\"You've been in my cabin,\" you say tiredly.|
|
\"I didn't steal anything, Pilot.  Besides, alone in the wilderness
we good Christians must share what little we have.\"  You recall how
Roper and the rest didn't conserve their food, especially the fruit
which has made your scurvy a matter of aching gums rather than lost
teeth." CR>)
		      (<HOSTILE-VERB?>
		       <TELL
"\"I'll turn the other cheek, as any good Christian would!\" says
Roper.  You remember him shooting at the priests in Chile." CR>)
		      (<P? GIVE APPLE (BLACKTHORNE ME)>
		       <TELL
"\"It's ours to share.  We ate one, shared it out, and we'll do the
same with the other, as God is my witness!\"" CR>)
		      (<SEND-HIM-OUT?>
		       <SETG WINNER ,PLAYER>
		       <PERFORM ,V?SEND ,ROPER ,ROOMS>
		       <RTRUE>)
		      (ELSE
		       <TELL
"He responds scornfully." CR>)>)
	       (<RARG? CONTAINER>
		<COND (<P? TAKE APPLE>
		       <FCLEAR ,APPLE ,DONT-ALL>
		       <FCLEAR ,APPLE ,NDESCBIT>
		       <MOVE ,APPLE ,WINNER>
		       <TELL
"You grab Roper tightly, and twist his arm until he drops the apple
into your hands." CR>
		       <RESTART-STORM?>
		       <SCORE-OBJECT ,ROPER>)>)
	       (<VERB? WHO>
		<TELL
"Jan Roper is one of the merchant adventurers, and a fanatic
Calvinist.  He nearly killed you in Chile in his haste to fire his musket at a
priest." CR>)
	       (<VERB? EXAMINE>
		<TELL
"He's a narrow-eyed young man with a high forehead and a thin nose.">
		<COND (<HERE? ,MATES-CABIN>
		       <TELL
"His pale chin is marred by a drip of apple juice.">)>
		<CRLF>)
	       (<VERB? SEARCH>
		<COND (<NOT <SCENE? ,S-ERASMUS>>
		       <RFALSE>)
		      (<IN? ,APPLE ,ROPER>
		       <COND (<FSET? ,APPLE ,NDESCBIT>
			      <FCLEAR ,APPLE ,NDESCBIT>
			      <TELL
"Roper twists away as best he can, then pulls an apple from his
pocket.  \"Here it is!\" he screams, dancing away from you." CR>)
			     (ELSE
			      <TELL
"\"Keep away from me!  What more do you want?\" Roper whines." CR>)>)
		      (ELSE
		       <TELL
"\"What more do you want from me?  You've already stolen my apple, you
hoarder!\"" CR>)>)
	       (<P? GIVE APPLE ROPER>
		<REMOVE ,APPLE>
		<TELL
"Roper grabs the apple and stuffs it into his mouth." CR>)
	       (<HOSTILE-VERB?>
		<TELL "You ">
		<COND (<VERB? THROW>
		       <COND (<NOT <HELD? ,PRSO>>
			      <TELL "threaten to ">)>
		       <MOVE ,PRSO ,HERE>
		       <TELL "throw " THE ,PRSO " at him">)
		      (<AND ,PRSI <FSET? ,PRSI ,WEAPONBIT>>
		       <TELL "threaten him with " THE ,PRSI>)
		      (<VERB? KICK>
		       <TELL "kick at him as you would kick a dog">)
		      (ELSE
		       <TELL "raise your fists, threatening him">)>
		<TELL ", and he backs fearfully away.">
		<COND (<IN? ,APPLE ,ROPER>
		       <COND (<FSET? ,APPLE ,NDESCBIT>
			      <FCLEAR ,APPLE ,NDESCBIT>
			      <TELL
"\"It's mine, I tell you!  Share and share alike!\" he whines, pulling
an apple out of his pocket." CR>)
			     (ELSE
			      <MOVE ,APPLE ,HERE>
			      <TELL
"\"Don't hit me!\" he screams, dropping the apple on the ground." CR>
			      <SCORE-OBJECT ,ROPER>)>)
		      (ELSE <CRLF>)>)
	       (<P? SEND ROPER>
		<TELL
"He refuses to go, scornfully suggesting you get the regular crewmen on
deck instead.  He's so incompetent a seaman that you relent." CR>)>>

<OBJECT SONK
	(LOC BELOW-DECKS)
	(DESC "Sonk")
	(SYNONYM SONK COOK)
	(FLAGS NDESCBIT PERSON DUTCHBIT NOABIT NOTHEBIT)
	(ACTION SONK-F)>

<ROUTINE SONK-F ("OPT" (RARG <>))
	 <COND (<RARG? WINNER>
		<TELL CTHE ,WINNER G" responds with little enthusiasm." CR>)>>

<OBJECT SALAMON
	(LOC BELOW-DECKS)
	(DESC "Salamon")
	(SYNONYM SALAMON MUTE)
	(FLAGS NDESCBIT PERSON DUTCHBIT NOABIT NOTHEBIT)
	(ACTION SALAMON-F)>

<ROUTINE SALAMON-F ("OPT" (RARG <>))
	 <COND (<RARG? SUBJ>
		<RFALSE>)
	       (<RARG? WINNER>
		<TELL
CTHE ,WINNER " responds with gestures conveying little enthusiasm." CR>)
	       (<VERB? WHO>
		<TELL "Salamon is a mute." CR>)
	       (<HOSTILE-VERB?>
		<TELL
"In the end, you can't actually bring yourself to do it." CR>)>>

<OBJECT VAN-NEKK
	(LOC MATES-CABIN)
	(DESC "Baccus van Nekk")
	(SYNONYM BACCUS NEKK)
	(ADJECTIVE CHIEF MERCHANT BACCUS VAN)
	(FLAGS PERSON DUTCHBIT NOABIT NOTHEBIT)
	(ACTION VAN-NEKK-F)>

<ROUTINE VAN-NEKK-F ("OPT" (RARG <>))
	 <COND ;(<RARG? SUBJ>
		<RFALSE>)
	       (<RARG? WINNER>
		<COND (<P? TELL-ME-ABOUT (APPLE ROPER)>
		       <TELL
"Van Nekk points angrily at Roper.  \"He took it, Pilot!  He said you
were hoarding food!\"" CR>)
		      (<P? (RAISE REPAIR LOWER) FORESAILS>
		       <RFALSE>)
		      (<SEND-HIM-OUT?>
		       <SETG WINNER ,PLAYER>
		       <PERFORM ,V?SEND ,VAN-NEKK ,ROOMS>
		       <RTRUE>)
		      (ELSE
		       <TELL
G"The only responses are muttered curses in Dutch." CR>)>)
	       (<RARG? <>>
		<COND (<P? SEND VAN-NEKK>
		       <TELL
"\"I'd go, Pilot, but it's not my watch.  It's Vinck's watch, I think, and
Ginsel's, and Maetsukker's, if I've not gone crazed.\"  He smiles wanly." CR>)>)>>

<OBJECT CROOCQ
	(LOC BELOW-DECKS)
	(DESC "Croocq")
	(SYNONYM CROOCQ BOY)
	(ADJECTIVE MAXIMILIAN)
	(FLAGS NDESCBIT PERSON DUTCHBIT NOABIT NOTHEBIT)
	(ACTION CROOCQ-F)>

<ROUTINE CROOCQ-F ("OPT" (RARG <>))
	 <COND (<RARG? SUBJ>
		<RFALSE>)
	       (<RARG? WINNER>
		<COND (<P? TELL-ME-ABOUT (APPLE ROPER)>
		       <TELL
"Croocq says, \"I don't know anything about it, Pilot.\"" CR>)
		      (<P? (RAISE REPAIR LOWER) FORESAILS>
		       <RFALSE>)
		      (<SEND-HIM-OUT?>
		       <SETG WINNER ,PLAYER>
		       <PERFORM ,V?SEND ,CROOCQ ,ROOMS>
		       <RTRUE>)
		      (ELSE
		       <TELL
G"The only responses are muttered curses in Dutch." CR>)>)
	       (<VERB? TELL>
		<COND (<OR <IN? ,CROOCQ ,CAULDRON>
			   <IN? ,CROOCQ ,VILLAGE-SQUARE>>
		       <TELL
"He's in no condition to respond." CR>
		       <END-QUOTE>
		       <RFATAL>)>)
	       (<P? SEND CROOCQ>
		<TELL
"He's too far gone to go on deck; almost too tired to stand." CR>)>>

<ROUTINE SEND-HIM-OUT? ()
	 <COND (<SCENE? ,S-ERASMUS>
		<OR <VERB? REPLACE>
		    <P? FOLLOW ME>
		    <P? WALK (P?UP P?OUT)>
		    <P? (STEP-ON TAKE BOARD WALK-TO CLIMB-ON)
			(DECK BRIDGE-OF-ERASMUS ON-DECK)>>)>>

<END-SEGMENT ;"ERASMUS+YABU+PIT">