historicalsource/shogun
1
0
Fork 0
mirror of https://github.com/historicalsource/shogun synced 2024-05-01 16:49:28 +03:00
Code Issues Releases Wiki Activity
shogun/cast.zap
historicalsource f0866b3565 Most Recent Version
2019-04-16 09:37:36 -04:00

1804 lines
63 KiB
Plaintext
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

.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
Reference in a new issue View git blame Copy permalink