3696 lines
116 KiB
Plaintext
3696 lines
116 KiB
Plaintext
"ANJIRO for
|
||
SHOGUN
|
||
(c) Copyright 1988 Infocom, Inc. All Rights Reserved."
|
||
|
||
<FILE-FLAGS SENTENCE-ENDS?>
|
||
|
||
<BEGIN-SEGMENT ANJIRO>
|
||
|
||
<CONSTANT J-PLUNGE 20>
|
||
<CONSTANT J-GUARDS 21>
|
||
|
||
<ROOM GARDEN
|
||
(LOC ROOMS)
|
||
(SCENE S-ANJIRO S-RODRIGUES)
|
||
(DESC "Garden")
|
||
(SYNONYM GARDEN)
|
||
(ADJECTIVE SMALL)
|
||
(LDESC
|
||
"This is a small garden surrounded by a high wall. It is unlike anything
|
||
you have ever seen: a little waterfall and stream and a small bridge
|
||
and manicured pebbled paths and rocks and flowers and shrubs. It's so
|
||
clean, so neat. The house is to the west, the village to the east.")
|
||
(IN PER MURA-HOUSE-EXIT)
|
||
(WEST PER MURA-HOUSE-EXIT)
|
||
(EAST TO ANJIRO)
|
||
(OUT TO ANJIRO)
|
||
(FLAGS ONBIT OUTSIDE)
|
||
(GLOBAL MURA-DOOR MURA-HOUSE LG-VILLAGE)
|
||
(ACTION GARDEN-F)>
|
||
|
||
<ROUTINE MURA-HOUSE-EXIT ("OPT" (RARG <>) (STRICT? <>))
|
||
<COND (<RARG? ENTER> ,MURA-HOUSE)
|
||
(<FSET? ,BOOTS ,WEARBIT>
|
||
<TELL
|
||
CTHE ,ONNA " runs up to you, very agitated. As politely as she can,
|
||
she points to your boots, bowing and shaking her head." CR>
|
||
<RFALSE>)
|
||
(ELSE ,MURA-HOUSE)>>
|
||
|
||
<ROUTINE GARDEN-F (RARG)
|
||
<COND (<RARG? ENTER>
|
||
<COND (<SCENE? ,S-ANJIRO>
|
||
<QUEUE I-SEBASTIO -1>
|
||
<COND (<IN? ,ONNA ,MURA-HOUSE>
|
||
<MOVE ,ONNA ,GARDEN>)>)>
|
||
<RTRUE>)
|
||
(<RARG? BEG>
|
||
<COND (<P? LISTEN (<> NOISE)>
|
||
<TELL
|
||
G"It sounds like a group of people. ""You can't be sure, but one seems
|
||
to be speaking Portuguese!" CR>)
|
||
(<P? EXAMINE NOISE>
|
||
<TELL "You'll have to go out to do that." CR>)
|
||
(<P? LISTEN PORTUGUESE>
|
||
<TELL
|
||
"It definitely sounds like Portuguese, but you're too far away to
|
||
be sure." CR>)
|
||
(<AND <SCENE? ,S-ANJIRO>
|
||
<VERB? WALK WALK-TO>
|
||
<HENCHMEN-RESTRAIN>>
|
||
<RTRUE>)>)>>
|
||
|
||
<OBJECT HIGH-WALL
|
||
(LOC GARDEN)
|
||
(DESC "high wall")
|
||
(SYNONYM WALL)
|
||
(ADJECTIVE HIGH)
|
||
(FLAGS NDESCBIT)
|
||
(ACTION HIGH-WALL-F)>
|
||
|
||
<ROUTINE HIGH-WALL-F ()
|
||
<COND (<VERB? EXAMINE>
|
||
<TELL
|
||
"The wall is made of small stones mortared together with great
|
||
precision. It is at first completely a wall and at then suggests a
|
||
high mountain
|
||
cliff with the garden plants growing up to the base." CR>)
|
||
(<VERB? CLIMB-UP CLIMB-FOO>
|
||
<TELL
|
||
"You're too weak to climb the wall." CR>)>>
|
||
|
||
<OBJECT WATERFALL
|
||
(LOC GARDEN)
|
||
(DESC "little waterfall")
|
||
(SYNONYM WATERFALL WATER POOL)
|
||
(ADJECTIVE LITTLE)
|
||
(FLAGS NDESCBIT)
|
||
(ACTION WATERFALL-F)>
|
||
|
||
<ROUTINE WATERFALL-F ()
|
||
<COND (<VERB? EXAMINE>
|
||
<TELL
|
||
"A fall of sweet, clear water drops from one level of the garden to
|
||
the other. The gentle tinkling sound is very soothing." CR>)
|
||
(<VERB? LOOK-INSIDE>
|
||
<TELL
|
||
"The little pool at the base of waterfall is filled with carp." CR>)
|
||
(<VERB? DRINK>
|
||
<TELL
|
||
"The water is cool and tasty." CR>)>>
|
||
|
||
<OBJECT PATHS
|
||
(LOC GARDEN)
|
||
(DESC "manicured path")
|
||
(SYNONYM PATH PATHS)
|
||
(ADJECTIVE MANICURED)
|
||
(FLAGS NDESCBIT)
|
||
(ACTION PATHS-F)>
|
||
|
||
<ROUTINE PATHS-F ()
|
||
<COND (<VERB? EXAMINE>
|
||
<TELL
|
||
"The paths lead in neat, seemingly chance-laid loops throughout the
|
||
garden." CR>)
|
||
(<VERB? FOLLOW>
|
||
<TELL
|
||
"You walk about for a while, following the paths. The garden is so
|
||
neat, so orderly. Just walking in it is calming. You haven't seen a
|
||
living plant during all your long voyage, and here there are so many." CR>)>>
|
||
|
||
<OBJECT SMALL-BRIDGE
|
||
(LOC GARDEN)
|
||
(SCENE S-ANJIRO)
|
||
(DESC "small bridge")
|
||
(SYNONYM BRIDGE)
|
||
(ADJECTIVE SMALL)
|
||
(FLAGS NDESCBIT)
|
||
(ACTION SMALL-BRIDGE-F)>
|
||
|
||
<ROUTINE SMALL-BRIDGE-F ()
|
||
<COND (<VERB? EXAMINE>
|
||
<TELL
|
||
"It's a small, decorative footbridge that crosses the little stream." CR>)
|
||
(<VERB? CROSS>
|
||
<TELL
|
||
"You cross the little bridge, standing in the center looking at the slowly
|
||
flowing stream for a while. The garden is very peaceful. You cross
|
||
back." CR>)>>
|
||
|
||
<OBJECT STREAM
|
||
(LOC GARDEN)
|
||
(DESC "stream")
|
||
(SYNONYM STREAM)
|
||
(ADJECTIVE LITTLE)
|
||
(FLAGS NDESCBIT VEHBIT)
|
||
(ACTION STREAM-F)>
|
||
|
||
<ROUTINE STREAM-F ()
|
||
<COND (<VERB? BOARD STEP-ON CLIMB-DOWN>
|
||
<TELL
|
||
"You content yourself with splashing a little water on your face." CR>)>>
|
||
|
||
<OBJECT PLANTS
|
||
(LOC GARDEN)
|
||
(DESC "plant")
|
||
(SYNONYM FLOWER SHRUB FLOWERS SHRUBS PLANT)
|
||
(FLAGS NDESCBIT)
|
||
(ACTION PLANTS-F)>
|
||
|
||
<ROUTINE PLANTS-F ()
|
||
<COND (<VERB? EXAMINE>
|
||
<TELL
|
||
"The garden is planted with flowers, shrubs, and odd small trees. It
|
||
looks like a small patch of orderly wilderness." CR>)
|
||
(<VERB? TAKE>
|
||
<TELL
|
||
"You think better of disturbing the harmony of the garden." CR>)
|
||
(<VERB? SMELL>
|
||
<TELL
|
||
"The flowers smell very nice. Your nose has had little to smell of
|
||
comparable fragrance for years." CR>)>>
|
||
|
||
|
||
|
||
<BEGIN-SEGMENT RODRIGUES>
|
||
|
||
<ROOM ANJIRO-WATERFRONT
|
||
(LOC ROOMS)
|
||
(SCENE S-RODRIGUES)
|
||
(AFTER LEAVE-ANJIRO-AFTER-F)
|
||
(SCORE 4)
|
||
(DESC "Waterfront")
|
||
(FDESC
|
||
"The next day you walk down the hill, four samurai flanking you. Ahead
|
||
the street curves with the contour of the hillside, slides down toward
|
||
the harbor.")
|
||
(SYNONYM WATERFRONT)
|
||
(WEST TO ANJIRO)
|
||
(EAST TO ANJIRO-HARBOR)
|
||
(GLOBAL LG-ERASMUS SAMURAI-GUARDS LG-SEA LG-VILLAGE LG-BAY VILLAGERS
|
||
LG-LAND)
|
||
(FLAGS ONBIT OUTSIDE)
|
||
(ACTION ANJIRO-WATERFRONT-F)>
|
||
|
||
<ROUTINE ANJIRO-WATERFRONT-F (RARG)
|
||
<COND (<RARG? SCENE-SETUP>
|
||
<DRESS-BLACKTHORNE T>
|
||
<NEW-SDESC ,HIRO-MATSU "old man">
|
||
<FCLEAR ,HIRO-MATSU ,NOABIT>
|
||
<FCLEAR ,HIRO-MATSU ,NOTHEBIT>
|
||
<FSET ,HIRO-MATSU ,AN>
|
||
<NEW-SDESC ,OMI ,OMI-NAME>
|
||
<MOVE-CREW ,PIT>
|
||
<REMOVE ,HENCHMAN-BODY>
|
||
<REMOVE ,HENCHMAN-HEAD>
|
||
<MOVE ,SECRET-RUTTER ,GENERIC-OBJECTS>
|
||
<MOVE ,RUTTER ,GENERIC-OBJECTS>
|
||
<MOVE ,SEA-CHEST ,PILOTS-CABIN>
|
||
<FSET ,SEA-CHEST ,OPENBIT>
|
||
<MOVE ,SMALL-BOAT ,ANJIRO-WATERFRONT>
|
||
<MOVE ,BOAT-OAR ,SMALL-BOAT>
|
||
<MOVE ,SLAVER ,ANJIRO-WATERFRONT>
|
||
<MOVE ,MURA ,ANJIRO-WATERFRONT>
|
||
<MOVE ,OMI ,ANJIRO-WATERFRONT>
|
||
<MOVE ,YABU ,ANJIRO-WATERFRONT>
|
||
<MOVE ,HIRO-MATSU ,ANJIRO-WATERFRONT>
|
||
<MOVE ,TORANAGA ,GENERIC-OBJECTS>
|
||
<MOVE ,ARCHERS ,ANJIRO-WATERFRONT>
|
||
<FCLEAR ,ARCHERS ,INVISIBLE>
|
||
<QUEUE I-MEET-RODRIGUES -1>)
|
||
(<RARG? LOOK>
|
||
<TELL
|
||
"This is the waterfront of the village. The ground is cobbled and a
|
||
stone launching ramp goes from the shore into the sea. There are men and
|
||
women cleaning fish. Small islands are visible to the east and south. At
|
||
anchor, to the east, is the "I"Erasmus""." CR>)
|
||
(<RARG? ENTER>
|
||
<COND (<SCENE? ,S-ANJIRO>
|
||
<COND (<IN? ,WINNER ,SMALL-BOAT>
|
||
<TELL
|
||
"You row the boat up onto the beach." CR CR>)
|
||
(<NOT <FSET? ,RUTTER ,RMUNGBIT>>
|
||
<QUEUE I-RUTTER-CLUE 1>)>)>
|
||
<RTRUE>)
|
||
(<RARG? BEG>
|
||
<COND (<AND <SCENE? S-RODRIGUES>
|
||
<OR <P? (POINT EXAMINE) LG-ERASMUS>
|
||
<P? SHOW LG-ERASMUS RODRIGUES>>>
|
||
<TELL
|
||
"You look out at the "I"Erasmus"", and " THE ,RODRIGUES " watches you.">
|
||
<COND (<NOT <FSET? ,LIZARD ,SCOREBIT>>
|
||
<THIS-IS-IT ,LG-ERASMUS>
|
||
<SETG QCONTEXT ,RODRIGUES>
|
||
<TELL "She's
|
||
moored a hundred yards away. \"Tell me about her, Ingeles,\" asks
|
||
the Portuguese. \"She looks like a pisscutter!\"">)>
|
||
<CRLF>)
|
||
(<AND <SCENE? S-RODRIGUES>
|
||
<P? (WALK WALK-TO) (P?WEST P?NORTH P?SOUTH)>>
|
||
<TELL
|
||
"Mura restrains you with iron gentleness." CR>)
|
||
(<AND <SCENE? S-ANJIRO>
|
||
<VERB? WALK WALK-TO>
|
||
<HENCHMEN-RESTRAIN>>
|
||
<RTRUE>)
|
||
(<AND <OR <VERB? SWIM>
|
||
<P? THROUGH (LG-SEA LG-BAY)>
|
||
<P? WALK (P?EAST P?OUT)>
|
||
<P? WALK-TO LG-ERASMUS>>
|
||
<NOT <IN? ,WINNER ,SMALL-BOAT>>>
|
||
<TELL
|
||
"You wade into the water, striding deeper and deeper, until you
|
||
realize that you haven't regained enough strength to swim. You return to
|
||
the beach." CR>)
|
||
(<P? WALK (P?NORTH P?SOUTH)>
|
||
<FCLEAR ,OMI ,RMUNGBIT> ;"he won't kill you"
|
||
<TELL
|
||
"You wander through the village, but the villagers are apparently
|
||
unwilling to let you go too far, and you are gently guided back to the
|
||
pebbled beach of the waterfront." CR>)>)
|
||
(<RARG? END>
|
||
<VILLAGERS-STARE>)>>
|
||
|
||
<ROUTINE VILLAGERS-STARE ()
|
||
<COND (<AND <SCENE? ,S-ANJIRO>
|
||
<NOT <FSET? ,CLOTHES ,WEARBIT>>
|
||
<OR <NOT ,STATIONARY?> <PROB 33>>>
|
||
<TELL CR
|
||
G"The villagers stare at you, and the little children laugh and
|
||
point. They've never seen a naked barbarian before." CR>)>>
|
||
|
||
<OBJECT ARCHERS
|
||
(DESC "archers")
|
||
(SYNONYM ARCHER ARCHERS SAMURAI BOW ARROW MEN)
|
||
(FLAGS PERSON JAPANESEBIT PLURAL SCOREBIT INVISIBLE AN NOABIT)
|
||
(ACTION ARCHERS-F)>
|
||
|
||
<ROUTINE ARCHERS-F ("OPT" (RARG <>))
|
||
<COND (<RARG? WINNER>
|
||
<WAKARIMASEN>)
|
||
(<RARG? <>>
|
||
<COND (<VERB? EXAMINE>
|
||
<COND (<FSET? ,ARCHERS ,RMUNGBIT>
|
||
<TELL
|
||
"One of the archers has drawn out an arrow, and is putting it in his bow." CR>)
|
||
(ELSE
|
||
<TELL
|
||
"These are archers from the galley, all dressed in the same uniform as " THE
|
||
,HIRO-MATSU "." CR>)>)
|
||
(<OR <P? (WARN TELL-ABOUT) RODRIGUES ARCHERS>
|
||
<P? POINT ARCHERS>>
|
||
<COND (<IN? ,WINNER ,SMALL-BOAT>
|
||
<TELL
|
||
"Rodrigues stops rowing immediately, and turns toward shore">
|
||
<COND (<FSET? ,ARCHERS ,RMUNGBIT>
|
||
<TELL ", waving and
|
||
babbling in pidgin Japanese, reassuring the captain samurai, who says
|
||
something to the man with the arrow. Now the man puts it away." CR>
|
||
<FCLEAR ,ARCHERS ,RMUNGBIT>
|
||
<SCORE-OBJECT ,ARCHERS>)
|
||
(ELSE
|
||
<TELL
|
||
", where nothing is happening. \"No games, Ingeles,\" he warns." CR>)>)>)
|
||
(<VERB? TELL>
|
||
<TELL "They aren't allowed to talk to you." CR>
|
||
<END-QUOTE>
|
||
<RFATAL>)>)>>
|
||
|
||
<END-SEGMENT ;"ANJIRO+RODRIGUES">
|
||
<BEGIN-SEGMENT ANJIRO>
|
||
|
||
<ROUTINE I-RUTTER-CLUE ()
|
||
<COND (<NOT <FSET? ,RUTTER ,RMUNGBIT>>
|
||
<FSET ,RUTTER ,RMUNGBIT>
|
||
<TELL CR
|
||
"It comes suddenly to mind that since you awoke, you haven't
|
||
seen your rutters or the rest of the crew. ">
|
||
<COND (<HERE? ,ON-DECK>
|
||
<TELL "Could they be aboard">)
|
||
(ELSE
|
||
<TELL "Can they still be on the "I"Erasmus">)>
|
||
<TELL ", you wonder?" CR>)>>
|
||
|
||
<BEGIN-SEGMENT RODRIGUES>
|
||
|
||
<OBJECT SMALL-BOAT
|
||
(LOC ANJIRO-WATERFRONT)
|
||
(SCENE S-ANJIRO S-RODRIGUES)
|
||
(DESC "small boat")
|
||
(SYNONYM BOAT ROWBOAT)
|
||
(ADJECTIVE SMALL)
|
||
(FLAGS VEHBIT CONTBIT OPENBIT SEARCHBIT)
|
||
(CAPACITY 300)
|
||
(ACTION SMALL-BOAT-F)>
|
||
|
||
<ROUTINE SMALL-BOAT-F (RARG)
|
||
<COND (<RARG? BEG>
|
||
<COND (<VERB? LAUNCH>
|
||
<DO-WALK ,P?EAST>
|
||
<RTRUE>)
|
||
(<VERB? WALK-TO WALK>
|
||
<COND (<OR <P? WALK P?OUT>
|
||
<AND <P? WALK ,P?UP>
|
||
<HERE? AT-ERASMUS>>>
|
||
<PERFORM ,V?DISEMBARK>
|
||
<RTRUE>)
|
||
(<NOT <HELD? ,BOAT-OAR>>
|
||
<TELL
|
||
"You need an oar to row." CR>)
|
||
(<OR <P? WALK-TO LG-ERASMUS>
|
||
<P? WALK (P?EAST ,P?OUT)>>
|
||
<COND (<HERE? ,ANJIRO-WATERFRONT>
|
||
<TELL
|
||
"You launch the boat and row out into the harbor towards the "I"Erasmus""."
|
||
CR CR>
|
||
<GOTO ,ANJIRO-HARBOR>)
|
||
(<HERE? ,ANJIRO-HARBOR>
|
||
<TELL
|
||
"You row up to the side of the "I"Erasmus"". The samurai aboard eye you
|
||
curiously." CR CR>
|
||
<GOTO ,AT-ERASMUS>)>)
|
||
(<P? WALK-TO LG-LAND>
|
||
<DO-WALK ,P?WEST>)
|
||
(<P? WALK ,P?WEST>
|
||
<COND (<HERE? ,ANJIRO-WATERFRONT>
|
||
<TELL
|
||
"You can't row the boat over land!" CR>)
|
||
(ELSE <RFALSE>)>)
|
||
(<PRSO? ,P?UP ,P?DOWN>
|
||
<TELL
|
||
"If you can row a boat that way, you're a better seaman than Drake
|
||
himself!" CR>)
|
||
(ELSE
|
||
<TELL
|
||
"You row that way for a while, but there is nothing interesting in that
|
||
direction." CR>)>)
|
||
(<VERB? SWIM SWIM-TO>
|
||
<TELL
|
||
"Why swim when you're in a nice dry boat?" CR>)
|
||
(<P? (BOARD THROUGH) LG-ERASMUS>
|
||
<PERFORM ,V?DISEMBARK>
|
||
<RTRUE>)
|
||
(<VERB? DISEMBARK>
|
||
<COND (<HERE? ,AT-ERASMUS>
|
||
<TELL
|
||
"You clamber up the gangway onto the deck. One samurai, more elaborately
|
||
dressed than the others, comes over to you and bows." CR CR>
|
||
<MOVE ,WINNER ,HERE>
|
||
<GOTO ,ON-DECK>)
|
||
(<HERE? ,ANJIRO-HARBOR>
|
||
<PERFORM ,V?LEAP ,LG-SEA>
|
||
<RTRUE>)
|
||
(<HERE? ,ANJIRO-WATERFRONT>
|
||
<MOVE ,WINNER ,HERE>
|
||
<TELL "You disembark from the boat." CR>)>)
|
||
(<P? (ENTER BOARD THROUGH) LG-SEA>
|
||
<COND (<HERE? ,ANJIRO-HARBOR ,AT-ERASMUS>
|
||
<COND (<IN? ,RODRIGUES ,SMALL-BOAT>
|
||
<TELL
|
||
"Rodrigues grabs you. \"Not so fast, Ingeles!\"" CR>)
|
||
(<JIGS-UP? ,J-PLUNGE
|
||
"You reconsider. You are very tired, and might not be able to stay
|
||
afloat.">
|
||
<MOVE ,WINNER ,HERE>
|
||
<JIGS-UP
|
||
"You plunge into the water. All too soon, you realize you were more tired
|
||
than you originally thought. You struggle to return to the boat, but you
|
||
aren't strong enough to pull yourself aboard.">)
|
||
(ELSE <RTRUE>)>)
|
||
(<HERE? ,ANJIRO-WATERFRONT>
|
||
<TELL
|
||
"The boat is on dry land here." CR>)>)>)
|
||
(<RARG? <>>
|
||
<COND (<VERB? EXAMINE>
|
||
<TELL
|
||
"It's just a small wooden rowboat.">
|
||
<COND (<NOT <FSET? ,RUTTER ,RMUNGBIT>>
|
||
<FSET ,RUTTER ,RMUNGBIT>
|
||
<TELL "It reminds you that you haven't
|
||
seen your rutters anywhere, and you glance out at the "I"Erasmus"".">)>
|
||
<CRLF>)
|
||
(<VERB? BOARD>
|
||
<COND (<SCENE? ,S-ANJIRO>
|
||
<HENCHMEN-RESTRAIN>)
|
||
(<SCENE? ,S-RODRIGUES>
|
||
<COND (<NOT <IN? ,RODRIGUES ,SMALL-BOAT>>
|
||
<COND (<IN? ,RODRIGUES ,HERE>
|
||
<COND (<FSET? ,LIZARD ,SCOREBIT>
|
||
<TELL
|
||
"\"I'm not done with you yet">)
|
||
(ELSE
|
||
<TELL "\"Me first">)>
|
||
<TELL
|
||
", Ingeles!\" says " THE ,RODRIGUES "." CR>)
|
||
(ELSE
|
||
<TELL
|
||
"Mura stops you and points to the galley. \"No, Anjin-san. So sorry, go
|
||
there.\"" CR>)>)>)>)
|
||
(<VERB? LAUNCH>
|
||
<COND (<SCENE? ,S-ANJIRO>
|
||
<COND (<HENCHMEN-RESTRAIN>
|
||
<RTRUE>)
|
||
(ELSE
|
||
<MOVE ,WINNER ,PRSO>
|
||
<TELL
|
||
"You launch the boat, pushing it into the water, and although you are
|
||
still weak, you manage to haul yourself into it." CR CR>
|
||
<DO-WALK ,P?EAST>
|
||
<RTRUE>)>)
|
||
(<SCENE? ,S-RODRIGUES>
|
||
<PERFORM ,V?BOARD ,SMALL-BOAT>
|
||
<RTRUE>)>)>)>>
|
||
|
||
<OBJECT BOAT-OAR
|
||
(LOC SMALL-BOAT)
|
||
(SCENE S-ANJIRO S-RODRIGUES)
|
||
(DESC "oars")
|
||
(SYNONYM OAR OARS)
|
||
(FLAGS TAKEBIT NOABIT PLURAL)>
|
||
|
||
<OBJECT LG-SMALL-BOAT
|
||
(LOC LOCAL-GLOBALS)
|
||
(SCENE S-ANJIRO S-RODRIGUES)
|
||
(DESC "small boat")
|
||
(SYNONYM BOAT ROWBOAT)
|
||
(ADJECTIVE SMALL)
|
||
(FLAGS NDESCBIT VEHBIT)
|
||
(ACTION LG-SMALL-BOAT-F)>
|
||
|
||
<ROUTINE LG-SMALL-BOAT-F ()
|
||
<COND (<OR <NOT <SCENE? ,S-ANJIRO>>
|
||
<NOT <IN? ,SMALL-BOAT ,AT-ERASMUS>>>
|
||
<TELL
|
||
"There's no " D ,SMALL-BOAT " to be found here." CR>)
|
||
(<VERB? EXAMINE>
|
||
<TELL
|
||
"You sneak a quick glance over the side. Yes, the boat's still
|
||
there, bobbing in the light waves." CR>)
|
||
(<VERB? BOARD>
|
||
<DO-WALK ,P?DOWN>)>>
|
||
|
||
<END-SEGMENT ;"ANJIRO+RODRIGUES">
|
||
<BEGIN-SEGMENT ANJIRO>
|
||
|
||
<ROUTINE HENCHMEN-RESTRAIN ()
|
||
<COND (<FSET? ,SEBASTIO-HENCHMEN ,RMUNGBIT>
|
||
<RFALSE>)
|
||
(<IN? ,OMI ,HERE>
|
||
<TELL
|
||
CTHE ,SEBASTIO " points to you, saying something in Japanese to " THE
|
||
,OMI ", who nods. The priest's companions restrain you." CR>)
|
||
(<IN? ,SEBASTIO ,HERE>
|
||
<TELL
|
||
CTHE ,SEBASTIO " motions to his companions, who restrain you." CR>)
|
||
(ELSE <RFALSE>)>>
|
||
|
||
<BEGIN-SEGMENT RODRIGUES>
|
||
|
||
<ROOM ANJIRO-HARBOR
|
||
(LOC ROOMS)
|
||
(DESC "Harbor")
|
||
(SYNONYM HARBOR)
|
||
(EAST TO AT-ERASMUS)
|
||
(WEST TO ANJIRO-WATERFRONT)
|
||
(FLAGS ONBIT OUTSIDE)
|
||
(GLOBAL LG-ERASMUS SAMURAI-GUARDS LG-SEA LG-BAY LG-LAND ARCHERS)
|
||
(ACTION ANJIRO-HARBOR-F)>
|
||
|
||
<ROUTINE ANJIRO-HARBOR-F (RARG)
|
||
<COND (<RARG? LOOK>
|
||
<TELL
|
||
"This is the middle of the harbor. The "I"Erasmus"" is to the east, the
|
||
waterfront to the west. Small islands lie distantly toward the eastern
|
||
and southern horizons." CR>)
|
||
(<RARG? BEG>
|
||
<COND (<AND <P? WALK (P?EAST ,P?OUT)>
|
||
<NOT <IN? ,WINNER ,SMALL-BOAT>>>
|
||
<TELL "You are too weak to swim that far." CR>)>)>>
|
||
|
||
<ROOM AT-ERASMUS
|
||
(LOC ROOMS)
|
||
(DESC "Beside the Erasmus")
|
||
(UP TO ON-DECK)
|
||
(WEST TO ANJIRO-HARBOR)
|
||
(FLAGS ONBIT OUTSIDE)
|
||
(GLOBAL LG-ERASMUS SAMURAI-GUARDS GANGWAY LG-SEA LG-LAND LG-BAY ARCHERS)
|
||
(ACTION AT-ERASMUS-F)>
|
||
|
||
<ROUTINE AT-ERASMUS-F (RARG)
|
||
<COND (<RARG? LOOK>
|
||
<TELL
|
||
"The "I"Erasmus"" rides at anchor here, held by three bow cables." CR>)
|
||
(<RARG? ENTER>
|
||
<COND (<AND <EQUAL? ,OHERE ,ON-DECK>
|
||
<SCENE? ,S-ANJIRO>>
|
||
<TELL
|
||
"As you climb down the gangway you can still feel the sweat trickling
|
||
down your spine. You hate everything about the Japans and wish yourself
|
||
and your crew back aboard, armed, and out to sea." CR>
|
||
<MOVE ,BLACKTHORNE ,HERE>
|
||
<NEXT-SCENE>
|
||
<RFATAL> ;"don't do v-first-look")>)>>
|
||
|
||
<END-SEGMENT ;"ANJIRO+RODRIGUES">
|
||
<BEGIN-SEGMENT ANJIRO>
|
||
|
||
<ROOM ANJIRO
|
||
(LOC ROOMS)
|
||
;(SCENE S-ANJIRO)
|
||
(DESC "Anjiro")
|
||
(SYNONYM ANJIRO ;VILLAGE)
|
||
(PICTURE P-ANJIRO)
|
||
(IN TO GARDEN)
|
||
(WEST TO GARDEN)
|
||
(EAST TO ANJIRO-WATERFRONT)
|
||
(GLOBAL MURA-DOOR LG-ERASMUS LG-VILLAGE VILLAGERS)
|
||
(FLAGS ONBIT OUTSIDE RMUNGBIT ;"kludge to make picture come up")
|
||
(ACTION ANJIRO-F)>
|
||
|
||
<ROUTINE ANJIRO-F ("OPT" (RARG <>))
|
||
<COND (<RARG? LOOK>
|
||
<TELL
|
||
"The village is set around a crescent harbor that faces east, perhaps
|
||
two hundred houses unlike any you've ever seen nestling at the beginning
|
||
of the mountain which spills down to the shore. Above are terraced
|
||
fields to the west and dirt roads that lead north and south. Below to
|
||
the east is the waterfront. In the harbor you can see the "I"Erasmus"
|
||
" riding at anchor." CR>)
|
||
(<RARG? BEG>
|
||
<COND (<AND <SCENE? S-ANJIRO>
|
||
<VERB? WALK WALK-TO>
|
||
<HENCHMEN-RESTRAIN>>
|
||
<RTRUE>)
|
||
(<P? WALK (P?NORTH P?SOUTH)>
|
||
<FCLEAR ,OMI ,RMUNGBIT> ;"he won't kill you"
|
||
<TELL
|
||
"You follow the dirt road through the village, conscious of many people
|
||
watching you. When they see you have noticed them, they bow to you. They
|
||
pass to and fro, like so many multicolored butterflies. After a while you
|
||
find you've returned to the house you left." CR>)
|
||
(<P? WALK P?UP>
|
||
<FCLEAR ,OMI ,RMUNGBIT> ;"he won't kill you"
|
||
<TELL
|
||
"You walk up the dirt path that leads to the fields, watched by curious
|
||
eyes every second. In the terraced fields are farmers up to the their knees
|
||
in water, planting and weeding. How can anything grow in such wetness,
|
||
you wonder, and how can the fields have been built on such steep
|
||
hillsides? Confused, you walk back to the house you left." CR>)>)
|
||
(<RARG? END>
|
||
<VILLAGERS-STARE>)
|
||
(<RARG? <>>
|
||
<COND (<VERB? FIND>
|
||
<COND (<G? ,SCENE ,S-ERASMUS>
|
||
<TELL
|
||
"Anjiro is a small fishing village in the province of Izu." CR>)
|
||
(ELSE
|
||
<TELL
|
||
"You've never heard of any place called Anjiro." CR>)>)>)>>
|
||
|
||
<BEGIN-SEGMENT YABU>
|
||
<BEGIN-SEGMENT RODRIGUES>
|
||
|
||
<OBJECT VILLAGERS
|
||
(LOC LOCAL-GLOBALS)
|
||
(DESC "villagers")
|
||
(SYNONYM VILLAGERS WOMEN MEN FISHERMEN)
|
||
(FLAGS PERSON JAPANESEBIT PLURAL OPENBIT CONTBIT SEARCHBIT)
|
||
(ACTION VILLAGERS-F)>
|
||
|
||
<ROUTINE VILLAGERS-F ("OPT" (RARG <>))
|
||
<COND (<RARG? WINNER>
|
||
<TELL "They don't understand you." CR>
|
||
<END-QUOTE>)
|
||
(<RARG? <>>
|
||
<COND (<VERB? EXAMINE>
|
||
<COND (<HERE? ,VILLAGE-SQUARE>
|
||
<TELL
|
||
"They are watching everything that's going on with great interest." CR>)
|
||
(ELSE
|
||
<TELL
|
||
"They go about their daily activities, pretending not to be interested in
|
||
you." CR>)>)
|
||
(<VERB? BOW>
|
||
<TELL
|
||
"They return your bow with amusement. You are obviously a new and amazing
|
||
sight for them." CR>)>)>>
|
||
|
||
<END-SEGMENT ;"ANJIRO+RODRIGUES+YABU">
|
||
<BEGIN-SEGMENT ANJIRO>
|
||
|
||
<OBJECT SEBASTIO-HENCHMEN
|
||
(SCENE S-ANJIRO)
|
||
(DESC "priest's henchmen")
|
||
(OWNER SEBASTIO)
|
||
(SYNONYM MEN HENCHMEN HENCHMAN COMPANIONS)
|
||
(ADJECTIVE JAPANESE)
|
||
(FLAGS PERSON JAPANESEBIT THE NOABIT SCOREBIT PLURAL)
|
||
(ACTION SEBASTIO-HENCHMEN-F)>
|
||
|
||
<ROUTINE SEBASTIO-HENCHMEN-F ("OPT" (RARG <>))
|
||
<COND (<RARG? SUBJ>
|
||
<RFALSE>)
|
||
(<RARG? WINNER>
|
||
<TELL CTHE ,SEBASTIO " interrupts. \"None of these men
|
||
understand Portuguese, heretic.\"" CR>)
|
||
(<VERB? EXAMINE>
|
||
<TELL
|
||
"There are ten of them, all natives, black-haired and black-eyed,
|
||
one dressed like " THE ,SEBASTIO " except that he has thong slippers. The
|
||
rest are in varicolored robes, loose trousers, or loincloths." CR>)
|
||
(<OR <HOSTILE-VERB?>
|
||
<VERB? PARRY STOP>
|
||
<P? HELP ME>>
|
||
<COND (<IN? ,OMI ,HERE>
|
||
<TELL
|
||
CTHE ,OMI " barks an order, and they quickly and efficiently pin you
|
||
in place. You are so weak you can hardly struggle." CR>)
|
||
(<FSET? ,SEBASTIO-HENCHMEN ,SCOREBIT>
|
||
<TELL
|
||
"You are outnumbered and weak, but you manage to smash the nose of
|
||
one. The noise of his scream slows the rest down a little." CR>
|
||
<SCORE-OBJECT ,SEBASTIO-HENCHMEN>)
|
||
(ELSE
|
||
<TELL "You try your best to fend them off." CR>)>)>>
|
||
|
||
<OBJECT HENCHMAN-BODY
|
||
(DESC "body")
|
||
(SYNONYM BODY CORPSE MAN)
|
||
(ADJECTIVE DEAD KILLED MURDERED HEADLESS)
|
||
(SIZE 200)
|
||
(FLAGS PERSON JAPANESEBIT DEAD TAKEBIT TRYTAKEBIT)
|
||
(ACTION HENCHMAN-BODY-F)>
|
||
|
||
<ROUTINE HENCHMAN-BODY-F ("OPT" (RARG <>))
|
||
<COND (<RARG? SUBJ>
|
||
<RFALSE>)
|
||
(<VERB? EXAMINE>
|
||
<TELL
|
||
"He looks like a typical villager, but he's quite dead." CR>)
|
||
(<AND <IN? ,OMI ,HERE>
|
||
<OR <VERB? TAKE>
|
||
<HOSTILE-VERB?>>>
|
||
<TELL G"Omi prevents you, threatening with his still-bloody
|
||
sword. \""I"Ikinasai""!\" he repeats." CR>)>>
|
||
|
||
<OBJECT HENCHMAN-HEAD
|
||
(DESC "severed head")
|
||
(SYNONYM HEAD)
|
||
(ADJECTIVE SEVERED)
|
||
(FLAGS TAKEBIT TRYTAKEBIT PERSON DEAD)
|
||
(ACTION HENCHMAN-HEAD-F)>
|
||
|
||
<ROUTINE HENCHMAN-HEAD-F ("OPT" (RARG <>))
|
||
<COND (<RARG? SUBJ>
|
||
<RFALSE>)
|
||
(<VERB? EXAMINE>
|
||
<TELL "Its expression is frozen in a grimace of death." CR>)
|
||
(<AND <P? GIVE HENCHMAN-HEAD>
|
||
<FSET? ,PRSI ,PERSON>
|
||
<NOT <FSET? ,PRSI ,DEAD>>>
|
||
<TELL
|
||
CTHE ,PRSI " doesn't seem interested." CR>)
|
||
(<AND <OR <VERB? TAKE>
|
||
<HOSTILE-VERB?>>
|
||
<IN? ,OMI ,HERE>>
|
||
<TELL G"Omi prevents you, threatening with his still-bloody
|
||
sword. \"">
|
||
<COND (<VERB? KICK>
|
||
<TELL I"What sizzle!""\" he exclaims." CR>)
|
||
(ELSE <TELL I"Ikinasai!""\" he repeats." CR>)>)>>
|
||
|
||
<ROUTINE I-SEBASTIO ()
|
||
<ZLINES ,SEBASTIO-CNT
|
||
(DELAY
|
||
<COND (<HERE? ,ANJIRO ,ANJIRO-WATERFRONT>)
|
||
(<G? ,DELAY-CNT 5>
|
||
<TELL CR
|
||
"Your curiosity gets the better of you and you go out into the street."
|
||
CR CR>
|
||
<GOTO ,ANJIRO>)
|
||
(<AND <G? ,DELAY-CNT 2>
|
||
<HERE? ,MURA-HOUSE ,GARDEN>>
|
||
<TELL CR
|
||
"You hear a commotion outside." CR>
|
||
<RTRUE>)
|
||
(ELSE <RFALSE>)>)
|
||
(<MOVE ,SEBASTIO ,HERE>
|
||
<SETG QCONTEXT ,SEBASTIO>
|
||
<THIS-IS-IT ,SEBASTIO>
|
||
<THIS-IS-IT ,SEBASTIO-HENCHMEN>
|
||
<MOVE ,SEBASTIO-HENCHMEN ,HERE>
|
||
<TELL CR
|
||
"You see a tonsured man approaching and fear sweeps sickeningly from
|
||
your testicles into your stomach. He is obviously a Portuguese or
|
||
Spanish priest, and though his flowing robe is orange, there is no
|
||
mistaking the crucifix and rosary at his belt, or the cold hostility
|
||
on his face. Priests here! A world away in Europe, England and Holland
|
||
are fighting for their freedom from the priests. Is there no place not
|
||
infested by these idolators and their Inquisition? Your fear begins to
|
||
give way to rage.|
|
||
|
|
||
Behind him are several Japanese." CR>)
|
||
(<TELL CR
|
||
"\"Who are you?\" the priest says in Portuguese. ">
|
||
<COND (<NOT <FSET? ,CLOTHES ,WEARBIT>>
|
||
<TELL
|
||
"\"You're as naked as a savage! You have no shame, just like the pagans
|
||
here! Put on some clothes and hide your shame!\" ">)>
|
||
<TELL "He points to the
|
||
harbor. \"That's a Netherlander privateer. You're a heretic
|
||
Dutchman. You're pirates. You're an enemy of the church!\"" CR>)
|
||
(<TELL CR
|
||
"\"They crucify criminals here. You're going to die. The "I"daimyo's"" coming
|
||
with his samurai. God have mercy on you!\"" CR>)
|
||
(<THIS-IS-IT ,SEBASTIO-HENCHMEN>
|
||
<SETG OPPONENT ,SEBASTIO-HENCHMEN>
|
||
<TELL CR
|
||
"The priest lifts his crucifix and holds it between you as a shield. \"Oh,
|
||
God, protect us from this evil! May God have mercy on your soul.\"|
|
||
|
|
||
He snaps something in Japanese and the men surge toward you, grabbing and
|
||
pinioning your arms. You feel yourself choking!" CR>)
|
||
(DELAY
|
||
<COND (<FSET? ,SEBASTIO-HENCHMEN ,SCOREBIT>
|
||
<COND (<EQUAL? ,DELAY-CNT 1>
|
||
<TELL CR
|
||
"You can feel the life being choked out of you!" CR>
|
||
<RTRUE>)
|
||
(ELSE
|
||
<CRLF>
|
||
<JIGS-UP
|
||
"One of the priest's henchmen gives you a chop on the windpipe, crushing
|
||
it. You fall to the ground, choking and gasping, and then you die.">
|
||
<RFATAL>)>)>)
|
||
(<QUEUE I-OMI -1>
|
||
<DEQUEUE I-SEBASTIO>)>>
|
||
|
||
<GLOBAL PISS-FLAG <>>
|
||
|
||
<GLOBAL OMI-QUESTION 0>
|
||
|
||
<ROUTINE I-OMI ("AUX" TMP)
|
||
<ZLINES ,OMI-CNT
|
||
(<SETG OPPONENT <>>
|
||
<MOVE ,OMI ,HERE>
|
||
<THIS-IS-IT ,OMI>
|
||
<TELL CR
|
||
"Suddenly the attack ceases. A young man is ten paces away. He wears two
|
||
scabbarded swords in his belt. His right hand is casually on the hilt
|
||
of the longer one. \""I"Nanigoto da?""\" he asks harshly. \""I"NANIGOTO DA?""\"
|
||
The Japanese fall to their knees." CR>)
|
||
(<SETG QCONTEXT ,SEBASTIO>
|
||
<SETG OMI-QUESTION 1>
|
||
<SETUP-ANSWER "i am">
|
||
<TELL CR
|
||
CTHE ,OMI " says, \""I"Doko no kuni no monoda?""\" The priest
|
||
translates, \"Kasigi Omi-san says, 'What's your nationality?'\"" CR>)
|
||
(DELAY
|
||
<COND (,OMI-QUESTION
|
||
<COND (<G? ,DELAY-CNT 2>
|
||
<OMI-KILLS-YOU>
|
||
<RFATAL>)>
|
||
<SETUP-ANSWER "i am">
|
||
<TELL-ANSWER-OR-DIE "What's your nationality">
|
||
<RTRUE>)>)
|
||
(<SETG QCONTEXT ,SEBASTIO>
|
||
<SETG OMI-QUESTION 2>
|
||
<NEW-SDESC ,OMI "Omi">
|
||
<SETUP-ANSWER "i sailed from">
|
||
<TELL CR
|
||
CTHE ,OMI " says, \""I"Onushi ittai doko kara kitanoda?""\"The priest
|
||
says nervously, \"Kasigi Omi-san says, 'Where did you sail from?'\"" CR>)
|
||
(DELAY
|
||
<COND (,OMI-QUESTION
|
||
<COND (<G? ,DELAY-CNT 2>
|
||
<OMI-KILLS-YOU>
|
||
<RFATAL>)>
|
||
<SETUP-ANSWER "i sailed from">
|
||
<TELL-ANSWER-OR-DIE "Where did you sail from">
|
||
<RTRUE>)>)
|
||
(<SETG QCONTEXT ,SEBASTIO>
|
||
<SETG OMI-QUESTION 3>
|
||
<SETUP-ANSWER "i am">
|
||
<TELL CR
|
||
"Another flurry of words from Omi. \"Omi-san asks if you're the
|
||
leader. The headman says there are only a few of you heretics alive and most
|
||
are sick.\"" CR>)
|
||
(DELAY
|
||
<COND (,OMI-QUESTION
|
||
<COND (<G? ,DELAY-CNT 2>
|
||
<OMI-KILLS-YOU>
|
||
<RFATAL>)>
|
||
<SETUP-ANSWER "i am">
|
||
<TELL-ANSWER-OR-DIE "Are you the leader">
|
||
<RTRUE>)>)
|
||
(<SETG QCONTEXT ,OMI>
|
||
<TELL CR
|
||
"Another spate of words from the samurai. \"Omi-san says because you
|
||
are the leader you will be allowed to walk around the village freely, until
|
||
his master comes.\"" CR>)
|
||
(<FSET ,SEBASTIO-HENCHMEN ,RMUNGBIT>
|
||
<MOVE ,HENCHMAN-BODY ,HERE>
|
||
<MOVE ,HENCHMAN-HEAD ,HERE>
|
||
<TELL CR
|
||
"Omi speaks contemptuously to the priest and his men, then waves
|
||
them away. They all bow low,
|
||
except for one man who rises deliberately, without bowing. With blinding
|
||
speed Omi's killing sword hisses in a silver arc and the man's head
|
||
topples off his shoulders. No one else moves a muscle. \""I"Ikinasai!""\" he
|
||
says, motioning everyone away." CR>)
|
||
(<COND (<IN? ,SEBASTIO ,HERE>
|
||
<TELL CR
|
||
CTHE ,SEBASTIO " gravely makes the sign of the cross over the body. \"In
|
||
nomine Patris et Filii et Spiritus Sancti.\" He stares at the samurai,
|
||
who again says \""I"Ikinasai!""\"" CR>)>)
|
||
(<SET TMP <LOC ,SEBASTIO>>
|
||
<REMOVE ,SEBASTIO>
|
||
<REMOVE ,SEBASTIO-HENCHMEN>
|
||
<FSET ,OMI ,RMUNGBIT>
|
||
<COND (<EQUAL? .TMP ,HERE>
|
||
<TELL CR
|
||
"The priest turns and walks away. His remaining supporters follow." CR>)>)
|
||
(<SETG QCONTEXT <>>
|
||
<COND (<OR <NOT <IN? ,OMI ,HERE>>
|
||
<NOT <FSET? ,OMI ,RMUNGBIT>>>
|
||
<MOVE ,OMI ,GENERIC-OBJECTS>
|
||
<DEQUEUE I-OMI>
|
||
<TELL CR
|
||
"In the distance, you can hear Omi laughing uproariously." CR>)
|
||
(ELSE
|
||
<CRLF>
|
||
<JIGS-UP
|
||
"Omi scowls at you, then begins to laugh uproariously. In one swift
|
||
stroke he removes your head.">)>)>>
|
||
|
||
<ROUTINE TELL-ANSWER-OR-DIE (STR)
|
||
<TELL CR
|
||
CTHE ,OMI " scowls, fingering the sword in his scabbard. The priest
|
||
looks nervously at him and then at you. \"" .STR "? Answer!\"
|
||
rasps the priest. \"Answer or die, heretic!\"" CR>>
|
||
|
||
<ROUTINE OMI-KILLS-YOU ()
|
||
<TELL CR
|
||
CTHE ,OMI " barks a few impatient words to " THE ,SEBASTIO ", who nods
|
||
eagerly. Moments later, " THE ,OMI "'s sword separates your head from
|
||
your body." CR>
|
||
<JIGS-UP>>
|
||
|
||
<ROOM MURA-HOUSE
|
||
(LOC ROOMS)
|
||
(SCENE S-ANJIRO S-RODRIGUES)
|
||
(DESC "Mura's House")
|
||
(OWNER MURA)
|
||
(SYNONYM HOUSE)
|
||
(SCORE 4)
|
||
(FDESC
|
||
"You awaken suddenly. For a moment you think you are dreaming, because
|
||
you are ashore and in a small, clean room whose floor is covered with
|
||
soft mats. You are lying on a thick quilt.|
|
||
|
|
||
You realize that you aren't dreaming because you are terribly hungry.")
|
||
(LDESC
|
||
"The room is filled with muted light shining through the opaque paper
|
||
that fills squares of cedar lath. The ceiling is polished cedar.")
|
||
(EAST TO GARDEN IF MURA-DOOR IS OPEN)
|
||
(OUT TO GARDEN IF MURA-DOOR IS OPEN)
|
||
(FLAGS ONBIT)
|
||
(GLOBAL MURA-DOOR LG-VILLAGE)
|
||
(ACTION MURA-HOUSE-F)>
|
||
|
||
<ROUTINE MURA-HOUSE-F (RARG "AUX" H)
|
||
<COND (<RARG? SCENE-SETUP>
|
||
<FCLEAR ,ON-DECK ,TOUCHBIT>
|
||
<MOVE ,BLACKTHORNE ,QUILT>
|
||
<B-SIT>
|
||
<REMOVE ,BOOTS>
|
||
<FCLEAR ,BOOTS ,WEARBIT>
|
||
<REMOVE ,CLOTHES>
|
||
<FCLEAR ,CLOTHES ,WEARBIT>
|
||
<PUTP ,BLACKTHORNE ,P?HEALTH 1>
|
||
<MOVE ,SMALL-BOAT ,ANJIRO-WATERFRONT>
|
||
<MOVE ,BOAT-OAR ,SMALL-BOAT>
|
||
<FCLEAR ,PASSAGE-DOOR ,OPENBIT>
|
||
<FCLEAR ,FOCSLE-DOOR ,OPENBIT>
|
||
<MOVE-CREW <>>
|
||
<MOVE ,SAMURAI-GUARDS ,ON-DECK>
|
||
<REMOVE ,ERASMUS-ANCHOR>
|
||
<MOVE ,RIBBON ,ON-DECK>
|
||
<SETG COLLAPSE-CNT 0>
|
||
<QUEUE I-COLLAPSE -1>)
|
||
(<RARG? BEG>
|
||
<SET H <GETP ,WINNER ,P?HEALTH>>
|
||
<COND (<AND <P? LOOK-OUT ROOMS>
|
||
<FSET? ,MURA-DOOR ,OPENBIT>>
|
||
<TELL
|
||
"You see a beautiful, neat garden." CR>)
|
||
(<VERB? SLEEP>
|
||
<TELL
|
||
"You have just awakened. Don't be a sleepy-head." CR>)
|
||
(<P? LISTEN (<> NOISE)>
|
||
<TELL
|
||
G"It sounds like a group of people. ""One of them is speaking Portuguese!" CR>)
|
||
(<AND <P? DRESS>
|
||
<IN? ,CLOTHES ,HERE>>
|
||
<PERFORM ,V?WEAR ,CLOTHES>
|
||
<RTRUE>)
|
||
(<AND <VERB? STAND>
|
||
<B-NOT-STANDING?>>
|
||
<COND (<L? .H 3>
|
||
<SETG COLLAPSE-CNT 4>
|
||
<QUEUE I-COLLAPSE -1>
|
||
<TELL
|
||
"You try to stand but you're still too weak." CR>)
|
||
(ELSE
|
||
<B-STAND>
|
||
<TELL
|
||
"You stand shakily." CR>)>)
|
||
(<VERB? DANCE>
|
||
<TELL "You don't have the strength." CR>)
|
||
(<AND <P? MAKE SIGN-OF-CROSS>
|
||
<IN? ,ONNA ,HERE>>
|
||
<TELL
|
||
"She smiles at you and nods." CR>)>)>>
|
||
|
||
<ROUTINE I-COLLAPSE ("AUX" (H <GETP ,BLACKTHORNE ,P?HEALTH>))
|
||
<COND (<EQUAL? .H 3>
|
||
<DEQUEUE I-COLLAPSE>)
|
||
(ELSE
|
||
<ZLINES ,COLLAPSE-CNT
|
||
(4)
|
||
(<COND (<EQUAL? .H 1>
|
||
<TELL CR
|
||
"You are still extremely weak and hungry." CR>)
|
||
(<EQUAL? .H 2>
|
||
<TELL CR
|
||
"You are feeling better, but still on the verge of collapse." CR>)>)
|
||
(3)
|
||
(<COND (<EQUAL? .H 1 2>
|
||
<TELL CR
|
||
"You are on the verge of collapsing from weakness and hunger." CR>)>)
|
||
(<COND (<EQUAL? .H 1 2>
|
||
<CRLF>
|
||
<JIGS-UP
|
||
"You collapse from accumulated weakness and hunger.">)>)>)>>
|
||
|
||
<OBJECT MURA-DOOR
|
||
(LOC LOCAL-GLOBALS)
|
||
(DESC "door")
|
||
(SYNONYM SHOJI DOOR PANEL PAPER SCREEN SQUARES LATHS)
|
||
(ADJECTIVE PAPER WOOD TRANSLUCENT)
|
||
(FLAGS NDESCBIT DOORBIT TRYTAKEBIT)
|
||
(ACTION MURA-DOOR-F)>
|
||
|
||
<ROUTINE MURA-DOOR-F ()
|
||
<COND (<VERB? EXAMINE>
|
||
<COND (<FSET? ,MURA-DOOR ,RMUNGBIT>
|
||
<TELL
|
||
"The door has been broken by your clumsiness." CR>)
|
||
(ELSE
|
||
<TELL
|
||
"The door is made of square wood laths and covered with paper. It
|
||
looks translucent, shadows from the outside mottling the light and
|
||
flimsy structure." CR>)>)
|
||
(<VERB? OPEN MUNG TEAR RUB>
|
||
<COND (<FSET? ,MURA-DOOR ,RMUNGBIT>
|
||
<COND (<VERB? OPEN>
|
||
<COND (<NOT <FSET? ,PRSO ,OPENBIT>>
|
||
<FSET ,MURA-DOOR ,OPENBIT>
|
||
<TELL
|
||
"You gingerly slide open the broken door." CR>)
|
||
(ELSE
|
||
<ITS-ALREADY-X "open">)>)
|
||
(ELSE
|
||
<TELL
|
||
"You've already broken it." CR>)>)
|
||
(<AND <HERE? ,MURA-HOUSE>
|
||
<NOT <FSET? ,MURA-DOOR ,RMUNGBIT>>>
|
||
<COND (<B-NOT-STANDING?>
|
||
<TELL
|
||
,YOU-HAVE-TO "stand up to reach the door." CR>
|
||
<RTRUE>)
|
||
(<VERB? MUNG TEAR>
|
||
<TELL
|
||
"That wouldn't be very nice, even if the door is flimsy-looking." CR>
|
||
<RTRUE>)>
|
||
<FSET ,MURA-DOOR ,OPENBIT>
|
||
<FSET ,MURA-DOOR ,RMUNGBIT>
|
||
<MOVE ,ONNA ,HERE>
|
||
<MARGINAL-PIC ,P-GARDEN>
|
||
<TELL
|
||
"You reach to open the door, reeling slightly as you are still very
|
||
weak, and put out a hand to steady yourself but the light, square wood
|
||
laths can't bear your weight and they shatter, paper ripping apart. ">
|
||
<COND (<IN? ,FOOD ,WINNER>
|
||
<MOVE ,FOOD ,HERE>
|
||
<TELL "You drop the food. ">)>
|
||
<COND (<IN? ,CHOPSTICKS ,WINNER>
|
||
<MOVE ,CHOPSTICKS ,HERE>
|
||
<TELL "You drop the sticks. ">)>
|
||
<COND (<IN? ,TRAY ,WINNER>
|
||
<MOVE ,TRAY ,HERE>
|
||
<MOVE-ALL ,TRAY ,HERE>
|
||
<TELL "You drop the tray. ">)>
|
||
<TELL "
|
||
You marvel at how flimsy it is, not at
|
||
all like the sturdy wooden doors of England. Are there no thieves
|
||
here?|
|
||
|
|
||
You right yourself and manage to open the door. ">
|
||
<COND (<QUEUED? I-ONNA-RETURNS>
|
||
<MOVE ,FOOD ,TRAY>
|
||
<MOVE ,TRAY ,HERE>
|
||
<MOVE ,CLOTHES ,HERE>
|
||
<MOVE ,BOOTS ,GARDEN>
|
||
<DEQUEUE I-ONNA-RETURNS>
|
||
<TELL
|
||
"Behind the door, carrying a tray of food and a bundle of your clothes,
|
||
is a shocked " D ,ONNA ". She places the tray on the floor and retreats
|
||
with as much calm as she can muster." CR>)
|
||
(ELSE
|
||
<TELL
|
||
"The shocked woman in the corridor is staring at you." CR>)>)>)
|
||
(<AND <VERB? REPAIR>
|
||
<FSET? ,PRSO ,RMUNGBIT>>
|
||
<TELL "You try to fix the door, but it's futile." CR>)>>
|
||
|
||
<OBJECT QUILT
|
||
(LOC MURA-HOUSE)
|
||
(SCENE S-ANJIRO)
|
||
(DESC "quilt")
|
||
(SYNONYM QUILT)
|
||
(ADJECTIVE THICK PADDED SOFT COTTON)
|
||
(FLAGS TAKEBIT VEHBIT OPENBIT CONTBIT SEARCHBIT FURNITURE SURFACEBIT)
|
||
(ACTION QUILT-F)>
|
||
|
||
<ROUTINE QUILT-F ("OPT" (RARG <>))
|
||
<COND (<RARG? <>>
|
||
<COND (<VERB? EXAMINE>
|
||
<TELL
|
||
"It's a thick padded cotton quilt." CR>)>)
|
||
(<RARG? BEG>
|
||
<COND (<MOTION-VERB?>
|
||
<COND (<L? <GETP ,WINNER ,P?HEALTH> 3>
|
||
<TELL "You're still too weak." CR>)
|
||
(ELSE
|
||
<MOVE ,WINNER ,HERE>
|
||
<RFALSE>)>)>)>>
|
||
|
||
<OBJECT MURA-CRUCIFIX
|
||
(LOC MURA-HOUSE)
|
||
(SCENE S-ANJIRO)
|
||
(DESC "crucifix")
|
||
(FDESC "Hanging on the wall is a crucifix.")
|
||
(SYNONYM CRUCIFIX CROSS)
|
||
(FLAGS TAKEBIT TRYTAKEBIT)
|
||
(ACTION MURA-CRUCIFIX-F)>
|
||
|
||
<ROUTINE MURA-CRUCIFIX-F ()
|
||
<COND (<VERB? EXAMINE>
|
||
<TELL
|
||
"This is the sort of crucifix you would expect to find in a Catholic
|
||
country. You cannot help but look at it with anger and dread, as Spain
|
||
and Portugal, the Catholic powers, have been at war with England for
|
||
decades.|
|
||
|
|
||
All your life you have heard rumors of Portugal's secret
|
||
empire in the East, how they had by now converted the heathens to
|
||
Catholicism and so held them in bondage. Can these rumors have been
|
||
true? If so, what about the other rumors, that gold here is as cheap as
|
||
pig iron, and emeralds and diamonds are as plentiful as pebbles on the
|
||
beach?" CR>)
|
||
(<VERB? TAKE MOVE LOWER>
|
||
<TELL
|
||
"It's fixed to the wall." CR>)
|
||
(<VERB? MUNG>
|
||
<TELL
|
||
"Much as you might like to break it, idolatrous symbol of the hated
|
||
enemy that it is, you can't get to it." CR>)>>
|
||
|
||
<OBJECT TRAY
|
||
(LOC MURA-HOUSE)
|
||
(DESC "red lacquered tray")
|
||
(SYNONYM TRAY BOWL)
|
||
(ADJECTIVE RED LACQUERED)
|
||
(CAPACITY 10)
|
||
(FLAGS TAKEBIT SEARCHBIT OPENBIT CONTBIT SURFACEBIT)>
|
||
|
||
<OBJECT CHOPSTICKS
|
||
(LOC TRAY)
|
||
(DESC "pair of sticks")
|
||
(OWNER CHOPSTICKS)
|
||
(SYNONYM STICKS CHOPSTICKS STICK PAIR)
|
||
(ADJECTIVE CHOP ;PAIR)
|
||
(FLAGS TAKEBIT TOOLBIT PLURAL)
|
||
(ACTION CHOPSTICKS-F)>
|
||
|
||
<ROUTINE CHOPSTICKS-F ()
|
||
<COND (<VERB? EXAMINE>
|
||
<TELL
|
||
"These are two short sticks of polished wood, slightly pointed at one
|
||
end. You have no idea what they are for." CR>)
|
||
(<AND <HOSTILE-VERB?>
|
||
<PRSI? ,CHOPSTICKS>>
|
||
<TELL
|
||
"A pair of chopsticks makes a poor substitute for a weapon." CR>)
|
||
(<OR <P? EAT FOOD>
|
||
<P? USE CHOPSTICKS>
|
||
<P? PICK-UP FOOD>>
|
||
<COND (<OR <IN? ,FOOD ,TRAY>
|
||
<HELD? ,FOOD>>
|
||
<TELL
|
||
"You try to scoop the food with the sticks, but it doesn't work. Why
|
||
there is no knife or spoon here, you cannot understand." CR>)
|
||
(ELSE
|
||
<TELL
|
||
"You can't understand how to use the sticks." CR>)>)>>
|
||
|
||
<OBJECT FOOD
|
||
(LOC TRAY)
|
||
(DESC "food")
|
||
(SYNONYM FOOD VEGETABLES SOUP PORRIDGE)
|
||
(ADJECTIVE MORE FISH COOKED COLD THICK)
|
||
(FLAGS TAKEBIT FOODBIT SCOREBIT NOABIT)
|
||
(ACTION FOOD-F)>
|
||
|
||
<ROUTINE FOOD-F ()
|
||
<COND (<VERB? EXAMINE>
|
||
<TELL
|
||
"The food consists of cold cooked vegetables, fish soup, and a thick
|
||
porridge of wheat or barley." CR>)
|
||
(<VERB? WAIT-FOR>
|
||
<COND (<QUEUED? I-ONNA-RETURNS>
|
||
<TELL
|
||
"Your stomach rumbles as you wait for more food; perhaps there'll be
|
||
grog or a good roast capon this time!" CR>)>)
|
||
(<VERB? SMELL>
|
||
<TELL
|
||
"It smells very strange. Oh for a loaf of fresh crunchy bread, or a
|
||
roast with gravy! Nonetheless, it's all you've got." CR>)
|
||
(<P? EAT FOOD (<> FINGERS HANDS MOUTH)>
|
||
<REMOVE ,FOOD>
|
||
<COND (<L? <GETP ,BLACKTHORNE ,P?HEALTH> 2>
|
||
<QUEUE I-REMEMBER 1>
|
||
<QUEUE I-ONNA 2>
|
||
<TELL
|
||
"You wolf down the vegetables, which have a piquant taste. You drain the
|
||
bowl of soup. You eat the porridge with your fingers, as there appear to
|
||
be no utensils, just some sticks of wood.|
|
||
|
|
||
You are still ravenously hungry." CR>
|
||
<PUTP ,BLACKTHORNE ,P?HEALTH 2>)
|
||
(ELSE
|
||
<PUTP ,BLACKTHORNE ,P?HEALTH 3>
|
||
<TELL
|
||
"This tray of food is the same as the first. There is no meat and no
|
||
grog or brandy. You can eat more slowly now, and you try to savor the
|
||
unfamiliar fare, but you can't convince yourself it's more than just
|
||
filling. Your stomach is pleasantly full when you finish, though." CR>
|
||
<SCORE-OBJECT ,FOOD>)>)>>
|
||
|
||
<ROUTINE I-REMEMBER ()
|
||
<TELL CR
|
||
"With an effort you try to collect yourself. You remember getting the
|
||
anchor out. With Vinck. At least you think it was Vinck. There were lights
|
||
ashore. Then there were lights and strange voices. One of the natives talked
|
||
a little Portuguese. They must have carried you ashore and put you here." CR>>
|
||
|
||
<ROUTINE I-ONNA ()
|
||
<MOVE ,ONNA ,MURA-HOUSE>
|
||
<FSET ,MURA-DOOR ,OPENBIT>
|
||
<THIS-IS-IT ,ONNA>
|
||
<SETG QCONTEXT ,ONNA>
|
||
<TELL CR
|
||
"A panel in the wall slides open. A middle-aged, heavy-set, round-faced
|
||
woman drops to her knees beside the door and bows and smiles at
|
||
you. \""I"Goshujinsama, gokibun wa ikaga desu ka?""\" she asks." CR>>
|
||
|
||
<NEW-ADD-WORD "HAKU" NOUN>
|
||
|
||
<BEGIN-SEGMENT PIT>
|
||
|
||
<OBJECT ONNA
|
||
(SDESC "middle-aged woman")
|
||
(SYNONYM WOMAN ONNA ONNA LADY)
|
||
(ADJECTIVE MIDDLE-AGED HEAVY-SET ROUND-FACED)
|
||
(FLAGS PERSON JAPANESEBIT FEMALE THE OPENBIT SEARCHBIT CONTBIT)
|
||
(ACTION ONNA-F)>
|
||
|
||
<ROUTINE ONNA-F ("OPT" (RARG <>))
|
||
<COND (<RARG? SUBJ>
|
||
<RFALSE>)
|
||
(<RARG? WINNER>
|
||
<COND (<OR <P? BE? THIS JAPAN>
|
||
<P? FIND ;WHERE ME>>
|
||
<TELL G"She stares at you uncomprehendingly""." CR>)
|
||
(<VERB? WHO>
|
||
<NEW-SDESC ,ONNA "Onna">
|
||
<TELL
|
||
"She doesn't understand you, so you point to yourself and say
|
||
\"Blackthorne\" several times, very deliberately. She frowns,
|
||
and then with a flood of understanding
|
||
points at herself and says, \"Onna! Onna!\"" CR>)
|
||
(<AND <OR <VERB? SORRY>
|
||
<AND <P? BE (ME BLACKTHORNE) INTADJ>
|
||
<ADJ? ,W?SORRY>>>
|
||
<FSET? ,MURA-DOOR ,RMUNGBIT>>
|
||
<TELL
|
||
"\"I'm sorry,\" you say, gesturing toward the broken door. The woman
|
||
finally understands, and smiles as if to indicate that she forgives you." CR>)
|
||
(ELSE
|
||
<TELL
|
||
G"She stares at you uncomprehendingly"" and says something you cannot
|
||
understand." CR>)>)
|
||
(<VERB? EXAMINE>
|
||
<TELL
|
||
"She is a middle-aged, heavy-set, round-faced woman." CR>)
|
||
(<VERB? FIND WHERE>
|
||
<COND (<IN? ,MURA ,HERE>
|
||
<SETG WINNER ,MURA>
|
||
<PERFORM ,V?FIND ,PRSO>
|
||
<SETG WINNER ,BLACKTHORNE>
|
||
<RTRUE>)>)
|
||
(<P? ASK-FOR ONNA *>
|
||
<TELL
|
||
"She doesn't understand you." CR>)
|
||
(<P? RUB (STOMACH TRAY)>
|
||
<PERFORM ,V?SHOW ,PRSO ,ONNA>
|
||
<RTRUE>)
|
||
(<P? (SHOW GIVE) * ONNA>
|
||
<COND (<PRSO? ,ME>
|
||
<SETG WINNER ,ONNA>
|
||
<PERFORM ,V?WHO>
|
||
<SETG WINNER ,PLAYER>
|
||
<RTRUE>)
|
||
(<OR <PRSO? HENCHMAN-HEAD>
|
||
<PRSO? <LOC ,HENCHMAN-HEAD>>>
|
||
<TELL
|
||
"She screams and crosses herself." CR>)
|
||
(<HERE? ,MURA-HOUSE ,GARDEN>
|
||
<COND (<VERB? SHOW>
|
||
<TELL "You point to ">)
|
||
(ELSE
|
||
<COND (<FSET? ,PRSO ,TAKEBIT>
|
||
<FCLEAR ,PRSO ,WEARBIT>
|
||
<MOVE ,PRSO ,ONNA>)>
|
||
<TELL "You give her ">)>
|
||
<COND (<AND <PRSO? ,GLOBAL-FOOD>
|
||
<IN? ,TRAY ,HERE>>
|
||
<TELL "the empty tray">)
|
||
(ELSE <TELL THE ,PRSO>)>
|
||
<TELL
|
||
", and the woman looks at " HIM/HER ,PRSO " and ">
|
||
<COND (<PRSO? ,MURA-CRUCIFIX>
|
||
<TELL "makes the sign of the cross." CR>)
|
||
(<AND <PRSO? ,TRAY ,FOOD ,MOUTH ,STOMACH
|
||
,GLOBAL-FOOD>
|
||
<NOT <LOC ,CLOTHES>>>
|
||
<MOVE ,ONNA ,GARDEN>
|
||
<COND (<NOT <FSET? ,MURA-DOOR ,RMUNGBIT>>
|
||
<FCLEAR ,MURA-DOOR ,OPENBIT>)>
|
||
<MOVE ,TRAY ,ONNA>
|
||
<QUEUE I-ONNA-RETURNS 2>
|
||
<TELL "nods. She smiles, politely takes the tray, and ">
|
||
<COND (<FSET? ,MURA-DOOR ,RMUNGBIT>
|
||
<TELL "then glances ruefully at the door." CR>)
|
||
(ELSE
|
||
<TELL "slides the door shut." CR>)>)
|
||
(ELSE
|
||
<TELL
|
||
"says something incomprehensible." CR>)>)>)
|
||
(<VERB? RUB RAISE FUCK>
|
||
<TELL
|
||
CTHE ,ONNA " seems surprised, but not unwilling." CR>)>>
|
||
|
||
<END-SEGMENT ;"ANJIRO+PIT">
|
||
|
||
<BEGIN-SEGMENT ANJIRO>
|
||
|
||
<ROUTINE I-ONNA-RETURNS ()
|
||
<MOVE ,FOOD ,TRAY>
|
||
<MOVE ,CLOTHES ,HERE>
|
||
<MOVE ,TRAY ,HERE>
|
||
<MOVE ,BOOTS ,GARDEN>
|
||
<TELL CR
|
||
"The ">
|
||
<COND (<HERE? ,MURA-HOUSE>
|
||
<TELL "door slides open again, and the ">)>
|
||
<TELL "small woman reappears with more
|
||
food, and your clothes which she places in a neat pile. She bows
|
||
again and departs." CR>>
|
||
|
||
<BEGIN-SEGMENT RODRIGUES>
|
||
|
||
<OBJECT RIBBON
|
||
(DESC "silk ribbon")
|
||
(LDESC
|
||
"Stretched across each doorway is a red silk ribbon.")
|
||
(SYNONYM RIBBON TAPE BANNER)
|
||
(ADJECTIVE RED SILK)
|
||
(FLAGS TAKEBIT READBIT)
|
||
(ACTION RIBBON-F)>
|
||
|
||
<GLOBAL RIBBON-CNT 0>
|
||
|
||
<ROUTINE RIBBON-F ()
|
||
<COND (<VERB? EXAMINE>
|
||
<TELL
|
||
"The wide band of red silk is pasted across the doorway. It is covered with
|
||
queer, squiggly writing." CR>)
|
||
(<VERB? READ>
|
||
<TELL
|
||
"The ribbon is covered with queer, squiggled writing. You can't read it,
|
||
though." CR>)
|
||
(<VERB? POINT>
|
||
<TELL
|
||
"The leader says, politely, \""I"Kasigi Yabu-sama! Kinjiru!""\" ">
|
||
<COND (<NOT ,RIBBON-CNT>
|
||
<TELL "He smiles politely." CR>)
|
||
(ELSE
|
||
<TELL "His expression is very serious." CR>)>)
|
||
(<NOT <PASSIVE-VERB?>>
|
||
<TELL
|
||
"\""I"Hotte oke!""\" The samurai on guard shakes his head to make the point
|
||
clear.">
|
||
<COND (<SCENE? S-ANJIRO>
|
||
<TELL "He is no longer smiling.|
|
||
|
|
||
You try again. \""I"Kinjiru!""\" the guards say emphatically.|
|
||
|
|
||
When you still don't seem to be listening, the guard yells,
|
||
\""I"KINJIRU!""\" You are jerked around to face the samurai. Their swords
|
||
are half out of the scabbards. They wait for you to make up your mind.|
|
||
|
|
||
You realize they are not going to let you retrieve your rutters, and
|
||
begin to retreat. You remember to bow and at once all hostility vanishes,
|
||
but the guards are still watchful." CR>
|
||
<SCORE-OBJECT ,SAMURAI-GUARDS>
|
||
<CRLF>
|
||
<GOTO ,AT-ERASMUS>)
|
||
(ELSE
|
||
<COND (<IN? ,RODRIGUES ,HERE>
|
||
<TELL CR
|
||
"\"Leave this to me, Ingeles!\" blusters Rodrigues." CR>)
|
||
(ELSE <CRLF>)>)>)>>
|
||
|
||
<ROUTINE I-RIBBON ()
|
||
<COND (<AND <HERE? ,ON-DECK ,BRIDGE-OF-ERASMUS>
|
||
<NOT <FSET? ,SAMURAI-GUARDS ,RMUNGBIT>>>
|
||
<SETG RIBBON-CNT <+ ,RIBBON-CNT 1>>
|
||
<COND (<G=? ,RIBBON-CNT 3>
|
||
<CRLF>
|
||
<JIGS-UP
|
||
"In a flash, the samurai indicate that you have wasted too much of
|
||
their time and patience. You cannot benefit from this decision, as
|
||
an instant later you are dead.">)
|
||
(ELSE
|
||
<QUEUE I-RIBBON 4>
|
||
<TELL CR
|
||
"The samurai leader makes a long speech part of which emphatically
|
||
seems to indicate you are expected to leave immediately. But what
|
||
of your rutters? How can you retrieve them?" CR>)>)>>
|
||
|
||
<OBJECT SAMURAI-GUARDS
|
||
(SCENE S-ANJIRO S-RODRIGUES S-ESCAPE)
|
||
(DESC "samurai guards")
|
||
(SYNONYM SAMURAI GUARDS GUARD MAN MEN CREW CREWMEN CREWMAN)
|
||
(FLAGS PERSON JAPANESEBIT PLURAL SCOREBIT NOABIT)
|
||
(DESCFCN SAMURAI-GUARDS-DESC)
|
||
(GENERIC GENERIC-SAMURAI-F)
|
||
(ACTION SAMURAI-GUARDS-F)>
|
||
|
||
<ROUTINE SAMURAI-GUARDS-DESC (RARG OBJ)
|
||
<COND (<RARG? OBJDESC?> <RTRUE>)
|
||
(<RARG? OBJDESC>
|
||
<TELL
|
||
"Several samurai are at posts on the main deck. They ">
|
||
<COND (,RIBBON-CNT
|
||
<TELL "watch you warily.">)
|
||
(<FSET? ,SAMURAI-GUARDS ,RMUNGBIT>
|
||
<TELL "seem relaxed.">)
|
||
(ELSE
|
||
<TELL "seem a little nervous.">)>)>>
|
||
|
||
<ROUTINE SAMURAI-GUARDS-F ("OPT" (RARG <>))
|
||
<COND (<RARG? SUBJ>
|
||
<RFALSE>)
|
||
(<RARG? WINNER>
|
||
<TELL
|
||
"None of the guards appear to understand you." CR>)
|
||
(<VERB? EXAMINE>
|
||
<COND (<SCENE? S-ESCAPE>
|
||
<TELL
|
||
"They are at attention, alert, and rigidly correct in their bearing." CR>)
|
||
(<HERE? ,ON-DECK ,AT-ERASMUS ,BRIDGE-OF-ERASMUS>
|
||
<TELL
|
||
"These men are all samurai. Some have steel breastplates but most wear
|
||
simple kimonos, and the two swords. All wear their hair the same way:
|
||
the top of the head shaved and the hair at the back and sides gathered
|
||
into a queue, oiled, then doubled over the crown and tied neatly." CR>)
|
||
(ELSE
|
||
<TELL
|
||
"You can't see the "I"Erasmus"" well enough from here to tell much about
|
||
who's crewing it." CR>)>)
|
||
(<VERB? WHO>
|
||
<COND (<SCENE? ,S-ANJIRO>
|
||
<TELL
|
||
"They are all dressed alike, so perhaps they are soldiers put here by
|
||
the "I"daimyo""." CR>)
|
||
(<SCENE? ,S-RODRIGUES>
|
||
<TELL
|
||
"They are samurai of Kasigi Yabu, the "I"daimyo"" of this province." CR>)>)
|
||
(<HOSTILE-VERB?>
|
||
<COND (<OR <HERE? ,ON-DECK> <SCENE? ,S-ESCAPE>>
|
||
<COND (<JIGS-UP? ,J-GUARDS>
|
||
<JIGS-UP
|
||
"They efficiently fill their function as guards.">)
|
||
(ELSE <RTRUE>)>)
|
||
(ELSE
|
||
<TELL
|
||
"Luckily for you, you aren't close enough to attack the guards." CR>)>)
|
||
(<AND <HERE? ,ANJIRO-WATERFRONT>
|
||
<NOT <ABSTRACT-VERB?>>>
|
||
<TELL
|
||
"The crewmen on the "I"Erasmus"" aren't here." CR>
|
||
<COND (<VERB? TELL> <END-QUOTE> <RFATAL>)
|
||
(ELSE <RTRUE>)>)
|
||
(<VERB? GIVE SHOW>
|
||
<COND (<PRSO? ,HENCHMAN-HEAD>
|
||
<TELL
|
||
"They discuss it among themselves. They don't seem upset or disgusted by it." CR>)
|
||
(ELSE
|
||
<TELL "They don't seem interested." CR>)>)
|
||
(<VERB? BOW>
|
||
<COND (<SCENE? S-ESCAPE>
|
||
<TELL
|
||
"They return your bow with perfect military correctness." CR>)
|
||
(<NOT <FSET? ,PRSO ,RMUNGBIT>>
|
||
<FSET ,PRSO ,RMUNGBIT>
|
||
<COND (<EQUAL? ,RIBBON-CNT 3>
|
||
<TELL
|
||
"You bow politely. At once all the hostility vanishes and they all
|
||
bow and smile again." CR>)
|
||
(ELSE
|
||
<TELL
|
||
"All the guards relax slightly and begin to smile." CR>)>)
|
||
(ELSE
|
||
<TELL "The leader returns your bow.">
|
||
<COND (,RIBBON-CNT
|
||
<TELL
|
||
"The guards seem more relaxed now.">)>
|
||
<CRLF>)>)
|
||
(<VERB? TELL-ABOUT>
|
||
<TELL
|
||
"They don't appear to understand you." CR>)>>
|
||
|
||
<END-SEGMENT ;"ANJIRO">
|
||
|
||
|
||
|
||
"YABU for
|
||
SHOGUN
|
||
(c) Copyright 1988 Infocom, Inc. All Rights Reserved."
|
||
|
||
<BEGIN-SEGMENT YABU>
|
||
|
||
<ROOM VILLAGE-SQUARE ;"setup s-yabu"
|
||
(LOC ROOMS)
|
||
(SCENE S-YABU)
|
||
(DESC "Village Square")
|
||
(SCORE 2)
|
||
(FDESC
|
||
"The next day, you and your crewmen are brought before the
|
||
daimyo. Samurai slam all of you on your knees and push your heads into the dust.")
|
||
(SYNONYM SQUARE)
|
||
(ADJECTIVE VILLAGE)
|
||
(NORTH TO BATH-HOUSE IF BATH-FLAG)
|
||
(FLAGS OUTSIDE ONBIT SCOREBIT)
|
||
(GLOBAL CREWMEN LG-ERASMUS VILLAGERS PIT LG-VILLAGE)
|
||
(ACTION VILLAGE-SQUARE-F)>
|
||
|
||
<ROUTINE VILLAGE-SQUARE-F (RARG)
|
||
<COND (<RARG? SCENE-SETUP>
|
||
<COND (<SCENE? ,S-YABU>
|
||
<DRESS-BLACKTHORNE T>
|
||
<B-KNEEL>
|
||
<MOVE-CREW ,HERE T ;"set their ndescbits">
|
||
<MOVE ,MURA ,HERE>
|
||
<MOVE ,SEBASTIO ,HERE>
|
||
<NEW-SDESC ,SEBASTIO "Father Sebastio">
|
||
<MOVE ,OMI ,HERE>
|
||
<NEW-SDESC ,OMI "Omi">
|
||
<MOVE ,YABU ,HERE>
|
||
<SETG YABU-CNT 0>
|
||
<QUEUE I-YABU-AUDIENCE -1>)>)
|
||
(<RARG? LOOK>
|
||
<TELL
|
||
"This is the village square of Anjiro. The day is clear and warm.">
|
||
<COND (<SCENE? S-YABU>
|
||
<TELL "You are ">
|
||
<COND (<B-KNEELING?>
|
||
<TELL "kneeling">)
|
||
(ELSE <TELL "standing">)>
|
||
<TELL " in front of the platform.">)>
|
||
<COND (,BATH-FLAG
|
||
<TELL
|
||
"A narrow path leads north between two wooden fences.">)>
|
||
<CRLF>)
|
||
(<RARG? BEG>
|
||
<COND (<AND <SCENE? ,S-YABU ,S-PIT>
|
||
<P? BOW (<> OMI YABU)>>
|
||
<COND (<NOT ,PRSO> <SETG PRSO ,YABU>)>
|
||
<TELL "You bow">
|
||
<COND (<B-NOT-STANDING?>
|
||
<TELL ", bending forward from your ">
|
||
<COND (<B-KNEELING?>
|
||
<TELL "kneeling">)
|
||
(ELSE <TELL "sitting">)>
|
||
<TELL " position">)>
|
||
<TELL ". ">
|
||
<COND (<QUEUED? I-BOW?>
|
||
<DEQUEUE I-BOW?>
|
||
<COND (<SCENE? ,S-YABU>
|
||
<DEQUEUE I-YABU-AUDIENCE>
|
||
<TELL
|
||
"Yabu motions the guards forward, giving them curt orders. \"You have
|
||
insulted the Lord Yabu with your bad manners and incredible impertinence,\"
|
||
explains Father Sebastio smugly. Yabu turns to confer with Omi." CR>
|
||
<COND (<FSET? ,SEBASTIO-CRUCIFIX ,SCOREBIT>
|
||
<TELL CR
|
||
"\"You are to be put to death for being a pirate and a heretic,\" says
|
||
Sebastio, but for some reason you think he is lying. Yabu looks pleased and
|
||
Omi unhappy about the outcome. Why, you wonder? As the guards lead you
|
||
away, you can't help believing you were close to convincing them to let you
|
||
live." CR>
|
||
<JIGS-UP>
|
||
<RFATAL>)
|
||
(ELSE
|
||
<TELL CR
|
||
"After a while, Yabu and Omi finish their polite discussion. Yabu speaks
|
||
to the guards again, and Father Sebastio explodes with indignation. \"They
|
||
are sparing you and your crew precisely because you are heretics who hate
|
||
the true Church! Surely this land is in the power of Satan!\"|
|
||
|
|
||
Yabu smiles happily at you and your crewmen, then points to you and barks
|
||
an additional order to Omi, who bows. You shudder, wondering what fate
|
||
could be in store for you, and afraid you are about to find out." CR>
|
||
<NEXT-SCENE>)>)
|
||
(ELSE
|
||
<TELL
|
||
CTHE ,PRSO " returns your bow, and relaxes." CR>)>)
|
||
(<SCENE? ,S-YABU>
|
||
<TELL
|
||
CTHE ,PRSO " returns your bow. He seems at once astonished and amused by
|
||
your behavior, but it's clear he has no love for the priest." CR>)
|
||
(ELSE
|
||
<TELL
|
||
CTHE ,PRSO " seems pleased by this display of manners." CR>)>)
|
||
(<SCENE? S-YABU>
|
||
<COND (<AND <VERB? STAND>
|
||
<B-NOT-STANDING?>>
|
||
<TELL
|
||
"You stand up. The Japanese seem surprised by your audacity." CR>)
|
||
(<ACT-CRAZY?>
|
||
<TELL
|
||
"Yabu stares at you in surprise. You must be insane!" CR>)
|
||
(<AND <VERB? TELL SEND>
|
||
<NOT <PRSO? YABU SEBASTIO>>>
|
||
<SPEAK-ONLY-TO-YABU>
|
||
<COND (<VERB? TELL> <END-QUOTE> <RFATAL>)
|
||
(ELSE <RTRUE>)>)>)
|
||
(<SCENE? ,S-PIT>
|
||
<COND (<P? THROUGH PIT>
|
||
<DO-WALK ,P?DOWN>)
|
||
(<AND <P? WALK P?DOWN>
|
||
<IN? ,LADDER ,HERE>>
|
||
<PERFORM ,V?CLIMB-DOWN ,LADDER>
|
||
<RTRUE>)
|
||
(<AND <VERB? LIE-DOWN BOARD LOWER>
|
||
,ANSWER-HAI?
|
||
<FSET? ,CROOCQ ,SCOREBIT>>
|
||
<COND (<NOT <B-LYING?>>
|
||
<B-LIE-DOWN>
|
||
<TELL
|
||
"You do as you were ordered." CR>
|
||
<SCORE-OBJECT ,CROOCQ>)>)>)>)>>
|
||
|
||
<ROUTINE YABU-TALK-TO-YABU ()
|
||
<COND (<AND <P? BE (BLACKTHORNE ME)>
|
||
<EQUAL? ,YABU-QUESTION 1>>
|
||
<COND (<NOT <PRSI? BLACKTHORNE ME>>
|
||
<TELL
|
||
"\"This is no time for foolishness, heretic!\" roars the priest." CR>)
|
||
(<AND <NOUN-USED? ,PRSI ,W?BLACKTHORNE>
|
||
<ADJ-USED? ,PRSI ,W?JOHN>
|
||
<NOT <P-NEGATIVE?>>>
|
||
<SETG QCONTEXT <>>
|
||
<SETG YABU-QUESTION 0>
|
||
<TELL
|
||
G"Father Sebastio translates your answer. ""He seems very deferential to
|
||
Yabu, and very sweaty." CR>)
|
||
(ELSE
|
||
<TELL
|
||
"\"No, no! What is your ">
|
||
<COND (<OR <NOUN-USED? ,PRSI
|
||
,W?BLACKTHORNE>
|
||
<ADJ-USED? ,PRSI ,W?JOHN>>
|
||
<TELL "full ">)>
|
||
<TELL
|
||
"name, pirate?\" storms the priest, annoyed in
|
||
spite of himself." CR>)>)
|
||
(<AND <EQUAL? ,YABU-QUESTION 2>
|
||
<OR <AND <P? BE (BLACKTHORNE ME) INTPP>
|
||
<PP? ,W?FROM ,HOLLAND>>
|
||
<P? COME-FROM HOLLAND>>
|
||
<NOT <P-NEGATIVE?>>>
|
||
<SETG QCONTEXT <>>
|
||
<SETG YABU-QUESTION 0>
|
||
<TELL
|
||
G"Father Sebastio translates your answer. ""Yabu is showing irritation
|
||
and impatience. Perhaps the Jesuit's Japanese isn't fluent?" CR>)
|
||
(<AND <EQUAL? ,YABU-QUESTION 3>
|
||
<P? BE
|
||
(BLACKTHORNE ME)
|
||
(BLACKTHORNE RODRIGUES LEADER)>
|
||
<OR <NOUN-USED? ,PRSI ,W?PILOT>
|
||
<NOUN-USED? ,PRSI ,W?PILOT-MAJOR>>
|
||
<NOT <P-NEGATIVE?>>>
|
||
<SETG QCONTEXT ,YABU>
|
||
<SETG YABU-QUESTION 4>
|
||
<TELL
|
||
"Father Sebastio doesn't translate what you said. Instead he asks,
|
||
\"Why is an Englishman the pilot of a Dutch ship? Answer!\" Yabu
|
||
looks annoyed at the priest. Perhaps they aren't allies
|
||
after all." CR>)
|
||
(<AND <EQUAL? ,YABU-QUESTION 4>
|
||
<EQUAL? ,PRSS ,ME ,BLACKTHORNE>
|
||
<P? (WALK WALK-TO WALK-AROUND
|
||
COME-FROM COME-TO-FROM)
|
||
(<> ENGLAND STRAIT-OF-MAGELLAN
|
||
JAPAN PACIFIC GLOBAL-HERE LG-SEA
|
||
LG-ERASMUS BLACK-SHIP NOT-HERE-OBJECT)
|
||
(<> ENGLAND STRAIT-OF-MAGELLAN
|
||
PACIFIC LG-SEA LG-ERASMUS BLACK-SHIP)>
|
||
<PAST-TENSE?>
|
||
<NOT <P-NEGATIVE?>>>
|
||
<COND (<PRSO? NOT-HERE-OBJECT>
|
||
<TELL
|
||
"\"Liar! You came around Africa and India!\""G" screams the priest." CR>)
|
||
(<AND <PRSO? <> LG-SEA LG-ERASMUS
|
||
BLACK-SHIP>
|
||
<PRSI? <> LG-SEA LG-ERASMUS
|
||
BLACK-SHIP>>
|
||
<TELL
|
||
"\"Of course you did! You didn't fly!\""G" screams the priest." CR>)
|
||
(ELSE
|
||
<SETG YABU-QUESTION 0>
|
||
<SETG QCONTEXT <>>
|
||
<TELL
|
||
"You describe your voyage. \"We came through Magellan's Pass. This is the
|
||
one hundred and thirty-sixth day from there.\"|
|
||
|
|
||
\"You're lying! Magellan's Pass is secret. You came via Africa and
|
||
India. You'll have to tell the truth eventually. They use torture
|
||
here.\"" CR>
|
||
<SCORE-OBJECT ,STRAIT-OF-MAGELLAN>)>)
|
||
(<AND <P? BE (BLACKTHORNE ME)>
|
||
<P-NEGATIVE?>>
|
||
<COND (<PRSI? CHURCH>
|
||
<TELL
|
||
"\"I've already told the "I"daimyo"" that you're a heretic!\"" CR>)
|
||
(<PRSI? PORTUGUESE>
|
||
<TELL
|
||
"\"That's right, heretic, dig your own grave! Only we Portuguese and
|
||
the damnable Spanish are allowed to trade here!\"" CR>)
|
||
(<AND <PRSI? PIRATE>
|
||
<EQUAL? ,YABU-QUESTION 4>>
|
||
<SETG QCONTEXT <>>
|
||
<SETG YABU-QUESTION 0>
|
||
<TELL
|
||
"\"You liar! You filthy heretics are all pirates!\" The priest speaks
|
||
haltingly to Yabu, who answers brusquely. He is apparently losing
|
||
interest in the interrogation, and looks out into the harbor, toward
|
||
the ship." CR>)
|
||
(ELSE
|
||
<TELL
|
||
CTHE ,SEBASTIO " translates what you have said. Yabu doesn't seem
|
||
terribly interested, but only annoyed at the priest's poor Japanese." CR>)>)
|
||
(<AND ,YABU-QUESTION
|
||
<VERB? SAY REPLY>>
|
||
<COND (<EQUAL? ,YABU-QUESTION 1 3>
|
||
<PERFORM ,V?BE ,ME ,PRSO>
|
||
<RTRUE>)
|
||
(ELSE
|
||
<PERFORM ,V?COME-FROM>
|
||
<RTRUE>)>)
|
||
(ELSE
|
||
<TELL
|
||
CTHE ,SEBASTIO " haltingly translates what you have said. Yabu appears
|
||
increasingly impatient." CR>)>>
|
||
|
||
<ROUTINE SPEAK-ONLY-TO-YABU ()
|
||
<TELL
|
||
"Yabu says something sharply, and the priest warns, \"Speak only to
|
||
the Lord Yabu! You are endangering your miserable life, heretic!\""
|
||
CR>>
|
||
|
||
<OBJECT SEBASTIO-CRUCIFIX
|
||
(SCENE S-ANJIRO S-YABU S-PIT)
|
||
(LOC SEBASTIO)
|
||
(DESC "crucifix")
|
||
(OWNER SEBASTIO)
|
||
(SYNONYM CRUCIFIX CROSS)
|
||
(ADJECTIVE PECTORAL WOOD WOODEN)
|
||
(FLAGS DONT-ALL TAKEBIT TRYTAKEBIT NDESCBIT SCOREBIT)
|
||
(ACTION SEBASTIO-CRUCIFIX-F)>
|
||
|
||
<ROUTINE SEBASTIO-CRUCIFIX-F ()
|
||
<COND (<VERB? EXAMINE>
|
||
<TELL
|
||
"It's wooden, beautifully carved">
|
||
<COND (<IN? ,PRSO ,SEBASTIO>
|
||
<TELL ", and hangs on a long chain from the priest's
|
||
belt." CR>)
|
||
(ELSE <TELL "." CR>)>)
|
||
(<VERB? MUNG THROW>
|
||
<COND (<AND ,PRSI
|
||
<FSET? ,PRSI ,PERSON>
|
||
<NOT <PRSI? ,SEBASTIO>>>
|
||
<RFALSE>)
|
||
(<IN? ,PRSO ,PLAYER>
|
||
<COND (<AND <IN? ,OMI ,HERE> <IN? ,YABU ,HERE>>
|
||
<QUEUE I-BOW? 2>)>
|
||
<QUEUE I-SEBASTIO-PRAYS 1>
|
||
<MOVE ,SEBASTIO-CRUCIFIX ,HERE>
|
||
<COND (<VERB? MUNG>
|
||
<TELL
|
||
"You break the crucifix in two, and hurl the pieces ">)
|
||
(ELSE
|
||
<TELL
|
||
"You throw the crucifix ">)>
|
||
<COND (<PRSI? ,SEBASTIO>
|
||
<TELL "at " THE ,SEBASTIO ".">)
|
||
(ELSE <TELL "on the ground.">)>
|
||
<COND (<AND <IN? ,OMI ,HERE> <IN? ,YABU ,HERE>>
|
||
<TELL
|
||
"The samurai watch. Omi, in particular, seems interested and excited.">)>
|
||
<CRLF>
|
||
<SCORE-OBJECT ,SEBASTIO-CRUCIFIX>)
|
||
(ELSE
|
||
<TELL
|
||
"You don't have it." CR>)>)
|
||
(<VERB? PISS>
|
||
<TELL
|
||
"You are so nervous that you can't." CR>)
|
||
(<VERB? SPIT>
|
||
<TELL
|
||
"Your mouth is so dry from tension and fear that you can't muster any
|
||
spit." CR>)
|
||
(<P? GIVE SEBASTIO-CRUCIFIX>
|
||
<COND (<PRSI? SEBASTIO>
|
||
<MOVE ,SEBASTIO-CRUCIFIX ,SEBASTIO>
|
||
<TELL
|
||
"He snatches it back, snarling." CR>)
|
||
(<PRSI? ,YABU ,OMI>
|
||
<TELL
|
||
"He refuses, looking rather surprised." CR>)>)
|
||
(<VERB? TAKE>
|
||
<COND (<NOT <FSET? ,PRSO ,SCOREBIT>>
|
||
<TELL
|
||
"You pick up the broken pieces of the crucifix. Sebastio watches you
|
||
with contempt and hatred." CR>)
|
||
(<NOT <IN? ,PRSO ,SEBASTIO>>
|
||
<RFALSE>)
|
||
(<FSET? ,SEBASTIO-CRUCIFIX ,RMUNGBIT>
|
||
<QUEUE I-BOW? 2>
|
||
<FCLEAR ,PRSO ,DONT-ALL>
|
||
<MOVE ,PRSO ,PLAYER>
|
||
<FSET ,PRSO ,TOUCHBIT>
|
||
<TELL
|
||
"You snatch the crucifix from " THE ,SEBASTIO "'s hand. He stares at
|
||
you, shocked and astonished. Yabu watches your incredible behavior
|
||
with disgust, Omi with increasing interest. You can almost see his
|
||
curiosity: what will the barbarian do next?" CR>)
|
||
(ELSE
|
||
<TELL
|
||
"You grab for the crucifix, but Sebastio snatches it away, holding
|
||
it up as if to ward you off. \"Demon! Heretic!\" he screams. \"You'd
|
||
love to defile this holy cross to prove to these pagans you're also a
|
||
satan worshipper and an enemy of the church! You'll die first!\"" CR>
|
||
<JAPANESE-INTERESTED?>)>)>>
|
||
|
||
<ROUTINE JAPANESE-INTERESTED? ()
|
||
<COND (<IN? ,OMI ,HERE>
|
||
<COND (<IN? ,YABU ,HERE>
|
||
<TELL CR
|
||
"Yabu appears a little less bored, and Omi somewhat interested by
|
||
your behavior." CR>)
|
||
(ELSE
|
||
<TELL CR
|
||
CTHE ,OMI " watches this exchange with interest. He seems
|
||
very excited by your apparent hatred of the priest." CR>)>)>
|
||
<RTRUE>>
|
||
|
||
<ROUTINE I-SEBASTIO-PRAYS ()
|
||
<TELL CR
|
||
CTHE ,SEBASTIO " kneels, staring fixedly at the pieces of the cross. He
|
||
picks up the violated wood. He turns to you, and says quietly, \"I
|
||
will pray for you, heretic.\"" CR>>
|
||
|
||
<ROUTINE I-BOW? ()
|
||
<TELL CR
|
||
"Yabu seems to have taken your treatment of the priest as a personal
|
||
insult. Amazed by your lack of manners, he orders you
|
||
put to death." CR>
|
||
<JIGS-UP>
|
||
<RFATAL>>
|
||
|
||
<GLOBAL YABU-QUESTION 0>
|
||
|
||
<ROUTINE I-YABU-AUDIENCE ()
|
||
<ZLINES ,YABU-CNT
|
||
(<SETUP-ANSWER "i am">
|
||
<THIS-IS-IT ,SEBASTIO>
|
||
<SETG QCONTEXT ,YABU>
|
||
<SETG YABU-QUESTION 1>
|
||
<TELL CR
|
||
"Father Sebastio comes forward. \"I will translate for you,\" he
|
||
says. \"The "I"daimyo"", Kasigi Yabu, Lord of Izu, wants to know who you are,
|
||
where you come from, how you got here, and what acts of piracy you have
|
||
committed.\"" CR>)
|
||
(DELAY
|
||
<COND (<EQUAL? ,YABU-QUESTION 1>
|
||
<THIS-IS-IT ,SEBASTIO>
|
||
<COND (<G? ,DELAY-CNT 3>
|
||
<YABU-SAYS "filthy barbarian pirate">
|
||
<RFATAL>)
|
||
(ELSE
|
||
<SETUP-ANSWER "i am">
|
||
<TELL CR
|
||
"\"Answer the "I"daimyo"", heretic! Who are you?\"" CR>
|
||
<RTRUE>)>)>)
|
||
(<SETUP-ANSWER "i sailed from">
|
||
<THIS-IS-IT ,SEBASTIO>
|
||
<SETG QCONTEXT ,YABU>
|
||
<SETG YABU-QUESTION 2>
|
||
<TELL CR
|
||
"Father Sebastio asks, \"Where did you sail from?\"" CR>)
|
||
(DELAY
|
||
<COND (<EQUAL? ,YABU-QUESTION 2>
|
||
<THIS-IS-IT ,SEBASTIO>
|
||
<COND (<G? ,DELAY-CNT 3>
|
||
<YABU-SAYS "mannerless freak">
|
||
<RFATAL>)
|
||
(ELSE
|
||
<SETUP-ANSWER "i sailed from">
|
||
<TELL CR
|
||
"\"Answer the "I"daimyo"", heretic! Where did your pirate ship sail
|
||
from?\"" CR>
|
||
<RTRUE>)>)>)
|
||
(<SETG YABU-QUESTION 3>
|
||
<THIS-IS-IT ,SEBASTIO>
|
||
<SETG QCONTEXT ,YABU>
|
||
<SETUP-ANSWER "i am">
|
||
<TELL CR
|
||
"The Jesuit asks, \"What are you? You're not the Captain!\"" CR>)
|
||
(DELAY
|
||
<COND (<EQUAL? ,YABU-QUESTION 3>
|
||
<THIS-IS-IT ,SEBASTIO>
|
||
<COND (<G? ,DELAY-CNT 3>
|
||
<CRLF>
|
||
<YABU-SAYS "barbarian ape">
|
||
<RFATAL>)
|
||
(ELSE
|
||
<SETUP-ANSWER "i am">
|
||
<TELL CR
|
||
"\"Answer the "I"daimyo"", heretic! What are you? You're obviously
|
||
an officer!\"" CR>
|
||
<RTRUE>)>)>)
|
||
(<SETG YABU-QUESTION 4>
|
||
<THIS-IS-IT ,SEBASTIO>
|
||
<SETG QCONTEXT ,YABU>
|
||
<SETUP-ANSWER "i sailed">
|
||
<TELL CR
|
||
"Father Sebastio asks, trying to control his anger, \"How did you get
|
||
here?\"" CR>)
|
||
(DELAY
|
||
<COND (<EQUAL? ,YABU-QUESTION 4>
|
||
<THIS-IS-IT ,SEBASTIO>
|
||
<COND (<G? ,DELAY-CNT 2>
|
||
<SETG YABU-QUESTION 0>
|
||
<TELL CR
|
||
G"The priest confers with Yabu. \"Yabu says ""it is unimportant. We
|
||
will find out these facts in due time.\"" CR>
|
||
<RFATAL>)
|
||
(ELSE
|
||
<SETUP-ANSWER "i sailed">
|
||
<TELL CR
|
||
"\"Answer the "I"daimyo""! How did you get here?\"" CR>
|
||
<RTRUE>)>)>)
|
||
(<SETG YABU-QUESTION 0>
|
||
<THIS-IS-IT ,SEBASTIO>
|
||
<SETG QCONTEXT <>>
|
||
<SETUP-ANSWER <>>
|
||
<FSET ,SEBASTIO-CRUCIFIX ,RMUNGBIT>
|
||
<THIS-IS-IT ,SEBASTIO-CRUCIFIX>
|
||
<TELL CR
|
||
"Now, " THE ,SEBASTIO " is barely listening to you. \"You're a lying
|
||
heretic pirate!\" screams the priest, spittle flying from his mouth
|
||
as he whirls toward you, shaking his fist. His crucifix on its long
|
||
chain waves mockingly near your face." CR>)
|
||
(<THIS-IS-IT ,YABU>
|
||
<TELL CR
|
||
"\""I"Ano mono wa nani o moshite oru?""\" the "I"daimyo"" snaps
|
||
impatiently." CR>)
|
||
(2
|
||
<THIS-IS-IT ,YABU>
|
||
<TELL CR
|
||
"Yabu is becoming bored and impatient. He turns his back to the priest,
|
||
obvious detestation all over his face." CR>)
|
||
(3
|
||
<TELL CR
|
||
CTHE ,SEBASTIO " translates Yabu's sentence. \"This ship, alien, non-Portuguese, and pirate, is
|
||
confiscated with all it contains. All pirates are sentenced to immediate
|
||
crucifixion.\"" CR>
|
||
<DEQUEUE I-YABU-AUDIENCE>
|
||
<JIGS-UP>)>>
|
||
|
||
<ROUTINE YABU-SAYS (STR)
|
||
<CRLF>
|
||
<TELL
|
||
G"The priest confers with Yabu. \"Yabu says ""you are a " .STR ", and you
|
||
are condemned to death.\"">
|
||
<JIGS-UP>>
|
||
|
||
<END-SEGMENT ;"YABU">
|
||
|
||
|
||
|
||
<BEGIN-SEGMENT PIT>
|
||
|
||
<ROOM PIT ;"setup s-pit"
|
||
(LOC ROOMS)
|
||
(SCENE S-PIT)
|
||
(DESC "Pit")
|
||
(AFTER PIT-AFTER-F)
|
||
(SYNONYM PIT CELLAR)
|
||
(SCORE 5)
|
||
(FDESC
|
||
"At Yabu's order, the samurai herd you and your crew across the square,
|
||
down a ladder, and underground. A trap door locks above you.")
|
||
(FLAGS ONBIT)
|
||
(GLOBAL TRAPDOOR LG-CREWMEN PIETERZOON)
|
||
(ACTION PIT-F)>
|
||
|
||
<ROUTINE PIT-F (RARG)
|
||
<COND (<RARG? SCENE-SETUP>
|
||
<DRESS-BLACKTHORNE T>
|
||
<PUTP ,VILLAGE-SQUARE ,P?FDESC <>>
|
||
<NEW-SDESC ,ONNA "Onna">
|
||
<NEW-SDESC ,SEBASTIO "Father Sebastio">
|
||
<REMOVE ,SEBASTIO-CRUCIFIX>
|
||
<NEW-SDESC ,OMI "Omi">
|
||
<MOVE ,CAULDRON ,VILLAGE-SQUARE>
|
||
<MOVE-CREW ,PIT>
|
||
<REMOVE ,CREWMEN>
|
||
<MOVE ,ROPER ,HERE>
|
||
<MOVE ,SONK ,HERE>
|
||
<QUEUE I-PIT -1>)
|
||
(<RARG? LOOK>
|
||
<TELL
|
||
"You are crammed into a deep cellar, one of the many that the fishermen
|
||
use to store sun-dried fish. The cellar is five paces long and five wide
|
||
and four deep, with an earthen floor and walls. ">
|
||
<COND (<IN? ,OFFAL ,HERE>
|
||
<TELL
|
||
"The floor is awash with rotting fish offal and seawater. ">)>
|
||
<TELL-CEILING>)
|
||
(<RARG? BEG>
|
||
<COND (<P? DISEMBARK ROOMS>
|
||
<DO-WALK ,P?UP>)
|
||
(<P? BOARD GLOBAL-HERE>
|
||
<TELL G"You already are." CR>)
|
||
(<AND <VERB? PICK>
|
||
<FSET? ,PRSO ,PERSON>
|
||
,MUST-CHOOSE?>
|
||
<TELL
|
||
"\"The only fair thing is to draw straws!\" says Vinck." CR>)
|
||
(<AND <HOSTILE-VERB?>
|
||
<PRSO? ,OMI ,MURA ,SEBASTIO>>
|
||
<TELL
|
||
G"You can't reach ""him." CR>)
|
||
(<AND <VERB? PISS>
|
||
,PRSO
|
||
<FSET? ,PRSO ,PERSON>>
|
||
<TELL
|
||
"The crewmen are appalled at your behavior. " CTHE ,PRSO " squirms
|
||
away, trying to clean himself off." CR>)
|
||
(<AND <P? SIT (ROOMS GROUND)>
|
||
<B-STANDING?>
|
||
<IN? ,OFFAL ,HERE>>
|
||
<B-SIT>
|
||
<TELL
|
||
"You find a relatively dry spot and sit down. The others complain but
|
||
they finally rearrange themselves and quiet down." CR>)
|
||
(<AND <P? LIE-DOWN>
|
||
<IN? ,OFFAL ,HERE>>
|
||
<TELL
|
||
"You want to lie down in old fish heads? You must be a barbarian!" CR>)
|
||
(<VERB? YELL YELL-AT>
|
||
<COND (<NOT <FSET? ,TRAPDOOR ,OPENBIT>>
|
||
<TELL
|
||
"You begin yelling, and everyone else joins in. \"Water! And food, by
|
||
God! Let us out of here!\"" CR>)
|
||
(ELSE
|
||
<TELL
|
||
"The Japanese look at you with contempt." CR>)>)
|
||
(<P? LOOK-UP>
|
||
<TELL-CEILING>)
|
||
(<P? WALK (P?UP P?OUT)>
|
||
<COND (<IN? ,LADDER ,HERE>
|
||
<PERFORM ,V?CLIMB-FOO ,LADDER>
|
||
<RTRUE>)
|
||
(ELSE
|
||
<TELL
|
||
"You can't climb out without a ladder. The pit is too deep." CR>)>)
|
||
(<P? (PARRY STOP) <>>
|
||
<COND (<OR <IN? ,OMI-SAMURAI ,LADDER>
|
||
<IN? ,OMI-SAMURAI ,PIT>>
|
||
<PERFORM ,V?ATTACK ,OMI-SAMURAI>
|
||
<RTRUE>)>)
|
||
(<OR <P? (HELP TAKE STOP PUSH-DOWN SIT)
|
||
(VINCK PIETERZOON)>
|
||
<P? (HELP STOP) ME>>
|
||
<COND (<PRSO? VINCK ME>
|
||
<PERFORM ,V?STOP ,LADDER>
|
||
<RTRUE>)
|
||
(<AND <PRSO? PIETERZOON>
|
||
<IN? ,PIETERZOON ,CAULDRON>>
|
||
<TELL
|
||
"\"">
|
||
<COND (,VINCK-PICKED? <TELL "Vinck">)
|
||
(ELSE <TELL "The Pilot">)>
|
||
<TELL
|
||
" should have gone. He was the lamb of God. And now his
|
||
soul's forfeit, he'll burn for all eternity.\"" CR>)>)
|
||
(<AND <P? LISTEN (<> PIETERZOON VINCK)>
|
||
<OR <IN? ,PIETERZOON ,CAULDRON>
|
||
<IN? ,VINCK ,CAULDRON>>>
|
||
<TELL
|
||
"There is no longer any sound. The silence, you fear, is that of death." CR>)>)>>
|
||
|
||
<ROUTINE TELL-CEILING ()
|
||
<TELL
|
||
"The ceiling is made of planks with a foot of earth above and a single ">
|
||
<COND (<FSET? ,TRAPDOOR ,OPENBIT>
|
||
<TELL "open ">)
|
||
(ELSE
|
||
<TELL "closed ">)>
|
||
<TELL D ,TRAPDOOR " set into it." CR>>
|
||
|
||
<OBJECT SEAWATER
|
||
(DESC "seawater")
|
||
(SYNONYM SEAWATER WATER)
|
||
(ADJECTIVE SEA)
|
||
(FLAGS NDESCBIT)
|
||
(ACTION SEAWATER-F)>
|
||
|
||
<ROUTINE SEAWATER-F ()
|
||
<COND (<VERB? DRINK>
|
||
<TELL
|
||
"You'll go mad from drinking seawater!" CR>)>>
|
||
|
||
<OBJECT OFFAL
|
||
(DESC "offal")
|
||
(SYNONYM OFFAL HEADS FISH ENTRAILS)
|
||
(ADJECTIVE FISH ROTTING)
|
||
(FLAGS NDESCBIT)
|
||
(ACTION OFFAL-F)>
|
||
|
||
<ROUTINE OFFAL-F ()
|
||
<COND (<VERB? EXAMINE>
|
||
<TELL
|
||
"It's rotting fish heads and entrails." CR>)
|
||
(<VERB? SMELL>
|
||
<TELL
|
||
"It smells offal." CR>)
|
||
(<VERB? EAT>
|
||
<TELL
|
||
"You'd be crazy to eat that!" CR>)>>
|
||
|
||
<GLOBAL VINCK-PICKED? <>>
|
||
|
||
<ROUTINE I-PIT ()
|
||
<ZLINES ,PIT-CNT
|
||
(<TELL CR
|
||
"Captain-General Spillbergen, half-awake and querulous, says \"Pass the
|
||
water.\"" CR CR
|
||
"\"There isn't any, Paulus\" Van Nekk answers gloomily, \"We haven't
|
||
even got a pot to piss in!\"" CR CR
|
||
"Spillbergen points at Vinck. \"Ask for water!\" he orders." CR CR
|
||
"Vinck stands under the opening and shouts, \"Hey! You up there! Give
|
||
us God-cursed water! We want food and water!\"" CR CR
|
||
"There is no answer." CR>)
|
||
(<FSET ,TRAPDOOR ,OPENBIT>
|
||
<MOVE ,OMI ,TRAPDOOR>
|
||
<MOVE ,SEBASTIO ,TRAPDOOR>
|
||
<MOVE ,MURA ,TRAPDOOR>
|
||
<MARGINAL-PIC ,P-PIT>
|
||
<TELL CR
|
||
"The trapdoor opens. Omi looks down at you. Beside him are Mura and the
|
||
priest.">
|
||
<COND (<VERB? YELL YELL-AT>
|
||
<TELL
|
||
"Everyone but you begins yelling. \"Water! And food, by God! Let
|
||
us out of here!\"">)
|
||
(ELSE
|
||
<TELL
|
||
"Everyone is still yelling.">)>
|
||
<MOVE ,OFFAL ,PIT>
|
||
<MOVE ,SEAWATER ,PIT>
|
||
<TELL "Omi motions to Mura, who nods and leaves." CR CR
|
||
"Mura returns with another fisherman, carrying a large barrel. They empty
|
||
the contents, rotting fish offal and seawater, onto your heads." CR>)
|
||
(<SETG MUST-CHOOSE? T>
|
||
<FCLEAR ,TRAPDOOR ,OPENBIT>
|
||
<MOVE ,SEBASTIO ,VILLAGE-SQUARE>
|
||
<MOVE ,MURA ,VILLAGE-SQUARE>
|
||
<MOVE ,OMI ,VILLAGE-SQUARE>
|
||
<TELL CR
|
||
"Omi begins talking. When he finishes, the priest nervously
|
||
translates. \"These are Kasigi Omi's orders: You will begin to act like
|
||
decent human
|
||
beings. You will make no more noise. When you have learned to behave, you
|
||
will be allowed up into the world of men. Lord Yabu has spared all your
|
||
lives, providing you serve him loyally. All except one. One of you is to
|
||
die. At dusk. You are to choose who it will be.\"" CR CR
|
||
"The trapdoor slams into place." CR>)
|
||
(<MOVE ,VINCKS-STRAW ,HERE>
|
||
<SETG VINCK-PICKED? <>>
|
||
<COND (<PROB 50> <SETG VINCK-PICKED? T>)>
|
||
<MOVE ,STRAW ,SPILLBERGEN>
|
||
<TELL CR
|
||
"It's now very near dusk." CR CR
|
||
"Spillbergen collects a bundle of rice straw stalks from the litter in
|
||
the pit. Slowly, reluctantly,
|
||
the crewmen draw straws. Sonk first, then Pieterzoon, then Jan Roper,
|
||
Salomon, and Croocq. Then Ginsel is safe. Five left. Maetsukker, weeping
|
||
openly, pushes Vinck aside and takes a straw. He can't believe it's not
|
||
the one. Van Nekk picks and the straw is not short!|
|
||
|
|
||
Vinck watches his fingers select a straw and it falls to
|
||
the ground but everyone sees it's the shortest straw yet.|
|
||
|
|
||
Now it's your turn. Spillbergen holds out his trembling hand toward
|
||
you. There are only two straws left; one for you and one for the
|
||
Captain." CR>)
|
||
(DELAY
|
||
<COND (<NOT <OR <IN? ,SHORT-STRAW ,BLACKTHORNE>
|
||
<IN? ,LONG-STRAW ,BLACKTHORNE>>>
|
||
<COND (<G? ,DELAY-CNT 5>
|
||
<TELL CR
|
||
"One of the men hits you over the head, you fight back, and in no time
|
||
it's a melee. You are knocked unconscious, and drown, unnoticed as the
|
||
rest of the crew squabbles." CR>
|
||
<JIGS-UP>
|
||
<RFATAL>)
|
||
(ELSE
|
||
<TELL CR
|
||
"\"Pick, curse you!\" yells Maetsukker. \"Yes, pick!\" the other crewmen
|
||
take up the cry." CR>
|
||
<COND (<EQUAL? ,DELAY-CNT 5>
|
||
<TELL CR
|
||
"You realize you'd better pick now, or you'll be forced to." CR>)>
|
||
<RTRUE>)>)>)
|
||
(<TELL CR
|
||
"Spillbergen, last to pick, unclenches his hand and you see that
|
||
his straw is long. Everyone stares at ">
|
||
<SETG PIT-CNT 0>
|
||
<SETG MUST-CHOOSE? <>>
|
||
<DEQUEUE I-PIT>
|
||
<COND (,VINCK-PICKED?
|
||
<QUEUE I-TAKE-VINCK -1>
|
||
<TELL "Vinck. \"I'm dead!\" he
|
||
laughs, unnerving you all." CR>)
|
||
(ELSE
|
||
<QUEUE I-TAKE-YOU -1>
|
||
<TELL "you. The men ease away from you." CR>)>)>>
|
||
|
||
<GLOBAL MUST-CHOOSE? <>>
|
||
|
||
<ROUTINE TRAPDOOR-OPENS ()
|
||
<TELL CR
|
||
"The trapdoor opens. Omi stands etched against the sky, his kimono blooded
|
||
by the dying sun. The ladder is lowered, and Omi motions for the one man
|
||
to come up. \""I"Isogi""!\" he barks. Hurry up. ">>
|
||
|
||
<ROUTINE I-TAKE-VINCK ()
|
||
<ZLINES ,PIT-CNT
|
||
(<FSET ,TRAPDOOR ,OPENBIT>
|
||
<MOVE ,OMI ,TRAPDOOR>
|
||
<MOVE ,LADDER ,HERE>
|
||
<TRAPDOOR-OPENS>
|
||
<TELL "Vinck tries to stand, but
|
||
his legs fail him. Pieterzoon bends down to help him to his feet." CR>)
|
||
(<COND (<NOT <FSET? ,VINCK ,RMUNGBIT>>
|
||
<THEY-TAKE-VICTIM ,VINCK>)
|
||
(<FSET? ,LADDER ,SCOREBIT>
|
||
<TELL CR
|
||
"\"Get away from the ladder, Pilot! You're ordered away!\" Spillbergen shakily
|
||
keeps to his corner, as far from the ladder as possible." CR>)
|
||
(ELSE
|
||
<TELL CR
|
||
"Vinck comes out of his cataleptic state and throws himself at one of the
|
||
samurai, berserk. He intercepts a blow that would have sliced your wrist
|
||
off." CR>)>)
|
||
(<COND (<FSET? ,LADDER ,SCOREBIT>
|
||
<TELL CR
|
||
"Vinck begins to climb the ladder, almost in a trance." CR>)
|
||
(<FSET? ,OMI-SAMURAI ,RMUNGBIT>
|
||
<FCLEAR ,OMI-SAMURAI ,RMUNGBIT>
|
||
<RFALSE>)
|
||
(ELSE
|
||
<OMI-BARKS>)>)
|
||
(DELAY
|
||
<COND (<AND <FSET? ,LADDER ,RMUNGBIT>
|
||
<L? ,DELAY-CNT 2>>
|
||
<FCLEAR ,LADDER ,RMUNGBIT>
|
||
<RFALSE>)
|
||
(<AND <IN? ,LOSING-SAMURAI ,PIT>
|
||
<FSET? ,LOSING-SAMURAI ,SCOREBIT>
|
||
<L? ,DELAY-CNT 5>>
|
||
<RFALSE>)>)
|
||
(<COND (<FSET? ,LADDER ,SCOREBIT>
|
||
<FCLEAR ,LADDER ,SCOREBIT>
|
||
<TELL CR
|
||
G"The samurai are hampered by the confined space, but a kick from one of
|
||
them catches Vinck in the face and he reels away." CR>)
|
||
(ELSE
|
||
<THEY-TAKE-VICTIM ,PIETERZOON>)>)
|
||
(DELAY
|
||
<COND (<FSET? ,LADDER ,RMUNGBIT>
|
||
<FCLEAR ,LADDER ,RMUNGBIT>
|
||
<RFALSE>)
|
||
(<AND <IN? ,LOSING-SAMURAI ,PIT>
|
||
<FSET? ,LOSING-SAMURAI ,SCOREBIT>
|
||
<L? ,DELAY-CNT 5>>
|
||
<RFALSE>)>)
|
||
(<COND (<NOT <FSET? ,LADDER ,SCOREBIT>>
|
||
<THEY-TAKE-VICTIM ,PIETERZOON>)>)>>
|
||
|
||
<ROUTINE OMI-BARKS ()
|
||
<TELL CR
|
||
"Omi barks an order, and several ">
|
||
<COND (<IN? ,OMI-SAMURAI ,LADDER> <TELL "more ">)
|
||
(ELSE
|
||
<FSET ,OMI-SAMURAI ,RMUNGBIT>
|
||
<MOVE ,OMI-SAMURAI ,LADDER>)>
|
||
<THIS-IS-IT ,OMI-SAMURAI>
|
||
<TELL "samurai start to descend the ladder." CR>
|
||
<SCORE-OBJECT ,LADDER>
|
||
<RTRUE>>
|
||
|
||
<ROUTINE I-TAKE-YOU ()
|
||
<COND (<IN? ,BLACKTHORNE ,VILLAGE-SQUARE>
|
||
<DEQUEUE I-TAKE-YOU>
|
||
<CRLF>
|
||
<JIGS-UP
|
||
"Almost immediately, the samurai surround you, truss you up, and
|
||
dump you in the huge iron cauldron. The fire beneath it is lit,
|
||
the water begins to heat up.|
|
||
|
|
||
At first the heat is almost pleasant, but then it begins to sear
|
||
into your exhausted flesh, and you struggle vainly to break your
|
||
bonds. You begin to scream.|
|
||
|
|
||
Just as you lose consciousness, you see the samurai bringing up
|
||
Vinck, and you can't help but wonder what would have happened had
|
||
you resisted.">
|
||
<RFATAL>)>
|
||
<ZLINES ,PIT-CNT
|
||
(<FSET ,TRAPDOOR ,OPENBIT>
|
||
<MOVE ,OMI ,TRAPDOOR>
|
||
<MOVE ,LADDER ,HERE>
|
||
<TRAPDOOR-OPENS>
|
||
<TELL
|
||
"Roper says, \"Don't be afraid, Pilot. You're the anointed of God. You're
|
||
in God's hands.\"" CR>)
|
||
(<COND (<FSET? ,OMI-SAMURAI ,RMUNGBIT>
|
||
<FCLEAR ,OMI-SAMURAI ,RMUNGBIT>
|
||
<RFALSE>)
|
||
(ELSE
|
||
<OMI-BARKS>
|
||
<RTRUE>)>)
|
||
(<TELL CR
|
||
G"The samurai are hampered by the confined space, but a kick from one of
|
||
them catches Vinck in the face and he reels away." CR>)
|
||
(DELAY
|
||
<COND (<AND <IN? ,LOSING-SAMURAI ,PIT>
|
||
<FSET? ,LOSING-SAMURAI ,SCOREBIT>>
|
||
<RFALSE>)
|
||
(<FSET? ,LADDER ,SCOREBIT>
|
||
<COND (<G? ,DELAY-CNT 4>
|
||
<FCLEAR ,LADDER ,SCOREBIT>)>
|
||
<RFALSE>)>)
|
||
(<COND (<NOT <FSET? ,LADDER ,SCOREBIT>>
|
||
<THEY-TAKE-VICTIM ,PIETERZOON>)>)
|
||
(<DEQUEUE I-TAKE-YOU>
|
||
<RFALSE>)>>
|
||
|
||
<NEW-ADD-WORD "STRAWS" NOUN <VOC "STRAW"> ,PLURAL-FLAG>
|
||
|
||
<OBJECT STRAW
|
||
(DESC "straw")
|
||
(SYNONYM STRAW STALK)
|
||
(ADJECTIVE RICE)
|
||
(FLAGS TAKEBIT)
|
||
(GENERIC GENERIC-STRAW-F)
|
||
(ACTION STRAW-F)>
|
||
|
||
<ROUTINE GENERIC-STRAW-F (R F)
|
||
<COND (<AND <LOC ,LONG-STRAW> <LOC ,SHORT-STRAW>>
|
||
<>)
|
||
(ELSE ,STRAW)>>
|
||
|
||
<ROUTINE STRAW-F ()
|
||
<COND (<VERB? EXAMINE>
|
||
<TELL
|
||
"There are two straws in Spillbergen's hand. You stare at them intently,
|
||
but you can discern no difference between them." CR>)
|
||
(<VERB? TAKE PICK DRAW>
|
||
<REMOVE ,STRAW>
|
||
<COND (,VINCK-PICKED?
|
||
<MOVE ,SHORT-STRAW <LOC ,VINCKS-STRAW>>
|
||
<REMOVE ,VINCKS-STRAW>
|
||
<PUTP ,SHORT-STRAW ,P?OWNER ,VINCK>
|
||
<MOVE ,LONG-STRAW ,BLACKTHORNE>
|
||
<TELL
|
||
"You pick a straw, drawing your life out of Spillbergen's hand. It's
|
||
long!" CR>)
|
||
(ELSE
|
||
<MOVE ,LONG-STRAW <LOC ,VINCKS-STRAW>>
|
||
<REMOVE ,VINCKS-STRAW>
|
||
<PUTP ,LONG-STRAW ,P?OWNER ,VINCK>
|
||
<MOVE ,SHORT-STRAW ,BLACKTHORNE>
|
||
<TELL
|
||
"You take a straw, and as you see it emerge, you realize that it's
|
||
short, very short! Shorter than Vinck's. Vinck laughs a short, barking
|
||
laugh, then is quiet." CR>)>)>>
|
||
|
||
<OBJECT VINCKS-STRAW
|
||
(DESC "Vinck's straw")
|
||
(OWNER VINCK)
|
||
(SYNONYM STRAW STALK)
|
||
(ADJECTIVE RICE SHORTEST)
|
||
(FLAGS TAKEBIT NOABIT)
|
||
(GENERIC GENERIC-STRAW-F)
|
||
(ACTION VINCKS-STRAW-F)>
|
||
|
||
<ROUTINE VINCKS-STRAW-F ()
|
||
<COND (<VERB? EXAMINE>
|
||
<TELL
|
||
"It's the shortest drawn yet." CR>)
|
||
(<VERB? TAKE>
|
||
<TELL "\"No, Pilot, draw your own straw!\"" CR>)>>
|
||
|
||
<OBJECT SHORT-STRAW
|
||
(DESC "short straw")
|
||
(OWNER <>)
|
||
(SYNONYM STRAW STALK)
|
||
(ADJECTIVE RICE SHORT)
|
||
(FLAGS TAKEBIT)
|
||
(GENERIC GENERIC-STRAW-F)
|
||
(ACTION SHORT-STRAW-F)>
|
||
|
||
<ROUTINE SHORT-STRAW-F ()
|
||
<COND (<VERB? EXAMINE>
|
||
<TELL
|
||
"It's very short." CR>)
|
||
(<VERB? TRADE GIVE>
|
||
<TELL
|
||
"No one wants the short straw." CR>)
|
||
(<P? ASK-FOR VINCK SHORT-STRAW>
|
||
<PERFORM ,V?TRADE ,LONG-STRAW ,VINCK>
|
||
<RTRUE>)>>
|
||
|
||
<OBJECT LONG-STRAW
|
||
(DESC "long straw")
|
||
(OWNER <>)
|
||
(SYNONYM STRAW STALK)
|
||
(ADJECTIVE RICE LONG)
|
||
(FLAGS TAKEBIT)
|
||
(GENERIC GENERIC-STRAW-F)
|
||
(ACTION LONG-STRAW-F)>
|
||
|
||
<ROUTINE LONG-STRAW-F ()
|
||
<COND (<VERB? EXAMINE>
|
||
<TELL
|
||
"It's blessedly long." CR>)
|
||
(<P? ASK-FOR>
|
||
<PERFORM ,V?TRADE ,SHORT-STRAW>
|
||
<RTRUE>)
|
||
(<AND <P? (TRADE GIVE) LONG-STRAW (<> VINCK SHORT-STRAW)>
|
||
<HELD? ,LONG-STRAW>>
|
||
<REMOVE ,LONG-STRAW>
|
||
<DEQUEUE I-TAKE-VINCK>
|
||
<QUEUE I-TAKE-YOU -1>
|
||
<TELL
|
||
"\"Bless you, Pilot!\" babbles Vinck">
|
||
<COND (<IN? ,SHORT-STRAW ,VINCK>
|
||
<MOVE ,SHORT-STRAW ,PLAYER>
|
||
<TELL
|
||
", thrusting the death straw into your hands." CR>)
|
||
(ELSE <TELL "." CR>)>)>>
|
||
|
||
<ROUTINE THEY-TAKE-VICTIM (WHO)
|
||
<MOVE ,OMI ,VILLAGE-SQUARE>
|
||
<MOVE ,OMI-SAMURAI ,VILLAGE-SQUARE>
|
||
<NEW-SDESC ,OMI-SAMURAI "samurai guards" T>
|
||
<FSET ,OMI-SAMURAI ,NOABIT>
|
||
<MOVE ,BLACKTHORNE ,HERE>
|
||
<REMOVE ,LADDER>
|
||
<MOVE .WHO ,CAULDRON>
|
||
;<FSET .WHO ,NDESCBIT>
|
||
<FCLEAR ,TRAPDOOR ,OPENBIT>
|
||
<FCLEAR ,LADDER ,SCOREBIT> ;"just in case"
|
||
<COND (<EQUAL? .WHO ,VINCK>
|
||
<TELL CR
|
||
"Vinck, in an almost cataleptic state, climbs onto the ladder, pulling
|
||
himself painfully upward. Van Nekk and Jan Roper are praying silently,
|
||
their eyes closed. Pieterzoon cannot watch. You stare ashamedly at Vinck,
|
||
hating yourself for letting him go." CR CR
|
||
"As he reaches the top of the ladder, three samurai grab him. The ladder
|
||
is quickly pulled up and the trapdoor slams shut like the sound of doom." CR>
|
||
<FAILED-SCENE>
|
||
<RTRUE>)
|
||
(<EQUAL? .WHO ,PIETERZOON>
|
||
<MOVE ,VINCK ,HERE>
|
||
<TELL CR
|
||
"Three more samurai, carrying knives and wearing only loincloths, leap
|
||
nimbly into the cellar. The first two crash into you, carrying you
|
||
helpless to the floor. ">
|
||
<COND (<IN? ,DAGGER ,BLACKTHORNE>
|
||
<MOVE ,DAGGER ,HERE>
|
||
<TELL "The dagger falls from your grip. ">)>
|
||
<TELL
|
||
"They attack viciously, and the crewmen retreat.">
|
||
<COND (<IN? ,DAGGER ,HERE>
|
||
<REMOVE ,DAGGER>
|
||
<TELL "One samurai retrieves the dagger.">)>
|
||
<TELL "|
|
||
|
|
||
Omi comes arrogantly into the pit and grabs the nearest man, who is
|
||
Pieterzoon. He jerks him toward the ladder. \"Christ help me, it's not
|
||
me that's to go -- \"Pieterzoon is being driven up the ladder." CR CR
|
||
"Omi follows without hurrying. The samurai retreat">
|
||
<COND (<IN? ,LOSING-SAMURAI ,HERE>
|
||
<COND (<FSET? ,LOSING-SAMURAI ,SCOREBIT>
|
||
<REMOVE ,LOSING-SAMURAI>
|
||
<TELL ", including the one you knocked off
|
||
of the ladder, though he appears wary and even embarrassed.">)
|
||
(ELSE
|
||
<TELL " stepping contemptuously over
|
||
the prostrate body of their unconscious comrade.">)>)
|
||
(ELSE <TELL ".">)>
|
||
<TELL "The ladder is jerked aloft. Air and
|
||
sky and light vanish. Bolts crash into place." CR>)>
|
||
<DEQUEUE I-TAKE-VINCK>
|
||
<DEQUEUE I-TAKE-YOU>
|
||
<SETG PIT-CNT 0>
|
||
<QUEUE I-TAKE-CROOCQ -1>
|
||
<RTRUE>>
|
||
|
||
<OBJECT TRAPDOOR
|
||
(LOC PIT)
|
||
(DESC "trapdoor")
|
||
(SYNONYM TRAPDOOR DOOR OPENING CEILING)
|
||
(ADJECTIVE TRAP)
|
||
(FLAGS DOORBIT SEARCHBIT)
|
||
(DESCFCN TRAPDOOR-DESC)
|
||
(ACTION TRAPDOOR-F)>
|
||
|
||
<ROUTINE TRAPDOOR-DESC (RARG OBJ)
|
||
<COND (<RARG? OBJDESC?>
|
||
<COND (<FSET? .OBJ ,OPENBIT> <RTRUE>)
|
||
(ELSE <RFATAL>)>)
|
||
(ELSE
|
||
<TELL
|
||
"Through the open trapdoor you can see Omi">
|
||
<COND (<IN? ,MURA ,TRAPDOOR>
|
||
<TELL ", Father Sebastio and Mura">)>
|
||
<TELL " silhouetted against the sky.">)>>
|
||
|
||
<ROUTINE TRAPDOOR-F ("OPT" (RARG <>))
|
||
<COND (.RARG <RFALSE>)
|
||
(<VERB? OPEN CLOSE>
|
||
<COND (<IN? ,WINNER ,LADDER>
|
||
<TELL
|
||
"The weapons of the samurai prevent you from climbing high enough." CR>)
|
||
(ELSE
|
||
<TELL G"You can't reach ""it." CR>)>)
|
||
(<VERB? LOOK-INSIDE>
|
||
<COND (<NOT <FSET? ,TRAPDOOR ,OPENBIT>>
|
||
<TELL
|
||
"It's closed." CR>)
|
||
(<IN? ,OMI ,TRAPDOOR>
|
||
<TRAPDOOR-DESC ,M-OBJDESC ,TRAPDOOR>
|
||
<CRLF>)>)
|
||
(<VERB? KNOCK>
|
||
<TELL G"You can't reach ""it." CR>)>>
|
||
|
||
<OBJECT LADDER
|
||
(DESC "ladder")
|
||
(SYNONYM LADDER)
|
||
(FLAGS SURFACEBIT TAKEBIT TRYTAKEBIT VEHBIT
|
||
SCOREBIT OPENBIT CONTBIT SEARCHBIT)
|
||
(DESCFCN LADDER-DESC)
|
||
(ACTION LADDER-F)>
|
||
|
||
<ROUTINE LADDER-DESC (RARG OBJ)
|
||
<COND (<RARG? OBJDESC?> <RTRUE>)
|
||
(ELSE
|
||
<TELL "A ladder leads ">
|
||
<COND (<HERE? ,PIT>
|
||
<TELL "up through the open trap door.">)
|
||
(ELSE
|
||
<TELL "down into the pit.">)>)>>
|
||
|
||
<ROUTINE LADDER-F ("OPT" (RARG <>))
|
||
<COND (<RARG? <>>
|
||
<COND (<VERB? EXAMINE>
|
||
<COND (<IN? ,OMI-SAMURAI ,LADDER>
|
||
<TELL
|
||
"There are samurai on the ladder." CR>)
|
||
(ELSE
|
||
<TELL
|
||
"It's a rickety wooden ladder." CR>)>)
|
||
(<VERB? STOP KINJIRU>
|
||
<COND (<IN? ,OMI-SAMURAI ,LADDER>
|
||
<TELL
|
||
"Swords swinging, the samurai continue down the ladder." CR>)
|
||
(<IN? ,OMI-SAMURAI ,PIT>
|
||
<TELL
|
||
"There's nothing to block or stop." CR>)
|
||
(<NOT <IN? ,LADDER ,HERE>>
|
||
<COND (<FSET? ,LADDER ,SCOREBIT>
|
||
<TELL "You hold ">
|
||
<COND (,VINCK-PICKED? <TELL "him ">)>
|
||
<TELL
|
||
"back. The others grumble, but Roper says \"Aye, no
|
||
need to go until they come for you.\"" CR>)
|
||
(,VINCK-PICKED?
|
||
<TELL
|
||
"You grab Vinck, but he pulls away." CR>)
|
||
(ELSE
|
||
<TELL "You hold back." CR>)>)
|
||
(<AND ,VINCK-PICKED?
|
||
<NOT <FSET? ,VINCK ,RMUNGBIT>>>
|
||
<FSET ,VINCK ,RMUNGBIT>
|
||
<TELL
|
||
"You move between Vinck and the ladder. \""I"Kinjiru"G"!\" you say,
|
||
remembering the word from the ship. \"None of my crew is walking to
|
||
death without a fight!\"|
|
||
|
|
||
\"It's all right, Pilot,\" Vinck whispers. \"We did agree and it was
|
||
fair. It's God's will. I'm going.\""" He steps to the foot of the ladder." CR>)
|
||
(<FSET? ,LADDER ,SCOREBIT>
|
||
<TELL
|
||
"You stand implacably ">
|
||
<COND (,VINCK-PICKED?
|
||
<TELL "in the way. ">)
|
||
(ELSE
|
||
<TELL
|
||
"at the foot of the ladder. The watchers can see no one is coming up. ">)>
|
||
<SAMURAI-ON-LADDER>)>)
|
||
(<OR <VERB? TAKE SHAKE MOVE LOWER KICK>
|
||
<P? PUSH-DOWN <> LADDER>>
|
||
<COND (<HERE? ,VILLAGE-SQUARE>
|
||
<TELL
|
||
G"Two of the samurai prevent you, and although you struggle, they hold
|
||
you easily." CR>)
|
||
(ELSE
|
||
<TELL
|
||
"You shake the ladder.">
|
||
<FSET ,LADDER ,RMUNGBIT>
|
||
<COND (<QUEUED? I-TAKE-CROOCQ>
|
||
<TELL
|
||
"There is no reaction from those above. They wait patiently." CR>)
|
||
(<IN? ,OMI-SAMURAI ,LADDER>
|
||
<TELL
|
||
"The samurai hold tightly onto the ladder, but one swings a sword at
|
||
you!" CR>
|
||
<SCORE-OBJECT ,LADDER>)
|
||
(ELSE
|
||
<TELL
|
||
"A gasp goes through the cellar. ">
|
||
<SAMURAI-ON-LADDER>
|
||
<RTRUE>)>)>)
|
||
(<VERB? CLIMB-FOO CLIMB-ON CLIMB-UP CLIMB-DOWN BOARD>
|
||
<COND (<HERE? ,VILLAGE-SQUARE>
|
||
<TELL
|
||
G"Two of the samurai prevent you, and although you struggle, they hold
|
||
you easily." CR>)
|
||
(<OR <QUEUED? I-TAKE-CROOCQ>
|
||
<QUEUED? I-TAKE-YOU>>
|
||
<MOVE ,LADDER ,VILLAGE-SQUARE>
|
||
<MOVE ,OMI-SAMURAI ,VILLAGE-SQUARE>
|
||
<NEW-SDESC ,OMI-SAMURAI "samurai guards" T>
|
||
<FSET ,OMI-SAMURAI ,NOABIT>
|
||
<MOVE ,SEBASTIO ,VILLAGE-SQUARE>
|
||
<MOVE ,OMI ,VILLAGE-SQUARE>
|
||
<TELL
|
||
"You climb up the ladder into the sunlight, blinking in the brightness.">
|
||
<COND (<HELD? ,DAGGER>
|
||
<REMOVE ,DAGGER>
|
||
<TELL
|
||
"As you reach the top of the ladder, strong hands grab you and force
|
||
you to drop the dagger.">)>
|
||
<CRLF>
|
||
<CRLF>
|
||
<GOTO ,VILLAGE-SQUARE>)
|
||
(ELSE
|
||
<MOVE ,PLAYER ,LADDER>
|
||
<COND (<IN? ,OMI ,TRAPDOOR>
|
||
<FSET ,OMI-SAMURAI ,RMUNGBIT>
|
||
<MOVE ,OMI-SAMURAI ,LADDER>
|
||
<THIS-IS-IT ,OMI-SAMURAI>
|
||
<TELL
|
||
"You begin to climb onto the ladder, but Omi orders two samurai forward,
|
||
and they climb down, swords unsheathed." CR>
|
||
<SCORE-OBJECT ,LADDER>)
|
||
(<IN? ,OMI-SAMURAI ,LADDER>
|
||
<TELL
|
||
"Swords swinging, the samurai block your progress and then continue
|
||
down the ladder." CR>)
|
||
(<AND ,VINCK-PICKED?
|
||
<NOT <FSET? ,VINCK ,RMUNGBIT>>>
|
||
<FSET ,VINCK ,RMUNGBIT>
|
||
<TELL
|
||
"You block Vinck from the ladder. \""I"Kinjiru"G"!\" you say,
|
||
remembering the word from the ship. \"None of my crew is walking to
|
||
death without a fight!\"|
|
||
|
|
||
\"It's all right, Pilot,\" Vinck whispers. \"We did agree and it was
|
||
fair. It's God's will. I'm going.\""" He continues toward the ladder." CR>)
|
||
(<FSET? ,LADDER ,SCOREBIT>
|
||
<TELL
|
||
"You climb onto the lower rungs of the ladder, ">
|
||
<COND (,VINCK-PICKED?
|
||
<TELL "blocking it. ">)
|
||
(ELSE
|
||
<TELL
|
||
"then stop. The watchers can see you are coming no higher. ">)>
|
||
<SAMURAI-ON-LADDER>)>)>)>)>>
|
||
|
||
<ROUTINE SAMURAI-ON-LADDER ()
|
||
<FSET ,OMI-SAMURAI ,RMUNGBIT>
|
||
<MOVE ,OMI-SAMURAI ,LADDER>
|
||
<THIS-IS-IT ,OMI-SAMURAI>
|
||
<TELL G"Omi snarls orders to his men. At once
|
||
a samurai, followed by two others, starts down the steps, swords
|
||
unsheathed." CR>
|
||
<SCORE-OBJECT ,LADDER>>
|
||
|
||
<OBJECT LOSING-SAMURAI
|
||
(DESC "captured samurai")
|
||
(SCENE S-PIT)
|
||
(SYNONYM SAMURAI COMRADE)
|
||
(ADJECTIVE CAPTURED PROSTRATE UNCONSCIOUS)
|
||
(FLAGS PERSON JAPANESEBIT SCOREBIT OPENBIT SEARCHBIT CONTBIT)
|
||
(GENERIC GENERIC-SAMURAI-F)
|
||
(CONTFCN LOSING-SAMURAI-F)
|
||
(ACTION LOSING-SAMURAI-F)>
|
||
|
||
<ROUTINE LOSING-SAMURAI-F ("OPT" (RARG <>))
|
||
<COND (<RARG? SUBJ>
|
||
<RFALSE>)
|
||
(<AND <RARG? CONTAINER>
|
||
<NOT <PASSIVE-VERB?>>>
|
||
<PERFORM ,V?ATTACK ,LOSING-SAMURAI>
|
||
<RTRUE>)
|
||
(<RARG? WINNER>
|
||
<COND (<NOT <FSET? ,LOSING-SAMURAI ,SCOREBIT>>
|
||
<TELL
|
||
G"He appears to be unconscious." CR>)
|
||
(ELSE
|
||
<TELL
|
||
G"He doesn't respond." CR>)>)
|
||
(<VERB? EXAMINE>
|
||
<COND (<NOT <FSET? ,LOSING-SAMURAI ,SCOREBIT>>
|
||
<TELL
|
||
G"He appears to be unconscious." CR>)
|
||
(ELSE
|
||
<TELL
|
||
"He's fighting, kicking and punching, trying to get away." CR>)>)
|
||
(<VERB? WAKE>
|
||
<COND (<NOT <FSET? ,LOSING-SAMURAI ,SCOREBIT>>
|
||
<TELL
|
||
"He's alive, but he doesn't wake up." CR>)>)
|
||
(<VERB? SEARCH>
|
||
<COND (<NOT <FSET? ,LOSING-SAMURAI ,SCOREBIT>>
|
||
<TELL
|
||
"You don't find anything of interest." CR>)>)
|
||
(<OR <VERB? TAKE MOVE> <HOSTILE-VERB?>>
|
||
<COND (<FSET? ,LOSING-SAMURAI ,SCOREBIT>
|
||
<DROPS-DAGGER>)
|
||
(<VERB? KILL>
|
||
<COND (<FSET? ,LOSING-SAMURAI ,DEAD>
|
||
<TELL
|
||
"He's already dead." CR>)
|
||
(<PRSI? ,DAGGER>
|
||
<FSET ,LOSING-SAMURAI ,DEAD>
|
||
<TELL
|
||
"You stab him in the heart. He's dead." CR>)
|
||
(ELSE
|
||
<FSET ,LOSING-SAMURAI ,DEAD>
|
||
<TELL
|
||
"You hold his face under the water until he stops breathing. He's dead." CR>)>)
|
||
(<VERB? TAKE MOVE>
|
||
<TELL
|
||
"You move him up against the wall where he won't drown. The others are saying
|
||
\"Kill him, Pilot!\" or \"Use him as a hostage!\"" CR>)
|
||
(ELSE
|
||
<TELL
|
||
"He's already unconscious." CR>)>)>>
|
||
|
||
<OBJECT OMI-SAMURAI
|
||
(SDESC "attacking samurai") ;"samurai guards"
|
||
(SCENE S-PIT)
|
||
(OWNER OMI)
|
||
(SYNONYM SAMURAI GUARDS GUARD)
|
||
(ADJECTIVE ATTACKING)
|
||
(FLAGS PERSON JAPANESEBIT NOABIT PLURAL)
|
||
(DESCFCN OMI-SAMURAI-DESC)
|
||
(GENERIC GENERIC-SAMURAI-F)
|
||
(ACTION OMI-SAMURAI-F)>
|
||
|
||
<ROUTINE OMI-SAMURAI-DESC (RARG OBJ)
|
||
<COND (<RARG? OBJDESC?>
|
||
<COND (<IN? ,OMI-SAMURAI ,LADDER> <RTRUE>)
|
||
(ELSE <RFALSE>)>)
|
||
(<RARG? OBJDESC>
|
||
<TELL
|
||
"Advancing down the ladder are ">
|
||
<COND (<IN? ,LOSING-SAMURAI ,PIT>
|
||
<TELL "two">)
|
||
(ELSE <TELL "three">)>
|
||
<TELL " samurai.">)>>
|
||
|
||
<ROUTINE OMI-SAMURAI-F ("OPT" (RARG <>))
|
||
<COND (<RARG? SUBJ>
|
||
<RFALSE>)
|
||
(<RARG? WINNER>
|
||
<TELL
|
||
"They seem uninterested in conversing with barbarians." CR>
|
||
<END-QUOTE>)
|
||
(<OR <VERB? TAKE MOVE PARRY STOP> <HOSTILE-VERB?>>
|
||
<COND (<HERE? ,VILLAGE-SQUARE>
|
||
<TELL
|
||
"You are easily subdued by Omi's guards." CR>)
|
||
(<IN? ,OMI-SAMURAI ,LADDER>
|
||
<SETG OPPONENT ,OMI-SAMURAI>
|
||
<COND (<NOT <IN? ,LOSING-SAMURAI ,HERE>>
|
||
<MOVE ,LOSING-SAMURAI ,HERE>
|
||
<SETG OPPONENT ,LOSING-SAMURAI>
|
||
<THIS-IS-IT ,LOSING-SAMURAI>
|
||
<QUEUE I-LOSING-SAMURAI -1>
|
||
<TELL
|
||
"You grapple with one of the samurai, who kicks viciously. The entire
|
||
crew hurls themselves at the ladder. The man manages to throw his
|
||
sword out of the pit, but tumbles heavily into the mud." CR>)
|
||
(ELSE
|
||
<TELL
|
||
"The remaining samurai are more wary this time. Oddly, they make no effort
|
||
to rescue their comrade." CR>)>)
|
||
(<FSET? ,LOSING-SAMURAI ,SCOREBIT>
|
||
<DROPS-DAGGER>)>)>>
|
||
|
||
<ROUTINE I-LOSING-SAMURAI ()
|
||
<COND (<AND <HERE? ,PIT>
|
||
<IN? ,LOSING-SAMURAI ,HERE>
|
||
<FSET? ,LOSING-SAMURAI ,SCOREBIT>>
|
||
<THIS-IS-IT ,LOSING-SAMURAI>
|
||
<COND (<NOT <FSET? ,LOSING-SAMURAI ,RMUNGBIT>>
|
||
<FSET ,LOSING-SAMURAI ,RMUNGBIT>
|
||
<TELL CR
|
||
"The samurai you knocked off of the ladder gropes his way to his feet. The
|
||
fall obviously hurt him." CR>)
|
||
(<NOT <FSET? ,LOSING-SAMURAI ,SURFACEBIT>>
|
||
<FSET ,LOSING-SAMURAI ,SURFACEBIT>
|
||
<TELL CR
|
||
"The muddy samurai draws a dagger and slashes at you. He is like a cornered
|
||
rat." CR>)
|
||
(ELSE
|
||
<TELL CR
|
||
"The samurai charges, and almost as much by blind ferocity as skill, he
|
||
shoves his dagger into your chest, ending your life." CR>
|
||
<JIGS-UP>)>)
|
||
(ELSE
|
||
<DEQUEUE I-LOSING-SAMURAI>
|
||
<RFALSE>)>>
|
||
|
||
<ROUTINE DROPS-DAGGER ()
|
||
<MOVE ,DAGGER ,HERE>
|
||
<TELL
|
||
"You attempt to subdue the samurai, and Vinck helps, pounding again
|
||
and again. \"Don't kill him -- we can use him as a hostage!\" you
|
||
warn. Finally, Vinck kicks him in the back of the neck and he goes
|
||
limp, dropping his dagger." CR>
|
||
<SCORE-OBJECT ,LOSING-SAMURAI>>
|
||
|
||
<OBJECT DAGGER
|
||
(LOC LOSING-SAMURAI)
|
||
(DESC "dagger")
|
||
(SYNONYM DAGGER)
|
||
(FLAGS TAKEBIT WEAPONBIT)>
|
||
|
||
<OBJECT CAULDRON
|
||
(DESC "cauldron")
|
||
(SYNONYM CAULDRON)
|
||
(FLAGS OPENBIT CONTBIT SEARCHBIT VEHBIT)
|
||
(DESCFCN CAULDRON-DESC)
|
||
(CONTFCN CAULDRON-F)
|
||
(ACTION CAULDRON-F)>
|
||
|
||
<ROUTINE CAULDRON-F ("OPT" (RARG <>))
|
||
<COND (<P? (THROUGH BOARD) CAULDRON>
|
||
<TELL
|
||
"They'll put you in soon enough!" CR>)
|
||
(<NOT <PASSIVE-VERB?>>
|
||
<TELL
|
||
"The guards prevent you from getting close to the cauldron." CR>)>>
|
||
|
||
<ROUTINE CAULDRON-DESC (RARG OBJ)
|
||
<COND (<RARG? OBJDESC?> <RTRUE>)
|
||
(<RARG? OBJDESC>
|
||
<TELL
|
||
"A huge black-iron cauldron stands in the square.">
|
||
<COND (<IN? ,CROOCQ ,CAULDRON>
|
||
<TELL "The boy Croocq, trussed like a chicken,
|
||
is inside.">)>
|
||
<RFATAL>)>>
|
||
|
||
<ROUTINE I-TAKE-CROOCQ ("AUX" TMP)
|
||
<ZLINES ,PIT-CNT
|
||
(<COND (<SET TMP <FIRST? ,CAULDRON>>
|
||
<FSET .TMP ,DEAD>)>
|
||
<TELL CR
|
||
"The screams begin when the moon is high, and cease just before first
|
||
light." CR>)
|
||
(<REMOVE ,SHORT-STRAW>
|
||
<REMOVE ,LONG-STRAW>
|
||
<MOVE ,OMI ,TRAPDOOR>
|
||
<MOVE ,SEBASTIO ,TRAPDOOR>
|
||
<FSET ,TRAPDOOR ,OPENBIT>
|
||
<MOVE ,LADDER ,PIT>
|
||
<TELL CR
|
||
"Finally, it is high noon. Everyone is nervous, tired and scared from
|
||
listening to the screams.|
|
||
|
|
||
There are footsteps above. The trapdoor opens and the ladder is lowered
|
||
again. The priest stands there
|
||
flanked by samurai.|
|
||
|
|
||
\"Pilot. You are to come up. You are to come up alone,\" he says." CR>)
|
||
(DELAY
|
||
<COND (<IN? ,BLACKTHORNE ,PIT>
|
||
<COND (<G? ,DELAY-CNT 2>
|
||
<MOVE ,OMI ,VILLAGE-SQUARE>
|
||
<MOVE ,SEBASTIO ,VILLAGE-SQUARE>
|
||
<TELL CR
|
||
"A samurai points at you and beckons you up. Another samurai shoves a
|
||
long barbed staff into the cellar and hooks you out." CR CR>
|
||
<GOTO ,VILLAGE-SQUARE>
|
||
<RTRUE>)
|
||
(ELSE
|
||
<TELL CR
|
||
"\"I don't know what they want,\" Father Sebastio says gravely. \"But
|
||
you must come up at once.\"" CR>
|
||
<RTRUE>)>)>)
|
||
(<SETG ANSWER-HAI? <>>
|
||
<FSET ,CROOCQ ,SCOREBIT>
|
||
<SETG QCONTEXT ,OMI>
|
||
<TELL CR
|
||
"The priest says, \"Omi-san says that you will be given a bath. And
|
||
food and drink. If you behave, you will not be put back into the pit. Your
|
||
men will stay below. If you do not behave, another of your men
|
||
will be taken up. There is plenty of firewood.\" He pauses while Omi
|
||
speaks to him at length. \"Omi-san says you must obey. Do what you are
|
||
told. Eat dung if need be. The Japanese for 'yes' is '"I"hai"".' If you
|
||
agree, say it directly to him.\"" CR>)
|
||
(DELAY
|
||
<COND (<NOT ,ANSWER-HAI?>
|
||
<COND (<EQUAL? <CROOCQ-IN-CAULDRON> T>
|
||
<COND (<EQUAL? ,DELAY-CNT 1 2>
|
||
<OMI-SAYS-LIE-DOWN>)>)>
|
||
<RFATAL>)
|
||
(<NOT <B-LYING?>>
|
||
<COND (<EQUAL? ,DELAY-CNT 1>
|
||
<TELL CR
|
||
"Omi watches you with great curiousity." CR>
|
||
<RTRUE>)
|
||
(<EQUAL? <CROOCQ-IN-CAULDRON> T>
|
||
<COND (<EQUAL? ,DELAY-CNT 2 3>
|
||
<OMI-SAYS-LIE-DOWN>
|
||
<RTRUE>)
|
||
(ELSE
|
||
<TELL CR
|
||
"\"Omi-san says, to make an agreement and then not keep it is
|
||
stupid.\" Omi then removes your head." CR>
|
||
<JIGS-UP>
|
||
<RFATAL>)>)>)>)
|
||
(<SETG QCONTEXT ,OMI>
|
||
<TELL CR
|
||
"\"Omi-san says that ">
|
||
<COND (,PISS-FLAG
|
||
<TELL
|
||
"he did not insult you personally, neither was there
|
||
any cause for you to insult him. B">)
|
||
(ELSE <TELL "b">)>
|
||
<TELL "ecause you are a barbarian and know no
|
||
better yet, you will not be killed. But you will be taught manners.\" You
|
||
see Omi hitch up his kimono. He pisses on your back.">
|
||
<COND (,PISS-FLAG
|
||
<TELL "\"Omi-san says, it
|
||
is very bad manners to say you will piss on anyone. It is bad manners and
|
||
very stupid to say you will piss on anyone when you are unarmed. It is
|
||
very bad manners and even more stupid to say you will piss on anyone
|
||
when you are unarmed, powerless, and not prepared to allow your friends
|
||
or family or whomever to perish first.\"">)>
|
||
<REPLACE-SYNONYM ,BLACKTHORNE ,W?PILOT ,W?ANJIN>
|
||
<REPLACE-SYNONYM ,BLACKTHORNE ,W?PILOT-MAJOR ,W?ANJIN-SAN>
|
||
<TELL CR CR>
|
||
<COND (<IN? ,CROOCQ ,CAULDRON>
|
||
<MOVE ,CROOCQ ,HERE>
|
||
<TELL
|
||
"You watch the samurai remove the unconscious boy from the cauldron. ">)>
|
||
<TELL "By the Lord God,
|
||
you swear, I will remember this day and somehow, somewhere, Omi will pay.|
|
||
|
|
||
Omi adjusts his kimono and continues to speak in a casual way. The priest
|
||
translates, \"Omi-san says that because no one can say the barbarous sounds
|
||
of your name, you are to be called Anjin -- Pilot. He asks me to
|
||
impress upon you that this is not intended as an insult. If you continue
|
||
to behave, you will be called Anjin-san -- Mr. Pilot -- when you merit
|
||
it.\"" CR>)
|
||
(<SETG QCONTEXT ,OMI>
|
||
<SETG BATH-FLAG T>
|
||
<TELL CR
|
||
"The priest translates. \"Omi-san suggests that you take a bath.\" He
|
||
smirks contemptuously. \"A
|
||
barbarous custom. Once when you're born and once when you're laid out
|
||
is good enough for us, but here they bathe constantly. Mura says there is a
|
||
bath house over there.\" He points to the north." CR>
|
||
<DEQUEUE I-TAKE-CROOCQ>)>>
|
||
|
||
<GLOBAL CROOCQ-CNT 0>
|
||
|
||
<ROUTINE CROOCQ-IN-CAULDRON ()
|
||
<SETG CROOCQ-CNT <+ ,CROOCQ-CNT 1>>
|
||
<COND (<EQUAL? ,CROOCQ-CNT 1>
|
||
<MOVE ,CROOCQ ,CAULDRON>
|
||
<TELL CR
|
||
"Omi gives a quiet order. Instantly two samurai go down into the pit
|
||
and bring out Croocq, the boy. They drag him over to the cauldron,
|
||
truss him while others bring firewood and water. They put the petrified
|
||
boy into the brimming cauldron and ignite the wood." CR>)
|
||
(<EQUAL? ,CROOCQ-CNT 2>
|
||
<TELL CR
|
||
"The fire is beginning to warm the water, and a nauseating groan breaks
|
||
from Croocq's mouth." CR>)
|
||
(<EQUAL? ,CROOCQ-CNT 3>
|
||
<TELL CR
|
||
"Flames from the wooden fire set in the bricks below the grate lick
|
||
the metal of the cauldron. More wood is put on." CR>)
|
||
(<EQUAL? ,CROOCQ-CNT 4>
|
||
<TELL CR
|
||
"Croocq screams a thin, wailing scream, and then faints. A man with a
|
||
pole pokes him until he revives." CR>)
|
||
(<EQUAL? ,CROOCQ-CNT 5>
|
||
<TELL CR
|
||
"The boy begins begging, shouting, \"Pilot, don't let them boil me
|
||
alive, Pilot!\"" CR>)
|
||
(ELSE
|
||
<TELL CR
|
||
"\"Omi-san says he will train someone else,\" a nauseated-looking
|
||
Sebastio tells you. You have only a moment to ruminate on that before
|
||
he removes your head." CR>
|
||
<JIGS-UP>
|
||
<RFATAL>)>
|
||
<RTRUE>>
|
||
|
||
<ROUTINE OMI-SAYS-LIE-DOWN ()
|
||
<THIS-IS-IT ,ORDERS>
|
||
<TELL CR
|
||
"\"Omi-san says, ">
|
||
<COND (,ANSWER-HAI?
|
||
<TELL "lie down immediately!\"" CR>)
|
||
(ELSE
|
||
<TELL "you agree to behave?\"" CR>)>>
|
||
|
||
<GLOBAL ANSWER-HAI? <>>
|
||
<GLOBAL BATH-FLAG <>>
|
||
|
||
<ROUTINE CURSE-OMI ()
|
||
<COND (<NOT ,PISS-FLAG>
|
||
<SETG PISS-FLAG T>
|
||
<TELL
|
||
"You lose your composure. \"Tell him to go to hell. Tell him I piss on
|
||
him and his whole country. Tell him exactly what I said! Exactly, by
|
||
God!\" you yell at the priest. Omi listens, then the knuckles on his
|
||
sword hand whiten. You can see he is trying not to give way to his
|
||
emotions." CR>)
|
||
(ELSE
|
||
<TELL
|
||
"You continue to scream abuse at Omi." CR>)>>
|
||
|
||
<ROOM BATH-HOUSE
|
||
(LOC ROOMS)
|
||
(DESC "Bath House")
|
||
(SYNONYM HOUSE)
|
||
(ADJECTIVE BATH)
|
||
(SOUTH TO VILLAGE-SQUARE)
|
||
(FLAGS ONBIT)
|
||
(ACTION BATH-HOUSE-F)>
|
||
|
||
<ROUTINE BATH-HOUSE-F ("OPT" (RARG <>))
|
||
<COND (<RARG? LOOK>
|
||
<TELL
|
||
"The bath house is dominated by a huge wooden tub, steaming with
|
||
scalding water. You are reminded of the torture you have just
|
||
seen, and shiver with fear." CR>)
|
||
(<RARG? ENTER>
|
||
<COND (<NOT <IN? ,MURA ,BATH-HOUSE>>
|
||
;<DRESS-BLACKTHORNE T>
|
||
<MOVE ,CROWD ,BATH-HOUSE>
|
||
<MOVE ,ONNA ,BATH-HOUSE>
|
||
<MOVE ,MURA ,BATH-HOUSE>
|
||
<QUEUE I-BATH -1>
|
||
<TELL
|
||
"You enter the bath house, followed by Mura, who keeps a close eye on
|
||
you." CR CR>)>
|
||
<RTRUE>)
|
||
(<RARG? BEG>
|
||
<COND (<AND <OR <P? WALK P?SOUTH>
|
||
<HOSTILE-VERB?>>
|
||
<NOT <IN? ,BLACKTHORNE ,BATHTUB>>>
|
||
<TELL
|
||
"Mura moves to stop you, and you are thinking, \"How can this little man
|
||
stop me?\",
|
||
when, like a flash he seems to pull you toward him and over his shoulder
|
||
in one fluid movement and you are sprawled gasping on the floor, out of
|
||
breath. \"So sorry, Captain-san,\" he says, in very bad Portuguese." CR>)
|
||
(<AND <IN? ,PLAYER ,HERE>
|
||
<TAKE-A-BATH?>>
|
||
<PERFORM ,V?BOARD ,BATHTUB>
|
||
<RTRUE>)
|
||
(<AND <P? BATHE *> ,PRSO>
|
||
<COND (<FSET? ,PRSO ,PERSON>
|
||
<COND (<FSET? ,PRSO ,PLURAL>
|
||
<TELL
|
||
G"There wouldn't be room for so many!" CR>)
|
||
(ELSE
|
||
<TELL
|
||
CTHE ,PRSO G" smiles at your invitation, but shakes " HIS/HER ,PRSO
|
||
" head." CR>)>)
|
||
(ELSE
|
||
<TELL
|
||
CTHE ,PRSO G" would probably be worse for the experience." CR>)>)
|
||
(<VERB? STRIP>
|
||
<SETG DELAY-CNT 0>
|
||
<COND (<OR <FSET? ,BOOTS ,WEARBIT>
|
||
<FSET? ,CLOTHES ,WEARBIT>>
|
||
<COND (<FSET? ,BOOTS ,WEARBIT>
|
||
<PERFORM ,V?TAKE-OFF ,BOOTS>
|
||
<COND (<FSET? ,CLOTHES ,WEARBIT>
|
||
<CRLF>)>)>
|
||
<COND (<FSET? ,CLOTHES ,WEARBIT>
|
||
<PERFORM ,V?TAKE-OFF ,CLOTHES>)>
|
||
<RTRUE>)
|
||
(ELSE
|
||
<TELL "You're naked." CR>)>)
|
||
(<AND <P? TAKE-OFF BOOTS>
|
||
<FSET? ,BOOTS ,WEARBIT>>
|
||
<SETG DELAY-CNT 0>
|
||
<MOVE ,BOOTS ,WINNER>
|
||
<FCLEAR ,BOOTS ,WEARBIT>
|
||
<TELL
|
||
"You remove your boots. The old women watching cackle and nudge each
|
||
other in the ribs." CR>)
|
||
(<P? TAKE-OFF CLOTHES>
|
||
<SETG DELAY-CNT 0>
|
||
<COND (<FSET? ,BOOTS ,WEARBIT>
|
||
<TELL
|
||
,YOU-HAVE-TO G"take off ""your boots first. Your pants won't go over the
|
||
boots." CR>)
|
||
(ELSE
|
||
<MOVE ,CLOTHES ,WINNER>
|
||
<FCLEAR ,CLOTHES ,WEARBIT>
|
||
<TELL
|
||
"You slowly remove your clothes, embarrassed by the audience. They don't
|
||
even have the courtesy of looking the other way. The old women laugh
|
||
and joke with each other. Finally, you are naked, covering yourself as
|
||
best you can. One old crone claps her hands, and Mura says to you, with
|
||
enormous gravity, \"Captain-san, Mother-san thank you, best she's ever
|
||
seen, now die happy!\"" CR>)>)
|
||
(<P? BATHE (BOOTS CLOTHES)>
|
||
<TELL
|
||
"You should leave that to your hosts." CR>)>)
|
||
(<AND <RARG? END>
|
||
<NOT <FSET? ,BATHTUB ,SCOREBIT>>>
|
||
<FSET ,PIT ,INVISIBLE>
|
||
<NEXT-SCENE>)>>
|
||
|
||
<ROUTINE I-BATH ()
|
||
<ZLINES ,BATH-CNT
|
||
(DELAY
|
||
<COND (<OR <FSET? ,BOOTS ,WEARBIT>
|
||
<FSET? ,CLOTHES ,WEARBIT>>
|
||
<COND (<G? ,DELAY-CNT 5>
|
||
<SETG DELAY-CNT 0>
|
||
<FCLEAR ,CLOTHES ,WEARBIT>
|
||
<FCLEAR ,BOOTS ,WEARBIT>
|
||
<MOVE ,CLOTHES ,MURA>
|
||
<MOVE ,BOOTS ,MURA>
|
||
<TELL CR
|
||
"Mura signals to some of the onlookers, and you are surrounded, overpowered,
|
||
and stripped before you can even react. \"So sorry, Anjin,\" says Mura." CR>
|
||
<RTRUE>)
|
||
(ELSE
|
||
<TELL CR
|
||
"Mura pantomimes removing your clothes, saying \""I"Dozo, Anjin, gomen nasai.""\"" CR>
|
||
<RTRUE>)>)
|
||
(<OR <HELD? ,CLOTHES>
|
||
<HELD? ,BOOTS>>
|
||
<TELL CR
|
||
"Mura points to your ">
|
||
<COND (<HELD? ,CLOTHES> <TELL "clothes." CR>)
|
||
(ELSE <TELL "boots." CR>)>
|
||
<RTRUE>)
|
||
(<NOT <IN? ,BLACKTHORNE ,BATHTUB>>
|
||
<COND (<G? ,DELAY-CNT 3>
|
||
<TELL CR
|
||
"Mura looks extremely annoyed. \"Bath, please. Stinku. Bad. Like all
|
||
Portuguese.\" He chops you in the forearm, then calmly touches a nerve in
|
||
your neck. There is blinding pain. \"Please excuse me, Anjin,\" he says,
|
||
bowing very low. \"Bath very good.\" Then they lower you into the scalding
|
||
water." CR>
|
||
<NEXT-SCENE>
|
||
<RTRUE>)
|
||
(ELSE
|
||
<TELL CR
|
||
"Mura points to the bathtub. \"Please go there,\" he says in halting
|
||
Portuguese." CR>
|
||
<RTRUE>)>)>)
|
||
(<DEQUEUE I-BATH>
|
||
<RFALSE>)>>
|
||
|
||
<OBJECT CROWD
|
||
(SCENE S-PIT)
|
||
(LOC BATH-HOUSE)
|
||
(DESC "crowd of villagers")
|
||
(OWNER CROWD)
|
||
(SYNONYM VILLAGERS CROWD WOMEN MEN CRONE)
|
||
(ADJECTIVE OLD GAPING STARING)
|
||
(FLAGS PERSON JAPANESEBIT PLURAL OPENBIT CONTBIT SEARCHBIT)
|
||
(DESCFCN CROWD-DESC)
|
||
(ACTION CROWD-F)>
|
||
|
||
<ROUTINE CROWD-F ("OPT" (RARG <>))
|
||
<COND (<RARG? WINNER>
|
||
<TELL "They just giggle." CR>
|
||
<END-QUOTE>)>>
|
||
|
||
<ROUTINE CROWD-DESC (RARG OBJ)
|
||
<COND (<RARG? OBJDESC?> <RTRUE>)
|
||
(ELSE
|
||
<TELL
|
||
"A crowd of villagers, old women and men, are sitting and standing
|
||
around the tub. They seem intensely interested in the proceedings.">)>>
|
||
|
||
<OBJECT BATHTUB
|
||
(LOC BATH-HOUSE)
|
||
(DESC "bath tub")
|
||
(SYNONYM TUB BATH POOL WATER)
|
||
(ADJECTIVE BATH WOODEN HOT)
|
||
(FLAGS NDESCBIT CANT-HOLD VEHBIT OPENBIT CONTBIT SEARCHBIT SCOREBIT)
|
||
(CAPACITY 300)
|
||
(ACTION BATHTUB-F)>
|
||
|
||
<ROUTINE BATHTUB-F ("OPT" (RARG <>) "AUX" RUIN)
|
||
<COND (<RARG? BEG>
|
||
<COND (<VERB? WALK>
|
||
<YOULL-HAVE-TO "get out of the tub">)
|
||
(<AND <VERB? WEAR>
|
||
<NOT <IN? ,PRSO ,BATHTUB>>>
|
||
<TELL
|
||
G"You'd get it wet!" CR>)
|
||
(<VERB? LIE-DOWN KNEEL>
|
||
<TELL G"You would drown." CR>)
|
||
(<OR <VERB? LEAP DIVE>
|
||
<TAKE-A-BATH?>>
|
||
<TELL
|
||
"You splash some of the scalding water half-heartedly over yourself. The
|
||
water is soapy and scented, and it washes away the filth. Three times
|
||
you make them scour your back with the roughest stone and with pumice. You
|
||
begin to feel cleaner, but your back still burns with shame.|
|
||
|
|
||
Before long, even your hatred of Omi becomes a banked fire as the heat of
|
||
the bath burns into you, relaxing every muscle and dissolving your
|
||
fatigue." CR>
|
||
<SCORE-OBJECT ,BATHTUB>)
|
||
(<P? EXIT GLOBAL-HERE>
|
||
<PERFORM ,V?DISEMBARK>
|
||
<RTRUE>)
|
||
(<OUTSIDE-TUB? ,BATHTUB>
|
||
<TELL
|
||
CTHE ,PRSO IS/ARE ,PRSO G" outside the tub and out of reach." CR>)>)
|
||
(<RARG? <>>
|
||
<COND (<VERB? EXAMINE>
|
||
<COND (<NOUN-USED? ,PRSO ,W?WATER>
|
||
<TELL
|
||
"It's very hot, and very clean." CR>)
|
||
(ELSE
|
||
<TELL
|
||
G"The tub is wooden, large enough for several people, and deep enough
|
||
that they could sit in it with only their heads above water." CR>)>)
|
||
(<P? (TAKE MOVE) BATHTUB>
|
||
<COND (<AND <EQUAL? ,P-PRSA-WORD ,W?TAKE>
|
||
<NOUN-USED? ,PRSO ,W?BATH>>
|
||
<PERFORM ,V?BATHE ,ME>
|
||
<RTRUE>)
|
||
(ELSE
|
||
<TELL
|
||
G"It's much too heavy!" CR>)>)
|
||
(<VERB? POUR>
|
||
<TELL G"And waste all that nice hot water?" CR>)
|
||
(<VERB? CLIMB-FOO BOARD ENTER>
|
||
<SET RUIN <RUINABLE? ,WINNER>>
|
||
<COND (.RUIN
|
||
<MURA-STOPS-YOU .RUIN>
|
||
<COND (<FSET? .RUIN ,WEARBIT>
|
||
<TELL
|
||
"He pantomimes removing them, and the old women
|
||
giggle and make loud remarks to him." CR>)
|
||
(ELSE <CRLF>)>)
|
||
(ELSE
|
||
<MOVE ,WINNER ,BATHTUB>
|
||
<TELL
|
||
G"You climb gingerly up and over the side of the tub, and ease yourself
|
||
in. The water is scalding!" CR>)>)
|
||
(<AND <P? (PUT THROW) * BATHTUB>
|
||
<HELD? ,PRSO>
|
||
<FSET? ,PRSO ,WEARABLE>>
|
||
<MURA-STOPS-YOU ,PRSO>
|
||
<CRLF>)
|
||
(<VERB? DRINK TASTE>
|
||
<TELL
|
||
G"You try to drink the scalding bathwater, but it's far too hot." CR>)>)>>
|
||
|
||
<ROUTINE TAKE-A-BATH? ()
|
||
<OR <P? BATHE (<> ME)>
|
||
<AND <P? TAKE (BATHTUB YOKOSE-BATHTUB)>
|
||
<NOUN-USED? ,PRSO ,W?BATH>>>>
|
||
|
||
<ROUTINE RUINABLE? (WHO "AUX" WEAR)
|
||
<COND (<AND <IN? ,BOOTS .WHO>
|
||
<FSET? ,BOOTS ,WEARBIT>>
|
||
<RETURN ,BOOTS>)
|
||
(<AND <IN? ,CLOTHES .WHO>
|
||
<FSET? ,CLOTHES ,WEARBIT>>
|
||
<RETURN ,CLOTHES>)
|
||
(ELSE
|
||
<SET WEAR <FIRST? .WHO>>
|
||
<REPEAT ()
|
||
<COND (<NOT .WEAR> <RFALSE>)
|
||
(<NOT <EQUAL? .WEAR ,LONG-STRAW ,SHORT-STRAW>>
|
||
<RETURN .WEAR>)
|
||
(ELSE
|
||
<SET WEAR <NEXT? .WEAR>>)>>)>>
|
||
|
||
<ROUTINE MURA-STOPS-YOU (OBJ)
|
||
<TELL 'MURA>
|
||
<THIS-IS-IT ,MURA>
|
||
<COND (<NOT <FSET? .OBJ ,WEARBIT>>
|
||
<TELL
|
||
" offers to take ">)
|
||
(ELSE
|
||
<TELL
|
||
", whose grip is surprisingly strong, stops you before you ruin ">)>
|
||
<TELL D .OBJ ".">>
|
||
|
||
<ROUTINE PIT-AFTER-F ()
|
||
<TELL
|
||
"Yabu and Omi are sitting sipping "I"cha"" -- tea -- with all the ceremony Omi's
|
||
mother can command. \"Where did you learn so much about the barbarian mind?\" he
|
||
asks Omi.|
|
||
|
|
||
\"When I was fourteen I had a teacher who had been a Christian priest. He said
|
||
that Christians were vulnerable because they were taught that all people should
|
||
'love' one another, and that life was sacred. These new barbarians are just a
|
||
different sect. I thought we could control the leader by taking the life or
|
||
threatening to take the life of one of his men.\" Omi avoids mentioning the
|
||
torture death, the befouled death, reining in his disgust.|
|
||
|
|
||
\"Is the barbarian broken for good?\" asks Yabu. \"Is it temporary or
|
||
permanent?\"|
|
||
|
|
||
\"Temporary,\" Omi answers hesitantly. \"Only temporary, Lord.\"" CR>>
|
||
|
||
<END-SEGMENT ;"PIT">
|
||
|
||
|
||
|
||
"S-RODRIGUES"
|
||
|
||
;"The next day, Lord Toda Hiro-matsu, Lord Toranaga's favorite general, arrives
|
||
by galley from Osaka. How, Yabu wonders, does he know of the
|
||
ship? Spies! But who?|
|
||
|
|
||
Hiro-matsu seizes your ship and its cargo for his liege Lord
|
||
Toranaga, and then
|
||
stuns Yabu by saying, \"I'm taking the pirate leader to Osaka. Lord
|
||
Toranaga wants to see him!\""
|
||
|
||
<BEGIN-SEGMENT RODRIGUES>
|
||
|
||
<OBJECT SLAVER
|
||
(SCENE S-RODRIGUES)
|
||
(OWNER TORANAGA)
|
||
(DESC "galley")
|
||
(SYNONYM GALLEY SLAVER VESSEL SHIP)
|
||
(ADJECTIVE SLAVE)
|
||
(FLAGS VEHBIT)
|
||
(DESCFCN SLAVER-DESC)
|
||
(GENERIC GENERIC-GALLEY-F)
|
||
(ACTION SLAVER-F)>
|
||
|
||
<ROUTINE SLAVER-DESC (RARG OBJ)
|
||
<COND (<RARG? OBJDESC?> <RTRUE>)
|
||
(ELSE
|
||
<TELL
|
||
"A sixty-oared galley is anchored off of one of the jetties.">)>>
|
||
|
||
<ROUTINE SLAVER-F ("OPT" (RARG <>))
|
||
<COND (<VERB? EXAMINE>
|
||
<TELL
|
||
"This is a sixty-oared galley, thirty oars a side, neat and trim, the oars
|
||
stacked with care, ready for instant departure." CR>)
|
||
(<VERB? BOARD WALK-TO>
|
||
<COND (<IN? ,RODRIGUES ,HERE>
|
||
<TELL
|
||
"\"No need, Ingeles, the galley isn't ready to leave. There's time.\" You
|
||
are startled. Minutes ago they were herding you aboard. What does this
|
||
man want from you?" CR>)
|
||
(ELSE
|
||
<TELL
|
||
"You move to board the galley, but you can't give yourself up to
|
||
slavery. What of the promise they made, that if you behaved they would
|
||
treat you well? Are they betraying it now?" CR>)>)>>
|
||
|
||
<OBJECT MURA-ROPE
|
||
(SCENE S-RODRIGUES)
|
||
(OWNER MURA)
|
||
(DESC "rope")
|
||
(SYNONYM ROPE)>
|
||
|
||
<GLOBAL RODRIGUES-QUESTION 0>
|
||
|
||
<ROUTINE I-MEET-RODRIGUES ()
|
||
<ZLINES ,MEET-CNT
|
||
(<FCLEAR ,BRIDGE-OF-ERASMUS ,TOUCHBIT>
|
||
<FCLEAR ,ON-DECK ,TOUCHBIT>
|
||
<FCLEAR ,PASSAGEWAY ,TOUCHBIT>
|
||
<FCLEAR ,PILOTS-CABIN ,TOUCHBIT>
|
||
<TELL CR
|
||
"You can see that even Omi and Yabu are deferring to the old man. He
|
||
has evidently come from the slave galley.|
|
||
|
|
||
You shiver involuntarily. The last time you saw a slave galley was
|
||
two years ago when the fleet was outward bound off the Gold Coast. You've
|
||
always had a mortal fear of being taken alive and made a galley
|
||
slave -- not an unusual fate for a captured seaman." CR>)
|
||
(<SETG QCONTEXT ,MURA>
|
||
<SETG OPPONENT ,MURA>
|
||
<TELL CR
|
||
"Omi kneels before the old man, and you do the same, bowing exactly as
|
||
low as Omi. Now there is a discussion among Omi, the old man and
|
||
Yabu. Yabu speaks to Mura.|
|
||
|
|
||
Mura points at the galley. \"Anjin-san. Please go there.\"" CR>)
|
||
(<SETG QCONTEXT ,OMI>
|
||
<MOVE ,MURA-ROPE ,MURA>
|
||
<THIS-IS-IT ,ARCHERS>
|
||
<TELL CR
|
||
"\""I"Isogi!""\" Omi commands, waving you toward the galley.|
|
||
|
|
||
When you still don't move, there is an immediate order from Omi and
|
||
four samurai fall on you and pinion your arms. Mura produces a rope and
|
||
begins to bind your hands." CR>)
|
||
(<MOVE ,RODRIGUES ,ANJIRO-WATERFRONT>
|
||
<SETG QCONTEXT ,RODRIGUES>
|
||
<SETG RODRIGUES-QUESTION 1>
|
||
<TELL CR
|
||
"\"Madonna! Leave him alone! Hey, let that bastard alone! "I"Kinjiru,
|
||
neh?"" Is he the pilot? The Anjin?\"|
|
||
|
|
||
You can scarcely believe your ears. The boisterous abuse in Portuguese
|
||
comes from the deck of the galley. Then you see a man start down the
|
||
gangway, a Portuguese seaman!|
|
||
|
|
||
\"Are you the pilot? The pilot of the Dutchman?\"" CR>)
|
||
(DELAY
|
||
<COND (<EQUAL? ,RODRIGUES-QUESTION 1>
|
||
<COND (<G? ,DELAY-CNT 3>
|
||
<DIE-IN-STORM>
|
||
<RFATAL>)
|
||
(ELSE
|
||
<TELL CR
|
||
"\"Well, are you the pilot or no? I'm trying to help you, you fool!\"" CR>
|
||
<RTRUE>)>)>)
|
||
(<SETG RODRIGUES-QUESTION 2>
|
||
<SETG QCONTEXT ,RODRIGUES>
|
||
<SETUP-ANSWER "i trained at">
|
||
<TELL CR
|
||
"\"Now tell me where you trained as a pilot?\"" CR>)
|
||
(DELAY
|
||
<COND (<EQUAL? ,RODRIGUES-QUESTION 2>
|
||
<COND (<G? ,DELAY-CNT 3>
|
||
<DIE-IN-STORM>
|
||
<RFATAL>)
|
||
(ELSE
|
||
<TELL CR
|
||
"\"All you Ingeles pilots come out of the same nest of pirates! If you're
|
||
really one, you'll know, so tell! Where did you train?\"" CR>
|
||
<RTRUE>)>)>)
|
||
(<SETG RODRIGUES-QUESTION 3>
|
||
<SETG QCONTEXT ,RODRIGUES>
|
||
<SETUP-ANSWER "the latitude is">
|
||
<TELL CR
|
||
"\"Maybe you are a pilot! Now, what's the latitude of
|
||
The Lizard?\"" CR>)
|
||
(DELAY
|
||
<COND (<EQUAL? ,RODRIGUES-QUESTION 3>
|
||
<COND (<G? ,DELAY-CNT 3>
|
||
<DIE-IN-STORM>
|
||
<RFATAL>)
|
||
(ELSE
|
||
<TELL CR
|
||
"\"Well, are you a pilot or no? I'm trying to help you, you
|
||
fool! What's the latitude of The Lizard?\"" CR>
|
||
<RTRUE>)>)>)
|
||
(<TELL CR
|
||
"\"All right, Ingeles!\" " THE ,RODRIGUES " looks out into the harbor. \"She's
|
||
got good lines, your ship. Madonna, she'd be fast, very fast. Very rough
|
||
to deal with.\"" CR>)
|
||
(DELAY
|
||
<COND (<FSET? ,LG-ERASMUS ,SCOREBIT>
|
||
<COND (<G? ,DELAY-CNT 3>
|
||
<CRLF>
|
||
<LETS-GO-ABOARD <>>
|
||
<FCLEAR ,LG-ERASMUS ,SCOREBIT>
|
||
<RTRUE>)
|
||
(ELSE <RFALSE>)>)>)
|
||
(<TELL CR
|
||
"Rodrigues yells to the surprised samurai, \"You don't have to worry
|
||
about him, Captain-san, I'm responsible. Me, Rodrigu-san, "I"ichi ban"
|
||
" Anjin-san, by the Virgin! "I"Wakarimasu ka?""\"" CR>)
|
||
(DELAY
|
||
<COND (<NOT <IN? ,BLACKTHORNE ,SMALL-BOAT>>
|
||
<COND (<G? ,DELAY-CNT 3>
|
||
<DIE-IN-STORM>)
|
||
(ELSE
|
||
<TELL CR
|
||
"\"Hurry, hurry! Get in the boat! Hurry up!\" " CTHE ,RODRIGUES " continues his
|
||
dominating abuse of the astonished samurai." CR>)>
|
||
<RTRUE>)>)
|
||
(<MOVE ,BOAT-OAR ,RODRIGUES>
|
||
<SETG OPPONENT ,ARCHERS>
|
||
<TELL CR
|
||
CTHE ,RODRIGUES " grabs the oars and shoves off with great skill. The captain
|
||
samurai calls out, unmistakably beckoning you to come back. " CTHE ,RODRIGUES "
|
||
points to the "I"Erasmus."" \"Just go there,\" he shouts. \"Tell me if
|
||
the archers put arrows in their bows, Ingeles!\"" CR CR>
|
||
<GOTO ,ANJIRO-HARBOR>)
|
||
(<FSET ,ARCHERS ,RMUNGBIT>
|
||
<TELL CR
|
||
CTHE ,RODRIGUES " rows toward the "I"Erasmus"", pushing against the oars
|
||
in Japanese fashion while standing amidships." CR>)
|
||
(<TELL CR
|
||
CTHE ,RODRIGUES " continues to row toward the "I"Erasmus""." CR>)
|
||
(<COND (<FSET? ,ARCHERS ,SCOREBIT>
|
||
<CRLF>
|
||
<JIGS-UP
|
||
"One of the archers fires an arrow with incredible accuracy. It takes
|
||
Rodrigues in the back, and he falls. The second arrow takes you.">
|
||
<RFATAL>)
|
||
(ELSE
|
||
<TELL CR
|
||
"You are at the "I"Erasmus"". " CTHE ,RODRIGUES " ships the oars under the
|
||
watchful eyes of the samurai on board." CR CR>
|
||
<GOTO ,AT-ERASMUS>)>)
|
||
(<MOVE ,BOAT-OAR ,SMALL-BOAT>
|
||
<MOVE ,RODRIGUES ,ON-DECK>
|
||
<TELL CR
|
||
CTHE ,RODRIGUES " vaults onto the deck. \""I"Konnichi wa"" to all sod-eating
|
||
samas!\" he bellows, bowing like a courtier.">
|
||
<COND (<HERE? ,ON-DECK>
|
||
<TELL "">
|
||
<SEALED-PASSAGE>)
|
||
(ELSE
|
||
<CRLF>)>)
|
||
(DELAY
|
||
<COND (<NOT <HERE? ,ON-DECK>>
|
||
<COND (<G? ,DELAY-CNT 3>
|
||
<JIGS-UP
|
||
"The watching Japanese don't know what's gone wrong, but assume you're
|
||
trying to escape. A flight of arrows ends your life.">
|
||
<RFATAL>)
|
||
(<IN? ,PLAYER ,SMALL-BOAT>
|
||
<TELL CR
|
||
"\"Come on, Ingeles! Hurry!\" " CTHE ,RODRIGUES " continues his
|
||
half-obsequious, half-insulting banter with the suspicious
|
||
samurai. \"I can't keep this up, we can't give them time to think!\"" CR>
|
||
<RTRUE>)
|
||
(ELSE
|
||
<TELL CR
|
||
"The last you hear from " CTHE ,RODRIGUES " is a volley of blistering
|
||
curses." CR>
|
||
<RTRUE>)>)>)
|
||
(<MOVE ,RODRIGUES ,PASSAGEWAY>
|
||
<COND (<HERE? ,ON-DECK ,PASSAGEWAY>
|
||
<FSET ,PASSAGE-DOOR ,OPENBIT>
|
||
<NEW-SDESC ,HIRO-MATSU "Hiro-matsu">
|
||
<FCLEAR ,HIRO-MATSU ,AN>
|
||
<TELL CR
|
||
"\""I"Kinjiru,"" eh?\" Rodrigues says, unimpressed. \"I'm from Toda Hiro-matsu-sama,
|
||
who's a bigger king than your bugger and Toady-sama's from Toranaga-sama,
|
||
who's the biggest bugger-sama in this whole world. "I"Neh?""\" He rips
|
||
the seal off the door, and drops a hand to one of his pistols.|
|
||
|
|
||
\"Toranaga-sama!\" he yells. \""I"Wakarimasu ka?""\" The samurai hesitate,
|
||
swords ready. " CTHE ,RODRIGUES " crashes his foot against the door, the latch
|
||
snaps, and the door bursts open. \""I"WAKARIMASU KA?""\"|
|
||
|
|
||
\"Wakarimasu, Anjin-san.\" The samurai
|
||
quickly put their swords away, and " THE ,RODRIGUES " says hoarsely, \"That's
|
||
better,\" and leads the way aft." CR>)>)
|
||
(DELAY
|
||
<COND (<NOT <HERE? ,PASSAGEWAY>>
|
||
<COND (<G? ,DELAY-CNT 3>
|
||
<DIE-IN-STORM>
|
||
<RFATAL>)
|
||
(<HERE? ,ON-DECK ,CAPTAINS-CABIN ,MATES-CABIN>
|
||
<TELL CR
|
||
"Rodrigues yells back to you, \"If you value your life, Ingeles, follow
|
||
me!\"" CR>
|
||
<RTRUE>)
|
||
(ELSE
|
||
<HEAR-RODRIGUES>
|
||
<RTRUE>)>)>)
|
||
(<MOVE ,RODRIGUES ,PILOTS-CABIN>
|
||
<FSET ,PILOTS-CABIN-DOOR ,OPENBIT>
|
||
<COND (<HERE? ,PILOTS-CABIN>
|
||
<TELL CR
|
||
"\"This must be your cabin, eh?\" says Rodrigues and follows you inside." CR>)
|
||
(<HERE? ,PASSAGEWAY>
|
||
<TELL CR
|
||
"\"Which is your cabin?\" asks " THE ,RODRIGUES ", and when you point it out
|
||
he enters. The door was unlocked." CR>)
|
||
(<HERE? ,ON-DECK ,MATES-CABIN ,CAPTAINS-CABIN
|
||
,BELOW-DECKS>
|
||
<DONT-BE-STUPID>)>)
|
||
(DELAY
|
||
<COND (<NOT <HERE? ,PILOTS-CABIN>>
|
||
<COND (<G? ,DELAY-CNT 3>
|
||
<DIE-IN-STORM>
|
||
<RFATAL>)
|
||
(<HERE? ,PASSAGEWAY ,MATES-CABIN
|
||
,CAPTAINS-CABIN>
|
||
<DONT-BE-STUPID>
|
||
<RTRUE>)
|
||
(ELSE
|
||
<HEAR-RODRIGUES>
|
||
<RTRUE>)>)>)
|
||
(<SETG QCONTEXT ,RODRIGUES>
|
||
<TELL CR
|
||
"\"Where are they?\" " THE ,RODRIGUES " asks. \"Your rutters. Where are your
|
||
rutters? No pilot would worry about clothes, you came for the rutters,
|
||
didn't you? Why do you think I came aboard? I was here two or three
|
||
hours ago, and searched for them, but found nothing! The Portuguese
|
||
rutter -- it had to be Portuguese! Where is it?\"|
|
||
|
|
||
\"Stolen. They're stolen!\" It's all you can say." CR CR>
|
||
<SETG QCONTEXT <>>
|
||
<NEXT-SCENE>)>>
|
||
|
||
<ROUTINE LETS-GO-ABOARD (YOU?)
|
||
<TELL
|
||
"\"Ah, Ingeles, let's go aboard. I'd like see what she's like. Come on,
|
||
get in the boat.\"" CR>
|
||
<COND (<NOT .YOU?>
|
||
<TELL CR
|
||
"\"Good idea. I'd like to retrieve my clothes,\" you say, trying to not
|
||
mention your rutters." CR>)>
|
||
<MOVE ,RODRIGUES ,SMALL-BOAT>
|
||
<TELL CR
|
||
"He points to a small boat pulled up on the beach, and jumps in." CR>
|
||
<RTRUE>>
|
||
|
||
<ROUTINE HEAR-RODRIGUES ()
|
||
<TELL CR
|
||
"You hear Rodrigues calling for you, scorching the air with invective." CR>>
|
||
|
||
<ROUTINE DIE-IN-STORM ()
|
||
<CRLF>
|
||
<JIGS-UP
|
||
"\"You're a stubborn bastard, Ingeles!\" Rodrigues says a few words of
|
||
gutter Japanese to the samurai, and you are bound and hustled off to a
|
||
cramped cabin below decks on the galley.|
|
||
|
|
||
You spend an awful night below, and the next day when the storm catches
|
||
the galley, you wish you were on deck, helping. When the sea pours in and
|
||
the galley sinks, you wish so even more strongly.">
|
||
<RFATAL>>
|
||
|
||
<ROUTINE SEALED-PASSAGE ()
|
||
<TELL "Rodrigues heads immediately for
|
||
the sealed passage. \""I"Kinjiru, gomen nasai,""\" says one of the samurai." CR>>
|
||
|
||
<ROUTINE DONT-BE-STUPID ()
|
||
<TELL CR
|
||
"\"Get in here, we haven't much time! These buggers are going to start
|
||
wondering what we're doing!\" says Rodrigues." CR>>
|
||
|
||
<ROUTINE LEAVE-ANJIRO-AFTER-F ()
|
||
<TELL
|
||
"Omi and the others waited on the jetty until the galley rounded the headland
|
||
and vanished. He then returned to the pit, summoning the priest.|
|
||
|
|
||
\"Priest, tell the barbarians they are to come up, one by one. Lord Yabu has
|
||
said they may live again in the world of men. But the smallest breaking of a
|
||
rule, and two will be put back into the pit. They are to behave and obey all
|
||
orders.\"" CR>>
|
||
|
||
<END-SEGMENT ;"RODRIGUES">
|