-
Notifications
You must be signed in to change notification settings - Fork 16
/
mariko.zil
1077 lines (1024 loc) · 36.5 KB
/
mariko.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
"MARIKO for
SHOGUN
(c) Copyright 1988 Infocom, Inc. All Rights Reserved."
<FILE-FLAGS SENTENCE-ENDS?>
<BEGIN-SEGMENT OCHIBA>
<ROOM OCHIBA-ROOM
(LOC ROOMS)
(SCENE S-OCHIBA)
(SCORE 3)
(DESC "Reception Room")
(SYNONYM ROOM)
(ADJECTIVE RECEPTION)
(FDESC
"Your feet take you under the final portcullis and your escorts lead
you up to the huge door. Here they leave you alone. Desperate for
any distraction from the ordeal to come, you admire the camellia blossom
Mariko took from a vase in your quarters and gave to you. The flower is
reassuring. Not everyone here in Osaka is an enemy.|
|
You stand rigid for a moment, petrified with
nervousness. What if you disgrace yourself? What if you slip or your
swords fall or your limited Japanese fails you. You take a deep breath
and walk forward into the flare-lit maw.")
(LDESC
"It is an immense, high-raftered room with a golden ornamented
ceiling. Gold-paneled columns support the rafters, which are made of rare and
polished woods. Five hundred samurai and their ladies are here, wearing
all the colors of the rainbow. To one side is a line of guests who wait
to bow before the raised platform at the far end.")
(FLAGS ONBIT)
(ACTION OCHIBA-ROOM-F)>
<ROUTINE OCHIBA-ROOM-F (RARG)
<COND (<RARG? SCENE-SETUP>
<DRESS-BLACKTHORNE>
<MOVE ,CAMELLIA ,BLACKTHORNE>
<MOVE ,SWORDS ,BLACKTHORNE>
<FSET ,SWORDS ,WEARBIT>
<FSET ,SWORDS ,RMUNGBIT>
<MOVE ,ISHIDO ,OCHIBA-ROOM>
<MOVE ,OCHIBA ,OCHIBA-ROOM>
<QUEUE I-OCHIBA -1>)
(<RARG? BEG>
<COND (<OR <P? (BOW HELLO KONNICHI-WA KONBANWA)
(<> OCHIBA ISHIDO)>
<VERB? KNEEL>>
<COND (<FSET? ,BLACKTHORNE ,TRYTAKEBIT>
<COND (<P? (HELLO KONNICHI-WA KONBANWA)
(OCHIBA <>)>
<SETG WINNER ,OCHIBA>
<PERFORM ,V?HELLO>
<SETG WINNER ,PLAYER>
<RTRUE>)
(ELSE
<TELL
"You have already bowed to the hosts." CR>)>)
(<FSET? ,OCHIBA ,RMUNGBIT>
<FSET ,BLACKTHORNE ,TRYTAKEBIT>
<B-STAND>
<TELL
"In front of the platform, you kneel and bow formally as you have seen
the others do, once to Ochiba and once to Ishido. You then stand and
walk forward.">
<COND (<AND <FSET? ,SWORDS ,WEARBIT>
<FSET? ,SWORDS ,RMUNGBIT>>
<FCLEAR ,SWORDS ,RMUNGBIT>
<FCLEAR ,SWORDS ,WEARBIT>
<MOVE ,SWORDS ,HERE>
<TELL
" Suddenly, just as you had feared, your sword belt comes loose and
your swords clatter to the floor. You turn red, scrambling for them
on the ground, and Ishido begins a swelling round of humiliating
laughter.">)>
<CRLF>)
(ELSE
<TELL
"You must be very nervous: you aren't at the front of the line yet!" CR>)>)
(<P? CURSE (ISHIDO OCHIBA)>
<TELL
"You insult " D ,PRSO ", forfeiting any gain you might have gotten
from the exchange." CR>)
(<ACT-CRAZY?>
<COND (<EQUAL? ,QCONTEXT ,ISHIDO>
<TELL
"Ishido stares at you. \"This is what I meant!\"" CR>)
(ELSE
<TELL "Ochiba looks disgusted." CR>)>)
(<OR <HOSTILE-VERB?>
<P? (DRAW PICK USE TAKE) SWORDS>>
<TELL
"Such a foolish action would surely lead to your immediate death." CR>)>)>>
<ROUTINE NOT-A-BARBARIAN? ()
<COND (<P? BE (BLACKTHORNE ME)>
<COND (<P-NEGATIVE?>
<COND (<PRSI? GLOBAL-BARBARIAN CRAZY>
<RTRUE>)
(ELSE <RFALSE>)>)
(<PRSI? GLOBAL-SAMURAI GLOBAL-HATAMOTO>
<RTRUE>)
(<AND <PRSI? INTADJ>
<ADJ? ,W?SAMURAI>>
<RTRUE>)>)>>
<OBJECT CAMELLIA
(DESC "camellia blossom")
(SYNONYM BLOSSOM FLOWER CAMELLIA)
(ADJECTIVE CAMELLIA PINK)
(FLAGS TAKEBIT SCOREBIT)
(ACTION CAMELLIA-F)>
<ROUTINE CAMELLIA-F ()
<COND (<VERB? EXAMINE>
<TELL
"This is a particularly beautiful pink camellia blossom that you cut from
a tree in the garden. It is at the peak of its beauty." CR>)
(<P? GIVE CAMELLIA OCHIBA>
<COND (<NOT <FSET? ,BLACKTHORNE ,TRYTAKEBIT>>
<TELL
"Ochiba recoils from the unaccustomed familiarity. You haven't even
greeted her properly. \"His manners are barbaric,\" she says to Ishido,
with sadness." CR>)
(ELSE
<REMOVE ,CAMELLIA>
<SCORE-OBJECT ,CAMELLIA>
<TELL
"\"In my land we are ruled by a Queen. We have the custom to always give
a Lady a birthday gift. Even a Queen. Please excuse if this is not good
manners.\" She looks at the flower. Five hundred people wait to see how
she will respond to your gallantry and daring.|
|
\"I am not a Queen, Anjin-san, only the mother of the Heir and widow of
the Lord Taiko. I cannot accept your gift as a Queen, but as a Lady on
her birthday, perhaps I may ask everyone's permission to accept the
gift?\"|
|
The room bursts into applause." CR>)>)>>
<GLOBAL OCHIBA-QUESTION <>>
<ROUTINE I-OCHIBA ()
<ZLINES ,OCHIBA-CNT
(<TELL CR
"The procession of guests creeps forward, each politely bowing to
Ochiba and greeting her on her birthday." CR>)
(<FSET ,OCHIBA ,RMUNGBIT>
<TELL CR
"Ochiba is looking at you,
and then Ishido is looking at you, too. Soon all conversation dies
and everyone is watching you. The men and women ahead of you in
line melt away and suddenly no one is between you and the platform." CR>)
(DELAY
<COND (<NOT <FSET? ,BLACKTHORNE ,TRYTAKEBIT>>
<COND (<G? ,DELAY-CNT 4>
<TELL CR
"Ishido stands, bows to Lady Ochiba, and asks, \"With your permission,
Lady, I will remove this insult to your person.\"" CR>
<JIGS-UP>
<RFATAL>)
(ELSE
<TELL CR
"Every eye is on you as you stand before Ochiba. Every breath is held." CR>
<RTRUE>)>)>)
(1)
(<SETG OCHIBA-QUESTION 1>
<SETG QCONTEXT ,OCHIBA>
<TELL CR
"\"Please wait, Anjin-san,\" says Ochiba. You feel the extraordinary
sensuality that surrounds her, without conscious effort on her
part. \"">
<COND (<FSET? ,HANASE-MASEN ,RMUNGBIT>
<TELL
"You speak our language, then?\"" CR>)
(ELSE
<TELL
"It is said that you speak our language?\"" CR>)>)
(DELAY
<COND (<EQUAL? ,OCHIBA-QUESTION 1>
<COND (<G? ,DELAY-CNT 2>
<SETG OCHIBA-QUESTION <>>
<TELL CR
"\"Ah, I suppose what we have heard is not true, then. He must not
truly speak our language.\" She turns to Ishido and smiles." CR>)
(ELSE
<TELL CR
"\"Is it true that you speak our language, Anjin-san?\" she asks in a
friendly way, using the Japanese that you can barely understand." CR>)>
<RTRUE>)>)
(1)
(<SETG QCONTEXT ,ISHIDO>
<TELL CR
"Ishido rudely interrupts. \"When we last met, you were a madman. I
hope you won't get mad tonight or any other night.\"" CR>)
(<SETG QCONTEXT ,ISHIDO>
<SETG OCHIBA-QUESTION 2>
<TELL CR
"\"Such madness is usual among you barbarians, "I"neh?""\" He emphasizes
the word 'barbarians.' Such public rudeness to a guest is very
bad. Lady Ochiba seems surprised." CR>)
(DELAY
<COND (<EQUAL? ,OCHIBA-QUESTION 2>
<COND (<G? ,DELAY-CNT 3>
<SETG OCHIBA-QUESTION 0>
<TELL CR
"\"Bah! It is clear he is a barbarian without honor!\" Ishido turns
away with a snort of dirision." CR>
<RTRUE>)
(ELSE
<TELL CR
"Ishido continues to taunt you. \"You are a barbarian. You "I"barbarians"
" are prone to fits of madness, as I've been told?\" The room is
hushed, everyone waiting to see how you will respond." CR>
<RTRUE>)>)>)
(<MOVE ,MARIKO ,HERE>
<TELL CR
"\"Mariko-san, your pupil does you credit, "I"neh?""\" calls out
Ochiba. Mariko is coming through the guests. \"I have done little,
Ochiba-sama. It's all the Anjin-san's work and the word book that the
Christian
fathers gave him.\"" CR>)
(<TELL CR
"Ochiba turns to Mariko. \"Now, Mariko-san, we must talk about the
poetry competition! It will
be held in two days, when Lord Toranaga leaves his own borders to
journey here. What's the
theme to be? And the first line of the poem?\" Mariko is renowned as
a poetess.|
|
Mariko thinks a moment. \"It should be about "I"today"", Lady Ochiba,
and the first line: 'On a leafless branch.'\"|
|
Ishido compliments her on her choice. \"Excellent, but we'll have to
be very good to compete with you, Mariko-san!\"" CR>)
(<TELL CR
"Mariko continues, \"So sorry, Sire, but I will not be there. I'm leaving Osaka tomorrow
with the Lady Kiritsubo and the Lady Sazuko, to meet Lord Toranaga.\"|
|
\"Nonsense!\" replies Ishido. \"He will be here so soon that to go to
meet him isn't necessary.\"|
|
\"So sorry, Sire, but those are the orders of my liege Lord. I must
leave tomorrow. Am I confined here? And if so, on whose orders?\"|
|
Ishido keeps his eyes riveted on her. \"No, you are not confined.\"" CR>)
(<TELL CR
"Many of the ladies in the room turn to their neighbors, and some
whisper openly what all those held against their will in Osaka are
thinking: 'If she can go, so can I, so can you! I'll leave tomorrow,
too!'" CR>)
(<TELL CR
"Mariko makes a half-bow to the room and leaves. Yabu steps forward
with you and the two of you follow her out, very conscious that you
are the only samurai present wearing Toranaga's uniform." CR>
<NEXT-SCENE>)>>
<OBJECT OCHIBA
(LOC OCHIBA-ROOM)
(DESC "Lady Ochiba")
(SYNONYM OCHIBA LADY)
(ADJECTIVE LADY)
(FLAGS PERSON JAPANESEBIT NOABIT FEMALE)
(DESCFCN OCHIBA-DESC)
(ACTION OCHIBA-F)>
<ROUTINE OCHIBA-DESC (RARG OBJ)
<COND (<RARG? OBJDESC?> <RTRUE>)
(ELSE
<TELL
"On the platform, alone, is the Lady Ochiba.">)>>
<ROUTINE OCHIBA-F ("OPT" (RARG <>))
<COND (<RARG? SUBJ>
<RFALSE>)
(<RARG? WINNER>
<COND (<OR <VERB? YES HAI NO IYE>
<P? SAY JAPANESE>
<P? NIHON-GO-GA HANASE-MASEN>>
<COND (<OR <EQUAL? ,OCHIBA-QUESTION 1>
<P? NIHON-GO-GA HANASE-MASEN>>
<SETG OCHIBA-QUESTION <>>
<COND (<VERB? HAI IYE SPEAK NIHON-GO-GA>
<FSET ,HANASE-MASEN ,RMUNGBIT>)>
<COND (<VERB? NO IYE>
<TELL
"\"No, Highness. I have learned a few words and phrases, so that I may
better be understood, however.">)
(ELSE
<TELL
"\"Please excuse me, Highness.">)>
<TELL
" I have to use short words and respectfully
ask you to use simple words with me.\"" CR>)
(ELSE
<TELL
"She doesn't seem to be listening." CR>)>)
(<VERB? HELLO>
<COND (<NOT <FSET? ,OCHIBA ,TRYTAKEBIT>>
<FSET ,OCHIBA ,TRYTAKEBIT> ;"greeted her"
<TELL
"\"May I respectfully congratulate
you on your birthday and pray that you live to enjoy a thousand more.\"" CR>)
(ELSE
<TELL
"You have already congratulated her." CR>)>)
(<P? THANK YOU>
<TELL
"\"Domo, Ochiba-sama.\" She acknowledges your thanks." CR>)
(<OR <P? NO>
<NOT-A-BARBARIAN?>>
<TELL
"\"This may be true, Anjin-san, but your manners are less than perfect.\"" CR>)
(ELSE
<WAKARIMASEN>)>)
(<VERB? EXAMINE>
<TELL
"She is slight, almost girlish in build, with a luminous glow to her
fair skin. She is at the peak of her beauty. Her sloe eyes are large
under painted, arched brows, her
hair set like a winged helmet. Her kimono is exquisitely rich, gold
threads on the rarest blue-black silk. She sits comfortably on a
cushion." CR>)
(<VERB? WHO>
<TELL
"The Lady Ochiba is the widow of the Taiko, and the mother of the
Heir, Yaemon. The rumors say that she is now the mistress of Lord
Ishido. All Japan wonders if the Taiko, who had never before sired
a child, was truly the Yaemon's father, but only Ochiba knows for
sure." CR>)>>
<END-SEGMENT>
"S-DEPARTURE"
<BEGIN-SEGMENT DEPARTURE>
<ROUTINE DEPARTURE-AFTER-F ()
<TELL
"Ishido and his supporters meet in Kiyama's opulent, overrich quarters.|
|
\"It's impossible, Lord General,\" Ochiba says. \"You can't let a lady of her
rank commit seppuku. So sorry, but you've been trapped. The hostages will have
to be freed, and then there's nothing to stop Toranaga.\"|
|
\"I agree,\" Lord Kiyama says forcefully.|
|
\"With due humility, Lady,\" Ishido replies, \"whatever I said or didn't say,
doesn't matter an "I"eta""'s turd to her. She's already decided, at least
Toranaga has. We are at war, Toranaga's not yet in our hands, and until he's
dead the Heir is in total danger.\"|
|
He walks over to the window. \"Suppose she's disarmed? Capture her! Confine
her until Toranaga's in our hands, then the hostages don't matter. In eighteen
days Toranaga has to be here!\"|
|
\"You really think Lady Toda could be captured?\" Kiyama says.|
|
\"Yes,\" replies Ishido." CR>>
<ROUTINE I-DEPARTURE ()
<ZLINES ,DEPARTURE-CNT
(<MOVE ,YAMAZAKI ,FORECOURT>
<THIS-IS-IT ,YAMAZAKI>
<TELL CR
"Twenty Browns form up as a vanguard and move off. Porters pick up
Mariko's palanquin and follow the Browns, Kiri and Lady
Sazuko close behind.|
|
When Mariko's palanquin comes into the sunlight, a Captain of Grays
steps forward, standing directly in her way. \"May I see your
papers?\" he inquires.|
|
Mariko says formally, \"We require none. I am Toda Mariko-noh-Buntaro
and I have been ordered by my leige Lord, Lord Toranaga, to escort his
ladies to meet him. Kindly let us pass.\"|
|
\"My name is Yamazaki Danzenji, Captain of the Fourth Legion, and my line
is as ancient as your own, my Lady. Please excuse me, but my leige Lord,
Lord Ishido, says no one may
leave Osaka Castle without papers.\"|
|
\"So sorry, Captain, but if you do not move out of the way I will order
you killed.\"" CR>)
(<QUEUE I-FIGHT -1>
<SETG OPPONENT ,YAMAZAKI>
<TELL CR
G"\"You will not pass without papers!\""" the Gray Captain replies
proudly. Mariko nods sadly. \"Please kill him,\" she orders quietly,
and at once
the battle is joined. It is terrifyingly fair and formal, one Gray for
each Brown and one for yourself." CR>)
(DELAY
<COND (<QUEUED? I-FIGHT> <RFALSE>)>)
(<MOVE ,MARIKO ,HERE>
<MOVE ,KOJIMA ,HERE>
<SETG OPPONENT ,KOJIMA>
<THIS-IS-IT ,KOJIMA>
<TELL CR
"Almost immediately, twenty more Browns run forward to form a new
vanguard. From up ahead twenty more Grays move silently out from the
hundreds that are waiting.|
|
\"Wait,\" Mariko orders. She steps out of her palanquin and picks up
a sword, unsheaths it, and walks forward alone. She approaches the
officer. \"You know who I am. Please get out of my way.\"|
|
\"I am Kojima Harutomo, Captain of the Sixth Legion. Please excuse me,
you may not pass, Lady.\"" CR>)
(<TELL CR
"Mariko darts forward but her blow is contained. The Gray stays on the
defensive although he could kill her without effort.|
|
Again Mariko tries to bring the Gray to battle, but he slides away, allowing
her to exhaust herself. But he does this gravely, giving her every courtesy,
giving her the honor that is her due. She knows she cannot last much
longer. She sees how easy it would be for the massed Grays to cut them all
off if
they wish and leave them stranded and helpless. She breaks off the fight." CR>)
(<SETG OPPONENT <>>
<MOVE ,ISHIDO ,HERE>
<TELL CR
"Lord Ishido emerges from the crowd of Grays. \"Lady Toda, the castle
orders must be obeyed. But if you wish, I will call a meeting of the
Regents and ask for a ruling.\"|
|
Mariko turns to Ishido and bows. \"My orders are clear. If I am not
permitted to obey, I will not be able to live with that shame.\"" CR>)
(<TELL CR
"\"These men have prevented me from
doing my duty, from obeying my leige Lord. I cannot live with this
shame, Sire. Unless we are allowed to obey our leige Lord, as is our
right, I will commit seppuku at sunset!\"|
|
She bows and walks toward the gateway. All in the avenue and all on the
battlements bow to her in homage. She goes into the garden, her footsteps
taking her to the secluded, rustic little tea house. She goes inside and,
once there, she weeps silently for all the men who have died." CR>
<REMOVE ,KOJIMA>
<REMOVE ,YAMAZAKI>
<REMOVE ,MARIKOS-LITTER>
<NEXT-SCENE>)>>
<GLOBAL YAMAZAKI-ATTACK <>>
<GLOBAL YAMAZAKI-ATTACKS
<LTABLE 0
"The Captain leaps forward, his sword a whirling arc directed at your
head!"
"The Captain swings his sword, chopping viciously at your knees."
"The Captain charges at you, his sword pointed straight at your belly."
"The Captain screams \"Yaemon!\" and begins an overhand blow toward
your head.">>
<OBJECT YAMAZAKI
(SCENE S-DEPARTURE)
(DESC "Yamazaki")
(SYNONYM GRAY CAPTAIN LEADER YAMAZAKI DANZENJI)
(ADJECTIVE GRAY)
(FLAGS PERSON NOABIT NOTHEBIT SCOREBIT)
(HEALTH 4)
(GENERIC GENERIC-CAPTAIN-F)
(ACTION YAMAZAKI-F)>
<ROUTINE YAMAZAKI-F ("OPT" (RARG <>) "AUX" H)
<COND (<RARG? SUBJ>
<RFALSE>)
(<RARG? WINNER>
<COND (<P? WHO (YAMAZAKI YOU)>
<TELL
"\"My name is Yamazaki Danzenji, Captain of the Fourth Legion!\"" CR>)
(<VERB? STOP>
<TELL
G"\"You will not pass without papers!\"" CR>)
(ELSE
<WAKARIMASEN>)>)
(<VERB? EXAMINE>
<COND (<FSET? ,PRSO ,DEAD>
<TELL
"He is dead. You have killed him." CR>)
(ELSE
<TELL
G"He is dressed in the Gray uniform." CR>)>)
(<VERB? BOW>
<TELL
"He looks you over carefully, considering his options." CR>)
(<HOSTILE-VERB?>
<COND (<VERB? BITE PISS SPIT KICK>
<TELL
"He is clearly insulted that you would ever try such a barbaric action." CR>)
(<OR <AND <PRSO? ,YAMAZAKI>
<NOT <PRSI? ,SWORDS <>>>>
<AND <PRSI? ,YAMAZAKI>
<NOT <PRSO? ,SWORDS <>>>>>
<TELL
"You aren't taking him very seriously, are you?" CR>)
(<FSET? ,YAMAZAKI ,DEAD>
<TELL
"You strike the already-dead Gray with your sword. The onlookers are
shocked at this insult to a worthy opponent!" CR>)
(<NOT <FSET? ,YAMAZAKI ,RMUNGBIT>>
<COND (<QUEUED? I-FIGHT>
<FSET ,YAMAZAKI ,RMUNGBIT>
<COND (<FSET? ,SWORDS ,WEARBIT>
<FCLEAR ,SWORDS ,WEARBIT>
<TELL
"You draw your sword, and the Captain bows to you and does the same." CR>)
(ELSE
<SETG DELAYING-FIGHT? <>>
<TELL
"You strike at the Gray Captain, and he dodges expertly as he draws his
sword. He is clearly shocked that you would attack him before he had a
chance to draw his sword." CR>)>)
(ELSE
<TELL
"\"Not yet, Anjin-san! Wait for my order!\"" CR>)>)
(<ZERO? ,YAMAZAKI-ATTACK>
<SETG DELAYING-FIGHT? <>>
<TELL
"You swing powerfully if somewhat inexpertly with your sword. The
Captain parries." CR>)
(ELSE
<SETG DELAYING-FIGHT? <>>
<SETG YAMAZAKI-ATTACK <>>
<SET H <GETP ,YAMAZAKI ,P?HEALTH>>
<PUTP ,YAMAZAKI ,P?HEALTH <SET H <- .H 1>>>
<TELL <PICK-ONE ,SWORD-ATTACKS> CR>
<COND (<ZERO? .H>
<FSET ,YAMAZAKI ,DEAD>
<SETG OPPONENT <>>
<COND (<ZERO? <GETP ,BROWNS ,P?COUNT>>
<DEQUEUE I-FIGHT>)>
<TELL CR
"The captain, slowed by pain and loss of blood, cannot even parry your
next stroke, which skewers him like a lamb. He stares at you silently
for a moment, then his eyes glaze and he falls to the ground, dead." CR>
<SCORE-OBJECT ,YAMAZAKI>)>
<RTRUE>)>)>>
<CONSTANT SWORD-ATTACKS
<LTABLE 0
"You swing, wishing for luck, for good karma, for a pistol, by
God! He parries, but the force of your blow is strong, and the tip
manages to carve into his wrist."
"You hold the blade before you, stabbing almost wildly with it, wondering
why his attack is so formal. You see an opening and plunge madly
forward, wounding him in the chest."
"You interpose your blade, and there is a ringing, almost bell-like
crash as they meet. You slide your blade around and manage to wound
him. He seems almost surprised."
"Leaping and yelling, you charge him, and in an astonishing flurry he
fights back, executing a daring turn and riposte, but he's off balance
and you slice the back of his calf.">>
<OBJECT KOJIMA
(SCENE S-DEPARTURE)
(DESC "Kojima")
(SYNONYM CAPTAIN LEADER KOJIMA)
(ADJECTIVE GRAY)
(FLAGS PERSON JAPANESEBIT NOABIT NOTHEBIT)
(HEALTH 4)
(GENERIC GENERIC-CAPTAIN-F)
(ACTION KOJIMA-F)>
<ROUTINE KOJIMA-F ("OPT" (RARG <>))
<COND (<RARG? SUBJ>
<RFALSE>)
(<RARG? WINNER>
<COND (<P? WHO (KOJIMA YOU)>
<TELL
"\"My name is Kojima Harumoto, Captain of the Sixth Legion!\"" CR>)
(<VERB? STOP>
<TELL
G"\"You will not pass without papers!\"" CR>)
(ELSE
<WAKARIMASEN>)>)
(<VERB? EXAMINE>
<COND (<FSET? ,PRSO ,DEAD>
<TELL
"He is dead. Mariko has killed him." CR>)
(ELSE
<TELL
G"He is dressed in the Gray uniform." CR>)>)
(<HOSTILE-VERB?>
<COND (<FSET? ,KOJIMA ,DEAD>
<TELL
"You prepare to strike the already-dead Gray with your sword. Mariko
says, \"No, Anjin-san. He was samurai. He was doing his duty.\"" CR>)
(ELSE
<TELL
"Mariko says, \"Anjin-san, this is my fight. You must not
shame me by fighting this man. I am samurai, and this is my duty, and
my honor.\"" CR>)>)>>
<GLOBAL DELAYING-FIGHT? 0>
<ROUTINE CAPTAIN-KILLS-YOU ()
<CRLF>
<JIGS-UP
"The Captain, having decided you are a barbarian without honor, removes your
head.">>
<ROUTINE I-FIGHT ("AUX" (B <GETP ,BROWNS ,P?COUNT>))
<COND (<NOT <FSET? ,YAMAZAKI ,DEAD>>
<SETG DELAYING-FIGHT? <+ ,DELAYING-FIGHT? 1>>
<COND (<B-NOT-STANDING?>
<COND (<G? ,DELAYING-FIGHT? 4>
<CAPTAIN-KILLS-YOU>)
(ELSE
<TELL CR
"The Captain motions for you to stand and fight." CR>)>)
(<OR <NOT <HELD? ,SWORDS>>
<FSET? ,SWORDS ,WEARBIT>>
<COND (<G? ,DELAYING-FIGHT? 4>
<CAPTAIN-KILLS-YOU>
<CRLF>
<JIGS-UP
"The Captain, having decided you are a barbarian without honor, removes your
head.">)
(ELSE
<TELL CR
"The Captain waits for you to draw your sword." CR>)>)
(ELSE
<COND (<NOT <FSET? ,YAMAZAKI ,RMUNGBIT>>
<FSET ,YAMAZAKI ,RMUNGBIT>
<THIS-IS-IT ,YAMAZAKI>
<SETG OPPONENT ,YAMAZAKI>
<TELL CR
"The Captain bows formally, draws his sword, and prepares to attack you." CR>)
(<NOT <ZERO? ,YAMAZAKI-ATTACK>>
<TELL CR
"The Captain swings his sword at you, but
oddly, at the last second he seems to adjust his attack so that
you are only slightly cut, rather than sliced in two." CR>)
(ELSE
<SETG YAMAZAKI-ATTACK T>
<TELL CR <PICK-ONE ,YAMAZAKI-ATTACKS> CR>)>)>)>
<COND (<NOT <ZERO? .B>>
<SET B <- .B <RANDOM 7>>>
<COND (<L=? .B 0> <SET B 0>)>
<PUTP ,BROWNS ,P?COUNT .B>
<COND (<ZERO? .B>
<COND (<FSET? ,YAMAZAKI ,DEAD>
<DEQUEUE I-FIGHT>)>
<TELL CR
"It is now one to one, the last Brown, blood-stained and wounded, already
the victor of four duels. The fresh Gray dispatches him easily and stands
alone among the bodies." CR>)
(ELSE
<TELL CR
"Each time a Gray falls, another calmly walks out of the waiting pack to
join his comrades in the killing. It is now " <GET ,NUMBERS .B> " Brown">
<COND (<NOT <EQUAL? .B 1>>
<TELL "s versus as many Grays." CR>)
(ELSE
<TELL " versus one Gray." CR>)>)>)>
<RTRUE>>
<END-SEGMENT>
"S-SEPPUKU"
<BEGIN-SEGMENT SEPPUKU>
<BEGIN-SEGMENT ESCAPE>
<ROOM FORMAL-GARDEN
(LOC ROOMS)
(SCENE S-SEPPUKU S-ESCAPE)
(DESC "Formal Garden")
(SYNONYM GARDEN)
(ADJECTIVE FORMAL)
(SCORE 1)
(FDESC
"In a sudden hush, Mariko's maid Chimmoko comes out of the small gates
to the garden and walks over to you and bows. \"Anjin-san, please excuse
me, my Mistress wishes to see you. I will escort you.\"|
|
You get up, still deep in your reverie and your overpowering sense of
doom. The shadows are long now.|
|
Chimmoko goes over to Sumiyori. \"Please excuse me, Captain, but my Lady
asks you to please prepare everything.\"|
|
\"Where does she want it done?\"|
|
The maid points to the space in front of the arch. \"There, Sire.\"|
|
Sumiyori is startled. \"It's to be in public? She's doing it for all
to see? But, well ... what about her second?\"|
|
\"She believes Lord Kiyama will honor her.\"|
|
\"And if he doesn't?\"|
|
\"I don't know, Captain. She hasn't told me.\" Chimmoko bows and then
goes back to the gates and beckons you. The Grays begin to follow but
Chimmoko shakes her head and says her mistress had not bidden
them. They allow you to leave and you follow the servant into the garden.")
(LDESC
"It is like a different world within the garden gates, verdant and serene,
the sun on the treetops, birds chattering and insects foraging, the brook
falling sweetly into the lily pond. A tiny thatch-roofed tea house is
beside the garden gate. The courtyard of the keep, a world away, is to the
east.")
(EAST TO COURTYARD IF GARDEN-GATE IS OPEN)
(OUT TO COURTYARD IF GARDEN-GATE IS OPEN)
(NORTH TO TEA-HOUSE)
(IN TO TEA-HOUSE)
(FLAGS ONBIT OUTSIDE)
(GLOBAL GARDEN-GATE TEA-HOUSE)
(ACTION FORMAL-GARDEN-F)>
<ROUTINE FORMAL-GARDEN-F (RARG)
<COND (<RARG? SCENE-SETUP>
<DRESS-BLACKTHORNE>
<QUEUE I-SEPPUKU -1>
<FSET ,FORTIFIED-GATE ,OPENBIT>
<MOVE ,MARIKO ,TEA-HOUSE>
<FCLEAR ,MARIKO ,SCOREBIT>
<FSET ,GARDEN-GATE ,OPENBIT>
<MOVE ,CHIMMOKO ,HERE>
<MOVE ,YABU ,FORECOURT>
<MOVE ,KIRITSUBO ,FORECOURT>
<MOVE ,SUMIYORI ,FORECOURT>
<MOVE ,ISHIDO ,GENERIC-OBJECTS>)
(<RARG? ENTER>
<COND (<AND <SCENE? ,S-ESCAPE>
<EQUAL? ,OHERE ,COURTYARD>
<IN? ,MARIKO ,COURTYARD>>
<QUEUE I-COME-BACK 6>
<TELL
"As you enter the garden, Mariko calls to you \"Anjin-san, we are leaving
soon. Come back!\" You see her explain to Yabu what she said." CR CR>)>
<RTRUE>)>>
<OBJECT GARDEN-GATE
(LOC LOCAL-GLOBALS)
(DESC "garden gate")
(SYNONYM GATE)
(ADJECTIVE GARDEN)
(FLAGS DOORBIT)>
<OBJECT LILY-POND
(LOC FORMAL-GARDEN)
(DESC "lily pond")
(SYNONYM POND WATER)
(ADJECTIVE LILY)
(FLAGS NDESCBIT VEHBIT)
(ACTION LILY-POND-F)>
<ROUTINE LILY-POND-F ()
<COND (<VERB? EXAMINE>
<TELL
"The lily pond glistens in the sun, its waters rippled by the
gentle fall of water from the brook." CR>)
(<VERB? BOARD THROUGH>
<TELL
"To do so would disturb the serenity and peace of the garden and the
pond." CR>)>>
<END-SEGMENT>
<BEGIN-SEGMENT SEPPUKU>
<ROUTINE SEPPUKU-EXAMINE-MARIKO ()
<TELL
"She is kneeling, facing the doorway, freshly made up, lips crimson,
immaculately coiffured, wearing a fresh kimono of somber blue edged
with green, with a lighter green obi and a thin green ribbon for her
hair." CR>>
<ROUTINE SEPPUKU-TAKE-MARIKO ()
<COND (<HERE? FORMAL-GARDEN TEA-HOUSE>
<TELL
"\"No, Anjin-san, I cannot stop. This is my duty to our master. Only in this
way may I expiate the sin of my father, and not die in shame.\"" CR>)
(<AND <FSET? ,MARIKO ,SCOREBIT>
<NOT <FSET? ,MARIKO ,SITTING>>>
<MOVE ,MARIKO ,WINNER>
<DEQUEUE I-SEPPUKU>
<TELL
"You decide that she has endured enough, proved enough, so you come
forward and catch her in your arms as she falls, lift her up just as
her mind leaves her. For a moment you stand there alone, proud that
you alone decided. She rests like a broken doll in your arms. Then
you carry her inside. No one moves or bars your path." CR>
<SCORE-OBJECT ,MARIKO>
<NEXT-SCENE>)
(<JIGS-UP? ,J-SEPPUKU
"You reconsider. You would both die if you interrupted the ceremony.">
<TELL "You come forward to try to help her.">
<INTERRUPTED-SEPPUKU>)
(ELSE <RTRUE>)>>
<BEGIN-SEGMENT ESCAPE>
<ROOM TEA-HOUSE
(LOC ROOMS)
(SCENE S-SEPPUKU S-ESCAPE S-DEPARTURE S-MARIKO)
(DESC "Tea House")
(LDESC
"The tea house is small, simple, and immaculate. The doorway is small
so that all will be humble, equal, the host and guest, the most high
Lord and the merest samurai.")
(SYNONYM HOUSE HUT)
(ADJECTIVE LITTLE TEA CHA-NO-YU)
(OUT TO FORMAL-GARDEN)
(SOUTH TO FORMAL-GARDEN)
(FLAGS ONBIT OUTSIDE)
(ACTION TEA-HOUSE-F)>
<ROUTINE TEA-HOUSE-F (RARG)
<COND (<RARG? BEG>
<COND (<P? KISS MARIKO>
<TELL
"You kiss her gently and tenderly." CR>)>)
(<RARG? ENTER>
<COND (<SCENE? ,S-SEPPUKU>
<THIS-IS-IT ,MARIKO>
<SETG QCONTEXT ,MARIKO>
<TELL
"You go forward alone. ">)>
<TELL "You ">
<COND (<FSET? ,SANDALS ,WEARBIT>
<FCLEAR ,SANDALS ,WEARBIT>
<MOVE ,SANDALS ,FORMAL-GARDEN>
<TELL "slip your feet out of your thongs and ">)>
<TELL "walk
up the three steps. You have to stoop, almost to your knees, to go
through the tiny screened doorway." CR CR>
<RTRUE>)>>
<END-SEGMENT>
<BEGIN-SEGMENT SEPPUKU>
<OBJECT GREEN-RIBBON
(OWNER MARIKO)
(DESC "green silk ribbon")
(SYNONYM RIBBON)
(ADJECTIVE GREEN SILK)
(FLAGS TAKEBIT)
(ACTION GREEN-RIBBON-F)>
<ROUTINE GREEN-RIBBON-F ()
<COND (<AND <VERB? DROP> <FSET? ,PRSO ,RMUNGBIT>>
<YOULL-HAVE-TO "untie it">)
(<P? TIE RIBBON <>>
<COND (<NOT <HELD? ,PRSO>>
<TELL G"You don't have it." CR>)
(<NOT <FSET? ,PRSO ,RMUNGBIT>>
<FSET ,PRSO ,RMUNGBIT>
<TELL
"You tie the ribbon to your sash in homage to Mariko's courage." CR>)
(ELSE
<TELL G"It already is." CR>)>)
(<VERB? UNTIE>
<COND (<NOT <HELD? ,PRSO>>
<TELL G"You don't have it." CR>)
(<FSET? ,PRSO ,RMUNGBIT>
<FCLEAR ,PRSO ,RMUNGBIT>
<TELL
"You untie the ribbon." CR>)
(ELSE
<TELL G"It already is." CR>)>)>>
<OBJECT SUMIYORI
(SCENE S-SEPPUKU)
(DESC "Sumiyori")
(SYNONYM BROWN CAPTAIN LEADER SUMIYORI)
(ADJECTIVE CAPTAIN BROWN)
(FLAGS PERSON NOABIT NOTHEBIT)
(ACTION SUMIYORI-F)>
<ROUTINE SUMIYORI-F ("OPT" (RARG <>))
<COND (<RARG? SUBJ>
<RFALSE>)
(<RARG? WINNER>
<WAKARIMASEN>)
(<VERB? WHO>
<TELL
"Sumiyori is the senior officer of Toranaga's Browns in Osaka." CR>)>>
<ROUTINE I-SEPPUKU ()
<ZLINES ,SEPPUKU-CNT
(DELAY
<COND (<NOT <HERE? ,FORMAL-GARDEN ,TEA-HOUSE>>
<MOVE ,CHIMMOKO ,HERE>
<TELL CR
"Mariko's servant Chimmoko urges you to return to the garden." CR>
<RTRUE>)>)
(<COND (<HERE? ,FORMAL-GARDEN>
<MOVE ,CHIMMOKO ,HERE>
<TELL CR
"Chimmoko points to the little "I"cha-no-yu"" house." CR>)>)
(DELAY
<COND (<HERE? ,FORMAL-GARDEN>
<MOVE ,CHIMMOKO ,HERE>
<TELL CR
"Chimmoko points imploringly at the tea house. \"My mistress wishes
to see you, please, Anjin-san,\" she says in the simplified Japanese
that is all you can understand." CR>
<RTRUE>)>)
(<MOVE ,CHIMMOKO ,FORMAL-GARDEN>
<COND (<HERE? ,TEA-HOUSE>
<TELL CR
"\"Thou,\" Mariko says in Latin, the language of love." CR>)>)
(<MOVE ,MARIKO ,FORMAL-GARDEN>
<COND (<HERE? ,TEA-HOUSE>
<TELL CR
"Chimmoko approaches. \"It's time, Mistress.\"|
|
\"Is everything ready?\" Mariko asks.|
|
\"Yes, Mistress.\"|
|
\"Wait for me beside the lily pond.\" The footsteps go away. Mariko
turns back to you and kisses you gently. She bows to you and goes
through the doorway." CR>)
(<HERE? ,FORMAL-GARDEN>
<TELL CR
"Chimmoko enters the tea house, then re-emerges a moment
later. Mariko follows her, and bows to you as she goes by." CR>)>)
(DELAY
<COND (<HERE? ,TEA-HOUSE> <RTRUE>)>)
(<MOVE ,GREEN-RIBBON ,FORMAL-GARDEN>
<COND (<HERE? ,FORMAL-GARDEN>
<TELL CR
"Mariko stops by the lily pond and undoes her obi and lets it
fall. Chimmoko helps her out of her blue kimono. Beneath it Mariko wears
the most brilliant white kimono and obi you have ever seen. It is
a formal death kimono. She
unties the green ribbon from her hair and casts it aside." CR>)>)
(<FCLEAR ,COURTYARD ,TOUCHBIT>
<MOVE ,MARIKO ,COURTYARD>
<MOVE ,CHIMMOKO ,COURTYARD>
<COND (<HERE? ,FORMAL-GARDEN ,FORECOURT ,COURTYARD>
<TELL CR
"Clad completely in white, Mariko walks from the garden into the courtyard,
never looking at you." CR>)>)
(<FCLEAR ,FORECOURT ,TOUCHBIT>
<MOVE ,MARIKO ,FORECOURT>
<MOVE ,CHIMMOKO ,FORECOURT>
<COND (<HERE? ,FORMAL-GARDEN ,FORECOURT ,COURTYARD>
<TELL CR
"Mariko walks to the gateway, where eight tatamis have been laid out in
the center of the main gate." CR>)>)
(<FSET ,MARIKO ,SITTING>
<COND (<HERE? ,FORECOURT>
<TELL CR
"At a sign from Sumiyori everyone bows. Mariko bows to them. Four samurai
come forward and spread a crimson coverlet over the tatamis.|
|
Mariko goes to the crimson square and kneels in the center, in front of
the tiny white cushion. Her right hand brings out her stiletto dagger
from her white obi and she places it on the cushion in front of
her. Mariko arranges the skirts of her kimono perfectly, Chimmoko helping
her, tying a small white blanket around her waist with the cord. You
know that this is to prevent her skirts being blooded and disarranged
by her death throes." CR>)
(<HERE? ,COURTYARD>
<TELL CR
"Through the crowd to the south you can see Mariko in the forecourt preparing
for her death." CR>)>)
(<COND (<HERE? ,FORECOURT>
<TELL CR
"Serene and prepared, Mariko looks up at the castle donjon. Sun still
dominates the upper story, glittering off the golden tiles. Rapidly
the flaming light mounts the spire. Then it disappears.|
|
Servants are lighting flares along the avenue. When they finish, they
flee as quickly and silently as they arrived.|
|
Mariko reaches forward and straightens the knife. She looks through
the gateway to the far end of the avenue. It is as still and as empty
as it had ever been." CR>)
(<HERE? ,COURTYARD>
<TELL CR
"The crowd is such that you can no longer see Mariko." CR>)>)
(<COND (<HERE? ,FORECOURT>
<TELL CR
"Mariko looks once again at the knife. She says \"Kasigi Yabu-sama! It
seems Lord Kiyama has declined to assist me. Please, I would be honored
if you would be my second.|
|
\"It is my honor,\" Yabu replies. He bows, gets to his feet, and stands
behind her to her left. His sword sings as it slides from its
scabbard. \"I am ready, Lady,\" he says.|
|
\"Please wait until I make the second cut.\"" CR>)>)
(<MOVE ,ISHIDO ,FORECOURT>
<COND (<HERE? ,FORECOURT>
<MARGINAL-PIC ,P-SEPPUKU>
<TELL CR
"With her right hand, Mariko makes the sign of the cross, then leans
forward and takes the knife and touches it to her lips as though to
taste the polished steel. She changes her grip and holds the knife