historicalsource/shogun
1
0
Fork 0
mirror of https://github.com/historicalsource/shogun synced 2024-04-24 21:29:24 +03:00
Code Issues Releases Wiki Activity
shogun/audience.zap
historicalsource f0866b3565 Most Recent Version
2019-04-16 09:37:36 -04:00

1622 lines
65 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 "NINJA"
.SEGMENT "AUDIENCE"
.FUNCT STAIRS-EXIT:ANY:0:2,RARG,STRICT?
EQUAL? SCENE,S-NINJA \?CCL3
RETURN STAIRS
?CCL3: ZERO? RARG \FALSE
PRINTI "The guards point to toward the audience chamber instead."
CRLF
RFALSE
.FUNCT OUTER-CORRIDOR-F:ANY:1:1,RARG
EQUAL? RARG,M-SCENE-SETUP \?CCL3
ICALL1 DRESS-BLACKTHORNE
ICALL REPLACE-SYNONYM,LG-CREWMEN,W?MAN,W?CREWMAN,TRUE-VALUE
ICALL REPLACE-SYNONYM,LG-CREWMEN,W?MEN,W?CREWMEN,TRUE-VALUE
MOVE HIRO-MATSU,HERE
MOVE TORANAGAS-GUARDS,AUDIENCE-CHAMBER
MOVE ALVITO,AUDIENCE-CHAMBER
MOVE YABU,AUDIENCE-CHAMBER
MOVE TORANAGA,AUDIENCE-CHAMBER
MOVE FALCON,TORANAGA
PUTP BLACKTHORNE,P?HEALTH,4
FCLEAR OUTER-DOOR,OPENBIT
CALL QUEUE,I-AUDIENCE,-1
RSTACK
?CCL3: EQUAL? RARG,M-LOOK \?CCL5
PRINTI "This outer corridor is where those who are about to be granted audience with Toranaga wait. The great Audience Chamber is to the east and stairs down to the lower part of the keep are to the west."
EQUAL? SCENE,S-TORANAGA \?CND6
PRINTR " Massed samurai, their young officer in front of them, protect the last door -- each with right hand on the sword hilt, left on the scabbard, motionless and ready, staring at you."
?CND6: CRLF
RTRUE
?CCL5: EQUAL? RARG,M-BEG \FALSE
EQUAL? SCENE,S-NINJA \FALSE
EQUAL? PRSA,V?WALK \?CCL15
IN? NINJA,HERE \?CCL15
ZERO? KNOCKOUT-CNT /?CCL15
PRINT STR?482
CRLF
RTRUE
?CCL15: EQUAL? PRSA,V?WALK \FALSE
EQUAL? P-WALK-DIR,P?WEST \FALSE
IN? YABU,HERE \FALSE
CALL1 YABU-LISTENS
RSTACK
.FUNCT AUDIENCE-CHAMBER-F:ANY:1:1,RARG,?TMP1
EQUAL? RARG,M-LOOK \?CCL3
PRINTI "This is the immense audience room. The room is forty paces square and ten high, the tatami mats the best quality, four fingers thick and impeccable."
FSET? VASE,TOUCHBIT /?CND4
PRINTI " Near the dais, in a niche, is a small earthenware vase with a single spray of cherry blossom and this fills the room with color and fragrance."
?CND4: EQUAL? SCENE,S-TORANAGA \?CND6
PRINTI " Ten paces from the dais, circling it, are twenty samurai, seated cross-legged and facing outward."
?CND6: PRINTI " Doors lead east and west to the outer and inner corridors, respectively."
FSET? SECRET-ROOM-DOOR,INVISIBLE /?CND8
PRINTR " On the south wall is a formerly secret door used by the ninja attackers."
?CND8: CRLF
RTRUE
?CCL3: EQUAL? RARG,M-BEG \FALSE
EQUAL? SCENE,S-TORANAGA \?CCL14
EQUAL? PRSA,V?LISTEN \?CCL17
EQUAL? PRSO,FALSE-VALUE,TORANAGA,ALVITO /?CTR16
EQUAL? PRSO,HIRO-MATSU,LG-MEN \?CCL17
?CTR16: PRINTI "You can't understand anything they say in Japanese"
RANDOM 100
LESS? 25,STACK /?CCL24
PRINTR ", except that once you hear the word ""Anjin."""
?CCL24: PRINTR "."
?CCL17: EQUAL? PRSA,V?TEKI,V?SAY \?CCL26
EQUAL? PRSA,V?SAY \?PRD30
EQUAL? PRSO,INTQUOTE \?PRD30
CALL2 GET-INTQUOTE,0 >?TMP1
CALL2 GET-INTQUOTE,1
EQUAL? W?TEKI,?TMP1,STACK /?CCL28
?PRD30: EQUAL? PRSA,V?TEKI /?CCL28
EQUAL? PRSA,V?SAY \?CND27
EQUAL? PRSO,TEKI \?CND27
?CCL28: FSET? TEKI,RMUNGBIT /?CCL39
PRINTR "That's not a word you know."
?CCL39: FSET? ALVITO,SCOREBIT /?CCL41
PRINTR "You've already said that. Don't belabor it."
?CCL41: EQUAL? POINTEE,ALVITO \?CND27
FCLEAR ALVITO,RMUNGBIT
PRINTI "You say "
ICALL2 PRINTUNDER,STR?179
PRINTI ". Toranaga speaks curtly, and the priest begins translating simultaneously, a few words behind. ""Why are you an enemy of Tsukku-san, who's the enemy of no one?"" Alvito adds, ""The Japanese cannot pronounce my name either. Tsukku is a pun on "
ICALL2 PRINTUNDER,STR?483
PRINTI " -- to interpret."""
CRLF
ICALL2 SCORE-OBJECT,ALVITO
RTRUE
?CND27: CALL JIGS-UP?,J-JOKE,STR?484
ZERO? STACK /TRUE
CALL2 JIGS-UP,STR?485
RSTACK
?CCL26: CALL1 ACT-CRAZY?
ZERO? STACK /?CCL47
PRINTR "Toranaga looks at you with surprise. He seems to think you are crazy."
?CCL47: EQUAL? PRSA,V?POINT \?CCL49
EQUAL? PRSO,ALVITO /?CCL49
SET 'POINTEE,PRSO
PRINTI "You point at "
ICALL1 THE-PRINT-PRSO
PRINTI ". "
ICALL2 CTHE-PRINT,ALVITO
PRINTR " seems pleased at how foolishly you are acting."
?CCL49: EQUAL? PRSA,V?LOOK-UP,V?EXAMINE \?CCL53
EQUAL? PRSO,ROOMS,TORANAGA \?CCL53
FSET? BLACKTHORNE,SITTING \?CCL53
FSET? FALCON,RMUNGBIT \?CCL53
FCLEAR FALCON,RMUNGBIT
PRINTR "You look up boldly at Toranaga. He seems surprised and amused at your impertinence."
?CCL53: EQUAL? PRSA,V?WALK-AROUND /?CTR58
EQUAL? PRSA,V?WALK-TO,V?FOLLOW,V?JOIN \?PRD62
EQUAL? PRSO,ALVITO,TORANAGA,DAIS /?CTR58
?PRD62: EQUAL? PRSA,V?WALK \?PRD65
EQUAL? P-WALK-DIR,P?FORE,P?IN /?CTR58
?PRD65: EQUAL? PRSA,V?AVOID \?CCL59
EQUAL? PRSO,INNER-DOOR,OUTER-DOOR \?CCL59
?CTR58: FSET? DAIS,RMUNGBIT /?CCL72
PRINTR "Alvito hisses, ""Captain, Lord Toranaga has not given you permission to move."""
?CCL72: FSET? DAIS,SCOREBIT \?CCL74
PRINTI "You carefully and quietly stand, bow to Toranaga, and move to Alvito's side, away from the main door."
CRLF
CALL2 SCORE-OBJECT,DAIS
RSTACK
?CCL74: EQUAL? PRSO,DAIS,TORANAGA \?CCL76
PRINTR "You are already as close to the dais as Toranaga's samurai will allow."
?CCL76: PRINTR "Alvito hisses, ""If you move again, it will mean your life!"""
?CCL59: EQUAL? PRSA,V?WALK,V?LEAVE \?CCL78
PRINTR "You are not allowed to leave."
?CCL78: IN? ISHIDO,HERE \?CCL80
EQUAL? PRSA,V?TELL,V?YELL,V?YELL-AT /?CTR79
EQUAL? PRSA,V?SAY /?CTR79
CALL1 PASSIVE-VERB?
ZERO? STACK \?CCL80
CALL1 GAME-VERB?
ZERO? STACK \?CCL80
EQUAL? PRSA,V?SIT /?CCL80
?CTR79: PRINTI "Alvito hisses, ""As you value your life, Englishman, keep silent!"""
CRLF
EQUAL? PRSA,V?TELL \TRUE
ICALL1 END-QUOTE
RETURN M-FATAL
?CCL80: EQUAL? PRSA,V?SPEAK,V?PICK \?CCL93
ZERO? ALVITO-TRANSLATES? /?CCL93
CALL1 ALVITO-SPEAKS
RSTACK
?CCL93: ZERO? ALVITO-TRANSLATES? \?CCL97
EQUAL? PRSA,V?TELL \?CCL97
PRINTI "Your impatience and impertinence could cost you your life."
CRLF
ICALL1 END-QUOTE
RETURN M-FATAL
?CCL97: IN? FALCON,TORANAGA \FALSE
EQUAL? PRSA,V?BOW \?CCL104
EQUAL? PRSO,FALSE-VALUE,TORANAGA \?CCL104
FSET? HERE,RMUNGBIT /?CCL109
FSET HERE,RMUNGBIT
PRINTR "You bow as you have learned to, remembering Rodrigues' words: ""Behave like a king and they'll treat you like a king."" You don't want to kneel."
?CCL109: FSET? BLACKTHORNE,SITTING \?CCL111
PRINTR "You count slowly to six, and then you incline your head and bow slightly again."
?CCL111: PRINTR "You've already bowed once. You glance nervously around at the seated samurai. What can you do to show you are respectful but equal?"
?CCL104: EQUAL? PRSA,V?SIT \?CCL113
FSET? HERE,RMUNGBIT /?CCL116
CALL JIGS-UP?,J-SIT,STR?486
ZERO? STACK /TRUE
ICALL1 B-SIT
PRINTI "You sit cross-legged without bowing and stare at Toranaga. Everyone in the room is deathly silent, watching to see what he will do. The answer comes quickly, with a flash of steel you barely see before it ends your life."
CALL1 JIGS-UP
RSTACK
?CCL116: FSET? BLACKTHORNE,SITTING /FALSE
ICALL1 B-SIT
PRINTR "Taking a deep breath, you sit cross-legged and stare at Toranaga."
?CCL113: EQUAL? PRSA,V?KNEEL \FALSE
FCLEAR AUDIENCE-CHAMBER,SCOREBIT
ICALL1 B-KNEEL
PRINTR "You kneel abjectly, in imitation of Hiro-matsu."
?CCL14: EQUAL? SCENE,S-NINJA \FALSE
EQUAL? PRSA,V?LEAVE \?CCL128
CALL2 DO-WALK,P?EAST
RSTACK
?CCL128: EQUAL? PRSA,V?WALK \?CCL130
IN? NINJA,HERE \?CCL130
ZERO? KNOCKOUT-CNT /?CCL130
PRINT STR?482
CRLF
RTRUE
?CCL130: EQUAL? PRSA,V?WALK \FALSE
EQUAL? P-WALK-DIR,P?WEST \FALSE
IN? YABU,HERE \?CCL140
CALL1 YABU-LISTENS
RSTACK
?CCL140: CALL2 QUEUED?,I-ATTACK
ZERO? STACK /?CCL142
IN? NINJA,SECRET-ROOM \?CCL142
FSET? NINJA,INVISIBLE /?CCL142
PRINTR "You go toward the exit to the outer corridor and the stairs, but the guards motion you back."
?CCL142: EQUAL? PRSA,V?WALK \FALSE
EQUAL? P-WALK-DIR,P?WEST,P?SOUTH \FALSE
IN? NINJA,HERE \FALSE
PRINT STR?487
CRLF
RTRUE
.FUNCT VASE-F:ANY:0:0
EQUAL? PRSA,V?TAKE \?CCL3
FCLEAR FLOWER,NDESCBIT
FCLEAR VASE,NDESCBIT
RFALSE
?CCL3: EQUAL? PRSA,V?LOOK-INSIDE \FALSE
FSET? FLOWER,NDESCBIT \FALSE
PRINTR "The vase contains one sprig of cherry blossoms."
.FUNCT FLOWER-F:ANY:0:0
EQUAL? PRSA,V?EXAMINE \?CCL3
PRINTR "The cherry blossoms are past their peak, but still beautiful."
?CCL3: EQUAL? PRSA,V?TAKE \FALSE
EQUAL? SCENE,S-TORANAGA \?CCL8
PRINTR "It would be worth your life to take that sprig of cherry."
?CCL8: FCLEAR PRSO,NDESCBIT
RFALSE
.ENDSEG
.SEGMENT "AUDIENCE"
.FUNCT ISHIDO-VS-TORANAGA-AFTER-F:ANY:0:0
PRINTR "Toranaga watches you leave the room, taking his mind off the interview and coming to grips with the problem of Ishido. Toranaga was summoned to Osaka to give answers to the Council of Regents, and against the advice of his advisors, he chose to obey. Now he is stuck, the meeting delayed and delayed, Toranaga caught in the castle of his most deadly enemy.
Ishido comes instantly to the point. ""What is your answer to the Council of Regents?""
Toranaga answers, ""As President of the Council of Regents I do not believe an answer is necessary. Our late Master, the Taiko, has been dead a year. I don't threaten his house or my nephew Yaemon, the Taiko's Heir. I seek no more territory. By the Lord Buddha, I'll not be the first to break the peace.""
Ishido bristles. ""The Lady Ochiba, the mother of the heir, is hostage in your castle at Yedo, against your safety here. The Council requests her presence in Osaka instantly. We're all agreed: Lord Sugiyama, Lord Onoshi, Lord Kiyama, and I. Here are their signatures.""
Toranaga is livid. Why had Kiyama and Onoshi defected to Ishido? Four to one means isolation and disaster!"
.FUNCT FALCON-F:ANY:0:0
EQUAL? PRSA,V?EXAMINE \FALSE
PRINTR "The falcon has a broken wing feather, which Toranaga is repairing. The falcon is hooded."
.FUNCT TORANAGAS-GUARDS-F:ANY:0:1,RARG
EQUAL? RARG,M-WINNER \FALSE
ICALL1 WAKARIMASEN
CALL1 END-QUOTE
RSTACK
.FUNCT ALVITO-F:ANY:0:1,RARG,ADJ
EQUAL? RARG,M-SUBJ /FALSE
EQUAL? RARG,M-WINNER \?CCL5
EQUAL? PRSA,V?SPEAK,V?PICK \?CCL8
ZERO? ALVITO-TRANSLATES? /?CCL8
CALL1 ALVITO-SPEAKS
RSTACK
?CCL8: EQUAL? PRSA,V?HELLO /?CTR11
EQUAL? PRSA,V?YES \?CCL12
EQUAL? P-PRSA-WORD,W?NOD \?CCL12
?CTR11: ICALL2 CTHE-PRINT,ALVITO
PRINTR " bows in response, more like a European courtier than a Japanese."
?CCL12: EQUAL? PRSA,V?SORRY \?CCL18
PRINTR """It is of no consequence now."" You are not sure he is sincere."
?CCL18: EQUAL? PRSA,V?WHO \?CCL20
EQUAL? PRSO,YOU \?CCL20
ICALL NEW-SDESC,ALVITO,STR?489
PRINT STR?490
CRLF
RTRUE
?CCL20: EQUAL? PRSA,V?BE? \?CCL24
EQUAL? PRSO,YOU \?CCL24
EQUAL? PRSI,INTADJ \?CCL24
GET PARSE-RESULT,11 >ADJ
EQUAL? ADJ,W?PORTUGUESE \FALSE
PRINTR """I have that privilege."""
?CCL24: EQUAL? PRSA,V?BE \?CCL32
EQUAL? PRSO,ME,BLACKTHORNE \?CCL32
EQUAL? PRSI,ENGLAND \?CCL32
PRINTR """Yes, Pilot, you are of the enemy. In spite of this, you may trust me to translate what you say accurately. I am merely the Lord Toranaga's instrument in this."""
?CCL32: ICALL2 CTHE-PRINT,ALVITO
PRINTR " ruminates on your remark, but doesn't reply."
?CCL5: EQUAL? PRSA,V?BOW \?CCL37
ICALL PERFORM,V?HELLO,ALVITO
RTRUE
?CCL37: EQUAL? PRSA,V?EXAMINE \?CCL39
ICALL2 CTHE-PRINT,ALVITO
PRINTR " is a graceful, handsome man, perhaps a few years older than you. He wears tabi socks and a flowing kimono that seems, on him, to belong. A rosary and a carved golden cross hang at his belt. He has an easy elegance, and the aura of strength and natural power of the Jesuits."
?CCL39: EQUAL? PRSA,V?POINT \FALSE
FSET? ALVITO,RMUNGBIT \FALSE
SET 'POINTEE,ALVITO
PRINTR "You point to Alvito."
.FUNCT ALVITO-SPEAKS:ANY:0:0
EQUAL? PRSO,PORTUGUESE,LATIN,SPANISH /?CTR2
EQUAL? PRSO,ALVITO \?CCL3
CALL ADJ-USED?,ALVITO,W?PORTUGUESE
ZERO? STACK /?CCL3
?CTR2: PRINTR """Very well,"" Alvito replies."
?CCL3: PRINTR """This is not a time for foolishness!"" Alvito answers, and speaks briefly to Toranaga, who scowls."
.FUNCT I-AUDIENCE:ANY:0:0
INC 'DELAY-CNT
EQUAL? AUDIENCE-CNT,1 \?CCL5
FSET? BLACKTHORNE,SITTING /?CND3
GRTR? DELAY-CNT,3 /?CTR9
CALL1 PASSIVE-VERB?
ZERO? STACK \?CCL10
?CTR9: CRLF
PRINTI "Toranaga looks up slowly, gestures imperceptably at Hiro-matsu, and goes back to his falconry. Hiro-matsu rises, bows to Toranaga, and slays you with a single stroke."
ICALL1 JIGS-UP
RETURN M-FATAL
?CCL10: EQUAL? DELAY-CNT,1 \?CCL14
CRLF
PRINTR "In the doorway the officer's hand is on his sword. Hiro-matsu has already grasped his, though his head is still bent."
?CCL14: EQUAL? DELAY-CNT,2 \?CCL16
CRLF
PRINTR "The tension in the room rises as everyone begins to stare at you. But as a true-born Englishman and vassal of the Queen, it's unmanly to degrade yourself as they do here."
?CCL16: EQUAL? DELAY-CNT,3 \?CND3
CRLF
PRINTR "Hiro-matsu's sword inches out of its scabbard. He is preparing himself to cleanse your disrespect to his liege lord. Will you die rather than abase yourself?"
?CCL5: EQUAL? AUDIENCE-CNT,5 \?CCL19
FSET? ALVITO,SCOREBIT \?CND3
GRTR? DELAY-CNT,3 \?CCL24
FCLEAR ALVITO,RMUNGBIT
FCLEAR ALVITO,SCOREBIT
PRINTR """Very well, I will tell him myself."" Alvito speaks to Toranaga, who responds gruffly, scowling at you. The priest seems very satisfied with the outcome."
?CCL24: CRLF
PRINTI "Alvito waits patiently."
EQUAL? DELAY-CNT,1 \?CND25
PRINTI " You wonder if '"
ICALL2 PRINTUNDER,STR?179
PRINTR "' truly means 'enemy.' Of course it does, you tell yourself. This man's not like the other one."
?CND25: CRLF
RTRUE
?CCL19: EQUAL? AUDIENCE-CNT,7 \?CND3
FSET? DAIS,SCOREBIT \?CND3
GRTR? DELAY-CNT,1 \?CCL32
FCLEAR DAIS,SCOREBIT
CRLF
PRINTR "Toranaga gestures to the guards, who unceremoniously grab you and hustle you across the room, setting you down with a thump next to Alvito, who can barely suppress a smile at your treatment."
?CCL32: CRLF
PRINTR """Captain, it is your death if you do not come here immediately!"""
?CND3: SET 'DELAY-CNT,0
INC 'AUDIENCE-CNT
EQUAL? AUDIENCE-CNT,1 \?CCL35
FSET OUTER-DOOR,OPENBIT
CRLF
PRINTI "You and Hiro-matsu stop before the officer of the watch, a mean-tempered, dangerous young man. He and Hiro-matsu converse briefly, and then several of the samurai search you expertly. Nothing would have escaped them.
The officer opens the thick door himself, and you and Hiro-matsu are ushered into the audience room."
CRLF
CRLF
MOVE HIRO-MATSU,AUDIENCE-CHAMBER
ICALL2 THIS-IS-IT,ORDERS
ICALL2 THIS-IS-IT,HIRO-MATSU
ICALL2 GOTO,AUDIENCE-CHAMBER
CRLF
PRINTR "Just beyond the doorway Hiro-matsu kneels, puts his swords on the floor, and bows his head low, waiting in that abject position.
The officer indicates to you to do the same, but you are disgusted with the old man's servility."
?CCL35: EQUAL? AUDIENCE-CNT,2 \?CCL37
CRLF
PRINTI "Toranaga looks up slowly. He watches you briefly, his face impassive, then looks down and concentrates on his work again. Tension subsides in the room."
CRLF
CALL2 SCORE-OBJECT,AUDIENCE-CHAMBER
RSTACK
?CCL37: EQUAL? AUDIENCE-CNT,3 \?CCL39
REMOVE FALCON
CRLF
PRINTR "Toranaga gives the falcon to a handler, who bows and leaves. Then Toranaga greets Hiro-matsu, and they converse briefly and casually. At one point they are clearly talking about you."
?CCL39: EQUAL? AUDIENCE-CNT,4 \?CCL41
FCLEAR FALCON,RMUNGBIT
SET 'ALVITO-TRANSLATES?,TRUE-VALUE
ICALL NEW-SDESC,ALVITO,STR?489
ICALL2 THIS-IS-IT,ALVITO
SET 'QCONTEXT,ALVITO
CRLF
PRINTI "Toranaga turns and beckons to the lean-faced Portuguese who is sitting patiently in his shadow. The priest comes forward, and kneels close to the dais. Toranaga speaks briefly to him, and the man then glances pleasantly at you. He speaks to you in Portuguese. "
PRINT STR?491
CRLF
RTRUE
?CCL41: EQUAL? AUDIENCE-CNT,5 \?CCL43
FSET ALVITO,RMUNGBIT
FSET TEKI,RMUNGBIT
CRLF
PRINTI """The Japanese word for 'enemy' is '"
ICALL2 PRINTUNDER,STR?179
PRINTR ".' You may use it if you wish. If you point at me and use the word, Lord Toranaga will understand clearly what you mean. I am your enemy, but not your assassin. That you will do yourself."""
?CCL43: EQUAL? AUDIENCE-CNT,6 \?CCL45
CRLF
PRINTR "Toranaga begins to interrogate you, Alvito translating smoothly, calmly. It's clear that Alvito has told him some of the questions to ask, but others obviously surprise the Jesuit. The existence of the Protestant religion, and the English and Dutch alliance against Spain and Portugal make Toranaga pause and think: the Catholics are not the only sort of Christian after all, and a small island country can hold off, perhaps even beat a great empire through command of the seas! Before long Alvito is sweating; this is worse, far worse than he anticipated."
?CCL45: EQUAL? AUDIENCE-CNT,7 \?CCL47
SET 'QCONTEXT,FALSE-VALUE
FSET DAIS,RMUNGBIT
ICALL2 THIS-IS-IT,ORDERS
CRLF
PRINTR "Suddenly, there is the sound of loud voices outside the room. Hiro-matsu and half the guards are instantly at the doorway and the rest move into a tight knot screening the dais.
""You are to come over here, Captain Blackthorne, away from the door,"" Father Alvito says with carefully contained urgency. ""If you value your life, do not move suddenly or say anything!"""
?CCL47: EQUAL? AUDIENCE-CNT,8 \?CCL49
MOVE ISHIDO,AUDIENCE-CHAMBER
MOVE GRAYS,AUDIENCE-CHAMBER
FCLEAR DAIS,RMUNGBIT
CRLF
PRINTR "The door at the far end shivers open. Alvito translates what follows. ""Lord Ishido wishes to see you, Sire,"" Naga announces. ""He's -- he's here in the corridor and he wishes to see you. At once, he says.""
""Naga-san, tell Lord Ishido he is always welcome. Ask him to come in.""
A tall man strides into the room. Ten of his samurai, gray-uniformed, follow.
Toranaga says, ""Welcome, Lord Ishido. Please sit there."" He gestures at the single cushion on the dais. ""I'd like you to be comfortable.""
""Thank you, no,"" responds Ishido. ""I'd be embarrassed to be comfortable while you were not. One day I will take your cushion, but not today."""
?CCL49: EQUAL? AUDIENCE-CNT,9 \FALSE
CRLF
PRINTI "Ishido looks at you with pronounced distaste. ""I heard he was ugly but not this ugly! Rumor has it that he's a pirate. Before you crucify him, please let me have him for half a day. Perhaps he could be taught to dance like a bear, and you could exhibit him throughout the Empire: 'The Freak from the East.'""
Toranaga smiles. ""You're a man of vast humor, Lord Ishido. I agree the sooner the barbarian's removed the better. Naga-san, send some men and put him with the common criminals."" Alvito turns to you, and says ""You are to follow these men. You are to be detained. I don't know how for how long: until Lord Toranaga decides."""
CRLF
MOVE ALVITO,GENERIC-OBJECTS
ICALL REPLACE-SYNONYM,ALVITO,W?PRIEST,W?ALVITO,TRUE-VALUE
MOVE ISHIDO,GENERIC-OBJECTS
MOVE TORANAGA,GENERIC-OBJECTS
REMOVE GRAYS
REMOVE TORANAGAS-GUARDS
CALL1 NEXT-SCENE
RSTACK
.ENDSEG
.SEGMENT "PRISON"
.FUNCT LG-LINE-F:ANY:0:0
EQUAL? HERE,PRISON \?CCL3
EQUAL? PRSA,V?BOARD \FALSE
EQUAL? PRSO,LG-LINE \FALSE
PRINTR "Now that the food has been distributed, the line has vanished. Everyone is back in his own little space."
?CCL3: EQUAL? PRSA,V?BOARD \?CCL10
EQUAL? PRSO,LG-LINE \?CCL10
FSET? LG-LINE,SCOREBIT \?CCL15
PRINTI "You join the line of prisoners."
CRLF
CALL2 SCORE-OBJECT,LG-LINE
RSTACK
?CCL15: PRINTR "You're in line already."
?CCL10: EQUAL? PRSA,V?DISEMBARK,V?EXIT \FALSE
EQUAL? PRSO,LG-LINE \FALSE
FSET? LG-LINE,SCOREBIT \?CCL22
PRINTR "You aren't in line."
?CCL22: PRINTR "You are nudged back into line."
.FUNCT PRISONER-PSEUDO:ANY:0:0
PRINTI "The other prisoners "
EQUAL? HERE,PRISON \?CCL3
PRINTR "avoid you."
?CCL3: PRINTR "seem resigned to their fate."
.FUNCT PRISON-F:ANY:1:1,RARG,C
EQUAL? RARG,M-SCENE-SETUP \?CCL3
MOVE CUP,BLACKTHORNE
CALL QUEUE,I-PRISON,-1
RSTACK
?CCL3: EQUAL? RARG,M-END \?CCL5
CALL1 QUESTION-VERB?
ZERO? STACK \?CCL8
EQUAL? PRSA,V?TELL-ME-ABOUT,V?ASK-ABOUT,V?TELL-ABOUT \FALSE
?CCL8: CALL2 QUEUED?,I-BULLDOG >C
ZERO? C /?CND11
GET C,C-TICK
ADD STACK,1
PUT C,C-TICK,STACK
?CND11: CALL2 QUEUED?,I-OUT-OF-PRISON >C
ZERO? C /FALSE
GET C,C-TICK
ADD STACK,1
PUT C,C-TICK,STACK
RTRUE
?CCL5: EQUAL? RARG,M-BEG \?CCL17
EQUAL? PRSA,V?LEAVE \?CCL20
FSET? THUG,DEAD /?CCL20
PRINTR "You try to get away, but the thug grabs you as you try to squeeze through the crowd of watchers."
?CCL20: EQUAL? PRSA,V?SPEAK \?CCL24
IN? DOMINGO,HERE \?CCL24
ZERO? PRSI /?CND27
EQUAL? PRSI,DOMINGO /?CND27
ICALL1 CTHE-PRINT-PRSI
PRINTI " doesn't seem to understand you, but "
ICALL2 THE-PRINT,DOMINGO
PRINTI " looks at you with excitement. "
?CND27: ICALL1 DOMINGO-STARES
EQUAL? PRSO,SPANISH \?CCL33
ICALL2 DEQUEUE,I-PRISON
CALL2 QUEUED?,I-OUT-OF-PRISON
ZERO? STACK \?CND34
ICALL QUEUE,I-MADMAN,3
ICALL QUEUE,I-BULLDOG,5
ICALL QUEUE,I-OUT-OF-PRISON,10
?CND34: PRINTI """The mother tongue! Oh, it is so good to hear it again, my son!"""
CRLF
CALL2 SCORE-OBJECT,DOMINGO
RSTACK
?CCL33: EQUAL? PRSO,LATIN \?CCL37
PRINTI """You are an educated man, senor!"" he replies with obvious pleasure"
FSET? DOMINGO,SCOREBIT \?CCL40
PRINTR ", then stops suddenly. ""The senor is not a Jesuit? Does the senor speak Spanish?"""
?CCL40: PRINTR "."
?CCL37: EQUAL? PRSO,DUTCH \?CCL42
PRINTI """Ah, the senor is from our dominions in Spanish Flanders!"
FSET? DOMINGO,SCOREBIT \?CND43
PRINTR " But please, speak Spanish! I have heard no Spanish since I came to this awful place!"""
?CND43: CRLF
RTRUE
?CCL42: EQUAL? PRSO,PORTUGUESE,ENGLISH \FALSE
PRINTI """The senor is "
EQUAL? PRSO,PORTUGUESE \?CCL49
PRINTI "a Portuguese"
JUMP ?CND47
?CCL49: PRINTI "a heretic English"
?CND47: MOVE DOMINGO,GENERIC-OBJECTS
ICALL2 DEQUEUE,I-PRISON
ICALL QUEUE,I-OUT-OF-PRISON,2
PRINTR "!"" He begins to rant and rave in a mixture of Spanish and Latin, growing ever more angry. The nearby Japanese shift uneasily. One of them gets up and shakes the priest gently, and gradually he comes out of his fit, but from then on he ignores you, and ultimately his flock leads him away."
?CCL24: EQUAL? PRSA,V?BOW \?CCL51
EQUAL? PRSO,FALSE-VALUE \?CCL51
IN? BULLDOG,HERE \?CCL51
ICALL PERFORM,V?BOW,BULLDOG
RTRUE
?CCL51: EQUAL? PRSA,V?SLEEP \FALSE
FSET? THUG,DEAD /?CCL59
PRINTR "To sleep now would be fatal!"
?CCL59: PRINTR "You try to find a safe place to rest in this hell."
?CCL17: EQUAL? RARG,FALSE-VALUE \FALSE
EQUAL? PRSA,V?OPEN \FALSE
EQUAL? PRSO,PRISON \FALSE
ICALL PERFORM,V?OPEN,IRON-DOOR
RTRUE
.FUNCT CUP-F:ANY:0:0
EQUAL? PRSA,V?LOOK-INSIDE \?CCL3
PRINTR "It contains thin, watery gruel, but it's food, by God!"
?CCL3: EQUAL? PRSA,V?EAT,V?DRINK \?CCL5
IN? GRUEL,CUP \?CCL5
ICALL PERFORM,PRSA,GRUEL
RTRUE
?CCL5: EQUAL? PRSA,V?TAKE \?CCL9
IN? CUP,THUG \FALSE
PRINTR "The thug jerks his hand away, and kicks you in the knee."
?CCL9: EQUAL? PRSA,V?GIVE \?CCL14
EQUAL? PRSO,CUP \?CCL14
EQUAL? HERE,PRISON \?CCL14
REMOVE CUP
EQUAL? PRSI,DOMINGO \?CCL20
ICALL2 CTHE-PRINT,DOMINGO
PRINTR " takes the gruel and eats it thankfully."
?CCL20: PRINTR "Surprised that you don't want the gruel, the other prisoners fight each other for it."
?CCL14: EQUAL? PRSA,V?DROP \?CCL22
FSET? CUP,TOUCHBIT /FALSE
EQUAL? HERE,PRISON \FALSE
PRINTI "You drop the cup. "
RTRUE
?CCL22: EQUAL? PRSA,V?POUR,V?POUR-FROM \FALSE
FSET? CUP,TOUCHBIT /?CCL32
EQUAL? HERE,PRISON \?CCL32
PRINTI "You start to tip the cup to pour it. "
CALL1 START-FIGHT
RSTACK
?CCL32: PRINTR "What a waste of good gruel, gruel that cost a man his life!"
.FUNCT GRUEL-F:ANY:0:0
EQUAL? PRSA,V?EXAMINE \?CCL3
PRINTR "It's thin, watery stuff."
?CCL3: EQUAL? PRSA,V?TAKE,V?DROP,V?GIVE /?CTR4
EQUAL? PRSA,V?POUR,V?THROW \?CCL5
?CTR4: ICALL REDIRECT,GRUEL,CUP
RTRUE
?CCL5: EQUAL? PRSA,V?EAT,V?DRINK \FALSE
FSET? CUP,TOUCHBIT /?CCL12
EQUAL? HERE,PRISON \?CCL12
PRINTI "You bring the cup towards your lips. "
CALL1 START-FIGHT
RSTACK
?CCL12: IN? CUP,THUG \?CCL16
PRINT YOU-HAVE-TO
PRINTR "fight for it!"
?CCL16: REMOVE GRUEL
PRINTR "It's thin, watery barley and rice, but you wolf it down."
.FUNCT THUG-DESC:ANY:2:2,RARG,OBJ
EQUAL? RARG,M-OBJDESC? /TRUE
FSET? THUG,DEAD \?CCL6
PRINTI "The dead thug lies in the filth of the floor, his head at an unnatural angle to his body."
RTRUE
?CCL6: PRINTI "An apelike man stares at you with hatred."
RTRUE
.FUNCT THUG-F:ANY:0:1,RARG,TMP
EQUAL? RARG,M-SUBJ /FALSE
EQUAL? RARG,M-WINNER \?CCL5
PRINTR "He appears uninterested in talking to you."
?CCL5: EQUAL? PRSA,V?GIVE \?CCL7
EQUAL? PRSO,CUP \?CCL7
EQUAL? PRSI,THUG \?CCL7
FSET? THUG,DEAD /?CCL7
MOVE CUP,THUG
REMOVE GRUEL
PRINTR "He grabs it out of your hand and wolfs it down. His hostility only seems to have increased, though."
?CCL7: EQUAL? PRSA,V?TAKE \?CCL13
FSET? THUG,DEAD \?CCL16
PRINTR "He's too heavy, especially in light of what you've been through lately."
?CCL16: ICALL PERFORM,V?ATTACK,THUG
RTRUE
?CCL13: EQUAL? PRSA,V?MOVE \?CCL18
FSET? THUG,DEAD \?CCL21
PRINTR "You shove his lifeless body."
?CCL21: PRINTR "You shove him away from you."
?CCL18: CALL1 HOSTILE-VERB?
ZERO? STACK /FALSE
EQUAL? PRSA,V?THROW \?CND24
MOVE PRSO,HERE
?CND24: FSET? THUG,DEAD \?CCL28
EQUAL? PRSA,V?PISS \?CCL31
PRINTR "Adding insult to injury."
?CCL31: PRINTR "He's already very dead."
?CCL28: FSET? THUG,RMUNGBIT /?CND32
FSET THUG,RMUNGBIT
PUTP THUG,P?HEALTH,1000
?CND32: GETP THUG,P?HEALTH
SUB STACK,1 >TMP
PUTP THUG,P?HEALTH,TMP
ZERO? TMP /?CCL36
EQUAL? PRSA,V?BITE \?CCL39
PRINTR "You grapple with him, and in desperation bite him on the arm. He jerks away, bleeding."
?CCL39: EQUAL? PRSA,V?THROW \?CCL41
ICALL1 CTHE-PRINT-PRSO
PRINTR " hits him and clatters to the ground."
?CCL41: EQUAL? PRSA,V?KICK \?CCL43
PRINTR "You kick him savagely, and he staggers back."
?CCL43: EQUAL? PRSA,V?MOVE \?CCL45
PRINTR "You grab for him and try to pull him past you and down."
?CCL45: EQUAL? PRSA,V?PUSH \?CCL47
PRINTR "You shove him, and he momentarily loses his balance."
?CCL47: EQUAL? PRSA,V?HIT \?CCL49
PRINTR "You smash him in the jaw, knocking him backwards."
?CCL49: CALL2 PICK-ONE,YOU-ATTACKS
PRINT STACK
CRLF
RTRUE
?CCL36: MOVE CUP,HERE
FSET THUG,DEAD
ICALL REPLACE-ADJECTIVE,THUG,W?FILTHY,W?DEAD
SET 'OPPONENT,FALSE-VALUE
MOVE BULLDOG,HERE
PRINTI "You close with him, intending to "
PRINTB P-PRSA-WORD
PRINTI " him, but he grabs you. You manage to grab his throat and hammer his head against a beam until he's senseless. He falls on some of the other prisoners, who curse loudly, and one of them, a heavyset bulldog of a man, chops him viciously on the neck with the side of his hand. There is a dry snap and the thug's head sags. The bulldog man lifts the half-shaven head and lets it fall. He smiles at you and shrugs."
CRLF
CALL2 SCORE-OBJECT,THUG
RSTACK
.FUNCT START-FIGHT:ANY:0:1,INT?,BAD?
FSET? THUG,RMUNGBIT \?CND1
SET 'BAD?,TRUE-VALUE
?CND1: PUTP BLACKTHORNE,P?HEALTH,4
FSET THUG,RMUNGBIT
FSET CUP,TOUCHBIT
ICALL2 THIS-IS-IT,THUG
SET 'OPPONENT,THUG
ZERO? INT? /?CND3
CRLF
?CND3: ZERO? BAD? \?CTR6
LOC GRUEL
ZERO? STACK \?CCL7
?CTR6: PRINTI "The"
JUMP ?CND5
?CCL7: PRINTI "Suddenly, the"
?CND5: PRINTI " apelike man -- unshaven, filthy, lice-ridden -- "
FSET? BLACKTHORNE,SITTING \?CND10
ICALL1 B-STAND
PRINTI "jerks you to your feet, "
?CND10: PRINTI "chops you over the kidneys and "
IN? CUP,THUG \?CCL14
PRINTI "spits out"
JUMP ?CND12
?CCL14: IN? CUP,BLACKTHORNE \?CCL16
PRINTI "takes"
JUMP ?CND12
?CCL16: PRINTI "then picks up"
?CND12: MOVE CUP,THUG
PRINTR " your ration. The others wait to see what will happen."
.FUNCT I-PRISON:ANY:0:0,TMP
INC 'DELAY-CNT
EQUAL? PRISON-CNT,2 \?CCL5
FSET? THUG,SCOREBIT \?CND3
GETP BLACKTHORNE,P?HEALTH
SUB STACK,1 >TMP
PUTP BLACKTHORNE,P?HEALTH,TMP
ZERO? TMP /?CCL10
CRLF
CALL2 PICK-ONE,THUG-ATTACKS
PRINT STACK
CRLF
CRLF
PRINTR "The other prisoners watch impassively."
?CCL10: CRLF
PRINTI "With a ferocious overhand blow, the thug smashes you to the floor, and then jumps on you, breaking your neck."
ICALL1 JIGS-UP
RETURN M-FATAL
?CCL5: EQUAL? PRISON-CNT,7 \?CND3
FSET? DOMINGO,SCOREBIT \?CND3
GRTR? DELAY-CNT,5 \?CCL16
CRLF
PRINTI "He shakes his head, as though trying to wake from a dream. ""The senor is a dream. The devil is sending me dreams, yes!"" He hobbles away, his followers grouped closely about him."
CRLF
ICALL2 DEQUEUE,I-PRISON
ICALL QUEUE,I-OUT-OF-PRISON,2
RETURN M-FATAL
?CCL16: SET 'QCONTEXT,DOMINGO
CRLF
PRINTI """The senor speaks Spanish, eh? The senor is not a thrice-damned heretic, is he?"" There is an edge of hysteria in the old man's voice. His followers edge closer to him."
CRLF
?CND3: SET 'DELAY-CNT,0
INC 'PRISON-CNT
EQUAL? PRISON-CNT,1 /TRUE
EQUAL? PRISON-CNT,2 \?CCL20
FSET? CUP,TOUCHBIT /FALSE
CALL2 START-FIGHT,TRUE-VALUE
RSTACK
?CCL20: EQUAL? PRISON-CNT,3 \?CCL25
ICALL QUEUE,I-BULLDOG-EATS-IT,2
ICALL2 THIS-IS-IT,CUP
ICALL2 THIS-IS-IT,BULLDOG
CRLF
PRINTR "To your amazement, the bulldog-like man offers you the cup of gruel that you had presumed lost."
?CCL25: EQUAL? PRISON-CNT,6 /TRUE
EQUAL? PRISON-CNT,7 \?CCL28
ICALL1 B-SIT
MOVE DOMINGO,HERE
ICALL2 THIS-IS-IT,DOMINGO
SET 'QCONTEXT,DOMINGO
CRLF
PRINTR "Your exhaustion is beginning to take its toll, and you start to fall into a nightmare. In what seems like moments, you are jerked to wakefulness, your ears exploding with the sonorous Latin of the Last Sacrament: ""In nomine Patris et Filii et Spiritus Sancti."" There is another European, a toothless old scarecrow of a man, bending over you!"
?CCL28: EQUAL? PRISON-CNT,8 \FALSE
ICALL2 DEQUEUE,I-PRISON
RFALSE
.FUNCT I-BULLDOG-EATS-IT:ANY:0:1,NOT-INT?
IN? CUP,HERE \FALSE
IN? GRUEL,CUP \FALSE
REMOVE CUP
ZERO? NOT-INT? \?CND6
CRLF
?CND6: PRINTR "The bulldog man, amazed that you don't want the gruel, eats it, nodding happily in your direction."
.FUNCT BULLDOG-F:ANY:0:1,RARG
EQUAL? RARG,M-WINNER \?CCL3
EQUAL? PRSA,V?DOMO \?CCL6
PRINTR "He smiles at you."
?CCL6: PRINTI "He appears well-disposed to you, but doesn't understand what you say."
CRLF
CALL1 END-QUOTE
RSTACK
?CCL3: EQUAL? RARG,FALSE-VALUE \FALSE
EQUAL? PRSA,V?GIVE \FALSE
EQUAL? PRSO,CUP \FALSE
CALL2 I-BULLDOG-EATS-IT,TRUE-VALUE
RSTACK
.FUNCT DOMINGO-STARES:ANY:0:0
FSET? DOMINGO,TOUCHBIT /FALSE
FSET DOMINGO,TOUCHBIT
PRINTI "He stares down at you with rheumy eyes. ""Oh blessed Virgin! The senor is real!"" His words become a jumble of Japanese and Latin and Spanish. His head twitches. ""The senor is real?"" he asks again. "
RTRUE
.FUNCT DOMINGO-F:ANY:0:1,RARG
EQUAL? RARG,M-SUBJ /FALSE
EQUAL? RARG,M-WINNER \?CCL5
ICALL1 DOMINGO-STARES
EQUAL? QCONTEXT,DOMINGO \?CCL8
FSET? DOMINGO,SCOREBIT \?CCL8
EQUAL? PRSA,V?YES,V?NO \?CCL8
EQUAL? PRSA,V?YES \?CCL14
SET 'DELAY-CNT,5
PRINTR """The devil is testing me! He sends me a fellow Christian, and then he transforms him into a heretic!"""
?CCL14: PRINTR """Then show me you are of our Empire! The senor is a German, perhaps? Speak Spanish and prove to me you are a subject of the King!"""
?CCL8: EQUAL? PRSA,V?YES,V?NO \?CCL16
PRINTR "He seems oblivious to your answer, listening only to what language you are speaking."
?CCL16: EQUAL? PRSA,V?BE \?CCL18
EQUAL? PRSO,ME,BLACKTHORNE \?CCL18
ZERO? PRSI /?CCL18
CALL1 ENGLISH?
ZERO? STACK /?CCL24
ICALL PERFORM,V?SPEAK,ENGLISH
RTRUE
?CCL24: CALL1 DUTCH?
ZERO? STACK /?CCL26
ICALL PERFORM,V?SPEAK,DUTCH
RTRUE
?CCL26: CALL1 SPANISH?
ZERO? STACK /?CCL28
PRINTR """I can tell you aren't Spanish, senor."""
?CCL28: CALL1 PORTUGUESE?
ZERO? STACK /?CCL30
ICALL PERFORM,V?SPEAK,PORTUGUESE
RTRUE
?CCL30: PRINTR "He doesn't seem too excited to hear this."
?CCL18: FSET? DOMINGO,SCOREBIT \?CCL32
PRINTR "He seems to ignore what you say, only listening to the sound of the language itself."
?CCL32: EQUAL? PRSA,V?WHO \?PRD36
EQUAL? PRSO,YOU,DOMINGO /?CTR33
?PRD36: EQUAL? PRSA,V?HELLO \?CCL34
?CTR33: FCLEAR DOMINGO,AN
ICALL NEW-SDESC,DOMINGO,STR?501
PRINTR """I'm Friar... Friar Domingo... Domingo of the Sacred Order of St. Francis. I came here to teach the heathen, to bring them to the light, but Jesuits put me here, Jesuits poured filth into the ears of the Taiko!"""
?CCL34: EQUAL? PRSA,V?HELP \?CCL40
EQUAL? PRSO,ME,BLACKTHORNE \?CCL40
PRINTR """Only God can help us, senor."""
?CCL40: EQUAL? PRSA,V?FIND \?CCL44
EQUAL? PRSO,ME,BLACKTHORNE \?CCL44
PRINTR """This is the prison, senor. All here await their fate."""
?CCL44: EQUAL? PRSA,V?TEACH \?PRD50
EQUAL? PRSO,ME,BLACKTHORNE \?PRD50
EQUAL? PRSI,FALSE-VALUE,JAPANESE /?CTR47
?PRD50: CALL1 JAPANESE-VERB?
ZERO? STACK /?CCL48
GETP JAPANESE,P?COUNT
GRTR? STACK,0 \?CCL48
?CTR47: ICALL QUEUE,I-TEACH,2
ICALL2 I-TEACH,TRUE-VALUE
RTRUE
?CCL48: CALL1 QUESTION-VERB?
ZERO? STACK /?CCL57
FSET? JAPAN,RMUNGBIT /?CCL57
CALL1 DOMINGO-OFFERS-HELP
RSTACK
?CCL57: EQUAL? PRSA,V?TELL-ME-ABOUT,V?WHO,V?WHAT \?CCL61
EQUAL? PRSO,MADMAN,CRAZY \?CCL64
PRINTI """Everyone here believes that madness is caused only by "
ICALL2 PRINTUNDER,STR?502
PRINTI ", who are evil, malicious spirits. Thus, madmen, like children and the very old, are not responsible for their actions and have special privileges."""
JUMP ?CND62
?CCL64: EQUAL? PRSO,SUICIDE \?CCL66
PRINTI """A sin against God, senor! They are so touchy, so pride-filled, that if they are thwarted, or if they cannot do their duty, they will kill themselves. They'll do it if their liege orders it, in a wink. A heinous sin!"""
JUMP ?CND62
?CCL66: EQUAL? PRSO,PRISON \?CCL68
PRINTI """The Japanese didn't have prisons until recently. Only the guilty come here. For just a little while."""
JUMP ?CND62
?CCL68: EQUAL? PRSO,GLOBAL-SAMURAI \?CCL70
PRINTI """Samurai means 'servant,' but they are fierce warriors who serve their heathen masters. Men and women, too, are samurai. They own everything, they are everything, but some have seen the light!"""
JUMP ?CND62
?CCL70: EQUAL? PRSO,JESUITS \?CCL72
PRINTI """Their lies put me here and caused twenty-six Holy Fathers to be martyred! Does the senor know that Jesuits are merely traders, gun runners, and usurers? That they control all the silk trade here, all trade with China? That the annual Black Ship is worth a million in gold? That they've forced His Holiness, the Pope, to grant them total power over Asia -- them and their dogs, the Portuguese? That all other religions are forbidden here? That they secretly smuggled guns into Japan for Christian kings here, inciting them to rebellion?"""
JUMP ?CND62
?CCL72: EQUAL? PRSO,CHURCH,GOD \?CCL74
PRINTI """My son, you must want to make your confession. I will be glad to help you."""
JUMP ?CND62
?CCL74: EQUAL? PRSO,SATAN \?CCL76
PRINTI """He tests me constantly! I fight, but it's so difficult!"""
JUMP ?CND62
?CCL76: EQUAL? PRSO,ALVITO \?CCL78
PRINTI """That Jesuit puppy! He had the temerity to try to 'intercede' with the Taiko when that imp of Satan threatened to ban us from Japan! As though our own priests weren't good enough to speak with that monster!"""
JUMP ?CND62
?CCL78: EQUAL? PRSO,BLACK-SHIP \?CCL80
PRINTI """They're the greatest ships in the world, almost two thousand tons. I'm told they sail well before the wind but lumber when the wind's abeam. They carry twenty or thirty guns. They are the greatest treasure ships in all Asia, carrying the silks of China here to Japan! The silver alone is a fortune beyond calculation!"""
JUMP ?CND62
?CCL80: EQUAL? PRSO,DOMINGO,YOU \?CCL82
ICALL PERFORM,V?WHO,DOMINGO
RTRUE
?CCL82: EQUAL? PRSO,JAPAN \?CCL84
PRINTI """The land was discovered in 1542, senor, the year I was born. There were three men, da Mota, Peixoto, and one other. They were all Portuguese traders, they were blown off course to land in Kyushu. Soon after, the Church sent missionaries to convert the heathen."""
JUMP ?CND62
?CCL84: EQUAL? PRSO,GORODA \?CCL86
PRINTI """He was a devil! He conquered all Japan and made a mountain of skulls and declared himself Dictator, but still wasn't powerful enough to be Shogun! Then he was assassinated by one of his generals. Now he burns in Hell!"""
JUMP ?CND62
?CCL86: EQUAL? PRSO,TAIKO \?CCL88
PRINTI """He was an ugly little man. The Jesuits filled his ears with lies. He was Goroda's general, born a peasant, so he could never be Shogun, even though he brought the whole of Japan under his devil's rule! He turned against us, and the Hand of God lay heavy on him: a storm smashed his great castle. It was marvelous to behold! Now he is dead and the carrion crows, Toranaga, Ishido and the rest, fight over the carcass -- and the filthy Jesuits aren't the least of these!"""
JUMP ?CND62
?CCL88: EQUAL? PRSO,KIYAMA \?CCL90
PRINTI """Lord Kiyama is a good Christian, but under the thumb of the Jesuits!"""
JUMP ?CND62
?CCL90: EQUAL? PRSO,SHOGUN \?CCL92
PRINTI """The Shogun is the Supreme Ruler. Save for the Emperor himself, he is all powerful. There has been no Shogun for hundreds of years, even the Taiko never became Shogun, but Toranaga! Ah, he would be Shogun if he could!"""
JUMP ?CND62
?CCL92: EQUAL? PRSO,TORANAGA \?CCL94
PRINTI """He's a sly one. Vicious and sly as a snake, subtle as a fox!"""
JUMP ?CND62
?CCL94: EQUAL? PRSO,ISHIDO \?CCL96
PRINTI """He hates the Church, but he hates us all, Jesuit and Franciscan alike! An evil man."""
JUMP ?CND62
?CCL96: EQUAL? PRSO,SPAIN \?CCL98
PRINTI """Ah, Spain! My village is outside Madrid, senor, in the mountains. It is called Santa Veronica."""
JUMP ?CND62
?CCL98: EQUAL? PRSO,BULLDOG \?CCL100
PRINTC 34
CALL NOUN-USED?,PRSO,W?GONZALEZ
ZERO? STACK \?CND101
PRINTI "His name is Gonzalez, senor. "
?CND101: PRINTI "He is one of us."""
JUMP ?CND62
?CCL100: FSET? PRSO,PERSON \?CCL104
PRINTI """I know nothing of "
ICALL2 PRINT-HIM/HER,PRSO
PRINTI ", senor."""
?CND62: FSET? JAPAN,RMUNGBIT /?CCL108
PRINTC 11
CALL1 DOMINGO-OFFERS-HELP
RSTACK
?CCL104: FSET? JAPAN,RMUNGBIT \?CND62
ICALL2 CTHE-PRINT,DOMINGO
PRINTI " seems to have lost the thread of your question. "
CALL2 PICK-ONE,DOMINGO-RAMBLES
PRINT STACK
CRLF
RTRUE
?CCL108: CRLF
RTRUE
?CCL61: RANDOM 100
LESS? 60,STACK /?CCL110
ICALL2 CTHE-PRINT,DOMINGO
PRINTI " doesn't seem to be listening. He mutters something irrelevant. "
CALL2 PICK-ONE,DOMINGO-RAMBLES
PRINT STACK
CRLF
RTRUE
?CCL110: PRINTR "His mind seems to have wandered. In any case, he doesn't respond."
?CCL5: EQUAL? SCENE,S-PRISON /?CCL112
CALL1 ABSTRACT-VERB?
ZERO? STACK \?CCL112
PRINTI "Father Domingo isn't here."
CRLF
EQUAL? PRSA,V?TELL \TRUE
ICALL1 END-QUOTE
RETURN M-FATAL
?CCL112: EQUAL? PRSA,V?LIE \?CCL119
PRINTR "Volunteer nothing, but don't lie."
?CCL119: EQUAL? PRSA,V?EXAMINE \?CCL121
PRINTR "He is a toothless old man with long filthy hair and a matted beard and broken nails. He wears a foul, threadbare smock. In one hand he carries a wooden cross."
?CCL121: CALL1 HOSTILE-VERB?
ZERO? STACK /FALSE
PRINTR "You can't bring yourself to hurt this saintly, if slightly addled, man. He may be a hated Spaniard, but he has made a place for himself in this hell."
.FUNCT DOMINGO-OFFERS-HELP:ANY:0:0
FSET JAPAN,RMUNGBIT
PRINTR "He is very excited. ""If the senor has never been to Asia before, he will be like a child in the wilderness. I will teach you! I will tell you all the secrets you will need to survive!"""
.FUNCT I-TEACH:ANY:0:1,P?,CNT
IN? DOMINGO,HERE \?CCL3
ICALL QUEUE,I-TEACH,-1,TRUE-VALUE
ZERO? P? \?CCL6
EQUAL? PRSA,V?TEACH \?CCL6
EQUAL? PRSO,ME \?CCL6
EQUAL? PRSI,JAPANESE /FALSE
?CCL6: GETP JAPANESE,P?COUNT
ADD STACK,1 >CNT
PUTP JAPANESE,P?COUNT,CNT
ZERO? P? \?CND12
CRLF
?CND12: PRINTC 34
CALL1 JAPANESE-VERB?
ZERO? STACK /?CND14
PRINTI "Very good, my son! "
?CND14: EQUAL? CNT,1 \?CCL18
PRINTI "Ah, Japanese! It's a devil's own language for us, but they find our languages as hard, or worse! The first thing you must know is to be polite, always polite, even when you're spitting in their eyes. '"
ICALL2 PRINTUNDER,STR?509
PRINTI ",' that's the first word to know. It means 'thank you,' sometimes you say '"
ICALL2 PRINTUNDER,STR?510
PRINTI "' as well, '"
ICALL2 PRINTUNDER,STR?511
PRINTI ".'"""
CRLF
CALL2 SCORE-OBJECT,JAPANESE
RSTACK
?CCL18: EQUAL? CNT,2 \?CCL20
PRINTI "To greet someone politely, you say '"
ICALL2 PRINTUNDER,STR?512
PRINTI "' It means 'How are you?' To say you are well, you say '"
ICALL2 PRINTUNDER,STR?242
PRINTR ".'"""
?CCL20: EQUAL? CNT,3 \?CCL22
IN? BULLDOG,HERE \?CCL25
PRINTI "That man over there, he tells me he"
JUMP ?CND23
?CCL25: PRINTI "That man who"
?CND23: PRINTR " helped you. His name is Gonzalez, but before he became a Christian he was Akabo. It just means 'porter,' senor. They don't have names. Only samurai have names."""
?CCL22: EQUAL? CNT,4 \?CCL27
ICALL REPLACE-SYNONYM,GLOBAL-WATER,W?WATER,W?MIZU
PRINTI "As '"
ICALL2 PRINTUNDER,STR?513
PRINTI "' is 'thank you,' '"
ICALL2 PRINTUNDER,STR?514
PRINTI "' is 'please.' 'Water' is '"
ICALL2 PRINTUNDER,STR?515
PRINTR ".'"""
?CCL27: EQUAL? CNT,5 \?CCL29
PRINTC 39
ICALL2 PRINTUNDER,STR?516
PRINTR "' is 'sorry,' remember the Japanese put a great price on manners and courtesy!"""
?CCL29: EQUAL? CNT,6 \?CCL31
PRINTC 39
ICALL2 PRINTUNDER,STR?517
PRINTI "' is 'I don't speak Japanese,' and yes, you must apologize, so you say '"
ICALL2 PRINTUNDER,STR?518
PRINTR "' as well. The daimyos are prideful and as touchy as wasps, but courteous, ah, so courteous!"""
?CCL31: ICALL2 DEQUEUE,I-TEACH
PRINTR "It is so good to teach, senor!"" Domingo continues to teach you simple words and phrases. The old man is lonely, and proud of his knowledge, and his success in converting the prisoners."
?CCL3: ICALL2 DEQUEUE,I-TEACH
RFALSE
.FUNCT MADMAN-F:ANY:0:1,RARG
EQUAL? RARG,M-WINNER \?CCL3
PRINTI "He laughs insanely, pointing his finger and making faces."
CRLF
CALL1 END-QUOTE
RSTACK
?CCL3: EQUAL? RARG,M-SUBJ /FALSE
EQUAL? RARG,FALSE-VALUE \FALSE
EQUAL? PRSA,V?EXAMINE \?CCL10
PRINTR "He's wild-eyed and drooling. You shudder. Is this your fate? Will you ever be released?"
?CCL10: CALL1 HOSTILE-VERB?
ZERO? STACK /FALSE
PRINTR "The other prisoners stop you, indicating that he is not to be hurt."
.FUNCT I-MADMAN:ANY:0:0
IN? MADMAN,HERE \?CCL3
MOVE MADMAN,GENERIC-OBJECTS
CRLF
PRINTR "The madman capers away, singing and drooling. You lose sight of him in the crowd of prisoners."
?CCL3: MOVE MADMAN,HERE
ICALL QUEUE,I-MADMAN,3
CRLF
PRINTR "Suddenly the crowd of prisoners parts and a naked, filthy prisoner comes into view. He is singing something noisy and incomprehensible. He starts to dance a wild capering dance. The man is obviously crazy, but no one hurts him or kicks him aside, even when he accidentally knocks over a cup of food. Father Domingo makes the sign of the cross and shakes his head."
.FUNCT I-BULLDOG:ANY:0:0
REMOVE BULLDOG
CRLF
PRINTR "The iron door of the cell swings open. Guards begin to call names from a list. The man who befriended you is one of those called. One of Domingo's followers is also among those called. He kneels before Domingo, who gives him the sign of the cross and the Last Sacrament. He walks away, and the door closes again.
""His Calvary is outside the door,"" says Domingo."
.FUNCT I-OUT-OF-PRISON:ANY:0:0
CALL2 QUEUED?,I-TEACH
ZERO? STACK \?CCL3
ICALL1 TIME-PASSES
CRLF
PRINTI "For three days and three nights, you "
IN? DOMINGO,HERE \?CCL6
GETP JAPANESE,P?COUNT
ZERO? STACK /?CCL6
PRINTI "fill your mind with facts and Japanese words and phrases. For three days and three nights you sit with Father Domingo and question and listen and learn and sleep in nightmare."
JUMP ?CND4
?CCL6: PRINTI "endure the hell of the prison."
?CND4: PRINTI "
Then, on the fourth day, they call out your name.
""Anjin-san!"""
IN? DOMINGO,HERE \?CND9
PRINTI "
""Thy confession, my son, say it quickly,"" cries Father Domingo.
""Go with God, Father"" you reply, and the door slams behind you."
?CND9: CRLF
CRLF
CALL2 GOTO,PRISON-COURTYARD
RSTACK
?CCL3: ICALL QUEUE,I-OUT-OF-PRISON,1
RFALSE
.FUNCT PRISON-COURTYARD-F:ANY:1:1,RARG
EQUAL? RARG,M-LOOK \?CCL3
PRINTR "This is a courtyard with great doors to the east. A line of naked prisoners stands before an official in a somber kimono."
?CCL3: EQUAL? RARG,M-BEG \?CCL5
EQUAL? PRSA,V?WALK \FALSE
EQUAL? P-WALK-DIR,P?EAST \FALSE
FSET? LG-LINE,RMUNGBIT /FALSE
PRINTI "The jailers "
FSET? LG-LINE,SCOREBIT \?CCL14
PRINTR "and your escort prevent you from leaving."
?CCL14: PRINTR "roughly prod you back into line."
?CCL5: EQUAL? RARG,M-ENTER \FALSE
ICALL QUEUE,I-LEAVE-PRISON,-1
MOVE DOMINGO,GENERIC-OBJECTS
MOVE GRAYS,HERE
ICALL2 THIS-IS-IT,GRAYS
PRINTI "The air is incredibly cool and sweet, the clouds meandering before a fine southeasterly wind. You gulp deep draughts of the clean, glorious air. The joy of life fills you."
CRLF
CRLF
RTRUE
.FUNCT OFFICIAL-F:ANY:0:1,RARG
EQUAL? RARG,M-WINNER \?CCL3
CALL1 WAKARIMASEN
RSTACK
?CCL3: EQUAL? RARG,FALSE-VALUE \FALSE
EQUAL? PRSA,V?EXAMINE \FALSE
PRINTR "The official is dressed in a somber kimono and an overmantle with starched, winglike shoulders."
.FUNCT I-LEAVE-PRISON:ANY:0:0
INC 'DELAY-CNT
ZERO? LEAVE-CNT \?CCL5
FSET? LG-LINE,SCOREBIT \?CND3
GRTR? DELAY-CNT,3 \?CCL10
FCLEAR LG-LINE,SCOREBIT
CRLF
PRINTR "A jailer shoves you to the ground, then kicks you into line with a stream of invective."
?CCL10: CRLF
PRINTR "One of the jailers prods you roughly toward the line."
?CCL5: EQUAL? LEAVE-CNT,2 \?CCL12
EQUAL? HERE,PRISON-COURTYARD \?CND3
CRLF
PRINTI "Your guards hustle you towards the gate."
CRLF
GRTR? DELAY-CNT,1 \TRUE
CRLF
ICALL2 GOTO,OUTSIDE-PRISON
RTRUE
?CCL12: EQUAL? LEAVE-CNT,8 \?CND3
IN? BLACKTHORNE,YABU-PALANQUIN /?CND3
CRLF
PRINTI "Yabu points to the palanquin. The Gray captain violently disagrees, saying, """
ICALL2 PRINTUNDER,STR?455
PRINTR """"
?CND3: SET 'DELAY-CNT,0
INC 'LEAVE-CNT
EQUAL? LEAVE-CNT,1 \?CCL22
CRLF
PRINTR "The official stands in front of the first prisoner and reads from a delicate scroll. As he finishes, each man begins to plod after his party of jailers toward the great doors of the courtyard."
?CCL22: EQUAL? LEAVE-CNT,2 \?CCL24
MOVE KIMONO,BLACKTHORNE
MOVE SOCKS,BLACKTHORNE
MOVE SANDALS,BLACKTHORNE
FSET LG-LINE,RMUNGBIT
FSET PRISON-GATE,OPENBIT
ICALL2 THIS-IS-IT,CLOTHES
CRLF
PRINTR "You reach the front of the line. Unlike the others, you are given clean clothes to wear. Your guards are samurai, and they motion you to put on the clothes."
?CCL24: EQUAL? LEAVE-CNT,3 /TRUE
EQUAL? LEAVE-CNT,4 \?CCL27
CRLF
PRINTI "One man is already roped to his cross and the cross is being lifted into the sky. Beside each cross two "
ICALL2 PRINTUNDER,STR?218
PRINTI " wait, their long lances sparkling in the sun.
The samurai jostle closer, hurrying you. You prepare to lunge for the nearest sword, thinking numbly that it would be better to die now, quickly. But suddenly they are turning away from the arena, heading toward the paths that lead through the woods to the city and the castle!"
CRLF
CRLF
MOVE GRAYS,DEEP-WOODS
CALL2 GOTO,DEEP-WOODS
RSTACK
?CCL27: EQUAL? LEAVE-CNT,5 \?CCL29
CRLF
PRINTI "When you are deep in the woods, another party of thirty-odd Grays approaches from around a curve ahead. The two parties of Grays greet each other, and then, just as the new group is preparing to leave, their leader calmly pulls out his sword and impales the leader of your samurai. The ambush is so sudden that all your escort is dead almost in the same instant. Not one has even had time to draw his sword."
CRLF
REMOVE GRAYS
MOVE BANDITS,HERE
MOVE BANDIT-LEADER,HERE
CRLF
PRINTR "At a command from the leader, these new Grays strip off their uniform kimonos. Underneath they wear a motley collection of rags and ancient kimonos. All pull on masks. The bandit leader smiles and motions you to begin walking back toward the city."
?CCL29: EQUAL? LEAVE-CNT,6 \?CCL31
MOVE BROWNS,HERE
MOVE GRAYS,HERE
MOVE GRAY-CAPTAIN,HERE
MOVE YABU,YABU-PALANQUIN
MOVE YABU-PALANQUIN,HERE
CRLF
PRINTI "Suddenly there are noises ahead and another party of samurai rounds the bend. Browns and Grays, the Browns the vanguard, their leader in a palanquin. Both groups move into skirmish positions, eyeing each other hostilely."
CRLF
MOVE YABU,HERE
SET 'DODGED?,FALSE-VALUE
SET 'OPPONENT,BANDIT-LEADER
CRLF
PRINTR "The man in the palanquin gets down and you recognize him. It is Kasigi Yabu! He shouts at the bandit leader but the man shakes his sword furiously, ordering them out of the way. Yabu gives a curt order, and charges with a screaming battle cry, limping slightly. The bandit guarding you swings his sword at you!"
?CCL31: EQUAL? LEAVE-CNT,7 \?CCL33
REMOVE BANDITS
REMOVE BANDIT-LEADER
SET 'OPPONENT,FALSE-VALUE
ZERO? DODGED? \?CND34
CRLF
PRINTI "The bandit leader's sword plunges into you. As a red mist comes over your sight, Yabu, enraged, tries to avenge you, but his leg slows him."
CRLF
?CND34: CRLF
PRINTI "The bandit leader turns and flees, his men following. The Browns and Grays are quickly beside you. Some scramble after the fleeing bandits into the bushes. Yabu stops at the edge of the brush, shouts orders imperiously, then comes back slowly, his limp more pronounced."
CRLF
ZERO? DODGED? \FALSE
CALL1 JIGS-UP
RSTACK
?CCL33: EQUAL? LEAVE-CNT,8 \?CCL40
FSET YABU-PALANQUIN,SCOREBIT
CRLF
PRINTI "None of the bandits are captured. Yabu and the Gray leader begin to argue, Yabu pointing to the castle, and the Gray to the woods. You hear the word "
ICALL2 PRINTUNDER,STR?519
PRINTI ", which you know to mean 'prisoner.' They are trying to decide what to do with you! To return you to Toranaga at the castle, or send you on with the Grays to Ishido.
Yabu motions you to get into the palanquin. The Gray captain says, """
ICALL2 PRINTUNDER,STR?455
PRINTR """"
?CCL40: EQUAL? LEAVE-CNT,9 \FALSE
ICALL2 DEQUEUE,I-LEAVE-PRISON
RFALSE
.FUNCT GENERIC-BANDIT-F:ANY:2:2,R,F
EQUAL? BANDIT-LEADER,OPPONENT \?CCL3
RETURN BANDIT-LEADER
?CCL3: RETURN BANDITS
.FUNCT BANDIT-LEADER-F:ANY:0:1,RARG
EQUAL? RARG,M-WINNER \?CCL3
PRINT STR?424
CRLF
RTRUE
?CCL3: EQUAL? RARG,FALSE-VALUE \FALSE
EQUAL? PRSA,V?FOLLOW \FALSE
PRINTR "You bow in agreement and prepare to follow the bandits."
.FUNCT BANDITS-F:ANY:0:1,RARG
EQUAL? RARG,M-WINNER \FALSE
PRINTR "They don't respond."
.FUNCT YABU-PALANQUIN-F:ANY:0:1,RARG
EQUAL? RARG,M-BEG \?CCL3
EQUAL? PRSA,V?SIT \FALSE
PRINT STR?520
CRLF
RTRUE
?CCL3: EQUAL? RARG,FALSE-VALUE \FALSE
EQUAL? PRSA,V?BOARD \FALSE
FIRST? PRSO \?CCL14
PRINTR "There's someone using it already."
?CCL14: FSET? YABU-PALANQUIN,SCOREBIT \?CCL16
PRINTI "You speak in halting Japanese, knowing the words to be ungrammatical, but hoping they will be understood, ""I friend. Not prisoner. Want bath. Tired. Hungry. Bath."" You point to the castle. ""Go there! Now, please. Lord Toranaga. Go now."" You get awkwardly into the palanquin and lay down on the cushions, your feet sticking far out.
Then Yabu laughs, and everyone joins in. He bows mockingly. ""Ah so, Anjin-sama!""
""Iye, Yabu-sama. Anjin-san."""
CRLF
ICALL2 SCORE-OBJECT,YABU-PALANQUIN
CALL1 NEXT-SCENE
RSTACK
?CCL16: PRINTR "No one will let you in it."
.FUNCT DEEP-WOODS-EXIT:ANY:0:2,RARG,STRICT?
ZERO? RARG \FALSE
IN? BANDITS,HERE \?CCL6
PRINTI "The bandits"
PRINT STR?521
CRLF
RFALSE
?CCL6: IN? YABU,HERE \?CCL8
PRINTI "Yabu stops you and points toward the city."
CRLF
RFALSE
?CCL8: IN? BROWNS,HERE \?CCL10
PRINTI "The Grays"
PRINT STR?521
CRLF
RFALSE
?CCL10: PRINTI "The escort won't let you get ahead of the party."
CRLF
RFALSE
.FUNCT DEEP-WOODS-F:ANY:1:1,RARG
EQUAL? RARG,M-LOOK \?CCL3
PRINTR "This is a wide track deep in the woods. There are tall trees and a well-tended sward which feels soft underfoot. The castle is to the west and the path continues to the east."
?CCL3: EQUAL? RARG,M-BEG \FALSE
EQUAL? PRSA,V?SIT \?CCL8
PRINTR "You are rudely jerked to your feet."
?CCL8: EQUAL? PRSA,V?WALK \?PRD12
EQUAL? P-WALK-DIR,P?WEST /?CTR9
?PRD12: EQUAL? PRSA,V?WALK-TO \?CCL10
EQUAL? PRSO,LG-CASTLE,CITY \?CCL10
?CTR9: IN? BANDITS,HERE \?CCL19
PRINTR "You start back toward the city, walking as slowly as possible."
?CCL19: PRINT STR?522
CRLF
RTRUE
?CCL10: EQUAL? OPPONENT,BANDIT-LEADER \?CCL21
ZERO? DODGED? \?CCL21
CALL1 MOTION-VERB?
ZERO? STACK /?CCL21
SET 'DODGED?,TRUE-VALUE
PRINTI "With all your remaining strength you jerk away from the bandit and roll to one side. His sword slashes down, but he misses."
CRLF
CALL2 SCORE-OBJECT,BANDITS
RSTACK
?CCL21: FSET? YABU-PALANQUIN,SCOREBIT \FALSE
EQUAL? PRSA,V?POINT \FALSE
EQUAL? PRSO,LG-CASTLE \FALSE
ICALL PERFORM,V?BOARD,YABU-PALANQUIN
RTRUE
.FUNCT PRISON-GATE-F:ANY:0:0
EQUAL? PRSA,V?OPEN,V?CLOSE \FALSE
PRINTR "The jailers would not appreciate your usurping their job."
.FUNCT CROWD-PSEUDO:ANY:0:0
PRINTR "The crowd ignores you."
.FUNCT OUTSIDE-PRISON-F:ANY:1:1,RARG
EQUAL? RARG,M-LOOK \?CCL3
PRINTR "Prisoners are being executed here. A large, spruce crowd looks on, crimson and yellow with golden sunshades."
?CCL3: EQUAL? RARG,M-BEG \?CCL5
EQUAL? PRSA,V?WALK \FALSE
EQUAL? P-WALK-DIR,P?WEST \FALSE
PRINTR "Your escort refuses to let you return to the prison."
?CCL5: EQUAL? RARG,M-ENTER \FALSE
MOVE GRAYS,HERE
PRINTI "Your guards keep pace and a wary eye on you."
CRLF
CRLF
RTRUE
.FUNCT PRISON-AFTER-F:ANY:0:0
PRINTR "A bath and massage and two hours of sleep immeasurably refresh you. The bath attendants, all women of girth and strength, pummel you and shampoo your hair, and the barber trims your beard. The futons on which you sleep are so clean, like the room. It all seems dreamlike. You wait impatiently, hoping to be brought to Toranaga again.
You know, beyond all doubt, because of what Friar Domingo told you about the Portuguese and Japanese politics and trade, that you can help Toranaga, who, in return, can easily give you the riches and freedom you desire. There is no ship in all Asia like yours, and if Toranaga commands, you can sweep the Portuguese and Spanish from the seas with it, make a gift to him of the Black Ship, destroy his enemies, anything!"
.ENDSEG
.SEGMENT "MARIKO"
.FUNCT MAPLE-GLADE-F:ANY:1:1,RARG
EQUAL? RARG,M-SCENE-SETUP \?CCL3
ICALL1 DRESS-BLACKTHORNE
ICALL REPLACE-SYNONYM,RUTTER,W?MAP,W?RUTTER,TRUE-VALUE
ICALL REPLACE-SYNONYM,SECRET-RUTTER,W?MAP,W?RUTTER,TRUE-VALUE
ICALL NEW-SDESC,MARIKO,STR?215,TRUE-VALUE
ICALL REPLACE-SYNONYM,MARIKO,W?MARIKO,W?WOMAN,TRUE-VALUE
ICALL REPLACE-SYNONYM,MARIKO,W?TODA,W?WOMAN,TRUE-VALUE
ICALL REPLACE-ADJECTIVE,MARIKO,W?TODA,W?LADY,TRUE-VALUE
ICALL2 THIS-IS-IT,MARIKO
FCLEAR MARIKO,THE
ICALL NEW-SDESC,YAEMON,STR?524,TRUE-VALUE
FCLEAR YAEMON,THE
FCLEAR YAEMON,NOABIT
FCLEAR YAEMON,NOTHEBIT
SET 'QCONTEXT,TORANAGA
ICALL2 THIS-IS-IT,TORANAGA
MOVE YAEMON,HERE
MOVE MARIKO,HERE
MOVE TORANAGA,HERE
CALL QUEUE,I-YAEMON,-1
RSTACK
?CCL3: EQUAL? RARG,M-LOOK \?CCL5
PRINTR "This is Toranaga's private garden within Osaka Castle. You are in a glade of maples near a little thatched hut."
?CCL5: EQUAL? RARG,M-BEG \FALSE
EQUAL? PRSA,V?ENTER,V?THROUGH \?CCL10
EQUAL? PRSO,TEA-HOUSE \?CCL10
PRINTR "That would be very impolite."
?CCL10: EQUAL? PRSA,V?EXAMINE \?CCL14
EQUAL? PRSO,MARIKO \?CCL14
ICALL1 PRE-EXAMINE
PRINT STR?525
PRINTR ". You wonder if she is Toranaga's consort. What would it be like to have such a woman in bed? You'd be afraid of crushing her. No, she wouldn't break. There are women in England almost as small. But not like her."
?CCL14: FSET? YAEMON,SCOREBIT \?CCL18
EQUAL? PRSA,V?WINK \?PRD22
EQUAL? PRSO,FALSE-VALUE /?CTR17
?PRD22: EQUAL? PRSA,V?MAKE \?PRD25
EQUAL? PRSO,HEAD /?CTR17
?PRD25: CALL1 ACT-CRAZY?
ZERO? STACK /?CCL18
?CTR17: ICALL PERFORM,V?SMILE,YAEMON
RTRUE
?CCL18: EQUAL? PRSA,V?KONNICHI-WA,V?BOW \?CCL29
EQUAL? PRSO,MARIKO,TORANAGA,YAEMON /?PRD32
EQUAL? PRSO,FALSE-VALUE \?CCL29
?PRD32: FSET? MAPLE-GLADE,SCOREBIT \?CCL29
ICALL1 B-SIT
EQUAL? PRSA,V?KONNICHI-WA \?CCL37
PRINTI "You use the phrases the old monk taught you. """
ICALL2 PRINTUNDER,STR?450
PRINTI ","" you say. "
JUMP ?CND35
?CCL37: PRINTI "You bow to "
ZERO? PRSO /?CCL40
ICALL1 THE-PRINT-PRSO
JUMP ?CND38
?CCL40: ICALL2 DPRINT,TORANAGA
?CND38: PRINTI ". "
?CND35: ICALL NEW-SDESC,MARIKO,STR?15
ICALL REPLACE-SYNONYM,MARIKO,W?WOMAN,W?MARIKO
ICALL REPLACE-SYNONYM,MARIKO,W?WOMAN,W?TODA
ICALL REPLACE-ADJECTIVE,MARIKO,W?LADY,W?TODA
EQUAL? PRSO,FALSE-VALUE,TORANAGA /?CND41
PRINTI "You bow to "
ICALL2 DPRINT,TORANAGA
PRINTI " as well. "
?CND41: EQUAL? PRSA,V?KONNICHI-WA \?CCL45
PRINTC 34
ICALL2 PRINTUNDER,STR?526
PRINTI """ You gather your kimono around you and sit. """
ICALL2 PRINTUNDER,STR?527
PRINTI """
The woman looks surprised. """
FSET? HERE,RMUNGBIT /?CND46
FSET HERE,RMUNGBIT
PRINTI "I am your interpreter, senhor,"" she says at once. ""My name is Mariko. "
?CND46: SET 'QCONTEXT,MARIKO
ICALL2 SETUP-ANSWER,STR?528
PRINTI "But you speak Japanese?"" she asks. You explain that you know only a few words and phrases. ""My Master wishes to know where you learned your 'few words and phrases.'"""
CRLF
CALL2 SCORE-OBJECT,MAPLE-GLADE
RSTACK
?CCL45: FSET HERE,RMUNGBIT
PRINTR "The woman greets you. ""My name is Mariko. I am your interpreter, senhor."""
?CCL29: IN? ISHIDO,HERE \?CCL49
EQUAL? PRSA,V?TELL \?PRD53
EQUAL? PRSO,TORANAGA /?CTR48
?PRD53: EQUAL? PRSA,V?ASK-ABOUT,V?TELL-ABOUT \?CCL49
EQUAL? PRSO,TORANAGA \?CCL49
?CTR48: PRINTI "Mariko motions you not to interrupt Toranaga."
CRLF
EQUAL? PRSA,V?TELL \TRUE
CALL1 END-QUOTE
RSTACK
?CCL49: EQUAL? PRSA,V?TELL-ABOUT \?CCL62
EQUAL? PRSO,TORANAGA \?CCL62
ICALL PERFORM,V?TELL-ABOUT,MARIKO,PRSI
RTRUE
?CCL62: EQUAL? PRSA,V?DRAW \?CCL66
EQUAL? PRSO,WORLD \?CCL66
PRINTR "You kneel in the sand. With your finger you begin to draw a crude map, upside down so they can see it better. You sketch boldly. ""I can draw a more accurate map later, with pen and paper."" You gesture. ""This is north and south, east and west. Japan is here, my country's on the other side of the world, there. This is all unknown and unexplored."" Your hand waves away the vast expanse of western North America, the interior of South America, all Asia north and east of Muscovy, and inland Africa. ""We know the coastlines, but little else. The interiors are almost entirely mysteries."""
?CCL66: EQUAL? PRSA,V?BOW \FALSE
EQUAL? PRSO,ISHIDO \FALSE
FSET? ISHIDO,RMUNGBIT \?CCL75
PRINTR "You copy the Japanese. Toranaga seems impressed."
?CCL75: PRINTR "You bow to Ishido, but he ignores you."
.FUNCT MARIKO-TELL-MARIKO-ABOUT:ANY:0:0
EQUAL? PRSI,ME \?CCL3
PRINTR "You relate the story of your life. Toranaga questions you closely about many points, particulary those relating to war and politics."
?CCL3: EQUAL? PRSI,DOMINGO,PRISON \?CCL5
CALL1 HOW-I-LEARNED
RSTACK
?CCL5: EQUAL? PRSI,QUEEN,ENGLAND \?CCL7
PRINTR """My land is ruled by a Queen. Queen Elizabeth whose father freed us from the hated priests, and whose wise rule these many years has kept us free!"""
?CCL7: EQUAL? PRSI,BLACK-SHIP \?CCL9
PRINTR """Give me back my ship and I'll sweep the Portuguese and Spanish from the sea and bring you the Black Ship!"""
?CCL9: EQUAL? PRSI,WORLD \?CCL11
PRINTR """Perhaps I could draw you a map of the world, as we know it?""
Toranaga seems interested."
?CCL11: EQUAL? PRSI,VOYAGE \?CCL13
PRINTR """We were two years sailing here, through Magellan's Pass into the Pacific.""
Toranaga interrupts, and Mariko says, ""My Master says you are mistaken. All bar -- all Portuguese come from the south.""
""Yes, it's true they favor that way,"" you reply. ""They have dozens of forts all along the route. Most of those forts employ Japanese troops, by the way.""
You see an immediate reaction on Mariko's face, and when she translates, on Toranaga's."
?CCL13: EQUAL? PRSI,CHURCH,POPE \?CCL15
PRINTR """The Pope divided the world between Spain and Portugal. Portugal has the exclusive right to this country, to all these countries -- Japan, China, and Africa -- in return for spreading Catholicism."""
?CCL15: PRINTR "Mariko passes on the information to Toranaga, but he doesn't seem too interested."
.FUNCT HOW-I-LEARNED:ANY:0:0
SET 'QCONTEXT,FALSE-VALUE
ICALL2 SETUP-ANSWER,FALSE-VALUE
PRINTR """There was a monk in the prison, senhorita, a Francisan monk, and he taught me. Things like 'food, friend, bath, go, come, true, false,' and so on. Would you please tell Lord Toranaga that I'm better prepared now to answer his questions, to help, and more than a little pleased to be out of prison. For which I thank him."""
.FUNCT I-YAEMON:ANY:0:0
FSET? YAEMON,SCOREBIT \?CND1
EQUAL? YAEMON-CNT,1 /?CCL4
GRTR? YAEMON-CNT,1 \?CND1
RANDOM 100
LESS? 67,STACK /?CND1
?CCL4: SET 'YAEMON-BORED?,TRUE-VALUE
CRLF
ICALL2 CTHE-PRINT,YAEMON
PRINTI " seems bored with you. He reminds you of your own son when the talk of adults becomes too serious. "
RANDOM 100
LESS? 50,STACK /?CCL11
PRINTI "He yawns."
CRLF
JUMP ?CND1
?CCL11: PRINTI "His attention is drifting."
CRLF
?CND1: EQUAL? QCONTEXT,MARIKO \?PRG17
IGRTR? 'MARIKO-IMPATIENT,1 \FALSE
CRLF
PRINTR """Please answer, senhor. My Master grows impatient."""
?PRG17: INC 'DELAY-CNT
ZERO? YAEMON-CNT \?CND19
FSET? MAPLE-GLADE,SCOREBIT \?CND19
EQUAL? DELAY-CNT,1 \?CCL25
CRLF
PRINTI "The three Japanese are watching you. The woman is curious but nervous, Toranaga is like a hawk watching a rabbit, and the boy stares at you as he would stare at a fabulous monster. It's exactly what your own son, so far away in England, would do. "
JUMP ?CND23
?CCL25: CRLF
PRINTI "The three Japanese continue to watch you. "
?CND23: PRINTR "What was the polite phrase the old monk taught you? You try to remember."
?CND19: SET 'DELAY-CNT,0
INC 'YAEMON-CNT
EQUAL? YAEMON-CNT,1 \?CCL28
ICALL2 THIS-IS-IT,MARIKO
CRLF
PRINTR "Mariko begins to ask you questions. Where you were born, whether you are married, where you lived in England. She is not as good an interpreter as Father Alvito, but she is more pleasant to talk to, and beautiful. At one point you compliment her on her flawless grasp of Portuguese, and she blushes, fluttering her fan."
?CCL28: EQUAL? YAEMON-CNT,2 \?CCL30
ICALL2 THIS-IS-IT,MARIKO
ICALL2 THIS-IS-IT,TORANAGA
CRLF
PRINTR """My Lord wishes to know about you and your family,"" Mariko continues. ""About your country, its queen and previous rulers, habits, customs, and history. Similarly about all other countries, particularly Portugal and Spain. All about the world you live in. About your ships, weapons, foods, trade. About your wars and battles and how to navigate a ship, how you guided your ship and what happened on the voyage. He wants to understand -- Excuse me, why do you laugh?""
""Only because, senhorita,"" you reply, ""that seems to be just about everything I know.""
""That is precisely what my Master wishes."""
?CCL30: EQUAL? YAEMON-CNT,3 \?CCL32
MOVE ISHIDO,HERE
FSET ISHIDO,RMUNGBIT
CRLF
PRINTR "Ishido appears at the edge of the glade, bows formally to the young boy, and to Toranaga, who looks annoyed at the interruption but bows back."
?CCL32: EQUAL? YAEMON-CNT,4 \?CCL34
FCLEAR ISHIDO,RMUNGBIT
CRLF
PRINTR "Ishido and Toranaga converse. Mariko translates for you. ""Please excuse me, Lord Toranaga,"" he says. ""There is an important matter I wish to see you about. The last formal meeting of the Regents has been postponed. We do not meet tonight at sunset. Lord Kiyama's sick. Lord Sugiyama and Lord Onoshi have agreed to the delay. A few days are unimportant, aren't they, on such important matters?""
""When will the meeting be?"" Toranaga asks, seething. Any delay jeopardizes him immeasurably."
?CCL34: EQUAL? YAEMON-CNT,5 \?CCL36
CRLF
PRINTR """I understand Lord Kiyama should be well tomorrow, or perhaps the next day. His physician has forbidden any visitors. The disease might be contagious."" Ishido is very nonchalant, implying the delay could be indefinite."
?CCL36: EQUAL? YAEMON-CNT,6 \?CCL38
MOVE ISHIDO,GENERIC-OBJECTS
MOVE PROPHECY,GENERIC-OBJECTS
CRLF
PRINTR """I'll visit Lord Kiyama the day after tomorrow,"" Toranaga says, naming a deadline. ""The contagion that will topple me has not yet been born. Remember the soothsayer's prediction!""
""No, Lord Toranaga, I haven't forgotten,"" Ishido says, remembering very well. He bows again, very deferential to the boy, and leaves."
?CCL38: EQUAL? YAEMON-CNT,7 \FALSE
CRLF
PRINTI "Soon the interview is over, and the Heir is sent for his swimming lesson. Toranaga installs you in his own sleeping chamber, as a mark of his favor. Things are looking up, indeed!"
CRLF
CALL1 NEXT-SCENE
RSTACK
.FUNCT YAEMON-F:ANY:0:1,RARG
EQUAL? RARG,M-WINNER \?CCL3
CALL1 WAKARIMASEN
RSTACK
?CCL3: EQUAL? PRSA,V?EXAMINE \?CCL6
PRINTR "The boy is small and straight and round-eyed, his full black hair tied into a short queue, his pate unshaven. His curiosity seems enormous."
?CCL6: EQUAL? PRSA,V?SMILE,V?WINK \?CCL8
ZERO? YAEMON-BORED? /?CCL11
FSET? YAEMON,SCOREBIT \?CCL14
PRINTI "The boy jumps, then laughs and interrupts Mariko and points and speaks out, and everyone listens indulgently and no one hushes him.
""Lord Toranaga asks why you did that, senor?""
You think for a moment and reply, ""Oh, just to amuse the lad. He's a child like any, and children in my country would usually laugh if you did that. My son must be about his age now. My son's seven.""
""The Heir is seven,"" Mariko says after a pause."
CRLF
CALL2 SCORE-OBJECT,YAEMON
RSTACK
?CCL14: PRINTR "There is no response this time."
?CCL11: ICALL2 CTHE-PRINT,YAEMON
PRINTR " jumps back, startled."
?CCL8: EQUAL? PRSA,V?WHO \FALSE
PRINTR "He is the Heir, the only son of the Taiko, who died a year ago. The Council of Regents is to guide him and rule Japan through his minority."
.FUNCT ALVITO-AFTER-F:ANY:0:0
PRINTR "Elsewhere in Osaka, Father Alvito reports to his superior, dell'Aqua, the Father-Visitor of Asia, the most powerful Jesuit and thus the most powerful man in Asia.
""We're already in trouble. Toranaga began by saying that he understands from the Ingeles that incredible profits are being made from the Portuguese monopoly of the silk trade with China. He 'invites' you to report to the Regents on rates of exchange. He does not object to our making a large profit, providing it comes from the Chinese. I'm sorry to tell you that Blackthorne seems to be particularly well informed.""
Ferriera, the Spanish Captain of the Black Ship, says coldly, ""The sooner the heretic's dead the better. If the Dutch and English start spreading their filth in Asia we're in for trouble!""
""I regret to tell you, Captain, that Toranaga said that if any harm befalls the Ingeles, it's quite possible the Taiko's Expulsion Edicts would be reexamined and all Christian churches, schools, places of rest, would be immediately closed."""
.ENDSEG
.ENDI
Reference in a new issue View git blame Copy permalink