-
Notifications
You must be signed in to change notification settings - Fork 16
/
Copy pathaudience.zap
1621 lines (1476 loc) · 65.3 KB
/
audience.zap
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
.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