-
Notifications
You must be signed in to change notification settings - Fork 16
/
Copy pathcast.zap
1803 lines (1704 loc) · 63.4 KB
/
cast.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 "0"
.FUNCT NEW-SDESC:ANY:2:3,OBJ,STR,IMPROPER?
ZERO? IMPROPER? /?CCL3
FSET OBJ,THE
FCLEAR OBJ,NOTHEBIT
FCLEAR OBJ,NOABIT
JUMP ?CND1
?CCL3: FCLEAR OBJ,THE
FSET OBJ,NOTHEBIT
FSET OBJ,NOABIT
?CND1: PUTP OBJ,P?SDESC,STR
RTRUE
.FUNCT YABU-WAKARIMASEN:ANY:0:0
PRINTC 34
ICALL2 PRINTUNDER,STR?241
PRINTR ","" Yabu replies gruffly."
.FUNCT WAKARIMASEN:ANY:0:0
EQUAL? PRSA,V?KONNICHI-WA \?PRD5
EQUAL? PRSO,ROOMS /?CTR2
?PRD5: EQUAL? PRSA,V?KONBANWA \?CCL3
?CTR2: PRINTC 34
ICALL2 PRINTUNDER,STR?242
PRINTI ","" "
ICALL2 THE-PRINT,WINNER
PRINTR " answers politely."
?CCL3: EQUAL? PRSA,V?NIHON-GO-GA \?CCL9
EQUAL? PRSO,HANASE-MASEN \?CCL9
ICALL2 CTHE-PRINT,WINNER
PRINTR " seems to understand, but is at a loss what to say next."
?CCL9: CALL1 JAPANESE-VERB?
ZERO? STACK /?CCL13
ICALL2 CTHE-PRINT,WINNER
PRINTR " seems impressed that you know some Japanese, but apparently isn't sure what you are getting at."
?CCL13: PRINTC 34
ICALL2 PRINTUNDER,STR?243
PRINTI """ "
ICALL2 CTHE-PRINT,WINNER
PRINTR " doesn't appear to understand you."
.FUNCT GENERIC-PILOT-F:ANY:2:2,R,F
EQUAL? SCENE,S-RODRIGUES \?CCL3
RETURN RODRIGUES
?CCL3: RETURN BLACKTHORNE
.FUNCT BLACKTHORNE-F:ANY:0:1,RARG
EQUAL? RARG,FALSE-VALUE \?CCL3
EQUAL? PRSA,V?BE,V?BE? \?CCL6
EQUAL? PRSO,ME,BLACKTHORNE \?CCL6
EQUAL? PRSI,BLACKTHORNE \?CCL11
PRINTR "That's correct."
?CCL11: EQUAL? PRSI,ENGLISH \FALSE
PRINTR "That's right, although your mother was Dutch."
?CCL6: EQUAL? PRSA,V?BE?,V?BE,V?WHERE /FALSE
EQUAL? PRSA,V?HOW /FALSE
EQUAL? PRSO,BLACKTHORNE \FALSE
ICALL PERFORM,PRSA,ME,PRSI
RTRUE
?CCL3: EQUAL? RARG,M-WINNER \FALSE
FSET? BLACKTHORNE,SITTING \?CCL24
CALL1 MOTION-VERB?
ZERO? STACK \?PRD27
EQUAL? PRSA,V?STAND /?PRD27
CALL1 HOSTILE-VERB?
ZERO? STACK /?PRD31
ZERO? OPPONENT /?PRD31
EQUAL? OPPONENT,PRSO,PRSI /?PRD27
?PRD31: EQUAL? PRSA,V?OPEN,V?CLOSE \?CCL24
FSET? PRSO,DOORBIT \?CCL24
?PRD27: CALL1 PAST-TENSE?
ZERO? STACK \?CCL24
EQUAL? HERE,MURA-HOUSE /FALSE
LOC WINNER
FSET? STACK,VEHBIT /FALSE
EQUAL? SCENE,S-NINJA \?CCL43
FSET? MARIKO,RMUNGBIT \?CCL43
IN? YABU,SECRET-REDOUBT /?CCL48
PRINTR "You are too shaken to stand."
?CCL48: ICALL1 B-STAND
FCLEAR BLACKTHORNE,RMUNGBIT
PRINTR "You lurch up, Yabu helping you, and painfully approach Mariko."
?CCL43: EQUAL? SCENE,S-TORANAGA /FALSE
EQUAL? SCENE,S-QUAKE \?CCL52
ZERO? QUAKE? \FALSE
CALL2 QUEUED?,I-CRAWL
ZERO? STACK \FALSE
?CCL52: ICALL1 B-STAND
PRINTI "You stand up"
EQUAL? PRSA,V?STAND /?CTR58
EQUAL? PRSA,V?WALK \?CCL59
EQUAL? P-WALK-DIR,P?UP \?CCL59
?CTR58: PRINTR "."
?CCL59: PRINTR " first."
?CCL24: FSET? WINNER,RMUNGBIT \FALSE
EQUAL? SCENE,S-NINJA \FALSE
CALL1 GAME-VERB?
ZERO? STACK \FALSE
CALL1 ABSTRACT-VERB?
ZERO? STACK \?CCL72
EQUAL? PRSO,MARIKO /?CTR71
EQUAL? PRSI,MARIKO \?CCL72
?CTR71: CALL2 YOULL-HAVE-TO,STR?244
RSTACK
?CCL72: CALL1 PASSIVE-VERB?
ZERO? STACK \FALSE
PRINTR "The explosion has left you too dazed to do anything."
.FUNCT I-DONT-KNOW?:ANY:0:0
EQUAL? PRSA,V?KNOW \FALSE
EQUAL? PRSS,ME \FALSE
EQUAL? PRSQ,V?DO? \FALSE
GET PARSE-RESULT,16
BTST STACK,PARSE-QUESTION /FALSE
GET PARSE-RESULT,16
BTST STACK,PARSE-NOT /TRUE
RFALSE
.FUNCT BOOTS-F:ANY:0:0
EQUAL? PRSA,V?EXAMINE \?CCL3
EQUAL? SCENE,S-ERASMUS \?CCL6
PRINTR "They are salt-encrusted and worn."
?CCL6: PRINTR "They have been cleaned and shined."
?CCL3: EQUAL? PRSA,V?LOOK-INSIDE,V?SMELL \?CCL8
PRINTR "They are the same boots you've been wearing for two years now. Let's just say they aren't in perfect condition any more."
?CCL8: EQUAL? PRSA,V?TAKE-OFF \?CCL10
FSET? BOOTS,WEARBIT \?CCL10
EQUAL? SCENE,S-ERASMUS \FALSE
PRINTR "You'd be crazy to remove your boots in this weather!"
?CCL10: EQUAL? PRSA,V?WEAR \FALSE
CALL2 HELD?,PRSO
ZERO? STACK \?CCL20
CALL1 ITAKE
EQUAL? STACK,TRUE-VALUE \TRUE
?CCL20: FSET? BOOTS,WEARBIT /FALSE
FSET BOOTS,WEARBIT
PRINTR "You put on your boots."
.FUNCT CLOTHES-F:ANY:0:0
EQUAL? PRSA,V?EXAMINE \?CCL3
EQUAL? SCENE,S-ERASMUS \?CCL6
PRINTR "They are filthy, torn, and wet."
?CCL6: FSET? CLOTHES,TOUCHBIT /FALSE
PRINTR "They are in a neat pile, washed and pressed and mended with tiny, exquisite stitching. But your knife is gone, and so are your keys. Your boots are nowhere to be found. Worst of all, there is no sign of your precious rutters!"
?CCL3: EQUAL? PRSA,V?TAKE \?CCL10
EQUAL? SCENE,S-ANJIRO \FALSE
GETP WINNER,P?HEALTH
LESS? STACK,3 \FALSE
ICALL QUEUE,I-COLLAPSE,4
PRINTR "You are still too weak to stand and go over to the clothes."
?CCL10: EQUAL? PRSA,V?WEAR \?CCL17
CALL2 HELD?,PRSO
ZERO? STACK \?CCL20
GETP WINNER,P?HEALTH
LESS? STACK,3 \?CCL20
ICALL PERFORM,V?TAKE,CLOTHES
RTRUE
?CCL20: FSET? CLOTHES,WEARBIT /FALSE
IN? CLOTHES,WINNER /?CCL24
CALL1 ITAKE
ZERO? STACK /FALSE
?CCL24: FSET CLOTHES,WEARBIT
PRINTI "You "
IN? WINNER,QUILT \?CND29
MOVE WINNER,HERE
?CND29: FSET? BLACKTHORNE,SITTING \?CND31
ICALL1 B-STAND
PRINTI "stand shakily and "
?CND31: PRINTI "put on your clothes"
CALL2 HELD?,BOOTS
ZERO? STACK \?CND33
PRINTI ", feeling strange without your boots"
?CND33: PRINTR "."
?CCL17: EQUAL? PRSA,V?TAKE-OFF \?CCL36
EQUAL? SCENE,S-ERASMUS \?CCL39
PRINTR "You would freeze, or at least take a terrible chill."
?CCL39: FSET? BOOTS,WEARBIT \?CCL41
CALL2 YOULL-HAVE-TO,STR?246
RSTACK
?CCL41: EQUAL? PRSA,V?TAKE-OFF \?CCL43
CALL1 FORMAL-SCENE?
ZERO? STACK /?CCL43
PRINTR "You would expose yourself to ridicule."
?CCL43: FCLEAR CLOTHES,WEARBIT
PRINTR "You remove your clothes."
?CCL36: EQUAL? PRSA,V?TEAR \FALSE
EQUAL? SCENE,S-ERASMUS \?CCL50
PRINTR "You are in desperate straits, but rending your garments seems like an odd reaction."
?CCL50: PRINTR "Your clothes are thick, strong European fabrics and don't tear at all easily."
.FUNCT KIMONO-F:ANY:0:0
EQUAL? PRSA,V?TAKE-OFF \?CCL3
CALL1 FORMAL-SCENE?
ZERO? STACK /?CCL3
PRINTR "You would expose yourself to ridicule."
?CCL3: EQUAL? PRSA,V?WEAR \?CCL7
CALL NOUN-USED?,PRSO,W?CLOTHES
ZERO? STACK /?CCL7
FSET? PRSO,RMUNGBIT /?CCL7
ICALL2 PERFORM,V?DRESS
RTRUE
?CCL7: EQUAL? PRSA,V?TAKE-OFF \?CCL12
CALL NOUN-USED?,PRSO,W?CLOTHES
ZERO? STACK /?CCL12
FSET? PRSO,RMUNGBIT /?CCL12
ICALL2 PERFORM,V?STRIP
RTRUE
?CCL12: EQUAL? PRSA,V?TEAR \FALSE
PRINTR "Your kimono would tear easily, but it would be silly to do so."
.FUNCT SOCKS-F:ANY:0:0
EQUAL? PRSA,V?EXAMINE \?CCL3
PRINTR "These are tabi socks. They are different from European socks in that there is a notch for the thong of a sandal. They remind you of mittens."
?CCL3: EQUAL? PRSA,V?TAKE-OFF,V?WEAR \FALSE
FSET? SANDALS,WEARBIT \FALSE
CALL2 HAVE-TO-TAKE-OFF,SANDALS
RSTACK
.FUNCT SWORDS-F:ANY:0:0
EQUAL? PRSA,V?EXAMINE \?CCL3
FSET? SWORDS,RMUNGBIT \?CCL6
FCLEAR SWORDS,RMUNGBIT
FSET SWORDS,SCOREBIT
ICALL2 SCORE-OBJECT,SWORDS
PRINTR "You quickly check your sword belt. It's loose, almost ready to fall off! What a stroke of luck you checked it! How embarrassing if it had fallen off!"
?CCL6: PRINTI "You have a pair of samurai swords, one the long killing sword"
GRTR? SCENE,S-QUAKE \?CND7
PRINTI " named 'Oil Seller'"
?CND7: PRINTR ", and the other the shorter stabbing sword."
?CCL3: EQUAL? PRSA,V?WHO,V?WHAT \?CCL10
CALL NOUN-USED?,PRSO,W?SELLER
ZERO? STACK /?CCL10
PRINTR "The name comes from an experience you would rather forget. One day hunting with Toranaga, your path had been blocked by a weather-beaten old oil seller. Cursing, you commanded him to move, and he cursed you back. Toranaga pointed to one of his bodyguards, asked you to give him your sword, and before you realized what was happening, the samurai lunged at the peddler. He walked on a pace before falling, divided in two at the waist. Toranaga suggested you call your sword 'Oil Seller' in honor of the incident. ""Your sword has now become legend."""
?CCL10: EQUAL? PRSA,V?WEAR \?CCL14
FSET? PRSO,WEARBIT /?CCL17
FSET PRSO,WEARBIT
PRINTR "You shove the sword into your sash."
?CCL17: PRINTR "The sword is already in your sash."
?CCL14: EQUAL? PRSA,V?TAKE \?CCL19
CALL2 HELD?,PRSO
ZERO? STACK \?CCL19
CALL1 ITAKE
EQUAL? STACK,TRUE-VALUE \TRUE
FSET SWORDS,WEARBIT
PRINTR "You take the sword and shove it into your sash."
?CCL19: EQUAL? PRSA,V?DRAW,V?PICK,V?USE /?PRD30
EQUAL? PRSA,V?TAKE \?PRD28
?PRD30: CALL2 HELD?,PRSO
ZERO? STACK \?CCL26
?PRD28: EQUAL? PRSA,V?PUT \FALSE
EQUAL? PRSI,HANDS \FALSE
?CCL26: FSET? PRSO,WEARBIT \?CCL37
FCLEAR PRSO,WEARBIT
PRINTR "Your skill with the sword is not great, but you are now as ready as you will ever be!"
?CCL37: PRINTR "You've already drawn your sword."
.FUNCT SEBASTIO-F:ANY:0:1,RARG,OW
EQUAL? RARG,M-SUBJ /FALSE
EQUAL? RARG,M-WINNER \?CCL5
EQUAL? PRSA,V?HELP \?CCL8
EQUAL? PRSO,ME \?CCL8
PRINTR """Ah, help!"" he says with icy contempt. ""Help a heretic pirate!"""
?CCL8: EQUAL? PRSA,V?HELLO \?CCL12
ICALL2 CTHE-PRINT,SEBASTIO
PRINTR " ignores your greeting."
?CCL12: EQUAL? PRSA,V?FIND \?CCL14
EQUAL? PRSO,ME,THIS \?CCL14
ZERO? YABU-QUESTION /?CCL19
CALL1 SPEAK-ONLY-TO-YABU
RSTACK
?CCL19: PRINTR """The Japans, pirate."" the priest says angrily."
?CCL14: EQUAL? PRSA,V?BE \?CCL21
EQUAL? PRSO,THIS \?CCL21
EQUAL? PRSI,JAPAN \?CCL21
ZERO? YABU-QUESTION /?CCL27
CALL1 SPEAK-ONLY-TO-YABU
RSTACK
?CCL27: PRINTR """Yes, Japan. Nippon,"" the priest says impatiently."
?CCL21: EQUAL? PRSA,V?WHO \?CCL29
EQUAL? PRSO,YOU \?CCL32
ZERO? YABU-QUESTION /?CCL35
CALL1 SPEAK-ONLY-TO-YABU
RSTACK
?CCL35: ICALL NEW-SDESC,SEBASTIO,STR?248
PRINTR """Father Sebastio. I'm from Portugal. I'm a Jesuit."""
?CCL32: EQUAL? PRSO,YABU,GLOBAL-DAIMYO \?CCL37
CALL NOUN-USED?,PRSO,W?DAIMYO
ZERO? STACK /?CCL37
PRINTI """The "
ICALL2 PRINTUNDER,STR?82
PRINTI " is Kasigi Yabu."
PRINT STR?249
CRLF
RTRUE
?CCL37: EQUAL? PRSO,OMI \?CCL41
ZERO? YABU-QUESTION /?CCL44
CALL1 SPEAK-ONLY-TO-YABU
RSTACK
?CCL44: PRINTC 34
FSET? OMI,NOTHEBIT /?CND45
PRINTI "Who told you about Kasigi Omi-san? "
?CND45: PRINTR "Kasigi Omi-san is the samurai in charge of this village. He is the Lord Yabu's nephew."""
?CCL41: EQUAL? PRSO,MURA \?CCL48
ZERO? YABU-QUESTION /?CCL51
CALL1 SPEAK-ONLY-TO-YABU
RSTACK
?CCL51: PRINTR """He is the headman of this village. He, at least, is a good Christian."""
?CCL48: PRINT STR?250
CRLF
RTRUE
?CCL29: EQUAL? PRSA,V?WHAT \?CCL53
EQUAL? PRSO,YOU \?CCL56
ICALL PERFORM,V?WHO,YOU
RTRUE
?CCL56: EQUAL? PRSO,GLOBAL-DAIMYO,YABU \?CCL58
CALL NOUN-USED?,PRSO,W?DAIMYO
ZERO? STACK /?CCL61
PRINTI """The "
ICALL2 PRINTUNDER,STR?82
PRINTI " is a feudal lord."
PRINT STR?249
CRLF
RTRUE
?CCL61: PRINTI """Who told you about "
ICALL2 DPRINT,YABU
PRINTR "?"""
?CCL58: EQUAL? PRSO,GLOBAL-SAMURAI \?CCL63
PRINTR """Warriors -- soldiers -- members of the warrior caste."""
?CCL63: PRINT STR?250
CRLF
RTRUE
?CCL53: ZERO? OMI-QUESTION /?CCL65
SET 'OW,WINNER
SET 'WINNER,OMI
ICALL PERFORM,PRSA,PRSO,PRSI
SET 'WINNER,OW
RTRUE
?CCL65: ZERO? YABU-QUESTION /?CCL67
EQUAL? PRSA,V?TRANSLATE \?CCL70
PRINTI "You harden your voice. """
ICALL2 PRINTUNDER,STR?251
PRINTI " First translate what I said. Now!"" The priest reddens, and you see that the exchange has not gone unnoticed by the "
ICALL2 PRINTUNDER,STR?82
PRINTR "."
?CCL70: SET 'OW,WINNER
SET 'WINNER,YABU
ICALL PERFORM,PRSA,PRSO,PRSI
SET 'WINNER,OW
RTRUE
?CCL67: EQUAL? PRSA,V?TRANSLATE \?CCL72
PRINTR """It's not your place to command me, heretic!"""
?CCL72: EQUAL? PRSA,V?BE \?CCL74
EQUAL? PRSO,ME \?CCL74
EQUAL? PRSI,HERETIC,PIRATE \?CCL79
CALL1 P-NEGATIVE?
ZERO? STACK /?CCL79
PRINTR """Liar!"" storms the priest."
?CCL79: EQUAL? PRSI,BLACKTHORNE \?CCL83
PRINTR "He doesn't seem to have heard of you before."
?CCL83: PRINTR """I'll know who and what you are soon enough!"""
?CCL74: ICALL2 CTHE-PRINT,SEBASTIO
PRINTR " looks at you with contempt."
?CCL5: EQUAL? PRSA,V?EXAMINE \?CCL85
ICALL2 CTHE-PRINT,SEBASTIO
PRINTI " is a short, thick man with dark hair and a long beard. His robe is travel-stained and his boots are besmirched with mud. He is obviously a Portuguese or Spanish priest, and though his flowing robe is orange, there is no mistaking the "
IN? SEBASTIO-CRUCIFIX,PRSO \?CND86
PRINTI "crucifix and "
?CND86: PRINTR "rosary at his belt, or the cold hostility on his face."
?CCL85: EQUAL? PRSA,V?TELL-ABOUT \?CCL89
EQUAL? PRSO,SEBASTIO \?CCL89
EQUAL? PRSI,STRAIT-OF-MAGELLAN \?CCL89
EQUAL? YABU-QUESTION,4 \?CCL89
ICALL PERFORM,PRSA,YABU,PRSI
RTRUE
?CCL89: EQUAL? PRSA,V?ANSWER,V?REPLY \?CCL95
PRINTI """That's no response, pirate!"" rages "
ICALL2 THE-PRINT,SEBASTIO
PRINTR "."
?CCL95: EQUAL? PRSA,V?BOW \?CCL97
PRINTR """You learn fast, pirate!"" he says, surprised, but he doesn't return your bow."
?CCL97: EQUAL? PRSA,V?THROW \?CCL99
EQUAL? PRSO,SEBASTIO-CRUCIFIX \?CCL99
EQUAL? PRSI,SEBASTIO /FALSE
?CCL99: CALL1 HOSTILE-VERB?
ZERO? STACK /FALSE
PRINTI "You "
FSET? BLACKTHORNE,SITTING \?CND105
ICALL1 B-STAND
PRINTI "storm to your feet, "
?CND105: EQUAL? PRSA,V?THROW \?CCL109
MOVE PRSO,HERE
PRINTI "throw "
ICALL1 THE-PRINT-PRSO
PRINTI " at"
JUMP ?CND107
?CCL109: EQUAL? PRSA,V?SPIT \?CCL111
PRINTI "spit at"
JUMP ?CND107
?CCL111: EQUAL? PRSA,V?KICK \?CCL113
PRINTI "kick"
JUMP ?CND107
?CCL113: EQUAL? PRSA,V?PISS \?CCL115
PRINTI "piss on"
JUMP ?CND107
?CCL115: PRINTI "strike"
?CND107: PRINTC 32
ICALL2 THE-PRINT,SEBASTIO
PRINTI ", and he curses at you but turns the other cheek."
CRLF
IN? OMI,HERE \TRUE
IN? YABU,HERE \TRUE
ICALL QUEUE,I-BOW?,2
CRLF
PRINTR "Omi and Yabu look at each other in surprise."
.FUNCT OMI-F:ANY:0:1,RARG
EQUAL? RARG,M-SUBJ /FALSE
EQUAL? RARG,M-WINNER \?CCL5
EQUAL? PRSA,V?PISS,V?CURSE,V?FUCK /?CTR7
EQUAL? PRSA,V?NO,V?IYE \?CCL8
CALL2 QUEUED?,I-TAKE-CROOCQ
ZERO? STACK /?CCL8
?CTR7: SET 'WINNER,PLAYER
ICALL PERFORM,V?CURSE,OMI
RTRUE
?CCL8: CALL1 QUESTION-VERB?
ZERO? STACK \?CTR13
EQUAL? PRSA,V?ASK-ABOUT,V?TELL-ME-ABOUT \?CCL14
?CTR13: ICALL2 CTHE-PRINT,SEBASTIO
PRINTR " snaps, ""You're to answer questions, not ask them."" He says something to the samurai, who scowls."
?CCL14: ZERO? OMI-QUESTION /?CCL18
CALL1 I-DONT-KNOW?
ZERO? STACK /?CCL18
PRINTI """Liar!"" screams "
ICALL2 THE-PRINT,SEBASTIO
PRINTR ". ""They use torture here. They can find out anything!"""
?CCL18: EQUAL? OMI-QUESTION,1 \?CCL22
EQUAL? PRSA,V?BE \?CCL22
EQUAL? PRSO,ME,BLACKTHORNE \?CCL22
ZERO? PRSI /?CCL22
CALL1 ENGLISH?
ZERO? STACK \?PRD31
CALL1 DUTCH?
ZERO? STACK /?CCL29
?PRD31: CALL1 P-NEGATIVE?
ZERO? STACK \?CCL29
SET 'QCONTEXT,FALSE-VALUE
SET 'OMI-QUESTION,0
ICALL2 CTHE-PRINT,SEBASTIO
CALL1 ENGLISH?
ZERO? STACK /?CCL36
PRINTI " steps back as though struck. ""English! England"
JUMP ?CND34
?CCL36: PRINTI " nods suspiciously. ""Dutch! Holland"
?CND34: PRINTR "!"" He begins to explain to Omi but the samurai cuts him short."
?CCL29: ICALL2 SETUP-ANSWER,STR?254
ICALL1 SEBASTIO-SCREAMS
EQUAL? PRSI,BLACKTHORNE \?CCL39
PRINTR "I want to know your nationality, not your name, heretic!"""
?CCL39: PRINTR "I know you aren't what you say you are!"""
?CCL22: EQUAL? OMI-QUESTION,2 \?CCL41
EQUAL? PRSA,V?BE \?PRD45
EQUAL? PRSO,BLACKTHORNE,ME \?PRD45
EQUAL? PRSI,INTPP /?CTR40
?PRD45: EQUAL? PRSA,V?COME-FROM \?CCL41
?CTR40: EQUAL? PRSA,V?COME-FROM \?PRD53
EQUAL? PRSO,HOLLAND /?CTR50
?PRD53: CALL PP?,W?FROM,HOLLAND
ZERO? STACK /?CCL51
?CTR50: SET 'QCONTEXT,FALSE-VALUE
SET 'OMI-QUESTION,0
ICALL2 CTHE-PRINT,SEBASTIO
PRINTR "'s anger is obvious. ""A Dutch pirate ship!"" he gasps. He says something haltingly to Omi-san."
?CCL51: ICALL1 SEBASTIO-SCREAMS
PRINTR "That's a Dutch pirate ship! Admit you're a heretic, murdering Dutchman!"""
?CCL41: EQUAL? OMI-QUESTION,3 \?CCL57
EQUAL? PRSA,V?YES,V?NO,V?IYE /?CTR56
EQUAL? PRSA,V?BE,V?HAI \?CCL57
?CTR56: EQUAL? PRSA,V?YES,V?HAI /?CTR63
EQUAL? PRSA,V?BE \?CCL64
EQUAL? PRSO,BLACKTHORNE,ME \?CCL64
EQUAL? PRSI,LEADER \?CCL64
CALL1 P-NEGATIVE?
ZERO? STACK \?CCL64
?CTR63: SET 'QCONTEXT,FALSE-VALUE
SET 'OMI-QUESTION,0
SET 'ORPHAN-ANSWER,FALSE-VALUE
ICALL2 CTHE-PRINT,SEBASTIO
EQUAL? PRSA,V?HAI \?CCL73
PRINTI " looks surprised at your knowledge of Japanese, and speaks rapidly and excitedly to Omi."
CRLF
JUMP ?CND71
?CCL73: PRINTI " translates for Omi, still digesting what you have told him."
CRLF
?CND71: CALL2 SCORE-OBJECT,OMI
RSTACK
?CCL64: ICALL2 SETUP-ANSWER,STR?254
ICALL2 CTHE-PRINT,SEBASTIO
PRINTR " screams, ""Coward, I know you're the leader! The villagers have already told me so!"""
?CCL57: ZERO? OMI-QUESTION /?CCL75
EQUAL? PRSA,V?SAY,V?REPLY \?CCL78
ICALL PERFORM,V?BE,ME,PRSO
RTRUE
?CCL78: ICALL2 CTHE-PRINT,OMI
PRINTR " doesn't respond, but the priest says, ""You'd better learn to be polite -- and find some manners quickly. Here they don't tolerate lack of manners."" His voice edges. ""Hurry up and answer!"""
?CCL75: EQUAL? PRSA,V?STOP \?CCL80
ZERO? ANSWER-HAI? \?CCL80
EQUAL? HERE,VILLAGE-SQUARE \?CCL80
CALL2 QUEUED?,I-TAKE-CROOCQ
ZERO? STACK /?CCL80
SET 'QCONTEXT,OMI
PRINTR """Omi-san says, you agree to behave? You will obey all orders?"""
?CCL80: EQUAL? PRSA,V?HAI,V?YES \?CCL86
ZERO? ANSWER-HAI? \?CCL86
EQUAL? HERE,VILLAGE-SQUARE \?CCL86
CALL2 QUEUED?,I-TAKE-CROOCQ
ZERO? STACK /?CCL86
EQUAL? PRSA,V?YES \?CCL93
PRINTI """You must speak to him in Japanese, heretic! You must say 'hai.'"" "
ICALL2 DPRINT,SEBASTIO
PRINTR " is sweating and nervous."
?CCL93: SET 'ANSWER-HAI?,TRUE-VALUE
SET 'DELAY-CNT,0
ICALL2 THIS-IS-IT,ORDERS
PRINTI """Omi-san says, lie down. Immediately."""
CRLF
CALL2 SCORE-OBJECT,VILLAGE-SQUARE
RSTACK
?CCL86: ICALL2 CTHE-PRINT,OMI
PRINTR " ignores you, for now."
?CCL5: EQUAL? PRSA,V?EXAMINE \?CCL95
PRINTR "The young man is a head shorter and much younger than you, his handsome face slightly pockmarked though. He wears breeches and clogs and a light kimono with two scabbarded swords stuck into the belt. One is daggerlike, the other, a two-handed killing sword, is long and slightly curved."
?CCL95: EQUAL? PRSA,V?WHO \?CCL97
ICALL2 CTHE-PRINT,OMI
PRINTR " is an ambitious young man. He serves his masters well, but himself better."
?CCL97: EQUAL? PRSA,V?THANK \?CCL99
IN? SEBASTIO,HERE \?CCL102
ICALL2 CTHE-PRINT,SEBASTIO
PRINTR " translates. Omi seems pleased by your politeness."
?CCL102: PRINTR "Omi responds with a curt bow, and says ""Domo."""
?CCL99: EQUAL? PRSA,V?PISS,V?CURSE,V?FUCK /?CTR103
EQUAL? PRSA,V?NO,V?IYE /?PRD108
CALL1 HOSTILE-VERB?
ZERO? STACK /?CCL104
?PRD108: CALL2 QUEUED?,I-TAKE-CROOCQ
ZERO? STACK /?CCL104
?CTR103: EQUAL? SCENE,S-PIT \FALSE
CALL1 CURSE-OMI
RSTACK
?CCL104: CALL1 HOSTILE-VERB?
ZERO? STACK \?CCL115
EQUAL? PRSA,V?STOP \FALSE
?CCL115: CALL2 REMOVES-YOUR-HEAD,OMI
RSTACK
.FUNCT SEBASTIO-SCREAMS:ANY:0:0
ICALL2 CTHE-PRINT,SEBASTIO
PRINTI " screams, ""Lying pig of a heretic! "
RTRUE
.FUNCT REMOVES-YOUR-HEAD:ANY:1:1,WHO
CALL2 JIGS-UP?,J-HEAD
ZERO? STACK /TRUE
ICALL2 CTHE-PRINT,WHO
PRINTI " responds to your feeble attack by removing your head."
CRLF
CALL1 JIGS-UP
RSTACK
.FUNCT GENERIC-MAN-F:ANY:2:2,R,F
PRINTI "You'll have to be more specific."
CRLF
RETURN ROOMS
.FUNCT MURA-F:ANY:0:1,RARG
EQUAL? RARG,M-WINNER \?CCL3
EQUAL? PRSA,V?TAKE \?CCL6
IN? PRSO,PLAYER \?CCL6
FSET? PRSO,WEARBIT /?CCL6
SET 'WINNER,PLAYER
CALL PERFORM,V?GIVE,PRSO,MURA
RSTACK
?CCL6: EQUAL? PRSA,V?NO,V?IYE \?CCL11
EQUAL? QCONTEXT,MURA \?CCL11
EQUAL? SCENE,S-RODRIGUES \?CCL11
PRINTR "Mura replies in halting Portuguese, ""So sorry, Anjin-san, you must go."""
?CCL11: EQUAL? PRSA,V?TELL-ME-ABOUT,V?FIND \?CCL16
EQUAL? PRSO,ONNA \?CCL16
ICALL NEW-SDESC,ONNA,STR?255
ICALL REPLACE-SYNONYM,ONNA,W?ONNA,W?HAKU
PRINTI """Where's Onna?"" you ask. ""I want Onna!"" Mura replies in heavily-accented Portuguese, """
ICALL2 PRINTUNDER,STR?256
PRINTR " mean 'woman.' Her name Haku."""
?CCL16: CALL1 WAKARIMASEN
RSTACK
?CCL3: EQUAL? RARG,FALSE-VALUE \FALSE
EQUAL? PRSA,V?EXAMINE \?CCL23
PRINTR "Mura is a short, wiry, middle-aged man. You realize there's more to him than the simple fisherman he appears to be."
?CCL23: EQUAL? PRSA,V?GIVE \?CCL25
EQUAL? PRSI,MURA \?CCL25
EQUAL? HERE,BATH-HOUSE \?CCL25
FSET? PRSO,WEARBIT /?CCL25
MOVE PRSO,MURA
PRINTI "Mura takes "
ICALL1 THE-PRINT-PRSO
PRINTR "."
?CCL25: EQUAL? PRSA,V?ATTACK,V?HIT \?CCL31
PRINTR "Mura is unarmed, but the moment you get within reach, he chops your elbow with the side of his hand and your arm hangs down, momentarily paralyzed. ""Please excuse me, Captain-san,"" he says in very bad Portuguese."
?CCL31: EQUAL? PRSA,V?WHO \FALSE
PRINTR "Mura is the headman of the village of Anjiro."
.FUNCT BROWNS-F:ANY:0:1,RARG
EQUAL? RARG,M-SUBJ /FALSE
EQUAL? RARG,M-WINNER \?CCL5
EQUAL? HERE,MAIN-DECK-2 \?CCL8
EQUAL? SCENE,S-ESCAPE \?CCL8
SET 'WINNER,PLAYER
ICALL2 PERFORM,V?MIZU
RTRUE
?CCL8: PRINTI "The Browns are not under your orders."
CRLF
CALL1 END-QUOTE
RSTACK
?CCL5: EQUAL? PRSA,V?WHO \?CCL13
PRINTR "The Browns are Toranaga's samurai."
?CCL13: EQUAL? PRSA,V?EXAMINE \FALSE
PRINTR "They are all dressed in the Brown uniform."
.FUNCT GRAYS-F:ANY:0:1,RARG
EQUAL? RARG,M-SUBJ /FALSE
EQUAL? RARG,M-WINNER \?CCL5
PRINTI "The Grays ignore you."
CRLF
CALL1 END-QUOTE
RSTACK
?CCL5: EQUAL? PRSA,V?WHO \?CCL8
PRINTR "The Grays are Ishido's samurai."
?CCL8: EQUAL? PRSA,V?EXAMINE \FALSE
EQUAL? SCENE,S-PRISON \?CCL13
PRINTR "They are behaving more like escorts than guards."
?CCL13: PRINTR "They are all dressed in the Gray uniform."
.FUNCT MARIKO-DESC:ANY:2:2,RARG,OBJ
EQUAL? RARG,M-OBJDESC? \?CCL3
EQUAL? SCENE,S-SEPPUKU \?CCL6
EQUAL? HERE,TEA-HOUSE,FORECOURT /TRUE
?CCL6: EQUAL? SCENE,S-NINJA \FALSE
FSET? MARIKO,DEAD /TRUE
FSET? MARIKO,RMUNGBIT /TRUE
RFALSE
?CCL3: EQUAL? RARG,M-OBJDESC \FALSE
PRINTI "Mariko "
EQUAL? HERE,TEA-HOUSE \?CCL19
PRINTI "kneels here, facing the doorway."
RTRUE
?CCL19: EQUAL? HERE,FORECOURT \?CCL21
FSET? MARIKO,SITTING \?CCL24
PRINTI "kneels serenely in the center of the crimson coverlet."
RTRUE
?CCL24: PRINTI "is standing in the center of the main gate."
RTRUE
?CCL21: EQUAL? SCENE,S-NINJA \FALSE
PRINTI "lies "
FSET? MARIKO,DEAD \?CCL29
PRINTI "dead"
JUMP ?CND27
?CCL29: PRINTI "dying"
?CND27: PRINTI " on the floor."
RTRUE
.FUNCT MARIKO-F:ANY:0:1,RARG
EQUAL? RARG,M-SUBJ /FALSE
EQUAL? RARG,M-WINNER \?CCL5
FSET? MARIKO,DEAD /?CTR7
FSET? MARIKO,RMUNGBIT \?CCL8
?CTR7: PRINTR "Mariko can no longer respond."
?CCL8: EQUAL? PRSA,V?WHO,V?TELL-ME-ABOUT \?CCL12
EQUAL? PRSO,YOU,MARIKO \?CCL12
PRINTR """I am Lady Toda Mariko-noh-Buntaro. The priests know me as Lady Maria, as I am Christian."""
?CCL12: EQUAL? PRSA,V?WHAT,V?TELL-ME-ABOUT \?CCL16
EQUAL? PRSO,PROPHECY \?CCL16
EQUAL? HERE,MAPLE-GLADE \?CND19
PRINTI "Mariko asks permission of Toranaga, who nods. "
?CND19: PRINTI """Six years ago a Chinese embassy came to the Taiko to try to settle the Japanese-Chinese-Korean war. A famous astrologer was among them. He forecast many things which have since come true. The Taiko asked him to predict the deaths of certain of his counselors. The astrologer said that Toranaga would die by the sword when he was middle-aged. Ishido, the famous conqueror of Korea, would die undiseased, an old man, his feet firm in the earth, the most famous man of his day. The Taiko himself would die in his bed, respected, revered, of old age, leaving a healthy son to follow him. At this time Yaemon had not yet been born, so that part of the prophecy has already come to pass."""
CRLF
CALL2 SCORE-OBJECT,PROPHECY
RSTACK
?CCL16: EQUAL? SCENE,S-MARIKO \?CCL22
EQUAL? PRSA,V?KONNICHI-WA \?PRD27
EQUAL? PRSO,ROOMS /?CTR24
?PRD27: EQUAL? PRSA,V?NIHON-GO-GA \?CCL25
EQUAL? PRSO,HANASE-MASEN \?CCL25
?CTR24: FSET? MAPLE-GLADE,SCOREBIT \FALSE
SET 'WINNER,PLAYER
ICALL PERFORM,V?KONNICHI-WA,MARIKO
RTRUE
?CCL25: EQUAL? QCONTEXT,MARIKO \?CCL36
EQUAL? PRSA,V?LEARN,V?TRAIN,V?TEACH \?CCL36
CALL1 PAST-TENSE?
ZERO? STACK /?CCL36
EQUAL? PRSS,DOMINGO \?PRD44
EQUAL? PRSO,ME /?CTR41
?PRD44: EQUAL? PRSO,PRISON,DOMINGO \?CCL42
?CTR41: CALL1 HOW-I-LEARNED
RSTACK
?CCL42: PRINTR "She doesn't seem to believe you."
?CCL36: EQUAL? PRSA,V?TEACH \?CCL48
EQUAL? PRSO,ME \?CCL48
EQUAL? PRSI,JAPANESE \?CCL48
PRINTR """If my master wishes,"" she answers, turning to Toranaga. They converse for a while. ""My Master says that only a few bar -- foreigners have been able to learn our language, and these are all priests. But he would like to be able to talk to you directly, without the need for an interpreter. He will consider this request."""
?CCL48: EQUAL? PRSA,V?WHO,V?TELL-ME-ABOUT \?CCL53
EQUAL? PRSO,YAEMON \?CCL53
ICALL NEW-SDESC,YAEMON,STR?257
PRINTR """This is the Heir, the only son of the Taiko. His name is Yaemon."""
?CCL53: EQUAL? PRSA,V?WHO,V?TELL-ME-ABOUT \?CCL57
EQUAL? PRSO,YOU,MARIKO \?CCL57
PRINTR """My name is Toda Mariko noh-Buntaro. I am a 'senhora,' not a 'senhorita,' if you please."""
?CCL57: CALL1 QUESTION-VERB?
ZERO? STACK \?CTR60
EQUAL? PRSA,V?ASK-ABOUT,V?TELL-ME-ABOUT \?CCL61
?CTR60: PRINTI """Lord Toranaga has instructed me to say that "
EQUAL? LG-CREWMEN,PRSO,PRSI \?CCL66
PRINTR "your crewmen are being treated well. They will given a place to live, and to learn to be civilized."""
?CCL66: PRINTR "you will please confine yourself to answering questions only, for the moment."" Then she says, ""I'm sure, if you are patient, Pilot-Captain B'ackthon, that you'll be given an opportunity to ask anything you wish later."""
?CCL61: CALL1 JAPANESE-VERB?
ZERO? STACK /?CCL68
PRINTR """If you will excuse me, senhor, my Master orders me to say your accent is a little wrong."" She repeats the word several times slowly, showing you how to say it."
?CCL68: CALL1 I-DONT-UNDERSTAND
RSTACK
?CCL22: EQUAL? PRSA,V?THOU \?CCL70
CALL1 I-LOVE-YOU
RSTACK
?CCL70: EQUAL? PRSA,V?TELL-ME-ABOUT \?CCL72
EQUAL? PRSO,SUICIDE \?CCL75
PRINTR """If the shame is too great, or if our liege Lord commands, we take our lives. I have been trained to do so, as have all samurai."""
?CCL75: EQUAL? PRSO,KIYAMA \?CCL77
PRINTI """Lord Kiyama is a member of the Council of Regents, and the most powerful of the Christian daimyos."""
CRLF
JUMP ?CND73
?CCL77: EQUAL? SCENE,S-NINJA \?CND73
EQUAL? PRSO,YABU \?CCL81
PRINTI """He is very angry with me for confronting Lord Ishido, and even angrier that I did not go through with my seppuku, but that was my "
ICALL2 PRINTUNDER,STR?258
PRINTR ", Anjin-san."""
?CCL81: EQUAL? PRSO,ACHIKO \?CND73
PRINTR """Her grandfather-in-law, Lord Kiyama, opposes Lord Toranaga. He has disowned her for her presumption in joining us."""
?CND73: PRINTR """I cannot tell you anything more, Anjin-san. So sorry."""
?CCL72: EQUAL? PRSA,V?STOP,V?KINJIRU \?CCL84
EQUAL? SCENE,S-SEPPUKU \?CCL87
ZERO? MARIKO-WON-FLAG /?CCL90
PRINTR "She doesn't respond, or even notice you. She's almost in a trance."
?CCL90: PRINTI """No, Anjin-san. I must obey the orders of Lord Toranaga. If I cannot, I must commit "
ICALL2 PRINTUNDER,STR?259
PRINTR " to expunge the shame. Only if Lord Ishido relents and allows me to obey my liege-lord may I stop."""
?CCL87: CALL1 I-DONT-UNDERSTAND
RSTACK
?CCL84: EQUAL? PRSA,V?FIND \?CCL92
EQUAL? PRSO,SECRET-ROOM-DOOR \?CCL92
PRINTR """I don't know about any secret doors,"" she says, puzzled."
?CCL92: EQUAL? PRSA,V?FIND \?CCL96
EQUAL? PRSO,SECRET-REDOUBT-DOOR \?CCL96
PRINTR """It's in my room, Anjin-san!"""
?CCL96: EQUAL? PRSA,V?FOLLOW,V?LEAVE,V?ISOGI /?CTR99
EQUAL? PRSA,V?WALK \?CCL100
EQUAL? P-WALK-DIR,P?EAST,P?NORTH,P?OUT \?CCL100
?CTR99: EQUAL? SCENE,S-NINJA \?CCL107
CALL1 MARIKO-FOLLOW-ME
RSTACK
?CCL107: CALL1 I-DONT-UNDERSTAND
RSTACK
?CCL100: EQUAL? PRSA,V?LOVE,V?THOU \?CCL109
CALL1 I-LOVE-YOU
RSTACK
?CCL109: EQUAL? PRSA,V?YES,V?HAI \?CCL111
EQUAL? HERE,WAREHOUSE \?CCL114
SET 'QCONTEXT,FALSE-VALUE
MOVE LARGE-KNIFE,BLACKTHORNE
MOVE SMALL-KNIFE,BLACKTHORNE
PRINTR """Good!"" she responds. She turns to Toranaga. ""My Master says you should be armed."" She hands you a knife. ""Better, give me two,"" you respond, and Toranaga agrees. You slide the large one into your sash and tie the small one, haft downwards, to your forearm. ""My Master asks, do all Englishmen carry knives secretly in their sleeves like that?""
""No, but most seamen do."" Now you are ready. Mariko stares at the wharf, then commits herself.
""Follow me!"""
?CCL114: EQUAL? HERE,WHARF,MAIN-DECK-2 \?CCL116
EQUAL? QCONTEXT,MARIKO \?CCL116
SET 'QCONTEXT,FALSE-VALUE
PRINTR """That is good,"" she replies."
?CCL116: EQUAL? HERE,PRIVATE-QUARTERS \FALSE
ZERO? MARIKO-PLAN? /FALSE
EQUAL? QCONTEXT,MARIKO \FALSE
INC 'MARIKO-PLAN?
EQUAL? MARIKO-PLAN?,2 \?CCL126
SET 'QCONTEXT,MARIKO
ICALL2 THIS-IS-IT,YABU
PRINTR """Do you think he plans to betray us?"""
?CCL126: GRTR? MARIKO-PLAN?,2 \FALSE
SET 'QCONTEXT,FALSE-VALUE
FSET? CELLARS,SCOREBIT \?CCL131
PRINT STR?260
CRLF
RTRUE
?CCL131: PRINT STR?261
CRLF
RTRUE
?CCL111: EQUAL? PRSA,V?NO,V?IYE \?CCL133
EQUAL? HERE,WAREHOUSE \?CCL136
PRINTR """If I am in danger, it is no matter, I am samurai."""
?CCL136: EQUAL? HERE,WHARF,MAIN-DECK-2 \?CCL138
EQUAL? QCONTEXT,MARIKO \?CCL138
SET 'QCONTEXT,FALSE-VALUE
PRINTR """Then the danger is greater, but we must continue,"" she replies."
?CCL138: EQUAL? HERE,PRIVATE-QUARTERS \FALSE
ZERO? MARIKO-PLAN? /FALSE
EQUAL? QCONTEXT,MARIKO \FALSE
INC 'MARIKO-PLAN?
EQUAL? MARIKO-PLAN?,2 \?CCL148
SET 'QCONTEXT,MARIKO
PRINT STR?262
CRLF
RTRUE
?CCL148: GRTR? MARIKO-PLAN?,2 \FALSE
SET 'QCONTEXT,FALSE-VALUE
PRINTR """We're safe now."""
?CCL133: EQUAL? PRSA,V?WALK,V?CLIMB-UP,V?CLIMB-FOO \?CCL152
IN? MARIKO,SIDE-FISSURE \?CCL152
PRINTR """I can't make it, Anjin-san! I'm sliding!"""
?CCL152: EQUAL? PRSA,V?HOLD-ON \?PRD160
EQUAL? PRSO,ROOMS,ME /?PRD158
?PRD160: EQUAL? PRSA,V?TAKE,V?REACH-FOR \?CCL156
EQUAL? PRSO,ME \?CCL156
?PRD158: IN? MARIKO,SIDE-FISSURE \?CCL156
IN? PLAYER,SIDE-FISSURE \?CCL167
PRINTR """I'm trying, Anjin-san, but the mud is slippery!"""
?CCL167: PRINTR """I can't reach you, Anjin-san!"""
?CCL156: EQUAL? PRSA,V?BATHE \?CCL169
EQUAL? PRSO,ME \?CCL169
EQUAL? SCENE,S-JOURNEY \?CCL174
IN? BLACKTHORNE,YOKOSE-BATHTUB \?CCL177
SET 'WINNER,BLACKTHORNE
ICALL PERFORM,V?BATHE,ME
RTRUE
?CCL177: PRINTR """You aren't in the tub yet, Anjin-san!"""
?CCL174: PRINTR """While you may need a bath, Anjin-san, there are no facilities!"""
?CCL169: EQUAL? PRSA,V?BETRAY \?CCL179
EQUAL? PRSO,YABU \?CCL179
SET 'WINNER,PLAYER
ICALL PERFORM,V?TELL-ABOUT,MARIKO,YABU
RTRUE
?CCL179: CALL1 I-DONT-UNDERSTAND
RSTACK
?CCL5: EQUAL? PRSA,V?EXAMINE \?CCL183
EQUAL? SCENE,S-SEPPUKU \?CCL186
EQUAL? HERE,TEA-HOUSE \?CCL186
CALL1 SEPPUKU-EXAMINE-MARIKO
RSTACK
?CCL186: EQUAL? SCENE,S-NINJA \?CCL190
CALL1 EXAMINE-MARIKO
RSTACK
?CCL190: PRINT STR?263
PRINTR " and if you put both hands around her waist, your fingers would touch. She wears no jewelry of any kind, except silver pins in her hair."
?CCL183: EQUAL? PRSA,V?WHO \?CCL192
PRINTR "Lady Toda Mariko is the wife of Buntaro. She speaks fluent Portuguese and Latin, and is a Christian."
?CCL192: EQUAL? PRSA,V?BE \?CCL194
EQUAL? PRSO,YABU \?CCL194
EQUAL? PRSI,TRAITOR \?CCL194
ICALL PERFORM,V?TELL-ABOUT,MARIKO,YABU
RTRUE
?CCL194: EQUAL? PRSA,V?BLESS \?CCL199
FSET? MARIKO,RMUNGBIT \FALSE
PRINTI "You make the sign of the cross over her and say the sacred Latin words that are necessary, though no sound comes from your mouth. The others watch you. When you are done, you fight to your feet again and stand upright."
CRLF
CALL2 SCORE-OBJECT,MARIKO
RSTACK
?CCL199: EQUAL? PRSA,V?WALK-TO \?CCL204
FSET? MARIKO,RMUNGBIT \FALSE
FSET? BLACKTHORNE,SITTING \FALSE
ICALL1 B-STAND
PRINTR "Painfully you drag yourself closer to her."
?CCL204: EQUAL? PRSA,V?RUB \?CCL211
FSET? MARIKO,RMUNGBIT \?CCL211
ICALL PERFORM,V?EXAMINE,MARIKO
RTRUE
?CCL211: EQUAL? PRSA,V?HELP,V?STOP \?CCL215
EQUAL? SCENE,S-SEPPUKU,S-NINJA,S-QUAKE \FALSE
ICALL PERFORM,V?TAKE,MARIKO
RTRUE
?CCL215: EQUAL? PRSA,V?TAKE \?CCL220
EQUAL? PRSO,MARIKO \?CCL220
EQUAL? SCENE,S-NINJA \?CCL225
CALL1 NINJA-TAKE-MARIKO
RSTACK
?CCL225: EQUAL? SCENE,S-SEPPUKU \FALSE
CALL1 SEPPUKU-TAKE-MARIKO
RSTACK
?CCL220: EQUAL? SCENE,S-SEPPUKU \?CCL229
EQUAL? HERE,FORECOURT \?CCL229
ZERO? MARIKO-WON-FLAG \?CCL229
CALL1 PASSIVE-VERB?
ZERO? STACK /?CTR234
CALL1 SPEAKING-VERB?
ZERO? STACK \?CTR234
CALL1 JAPANESE-VERB?
ZERO? STACK /?CCL235
?CTR234: EQUAL? PRSA,V?TELL \?CND239
ICALL1 END-QUOTE
?CND239: CALL JIGS-UP?,J-SEPPUKU,STR?264
ZERO? STACK /TRUE
PRINTI "You interrupt the ceremony."
CALL1 INTERRUPTED-SEPPUKU
RSTACK
?CCL235: EQUAL? PRSA,V?BOW \FALSE
PRINTR "You bow to Mariko in respect for her courage."
?CCL229: EQUAL? PRSA,V?KISS,V?FUCK,V?LOVE \?CCL247
FSET? MARIKO,DEAD /?CTR249
FSET? MARIKO,RMUNGBIT \?CCL250
?CTR249: PRINTR "You kiss her lightly on the lips."
?CCL250: EQUAL? HERE,TEA-HOUSE \?CCL254
PRINTR "Mariko kisses you lightly and sadly."
?CCL254: GRTR? SCENE,S-ESCAPE /?CCL256
PRINTR "She refuses your advances."
?CCL256: PRINTR """This is not the time or the place, Anjin-san!"" she replies in Latin, ""though truly I love thee."""
?CCL247: EQUAL? PRSA,V?TELL-ABOUT \?CCL258
EQUAL? PRSO,MARIKO \?CCL258
EQUAL? SCENE,S-MARIKO \?CCL263
CALL1 MARIKO-TELL-MARIKO-ABOUT
RSTACK
?CCL263: EQUAL? PRSI,YABU,LG-YABU,LG-NINJA \?CCL265
FSET? CELLARS,SCOREBIT /?CCL265
SET 'MARIKO-PLAN?,3
SET 'QCONTEXT,FALSE-VALUE
PRINT STR?261
CRLF
RTRUE
?CCL265: PRINTI "Mariko seems very interested as you tell her about "
ICALL1 THE-PRINT-PRSI
PRINTR ", watching you with demurely lowered eyes."
?CCL258: EQUAL? PRSA,V?SHOOT \?CCL269
EQUAL? PRSO,PISTOL \?CCL269
EQUAL? PRSI,MARIKO \?CCL269
IN? NINJA,HERE \?CCL269
CALL JIGS-UP?,J-KILL-MARIKO,STR?265
ZERO? STACK /TRUE
CALL2 JIGS-UP,STR?266
RSTACK
?CCL269: EQUAL? PRSA,V?FOLLOW \?CCL278
IN? MARIKO,HERE /?CCL278
EQUAL? SCENE,S-SEPPUKU \?CCL283
EQUAL? HERE,TEA-HOUSE \?CCL286
CALL2 DO-WALK,P?OUT
RSTACK
?CCL286: EQUAL? HERE,FORMAL-GARDEN \FALSE
CALL2 DO-WALK,P?EAST
RSTACK
?CCL283: EQUAL? SCENE,S-NINJA \FALSE
IN? MARIKO,HERE /FALSE
LOC MARIKO
CALL2 NEXT-ROOM?,STACK
ZERO? STACK \FALSE
PRINTR "You've lost her! You can only assume the ninja are taking her to their secret door."
?CCL278: EQUAL? PRSA,V?PUSH \FALSE
EQUAL? PRSO,MARIKO \FALSE
EQUAL? PRSI,INTDIR \FALSE
SET 'WINNER,MARIKO
ICALL PERFORM,V?WALK,P-DIRECTION
SET 'WINNER,PLAYER
RTRUE
.FUNCT INTERRUPTED-SEPPUKU:ANY:0:0
CALL2 JIGS-UP,STR?267
RSTACK
.FUNCT I-LOVE-YOU:ANY:0:0
PRINTR """Thou,"" she replies in Latin, your private language of love. ""I love thee!"""