-
Notifications
You must be signed in to change notification settings - Fork 16
/
Copy pathosaka.zil
1837 lines (1748 loc) · 60.1 KB
/
osaka.zil
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
"OSAKA for
SHOGUN
(c) Copyright 1988 Infocom, Inc. All Rights Reserved."
<FILE-FLAGS SENTENCE-ENDS?>
<BEGIN-SEGMENT ESCAPE>
<CONSTANT J-DRAG 100>
<CONSTANT J-VEIL 101>
<CONSTANT J-FLEE 102>
<CONSTANT J-MOAT 103>
<CONSTANT J-ISHIDO 104>
<CONSTANT J-PARCHMENT 105>
<OBJECT CORTEGE
(DESC "cortege")
(SYNONYM CORTEGE PROCESSION PARTY COLUMN GRAYS BROWNS)
(FLAGS NDESCBIT)
(ACTION CORTEGE-F)>
<ROUTINE CORTEGE-F ()
<COND (<VERB? EXAMINE>
<TELL
"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." CR>)
(<VERB? FOLLOW>
<COND (<NOT <IN? ,CORTEGE ,HERE>>
<DO-WALK ,P?SOUTH>)>)>>
<ROUTINE ESCAPE-FOLLOW-KIRI ("AUX" DIR)
<COND (<AND ,SEEN-TORANAGA?
<IN? ,KIRIS-LITTER ,COURTYARD>>
<COND (<JIGS-UP? ,J-SWITCH
"You stop partway, realizing you might be disrupting something you know
nothing about.">
<TELL
"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." CR>
<JIGS-UP>)
(ELSE <RTRUE>)>)
(<NOT <IN? ,KIRIS-LITTER ,HERE>>
<COND (<SET DIR <NEXT-ROOM? <LOC ,KIRIS-LITTER>>>
<DO-WALK .DIR>)
(ELSE
<TELL "You've lost track of her." CR>)>)
(ELSE
<TELL
"She's in her litter, so you can follow it when it leaves." CR>)>>
<BEGIN-SEGMENT MAZE>
<OBJECT BUNTARO
(DESC "Buntaro")
(SYNONYM BUNTARO)
(ADJECTIVE LORD TODA)
(FLAGS PERSON JAPANESEBIT NOABIT NOTHEBIT)
(ACTION BUNTARO-F)>
<ROUTINE BUNTARO-F ("OPT" (RARG <>))
<COND (<RARG? SUBJ>
<RFALSE>)
(<RARG? WINNER>
<TELL
"Buntaro responds sharply and impatiently, but you can't understand
what he says." CR>)
(<VERB? EXAMINE>
<COND (<SCENE? ,S-ESCAPE>
<TELL
"Buntaro looks nervous, but alert and ready. You feel he would like
to kill someone, and wouldn't be too particular about who." CR>)>)
(<VERB? WHO>
<TELL
"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." CR>)>>
<END-SEGMENT ;"ESCAPE MAZE">
<BEGIN-SEGMENT ESCAPE>
<OBJECT SAZUKO
(DESC "Sazuko")
(SYNONYM SAZUKO GIRL)
(ADJECTIVE LADY)
(FLAGS PERSON JAPANESEBIT FEMALE NOABIT NOTHEBIT)
(ACTION SAZUKO-F)>
<ROUTINE SAZUKO-F ("OPT" RARG)
<COND (<RARG? SUBJ>
<RFALSE>)
(<RARG? WINNER>
<WAKARIMASEN>)
(<VERB? WHO>
<TELL
"Lady Sazuko is the seventh of Toranaga's official consorts, the youngest,
and very pregnant." CR>)
(<VERB? EXAMINE>
<TELL
"Lady Sazuko is a short, square-faced girl of little beauty. She is
very pregnant." CR>)>>
<ROUTINE I-ISHIDO ()
<ZLINES ,ISHIDO-CNT
(<QUEUE I-ISHIDO -1>
<MOVE ,ISHIDO ,FORECOURT>
<MOVE ,GRAYS ,FORECOURT>
<MOVE ,BUNTARO ,FORECOURT>
<MOVE ,YABU ,FORECOURT>
<FSET ,FORTIFIED-GATE ,OPENBIT>
<COND (<HERE? ,FORECOURT ,COURTYARD>
<TELL CR
"\"" I "Guards!" "\" The warning comes from the forecourt. Ishido is
approaching down the avenue at the head of two hundred Grays." CR CR
"Buntaro and Yabu hurry to the fortified door as the guards open it." CR CR
"Ishido bows to Yabu elaborately. \"A fine evening, Lord Yabu.\" Though no man
seems hostile on either side, all are ready." CR CR
"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." CR>)
(ELSE
<TELL CR
"You hear a loud shout from the forecourt, and a great deal of commotion
from that direction." CR>)>)
(<COND (<HERE? ,FORECOURT>
<TELL CR
"Ishido says, \"You'd think you were all going into battle, Yabu-san,
instead of just being a ceremonial escort for the Lady Kiritsubo.\"" CR CR
"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!\"" CR>)
(<HERE? ,COURTYARD>
<TELL CR
"Ishido is arguing with Buntaro. You are too far away to hear any of
what he is saying." CR>)>)
(<COND (<HERE? ,FORECOURT>
<TELL CR
"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.\"" CR CR
"\"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." CR>)
(<HERE? ,COURTYARD>
<TELL CR
"You can see Yabu hurriedly move between Ishido and Buntaro. You can
see even from here that there is going to be blood shed." CR>)>)
(<MOVE ,HIRO-MATSU ,FORECOURT>
<COND (<HERE? ,FORECOURT>
<TELL CR
"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?\""
CR CR "With an enormous effort, Buntaro nods and steps back a pace." CR CR
"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.\"" CR>)
(<HERE? ,COURTYARD>
<TELL CR
"You can see Hiro-matsu approach the angry pair. He says something which
causes Buntaro to back off. Tensions seem to ease." CR CR
"Ishido asks something politely of Hiro-matsu." CR>)>)
(<MOVE ,HIRO-MATSU ,COURTYARD>
<MOVE ,YABU ,COURTYARD>
<MOVE ,ISHIDO ,GENERIC-OBJECTS>
<DEQUEUE I-ISHIDO>
<QUEUE I-KIRI -1>
<COND (<HERE? ,FORECOURT ,COURTYARD>
<TELL CR
"Ishido strides through the gateway into the courtyard, Hiro-matsu and Yabu
accompanying him. Five guards follow. He bows politely and wishes Kiritsubo
well." CR CR
"Satisfied that all is as it should be, Ishido turns and leaves with all
his men. Hiro-matsu exhales and scratches his piles.">
<COND (<HERE? ,COURTYARD>
<TELL "\"You'd better
leave now, Yabu-san. That rice maggot'll give you no more trouble.\" Yabu
replies, \"Yes, at once.\"" CR>)
(ELSE
<TELL "He says something to Yabu, who bows
and then begins to get the escort moving." CR>)>)>)>>
<OBJECT TORANAGA-IN-DRAG
;(DESC "Toranaga")
(SDESC "veiled figure")
(SYNONYM FIGURE KIRI KIRITSUBO KIRITSUBO ;"TORANAGA")
(ADJECTIVE VEILED DISGUISED)
(FLAGS PERSON FEMALE JAPANESEBIT SCOREBIT OPENBIT CONTBIT SEARCHBIT)
(GENERIC GENERIC-TORANAGA-F)
(ACTION TORANAGA-IN-DRAG-F)>
<ROUTINE TORANAGA-IN-DRAG-F ("OPT" (RARG <>))
<COND (<RARG? WINNER>
<TELL
CTHE ,TORANAGA-IN-DRAG " looks at you, but doesn't reply." CR>)
(<VERB? EXAMINE>
<COND (<IN? ,PRSO ,KIRIS-LITTER>
<TELL
"You can't get a good look at " THE ,PRSO "." CR>)
(<FSET? ,TORANAGA-IN-DRAG ,SCOREBIT>
<REPLACE-SYNONYM ,TORANAGA-IN-DRAG
,W?KIRITSUBO
,W?TORANAGA>
<FCLEAR ,TORANAGA-IN-DRAG ,FEMALE>
<TELL
"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!" CR>
<SCORE-OBJECT ,TORANAGA-IN-DRAG>)
(ELSE
<TELL
"Toranaga looks back at you and makes a gesture that you can clearly
see means 'go away.'" CR>)>)
(<HOSTILE-VERB?>
<COND (<JIGS-UP? ,J-DRAG
"You reconsider your options. If the Japanese want to hide in tea houses,
what concern is it of yours?">
<COND (<FSET? ,TORANAGA-IN-DRAG ,SCOREBIT>
<TELL
"You grapple with the veiled figure. As you fight, her veil drops off"
G", revealing Toranaga! You are stunned, and back off, amazed, but it is
too late. The commotion has attracted others, and Toranaga has drawn
his sword from beneath the incongruously feminine kimono. His sword is
as sharp as it needs to be, though." CR>)
(ELSE
<TELL
"You grapple with Toranaga, whose feminine kimono conceals armor and
swords. He draws his killing sword and ends your life." CR>)>
<JIGS-UP>)
(ELSE <RTRUE>)>)>>
<OBJECT VEIL
(LOC TORANAGA-IN-DRAG)
(DESC "veil")
(SYNONYM VEIL)
(FLAGS NDESCBIT TAKEBIT DONT-ALL)
(ACTION VEIL-F)>
<ROUTINE VEIL-F ()
<COND (<AND <VERB? EXAMINE LOOK-INSIDE LOOK-BEHIND LOOK-UNDER RAISE>
<IN? ,VEIL ,TORANAGA-IN-DRAG>>
<PERFORM ,V?EXAMINE ,TORANAGA-IN-DRAG>
<RTRUE>)
(<AND <VERB? TAKE>
<IN? ,VEIL ,TORANAGA-IN-DRAG>>
<COND (<FSET? ,TORANAGA-IN-DRAG ,SCOREBIT>
<COND (<JIGS-UP? ,J-VEIL
"You recall how your countrymen would react to someone snatching a lady's
clothing, and refrain.">
<MOVE ,VEIL ,WINNER>
<TELL
"You snatch the veil"
G", revealing Toranaga! You are stunned, and back off, amazed, but it is
too late. The commotion has attracted others, and Toranaga has drawn
his sword from beneath the incongruously feminine kimono. His sword is
as sharp as it needs to be, though." CR>
<JIGS-UP>)
(ELSE <RTRUE>)>)>)>>
<BEGIN-SEGMENT SEPPUKU>
<ROOM COURTYARD
(LOC ROOMS)
(SCENE S-ESCAPE)
(DESC "Courtyard")
(SYNONYM COURTYARD)
(PICTURE P-PROCESSION)
(SCORE 13)
(AFTER HATAMOTO-AFTER-F)
(FDESC
"Just after dusk Kiri waddled nervously down the steps. She headed for
her curtained litter that stood near the little tea house just inside
the garden. You are leaning
against the wall near the fortified gate. You are wearing a belted
kimono of the Browns and tabi socks and military thongs.")
(SOUTH TO FORECOURT IF FORTIFIED-GATE IS OPEN)
(OUT TO FORECOURT IF FORTIFIED-GATE IS OPEN)
(WEST TO FORMAL-GARDEN IF GARDEN-GATE IS OPEN)
(FLAGS ONBIT OUTSIDE)
(GLOBAL FORTIFIED-GATE SAMURAI-GUARDS GARDEN-GATE
ISHIDO BUNTARO YABU HIRO-MATSU)
(ACTION COURTYARD-F)>
<ROUTINE COURTYARD-F (RARG)
<COND (<RARG? SCENE-SETUP>
<DRESS-BLACKTHORNE>
<QUEUE I-ISHIDO 2>
<MOVE ,TORANAGA-IN-DRAG ,TEA-HOUSE>
<MOVE ,MARIKO ,HERE>
<MOVE ,SAZUKO ,HERE>
<MOVE ,KIRITSUBO ,KIRIS-LITTER>
<MOVE-CORTEGE ,HERE>)
(<RARG? LOOK>
<TELL
"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, ">
<COND (<SCENE? ,S-ESCAPE>
<TELL "an escort of sixty heavily armed samurai
is drawn up in neat lines, every third man carrying a flare." CR>)
(<SCENE? ,S-SEPPUKU>
<TELL "is a crowd of Grays, and mingling with
them other samurai and their women." CR>)>)
(<RARG? BEG>
<COND (<AND <OR <PRSO? ISHIDO BUNTARO YABU HIRO-MATSU>
<PRSI? ISHIDO BUNTARO YABU HIRO-MATSU>>
<NOT <IN? ,PRSO ,HERE>>>
<COND (<IN? ,PRSO ,FORECOURT>
<TELL
CTHE ,PRSO " seems to be talking with some others by the gate. You are too
far away to really tell what's going on." CR>)
(ELSE
<TELL
CTHE ,PRSO " doesn't seem to be anywhere nearby." CR>)>)
(<AND <P? WALK (P?SOUTH P?OUT)>
<NOT <FSET? ,FORTIFIED-GATE ,OPENBIT>>>
<TELL
"You must wait for the gate to be opened." CR>)
(<AND <P? WALK P?WEST>
<SCENE? ,S-ESCAPE>
,BEEN-IN-GARDEN?>
<TELL
"\"No, Anjin-san, stay here!\" Mariko says. \"We are leaving soon.\"" CR>)>)>>
<END-SEGMENT ;"ESCAPE+SEPPUKU">
<BEGIN-SEGMENT ESCAPE>
<ROUTINE I-KIRI ()
<ZLINES ,KIRI-CNT
(<COND (<HERE? ,COURTYARD>
<TELL CR
"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 "I"dozo"",
'please.' Yabu bows." CR>)
(ELSE
<TELL CR
"You can hear conversations and crying coming from the courtyard." CR>)>)
(<FSET ,KIRITSUBO ,SCOREBIT>
<COND (<HERE? ,COURTYARD>
<TELL CR
"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." CR>)
(<HERE? ,FORMAL-GARDEN>
<SETG SEEN-TORANAGA? T>
<TELL CR
"Kiritsubo hurries through the garden into the little tea house, then
emerges again moments later. As she passes you, your eyes meet. ">
<COND (<FSET? ,TORANAGA-IN-DRAG ,SCOREBIT>
<REPLACE-SYNONYM ,TORANAGA-IN-DRAG
,W?KIRITSUBO
,W?TORANAGA>
<TELL
"It is not Kiri, but Toranaga in disguise!" CR>)
(ELSE
<TELL
"It is Toranaga. Kiritsubo and Toranaga have switched!" CR>)>
<TELL CR
"The figure slips into Kiri's litter, veil drawn." CR>
<SCORE-OBJECT ,TORANAGA-IN-DRAG ,KIRITSUBO>)
(<HERE? ,TEA-HOUSE>
<TELL CR
"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. ">
<JIGS-UP
"He sees the veiled figure, who immediately draws a
sword and surprisingly attacks you rather than Yabu.">
<CRLF>)
(ELSE
<TELL CR
"There seems to be some commotion in the courtyard." CR>)>)
(<MOVE ,TORANAGA-IN-DRAG ,KIRIS-LITTER>
<MOVE ,KIRITSUBO ,TEA-HOUSE>
<FCLEAR ,KIRITSUBO ,SCOREBIT>
<COND (<HERE? ,COURTYARD>
<COND (<EQUAL? ,OHERE ,FORMAL-GARDEN>
<TELL CR
"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." CR>)>
<TELL CR
"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." CR>)
(ELSE
<TELL CR
"The commotion in the courtyard seems to have subsided." CR>)>)
(<REMOVE ,SAZUKO>
<COND (<HERE? FORMAL-GARDEN TEA-HOUSE>
<I-COME-BACK>)>
<MOVE ,MARIKO ,MARIKOS-LITTER>
<COND (<HERE? ,COURTYARD>
<TELL CR
"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." CR>)
(ELSE
<TELL CR
"You can hear the procession preparing to move out." CR>)>)
(<MOVE-CORTEGE ,FORECOURT>
<MOVE ,HIRO-MATSU ,GENERIC-OBJECTS>
<COND (<HERE? ,COURTYARD ,FORECOURT>
<TELL CR
"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." CR>)
(ELSE
<TELL CR
"You can hear the procession moving off." CR>)>)
(DELAY
<COND (<IN? ,PLAYER ,COURTYARD>
<TELL CR
"The samurai eye you strangely, motioning you through the gate." CR>
<RTRUE>)>)
(<FCLEAR ,FORTIFIED-GATE ,OPENBIT>
<TELL CR
"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." CR>)
(DELAY
<COND (<HERE? ,FORECOURT>
<TELL CR
"You are urged along by the other members of the procession." CR>
<RTRUE>)>)
(<TELL-CHECKPOINTS>)>>
<ROUTINE TELL-CHECKPOINTS ()
<DEQUEUE I-KIRI>
<MOVE-CORTEGE ,GATEWAY>
<SETG ISHIDO-CNT 0>
<QUEUE I-ISHIDO-2 -1>
<TELL CR
"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."
CR>>
<OBJECT CURTAINS
(LOC KIRIS-LITTER)
(OWNER KIRITSUBO)
(DESC "curtains")
(SYNONYM CURTAIN CURTAINS)
(FLAGS NDESCBIT SCOREBIT OPENABLE)
(ACTION CURTAINS-F)>
<ROUTINE CURTAINS-F ()
<COND (<VERB? OPEN CLOSE>
<COND (<AND <VERB? OPEN>
<NOT <FSET? ,CURTAINS ,OPENBIT>>
<QUEUED? I-ISHIDO-2>
<G=? ,ISHIDO-CNT 3>>
<SETG ISHIDO-CNT 5>
<SETG ISHIDO-DISTRACTED? <>>
<FSET ,CURTAINS ,OPENBIT>
<TELL
"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!" CR>)
(ELSE
<TELL
"Kiritsubo's maids politely bar your approach." CR>)>)
(<VERB? LOOK-INSIDE>
<TELL
"All you can see is a shadowy, veiled figure." CR>)>>
<GLOBAL BEEN-IN-GARDEN? <>>
<ROUTINE I-COME-BACK ()
<COND (<AND <FSET? ,KIRITSUBO ,SCOREBIT>
<LOC ,SAZUKO>>
<QUEUE I-COME-BACK 2>
<RFALSE>)>
<SETG BEEN-IN-GARDEN? T>
<COND (<AND <HERE? FORMAL-GARDEN TEA-HOUSE>
<EQUAL? <LOC ,MARIKO>
,COURTYARD ,MARIKOS-LITTER ,FORECOURT>>
<TELL CR
"Mariko calls to you again, \"Anjin-san, come here!\" She speaks
briefly to Yabu, who bustles into the garden to get you. ">
<COND (<AND <HERE? TEA-HOUSE>
<OR <IN? ,TORANAGA-IN-DRAG ,HERE>
<IN? ,KIRITSUBO ,HERE>>>
<TELL
"Yabu calls for you, searching the garden, and then looks in the
tea house. ">
<COND (<IN? ,TORANAGA-IN-DRAG ,HERE>
<JIGS-UP
"He sees the veiled figure, who immediately draws a
sword and surprisingly attacks you rather than Yabu.">)
(ELSE
<JIGS-UP
"He sees Kiritsubo, and emits a yelp of surprise. In moments, others
are drawn by the commotion, and as soon as the situation becomes clear,
a battle erupts.">)>
<RFATAL>)
(ELSE
<TELL
"He hustles you unceremoniously back to the courtyard." CR CR>
<GOTO ,COURTYARD>)>)>>
<BEGIN-SEGMENT MAZE>
<OBJECT KIRIS-LITTER
;(LOC COURTYARD)
(OWNER KIRITSUBO)
(DESC "Kiritsubo's curtained litter")
(SYNONYM LITTER PALANQUIN)
(ADJECTIVE KIRITSUBO KIRI CURTAINED)
(FLAGS SEARCHBIT NOTHEBIT NOABIT VEHBIT OPENBIT CONTBIT)
(DESCFCN KIRIS-LITTER-DESC)
(GENERIC GENERIC-LITTER-F)
(ACTION KIRIS-LITTER-F)>
<ROUTINE KIRIS-LITTER-DESC (RARG OBJ)
<COND (<RARG? OBJDESC?> <RTRUE>)
(ELSE
<TELL
"Kiritsubo's curtained litter ">
<COND (<HERE? ,COURTYARD>
<TELL "sits near the garden gate">)
(ELSE
<TELL "is nearby">)>
<COND (<OR <IN? .OBJ ,KIRITSUBO>
<IN? .OBJ ,TORANAGA-IN-DRAG>>
<TELL ", and through the ">
<COND (<FSET? ,CURTAINS ,OPENBIT>
<TELL "open">)
(ELSE
<TELL "closed">)>
<TELL
" curtains you can see the shadowy figure of Kiritsubo.">)
(ELSE <TELL ".">)>
<RFATAL>)>>
<ROUTINE KIRIS-LITTER-F ("OPT" (RARG <>))
<COND (.RARG <RFALSE>)
(<VERB? EXAMINE>
<COND (<FSET? ,CURTAINS ,OPENBIT>
<TELL
"Through the open curtains of the litter you can see ">
<COND (,SEEN-TORANAGA?
<TELL "a disguised Toranaga." CR>)
(ELSE
<TELL "Kiritsubo." CR>)>)
(ELSE
<TELL
"The litter is heavily curtained, and the curtains are closed." CR>)>)
(<VERB? BOARD>
<TELL
"Kiritsubo's maid prevents you." CR>)
(<VERB? OPEN CLOSE LOOK-INSIDE>
<PERFORM ,PRSA ,CURTAINS>
<RTRUE>)>>
<OBJECT MARIKOS-LITTER
;(LOC COURTYARD)
(OWNER MARIKO)
(DESC "Mariko's litter")
(SYNONYM LITTER PALANQUIN)
(ADJECTIVE MARIKO)
(FLAGS SEARCHBIT NOABIT NOTHEBIT VEHBIT OPENBIT CONTBIT SCOREBIT)
(DESCFCN MARIKOS-LITTER-DESC)
(GENERIC GENERIC-LITTER-F)
(ACTION MARIKOS-LITTER-F)>
<ROUTINE MARIKOS-LITTER-F ("OPT" (RARG <>))
<COND (<RARG? BEG>
<COND (<AND <HERE? WOODS CITY>
<P? WALK>
<NOT <PRSO? ,P?EAST>>>
<TELL
"\"No, Anjin-san, the docks are to the east, through the city.\" The kaga-men
don't move." CR>)
(<VERB? SIT>
<TELL G"You are already sitting down." CR>)
(<AND <VERB? SLEEP>
<NOT ,OPPONENT>
<NOT <QUEUED? I-AMBUSH>>>
<TELL
"You manage to doze a little, regaining some strength." CR>)>)
(<RARG? <>>
<COND (<VERB? BOARD>
<COND (<HERE? ,WOODS>
<GET-IN-LITTER>)
(ELSE
<TELL
"Mariko's maid prevents you." CR>)>)>)>>
<END-SEGMENT ;"ESCAPE+MAZE">
<BEGIN-SEGMENT ESCAPE>
<ROUTINE GET-IN-LITTER ("OPT" (FORCE? <>))
<DEQUEUE I-ESCAPE-CONTINUES>
<MOVE ,PLAYER ,MARIKOS-LITTER>
<COND (.FORCE?
<TELL CR
"Mariko motions to the escort, and with great politeness but very
insistently, they load you">)
(ELSE
<TELL
"You sway on your feet, and allow yourself to be helped">)>
<TELL
" into the litter. At once the procession starts again. The rolling gait
is soothing and you lay back, depleted." CR CR>
<MOVE ,KIRIS-LITTER ,CITY>
<MOVE ,BUNTARO ,CITY>
<MOVE ,YABU ,CITY>
<GOTO ,CITY>>
<BEGIN-SEGMENT DEPARTURE>
<ROUTINE MARIKOS-LITTER-DESC (RARG OBJ)
<COND (<RARG? OBJDESC?> <RTRUE>)
(ELSE
<TELL
"Mariko's litter is here">
<COND (<IN? ,MARIKO .OBJ>
<TELL ", and through
the open curtains you can see Mariko.">)
(ELSE <TELL ".">)>
<RFATAL>)>>
<BEGIN-SEGMENT SEPPUKU>
<ROOM FORECOURT
(LOC ROOMS)
(SCENE S-DEPARTURE)
(SCORE 1) ;"these points aren't assigned yet"
(DESC "Forecourt")
(AFTER DEPARTURE-AFTER-F)
(FDESC
"Mariko walks up the crowded sunlit avenue toward the gates in the
cul-de-sac. Behind her is a bodyguard of Browns. Unlike the Grays
lining the avenue and watching from the battlements, none have armor
or carry bows. Swords are their only weapons.|
|
Mariko gets into her palanquin and sits. \"Yoshinaka-san! Please begin.\"")
(SYNONYM FORECOURT)
(NORTH TO COURTYARD IF FORTIFIED-GATE IS OPEN)
(IN TO COURTYARD IF FORTIFIED-GATE IS OPEN)
(SOUTH TO GATEWAY)
(FLAGS ONBIT OUTSIDE)
(GLOBAL FORTIFIED-GATE GARDEN-GATE SAMURAI-GUARDS)
(ACTION FORECOURT-F)>
<ROUTINE FORECOURT-F (RARG)
<COND (<RARG? SCENE-SETUP>
<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>
<QUEUE I-DEPARTURE -1>)
(<RARG? LOOK>
<TELL
"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.">
<COND (<SCENE? ,S-DEPARTURE ,S-SEPPUKU>
<TELL "The forecourt is crowded with Grays,
other samurai and their women.">)>
<CRLF>)
(<RARG? LEAVE>
<COND (<AND <SCENE? ,S-ESCAPE>
<IN? ,KIRIS-LITTER ,FORECOURT>>
<TELL-CHECKPOINTS>
<CRLF>)>)
(<RARG? BEG>
<COND (<P? WALK>
<COND (<SCENE? ,S-DEPARTURE>
<COND (<QUEUED? I-FIGHT>
<COND (<JIGS-UP? ,J-FLEE
"You'd never get away! It's a fight to the finish.">
<JIGS-UP
"Your opponent, who until now has shown reluctance to do you real harm,
sees you attempting to flee, and charges you. He attacks viciously,
overwhelming your inexpert defense. In moments, you are cut down.">)
(ELSE <RTRUE>)>)
(ELSE
<TELL
"Mariko says, \"Please, Anjin-san, you cannot abandon me now. I must
fulfill my duty.\"" CR>)>)
(<EQUAL? ,P-WALK-DIR ,P?NORTH>
<COND (<AND <SCENE? ,S-ESCAPE>
<IN? ,CORTEGE ,HERE>>
<TELL
"The guards won't let you back through the gate." CR>)>)
(<EQUAL? ,P-WALK-DIR ,P?SOUTH>
<COND (<SCENE? ,S-ESCAPE>
<COND (<QUEUED? I-ISHIDO>
<TELL
"The Grays stop you, indicating that you must leave with Kiritsubo or
not at all." CR>)
(<QUEUED? I-KIRI>
<COND (<IN? ,SAZUKO ,COURTYARD>
<TELL
"You start off into the maze of the castle, and then think better of
it, deciding to wait for the rest of the cortege." CR>)
(<OR <IN? ,KIRIS-LITTER ,GATEWAY>
<IN? ,KIRIS-LITTER ,FORECOURT>>
<RFALSE>)
(ELSE
<TELL
"You decide it would be too dangerous to get ahead of the rest of the
cortege." CR>)>)>)
(<SCENE? ,S-DEPARTURE>
<TELL
"A near-solid mass of Gray samurai blocks the avenue." CR>)
(<SCENE? ,S-SEPPUKU>
<TELL
"The avenue is blocked by the onlookers nervously anticipating the
events to come." CR>)>)>)
(<AND <VERB? PARRY STOP>
<HELD? ,SWORDS>
<QUEUED? I-FIGHT>>
<TELL
"You force your sword around, desperately trying to block the attack!" CR>)>)>>
<OBJECT FORTIFIED-GATE
(LOC LOCAL-GLOBALS)
(DESC "fortified gate")
(SYNONYM GATE DOOR)
(ADJECTIVE FORTIFIED)
(FLAGS DOORBIT)
(ACTION FORTIFIED-GATE-F)>
<ROUTINE FORTIFIED-GATE-F ()
<COND (<VERB? OPEN CLOSE>
<TELL
"You could no more open or close this gate by yourself than tear
down Osaka Castle with your bare hands." CR>)>>
<END-SEGMENT ;"ESCAPE+DEPARTURE+SEPPUKU">
<BEGIN-SEGMENT ESCAPE>
<OBJECT PORTCULLIS
(LOC LOCAL-GLOBALS)
(DESC "portcullis")
(SYNONYM PORTCULLIS)
(ADJECTIVE IRON)
(FLAGS DOORBIT OPENBIT)>
<ROOM GATEWAY
(LOC ROOMS)
(DESC "Gateway")
(SYNONYM GATEWAY)
(SOUTH TO ON-BRIDGE)
(FLAGS ONBIT OUTSIDE)
(GLOBAL SAMURAI-GUARDS)
(ACTION GATEWAY-F)>
<ROUTINE GATEWAY-F (RARG "AUX" (MAD? <>))
<COND (<RARG? LOOK>
<TELL
"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.">
<COND (<SCENE? ,S-ESCAPE>
<TELL "A multitude of flares turn the night into
crimson day.">)
(ELSE
<TELL
"Crowds of curious onlookers clog the street.">)>
<CRLF>)
(<RARG? ENTER>
<COND (<EQUAL? ,OHERE ,FORECOURT>
<SETG ISHIDO-CNT 0>
<QUEUE I-ISHIDO-2 -1>)>
<RTRUE>)
(<RARG? BEG>
<COND (<SCENE? ,S-ESCAPE>
<SET MAD?
<OR <QUEUED? I-ISHIDO-2>
<QUEUED? I-MADNESS>>>
<COND (<P? EXAMINE (MARIKO YABU BUNTARO)>
<COND (.MAD?
<TELL D ,PRSO " looks very ">
<COND (<QUEUED? I-MADNESS>
<TELL "scared." CR>)
(ELSE
<TELL "worried." CR>)>)>)
(<P? HELP TORANAGA>
<TELL
"Precisely what you need to do, but how?" CR>)
(<VERB? WALK>
<COND (<QUEUED? I-MARIKO-FOLLOW>
<SETG ISHIDO-DISTRACTED? ,PRSA>
<RFALSE>)
(<PRSO? P?SOUTH>
<COND (.MAD?
<COND (,SEEN-MAD-SCENE?
<SETG ISHIDO-DISTRACTED?
,PRSA>
<TELL
"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." CR>)>
<TELL "The Grays bar the way." CR>
<COND (,SEEN-MAD-SCENE?
<TELL CR
"You roar with feigned rage and imperiously order them out of the way,
then immediately switch to hysterical laughter." CR>)>
<RTRUE>)>)
(<AND <PRSO? P?NORTH>
.MAD?>
<TELL
"The narrow street is blocked by the litters, kaga-men, and escorts." CR>)>)
(<AND <OR <P? STOP (<> CRAZY)>
<P? ACT SANE>>
<QUEUED? I-MARIKO-FOLLOW>>
<COND (<NOT <FSET? ,BLACKTHORNE ,RMUNGBIT>>
<FSET ,BLACKTHORNE ,RMUNGBIT>
<SETG ISHIDO-DISTRACTED? ,PRSA>
<TELL
"You stop instantly, turn and walk quietly toward the bridge." CR>)
(ELSE
<TELL
"You've already stopped." CR>)>)
(<P? (TAKE STOP) ISHIDO>
<PERFORM ,V?ATTACK ,ISHIDO>
<RTRUE>)
(<P? BOW ISHIDO>
<TELL
"He looks at you contemptuously." CR>)
(<AND <HOSTILE-VERB?>
<PRSO? ISHIDO>>
<COND (<EQUAL? ,MADNESS-CNT 3>
<SETG ISHIDO-DISTRACTED? ,PRSA>
<TELL
"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." CR>)
(<JIGS-UP? ,J-ISHIDO
"The moment for such an action has passed. Now it would be fatal.">
<JIGS-UP
"Ishido is stunned by your ferocity, shocked by your madness, and amazed
by your insolence. His sword, unsurprisingly, is as sharp as it looks,
and he uses it well.">)
(ELSE <RTRUE>)>)
(<OR <ACT-CRAZY?>
<P? DISTRACT ISHIDO>>
<COND (<OR <G=? ,ISHIDO-CNT 3>
<QUEUED? I-MADNESS>>
<COND (<L? ,JERK-CNT 2>
<SETG ISHIDO-DISTRACTED? ,PRSA>)>
<COND (<NOT ,SEEN-MAD-SCENE?>
<SETG SEEN-MAD-SCENE? T>
<MARGINAL-PIC ,P-MAD-SCENE>)>
<COND (<EQUAL? ,ISHIDO-CNT 3 4 5>
<COND (<L? ,JERK-CNT 2>
<TELL
"Ishido and the others whirl on you dumbfounded.">
<TORANAGA-CLOSES-CURTAIN>
<CRLF>
<SCORE-OBJECT ,CRAZY>)
(ELSE
<TELL
"Ishido starts briefly, but is more interested in Kiri's litter." CR>)>)
(ELSE
<TELL
"Everyone continues to stare at you. The tension is incredible, and your
exhaustion is beginning to take its toll." CR>)>)>)>)>)>>
<GLOBAL SEEN-MAD-SCENE? <>>
<ROUTINE TORANAGA-CLOSES-CURTAIN ()
<SETG ISHIDO-DISTRACTED? ,PRSA>
<DEQUEUE I-ISHIDO-2>
<SETG ISHIDO-CNT 0>
<QUEUE I-MADNESS -1>
<COND (<FSET? ,CURTAINS ,OPENBIT>
<FCLEAR ,CURTAINS ,OPENBIT>
<TELL "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.">)>>
<GLOBAL ISHIDO-DISTRACTED? <>>
<GLOBAL JERK-CNT 0>
<ROUTINE I-ISHIDO-2 ()
<ZLINES ,ISHIDO-CNT
(DELAY
<COND (<OR <QUEUED? I-KIRI>
<NOT <HERE? ,GATEWAY>>
<NOT <IN? ,KIRIS-LITTER ,HERE>>>
<RFALSE>)>)
(;1
<MOVE ,ISHIDO ,GATEWAY>
<THIS-IS-IT ,ISHIDO>
<TELL CR
"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." CR>)
(;2
<MOVE ,PARCHMENT ,ISHIDO>
<THIS-IS-IT ,ISHIDO>
<TELL CR
"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." CR CR
"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." CR>)
(;3
<TELL CR
"\"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." CR>)
(;4
<THIS-IS-IT ,ISHIDO>
<TELL CR
"Everyone is waiting for the hand to appear.">
<COND (,SEEN-TORANAGA?
<TELL
"You realize Toranaga is trapped. Politeness demands that he take the
scroll and his hand will give him away!">)>
<TELL CR CR
"Ishido is getting impatient. \"Kiritsubo-san?\" he calls." CR>)
(;5
<COND (<NOT ,ISHIDO-DISTRACTED?>
<THIS-IS-IT ,ISHIDO>
<COND (<IN? ,ISHIDO <LOC ,KIRIS-LITTER>>
<FSET ,CURTAINS ,OPENBIT>
<SETG JERK-CNT <+ ,JERK-CNT 1>>
<TELL CR
"Ishido takes a quick pace forward and jerks the curtains of the
litter apart." CR>)
(ELSE
<TELL CR
G"Ishido takes a few paces toward the retreating litter." CR>)>)>)
(;6
<COND (<NOT ,ISHIDO-DISTRACTED?>
<COND (<IN? ,ISHIDO <LOC ,KIRIS-LITTER>>
<DEQUEUE I-ISHIDO-2>
<TELL CR
"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." CR CR>
<JIGS-UP
"Toranaga, encumbered by his disguise, is unable even to defend
himself. It is only seconds before both he and Ishido are cut down,
and not long after, an arrow finds your heart.">
<RFATAL>)
(ELSE
<TELL CR
G"Ishido takes a few paces toward the retreating litter, then
stops." CR>)>)>)
(DELAY
<COND (<AND <NOT ,ISHIDO-DISTRACTED?>
<OR <IN? ,KIRIS-LITTER ,AT-PORTCULLIS>
<IN? ,KIRIS-LITTER ,ON-BRIDGE>>>
<COND (<G? ,DELAY-CNT 2>
<TELL CR
"Ishido seems to come to a decision. It appears to involve arrows." CR>
<JIGS-UP>
<RFATAL>)
(ELSE
<TELL CR
"Ishido watches the cortege, a strange expression on his face." CR>
<RTRUE>)>)>)
(<DEQUEUE I-ISHIDO-2>
<RFALSE>)>>