1804 lines
63 KiB
Plaintext
1804 lines
63 KiB
Plaintext
|
||
.SEGMENT "0"
|
||
|
||
|
||
.FUNCT NEW-SDESC:ANY:2:3,OBJ,STR,IMPROPER?
|
||
ZERO? IMPROPER? /?CCL3
|
||
FSET OBJ,THE
|
||
FCLEAR OBJ,NOTHEBIT
|
||
FCLEAR OBJ,NOABIT
|
||
JUMP ?CND1
|
||
?CCL3: FCLEAR OBJ,THE
|
||
FSET OBJ,NOTHEBIT
|
||
FSET OBJ,NOABIT
|
||
?CND1: PUTP OBJ,P?SDESC,STR
|
||
RTRUE
|
||
|
||
|
||
.FUNCT YABU-WAKARIMASEN:ANY:0:0
|
||
PRINTC 34
|
||
ICALL2 PRINTUNDER,STR?241
|
||
PRINTR ","" Yabu replies gruffly."
|
||
|
||
|
||
.FUNCT WAKARIMASEN:ANY:0:0
|
||
EQUAL? PRSA,V?KONNICHI-WA \?PRD5
|
||
EQUAL? PRSO,ROOMS /?CTR2
|
||
?PRD5: EQUAL? PRSA,V?KONBANWA \?CCL3
|
||
?CTR2: PRINTC 34
|
||
ICALL2 PRINTUNDER,STR?242
|
||
PRINTI ","" "
|
||
ICALL2 THE-PRINT,WINNER
|
||
PRINTR " answers politely."
|
||
?CCL3: EQUAL? PRSA,V?NIHON-GO-GA \?CCL9
|
||
EQUAL? PRSO,HANASE-MASEN \?CCL9
|
||
ICALL2 CTHE-PRINT,WINNER
|
||
PRINTR " seems to understand, but is at a loss what to say next."
|
||
?CCL9: CALL1 JAPANESE-VERB?
|
||
ZERO? STACK /?CCL13
|
||
ICALL2 CTHE-PRINT,WINNER
|
||
PRINTR " seems impressed that you know some Japanese, but apparently isn't sure what you are getting at."
|
||
?CCL13: PRINTC 34
|
||
ICALL2 PRINTUNDER,STR?243
|
||
PRINTI """"
|
||
ICALL2 CTHE-PRINT,WINNER
|
||
PRINTR " doesn't appear to understand you."
|
||
|
||
|
||
.FUNCT GENERIC-PILOT-F:ANY:2:2,R,F
|
||
EQUAL? SCENE,S-RODRIGUES \?CCL3
|
||
RETURN RODRIGUES
|
||
?CCL3: RETURN BLACKTHORNE
|
||
|
||
|
||
.FUNCT BLACKTHORNE-F:ANY:0:1,RARG
|
||
EQUAL? RARG,FALSE-VALUE \?CCL3
|
||
EQUAL? PRSA,V?BE,V?BE? \?CCL6
|
||
EQUAL? PRSO,ME,BLACKTHORNE \?CCL6
|
||
EQUAL? PRSI,BLACKTHORNE \?CCL11
|
||
PRINTR "That's correct."
|
||
?CCL11: EQUAL? PRSI,ENGLISH \FALSE
|
||
PRINTR "That's right, although your mother was Dutch."
|
||
?CCL6: EQUAL? PRSA,V?BE?,V?BE,V?WHERE /FALSE
|
||
EQUAL? PRSA,V?HOW /FALSE
|
||
EQUAL? PRSO,BLACKTHORNE \FALSE
|
||
ICALL PERFORM,PRSA,ME,PRSI
|
||
RTRUE
|
||
?CCL3: EQUAL? RARG,M-WINNER \FALSE
|
||
FSET? BLACKTHORNE,SITTING \?CCL24
|
||
CALL1 MOTION-VERB?
|
||
ZERO? STACK \?PRD27
|
||
EQUAL? PRSA,V?STAND /?PRD27
|
||
CALL1 HOSTILE-VERB?
|
||
ZERO? STACK /?PRD31
|
||
ZERO? OPPONENT /?PRD31
|
||
EQUAL? OPPONENT,PRSO,PRSI /?PRD27
|
||
?PRD31: EQUAL? PRSA,V?OPEN,V?CLOSE \?CCL24
|
||
FSET? PRSO,DOORBIT \?CCL24
|
||
?PRD27: CALL1 PAST-TENSE?
|
||
ZERO? STACK \?CCL24
|
||
EQUAL? HERE,MURA-HOUSE /FALSE
|
||
LOC WINNER
|
||
FSET? STACK,VEHBIT /FALSE
|
||
EQUAL? SCENE,S-NINJA \?CCL43
|
||
FSET? MARIKO,RMUNGBIT \?CCL43
|
||
IN? YABU,SECRET-REDOUBT /?CCL48
|
||
PRINTR "You are too shaken to stand."
|
||
?CCL48: ICALL1 B-STAND
|
||
FCLEAR BLACKTHORNE,RMUNGBIT
|
||
PRINTR "You lurch up, Yabu helping you, and painfully approach Mariko."
|
||
?CCL43: EQUAL? SCENE,S-TORANAGA /FALSE
|
||
EQUAL? SCENE,S-QUAKE \?CCL52
|
||
ZERO? QUAKE? \FALSE
|
||
CALL2 QUEUED?,I-CRAWL
|
||
ZERO? STACK \FALSE
|
||
?CCL52: ICALL1 B-STAND
|
||
PRINTI "You stand up"
|
||
EQUAL? PRSA,V?STAND /?CTR58
|
||
EQUAL? PRSA,V?WALK \?CCL59
|
||
EQUAL? P-WALK-DIR,P?UP \?CCL59
|
||
?CTR58: PRINTR "."
|
||
?CCL59: PRINTR " first."
|
||
?CCL24: FSET? WINNER,RMUNGBIT \FALSE
|
||
EQUAL? SCENE,S-NINJA \FALSE
|
||
CALL1 GAME-VERB?
|
||
ZERO? STACK \FALSE
|
||
CALL1 ABSTRACT-VERB?
|
||
ZERO? STACK \?CCL72
|
||
EQUAL? PRSO,MARIKO /?CTR71
|
||
EQUAL? PRSI,MARIKO \?CCL72
|
||
?CTR71: CALL2 YOULL-HAVE-TO,STR?244
|
||
RSTACK
|
||
?CCL72: CALL1 PASSIVE-VERB?
|
||
ZERO? STACK \FALSE
|
||
PRINTR "The explosion has left you too dazed to do anything."
|
||
|
||
|
||
.FUNCT I-DONT-KNOW?:ANY:0:0
|
||
EQUAL? PRSA,V?KNOW \FALSE
|
||
EQUAL? PRSS,ME \FALSE
|
||
EQUAL? PRSQ,V?DO? \FALSE
|
||
GET PARSE-RESULT,16
|
||
BTST STACK,PARSE-QUESTION /FALSE
|
||
GET PARSE-RESULT,16
|
||
BTST STACK,PARSE-NOT /TRUE
|
||
RFALSE
|
||
|
||
|
||
.FUNCT BOOTS-F:ANY:0:0
|
||
EQUAL? PRSA,V?EXAMINE \?CCL3
|
||
EQUAL? SCENE,S-ERASMUS \?CCL6
|
||
PRINTR "They are salt-encrusted and worn."
|
||
?CCL6: PRINTR "They have been cleaned and shined."
|
||
?CCL3: EQUAL? PRSA,V?LOOK-INSIDE,V?SMELL \?CCL8
|
||
PRINTR "They are the same boots you've been wearing for two years now.Let's just say they aren't in perfect condition any more."
|
||
?CCL8: EQUAL? PRSA,V?TAKE-OFF \?CCL10
|
||
FSET? BOOTS,WEARBIT \?CCL10
|
||
EQUAL? SCENE,S-ERASMUS \FALSE
|
||
PRINTR "You'd be crazy to remove your boots in this weather!"
|
||
?CCL10: EQUAL? PRSA,V?WEAR \FALSE
|
||
CALL2 HELD?,PRSO
|
||
ZERO? STACK \?CCL20
|
||
CALL1 ITAKE
|
||
EQUAL? STACK,TRUE-VALUE \TRUE
|
||
?CCL20: FSET? BOOTS,WEARBIT /FALSE
|
||
FSET BOOTS,WEARBIT
|
||
PRINTR "You put on your boots."
|
||
|
||
|
||
.FUNCT CLOTHES-F:ANY:0:0
|
||
EQUAL? PRSA,V?EXAMINE \?CCL3
|
||
EQUAL? SCENE,S-ERASMUS \?CCL6
|
||
PRINTR "They are filthy, torn, and wet."
|
||
?CCL6: FSET? CLOTHES,TOUCHBIT /FALSE
|
||
PRINTR "They are in a neat pile, washed and pressed and mended with tiny, exquisite stitching.But your knife is gone, and so are your keys.Your boots are nowhere to be found.Worst of all, there is no sign of your precious rutters!"
|
||
?CCL3: EQUAL? PRSA,V?TAKE \?CCL10
|
||
EQUAL? SCENE,S-ANJIRO \FALSE
|
||
GETP WINNER,P?HEALTH
|
||
LESS? STACK,3 \FALSE
|
||
ICALL QUEUE,I-COLLAPSE,4
|
||
PRINTR "You are still too weak to stand and go over to the clothes."
|
||
?CCL10: EQUAL? PRSA,V?WEAR \?CCL17
|
||
CALL2 HELD?,PRSO
|
||
ZERO? STACK \?CCL20
|
||
GETP WINNER,P?HEALTH
|
||
LESS? STACK,3 \?CCL20
|
||
ICALL PERFORM,V?TAKE,CLOTHES
|
||
RTRUE
|
||
?CCL20: FSET? CLOTHES,WEARBIT /FALSE
|
||
IN? CLOTHES,WINNER /?CCL24
|
||
CALL1 ITAKE
|
||
ZERO? STACK /FALSE
|
||
?CCL24: FSET CLOTHES,WEARBIT
|
||
PRINTI "You "
|
||
IN? WINNER,QUILT \?CND29
|
||
MOVE WINNER,HERE
|
||
?CND29: FSET? BLACKTHORNE,SITTING \?CND31
|
||
ICALL1 B-STAND
|
||
PRINTI "stand shakily and "
|
||
?CND31: PRINTI "put on your clothes"
|
||
CALL2 HELD?,BOOTS
|
||
ZERO? STACK \?CND33
|
||
PRINTI ", feeling strange without your boots"
|
||
?CND33: PRINTR "."
|
||
?CCL17: EQUAL? PRSA,V?TAKE-OFF \?CCL36
|
||
EQUAL? SCENE,S-ERASMUS \?CCL39
|
||
PRINTR "You would freeze, or at least take a terrible chill."
|
||
?CCL39: FSET? BOOTS,WEARBIT \?CCL41
|
||
CALL2 YOULL-HAVE-TO,STR?246
|
||
RSTACK
|
||
?CCL41: EQUAL? PRSA,V?TAKE-OFF \?CCL43
|
||
CALL1 FORMAL-SCENE?
|
||
ZERO? STACK /?CCL43
|
||
PRINTR "You would expose yourself to ridicule."
|
||
?CCL43: FCLEAR CLOTHES,WEARBIT
|
||
PRINTR "You remove your clothes."
|
||
?CCL36: EQUAL? PRSA,V?TEAR \FALSE
|
||
EQUAL? SCENE,S-ERASMUS \?CCL50
|
||
PRINTR "You are in desperate straits, but rending your garments seems like an odd reaction."
|
||
?CCL50: PRINTR "Your clothes are thick, strong European fabrics and don't tear at all easily."
|
||
|
||
|
||
.FUNCT KIMONO-F:ANY:0:0
|
||
EQUAL? PRSA,V?TAKE-OFF \?CCL3
|
||
CALL1 FORMAL-SCENE?
|
||
ZERO? STACK /?CCL3
|
||
PRINTR "You would expose yourself to ridicule."
|
||
?CCL3: EQUAL? PRSA,V?WEAR \?CCL7
|
||
CALL NOUN-USED?,PRSO,W?CLOTHES
|
||
ZERO? STACK /?CCL7
|
||
FSET? PRSO,RMUNGBIT /?CCL7
|
||
ICALL2 PERFORM,V?DRESS
|
||
RTRUE
|
||
?CCL7: EQUAL? PRSA,V?TAKE-OFF \?CCL12
|
||
CALL NOUN-USED?,PRSO,W?CLOTHES
|
||
ZERO? STACK /?CCL12
|
||
FSET? PRSO,RMUNGBIT /?CCL12
|
||
ICALL2 PERFORM,V?STRIP
|
||
RTRUE
|
||
?CCL12: EQUAL? PRSA,V?TEAR \FALSE
|
||
PRINTR "Your kimono would tear easily, but it would be silly to do so."
|
||
|
||
|
||
.FUNCT SOCKS-F:ANY:0:0
|
||
EQUAL? PRSA,V?EXAMINE \?CCL3
|
||
PRINTR "These are tabi socks.They are different from European socks in that there is a notch for the thong of a sandal.They remind you of mittens."
|
||
?CCL3: EQUAL? PRSA,V?TAKE-OFF,V?WEAR \FALSE
|
||
FSET? SANDALS,WEARBIT \FALSE
|
||
CALL2 HAVE-TO-TAKE-OFF,SANDALS
|
||
RSTACK
|
||
|
||
|
||
.FUNCT SWORDS-F:ANY:0:0
|
||
EQUAL? PRSA,V?EXAMINE \?CCL3
|
||
FSET? SWORDS,RMUNGBIT \?CCL6
|
||
FCLEAR SWORDS,RMUNGBIT
|
||
FSET SWORDS,SCOREBIT
|
||
ICALL2 SCORE-OBJECT,SWORDS
|
||
PRINTR "You quickly check your sword belt.It's loose, almost ready to fall off!What a stroke of luck you checked it!How embarrassing if it had fallen off!"
|
||
?CCL6: PRINTI "You have a pair of samurai swords, one the long killing sword"
|
||
GRTR? SCENE,S-QUAKE \?CND7
|
||
PRINTI " named 'Oil Seller'"
|
||
?CND7: PRINTR ", and the other the shorter stabbing sword."
|
||
?CCL3: EQUAL? PRSA,V?WHO,V?WHAT \?CCL10
|
||
CALL NOUN-USED?,PRSO,W?SELLER
|
||
ZERO? STACK /?CCL10
|
||
PRINTR "The name comes from an experience you would rather forget.One day hunting with Toranaga, your path had been blocked by a weather-beaten old oil seller.Cursing, you commanded him to move, and he cursed you back.Toranaga pointed to one of his bodyguards, asked you to give him your sword, and before you realized what was happening, the samurai lunged at the peddler.He walked on a pace before falling, divided in two at the waist.Toranaga suggested you call your sword 'Oil Seller' in honor of the incident.""Your sword has now become legend."""
|
||
?CCL10: EQUAL? PRSA,V?WEAR \?CCL14
|
||
FSET? PRSO,WEARBIT /?CCL17
|
||
FSET PRSO,WEARBIT
|
||
PRINTR "You shove the sword into your sash."
|
||
?CCL17: PRINTR "The sword is already in your sash."
|
||
?CCL14: EQUAL? PRSA,V?TAKE \?CCL19
|
||
CALL2 HELD?,PRSO
|
||
ZERO? STACK \?CCL19
|
||
CALL1 ITAKE
|
||
EQUAL? STACK,TRUE-VALUE \TRUE
|
||
FSET SWORDS,WEARBIT
|
||
PRINTR "You take the sword and shove it into your sash."
|
||
?CCL19: EQUAL? PRSA,V?DRAW,V?PICK,V?USE /?PRD30
|
||
EQUAL? PRSA,V?TAKE \?PRD28
|
||
?PRD30: CALL2 HELD?,PRSO
|
||
ZERO? STACK \?CCL26
|
||
?PRD28: EQUAL? PRSA,V?PUT \FALSE
|
||
EQUAL? PRSI,HANDS \FALSE
|
||
?CCL26: FSET? PRSO,WEARBIT \?CCL37
|
||
FCLEAR PRSO,WEARBIT
|
||
PRINTR "Your skill with the sword is not great, but you are now as ready as you will ever be!"
|
||
?CCL37: PRINTR "You've already drawn your sword."
|
||
|
||
|
||
.FUNCT SEBASTIO-F:ANY:0:1,RARG,OW
|
||
EQUAL? RARG,M-SUBJ /FALSE
|
||
EQUAL? RARG,M-WINNER \?CCL5
|
||
EQUAL? PRSA,V?HELP \?CCL8
|
||
EQUAL? PRSO,ME \?CCL8
|
||
PRINTR """Ah, help!""he says with icy contempt.""Help a heretic pirate!"""
|
||
?CCL8: EQUAL? PRSA,V?HELLO \?CCL12
|
||
ICALL2 CTHE-PRINT,SEBASTIO
|
||
PRINTR " ignores your greeting."
|
||
?CCL12: EQUAL? PRSA,V?FIND \?CCL14
|
||
EQUAL? PRSO,ME,THIS \?CCL14
|
||
ZERO? YABU-QUESTION /?CCL19
|
||
CALL1 SPEAK-ONLY-TO-YABU
|
||
RSTACK
|
||
?CCL19: PRINTR """The Japans, pirate."" the priest says angrily."
|
||
?CCL14: EQUAL? PRSA,V?BE \?CCL21
|
||
EQUAL? PRSO,THIS \?CCL21
|
||
EQUAL? PRSI,JAPAN \?CCL21
|
||
ZERO? YABU-QUESTION /?CCL27
|
||
CALL1 SPEAK-ONLY-TO-YABU
|
||
RSTACK
|
||
?CCL27: PRINTR """Yes, Japan.Nippon,"" the priest says impatiently."
|
||
?CCL21: EQUAL? PRSA,V?WHO \?CCL29
|
||
EQUAL? PRSO,YOU \?CCL32
|
||
ZERO? YABU-QUESTION /?CCL35
|
||
CALL1 SPEAK-ONLY-TO-YABU
|
||
RSTACK
|
||
?CCL35: ICALL NEW-SDESC,SEBASTIO,STR?248
|
||
PRINTR """Father Sebastio.I'm from Portugal.I'm a Jesuit."""
|
||
?CCL32: EQUAL? PRSO,YABU,GLOBAL-DAIMYO \?CCL37
|
||
CALL NOUN-USED?,PRSO,W?DAIMYO
|
||
ZERO? STACK /?CCL37
|
||
PRINTI """The "
|
||
ICALL2 PRINTUNDER,STR?82
|
||
PRINTI " is Kasigi Yabu."
|
||
PRINT STR?249
|
||
CRLF
|
||
RTRUE
|
||
?CCL37: EQUAL? PRSO,OMI \?CCL41
|
||
ZERO? YABU-QUESTION /?CCL44
|
||
CALL1 SPEAK-ONLY-TO-YABU
|
||
RSTACK
|
||
?CCL44: PRINTC 34
|
||
FSET? OMI,NOTHEBIT /?CND45
|
||
PRINTI "Who told you about Kasigi Omi-san?"
|
||
?CND45: PRINTR "Kasigi Omi-san is the samurai in charge of this village.He is the Lord Yabu's nephew."""
|
||
?CCL41: EQUAL? PRSO,MURA \?CCL48
|
||
ZERO? YABU-QUESTION /?CCL51
|
||
CALL1 SPEAK-ONLY-TO-YABU
|
||
RSTACK
|
||
?CCL51: PRINTR """He is the headman of this village.He, at least, is a good Christian."""
|
||
?CCL48: PRINT STR?250
|
||
CRLF
|
||
RTRUE
|
||
?CCL29: EQUAL? PRSA,V?WHAT \?CCL53
|
||
EQUAL? PRSO,YOU \?CCL56
|
||
ICALL PERFORM,V?WHO,YOU
|
||
RTRUE
|
||
?CCL56: EQUAL? PRSO,GLOBAL-DAIMYO,YABU \?CCL58
|
||
CALL NOUN-USED?,PRSO,W?DAIMYO
|
||
ZERO? STACK /?CCL61
|
||
PRINTI """The "
|
||
ICALL2 PRINTUNDER,STR?82
|
||
PRINTI " is a feudal lord."
|
||
PRINT STR?249
|
||
CRLF
|
||
RTRUE
|
||
?CCL61: PRINTI """Who told you about "
|
||
ICALL2 DPRINT,YABU
|
||
PRINTR "?"""
|
||
?CCL58: EQUAL? PRSO,GLOBAL-SAMURAI \?CCL63
|
||
PRINTR """Warriors -- soldiers -- members of the warrior caste."""
|
||
?CCL63: PRINT STR?250
|
||
CRLF
|
||
RTRUE
|
||
?CCL53: ZERO? OMI-QUESTION /?CCL65
|
||
SET 'OW,WINNER
|
||
SET 'WINNER,OMI
|
||
ICALL PERFORM,PRSA,PRSO,PRSI
|
||
SET 'WINNER,OW
|
||
RTRUE
|
||
?CCL65: ZERO? YABU-QUESTION /?CCL67
|
||
EQUAL? PRSA,V?TRANSLATE \?CCL70
|
||
PRINTI "You harden your voice."""
|
||
ICALL2 PRINTUNDER,STR?251
|
||
PRINTI " First translate what I said.Now!""The priest reddens, and you see that the exchange has not gone unnoticed by the "
|
||
ICALL2 PRINTUNDER,STR?82
|
||
PRINTR "."
|
||
?CCL70: SET 'OW,WINNER
|
||
SET 'WINNER,YABU
|
||
ICALL PERFORM,PRSA,PRSO,PRSI
|
||
SET 'WINNER,OW
|
||
RTRUE
|
||
?CCL67: EQUAL? PRSA,V?TRANSLATE \?CCL72
|
||
PRINTR """It's not your place to command me, heretic!"""
|
||
?CCL72: EQUAL? PRSA,V?BE \?CCL74
|
||
EQUAL? PRSO,ME \?CCL74
|
||
EQUAL? PRSI,HERETIC,PIRATE \?CCL79
|
||
CALL1 P-NEGATIVE?
|
||
ZERO? STACK /?CCL79
|
||
PRINTR """Liar!"" storms the priest."
|
||
?CCL79: EQUAL? PRSI,BLACKTHORNE \?CCL83
|
||
PRINTR "He doesn't seem to have heard of you before."
|
||
?CCL83: PRINTR """I'll know who and what you are soon enough!"""
|
||
?CCL74: ICALL2 CTHE-PRINT,SEBASTIO
|
||
PRINTR " looks at you with contempt."
|
||
?CCL5: EQUAL? PRSA,V?EXAMINE \?CCL85
|
||
ICALL2 CTHE-PRINT,SEBASTIO
|
||
PRINTI " is a short, thick man with dark hair and a long beard.His robe is travel-stained and his boots are besmirched with mud.He is obviously a Portuguese or Spanish priest, and though his flowing robe is orange, there is no mistaking the "
|
||
IN? SEBASTIO-CRUCIFIX,PRSO \?CND86
|
||
PRINTI "crucifix and "
|
||
?CND86: PRINTR "rosary at his belt, or the cold hostility on his face."
|
||
?CCL85: EQUAL? PRSA,V?TELL-ABOUT \?CCL89
|
||
EQUAL? PRSO,SEBASTIO \?CCL89
|
||
EQUAL? PRSI,STRAIT-OF-MAGELLAN \?CCL89
|
||
EQUAL? YABU-QUESTION,4 \?CCL89
|
||
ICALL PERFORM,PRSA,YABU,PRSI
|
||
RTRUE
|
||
?CCL89: EQUAL? PRSA,V?ANSWER,V?REPLY \?CCL95
|
||
PRINTI """That's no response, pirate!"" rages "
|
||
ICALL2 THE-PRINT,SEBASTIO
|
||
PRINTR "."
|
||
?CCL95: EQUAL? PRSA,V?BOW \?CCL97
|
||
PRINTR """You learn fast, pirate!"" he says, surprised, but he doesn't return your bow."
|
||
?CCL97: EQUAL? PRSA,V?THROW \?CCL99
|
||
EQUAL? PRSO,SEBASTIO-CRUCIFIX \?CCL99
|
||
EQUAL? PRSI,SEBASTIO /FALSE
|
||
?CCL99: CALL1 HOSTILE-VERB?
|
||
ZERO? STACK /FALSE
|
||
PRINTI "You "
|
||
FSET? BLACKTHORNE,SITTING \?CND105
|
||
ICALL1 B-STAND
|
||
PRINTI "storm to your feet, "
|
||
?CND105: EQUAL? PRSA,V?THROW \?CCL109
|
||
MOVE PRSO,HERE
|
||
PRINTI "throw "
|
||
ICALL1 THE-PRINT-PRSO
|
||
PRINTI " at"
|
||
JUMP ?CND107
|
||
?CCL109: EQUAL? PRSA,V?SPIT \?CCL111
|
||
PRINTI "spit at"
|
||
JUMP ?CND107
|
||
?CCL111: EQUAL? PRSA,V?KICK \?CCL113
|
||
PRINTI "kick"
|
||
JUMP ?CND107
|
||
?CCL113: EQUAL? PRSA,V?PISS \?CCL115
|
||
PRINTI "piss on"
|
||
JUMP ?CND107
|
||
?CCL115: PRINTI "strike"
|
||
?CND107: PRINTC 32
|
||
ICALL2 THE-PRINT,SEBASTIO
|
||
PRINTI ", and he curses at you but turns the other cheek."
|
||
CRLF
|
||
IN? OMI,HERE \TRUE
|
||
IN? YABU,HERE \TRUE
|
||
ICALL QUEUE,I-BOW?,2
|
||
CRLF
|
||
PRINTR "Omi and Yabu look at each other in surprise."
|
||
|
||
|
||
.FUNCT OMI-F:ANY:0:1,RARG
|
||
EQUAL? RARG,M-SUBJ /FALSE
|
||
EQUAL? RARG,M-WINNER \?CCL5
|
||
EQUAL? PRSA,V?PISS,V?CURSE,V?FUCK /?CTR7
|
||
EQUAL? PRSA,V?NO,V?IYE \?CCL8
|
||
CALL2 QUEUED?,I-TAKE-CROOCQ
|
||
ZERO? STACK /?CCL8
|
||
?CTR7: SET 'WINNER,PLAYER
|
||
ICALL PERFORM,V?CURSE,OMI
|
||
RTRUE
|
||
?CCL8: CALL1 QUESTION-VERB?
|
||
ZERO? STACK \?CTR13
|
||
EQUAL? PRSA,V?ASK-ABOUT,V?TELL-ME-ABOUT \?CCL14
|
||
?CTR13: ICALL2 CTHE-PRINT,SEBASTIO
|
||
PRINTR " snaps, ""You're to answer questions, not ask them.""He says something to the samurai, who scowls."
|
||
?CCL14: ZERO? OMI-QUESTION /?CCL18
|
||
CALL1 I-DONT-KNOW?
|
||
ZERO? STACK /?CCL18
|
||
PRINTI """Liar!"" screams "
|
||
ICALL2 THE-PRINT,SEBASTIO
|
||
PRINTR ".""They use torture here.They can find out anything!"""
|
||
?CCL18: EQUAL? OMI-QUESTION,1 \?CCL22
|
||
EQUAL? PRSA,V?BE \?CCL22
|
||
EQUAL? PRSO,ME,BLACKTHORNE \?CCL22
|
||
ZERO? PRSI /?CCL22
|
||
CALL1 ENGLISH?
|
||
ZERO? STACK \?PRD31
|
||
CALL1 DUTCH?
|
||
ZERO? STACK /?CCL29
|
||
?PRD31: CALL1 P-NEGATIVE?
|
||
ZERO? STACK \?CCL29
|
||
SET 'QCONTEXT,FALSE-VALUE
|
||
SET 'OMI-QUESTION,0
|
||
ICALL2 CTHE-PRINT,SEBASTIO
|
||
CALL1 ENGLISH?
|
||
ZERO? STACK /?CCL36
|
||
PRINTI " steps back as though struck.""English!England"
|
||
JUMP ?CND34
|
||
?CCL36: PRINTI " nods suspiciously.""Dutch!Holland"
|
||
?CND34: PRINTR "!""He begins to explain to Omi but the samurai cuts him short."
|
||
?CCL29: ICALL2 SETUP-ANSWER,STR?254
|
||
ICALL1 SEBASTIO-SCREAMS
|
||
EQUAL? PRSI,BLACKTHORNE \?CCL39
|
||
PRINTR "I want to know your nationality, not your name, heretic!"""
|
||
?CCL39: PRINTR "I know you aren't what you say you are!"""
|
||
?CCL22: EQUAL? OMI-QUESTION,2 \?CCL41
|
||
EQUAL? PRSA,V?BE \?PRD45
|
||
EQUAL? PRSO,BLACKTHORNE,ME \?PRD45
|
||
EQUAL? PRSI,INTPP /?CTR40
|
||
?PRD45: EQUAL? PRSA,V?COME-FROM \?CCL41
|
||
?CTR40: EQUAL? PRSA,V?COME-FROM \?PRD53
|
||
EQUAL? PRSO,HOLLAND /?CTR50
|
||
?PRD53: CALL PP?,W?FROM,HOLLAND
|
||
ZERO? STACK /?CCL51
|
||
?CTR50: SET 'QCONTEXT,FALSE-VALUE
|
||
SET 'OMI-QUESTION,0
|
||
ICALL2 CTHE-PRINT,SEBASTIO
|
||
PRINTR "'s anger is obvious.""A Dutch pirate ship!"" he gasps.He says something haltingly to Omi-san."
|
||
?CCL51: ICALL1 SEBASTIO-SCREAMS
|
||
PRINTR "That's a Dutch pirate ship!Admit you're a heretic, murdering Dutchman!"""
|
||
?CCL41: EQUAL? OMI-QUESTION,3 \?CCL57
|
||
EQUAL? PRSA,V?YES,V?NO,V?IYE /?CTR56
|
||
EQUAL? PRSA,V?BE,V?HAI \?CCL57
|
||
?CTR56: EQUAL? PRSA,V?YES,V?HAI /?CTR63
|
||
EQUAL? PRSA,V?BE \?CCL64
|
||
EQUAL? PRSO,BLACKTHORNE,ME \?CCL64
|
||
EQUAL? PRSI,LEADER \?CCL64
|
||
CALL1 P-NEGATIVE?
|
||
ZERO? STACK \?CCL64
|
||
?CTR63: SET 'QCONTEXT,FALSE-VALUE
|
||
SET 'OMI-QUESTION,0
|
||
SET 'ORPHAN-ANSWER,FALSE-VALUE
|
||
ICALL2 CTHE-PRINT,SEBASTIO
|
||
EQUAL? PRSA,V?HAI \?CCL73
|
||
PRINTI " looks surprised at your knowledge of Japanese, and speaks rapidly and excitedly to Omi."
|
||
CRLF
|
||
JUMP ?CND71
|
||
?CCL73: PRINTI " translates for Omi, still digesting what you have told him."
|
||
CRLF
|
||
?CND71: CALL2 SCORE-OBJECT,OMI
|
||
RSTACK
|
||
?CCL64: ICALL2 SETUP-ANSWER,STR?254
|
||
ICALL2 CTHE-PRINT,SEBASTIO
|
||
PRINTR " screams, ""Coward, I know you're the leader!The villagers have already told me so!"""
|
||
?CCL57: ZERO? OMI-QUESTION /?CCL75
|
||
EQUAL? PRSA,V?SAY,V?REPLY \?CCL78
|
||
ICALL PERFORM,V?BE,ME,PRSO
|
||
RTRUE
|
||
?CCL78: ICALL2 CTHE-PRINT,OMI
|
||
PRINTR " doesn't respond, but the priest says, ""You'd better learn to be polite -- and find some manners quickly.Here they don't tolerate lack of manners.""His voice edges.""Hurry up and answer!"""
|
||
?CCL75: EQUAL? PRSA,V?STOP \?CCL80
|
||
ZERO? ANSWER-HAI? \?CCL80
|
||
EQUAL? HERE,VILLAGE-SQUARE \?CCL80
|
||
CALL2 QUEUED?,I-TAKE-CROOCQ
|
||
ZERO? STACK /?CCL80
|
||
SET 'QCONTEXT,OMI
|
||
PRINTR """Omi-san says, you agree to behave?You will obey all orders?"""
|
||
?CCL80: EQUAL? PRSA,V?HAI,V?YES \?CCL86
|
||
ZERO? ANSWER-HAI? \?CCL86
|
||
EQUAL? HERE,VILLAGE-SQUARE \?CCL86
|
||
CALL2 QUEUED?,I-TAKE-CROOCQ
|
||
ZERO? STACK /?CCL86
|
||
EQUAL? PRSA,V?YES \?CCL93
|
||
PRINTI """You must speak to him in Japanese, heretic!You must say 'hai.'"""
|
||
ICALL2 DPRINT,SEBASTIO
|
||
PRINTR " is sweating and nervous."
|
||
?CCL93: SET 'ANSWER-HAI?,TRUE-VALUE
|
||
SET 'DELAY-CNT,0
|
||
ICALL2 THIS-IS-IT,ORDERS
|
||
PRINTI """Omi-san says, lie down.Immediately."""
|
||
CRLF
|
||
CALL2 SCORE-OBJECT,VILLAGE-SQUARE
|
||
RSTACK
|
||
?CCL86: ICALL2 CTHE-PRINT,OMI
|
||
PRINTR " ignores you, for now."
|
||
?CCL5: EQUAL? PRSA,V?EXAMINE \?CCL95
|
||
PRINTR "The young man is a head shorter and much younger than you, his handsome face slightly pockmarked though.He wears breeches and clogs and a light kimono with two scabbarded swords stuck into the belt.One is daggerlike, the other, a two-handed killing sword, is long and slightly curved."
|
||
?CCL95: EQUAL? PRSA,V?WHO \?CCL97
|
||
ICALL2 CTHE-PRINT,OMI
|
||
PRINTR " is an ambitious young man.He serves his masters well, but himself better."
|
||
?CCL97: EQUAL? PRSA,V?THANK \?CCL99
|
||
IN? SEBASTIO,HERE \?CCL102
|
||
ICALL2 CTHE-PRINT,SEBASTIO
|
||
PRINTR " translates.Omi seems pleased by your politeness."
|
||
?CCL102: PRINTR "Omi responds with a curt bow, and says ""Domo."""
|
||
?CCL99: EQUAL? PRSA,V?PISS,V?CURSE,V?FUCK /?CTR103
|
||
EQUAL? PRSA,V?NO,V?IYE /?PRD108
|
||
CALL1 HOSTILE-VERB?
|
||
ZERO? STACK /?CCL104
|
||
?PRD108: CALL2 QUEUED?,I-TAKE-CROOCQ
|
||
ZERO? STACK /?CCL104
|
||
?CTR103: EQUAL? SCENE,S-PIT \FALSE
|
||
CALL1 CURSE-OMI
|
||
RSTACK
|
||
?CCL104: CALL1 HOSTILE-VERB?
|
||
ZERO? STACK \?CCL115
|
||
EQUAL? PRSA,V?STOP \FALSE
|
||
?CCL115: CALL2 REMOVES-YOUR-HEAD,OMI
|
||
RSTACK
|
||
|
||
|
||
.FUNCT SEBASTIO-SCREAMS:ANY:0:0
|
||
ICALL2 CTHE-PRINT,SEBASTIO
|
||
PRINTI " screams, ""Lying pig of a heretic!"
|
||
RTRUE
|
||
|
||
|
||
.FUNCT REMOVES-YOUR-HEAD:ANY:1:1,WHO
|
||
CALL2 JIGS-UP?,J-HEAD
|
||
ZERO? STACK /TRUE
|
||
ICALL2 CTHE-PRINT,WHO
|
||
PRINTI " responds to your feeble attack by removing your head."
|
||
CRLF
|
||
CALL1 JIGS-UP
|
||
RSTACK
|
||
|
||
|
||
.FUNCT GENERIC-MAN-F:ANY:2:2,R,F
|
||
PRINTI "You'll have to be more specific."
|
||
CRLF
|
||
RETURN ROOMS
|
||
|
||
|
||
.FUNCT MURA-F:ANY:0:1,RARG
|
||
EQUAL? RARG,M-WINNER \?CCL3
|
||
EQUAL? PRSA,V?TAKE \?CCL6
|
||
IN? PRSO,PLAYER \?CCL6
|
||
FSET? PRSO,WEARBIT /?CCL6
|
||
SET 'WINNER,PLAYER
|
||
CALL PERFORM,V?GIVE,PRSO,MURA
|
||
RSTACK
|
||
?CCL6: EQUAL? PRSA,V?NO,V?IYE \?CCL11
|
||
EQUAL? QCONTEXT,MURA \?CCL11
|
||
EQUAL? SCENE,S-RODRIGUES \?CCL11
|
||
PRINTR "Mura replies in halting Portuguese, ""So sorry, Anjin-san, you must go."""
|
||
?CCL11: EQUAL? PRSA,V?TELL-ME-ABOUT,V?FIND \?CCL16
|
||
EQUAL? PRSO,ONNA \?CCL16
|
||
ICALL NEW-SDESC,ONNA,STR?255
|
||
ICALL REPLACE-SYNONYM,ONNA,W?ONNA,W?HAKU
|
||
PRINTI """Where's Onna?"" you ask. ""I want Onna!""Mura replies in heavily-accented Portuguese, """
|
||
ICALL2 PRINTUNDER,STR?256
|
||
PRINTR " mean 'woman.' Her name Haku."""
|
||
?CCL16: CALL1 WAKARIMASEN
|
||
RSTACK
|
||
?CCL3: EQUAL? RARG,FALSE-VALUE \FALSE
|
||
EQUAL? PRSA,V?EXAMINE \?CCL23
|
||
PRINTR "Mura is a short, wiry, middle-aged man.You realize there's more to him than the simple fisherman he appears to be."
|
||
?CCL23: EQUAL? PRSA,V?GIVE \?CCL25
|
||
EQUAL? PRSI,MURA \?CCL25
|
||
EQUAL? HERE,BATH-HOUSE \?CCL25
|
||
FSET? PRSO,WEARBIT /?CCL25
|
||
MOVE PRSO,MURA
|
||
PRINTI "Mura takes "
|
||
ICALL1 THE-PRINT-PRSO
|
||
PRINTR "."
|
||
?CCL25: EQUAL? PRSA,V?ATTACK,V?HIT \?CCL31
|
||
PRINTR "Mura is unarmed, but the moment you get within reach, he chops your elbow with the side of his hand and your arm hangs down, momentarily paralyzed.""Please excuse me, Captain-san,"" he says in very bad Portuguese."
|
||
?CCL31: EQUAL? PRSA,V?WHO \FALSE
|
||
PRINTR "Mura is the headman of the village of Anjiro."
|
||
|
||
|
||
.FUNCT BROWNS-F:ANY:0:1,RARG
|
||
EQUAL? RARG,M-SUBJ /FALSE
|
||
EQUAL? RARG,M-WINNER \?CCL5
|
||
EQUAL? HERE,MAIN-DECK-2 \?CCL8
|
||
EQUAL? SCENE,S-ESCAPE \?CCL8
|
||
SET 'WINNER,PLAYER
|
||
ICALL2 PERFORM,V?MIZU
|
||
RTRUE
|
||
?CCL8: PRINTI "The Browns are not under your orders."
|
||
CRLF
|
||
CALL1 END-QUOTE
|
||
RSTACK
|
||
?CCL5: EQUAL? PRSA,V?WHO \?CCL13
|
||
PRINTR "The Browns are Toranaga's samurai."
|
||
?CCL13: EQUAL? PRSA,V?EXAMINE \FALSE
|
||
PRINTR "They are all dressed in the Brown uniform."
|
||
|
||
|
||
.FUNCT GRAYS-F:ANY:0:1,RARG
|
||
EQUAL? RARG,M-SUBJ /FALSE
|
||
EQUAL? RARG,M-WINNER \?CCL5
|
||
PRINTI "The Grays ignore you."
|
||
CRLF
|
||
CALL1 END-QUOTE
|
||
RSTACK
|
||
?CCL5: EQUAL? PRSA,V?WHO \?CCL8
|
||
PRINTR "The Grays are Ishido's samurai."
|
||
?CCL8: EQUAL? PRSA,V?EXAMINE \FALSE
|
||
EQUAL? SCENE,S-PRISON \?CCL13
|
||
PRINTR "They are behaving more like escorts than guards."
|
||
?CCL13: PRINTR "They are all dressed in the Gray uniform."
|
||
|
||
|
||
.FUNCT MARIKO-DESC:ANY:2:2,RARG,OBJ
|
||
EQUAL? RARG,M-OBJDESC? \?CCL3
|
||
EQUAL? SCENE,S-SEPPUKU \?CCL6
|
||
EQUAL? HERE,TEA-HOUSE,FORECOURT /TRUE
|
||
?CCL6: EQUAL? SCENE,S-NINJA \FALSE
|
||
FSET? MARIKO,DEAD /TRUE
|
||
FSET? MARIKO,RMUNGBIT /TRUE
|
||
RFALSE
|
||
?CCL3: EQUAL? RARG,M-OBJDESC \FALSE
|
||
PRINTI "Mariko "
|
||
EQUAL? HERE,TEA-HOUSE \?CCL19
|
||
PRINTI "kneels here, facing the doorway."
|
||
RTRUE
|
||
?CCL19: EQUAL? HERE,FORECOURT \?CCL21
|
||
FSET? MARIKO,SITTING \?CCL24
|
||
PRINTI "kneels serenely in the center of the crimson coverlet."
|
||
RTRUE
|
||
?CCL24: PRINTI "is standing in the center of the main gate."
|
||
RTRUE
|
||
?CCL21: EQUAL? SCENE,S-NINJA \FALSE
|
||
PRINTI "lies "
|
||
FSET? MARIKO,DEAD \?CCL29
|
||
PRINTI "dead"
|
||
JUMP ?CND27
|
||
?CCL29: PRINTI "dying"
|
||
?CND27: PRINTI " on the floor."
|
||
RTRUE
|
||
|
||
|
||
.FUNCT MARIKO-F:ANY:0:1,RARG
|
||
EQUAL? RARG,M-SUBJ /FALSE
|
||
EQUAL? RARG,M-WINNER \?CCL5
|
||
FSET? MARIKO,DEAD /?CTR7
|
||
FSET? MARIKO,RMUNGBIT \?CCL8
|
||
?CTR7: PRINTR "Mariko can no longer respond."
|
||
?CCL8: EQUAL? PRSA,V?WHO,V?TELL-ME-ABOUT \?CCL12
|
||
EQUAL? PRSO,YOU,MARIKO \?CCL12
|
||
PRINTR """I am Lady Toda Mariko-noh-Buntaro.The priests know me as Lady Maria, as I am Christian."""
|
||
?CCL12: EQUAL? PRSA,V?WHAT,V?TELL-ME-ABOUT \?CCL16
|
||
EQUAL? PRSO,PROPHECY \?CCL16
|
||
EQUAL? HERE,MAPLE-GLADE \?CND19
|
||
PRINTI "Mariko asks permission of Toranaga, who nods."
|
||
?CND19: PRINTI """Six years ago a Chinese embassy came to the Taiko to try to settle the Japanese-Chinese-Korean war.A famous astrologer was among them.He forecast many things which have since come true.The Taiko asked him to predict the deaths of certain of his counselors.The astrologer said that Toranaga would die by the sword when he was middle-aged.Ishido, the famous conqueror of Korea, would die undiseased, an old man, his feet firm in the earth, the most famous man of his day.The Taiko himself would die in his bed, respected, revered, of old age, leaving a healthy son to follow him.At this time Yaemon had not yet been born, so that part of the prophecy has already come to pass."""
|
||
CRLF
|
||
CALL2 SCORE-OBJECT,PROPHECY
|
||
RSTACK
|
||
?CCL16: EQUAL? SCENE,S-MARIKO \?CCL22
|
||
EQUAL? PRSA,V?KONNICHI-WA \?PRD27
|
||
EQUAL? PRSO,ROOMS /?CTR24
|
||
?PRD27: EQUAL? PRSA,V?NIHON-GO-GA \?CCL25
|
||
EQUAL? PRSO,HANASE-MASEN \?CCL25
|
||
?CTR24: FSET? MAPLE-GLADE,SCOREBIT \FALSE
|
||
SET 'WINNER,PLAYER
|
||
ICALL PERFORM,V?KONNICHI-WA,MARIKO
|
||
RTRUE
|
||
?CCL25: EQUAL? QCONTEXT,MARIKO \?CCL36
|
||
EQUAL? PRSA,V?LEARN,V?TRAIN,V?TEACH \?CCL36
|
||
CALL1 PAST-TENSE?
|
||
ZERO? STACK /?CCL36
|
||
EQUAL? PRSS,DOMINGO \?PRD44
|
||
EQUAL? PRSO,ME /?CTR41
|
||
?PRD44: EQUAL? PRSO,PRISON,DOMINGO \?CCL42
|
||
?CTR41: CALL1 HOW-I-LEARNED
|
||
RSTACK
|
||
?CCL42: PRINTR "She doesn't seem to believe you."
|
||
?CCL36: EQUAL? PRSA,V?TEACH \?CCL48
|
||
EQUAL? PRSO,ME \?CCL48
|
||
EQUAL? PRSI,JAPANESE \?CCL48
|
||
PRINTR """If my master wishes,"" she answers, turning to Toranaga.They converse for a while.""My Master says that only a few bar -- foreigners have been able to learn our language, and these are all priests.But he would like to be able to talk to you directly, without the need for an interpreter.He will consider this request."""
|
||
?CCL48: EQUAL? PRSA,V?WHO,V?TELL-ME-ABOUT \?CCL53
|
||
EQUAL? PRSO,YAEMON \?CCL53
|
||
ICALL NEW-SDESC,YAEMON,STR?257
|
||
PRINTR """This is the Heir, the only son of the Taiko.His name is Yaemon."""
|
||
?CCL53: EQUAL? PRSA,V?WHO,V?TELL-ME-ABOUT \?CCL57
|
||
EQUAL? PRSO,YOU,MARIKO \?CCL57
|
||
PRINTR """My name is Toda Mariko noh-Buntaro.I am a 'senhora,' not a 'senhorita,' if you please."""
|
||
?CCL57: CALL1 QUESTION-VERB?
|
||
ZERO? STACK \?CTR60
|
||
EQUAL? PRSA,V?ASK-ABOUT,V?TELL-ME-ABOUT \?CCL61
|
||
?CTR60: PRINTI """Lord Toranaga has instructed me to say that "
|
||
EQUAL? LG-CREWMEN,PRSO,PRSI \?CCL66
|
||
PRINTR "your crewmen are being treated well.They will given a place to live, and to learn to be civilized."""
|
||
?CCL66: PRINTR "you will please confine yourself to answering questions only, for the moment.""Then she says, ""I'm sure, if you are patient, Pilot-Captain B'ackthon, that you'll be given an opportunity to ask anything you wish later."""
|
||
?CCL61: CALL1 JAPANESE-VERB?
|
||
ZERO? STACK /?CCL68
|
||
PRINTR """If you will excuse me, senhor, my Master orders me to say your accent is a little wrong.""She repeats the word several times slowly, showing you how to say it."
|
||
?CCL68: CALL1 I-DONT-UNDERSTAND
|
||
RSTACK
|
||
?CCL22: EQUAL? PRSA,V?THOU \?CCL70
|
||
CALL1 I-LOVE-YOU
|
||
RSTACK
|
||
?CCL70: EQUAL? PRSA,V?TELL-ME-ABOUT \?CCL72
|
||
EQUAL? PRSO,SUICIDE \?CCL75
|
||
PRINTR """If the shame is too great, or if our liege Lord commands, we take our lives.I have been trained to do so, as have all samurai."""
|
||
?CCL75: EQUAL? PRSO,KIYAMA \?CCL77
|
||
PRINTI """Lord Kiyama is a member of the Council of Regents, and the most powerful of the Christian daimyos."""
|
||
CRLF
|
||
JUMP ?CND73
|
||
?CCL77: EQUAL? SCENE,S-NINJA \?CND73
|
||
EQUAL? PRSO,YABU \?CCL81
|
||
PRINTI """He is very angry with me for confronting Lord Ishido, and even angrier that I did not go through with my seppuku, but that was my "
|
||
ICALL2 PRINTUNDER,STR?258
|
||
PRINTR ", Anjin-san."""
|
||
?CCL81: EQUAL? PRSO,ACHIKO \?CND73
|
||
PRINTR """Her grandfather-in-law, Lord Kiyama, opposes Lord Toranaga.He has disowned her for her presumption in joining us."""
|
||
?CND73: PRINTR """I cannot tell you anything more, Anjin-san.So sorry."""
|
||
?CCL72: EQUAL? PRSA,V?STOP,V?KINJIRU \?CCL84
|
||
EQUAL? SCENE,S-SEPPUKU \?CCL87
|
||
ZERO? MARIKO-WON-FLAG /?CCL90
|
||
PRINTR "She doesn't respond, or even notice you.She's almost in a trance."
|
||
?CCL90: PRINTI """No, Anjin-san.I must obey the orders of Lord Toranaga.If I cannot, I must commit "
|
||
ICALL2 PRINTUNDER,STR?259
|
||
PRINTR " to expunge the shame.Only if Lord Ishido relents and allows me to obey my liege-lord may I stop."""
|
||
?CCL87: CALL1 I-DONT-UNDERSTAND
|
||
RSTACK
|
||
?CCL84: EQUAL? PRSA,V?FIND \?CCL92
|
||
EQUAL? PRSO,SECRET-ROOM-DOOR \?CCL92
|
||
PRINTR """I don't know about any secret doors,"" she says, puzzled."
|
||
?CCL92: EQUAL? PRSA,V?FIND \?CCL96
|
||
EQUAL? PRSO,SECRET-REDOUBT-DOOR \?CCL96
|
||
PRINTR """It's in my room, Anjin-san!"""
|
||
?CCL96: EQUAL? PRSA,V?FOLLOW,V?LEAVE,V?ISOGI /?CTR99
|
||
EQUAL? PRSA,V?WALK \?CCL100
|
||
EQUAL? P-WALK-DIR,P?EAST,P?NORTH,P?OUT \?CCL100
|
||
?CTR99: EQUAL? SCENE,S-NINJA \?CCL107
|
||
CALL1 MARIKO-FOLLOW-ME
|
||
RSTACK
|
||
?CCL107: CALL1 I-DONT-UNDERSTAND
|
||
RSTACK
|
||
?CCL100: EQUAL? PRSA,V?LOVE,V?THOU \?CCL109
|
||
CALL1 I-LOVE-YOU
|
||
RSTACK
|
||
?CCL109: EQUAL? PRSA,V?YES,V?HAI \?CCL111
|
||
EQUAL? HERE,WAREHOUSE \?CCL114
|
||
SET 'QCONTEXT,FALSE-VALUE
|
||
MOVE LARGE-KNIFE,BLACKTHORNE
|
||
MOVE SMALL-KNIFE,BLACKTHORNE
|
||
PRINTR """Good!"" she responds.She turns to Toranaga.""My Master says you should be armed.""She hands you a knife.""Better, give me two,"" you respond, and Toranaga agrees.You slide the large one into your sash and tie the small one, haft downwards, to your forearm.""My Master asks, do all Englishmen carry knives secretly in their sleeves like that?""
|
||
|
||
""No, but most seamen do.""Now you are ready.Mariko stares at the wharf, then commits herself.
|
||
|
||
""Follow me!"""
|
||
?CCL114: EQUAL? HERE,WHARF,MAIN-DECK-2 \?CCL116
|
||
EQUAL? QCONTEXT,MARIKO \?CCL116
|
||
SET 'QCONTEXT,FALSE-VALUE
|
||
PRINTR """That is good,"" she replies."
|
||
?CCL116: EQUAL? HERE,PRIVATE-QUARTERS \FALSE
|
||
ZERO? MARIKO-PLAN? /FALSE
|
||
EQUAL? QCONTEXT,MARIKO \FALSE
|
||
INC 'MARIKO-PLAN?
|
||
EQUAL? MARIKO-PLAN?,2 \?CCL126
|
||
SET 'QCONTEXT,MARIKO
|
||
ICALL2 THIS-IS-IT,YABU
|
||
PRINTR """Do you think he plans to betray us?"""
|
||
?CCL126: GRTR? MARIKO-PLAN?,2 \FALSE
|
||
SET 'QCONTEXT,FALSE-VALUE
|
||
FSET? CELLARS,SCOREBIT \?CCL131
|
||
PRINT STR?260
|
||
CRLF
|
||
RTRUE
|
||
?CCL131: PRINT STR?261
|
||
CRLF
|
||
RTRUE
|
||
?CCL111: EQUAL? PRSA,V?NO,V?IYE \?CCL133
|
||
EQUAL? HERE,WAREHOUSE \?CCL136
|
||
PRINTR """If I am in danger, it is no matter, I am samurai."""
|
||
?CCL136: EQUAL? HERE,WHARF,MAIN-DECK-2 \?CCL138
|
||
EQUAL? QCONTEXT,MARIKO \?CCL138
|
||
SET 'QCONTEXT,FALSE-VALUE
|
||
PRINTR """Then the danger is greater, but we must continue,"" she replies."
|
||
?CCL138: EQUAL? HERE,PRIVATE-QUARTERS \FALSE
|
||
ZERO? MARIKO-PLAN? /FALSE
|
||
EQUAL? QCONTEXT,MARIKO \FALSE
|
||
INC 'MARIKO-PLAN?
|
||
EQUAL? MARIKO-PLAN?,2 \?CCL148
|
||
SET 'QCONTEXT,MARIKO
|
||
PRINT STR?262
|
||
CRLF
|
||
RTRUE
|
||
?CCL148: GRTR? MARIKO-PLAN?,2 \FALSE
|
||
SET 'QCONTEXT,FALSE-VALUE
|
||
PRINTR """We're safe now."""
|
||
?CCL133: EQUAL? PRSA,V?WALK,V?CLIMB-UP,V?CLIMB-FOO \?CCL152
|
||
IN? MARIKO,SIDE-FISSURE \?CCL152
|
||
PRINTR """I can't make it, Anjin-san!I'm sliding!"""
|
||
?CCL152: EQUAL? PRSA,V?HOLD-ON \?PRD160
|
||
EQUAL? PRSO,ROOMS,ME /?PRD158
|
||
?PRD160: EQUAL? PRSA,V?TAKE,V?REACH-FOR \?CCL156
|
||
EQUAL? PRSO,ME \?CCL156
|
||
?PRD158: IN? MARIKO,SIDE-FISSURE \?CCL156
|
||
IN? PLAYER,SIDE-FISSURE \?CCL167
|
||
PRINTR """I'm trying, Anjin-san, but the mud is slippery!"""
|
||
?CCL167: PRINTR """I can't reach you, Anjin-san!"""
|
||
?CCL156: EQUAL? PRSA,V?BATHE \?CCL169
|
||
EQUAL? PRSO,ME \?CCL169
|
||
EQUAL? SCENE,S-JOURNEY \?CCL174
|
||
IN? BLACKTHORNE,YOKOSE-BATHTUB \?CCL177
|
||
SET 'WINNER,BLACKTHORNE
|
||
ICALL PERFORM,V?BATHE,ME
|
||
RTRUE
|
||
?CCL177: PRINTR """You aren't in the tub yet, Anjin-san!"""
|
||
?CCL174: PRINTR """While you may need a bath, Anjin-san, there are no facilities!"""
|
||
?CCL169: EQUAL? PRSA,V?BETRAY \?CCL179
|
||
EQUAL? PRSO,YABU \?CCL179
|
||
SET 'WINNER,PLAYER
|
||
ICALL PERFORM,V?TELL-ABOUT,MARIKO,YABU
|
||
RTRUE
|
||
?CCL179: CALL1 I-DONT-UNDERSTAND
|
||
RSTACK
|
||
?CCL5: EQUAL? PRSA,V?EXAMINE \?CCL183
|
||
EQUAL? SCENE,S-SEPPUKU \?CCL186
|
||
EQUAL? HERE,TEA-HOUSE \?CCL186
|
||
CALL1 SEPPUKU-EXAMINE-MARIKO
|
||
RSTACK
|
||
?CCL186: EQUAL? SCENE,S-NINJA \?CCL190
|
||
CALL1 EXAMINE-MARIKO
|
||
RSTACK
|
||
?CCL190: PRINT STR?263
|
||
PRINTR " and if you put both hands around her waist, your fingers would touch.She wears no jewelry of any kind, except silver pins in her hair."
|
||
?CCL183: EQUAL? PRSA,V?WHO \?CCL192
|
||
PRINTR "Lady Toda Mariko is the wife of Buntaro.She speaks fluent Portuguese and Latin, and is a Christian."
|
||
?CCL192: EQUAL? PRSA,V?BE \?CCL194
|
||
EQUAL? PRSO,YABU \?CCL194
|
||
EQUAL? PRSI,TRAITOR \?CCL194
|
||
ICALL PERFORM,V?TELL-ABOUT,MARIKO,YABU
|
||
RTRUE
|
||
?CCL194: EQUAL? PRSA,V?BLESS \?CCL199
|
||
FSET? MARIKO,RMUNGBIT \FALSE
|
||
PRINTI "You make the sign of the cross over her and say the sacred Latin words that are necessary, though no sound comes from your mouth.The others watch you.When you are done, you fight to your feet again and stand upright."
|
||
CRLF
|
||
CALL2 SCORE-OBJECT,MARIKO
|
||
RSTACK
|
||
?CCL199: EQUAL? PRSA,V?WALK-TO \?CCL204
|
||
FSET? MARIKO,RMUNGBIT \FALSE
|
||
FSET? BLACKTHORNE,SITTING \FALSE
|
||
ICALL1 B-STAND
|
||
PRINTR "Painfully you drag yourself closer to her."
|
||
?CCL204: EQUAL? PRSA,V?RUB \?CCL211
|
||
FSET? MARIKO,RMUNGBIT \?CCL211
|
||
ICALL PERFORM,V?EXAMINE,MARIKO
|
||
RTRUE
|
||
?CCL211: EQUAL? PRSA,V?HELP,V?STOP \?CCL215
|
||
EQUAL? SCENE,S-SEPPUKU,S-NINJA,S-QUAKE \FALSE
|
||
ICALL PERFORM,V?TAKE,MARIKO
|
||
RTRUE
|
||
?CCL215: EQUAL? PRSA,V?TAKE \?CCL220
|
||
EQUAL? PRSO,MARIKO \?CCL220
|
||
EQUAL? SCENE,S-NINJA \?CCL225
|
||
CALL1 NINJA-TAKE-MARIKO
|
||
RSTACK
|
||
?CCL225: EQUAL? SCENE,S-SEPPUKU \FALSE
|
||
CALL1 SEPPUKU-TAKE-MARIKO
|
||
RSTACK
|
||
?CCL220: EQUAL? SCENE,S-SEPPUKU \?CCL229
|
||
EQUAL? HERE,FORECOURT \?CCL229
|
||
ZERO? MARIKO-WON-FLAG \?CCL229
|
||
CALL1 PASSIVE-VERB?
|
||
ZERO? STACK /?CTR234
|
||
CALL1 SPEAKING-VERB?
|
||
ZERO? STACK \?CTR234
|
||
CALL1 JAPANESE-VERB?
|
||
ZERO? STACK /?CCL235
|
||
?CTR234: EQUAL? PRSA,V?TELL \?CND239
|
||
ICALL1 END-QUOTE
|
||
?CND239: CALL JIGS-UP?,J-SEPPUKU,STR?264
|
||
ZERO? STACK /TRUE
|
||
PRINTI "You interrupt the ceremony."
|
||
CALL1 INTERRUPTED-SEPPUKU
|
||
RSTACK
|
||
?CCL235: EQUAL? PRSA,V?BOW \FALSE
|
||
PRINTR "You bow to Mariko in respect for her courage."
|
||
?CCL229: EQUAL? PRSA,V?KISS,V?FUCK,V?LOVE \?CCL247
|
||
FSET? MARIKO,DEAD /?CTR249
|
||
FSET? MARIKO,RMUNGBIT \?CCL250
|
||
?CTR249: PRINTR "You kiss her lightly on the lips."
|
||
?CCL250: EQUAL? HERE,TEA-HOUSE \?CCL254
|
||
PRINTR "Mariko kisses you lightly and sadly."
|
||
?CCL254: GRTR? SCENE,S-ESCAPE /?CCL256
|
||
PRINTR "She refuses your advances."
|
||
?CCL256: PRINTR """This is not the time or the place, Anjin-san!"" she replies in Latin, ""though truly I love thee."""
|
||
?CCL247: EQUAL? PRSA,V?TELL-ABOUT \?CCL258
|
||
EQUAL? PRSO,MARIKO \?CCL258
|
||
EQUAL? SCENE,S-MARIKO \?CCL263
|
||
CALL1 MARIKO-TELL-MARIKO-ABOUT
|
||
RSTACK
|
||
?CCL263: EQUAL? PRSI,YABU,LG-YABU,LG-NINJA \?CCL265
|
||
FSET? CELLARS,SCOREBIT /?CCL265
|
||
SET 'MARIKO-PLAN?,3
|
||
SET 'QCONTEXT,FALSE-VALUE
|
||
PRINT STR?261
|
||
CRLF
|
||
RTRUE
|
||
?CCL265: PRINTI "Mariko seems very interested as you tell her about "
|
||
ICALL1 THE-PRINT-PRSI
|
||
PRINTR ", watching you with demurely lowered eyes."
|
||
?CCL258: EQUAL? PRSA,V?SHOOT \?CCL269
|
||
EQUAL? PRSO,PISTOL \?CCL269
|
||
EQUAL? PRSI,MARIKO \?CCL269
|
||
IN? NINJA,HERE \?CCL269
|
||
CALL JIGS-UP?,J-KILL-MARIKO,STR?265
|
||
ZERO? STACK /TRUE
|
||
CALL2 JIGS-UP,STR?266
|
||
RSTACK
|
||
?CCL269: EQUAL? PRSA,V?FOLLOW \?CCL278
|
||
IN? MARIKO,HERE /?CCL278
|
||
EQUAL? SCENE,S-SEPPUKU \?CCL283
|
||
EQUAL? HERE,TEA-HOUSE \?CCL286
|
||
CALL2 DO-WALK,P?OUT
|
||
RSTACK
|
||
?CCL286: EQUAL? HERE,FORMAL-GARDEN \FALSE
|
||
CALL2 DO-WALK,P?EAST
|
||
RSTACK
|
||
?CCL283: EQUAL? SCENE,S-NINJA \FALSE
|
||
IN? MARIKO,HERE /FALSE
|
||
LOC MARIKO
|
||
CALL2 NEXT-ROOM?,STACK
|
||
ZERO? STACK \FALSE
|
||
PRINTR "You've lost her!You can only assume the ninja are taking her to their secret door."
|
||
?CCL278: EQUAL? PRSA,V?PUSH \FALSE
|
||
EQUAL? PRSO,MARIKO \FALSE
|
||
EQUAL? PRSI,INTDIR \FALSE
|
||
SET 'WINNER,MARIKO
|
||
ICALL PERFORM,V?WALK,P-DIRECTION
|
||
SET 'WINNER,PLAYER
|
||
RTRUE
|
||
|
||
|
||
.FUNCT INTERRUPTED-SEPPUKU:ANY:0:0
|
||
CALL2 JIGS-UP,STR?267
|
||
RSTACK
|
||
|
||
|
||
.FUNCT I-LOVE-YOU:ANY:0:0
|
||
PRINTR """Thou,"" she replies in Latin, your private language of love. ""I love thee!"""
|
||
|
||
|
||
.FUNCT I-DONT-UNDERSTAND:ANY:0:0
|
||
PRINTR """I don't understand, Anjin-san."""
|
||
|
||
|
||
.FUNCT YABU-DESC:ANY:2:2,RARG,OBJ
|
||
EQUAL? RARG,M-OBJDESC? \?CCL3
|
||
EQUAL? SCENE,S-NINJA \?CCL6
|
||
EQUAL? HERE,OUTER-ROOM /TRUE
|
||
ZERO? FOLLOW-FLAG \TRUE
|
||
RFALSE
|
||
?CCL6: EQUAL? HERE,VILLAGE-SQUARE /TRUE
|
||
EQUAL? HERE,PEBBLED-BEACH,ROCKY-SHORE,CLIFF-PATH /TRUE
|
||
EQUAL? HERE,AROUND-HEADLAND /TRUE
|
||
IN? YABU,SKIFF /FALSE
|
||
RFALSE
|
||
?CCL3: EQUAL? RARG,M-OBJDESC \FALSE
|
||
EQUAL? HERE,VILLAGE-SQUARE \?CCL24
|
||
PRINTI "The "
|
||
ICALL2 PRINTUNDER,STR?82
|
||
PRINTI ", Kasigi Yabu, sits on the platform."
|
||
RTRUE
|
||
?CCL24: EQUAL? HERE,PEBBLED-BEACH,ROCKY-SHORE,CLIFF-PATH /?CTR25
|
||
EQUAL? HERE,AROUND-HEADLAND \?CCL26
|
||
?CTR25: PRINTI "Yabu, wet and impatient, watches you carefully."
|
||
RTRUE
|
||
?CCL26: ZERO? FOLLOW-FLAG /?CCL30
|
||
EQUAL? HERE,CELLARS \?CCL33
|
||
PRINTI "Yabu looks nervously into the shadows."
|
||
RTRUE
|
||
?CCL33: PRINTI "Yabu is walking away from you."
|
||
RTRUE
|
||
?CCL30: PRINTI "Yabu sits impatiently, facing you."
|
||
RTRUE
|
||
|
||
|
||
.FUNCT YABU-F:ANY:0:1,RARG
|
||
EQUAL? RARG,M-SUBJ /FALSE
|
||
EQUAL? RARG,M-WINNER \?CCL5
|
||
EQUAL? SCENE,S-YABU \?CCL8
|
||
CALL1 YABU-TALK-TO-YABU
|
||
RSTACK
|
||
?CCL8: EQUAL? SCENE,S-NINJA \?CCL10
|
||
CALL1 NINJA-TALK-TO-YABU
|
||
RSTACK
|
||
?CCL10: EQUAL? HERE,CLIFF-PATH \?CCL12
|
||
EQUAL? PRSA,V?LOOK,V?WALK \?CCL12
|
||
SET 'WINNER,BLACKTHORNE
|
||
ICALL PERFORM,V?POINT,RODRIGUES
|
||
SET 'WINNER,YABU
|
||
RTRUE
|
||
?CCL12: CALL1 YABU-WAKARIMASEN
|
||
RSTACK
|
||
?CCL5: EQUAL? PRSA,V?EXAMINE \?CCL16
|
||
PRINTI "Kasigi Yabu is short, squat, and dominating."
|
||
EQUAL? HERE,VILLAGE-SQUARE \?CND17
|
||
PRINTI "There's arrogance and cruelty in the "
|
||
ICALL2 PRINTUNDER,STR?268
|
||
PRINTI " face, you think."
|
||
GRTR? YABU-CNT,0 \?CND19
|
||
PRINTI "He seems irritated and impatient.The priest's Japanese isn't fluent, you realize, as Yabu seems to ask for another word, a clearer word."
|
||
?CND19: PRINTR "He kneels comfortably, his heels tucked neatly under him, flanked by four lieutenants, one of whom is Kasigi Omi, his nephew and vassal.They all wear silk kimonos and, over them, ornate surcoats with wide belts."
|
||
?CND17: CRLF
|
||
RTRUE
|
||
?CCL16: EQUAL? YABU-QUESTION,4 \?CCL22
|
||
EQUAL? PRSA,V?TELL-ABOUT \?CCL22
|
||
EQUAL? PRSO,YABU \?CCL22
|
||
EQUAL? PRSI,STRAIT-OF-MAGELLAN \?CCL22
|
||
SET 'WINNER,YABU
|
||
ICALL PERFORM,V?COME-FROM,STRAIT-OF-MAGELLAN
|
||
SET 'WINNER,PLAYER
|
||
RTRUE
|
||
?CCL22: EQUAL? SCENE,S-NINJA \?CCL28
|
||
EQUAL? PRSA,V?TELL,V?ASK-ABOUT,V?TELL-ABOUT /?PRD31
|
||
EQUAL? PRSA,V?SAY \?CCL28
|
||
?PRD31: EQUAL? PRSO,YABU \?CCL28
|
||
EQUAL? HERE,STAIRS,SERVANTS-QUARTERS,CELLARS \FALSE
|
||
CALL1 NINJA-INTERRUPT-YABU
|
||
RSTACK
|
||
?CCL28: EQUAL? PRSA,V?WHO \?CCL38
|
||
PRINTR "Kasigi Yabu is chief of the Kasigi clan, Lord of Izu."
|
||
?CCL38: EQUAL? PRSA,V?FOLLOW \?CCL40
|
||
EQUAL? SCENE,S-VOYAGE \?CCL43
|
||
PRINTR "You are hard put to keep up with him, but you force yourself, in spite of your weakness."
|
||
?CCL43: EQUAL? SCENE,S-NINJA \FALSE
|
||
CALL2 QUEUED?,I-YABU-LEAVES
|
||
ZERO? STACK \FALSE
|
||
CALL1 NINJA-FOLLOW-YABU
|
||
RSTACK
|
||
?CCL40: EQUAL? PRSA,V?SHOOT \?CCL49
|
||
CALL JIGS-UP?,J-SHOOT-YABU,STR?269
|
||
ZERO? STACK /TRUE
|
||
CALL2 JIGS-UP,STR?270
|
||
RSTACK
|
||
?CCL49: CALL1 HOSTILE-VERB?
|
||
ZERO? STACK /FALSE
|
||
CALL2 REMOVES-YOUR-HEAD,YABU
|
||
RSTACK
|
||
|
||
|
||
.FUNCT GENERIC-YABU-F:ANY:2:2,R,F
|
||
IN? YABU,HERE \?CCL3
|
||
RETURN YABU
|
||
?CCL3: RETURN LG-YABU
|
||
|
||
|
||
.FUNCT LG-YABU-F:ANY:0:1,RARG
|
||
EQUAL? RARG,M-SUBJ /FALSE
|
||
EQUAL? RARG,M-WINNER /FALSE
|
||
EQUAL? PRSA,V?TELL,V?SAY \?CCL7
|
||
ICALL PERFORM,V?YELL-AT,YABU
|
||
ICALL1 END-QUOTE
|
||
EQUAL? PRSA,V?TELL \TRUE
|
||
RETURN M-FATAL
|
||
?CCL7: EQUAL? PRSA,V?EXAMINE \?CCL12
|
||
CALL2 QUEUED?,I-YABU-RETURNS
|
||
ZERO? STACK /?CCL15
|
||
PRINTR "Yabu is climbing back up the cliff."
|
||
?CCL15: IN? YABU,LEDGE-1 \?CCL17
|
||
PRINTR "Yabu is climbing down the cliff."
|
||
?CCL17: IN? YABU,LEDGE-2 \?CCL19
|
||
PRINTR "Yabu has just tumbled to the bottom of the cliff."
|
||
?CCL19: IN? YABU,LEDGE-3 \?CCL21
|
||
PRINTR "Yabu is resting at the bottom of the cliff."
|
||
?CCL21: IN? YABU,LEDGE-4 \FALSE
|
||
ZERO? YABU-WARNED? /?CCL26
|
||
PRINTR "Yabu is soaked from the rain and the spray, but alert and strong."
|
||
?CCL26: ZERO? YABU-RESIGNED? /?CCL28
|
||
PRINTR "Yabu is sitting composed and dignified on a sea-threatened rock, quietly awaiting his death."
|
||
?CCL28: PRINTR "Yabu is on the rocks, out of the surf."
|
||
?CCL12: EQUAL? PRSA,V?HELP \?CCL30
|
||
PRINTR "There is little you can do directly."
|
||
?CCL30: EQUAL? PRSA,V?BOW,V?ASK-ABOUT,V?HELLO /?CTR31
|
||
EQUAL? PRSA,V?SHOW,V?THANK \?CCL32
|
||
?CTR31: PRINT STR?271
|
||
CRLF
|
||
RTRUE
|
||
?CCL32: CALL1 PASSIVE-VERB?
|
||
ZERO? STACK /?CCL36
|
||
ICALL REDIRECT,LG-YABU,YABU
|
||
RTRUE
|
||
?CCL36: EQUAL? PRSA,V?LOWER,V?THROW,V?GIVE /?PRD40
|
||
EQUAL? PRSA,V?PUT \?CCL38
|
||
?PRD40: EQUAL? PRSI,LG-YABU /FALSE
|
||
?CCL38: PRINT STR?271
|
||
CRLF
|
||
RTRUE
|
||
|
||
|
||
.FUNCT ISHIDO-DESC:ANY:2:2,RARG,OBJ
|
||
EQUAL? RARG,M-OBJDESC? \?CCL3
|
||
EQUAL? SCENE,S-OCHIBA /TRUE
|
||
RFALSE
|
||
?CCL3: EQUAL? RARG,M-OBJDESC \FALSE
|
||
PRINTI "Ishido, tall, lean and autocratic, stands beside the platform."
|
||
RTRUE
|
||
|
||
|
||
.FUNCT GENERIC-SWORD-F:ANY:2:2,R,F
|
||
CALL2 HELD?,SWORDS
|
||
ZERO? STACK \?CTR2
|
||
CALL2 ACCESSIBLE?,SWORDS
|
||
ZERO? STACK /?CCL3
|
||
?CTR2: RETURN SWORDS
|
||
?CCL3: CALL2 HELD?,ISHIDO-SWORD
|
||
ZERO? STACK \?CTR6
|
||
CALL2 ACCESSIBLE?,ISHIDO-SWORD
|
||
ZERO? STACK /?CCL7
|
||
?CTR6: RETURN SWORDS
|
||
?CCL7: RETURN YABU-SWORDS
|
||
|
||
|
||
.FUNCT ISHIDO-F:ANY:0:1,RARG
|
||
EQUAL? RARG,M-SUBJ /FALSE
|
||
EQUAL? RARG,M-WINNER \?CCL5
|
||
EQUAL? PRSA,V?YES,V?HAI /?CTR7
|
||
CALL1 NOT-A-BARBARIAN?
|
||
ZERO? STACK /?CCL8
|
||
?CTR7: EQUAL? OCHIBA-QUESTION,2 \?CCL13
|
||
EQUAL? PRSA,V?YES,V?HAI \?CCL16
|
||
PRINTR """So, you are a barbarian, then!"" Ishido replies with glee."
|
||
?CCL16: SET 'OCHIBA-QUESTION,FALSE-VALUE
|
||
ICALL2 SCORE-OBJECT,GLOBAL-BARBARIAN
|
||
PRINTI """Ah, Lord General, you are right.Barbarians are often mad.But, so sorry, now I am samurai -- hatamoto."
|
||
ICALL2 PRINTUNDER,STR?272
|
||
PRINTI " Now I understand manners, please excuse me."
|
||
ICALL2 PRINTUNDER,STR?273
|
||
PRINTR """You know that the Japanese understand masculinity and pride, and honor them.
|
||
|
||
Ishido laughs nervously.""So, samurai Anjin-san, yes, I accept your apology.I apologize also."""
|
||
?CCL13: PRINTR """That remains to be seen, Anjin,"" replies Ishido."
|
||
?CCL8: EQUAL? PRSA,V?NO,V?IYE \?CCL18
|
||
PRINTR "He sniffs, as if to imply he doesn't believe you."
|
||
?CCL18: CALL1 WAKARIMASEN
|
||
RSTACK
|
||
?CCL5: EQUAL? PRSA,V?EXAMINE \?CCL20
|
||
PRINTI "Ishido Kazunari is tall, lean, swarthy and very tough, a little younger than Toranaga."
|
||
PRINT STR?274
|
||
CRLF
|
||
RTRUE
|
||
?CCL20: EQUAL? PRSA,V?WHO \?CCL22
|
||
PRINTR "Ishido Kazunari is Commander of the garrison of Osaka Castle, Commander of the Heir's Bodyguard, Chief General of the Armies of the West, Conquerer of Korea, member of the Council of Regents, and Inspector General of the Armies of the late Taiko."
|
||
?CCL22: EQUAL? PRSA,V?TELL-ABOUT \?CCL24
|
||
EQUAL? PRSO,ISHIDO \?CCL24
|
||
EQUAL? PRSI,TORANAGA,KIRITSUBO,TORANAGA-IN-DRAG \?CCL24
|
||
ZERO? SEEN-TORANAGA? /?CCL30
|
||
PRINTR "You try to tell Ishido about Toranaga and Kiri switching places, but your Japanese isn't good enough, and he is merely annoyed."
|
||
?CCL30: PRINTR "Ishido seems rather uninterested in your ungrammatical babblings."
|
||
?CCL24: CALL1 HOSTILE-VERB?
|
||
ZERO? STACK /FALSE
|
||
CALL2 JIGS-UP?,J-ATTACK-ISHIDO
|
||
ZERO? STACK /TRUE
|
||
CALL2 JIGS-UP,STR?275
|
||
RSTACK
|
||
|
||
|
||
.FUNCT GENERIC-TORANAGA-F:ANY:2:2,R,F
|
||
IN? TORANAGA-IN-DRAG,HERE \?CCL3
|
||
RETURN TORANAGA-IN-DRAG
|
||
?CCL3: RETURN TORANAGA
|
||
|
||
|
||
.FUNCT TORANAGA-DESC:ANY:2:2,RARG,OBJ
|
||
EQUAL? RARG,M-OBJDESC? \?CCL3
|
||
EQUAL? SCENE,S-TORANAGA \FALSE
|
||
IN? FALCON,TORANAGA /TRUE
|
||
RFALSE
|
||
?CCL3: ZERO? SEEN-FALCON? \?CND9
|
||
SET 'SEEN-FALCON?,TRUE-VALUE
|
||
ICALL MARGINAL-PIC,P-FALCON,FALSE-VALUE
|
||
?CND9: PRINTI "Toranaga is repairing a broken wing feather of a hooded falcon as delicately as any ivory carver."
|
||
RTRUE
|
||
|
||
|
||
.FUNCT TORANAGA-F:ANY:0:1,RARG
|
||
EQUAL? RARG,M-SUBJ /FALSE
|
||
EQUAL? RARG,M-WINNER \?CCL5
|
||
EQUAL? SCENE,S-TORANAGA \?CCL8
|
||
EQUAL? PRSA,V?TEKI \?CND6
|
||
RFALSE
|
||
?CCL8: EQUAL? SCENE,S-MARIKO \?CCL12
|
||
EQUAL? PRSA,V?KONNICHI-WA \?PRD16
|
||
EQUAL? PRSO,ROOMS /?CCL14
|
||
?PRD16: EQUAL? PRSA,V?NIHON-GO-GA \?CND6
|
||
EQUAL? PRSO,HANASE-MASEN \?CND6
|
||
?CCL14: SET 'WINNER,PLAYER
|
||
ICALL PERFORM,V?KONNICHI-WA,TORANAGA
|
||
RTRUE
|
||
?CCL12: EQUAL? SCENE,S-QUAKE \?CCL22
|
||
IN? TORANAGA,PLATEAU \?CND6
|
||
IN? MARIKO,SIDE-FISSURE \?CND6
|
||
PRINTR "Toranaga crawls closer to you, trying to help."
|
||
?CCL22: EQUAL? SCENE,S-AFTERMATH \?CCL28
|
||
CALL1 AFTERMATH-ANSWERS
|
||
ZERO? STACK \TRUE
|
||
?CCL28: EQUAL? PRSA,V?TELL-ME-ABOUT \?CND6
|
||
EQUAL? PRSO,LG-ERASMUS \?CND6
|
||
PRINTR """You will get your ship back in good time, Anjin-san."""
|
||
?CND6: PRINT STR?276
|
||
CRLF
|
||
RTRUE
|
||
?CCL5: EQUAL? PRSA,V?EXAMINE \?CCL35
|
||
PRINTR "Toranaga is a short man with a thick belly and a large nose.His eyebrows are thick and dark and his mustache and beard gray-flecked and sparse.Eyes dominate his face.He is fifty-eight and strong for his age."
|
||
?CCL35: EQUAL? PRSA,V?WHO \?CCL37
|
||
PRINTR "Yoshi Toranaga is Lord of the Kwanto and President of the Council of Regents."
|
||
?CCL37: EQUAL? PRSA,V?YELL,V?YELL-AT,V?LAUGH \FALSE
|
||
CALL JIGS-UP?,J-LAUGH-AT-TORANAGA,STR?277
|
||
ZERO? STACK /TRUE
|
||
CALL2 JIGS-UP,STR?278
|
||
RSTACK
|
||
|
||
|
||
.FUNCT HIRO-MATSU-F:ANY:0:1,RARG
|
||
EQUAL? RARG,M-SUBJ /FALSE
|
||
EQUAL? RARG,M-WINNER \?CCL5
|
||
CALL1 WAKARIMASEN
|
||
RSTACK
|
||
?CCL5: EQUAL? PRSA,V?EXAMINE \?CCL7
|
||
PRINTR "He is tall for a Japanese, just under six feet, a bull-like man with heavy jowls.His military kimono is brown silk, stark but for five small Toranaga crests -- three interlocked bamboo sprays."
|
||
?CCL7: EQUAL? PRSA,V?WHO \FALSE
|
||
PRINTR "Lord Hiro-matsu, overlord of the provinces of Sagami and Kozuke, is Toranaga's most trusted general and advisor.He is an older man, stern and somewhat slow-witted, but immensely reliable.He is very good at killing, and customarily carries his killing sword in his hand instead of in his belt, symbol of his readiness to kill instantly to protect his liege lord."
|
||
|
||
|
||
.FUNCT VINCK-DESC:ANY:2:2,RARG,OBJ
|
||
EQUAL? RARG,M-OBJDESC? \?CCL3
|
||
EQUAL? SCENE,S-YOKOHAMA /TRUE
|
||
RFALSE
|
||
?CCL3: EQUAL? RARG,M-OBJDESC \FALSE
|
||
PRINTI "Vinck is here"
|
||
FSET? VINCK,DEAD \?CCL11
|
||
PRINTI ", his face frozen in a rictus of death."
|
||
RTRUE
|
||
?CCL11: PRINTC 46
|
||
RTRUE
|
||
|
||
|
||
.FUNCT VINCK-F:ANY:0:1,RARG
|
||
EQUAL? RARG,M-SUBJ /FALSE
|
||
EQUAL? RARG,M-WINNER \?CCL5
|
||
EQUAL? PRSA,V?HELLO \?CCL8
|
||
PRINTR "He greets you with as much enthusiasm as his weakened condition allows.He's the only man of the crew that you could call a friend."
|
||
?CCL8: EQUAL? PRSA,V?TELL-ME-ABOUT \?CCL10
|
||
EQUAL? PRSO,SPILLBERGEN \?CCL13
|
||
PRINTR """That glory-greedy bastard!He's responsible for this."""
|
||
?CCL13: EQUAL? PRSO,REEF \?CCL15
|
||
PRINTR """We'll never make it, by my mother!Look at those spines!""It's clear that Vinck is near panic."
|
||
?CCL15: EQUAL? PRSO,RUTTER,SECRET-RUTTER,GLOBAL-RUTTERS \?CCL17
|
||
PRINTR "An odd light enters Vinck's eyes as he answers.""Rutters?Aye, what about the rutters, eh?Maybe you'd better give them to me in case anything happens to you, right?""You know that Vinck would be Pilot if you were to die.He's your friend, but rutters!Rutters are beyond price."
|
||
?CCL17: EQUAL? PRSO,ROPER \?CCL19
|
||
PRINTR """That poxy merchant?Listen to him, and you'd think he was a Christian.Watch him, and you see his only god clinks in his strongboxes!"""
|
||
?CCL19: EQUAL? PRSO,ETA \FALSE
|
||
EQUAL? SCENE,S-YOKOHAMA \FALSE
|
||
PRINTR """Eters are the best heathen we've seen here.More like us than the other bastards.With them, fresh meat's no problem, or tallow -- they give us no trouble."""
|
||
?CCL10: EQUAL? PRSA,V?RAISE,V?REPAIR,V?LOWER \?CCL25
|
||
EQUAL? PRSO,FORESAILS /FALSE
|
||
?CCL25: CALL1 SEND-HIM-OUT?
|
||
ZERO? STACK /?CCL29
|
||
EQUAL? HERE,BELOW-DECKS \?CCL32
|
||
SET 'WINNER,PLAYER
|
||
ICALL PERFORM,V?SEND,VINCK,ROOMS
|
||
RTRUE
|
||
?CCL32: PRINTR """Pilot, I'm on watch now."""
|
||
?CCL29: EQUAL? HERE,BRIDGE-OF-ERASMUS \?CCL34
|
||
EQUAL? PRSA,V?HELP /?CTR33
|
||
EQUAL? PRSA,V?TURN,V?TAKE,V?STRAIGHTEN \?CCL34
|
||
EQUAL? PRSO,WHEEL \?CCL34
|
||
?CTR33: ZERO? WHEEL-SPINNING? /?CCL43
|
||
FSET? WHEEL,ONBIT \?CCL46
|
||
PRINTR """We've got it, Pilot!Hold on, for the love of God!"""
|
||
?CCL46: FSET WHEEL,ONBIT
|
||
SET 'SHIP-COURSE,P?FORE
|
||
PRINTR "Together you and Vinck grab the wheel and set her on course again, but she still bobs and twists drunkenly."
|
||
?CCL43: PRINTR "He helps for a few moments, then returns control to you."
|
||
?CCL34: EQUAL? SCENE,S-PIT \?CCL48
|
||
CALL1 HOSTILE-VERB?
|
||
ZERO? STACK \?CTR47
|
||
EQUAL? PRSA,V?STOP,V?SIT /?CTR47
|
||
EQUAL? PRSA,V?TAKE \?CCL48
|
||
EQUAL? PRSO,LADDER \?CCL48
|
||
?CTR47: ZERO? VINCK-PICKED? /?CCL58
|
||
PRINTR """I gave my word, Pilot."""
|
||
?CCL58: PRINTR "Vinck fights back as best he can."
|
||
?CCL48: EQUAL? PRSA,V?GIVE \?CCL60
|
||
EQUAL? PRSO,SHORT-STRAW \?CCL60
|
||
EQUAL? PRSI,ME \?CCL60
|
||
IN? SHORT-STRAW,VINCK \?CCL60
|
||
IN? LONG-STRAW,PLAYER \?CCL60
|
||
SET 'WINNER,PLAYER
|
||
ICALL PERFORM,V?TRADE,LONG-STRAW,VINCK
|
||
RTRUE
|
||
?CCL60: EQUAL? SCENE,S-PIT \?CCL67
|
||
EQUAL? PRSA,V?HELP \?CCL67
|
||
IN? OMI-SAMURAI,LADDER /?CTR66
|
||
CALL2 QUEUED?,I-LOSING-SAMURAI
|
||
ZERO? STACK /?CCL67
|
||
?CTR66: PRINTR "He tries to help, but he's not too effective."
|
||
?CCL67: EQUAL? PRSA,V?DROP,V?PUT-AWAY \?PRD76
|
||
EQUAL? PRSO,PISTOL /?CTR73
|
||
?PRD76: EQUAL? PRSA,V?GIVE \?CCL74
|
||
EQUAL? PRSO,PISTOL \?CCL74
|
||
EQUAL? PRSI,ME,BLACKTHORNE \?CCL74
|
||
?CTR73: PRINTR "He laughs, pointing the pistol in your face."
|
||
?CCL74: PRINTR "A weak assent is the only reply."
|
||
?CCL5: EQUAL? PRSA,V?EXAMINE,V?WHO \?CCL83
|
||
FSET? VINCK,DEAD \?CCL86
|
||
FSET? VINCK,RMUNGBIT \?CCL89
|
||
PRINTR "Vinck is dead, his face frozen in a grimace of rage."
|
||
?CCL89: PRINTR "He is staring at you as if frozen."
|
||
?CCL86: PRINTI "Johann Vinck is forty-three, toothless and hairless; the oldest man in the "
|
||
ICALL2 PRINTUNDER,STR?7
|
||
PRINTR "' crew.You've sailed with him before, and each of you knows the measure of the other.If there's any man of the crew you could call a friend, it's he."
|
||
?CCL83: EQUAL? PRSA,V?SEND \FALSE
|
||
EQUAL? PRSO,VINCK \FALSE
|
||
MOVE VINCK,ON-DECK
|
||
FCLEAR VINCK,NDESCBIT
|
||
PRINTI """Take the dawn watch, Vinck,"" you order.Vinck pulls himself painfully out of his bunk and goes out."
|
||
CRLF
|
||
IN? GINSEL,ON-DECK \TRUE
|
||
IN? MAETSUKKER,ON-DECK \TRUE
|
||
ICALL1 RESTART-STORM?
|
||
ICALL2 SCORE-OBJECT,MAETSUKKER
|
||
RTRUE
|
||
|
||
|
||
.FUNCT KIRITSUBO-F:ANY:0:1,RARG
|
||
EQUAL? RARG,M-SUBJ /FALSE
|
||
EQUAL? RARG,M-WINNER \?CCL5
|
||
EQUAL? PRSA,V?YES,V?HAI \?CCL8
|
||
ZERO? MARIKO-PLAN? /FALSE
|
||
EQUAL? HERE,PRIVATE-QUARTERS \FALSE
|
||
INC 'MARIKO-PLAN?
|
||
EQUAL? MARIKO-PLAN?,2 \?CCL16
|
||
PRINT STR?280
|
||
PRINTR "asks ""Do you think he plans to betray us?"""
|
||
?CCL16: EQUAL? MARIKO-PLAN?,3 \FALSE
|
||
PRINT STR?280
|
||
PRINTI "says "
|
||
PRINT STR?260
|
||
CRLF
|
||
RTRUE
|
||
?CCL8: EQUAL? PRSA,V?NO,V?IYE \?CCL20
|
||
ZERO? MARIKO-PLAN? /FALSE
|
||
EQUAL? HERE,PRIVATE-QUARTERS \FALSE
|
||
INC 'MARIKO-PLAN?
|
||
EQUAL? MARIKO-PLAN?,2 \?CCL28
|
||
PRINT STR?281
|
||
PRINT STR?262
|
||
CRLF
|
||
RTRUE
|
||
?CCL28: EQUAL? MARIKO-PLAN?,3 \FALSE
|
||
PRINT STR?280
|
||
PRINTR "says ""We're safe now."""
|
||
?CCL20: CALL1 WAKARIMASEN
|
||
RSTACK
|
||
?CCL5: EQUAL? PRSA,V?WHO \?CCL32
|
||
PRINTR "Lady Kiritsubo Toshiko is Matron of Toranaga's ladies-in-waiting, at fifty-three the oldest of the ladies of his court.She was once Toranaga's consort."
|
||
?CCL32: EQUAL? PRSA,V?EXAMINE \?CCL34
|
||
FSET? PRSO,SCOREBIT \?CCL37
|
||
ICALL REPLACE-SYNONYM,TORANAGA-IN-DRAG,W?KIRITSUBO,W?TORANAGA
|
||
SET 'SEEN-TORANAGA?,TRUE-VALUE
|
||
PRINTI "Everyone else is watching Sazuko, terrified that some harm may come to Toranaga's unborn child.Kiritsubo scuttles with surprising speed into the garden and inside the little hut.She vanishes for a moment, reappears, and darts into the litter, jerking the curtains closed.For an instant, your eyes meet.It is Toranaga!"
|
||
CRLF
|
||
CALL SCORE-OBJECT,KIRITSUBO,TORANAGA-IN-DRAG
|
||
RSTACK
|
||
?CCL37: PRINTR "She is a middle-aged woman, her hair gray-flecked, her waist thick, but her face sparkles with eternal joy."
|
||
?CCL34: EQUAL? PRSA,V?FOLLOW \FALSE
|
||
EQUAL? SCENE,S-ESCAPE \FALSE
|
||
CALL1 ESCAPE-FOLLOW-KIRI
|
||
RSTACK
|
||
|
||
|
||
.FUNCT RODRIGUES-DESC:ANY:2:2,RARG,OBJ
|
||
EQUAL? RARG,M-OBJDESC? /TRUE
|
||
ICALL2 CTHE-PRINT,RODRIGUES
|
||
EQUAL? HERE,GALLEY \?CCL6
|
||
FSET? GALLEY-WHEEL,ONBIT /?CCL6
|
||
PRINTI " stands at the helm."
|
||
RTRUE
|
||
?CCL6: EQUAL? HERE,IN-THE-SEA \?CCL10
|
||
IN? OAR,RODRIGUES \?CCL13
|
||
PRINTI " floats nearby, clinging to an oar."
|
||
RTRUE
|
||
?CCL13: PRINTI " is drowning nearby"
|
||
RTRUE
|
||
?CCL10: PRINTI " stands near you."
|
||
RTRUE
|
||
|
||
|
||
.FUNCT RODRIGUES-F:ANY:0:1,RARG
|
||
EQUAL? RARG,M-SUBJ /FALSE
|
||
EQUAL? RARG,M-WINNER \?CCL5
|
||
EQUAL? PRSA,V?WHO,V?TELL-ME-ABOUT \?CCL8
|
||
EQUAL? PRSO,RODRIGUES,YOU \?CCL8
|
||
ICALL NEW-SDESC,RODRIGUES,STR?11
|
||
PRINTR """I'm Vasco Rodrigues, pilot of this galley!I'm the best pilot in all Asia!"""
|
||
?CCL8: EQUAL? RODRIGUES-QUESTION,1 \?CCL12
|
||
EQUAL? PRSA,V?YES,V?HAI /?CTR14
|
||
EQUAL? PRSA,V?BE \?CCL15
|
||
EQUAL? PRSO,BLACKTHORNE,ME \?CCL15
|
||
EQUAL? PRSI,RODRIGUES,BLACKTHORNE \?CCL15
|
||
CALL NOUN-USED?,PRSI,W?PILOT
|
||
ZERO? STACK \?CTR14
|
||
CALL NOUN-USED?,PRSI,W?PILOT-MAJOR
|
||
ZERO? STACK /?CCL15
|
||
?CTR14: SET 'QCONTEXT,FALSE-VALUE
|
||
SET 'RODRIGUES-QUESTION,0
|
||
ICALL2 SETUP-ANSWER,FALSE-VALUE
|
||
ICALL NEW-SDESC,RODRIGUES,STR?11
|
||
PRINTI """Good, good!"
|
||
EQUAL? PRSA,V?HAI \?CND24
|
||
PRINTI "You sound like a Japper!"
|
||
?CND24: ICALL NEW-SDESC,HIRO-MATSU,STR?279
|
||
FCLEAR HIRO-MATSU,AN
|
||
PRINTR "I'm Vasco Rodrigues, pilot of this galley!""He turns to the old man and speaks a mixture of Japanese and Portuguese, calling him Toda-sama but the way it sounds it comes out ""Toady-sama.""
|
||
|
||
""That's better,"" he says after a while.""Listen, Pilot, this man's like a king.His name is Toda Hiro-matsu.I told him I'd be responsible for you, and I'd blow your head off as soon as drink with you!"""
|
||
?CCL15: EQUAL? PRSA,V?NO,V?IYE /?CCL27
|
||
EQUAL? PRSA,V?BE \FALSE
|
||
EQUAL? PRSO,BLACKTHORNE,ME \FALSE
|
||
EQUAL? PRSI,BLACKTHORNE \FALSE
|
||
CALL1 P-NEGATIVE?
|
||
ZERO? STACK /FALSE
|
||
CALL NOUN-USED?,PRSI,W?PILOT
|
||
ZERO? STACK \?CCL27
|
||
CALL NOUN-USED?,PRSI,W?PILOT-MAJOR
|
||
ZERO? STACK /FALSE
|
||
?CCL27: PRINTR """Bah!They've told me you're the pilot, so let's get on with it!"""
|
||
?CCL12: EQUAL? RODRIGUES-QUESTION,2 \?CCL38
|
||
CALL1 TRAINED?
|
||
ZERO? STACK /?CCL38
|
||
SET 'QCONTEXT,FALSE-VALUE
|
||
SET 'RODRIGUES-QUESTION,0
|
||
ICALL2 SETUP-ANSWER,FALSE-VALUE
|
||
PRINTI """Excellent, Ingeles!A nest of pirates indeed, but what pilots you pirates are!We're taking you to Osaka, at the pleasure of the Great Lord High Executioner himself.Toranaga!"""
|
||
CRLF
|
||
CALL2 SCORE-OBJECT,TRINITY-HOUSE
|
||
RSTACK
|
||
?CCL38: EQUAL? RODRIGUES-QUESTION,3 \?CCL42
|
||
EQUAL? PRSA,V?BE \?PRD46
|
||
EQUAL? PRSO,LIZARD,LATITUDE \?PRD46
|
||
EQUAL? PRSI,INTNUM,INTADJ /?CTR41
|
||
?PRD46: EQUAL? PRSA,V?ANSWER \?CCL42
|
||
EQUAL? PRSO,INTNUM,INTADJ \?CCL42
|
||
?CTR41: EQUAL? P-NUMBER,50 \?CCL54
|
||
SET 'QCONTEXT,FALSE-VALUE
|
||
SET 'RODRIGUES-QUESTION,0
|
||
ICALL2 SETUP-ANSWER,FALSE-VALUE
|
||
PRINTI """You are the pilot, by God!""He shakes your hand warmly.""Come aboard.There's food and good brandy and wine and grog and all pilots should love all pilots, who're the sperm of the earth!Amen!Right?"""
|
||
CRLF
|
||
ICALL2 SCORE-OBJECT,LIZARD
|
||
RTRUE
|
||
?CCL54: ZERO? WRONG-ANSWER? \?CCL56
|
||
SET 'WRONG-ANSWER?,TRUE-VALUE
|
||
PRINTR """Now, pilot, don't try anything stupid.If you're the pilot you know the answer!"""
|
||
?CCL56: CALL JIGS-UP?,J-WRONG-ANSWER,STR?283
|
||
ZERO? STACK /TRUE
|
||
PRINTI "He looks at you suspiciously.""Maybe you aren't the pilot, maybe you're some son of a festering whore who thinks he can lie his way into anything!"" He signals to the old man, who nods.You feel something behind you..."
|
||
CRLF
|
||
ICALL1 JIGS-UP
|
||
RETURN M-FATAL
|
||
?CCL42: EQUAL? PRSA,V?TELL-ME-ABOUT \?CCL60
|
||
EQUAL? PRSO,SLAVER \?CCL63
|
||
PRINTR """This is no slaver!They don't have 'em in Japan, not even in their mines.We've samurai rowers.They're soldiers, the old bugger's personal soldiers -- and you've never seen slaves row better, or men fight better!"" He laughs.""We came all the way from Osaka -- three-hundred-odd sea miles in forty hours."""
|
||
?CCL63: EQUAL? PRSO,GLOBAL-SAMURAI \?CCL65
|
||
PRINTR """You've got to be born one.It's hereditary mostly, like with us.In the olden days, peasants could be soldiers and soldiers peasants.Some peasant soldiers rose to the highest rank.The Taiko was one."""
|
||
?CCL65: EQUAL? PRSO,TAIKO \?CCL67
|
||
PRINTR """The Great Despot, the ruler of all Japan, the Great Murderer of all times.He died a year ago and now he's burning in hell."""
|
||
?CCL67: EQUAL? PRSO,TORANAGA \?CCL69
|
||
PRINTI """The Great Lord High Executioner himself!Lord of the Eight Provinces, the chief "
|
||
ICALL2 PRINTUNDER,STR?82
|
||
PRINTR " of Japan -- like a king or a feudal lord but better.They're all despots."""
|
||
?CCL69: EQUAL? PRSO,ME \?CCL71
|
||
PRINTR """You're an Ingeles pirate, and a heretic, but a Pilot is a Pilot, by God!"""
|
||
?CCL71: EQUAL? SCENE,S-VOYAGE \?CCL73
|
||
PRINTR """Pay attention to the storm, Ingeles!"""
|
||
?CCL73: PRINTI """I've nothing to say about "
|
||
ICALL2 PRINT-HIM/HER,PRSO
|
||
PRINTR ", Ingeles!"""
|
||
?CCL60: EQUAL? PRSA,V?DODGE,V?LOOK-OUT \?CCL75
|
||
EQUAL? PRSO,ROOMS,ARCHERS \?CCL75
|
||
SET 'WINNER,PLAYER
|
||
ICALL PERFORM,V?WARN,RODRIGUES,ARCHERS
|
||
RTRUE
|
||
?CCL75: EQUAL? PRSA,V?SHUT-UP \?CCL79
|
||
EQUAL? PRSO,ROOMS \?CCL79
|
||
PRINTR """Thy mother!"" he curses."
|
||
?CCL79: EQUAL? PRSA,V?HELLO \?CCL83
|
||
PRINTR """Cheerful, aren't you?I've heard you Ingeles are all crazy,"" he remarks genially."
|
||
?CCL83: PRINTI """God curse you, Ingeles!"" snaps "
|
||
ICALL2 THE-PRINT,RODRIGUES
|
||
PRINTR "."
|
||
?CCL5: EQUAL? RARG,M-CONTAINER \?CCL85
|
||
PRINTR """Not so fast, Ingeles!"""
|
||
?CCL85: EQUAL? PRSA,V?EXAMINE \?CCL87
|
||
EQUAL? HERE,CLIFF-PATH \?CCL90
|
||
PRINTR "You can only see that he's still clinging to the oar you threw.From here, it's impossible to tell if he's alive or dead.His legs rise and fall with the waves."
|
||
?CCL90: EQUAL? HERE,MAIN-DECK \?CCL92
|
||
IN? RODRIGUES,GALLEY \FALSE
|
||
PRINTR "You look back at the quarterdeck to curse Rodrigues for letting the helm get away from him.He waves and points and shouts, and you see that the course has changed.You realize the swerve had been planned, but the bastard could have warned you!"
|
||
?CCL92: ICALL2 CTHE-PRINT,RODRIGUES
|
||
PRINTR " is a man as tall as you and about your own age, but black-haired and dark-eyed and carelessly dressed in seaman's clothes, rapier by his side, pistols in his belt.A jeweled crucifix hangs from his neck.He wears a jaunty cap."
|
||
?CCL87: EQUAL? PRSA,V?TIE \?CCL97
|
||
EQUAL? PRSO,RODRIGUES \?CCL97
|
||
PRINTR """I've no time for that now, Ingeles!"""
|
||
?CCL97: EQUAL? PRSA,V?TELL-ABOUT \?CCL101
|
||
EQUAL? PRSO,RODRIGUES \?CCL101
|
||
EQUAL? PRSI,LG-ERASMUS,STRAIT-OF-MAGELLAN /?CTR105
|
||
EQUAL? PRSI,SLAVER \?CCL106
|
||
CALL NOUN-USED?,PRSI,W?SHIP
|
||
ZERO? STACK /?CCL106
|
||
?CTR105: FSET? LIZARD,SCOREBIT /?CTR112
|
||
EQUAL? SCENE,S-VOYAGE \?CCL113
|
||
?CTR112: PRINTR """Don't try to distract me, you heretic!"""
|
||
?CCL113: FSET? LG-ERASMUS,SCOREBIT \?CCL117
|
||
PRINTI "You tell him about your ship, how you lost the foremast just before making landfall, how the samurai wouldn't let you retrieve your gear.""Listen, Rodrigues, there's no chance of going aboard, is there?They haven't let me back aboard, I've no clothes and they sealed her up the moment we arrived.""You carefully avoid mentioning your rutters."
|
||
CRLF
|
||
CRLF
|
||
ICALL2 LETS-GO-ABOARD,TRUE-VALUE
|
||
CALL2 SCORE-OBJECT,LG-ERASMUS
|
||
RSTACK
|
||
?CCL117: PRINTR """Don't bore me, Ingeles!"""
|
||
?CCL106: EQUAL? PRSI,GLOBAL-RUTTERS,SECRET-RUTTER,RUTTER \?CCL119
|
||
PRINTI "You start to tell him about how you haven't been able to retrieve your rutters, and you stop short.This man may be a pilot, but he's a Portuguese, a Catholic, and an enemy.You want his help in getting out to the "
|
||
ICALL2 PRINTUNDER,STR?7
|
||
PRINTR ", but don't want to mention the rutters.Maybe the ship alone would interest him enough?"
|
||
?CCL119: EQUAL? PRSI,ME,BLACKTHORNE \FALSE
|
||
PRINTR "You tell him a little about yourself.He has heard of your voyage to the Arctic, and is impressed."
|
||
?CCL101: EQUAL? PRSA,V?SHOW,V?GIVE \?CCL123
|
||
EQUAL? PRSI,RODRIGUES \?CCL123
|
||
EQUAL? PRSO,LIFE-RING \?CCL128
|
||
MOVE LIFE-RING,RODRIGUES
|
||
PRINTR """Aye, Ingeles, we'll all be needing them if this storm continues.""He rubs his chin.""I never learned to swim, you know."""
|
||
?CCL128: PRINTI "Rodrigues examines "
|
||
ICALL1 THE-PRINT-PRSO
|
||
PRINTR " with little enthusiasm."
|
||
?CCL123: EQUAL? PRSA,V?CURSE \?CCL130
|
||
PRINTI """Thy mother, Ingeles!"" responds "
|
||
ICALL2 THE-PRINT,RODRIGUES
|
||
PRINTR "."
|
||
?CCL130: EQUAL? PRSA,V?WHO \?CCL132
|
||
FSET? PRSO,NOABIT \?CCL135
|
||
PRINTI "He's a Portuguese pilot"
|
||
EQUAL? SCENE,S-RODRIGUES /?CCL138
|
||
PRINTI ", a bluff, crude seaman who hates England and all Protestants, but believes in the brotherhood of pilots.He got you aboard the "
|
||
ICALL2 PRINTUNDER,STR?7
|
||
PRINTR " to make a true search, and your rutters were nowhere to be found!"
|
||
?CCL138: PRINTR "."
|
||
?CCL135: PRINT YOU-HAVE-TO
|
||
PRINTR "ask him."
|
||
?CCL132: EQUAL? PRSA,V?BOW \?CCL140
|
||
PRINTR """You do that just like a Japman, Ingeles!"" he replies, impressed."
|
||
?CCL140: EQUAL? PRSA,V?PUSH-TO \?CCL142
|
||
EQUAL? PRSO,RODRIGUES \?CCL142
|
||
PRINTR "He shoves you back just as hard.""Watch yourself, Ingeles!"" he yells."
|
||
?CCL142: EQUAL? PRSA,V?WHAT \FALSE
|
||
CALL NOUN-USED?,PRSO,W?PILOT
|
||
ZERO? STACK /FALSE
|
||
PRINTR "A pilot is the one who knows how to get the ship where it wants to go, and back again."
|
||
|
||
|
||
.FUNCT TRAINED?:ANY:0:0
|
||
EQUAL? PRSA,V?TRAIN \?CCL3
|
||
EQUAL? PRSO,TRINITY-HOUSE \?CCL3
|
||
CALL NOUN-USED?,PRSO,W?TRINITY
|
||
ZERO? STACK \?PRD7
|
||
CALL NOUN-USED?,PRSO,W?HOUSE
|
||
ZERO? STACK /?CCL3
|
||
CALL ADJ-USED?,PRSO,W?TRINITY
|
||
ZERO? STACK /?CCL3
|
||
?PRD7: CALL1 PAST-TENSE?
|
||
ZERO? STACK \TRUE
|
||
?CCL3: EQUAL? PRSA,V?BE \FALSE
|
||
EQUAL? PRSO,ME \FALSE
|
||
EQUAL? PRSI,INTPP \FALSE
|
||
GET PARSE-RESULT,11
|
||
EQUAL? W?TRAINED,STACK \FALSE
|
||
CALL1 P-PP-OBJ
|
||
EQUAL? TRINITY-HOUSE,STACK /TRUE
|
||
RFALSE
|
||
|
||
|
||
.FUNCT LG-RODRIGUES-F:ANY:0:1,RARG
|
||
EQUAL? RARG,M-SUBJ /FALSE
|
||
EQUAL? RARG,M-WINNER \?CCL5
|
||
SET 'WINNER,PLAYER
|
||
EQUAL? HERE,CLIFF-PATH \?CCL8
|
||
ICALL PERFORM,V?YELL-AT,YABU
|
||
JUMP ?CND6
|
||
?CCL8: ICALL PERFORM,V?YELL-AT,LG-RODRIGUES
|
||
?CND6: ICALL1 END-QUOTE
|
||
RTRUE
|
||
?CCL5: EQUAL? PRSA,V?TELL \?CCL10
|
||
EQUAL? HERE,CLIFF-PATH \?CCL10
|
||
PRINTI "He's in no condition to respond."
|
||
CRLF
|
||
ICALL1 END-QUOTE
|
||
RTRUE
|
||
?CCL10: EQUAL? PRSA,V?EXAMINE \?CCL14
|
||
IN? RODRIGUES,IN-THE-SEA \?CCL17
|
||
EQUAL? HERE,MAIN-DECK,GALLEY,IN-THE-SEA \?CCL20
|
||
PRINTR "He's out there among the waves, drowning."
|
||
?CCL20: PRINTR "The last you saw of him, he was being carried away by the waves."
|
||
?CCL17: IN? RODRIGUES,LEDGE-4 \?CCL22
|
||
IN? YABU,LEDGE-4 \?CCL25
|
||
PRINTR "Yabu has dragged him out of the water."
|
||
?CCL25: PRINTR "His body is caught in a cleft between two rocks at the base of the cliff."
|
||
?CCL22: IN? RODRIGUES,LEDGE-3 \FALSE
|
||
PRINTR "Yabu is carrying him up the cliff."
|
||
?CCL14: EQUAL? PRSA,V?HELP,V?TAKE,V?WALK-TO \?CCL29
|
||
IN? RODRIGUES,IN-THE-SEA \?CCL29
|
||
FSET? RODRIGUES,DEAD \?CCL34
|
||
PRINTR "You can't see his body anywhere.He must have drowned, but where is his body?"
|
||
?CCL34: EQUAL? HERE,GALLEY,MAIN-DECK,IN-THE-SEA \?CCL36
|
||
PRINTR "His head appears and disappears among the waves.You can see he's in danger of drowning, but you can't reach him."
|
||
?CCL36: PRINTR "You don't know where he is."
|
||
?CCL29: EQUAL? PRSA,V?SMELL \?CCL38
|
||
PRINTR "If he's dead, it hasn't been that long."
|
||
?CCL38: EQUAL? PRSA,V?FIND \?CCL40
|
||
EQUAL? HERE,MAIN-DECK,GALLEY,IN-THE-SEA \?CCL43
|
||
PRINTR "He's out there somewhere.As a fellow pilot, you owe him a decent burial, not the tender ministrations of the crabs."
|
||
?CCL43: EQUAL? HERE,CLIFF-PATH \?CCL45
|
||
FSET? AROUND-HEADLAND,TOUCHBIT \?CCL45
|
||
ICALL2 PERFORM,V?LOOK-DOWN
|
||
RTRUE
|
||
?CCL45: PRINTR "You scan the foreshore.You know there is minimal hope of finding Rodrigues, there are too many caves and hidden places that could never be investigated.But you have to try.All pilots pray helplessly for death ashore and burial ashore.All have seen too many sea-bloated corpses and half-eaten corpses and crab-mutilated corpses."
|
||
?CCL40: CALL1 PASSIVE-VERB?
|
||
ZERO? STACK \?CCL49
|
||
EQUAL? HERE,CLIFF-PATH \?CCL49
|
||
PRINTR "Rodrigues is out of reach."
|
||
?CCL49: LOC RODRIGUES
|
||
EQUAL? STACK,MAIN-DECK,GALLEY \FALSE
|
||
EQUAL? PRSA,V?SHOW /?CCL56
|
||
CALL1 PASSIVE-VERB?
|
||
ZERO? STACK /?CCL56
|
||
ICALL REDIRECT,LG-RODRIGUES,RODRIGUES
|
||
RTRUE
|
||
?CCL56: PRINTR "Rodrigues isn't here."
|
||
|
||
|
||
.FUNCT DICTIONARY-F:ANY:0:0,WD,PHR
|
||
EQUAL? PRSA,V?EXAMINE \?CCL3
|
||
PRINTR "This book is a Portuguese-Latin-Japanese dictionary and grammar.The printing is the best you have ever seen, the quality and detail staggering.Father Alvito gave it to you at Toranaga's 'request.' ""Three of our Brethren spent twenty-seven years preparing that."""
|
||
?CCL3: EQUAL? PRSA,V?PUT \?CCL5
|
||
EQUAL? PRSI,YOKOSE-BATHTUB \?CCL5
|
||
PRINTR "Never!"
|
||
?CCL5: EQUAL? PRSA,V?READ \?CCL9
|
||
CALL2 HELD?,PRSO
|
||
ZERO? STACK /?CCL12
|
||
PRINTR "You read the dictionary hungrily.It means you can learn Japanese all the faster.A priceless book, more valuable than a rutter!"
|
||
?CCL12: CALL2 NOT-HOLDING,PRSO
|
||
RSTACK
|
||
?CCL9: EQUAL? PRSA,V?LOOK-UP \FALSE
|
||
EQUAL? PRSI,DICTIONARY \FALSE
|
||
CALL2 HELD?,PRSI
|
||
ZERO? STACK /?CCL19
|
||
EQUAL? PRSO,INTQUOTE \?CCL22
|
||
CALL2 GET-INTQUOTE,1 >WD
|
||
JUMP ?CND20
|
||
?CCL22: CALL2 GET-NP,PRSO
|
||
GET STACK,2 >WD
|
||
?CND20: PRINTI "You look up '"
|
||
CALL1 JAPANESE-PHRASE? >PHR
|
||
ZERO? PHR \?CCL24
|
||
CALL2 JAPANESE-WORD?,WD >WD
|
||
ZERO? WD /?CND23
|
||
?CCL24: HLIGHT H-UNDER
|
||
?CND23: EQUAL? PRSO,INTQUOTE \?CCL29
|
||
ICALL1 PRINT-INTQUOTE
|
||
JUMP ?CND27
|
||
?CCL29: PRINTB WD
|
||
?CND27: ZERO? PHR \?CCL31
|
||
ZERO? WD /?CND30
|
||
?CCL31: HLIGHT H-NORMAL
|
||
?CND30: PRINTI "' and find "
|
||
ZERO? PHR \?CTR35
|
||
ZERO? WD /?CCL36
|
||
?CTR35: ZERO? PHR /?CCL41
|
||
PRINTI "that it means '"
|
||
PRINT PHR
|
||
PRINTR "'"
|
||
?CCL41: GET WD,1 >WD
|
||
ZERO? WD /?CCL43
|
||
PRINTI "that it means '"
|
||
PRINT WD
|
||
PRINTR ".'"
|
||
?CCL43: PRINTR "the Latin and Portuguese equivalents, which you can then translate into English."
|
||
?CCL36: PRINTR "the Japanese equivalent, including examples of correct usage."
|
||
?CCL19: CALL2 NOT-HOLDING,PRSI
|
||
RSTACK
|
||
|
||
|
||
.FUNCT JAPANESE-WORD?:ANY:1:1,WD,?TMP1
|
||
ADD JAPANESE-VOCABULARY,2 >?TMP1
|
||
GET JAPANESE-VOCABULARY,0
|
||
DIV STACK,2
|
||
INTBL? WD,?TMP1,STACK,132 /?BOGUS1
|
||
?BOGUS1: RSTACK
|
||
|
||
|
||
.FUNCT JAPANESE-PHRASE?:ANY:0:0,CNT,LEN,TBL
|
||
GET JAPANESE-PHRASES,0 >LEN
|
||
ADD JAPANESE-PHRASES,2 >TBL
|
||
?PRG1: EQUAL? CNT,LEN /FALSE
|
||
GET TBL,0
|
||
CALL2 MATCH-INTQUOTE?,STACK
|
||
ZERO? STACK /?CCL7
|
||
GET TBL,1
|
||
RSTACK
|
||
?CCL7: ADD CNT,2 >CNT
|
||
ADD TBL,4 >TBL
|
||
JUMP ?PRG1
|
||
|
||
|
||
.FUNCT MATCH-INTQUOTE?:ANY:1:1,TBL,NP,X,LEN,CNT,WD,?TMP1
|
||
CALL2 GET-NP,INTQUOTE >NP
|
||
GET NP,7
|
||
ADD STACK,4 >X
|
||
GET NP,8 >?TMP1
|
||
GET NP,7
|
||
SUB ?TMP1,STACK
|
||
DIV STACK,4
|
||
ADD -1,STACK >LEN
|
||
GET TBL,0 >CNT
|
||
ADD TBL,2 >TBL
|
||
?PRG1: GET X,0 >WD
|
||
EQUAL? WD,0,W?INT.NUM,W?INT.TIM /FALSE
|
||
EQUAL? WD,W?NO.WORD,W?COMMA,W?QUOTE /?CTR6
|
||
EQUAL? WD,W?PERIOD,W?APOSTROPHE \?CCL7
|
||
?CTR6: DEC 'LEN
|
||
JUMP ?CND3
|
||
?CCL7: GRTR? CNT,0 \FALSE
|
||
GET TBL,0
|
||
EQUAL? WD,STACK \FALSE
|
||
DEC 'LEN
|
||
DEC 'CNT
|
||
ADD TBL,2 >TBL
|
||
?CND3: ZERO? CNT \?CCL16
|
||
ZERO? LEN /TRUE
|
||
?CCL16: ADD X,4 >X
|
||
JUMP ?PRG1
|
||
|
||
.ENDSEG
|
||
|
||
.ENDI
|