-
Notifications
You must be signed in to change notification settings - Fork 16
/
Copy pathosaka.zap
1417 lines (1301 loc) · 51.4 KB
/
osaka.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 "ESCAPE"
.FUNCT CORTEGE-F:ANY:0:0
EQUAL? PRSA,V?EXAMINE \?CCL3
PRINTR "The procession consists of Toranaga's retainers. Most prominent are the litters carrying Kiritsubo and Mariko. A force of Browns guards the column, and a force of Grays guards the Browns."
?CCL3: EQUAL? PRSA,V?FOLLOW \FALSE
IN? CORTEGE,HERE /FALSE
CALL2 DO-WALK,P?SOUTH
RSTACK
.FUNCT ESCAPE-FOLLOW-KIRI:ANY:0:0,DIR
ZERO? SEEN-TORANAGA? /?CCL3
IN? KIRIS-LITTER,COURTYARD \?CCL3
CALL JIGS-UP?,J-SWITCH,STR?529
ZERO? STACK /TRUE
PRINTI "You follow Kiri into the garden and the little hut. She's crouched inside, trying to be quiet, but when you blunder in she screams in spite of herself. The scream brings guards. They recognize Kiri and wonder, if she is here, who is in the litter? It is only after the ensuing battle that Ishido returns and orders you killed."
CRLF
CALL1 JIGS-UP
RSTACK
?CCL3: IN? KIRIS-LITTER,HERE /?CCL10
LOC KIRIS-LITTER
CALL2 NEXT-ROOM?,STACK >DIR
ZERO? DIR /?CCL13
CALL2 DO-WALK,DIR
RSTACK
?CCL13: PRINTR "You've lost track of her."
?CCL10: PRINTR "She's in her litter, so you can follow it when it leaves."
.SEGMENT "MAZE"
.FUNCT BUNTARO-F:ANY:0:1,RARG
EQUAL? RARG,M-SUBJ /FALSE
EQUAL? RARG,M-WINNER \?CCL5
PRINTR "Buntaro responds sharply and impatiently, but you can't understand what he says."
?CCL5: EQUAL? PRSA,V?EXAMINE \?CCL7
EQUAL? SCENE,S-ESCAPE \FALSE
PRINTR "Buntaro looks nervous, but alert and ready. You feel he would like to kill someone, and wouldn't be too particular about who."
?CCL7: EQUAL? PRSA,V?WHO \FALSE
PRINTR "Toda Buntaro, Lord of Sakura, is a short, bandy-legged, ugly man with a quick temper. He is the only living son of Lord Hiro-matsu, and the husband of Lady Mariko."
.ENDSEG
.SEGMENT "ESCAPE"
.FUNCT SAZUKO-F:ANY:0:1,RARG
EQUAL? RARG,M-SUBJ /FALSE
EQUAL? RARG,M-WINNER \?CCL5
CALL1 WAKARIMASEN
RSTACK
?CCL5: EQUAL? PRSA,V?WHO \?CCL7
PRINTR "Lady Sazuko is the seventh of Toranaga's official consorts, the youngest, and very pregnant."
?CCL7: EQUAL? PRSA,V?EXAMINE \FALSE
PRINTR "Lady Sazuko is a short, square-faced girl of little beauty. She is very pregnant."
.FUNCT I-ISHIDO:ANY:0:0
INC 'ISHIDO-CNT
EQUAL? ISHIDO-CNT,1 \?CCL5
ICALL QUEUE,I-ISHIDO,-1
MOVE ISHIDO,FORECOURT
MOVE GRAYS,FORECOURT
MOVE BUNTARO,FORECOURT
MOVE YABU,FORECOURT
FSET FORTIFIED-GATE,OPENBIT
EQUAL? HERE,FORECOURT,COURTYARD \?CCL8
CRLF
PRINTC 34
ICALL2 PRINTUNDER,STR?530
PRINTI """ The warning comes from the forecourt. Ishido is approaching down the avenue at the head of two hundred Grays."
CRLF
CRLF
PRINTI "Buntaro and Yabu hurry to the fortified door as the guards open it."
CRLF
CRLF
PRINTI "Ishido bows to Yabu elaborately. ""A fine evening, Lord Yabu."" Though no man seems hostile on either side, all are ready."
CRLF
CRLF
PRINTR "Ishido nods perfunctorily to Buntaro, who returns the minimum politeness allowable. Buntaro had led one of the regiments in Korea when Ishido was in overall command. Each had accused the other of treachery."
?CCL8: CRLF
PRINTR "You hear a loud shout from the forecourt, and a great deal of commotion from that direction."
?CCL5: EQUAL? ISHIDO-CNT,2 \?CCL10
EQUAL? HERE,FORECOURT \?CCL13
CRLF
PRINTI "Ishido says, ""You'd think you were all going into battle, Yabu-san, instead of just being a ceremonial escort for the Lady Kiritsubo."""
CRLF
CRLF
PRINTR "Buntaro stomps pugnaciously forward. ""We're always ready for battle. We can take on ten men for each one of yours. We never turn our backs and run like snot-nosed cowards!"""
?CCL13: EQUAL? HERE,COURTYARD \FALSE
CRLF
PRINTR "Ishido is arguing with Buntaro. You are too far away to hear any of what he is saying."
?CCL10: EQUAL? ISHIDO-CNT,3 \?CCL17
EQUAL? HERE,FORECOURT \?CCL20
CRLF
PRINTI "Yabu moves carefully between Buntaro and Ishido, wanting desperately to avoid a clash that would lock them forever within the castle. ""We're among friends, Buntaro-san."""
CRLF
CRLF
PRINTR """Friends? Where? In this manure pile?"" sneers Buntaro. One of the Grays' hands flashes for his sword hilt, ten Browns follow, and in a moment, all are waiting for Ishido's sword to come out and signal the attack."
?CCL20: EQUAL? HERE,COURTYARD \FALSE
CRLF
PRINTR "You can see Yabu hurriedly move between Ishido and Buntaro. You can see even from here that there is going to be blood shed."
?CCL17: EQUAL? ISHIDO-CNT,4 \?CCL24
MOVE HIRO-MATSU,FORECOURT
EQUAL? HERE,FORECOURT \?CCL27
CRLF
PRINTI "Quietly, Hiro-matsu walks out of the garden shadows into the forecourt. ""You can find friends in manure, sometimes, my son,"" he says calmly. Hands ease off sword hilts. ""We have friends all over the castle. All over Osaka."" He stares into Buntaro's eyes. ""Isn't that so, my son?"""
CRLF
CRLF
PRINTI "With an enormous effort, Buntaro nods and steps back a pace."
CRLF
CRLF
PRINTR "Ishido says mildly, ""I came to pay my respects to Lady Kiritsubo. I was not informed until a few moments ago that anyone was leaving."""
?CCL27: EQUAL? HERE,COURTYARD \FALSE
CRLF
PRINTI "You can see Hiro-matsu approach the angry pair. He says something which causes Buntaro to back off. Tensions seem to ease."
CRLF
CRLF
PRINTR "Ishido asks something politely of Hiro-matsu."
?CCL24: EQUAL? ISHIDO-CNT,5 \FALSE
MOVE HIRO-MATSU,COURTYARD
MOVE YABU,COURTYARD
MOVE ISHIDO,GENERIC-OBJECTS
ICALL2 DEQUEUE,I-ISHIDO
ICALL QUEUE,I-KIRI,-1
EQUAL? HERE,FORECOURT,COURTYARD \FALSE
CRLF
PRINTI "Ishido strides through the gateway into the courtyard, Hiro-matsu and Yabu accompanying him. Five guards follow. He bows politely and wishes Kiritsubo well."
CRLF
CRLF
PRINTI "Satisfied that all is as it should be, Ishido turns and leaves with all his men. Hiro-matsu exhales and scratches his piles."
EQUAL? HERE,COURTYARD \?CCL37
PRINTR " ""You'd better leave now, Yabu-san. That rice maggot'll give you no more trouble."" Yabu replies, ""Yes, at once."""
?CCL37: PRINTR " He says something to Yabu, who bows and then begins to get the escort moving."
.FUNCT TORANAGA-IN-DRAG-F:ANY:0:1,RARG
EQUAL? RARG,M-WINNER \?CCL3
ICALL2 CTHE-PRINT,TORANAGA-IN-DRAG
PRINTR " looks at you, but doesn't reply."
?CCL3: EQUAL? PRSA,V?EXAMINE \?CCL5
IN? PRSO,KIRIS-LITTER \?CCL8
PRINTI "You can't get a good look at "
ICALL1 THE-PRINT-PRSO
PRINTR "."
?CCL8: FSET? TORANAGA-IN-DRAG,SCOREBIT \?CCL10
ICALL REPLACE-SYNONYM,TORANAGA-IN-DRAG,W?KIRITSUBO,W?TORANAGA
FCLEAR TORANAGA-IN-DRAG,FEMALE
PRINTI "You look at the veiled figure. She is dressed exactly like Kiri, and at first you assume that it must be her. But if so, how did she get here? Then you look more carefully, and realize it's a man, not a woman -- it's Toranaga, in disguise! What can he be planning? Escape!"
CRLF
CALL2 SCORE-OBJECT,TORANAGA-IN-DRAG
RSTACK
?CCL10: PRINTR "Toranaga looks back at you and makes a gesture that you can clearly see means 'go away.'"
?CCL5: CALL1 HOSTILE-VERB?
ZERO? STACK /FALSE
CALL JIGS-UP?,J-DRAG,STR?532
ZERO? STACK /TRUE
FSET? TORANAGA-IN-DRAG,SCOREBIT \?CCL18
PRINTI "You grapple with the veiled figure. As you fight, her veil drops off"
PRINT STR?533
CRLF
JUMP ?CND16
?CCL18: PRINTI "You grapple with Toranaga, whose feminine kimono conceals armor and swords. He draws his killing sword and ends your life."
CRLF
?CND16: CALL1 JIGS-UP
RSTACK
.FUNCT VEIL-F:ANY:0:0
EQUAL? PRSA,V?EXAMINE,V?LOOK-INSIDE,V?LOOK-BEHIND /?PRD5
EQUAL? PRSA,V?LOOK-UNDER,V?RAISE \?CCL3
?PRD5: IN? VEIL,TORANAGA-IN-DRAG \?CCL3
ICALL PERFORM,V?EXAMINE,TORANAGA-IN-DRAG
RTRUE
?CCL3: EQUAL? PRSA,V?TAKE \FALSE
IN? VEIL,TORANAGA-IN-DRAG \FALSE
FSET? TORANAGA-IN-DRAG,SCOREBIT \FALSE
CALL JIGS-UP?,J-VEIL,STR?534
ZERO? STACK /TRUE
MOVE VEIL,WINNER
PRINTI "You snatch the veil"
PRINT STR?533
CRLF
CALL1 JIGS-UP
RSTACK
.SEGMENT "SEPPUKU"
.FUNCT COURTYARD-F:ANY:1:1,RARG
EQUAL? RARG,M-SCENE-SETUP \?CCL3
ICALL1 DRESS-BLACKTHORNE
ICALL QUEUE,I-ISHIDO,2
MOVE TORANAGA-IN-DRAG,TEA-HOUSE
MOVE MARIKO,HERE
MOVE SAZUKO,HERE
MOVE KIRITSUBO,KIRIS-LITTER
CALL2 MOVE-CORTEGE,HERE
RSTACK
?CCL3: EQUAL? RARG,M-LOOK \?CCL5
PRINTI "This is the courtyard of Toranaga's keep within Osaka castle. The garden is through a gate to the west, and to the south is the forecourt and fortified gate that guards the keep.
In the forecourt, outside the gate, "
EQUAL? SCENE,S-ESCAPE \?CCL8
PRINTR "an escort of sixty heavily armed samurai is drawn up in neat lines, every third man carrying a flare."
?CCL8: EQUAL? SCENE,S-SEPPUKU \FALSE
PRINTR "is a crowd of Grays, and mingling with them other samurai and their women."
?CCL5: EQUAL? RARG,M-BEG \FALSE
EQUAL? PRSO,ISHIDO,BUNTARO,YABU /?PRD17
EQUAL? PRSO,HIRO-MATSU /?PRD17
EQUAL? PRSI,ISHIDO,BUNTARO,YABU /?PRD17
EQUAL? PRSI,HIRO-MATSU \?CCL15
?PRD17: IN? PRSO,HERE /?CCL15
IN? PRSO,FORECOURT \?CCL24
ICALL1 CTHE-PRINT-PRSO
PRINTR " seems to be talking with some others by the gate. You are too far away to really tell what's going on."
?CCL24: ICALL1 CTHE-PRINT-PRSO
PRINTR " doesn't seem to be anywhere nearby."
?CCL15: EQUAL? PRSA,V?WALK \?CCL26
EQUAL? P-WALK-DIR,P?SOUTH,P?OUT \?CCL26
FSET? FORTIFIED-GATE,OPENBIT /?CCL26
PRINTR "You must wait for the gate to be opened."
?CCL26: EQUAL? PRSA,V?WALK \FALSE
EQUAL? P-WALK-DIR,P?WEST \FALSE
EQUAL? SCENE,S-ESCAPE \FALSE
ZERO? BEEN-IN-GARDEN? /FALSE
PRINTR """No, Anjin-san, stay here!"" Mariko says. ""We are leaving soon."""
.ENDSEG
.SEGMENT "ESCAPE"
.FUNCT I-KIRI:ANY:0:0
INC 'DELAY-CNT
EQUAL? KIRI-CNT,5 \?CCL5
IN? PLAYER,COURTYARD \?CND3
CRLF
PRINTR "The samurai eye you strangely, motioning you through the gate."
?CCL5: EQUAL? KIRI-CNT,6 \?CND3
EQUAL? HERE,FORECOURT \?CND3
CRLF
PRINTR "You are urged along by the other members of the procession."
?CND3: SET 'DELAY-CNT,0
INC 'KIRI-CNT
EQUAL? KIRI-CNT,1 \?CCL13
EQUAL? HERE,COURTYARD \?CCL16
CRLF
PRINTI "Kiritsubo begins to cry. She obviously doesn't want to leave. She tries to stifle her sobs and unlooses her thick veil. She calls Yabu over to her litter and points to Lady Sazuko, Toranaga's pregnant consort, apparently giving him instructions. All you can understand is the word "
ICALL2 PRINTUNDER,STR?514
PRINTR ", 'please.' Yabu bows."
?CCL16: CRLF
PRINTR "You can hear conversations and crying coming from the courtyard."
?CCL13: EQUAL? KIRI-CNT,2 \?CCL18
FSET KIRITSUBO,SCOREBIT
EQUAL? HERE,COURTYARD \?CCL21
CRLF
PRINTR "Lady Sazuko bows and hurries off, Yabu following. The girl runs up the steps. As she nears the top she slips and falls. Kiri screams something in Japanese. All eyes flash to the prostrate girl."
?CCL21: EQUAL? HERE,FORMAL-GARDEN \?CCL23
SET 'SEEN-TORANAGA?,TRUE-VALUE
CRLF
PRINTI "Kiritsubo hurries through the garden into the little tea house, then emerges again moments later. As she passes you, your eyes meet. "
FSET? TORANAGA-IN-DRAG,SCOREBIT \?CCL26
ICALL REPLACE-SYNONYM,TORANAGA-IN-DRAG,W?KIRITSUBO,W?TORANAGA
PRINTI "It is not Kiri, but Toranaga in disguise!"
CRLF
JUMP ?CND24
?CCL26: PRINTI "It is Toranaga. Kiritsubo and Toranaga have switched!"
CRLF
?CND24: CRLF
PRINTI "The figure slips into Kiri's litter, veil drawn."
CRLF
CALL SCORE-OBJECT,TORANAGA-IN-DRAG,KIRITSUBO
RSTACK
?CCL23: EQUAL? HERE,TEA-HOUSE \?CCL28
CRLF
PRINTI "Suddenly, Kiritsubo dashes into the tea house. When she sees you, she screams in surprise. In moments, Yabu pokes his head into the tea house. "
ICALL2 JIGS-UP,STR?536
CRLF
RTRUE
?CCL28: CRLF
PRINTR "There seems to be some commotion in the courtyard."
?CCL18: EQUAL? KIRI-CNT,3 \?CCL30
MOVE TORANAGA-IN-DRAG,KIRIS-LITTER
MOVE KIRITSUBO,TEA-HOUSE
FCLEAR KIRITSUBO,SCOREBIT
EQUAL? HERE,COURTYARD \?CCL33
EQUAL? OHERE,FORMAL-GARDEN \?CND34
CRLF
PRINTI "You see that Sazuko, one of Toranaga's consorts, has fallen to the ground. She is pregnant, and everyone is terrified for the safety of the child."
CRLF
?CND34: CRLF
PRINTR "Mariko and Yabu rush to aid the girl. Yabu picks her up. Sazuko is more startled than hurt. She speaks to them, embarrassed at her clumsiness, then stands. Everyone relaxes. Toranaga's unborn child is safe."
?CCL33: CRLF
PRINTR "The commotion in the courtyard seems to have subsided."
?CCL30: EQUAL? KIRI-CNT,4 \?CCL37
REMOVE SAZUKO
EQUAL? HERE,FORMAL-GARDEN,TEA-HOUSE \?CND38
ICALL1 I-COME-BACK
?CND38: MOVE MARIKO,MARIKOS-LITTER
EQUAL? HERE,COURTYARD \?CCL42
CRLF
PRINTR "Yabu shouts orders at the head of the column and sets off. Mariko gets into her litter, leaving the curtains partially open. Kiri's litter is closed."
?CCL42: CRLF
PRINTR "You can hear the procession preparing to move out."
?CCL37: EQUAL? KIRI-CNT,5 \?CCL44
ICALL2 MOVE-CORTEGE,FORECOURT
MOVE HIRO-MATSU,GENERIC-OBJECTS
EQUAL? HERE,COURTYARD,FORECOURT \?CCL47
CRLF
PRINTR "The column begins to move out into the forecourt, the litter bearers carrying Mariko's and Kiritsubo's litters. Samurai move to the great door and prepare to close it."
?CCL47: CRLF
PRINTR "You can hear the procession moving off."
?CCL44: EQUAL? KIRI-CNT,6 \?CCL49
FCLEAR FORTIFIED-GATE,OPENBIT
CRLF
PRINTR "The last of the column moves out into the forecourt, and the huge fortified door closes as the great wooden bar falls into place. The head of the column is already moving on towards the gateway."
?CCL49: EQUAL? KIRI-CNT,7 \FALSE
CALL1 TELL-CHECKPOINTS
RSTACK
.FUNCT TELL-CHECKPOINTS:ANY:0:0
ICALL2 DEQUEUE,I-KIRI
ICALL2 MOVE-CORTEGE,GATEWAY
SET 'ISHIDO-CNT,0
ICALL QUEUE,I-ISHIDO-2,-1
CRLF
PRINTR "The little cortege surrounding the two litters goes slowly through the maze of the castle and through the continual checkpoints. Each time there are formal bows, the documents are meticulously examined afresh, a new captain and group of escorting Grays take over, and then you are passed. At each checkpoint you watch with increasing misgivings as the captain of the guard comes close to scrutinize the drawn curtains of Kiritsubo's litter. Each time the man bows politely to the half-seen figure, hears the muffled sobs, and in the course of time, waves you on again.
Finally, you pass a checkpoint, turn a corner, and reach the last barrier."
.FUNCT CURTAINS-F:ANY:0:0
EQUAL? PRSA,V?OPEN,V?CLOSE \?CCL3
EQUAL? PRSA,V?OPEN \?CCL6
FSET? CURTAINS,OPENBIT /?CCL6
CALL2 QUEUED?,I-ISHIDO-2
ZERO? STACK /?CCL6
LESS? ISHIDO-CNT,3 /?CCL6
SET 'ISHIDO-CNT,5
SET 'ISHIDO-DISTRACTED?,FALSE-VALUE
FSET CURTAINS,OPENBIT
PRINTR "You shove the curtains open, revealing not Kiritsubo, but Toranaga! He is veiled and dressed in a woman's kimono, but there's no mistaking him!"
?CCL6: PRINTR "Kiritsubo's maids politely bar your approach."
?CCL3: EQUAL? PRSA,V?LOOK-INSIDE \FALSE
PRINTR "All you can see is a shadowy, veiled figure."
.FUNCT I-COME-BACK:ANY:0:0
FSET? KIRITSUBO,SCOREBIT \?CND1
LOC SAZUKO
ZERO? STACK /?CND1
ICALL QUEUE,I-COME-BACK,2
RFALSE
?CND1: SET 'BEEN-IN-GARDEN?,TRUE-VALUE
EQUAL? HERE,FORMAL-GARDEN,TEA-HOUSE \FALSE
LOC MARIKO
EQUAL? STACK,COURTYARD,MARIKOS-LITTER,FORECOURT \FALSE
CRLF
PRINTI "Mariko calls to you again, ""Anjin-san, come here!"" She speaks briefly to Yabu, who bustles into the garden to get you. "
EQUAL? HERE,TEA-HOUSE \?CCL12
IN? TORANAGA-IN-DRAG,HERE /?CTR11
IN? KIRITSUBO,HERE \?CCL12
?CTR11: PRINTI "Yabu calls for you, searching the garden, and then looks in the tea house. "
IN? TORANAGA-IN-DRAG,HERE \?CCL19
ICALL2 JIGS-UP,STR?536
RETURN M-FATAL
?CCL19: ICALL2 JIGS-UP,STR?537
RETURN M-FATAL
?CCL12: PRINTI "He hustles you unceremoniously back to the courtyard."
CRLF
CRLF
CALL2 GOTO,COURTYARD
RSTACK
.SEGMENT "MAZE"
.FUNCT KIRIS-LITTER-DESC:ANY:2:2,RARG,OBJ
EQUAL? RARG,M-OBJDESC? /TRUE
PRINTI "Kiritsubo's curtained litter "
EQUAL? HERE,COURTYARD \?CCL6
PRINTI "sits near the garden gate"
JUMP ?CND4
?CCL6: PRINTI "is nearby"
?CND4: IN? OBJ,KIRITSUBO /?CTR8
IN? OBJ,TORANAGA-IN-DRAG \?CCL9
?CTR8: PRINTI ", and through the "
FSET? CURTAINS,OPENBIT \?CCL14
PRINTI "open"
JUMP ?CND12
?CCL14: PRINTI "closed"
?CND12: PRINTI " curtains you can see the shadowy figure of Kiritsubo."
RETURN M-FATAL
?CCL9: PRINTC 46
RETURN M-FATAL
.FUNCT KIRIS-LITTER-F:ANY:0:1,RARG
ZERO? RARG \FALSE
EQUAL? PRSA,V?EXAMINE \?CCL5
FSET? CURTAINS,OPENBIT \?CCL8
PRINTI "Through the open curtains of the litter you can see "
ZERO? SEEN-TORANAGA? /?CCL11
PRINTR "a disguised Toranaga."
?CCL11: PRINTR "Kiritsubo."
?CCL8: PRINTR "The litter is heavily curtained, and the curtains are closed."
?CCL5: EQUAL? PRSA,V?BOARD \?CCL13
PRINTR "Kiritsubo's maid prevents you."
?CCL13: EQUAL? PRSA,V?OPEN,V?CLOSE,V?LOOK-INSIDE \FALSE
ICALL PERFORM,PRSA,CURTAINS
RTRUE
.FUNCT MARIKOS-LITTER-F:ANY:0:1,RARG
EQUAL? RARG,M-BEG \?CCL3
EQUAL? HERE,WOODS,CITY \?CCL6
EQUAL? PRSA,V?WALK \?CCL6
EQUAL? PRSO,P?EAST /?CCL6
PRINTR """No, Anjin-san, the docks are to the east, through the city."" The kaga-men don't move."
?CCL6: EQUAL? PRSA,V?SIT \?CCL11
PRINT STR?520
CRLF
RTRUE
?CCL11: EQUAL? PRSA,V?SLEEP \FALSE
ZERO? OPPONENT \FALSE
CALL2 QUEUED?,I-AMBUSH
ZERO? STACK \FALSE
PRINTR "You manage to doze a little, regaining some strength."
?CCL3: EQUAL? RARG,FALSE-VALUE \FALSE
EQUAL? PRSA,V?BOARD \FALSE
EQUAL? HERE,WOODS \?CCL24
CALL1 GET-IN-LITTER
RSTACK
?CCL24: PRINTR "Mariko's maid prevents you."
.ENDSEG
.SEGMENT "ESCAPE"
.FUNCT GET-IN-LITTER:ANY:0:1,FORCE?
ICALL2 DEQUEUE,I-ESCAPE-CONTINUES
MOVE PLAYER,MARIKOS-LITTER
ZERO? FORCE? /?CCL3
CRLF
PRINTI "Mariko motions to the escort, and with great politeness but very insistently, they load you"
JUMP ?CND1
?CCL3: PRINTI "You sway on your feet, and allow yourself to be helped"
?CND1: PRINTI " into the litter. At once the procession starts again. The rolling gait is soothing and you lay back, depleted."
CRLF
CRLF
MOVE KIRIS-LITTER,CITY
MOVE BUNTARO,CITY
MOVE YABU,CITY
CALL2 GOTO,CITY
RSTACK
.SEGMENT "DEPARTURE"
.FUNCT MARIKOS-LITTER-DESC:ANY:2:2,RARG,OBJ
EQUAL? RARG,M-OBJDESC? /TRUE
PRINTI "Mariko's litter is here"
IN? MARIKO,OBJ \?CCL6
PRINTI ", and through the open curtains you can see Mariko."
RETURN M-FATAL
?CCL6: PRINTC 46
RETURN M-FATAL
.SEGMENT "SEPPUKU"
.FUNCT FORECOURT-F:ANY:1:1,RARG
EQUAL? RARG,M-SCENE-SETUP \?CCL3
ICALL1 DRESS-BLACKTHORNE
MOVE SWORDS,BLACKTHORNE
FSET SWORDS,WEARBIT
MOVE SAZUKO,FORECOURT
MOVE KIRITSUBO,FORECOURT
MOVE GRAYS,FORECOURT
MOVE BROWNS,FORECOURT
MOVE MARIKOS-LITTER,FORECOURT
MOVE MARIKO,MARIKOS-LITTER
CALL QUEUE,I-DEPARTURE,-1
RSTACK
?CCL3: EQUAL? RARG,M-LOOK \?CCL5
PRINTI "This is the forecourt of Toranaga's keep. To the south is the maze of paths and walls that makes up the rest of the castle. To the north, through an arched gateway with a fortified gate, is a courtyard."
EQUAL? SCENE,S-DEPARTURE,S-SEPPUKU \?CND6
PRINTR " The forecourt is crowded with Grays, other samurai and their women."
?CND6: CRLF
RTRUE
?CCL5: EQUAL? RARG,M-LEAVE \?CCL9
EQUAL? SCENE,S-ESCAPE \FALSE
IN? KIRIS-LITTER,FORECOURT \FALSE
ICALL1 TELL-CHECKPOINTS
CRLF
RTRUE
?CCL9: EQUAL? RARG,M-BEG \FALSE
EQUAL? PRSA,V?WALK \?CCL19
EQUAL? SCENE,S-DEPARTURE \?CCL22
CALL2 QUEUED?,I-FIGHT
ZERO? STACK /?CCL25
CALL JIGS-UP?,J-FLEE,STR?539
ZERO? STACK /TRUE
CALL2 JIGS-UP,STR?540
RSTACK
?CCL25: PRINTR "Mariko says, ""Please, Anjin-san, you cannot abandon me now. I must fulfill my duty."""
?CCL22: EQUAL? P-WALK-DIR,P?NORTH \?CCL30
EQUAL? SCENE,S-ESCAPE \FALSE
IN? CORTEGE,HERE \FALSE
PRINTR "The guards won't let you back through the gate."
?CCL30: EQUAL? P-WALK-DIR,P?SOUTH \FALSE
EQUAL? SCENE,S-ESCAPE \?CCL40
CALL2 QUEUED?,I-ISHIDO
ZERO? STACK /?CCL43
PRINTR "The Grays stop you, indicating that you must leave with Kiritsubo or not at all."
?CCL43: CALL2 QUEUED?,I-KIRI
ZERO? STACK /FALSE
IN? SAZUKO,COURTYARD \?CCL48
PRINTR "You start off into the maze of the castle, and then think better of it, deciding to wait for the rest of the cortege."
?CCL48: IN? KIRIS-LITTER,GATEWAY /FALSE
IN? KIRIS-LITTER,FORECOURT /FALSE
PRINTR "You decide it would be too dangerous to get ahead of the rest of the cortege."
?CCL40: EQUAL? SCENE,S-DEPARTURE \?CCL54
PRINTR "A near-solid mass of Gray samurai blocks the avenue."
?CCL54: EQUAL? SCENE,S-SEPPUKU \FALSE
PRINTR "The avenue is blocked by the onlookers nervously anticipating the events to come."
?CCL19: EQUAL? PRSA,V?PARRY,V?STOP \FALSE
CALL2 HELD?,SWORDS
ZERO? STACK /FALSE
CALL2 QUEUED?,I-FIGHT
ZERO? STACK /FALSE
PRINTR "You force your sword around, desperately trying to block the attack!"
.FUNCT FORTIFIED-GATE-F:ANY:0:0
EQUAL? PRSA,V?OPEN,V?CLOSE \FALSE
PRINTR "You could no more open or close this gate by yourself than tear down Osaka Castle with your bare hands."
.ENDSEG
.SEGMENT "ESCAPE"
.FUNCT GATEWAY-F:ANY:1:1,RARG,MAD?
EQUAL? RARG,M-LOOK \?CCL3
PRINTI "This is the last portcullis and last gateway of the castle, and beyond is the final drawbridge and the final moat. To the south, on the far side of the bridge, is the ultimate strongpoint."
EQUAL? SCENE,S-ESCAPE \?CCL6
PRINTR " A multitude of flares turn the night into crimson day."
?CCL6: PRINTR " Crowds of curious onlookers clog the street."
?CCL3: EQUAL? RARG,M-ENTER \?CCL8
EQUAL? OHERE,FORECOURT \TRUE
SET 'ISHIDO-CNT,0
ICALL QUEUE,I-ISHIDO-2,-1
RTRUE
?CCL8: EQUAL? RARG,M-BEG \FALSE
EQUAL? SCENE,S-ESCAPE \FALSE
CALL2 QUEUED?,I-ISHIDO-2 >MAD?
ZERO? MAD? \?PEN16
CALL2 QUEUED?,I-MADNESS >MAD?
?PEN16: EQUAL? PRSA,V?EXAMINE \?CCL21
EQUAL? PRSO,MARIKO,YABU,BUNTARO \?CCL21
ZERO? MAD? /FALSE
ICALL1 DPRINT-PRSO
PRINTI " looks very "
CALL2 QUEUED?,I-MADNESS
ZERO? STACK /?CCL29
PRINTR "scared."
?CCL29: PRINTR "worried."
?CCL21: EQUAL? PRSA,V?HELP \?CCL31
EQUAL? PRSO,TORANAGA \?CCL31
PRINTR "Precisely what you need to do, but how?"
?CCL31: EQUAL? PRSA,V?WALK \?CCL35
CALL2 QUEUED?,I-MARIKO-FOLLOW
ZERO? STACK /?CCL38
SET 'ISHIDO-DISTRACTED?,PRSA
RFALSE
?CCL38: EQUAL? PRSO,P?SOUTH \?CCL40
ZERO? MAD? /FALSE
ZERO? SEEN-MAD-SCENE? /?CND44
SET 'ISHIDO-DISTRACTED?,PRSA
PRINTI "You bow to Ishido like a spastic puppet and half walk, half dance for the gateway. ""Follow me, follow me!"" you shout, like a demented Pied Piper."
CRLF
?CND44: PRINTI "The Grays bar the way."
CRLF
ZERO? SEEN-MAD-SCENE? /TRUE
CRLF
PRINTR "You roar with feigned rage and imperiously order them out of the way, then immediately switch to hysterical laughter."
?CCL40: EQUAL? PRSO,P?NORTH \FALSE
ZERO? MAD? /FALSE
PRINTR "The narrow street is blocked by the litters, kaga-men, and escorts."
?CCL35: EQUAL? PRSA,V?STOP \?PRD57
EQUAL? PRSO,FALSE-VALUE,CRAZY /?PRD55
?PRD57: EQUAL? PRSA,V?ACT \?CCL53
EQUAL? PRSO,SANE \?CCL53
?PRD55: CALL2 QUEUED?,I-MARIKO-FOLLOW
ZERO? STACK /?CCL53
FSET? BLACKTHORNE,RMUNGBIT /?CCL64
FSET BLACKTHORNE,RMUNGBIT
SET 'ISHIDO-DISTRACTED?,PRSA
PRINTR "You stop instantly, turn and walk quietly toward the bridge."
?CCL64: PRINTR "You've already stopped."
?CCL53: EQUAL? PRSA,V?TAKE,V?STOP \?CCL66
EQUAL? PRSO,ISHIDO \?CCL66
ICALL PERFORM,V?ATTACK,ISHIDO
RTRUE
?CCL66: EQUAL? PRSA,V?BOW \?CCL70
EQUAL? PRSO,ISHIDO \?CCL70
PRINTR "He looks at you contemptuously."
?CCL70: CALL1 HOSTILE-VERB?
ZERO? STACK /?CCL74
EQUAL? PRSO,ISHIDO \?CCL74
EQUAL? MADNESS-CNT,3 \?CCL79
SET 'ISHIDO-DISTRACTED?,PRSA
PRINTR "You go berserk, bunching your fists and hurling yourself at Ishido. It takes four Browns to haul you off, then Buntaro smashes you hard on the back of your neck, stunning you."
?CCL79: CALL JIGS-UP?,J-ISHIDO,STR?541
ZERO? STACK /TRUE
CALL2 JIGS-UP,STR?542
RSTACK
?CCL74: CALL1 ACT-CRAZY?
ZERO? STACK \?CCL83
EQUAL? PRSA,V?DISTRACT \FALSE
EQUAL? PRSO,ISHIDO \FALSE
?CCL83: LESS? ISHIDO-CNT,3 \?CCL90
CALL2 QUEUED?,I-MADNESS
ZERO? STACK /FALSE
?CCL90: LESS? JERK-CNT,2 \?CND93
SET 'ISHIDO-DISTRACTED?,PRSA
?CND93: ZERO? SEEN-MAD-SCENE? \?CND95
SET 'SEEN-MAD-SCENE?,TRUE-VALUE
ICALL2 MARGINAL-PIC,P-MAD-SCENE
?CND95: EQUAL? ISHIDO-CNT,3,4,5 \?CCL99
LESS? JERK-CNT,2 \?CCL102
PRINTI "Ishido and the others whirl on you dumbfounded."
ICALL1 TORANAGA-CLOSES-CURTAIN
CRLF
CALL2 SCORE-OBJECT,CRAZY
RSTACK
?CCL102: PRINTR "Ishido starts briefly, but is more interested in Kiri's litter."
?CCL99: PRINTR "Everyone continues to stare at you. The tension is incredible, and your exhaustion is beginning to take its toll."
.FUNCT TORANAGA-CLOSES-CURTAIN:ANY:0:0
SET 'ISHIDO-DISTRACTED?,PRSA
ICALL2 DEQUEUE,I-ISHIDO-2
SET 'ISHIDO-CNT,0
ICALL QUEUE,I-MADNESS,-1
FSET? CURTAINS,OPENBIT \FALSE
FCLEAR CURTAINS,OPENBIT
PRINTI " For an instant Toranaga is in full view behind Ishido. In the never-ending second before Toranaga tugs the curtains closed again, you know that Yabu has recognized him, and Mariko, and probably Buntaro and some of the Brown samurai."
RTRUE
.FUNCT I-ISHIDO-2:ANY:0:0
INC 'DELAY-CNT
ZERO? ISHIDO-CNT \?CCL5
CALL2 QUEUED?,I-KIRI
ZERO? STACK \FALSE
EQUAL? HERE,GATEWAY \FALSE
IN? KIRIS-LITTER,HERE /?CND3
RFALSE
?CCL5: EQUAL? ISHIDO-CNT,6 \?CND3
ZERO? ISHIDO-DISTRACTED? \?CND3
IN? KIRIS-LITTER,AT-PORTCULLIS /?CCL13
IN? KIRIS-LITTER,ON-BRIDGE \?CND3
?CCL13: GRTR? DELAY-CNT,2 \?CCL20
CRLF
PRINTI "Ishido seems to come to a decision. It appears to involve arrows."
CRLF
ICALL1 JIGS-UP
RETURN M-FATAL
?CCL20: CRLF
PRINTR "Ishido watches the cortege, a strange expression on his face."
?CND3: SET 'DELAY-CNT,0
INC 'ISHIDO-CNT
EQUAL? ISHIDO-CNT,1 \?CCL23
MOVE ISHIDO,GATEWAY
ICALL2 THIS-IS-IT,ISHIDO
CRLF
PRINTR "Ishido steps from the shadows. The Browns see him almost in the same instant. Hostility whips though them. Buntaro almost leaps past you to get nearer the head of the column."
?CCL23: EQUAL? ISHIDO-CNT,2 \?CCL25
MOVE PARCHMENT,ISHIDO
ICALL2 THIS-IS-IT,ISHIDO
CRLF
PRINTI "Ishido takes a roll of parchment out of his sleeve. ""I wanted to ask Lady Kiritsubo if she'd take this with her to Yedo. For my niece. It's unlikely I'll go to Yedo for some time.""
""Certainly."" Yabu puts out his hand to take the parchment.
""Don't trouble yourself, Yabu-san. I'll ask her."" Ishido walks toward the litter."
CRLF
CRLF
PRINTR "The maids obsequiously intercept Ishido. ""May I take the message, Lord. My Mis--""
""No."" To Ishido's surprise the maids do not move out of the way."
?CCL25: EQUAL? ISHIDO-CNT,3 \?CCL27
CRLF
PRINTR """Move!"" Buntaro snarls. Both maids back off, frightened.
Ishido bows to the curtain. ""Kiritsubo-san, I wonder if you'd be kind enough to take this message for me to Yedo? To my niece?""
There is a slight hesitation between the sobs and the figure bows an assent.
""Thank you."" Ishido offers up the slim roll of parchment an inch from the curtains."
?CCL27: EQUAL? ISHIDO-CNT,4 \?CCL29
ICALL2 THIS-IS-IT,ISHIDO
CRLF
PRINTI "Everyone is waiting for the hand to appear."
ZERO? SEEN-TORANAGA? /?CND30
PRINTI " You realize Toranaga is trapped. Politeness demands that he take the scroll and his hand will give him away!"
?CND30: CRLF
CRLF
PRINTR "Ishido is getting impatient. ""Kiritsubo-san?"" he calls."
?CCL29: EQUAL? ISHIDO-CNT,5 \?CCL33
ZERO? ISHIDO-DISTRACTED? \FALSE
ICALL2 THIS-IS-IT,ISHIDO
LOC KIRIS-LITTER
IN? ISHIDO,STACK \?CCL39
FSET CURTAINS,OPENBIT
INC 'JERK-CNT
CRLF
PRINTR "Ishido takes a quick pace forward and jerks the curtains of the litter apart."
?CCL39: CRLF
PRINT STR?543
CRLF
RTRUE
?CCL33: EQUAL? ISHIDO-CNT,6 \?CCL41
ZERO? ISHIDO-DISTRACTED? \FALSE
LOC KIRIS-LITTER
IN? ISHIDO,STACK \?CCL47
ICALL2 DEQUEUE,I-ISHIDO-2
CRLF
PRINTI "In shock, Ishido stares into the litter, recognizing Toranaga in spite of his disguise. ""Guards!"" he yells, as Yabu, Mariko, and Buntaro all realize what is happening. Buntaro begins to draw his sword, but before he can strike at Ishido a hail of arrows stitches him. Within moments the column is a shambles as the Browns and Grays try to defend their masters."
CRLF
CRLF
ICALL2 JIGS-UP,STR?544
RETURN M-FATAL
?CCL47: CRLF
PRINT STR?545
CRLF
RTRUE
?CCL41: EQUAL? ISHIDO-CNT,7 \FALSE
ICALL2 DEQUEUE,I-ISHIDO-2
RFALSE
.FUNCT ON-BRIDGE-F:ANY:1:1,RARG
EQUAL? RARG,M-BEG \FALSE
EQUAL? PRSA,V?LEAP,V?DIVE \?CCL6
EQUAL? PRSO,ON-BRIDGE,GLOBAL-HERE \?CCL6
CALL2 JIGS-UP?,J-MOAT
ZERO? STACK /TRUE
CALL2 JIGS-UP,STR?547
RSTACK
?CCL6: EQUAL? SCENE,S-SEPPUKU /FALSE
EQUAL? PRSA,V?WALK \FALSE
EQUAL? P-WALK-DIR,P?SOUTH \FALSE
CALL2 QUEUED?,I-MARIKO-FOLLOW
ZERO? STACK /FALSE
SET 'ISHIDO-DISTRACTED?,PRSA
RFALSE
.FUNCT AT-PORTCULLIS-F:ANY:1:1,RARG
EQUAL? RARG,M-BEG \FALSE
EQUAL? SCENE,S-SEPPUKU /FALSE
EQUAL? PRSA,V?WALK \?CCL8
EQUAL? P-WALK-DIR,P?SOUTH \?CCL8
CALL2 QUEUED?,I-MADNESS
ZERO? STACK /FALSE
ICALL2 DEQUEUE,I-MADNESS
PRINTI "It requires all of your remaining will to stay erect. You"
IN? SANDALS,BLACKTHORNE \?CND14
MOVE SANDALS,HERE
FCLEAR SANDALS,WEARBIT
PRINTI " have lost your sandals, you"
?CND14: PRINTI "r face burns from Ishido's blow, and your head pounds with pain. The last guards let you through the portcullis and beyond. They also let Mariko past without stopping, and then the litters.
You lead the way down a slight hill, past some open ground and into a wooded area."
CRLF
CRLF
CALL2 GOTO,WOODS
RSTACK
?CCL8: EQUAL? PRSA,V?WALK \FALSE
EQUAL? P-WALK-DIR,P?NORTH \FALSE
PRINTR "You are stopped and refused entry at the checkpoint."
.FUNCT WOODS-F:ANY:1:1,RARG
EQUAL? RARG,M-BEG \?CCL3
EQUAL? PRSA,V?WALK \FALSE
IN? PLAYER,MARIKOS-LITTER /FALSE
FSET? MAZE,TOUCHBIT /FALSE
PRINTR "You haven't the strength to walk: your performance has totally exhausted you. You try to stand, but your body doesn't obey."
?CCL3: EQUAL? RARG,M-END \?CCL11
EQUAL? SCENE,S-ESCAPE \FALSE
FSET? WOODS,SCOREBIT \FALSE
ICALL2 MOVE-CORTEGE,WOODS
MOVE MARIKO,WOODS
ICALL QUEUE,I-ESCAPE-CONTINUES,2
ICALL1 B-SIT
CRLF
PRINTI "As you enter the wooded area and assure yourself that you are out of sight of the castle, you gratefully collapse."
CRLF
CALL2 SCORE-OBJECT,WOODS
RSTACK
?CCL11: EQUAL? RARG,M-ENTER \FALSE
ICALL2 DEQUEUE,I-ISHIDO-2
ICALL2 DEQUEUE,I-MARIKO-FOLLOW
RTRUE
.FUNCT I-ESCAPE-CONTINUES:ANY:0:0
INC 'DELAY-CNT
EQUAL? LITTER-CNT,1 \?CND3
EQUAL? HERE,WOODS \?CND3
IN? PLAYER,MARIKOS-LITTER /?CND3
GRTR? DELAY-CNT,2 \?CCL11
ICALL2 GET-IN-LITTER,TRUE-VALUE
?CND3: SET 'DELAY-CNT,0
INC 'LITTER-CNT
EQUAL? LITTER-CNT,1 \?CCL14
ICALL QUEUE,I-ESCAPE-CONTINUES,-1
EQUAL? HERE,WOODS \FALSE
ICALL2 THIS-IS-IT,MARIKO
ICALL2 THIS-IS-IT,MARIKOS-LITTER
CRLF
PRINTR """Anjin-san!"" Mariko calls to you, jarring you out of your stupor. ""It's time to move on."" She glances significantly at the Gray captain, and adds, ""Kiritsubo feels we must hurry for the tide. All the trouble you have caused has made her even more upset. Please use my litter, I'm really very strong and you needn't worry."""
?CCL11: CRLF
PRINTR "Mariko says, ""Please hurry, Anjin-san!"""
?CCL14: EQUAL? LITTER-CNT,2 \FALSE
ICALL2 DEQUEUE,I-ESCAPE-CONTINUES
RFALSE
.FUNCT I-MADNESS:ANY:0:0
ZERO? ISHIDO-DISTRACTED? /?CCL3
SET 'ISHIDO-DISTRACTED?,FALSE-VALUE
INC 'DELAY-CNT
EQUAL? MADNESS-CNT,6 \?CND6
EQUAL? PRSA,V?STOP \?PRD11
EQUAL? PRSO,FALSE-VALUE,CRAZY /?CCL9
?PRD11: EQUAL? PRSA,V?ACT \?CND6
EQUAL? PRSO,SANE \?CND6
?CCL9: CRLF
PRINTR "Ishido stares at you, enraged but perplexed."
?CND6: SET 'DELAY-CNT,0
INC 'MADNESS-CNT
EQUAL? MADNESS-CNT,1 \?CCL18
MOVE MARIKO,HERE
ICALL2 THIS-IS-IT,ISHIDO
CRLF
PRINTR "Ishido draws his sword."
?CCL18: EQUAL? MADNESS-CNT,2 \?CCL20
ICALL2 THIS-IS-IT,ISHIDO
CRLF
PRINTR "Ishido watches you, his sword raised high, ready to strike, but your actions have momentarily stunned him."
?CCL20: EQUAL? MADNESS-CNT,3 \?CCL22
ICALL2 THIS-IS-IT,ISHIDO
CRLF
PRINTI "Ishido's reflexes take over and he sends his sword slashing for your throat. Mariko cries out. The blade stops a hair's breadth from your neck. She tries to "
IN? PARCHMENT,TORANAGA \?CCL25
PRINTI "explain what you said, and Ishido"
JUMP ?CND23
?CCL25: PRINTI "soothe Ishido, and he"
?CND23: SET 'OPPONENT,ISHIDO
PRINTR " lowers his sword, listens for a moment, then shouts with increasing vehemence and hits you in the face with the back of his hand."
?CCL22: EQUAL? MADNESS-CNT,4 \?CCL27
ICALL2 THIS-IS-IT,ISHIDO
CRLF
PRINTI "Yabu begins placating Ishido, Mariko tearfully repeating over and over in forced semihysteria that the mad barbarian believed he was only trying to save Ishido from a bad "
ICALL2 PRINTUNDER,STR?502
PRINTC 46
EQUAL? ISHIDO-DISTRACTED?,V?ATTACK,V?HIT \?CND28
PRINTR " ""It's the worst insult to touch their faces, just like with us!"""
?CND28: CRLF
RTRUE
?CCL27: EQUAL? MADNESS-CNT,5 \?CCL31
SET 'OPPONENT,FALSE-VALUE
ICALL2 THIS-IS-IT,ISHIDO
CRLF
PRINTR "Ishido grabs a bow and arrow. ""He's a mad dog! Mad dogs have to be dealt with!"""
?CCL31: EQUAL? MADNESS-CNT,6 \?CCL33
ICALL QUEUE,I-MARIKO-FOLLOW,-1
CRLF
PRINTR "Mariko leaps forward from her position near Toranaga's litter. ""Don't worry, Lord Ishido. It's a momentary madness."" She approaches you. ""I can help now, Anjin-san. We have to try to walk out. I will follow you. Please stop now."""
?CCL33: EQUAL? MADNESS-CNT,7 \?CCL35
EQUAL? HERE,ON-BRIDGE \?CCL38
CRLF
PRINTR "Yabu comes to life and says to Ishido, ""If you want him killed, let me do it."" Then he comes very close and drops his voice. ""Leave him alive. He's more valuable alive. Trust me. We need him alive."" Ishido puts the bow down."
?CCL38: ICALL2 DEQUEUE,I-MADNESS
CRLF
ICALL2 JIGS-UP,STR?550
RETURN M-FATAL
?CCL35: EQUAL? MADNESS-CNT,8 \?CCL40
EQUAL? HERE,ON-BRIDGE,AT-PORTCULLIS \FALSE
IN? CORTEGE,GATEWAY \FALSE
ICALL2 MOVE-CORTEGE,ON-BRIDGE
CRLF
PRINTR "Mariko looks back for an instant. ""They're following, Anjin-san, both litters are through the gate and they're on the bridge now!"""
?CCL40: EQUAL? MADNESS-CNT,9 \?CCL47
EQUAL? HERE,AT-PORTCULLIS,WOODS \FALSE
IN? CORTEGE,ON-BRIDGE \FALSE
ICALL2 MOVE-CORTEGE,AT-PORTCULLIS
CRLF
PRINTR "Quickly, the cortege follows to the portcullis. Mariko urges you on."
?CCL47: EQUAL? MADNESS-CNT,10 \FALSE
EQUAL? HERE,WOODS \FALSE
IN? CORTEGE,PORTCULLIS \FALSE
ICALL2 MOVE-CORTEGE,WOODS
CRLF
PRINTI "Quickly, the cortege goes through the portcullis and towards the woods. Mariko urges you on."
CRLF
CALL2 DEQUEUE,I-MADNESS
RSTACK
?CCL3: EQUAL? HERE,GATEWAY,ON-BRIDGE,AT-PORTCULLIS \FALSE
ICALL QUEUE,I-ISHIDO-2,-1
EQUAL? ISHIDO-CNT,5,6 /?CND62
SET 'ISHIDO-CNT,4
?CND62: IN? MARIKO,HERE \?CND64
EQUAL? HERE,ON-BRIDGE \?CND64
CRLF
PRINTI "Mariko looks back for an instant. ""He's not letting them go!"""
CRLF
?CND64: CALL1 I-ISHIDO-2
RSTACK
.FUNCT MOVE-CORTEGE:ANY:1:1,L
MOVE CORTEGE,L
MOVE KIRIS-LITTER,L
MOVE YABU,L
MOVE BUNTARO,L
MOVE MARIKOS-LITTER,L
RTRUE
.FUNCT PARCHMENT-F:ANY:0:0
EQUAL? PRSA,V?TAKE \?CCL3
IN? PARCHMENT,ISHIDO \?CCL6
LESS? ISHIDO-CNT,5 \?CTR8
CALL2 QUEUED?,I-MADNESS
ZERO? STACK /?CCL9
?CTR8: SET 'ISHIDO-DISTRACTED?,PRSA
MOVE PRSO,WINNER
PRINTI "You grab the parchment out of Ishido's fingers. He stares at you, shocked."
ICALL1 TORANAGA-CLOSES-CURTAIN
CRLF
CALL2 SCORE-OBJECT,PARCHMENT
RSTACK
?CCL9: CALL JIGS-UP?,J-PARCHMENT,STR?551
ZERO? STACK /TRUE
CALL2 JIGS-UP,STR?552
RSTACK
?CCL6: IN? PARCHMENT,KIRIS-LITTER \FALSE
PRINTR "You can't reach the parchment any longer."
?CCL3: EQUAL? PRSA,V?GIVE \?PRD19
EQUAL? PRSO,PARCHMENT \?PRD19
EQUAL? PRSI,TORANAGA-IN-DRAG /?CTR16
?PRD19: EQUAL? PRSA,V?PUT \?PRD23
EQUAL? PRSO,PARCHMENT \?PRD23
EQUAL? PRSI,KIRIS-LITTER /?CTR16
?PRD23: EQUAL? PRSA,V?THROW \?PRD27
EQUAL? PRSO,PARCHMENT \?PRD27
EQUAL? PRSI,KIRIS-LITTER /?CTR16
?PRD27: EQUAL? PRSA,V?PUT-ON \?CCL17
EQUAL? PRSO,PARCHMENT \?CCL17
EQUAL? PRSI,CURTAINS \?CCL17
?CTR16: CALL2 QUEUED?,I-MADNESS
ZERO? STACK \?CCL36
SET 'ISHIDO-DISTRACTED?,PRSA
PRINTR "You shove the parchment into the closed curtains, looking for a crack or gap, but all you succeed into doing is getting the parchment entangled."
?CCL36: MOVE PARCHMENT,KIRIS-LITTER
ICALL2 SCORE-OBJECT,CURTAINS
ICALL QUEUE,I-ISHIDO-2,-1
SET 'ISHIDO-CNT,4
SET 'ISHIDO-DISTRACTED?,PRSA
PRINTR "You thrust the parchment through the curtains, babbling the first foolish thing that comes into your head. ""It's bad luck in my country for a prince to give a message himself like a common bastard ... bad luck ..."" Everyone watches as you do this."
?CCL17: EQUAL? PRSA,V?TEAR,V?MUNG \?CCL38
EQUAL? PRSO,PARCHMENT \?CCL38
SET 'ISHIDO-DISTRACTED?,PRSA
REMOVE PARCHMENT
PRINTR "You tear the parchment into pieces, scattering them on the ground. Ishido stares at you in mingled surprise and hatred."
?CCL38: EQUAL? PRSA,V?READ \FALSE
EQUAL? PRSO,PARCHMENT \FALSE
PRINTR "You can't read Japanese."
.FUNCT CITY-F:ANY:0:1,RARG
EQUAL? RARG,M-ENTER \?CCL3
EQUAL? OHERE,WOODS \TRUE
ICALL MOVE-ALL,WOODS,CITY
RTRUE
?CCL3: EQUAL? RARG,FALSE-VALUE \FALSE
EQUAL? PRSA,V?FIND \FALSE
LESS? SCENE,S-VOYAGE /?CCL13