forked from the-infocom-files/witness
-
Notifications
You must be signed in to change notification settings - Fork 0
/
people.zil
1770 lines (1704 loc) · 62.8 KB
/
people.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
"PEOPLE for WITNESS
Copyright (C) 1983 Infocom, Inc. All rights reserved."
"Necessary Flags"
<GLOBAL LOAD-MAX 100>
<GLOBAL LOAD-ALLOWED 100>
<OBJECT HIM-HER
(IN GLOBAL-OBJECTS)
(SYNONYM HE SHE HIM HER)
(DESC "him or her")
(FLAGS NDESCBIT)>
<OBJECT YOU
(IN GLOBAL-OBJECTS)
(SYNONYM YOURSELF HIMSELF HERSELF)
(DESC "himself or herself")
(FLAGS NDESCBIT)
(ACTION YOU-F)>
<ROUTINE YOU-F ()
<COND (<AND <VERB? ASK-ABOUT> <IOBJ? YOU>>
<PERFORM ,V?ASK-ABOUT ,PRSO ,PRSO>
<RTRUE>)
(<AND <VERB? TELL-ME> <IOBJ? YOU>>
<PERFORM ,V?TELL-ME ,PRSO ,WINNER>
<RTRUE>)>>
<OBJECT OBJECT-PAIR
(DESC "such things")
(ACTION OBJECT-PAIR-F)>
<ROUTINE OBJECT-PAIR-F ("AUX" P1 P2)
<COND (<L? 2 <GET ,P-PRSO ,P-MATCHLEN>>
<COND (<VERB? ARREST>
<TELL
"You think it over. You realize that this arrest is pretty far-fetched.
It could only mean humiliation for you." CR>)
(<VERB? COMPARE>
<TELL
"That's too many things to compare all at once!" CR>)>
<RTRUE>)
(<AND <VERB? ARREST> <NOT <FSET? ,CORPSE ,INVISIBLE>>>
<COND (<IN? <SET P1 <1 ,P-PRSO>> ,GLOBAL-OBJECTS>
<SET P1 <GET ,CHARACTER-TABLE <GETP .P1 ,P?CHARACTER>>>)>
<COND (<IN? <SET P2 <2 ,P-PRSO>> ,GLOBAL-OBJECTS>
<SET P2 <GET ,CHARACTER-TABLE <GETP .P2 ,P?CHARACTER>>>)>
<ARREST .P1 .P2>)
(<VERB? COMPARE>
<PERFORM ,PRSA <1 ,P-PRSO> <2 ,P-PRSO>>
<RTRUE>)>>
"People"
"Constants used as table offsets for each character, including the player:"
<CONSTANT PLAYER-C 0>
<CONSTANT PHONG-C 1>
<CONSTANT LINDER-C 2>
<CONSTANT STILES-C 3>
<CONSTANT MONICA-C 4>
<CONSTANT CAT-C 5>
<CONSTANT CHARACTER-MAX 5>
<GLOBAL CHARACTER-TABLE
<PTABLE PLAYER PHONG LINDER STILES MONICA CAT>>
<GLOBAL GLOBAL-CHARACTER-TABLE
<PTABLE PLAYER GLOBAL-PHONG GLOBAL-LINDER GLOBAL-STILES GLOBAL-MONICA
GLOBAL-CAT>>
<OBJECT PLAYER
(IN DRIVEWAY-GATE)
(DESC "detective")
(SYNONYM I ME MYSELF DETECTIVE)
(ACTION PLAYER-F)
(FLAGS NDESCBIT TRANSBIT)
(CHARACTER 0)>
<GLOBAL PLAYER-HIDING <>>
<ROUTINE PLAYER-F ()
<COND (<AND <VERB? SHOOT> <DOBJ? PLAYER>>
<TELL
"What, and let down the Police Department track-and-field team?!" CR>)
(<AND <NOT ,PLAYER-HIDING> <IN? <LOC ,PLAYER> ,ROOMS>>
<RFALSE>)
(<NOT ,PRSO>
<RFALSE>)
(<VERB? WALK>
<TOO-BAD-SIT-HIDE>)
(<AND ,PLAYER-HIDING
<VERB? $CALL TELL HELLO GOODBYE ASK-ABOUT ASK-FOR>>
<TOO-BAD-SIT-HIDE>)
(<NOT <STANDING-VERB?>>
<RFALSE>)
(<NOT <IN? ,PRSO ,WINNER>>
<COND (<AND <VERB? EXAMINE>
<NOT <==? ,P-ADVERB ,W?CAREFULLY>>
<OR ;<FSET? ,PRSO ,PERSON>
<DOBJ? CLOCK>
<==? ,OFFICE <LOC ,PRSO>>>>
<TELL
"You'd do a much better job if you stood up, but let's see..." CR>
<RFALSE>)
(<AND <IN? ,PLAYER ,CARVED-CHAIR>
<VERB? FIND PUSH RING>
<DOBJ? BUTTON OFFICE-BUTTON>>
<RFALSE>)
(<AND <VERB? TAKE> <DOBJ? HINT>>
<RFALSE>)
(T
<TOO-BAD-SIT-HIDE>)>)
(<NOT ,PRSI> <RFALSE>)
(<IN? ,PRSI ,WINNER> <RFALSE>)
(T
<TOO-BAD-SIT-HIDE>)>>
<ROUTINE STANDING-VERB? ()
<COND (<VERB? ATTACK BRUSH ;BURN CLOSE DRINK EAT ENTER EXAMINE
FINGERPRINT FOLLOW HANDCUFF HIDE-BEHIND
KICK KILL KISS KNOCK LOCK
LOOK-BEHIND LOOK-INSIDE LOOK-OUTSIDE LOOK-UNDER MAKE MOVE
MUNG OPEN PHONE PICK ;PLAY PUSH PUT PUT-UNDER
RAISE RAPE READ REVIVE RING RUB RUB-OVER
SEARCH SEARCH-OBJECT-FOR SIT SLAP SMELL
TAKE TAKEOUT THROUGH TIE-TO TIE-WITH
UNLOCK UNTIE USE WALK WALK-AROUND WALK-TO>
T)>>
<ROUTINE TOO-BAD-SIT-HIDE ()
<SETG P-CONT <>>
<COND (<NOT <IN? <LOC ,PLAYER> ,ROOMS>>
<COND (<VERB? SIT> <TELL "You're already sitting down." CR>)
(T <TELL
"You'd do a much better job if you stood up." CR>)>)
(,PLAYER-HIDING
<COND (<VERB? HIDE-BEHIND> <TELL "You're already hiding."CR>)
(T <TELL
"You can't do that while you're hiding." CR>)>)>>
<OBJECT PHONG
(IN KITCHEN)
(DESC "Mr. Phong")
(ADJECTIVE MR MISTER HUI ASIAN ORIENTAL)
(SYNONYM PHONG MAN)
(ACTION PHONG-F)
(DESCFCN PHONG-F)
(XDESC "Asian man")
(TEXT
"Phong's straight black hair and folded eyelids make him obviously
Asian, but no definite nationality. His open, almost gentle face holds a
quick smile and eyes that seem to miss nothing. He carries his stout
body lightly, but you can see great strength under his light shirt and
dark trousers. You guess his age at about fifty, but who knows how many
lifetimes of experience he carries?")
(FLAGS PERSON ;OPENBIT)
(CAPACITY 40)
(CHARACTER 1)>
<OBJECT PHONG-SHOES
(DESC "pair of Phong's shoes")
(IN PHONG)
(ADJECTIVE PHONG PHONGS ;PHONG\'S HIS)
(SYNONYM PAIR SHOE SHOES)
(FLAGS NDESCBIT)
(ACTION RANDOM-SHOES-F)>
<OBJECT GLOBAL-PHONG
(DESC "Mr. Phong")
(IN GLOBAL-OBJECTS)
(SYNONYM PHONG)
(ADJECTIVE MR MISTER HUI)
(FLAGS PERSON)
(ACTION GLOBAL-PERSON)
(CHARACTER 1)>
<GLOBAL PHONG-HAS-MOTIVE <>>
<GLOBAL PHONG-ADMITTED-HELPING? <>>
<ROUTINE PHONG-F ("OPTIONAL" (ARG <>) "AUX" OBJ (L <LOC ,PHONG>))
<COND (<==? .ARG ,M-OBJDESC>
<COND (<IN-MOTION? ,PHONG> <RTRUE>)
(<FSET? ,PHONG ,TOUCHBIT>
<COND (<AND <NOT <FSET? ,LINDER ,TOUCHBIT>>
<==? ,HERE <LOC ,LINDER>>>
<TELL CR
"\"Excuse me, sir,\" says Phong, \"but the detective has arrived.\"" CR CR>)
(<==? .L ,BUTLER-ROOM>
<TELL "Phong is lying on the bed, ">
<COND (<IN? ,RECURSIVE-BOOK ,PHONG>
<TELL "reading a book." CR>)
(T <TELL "meditating." CR>)>)
(<AND <==? .L ,KITCHEN> <L? ,PRESENT-TIME 710>>
<TELL "Phong is here, "
<GET ,KITCHEN-ACTIVITIES
<+ 1 </ <- ,PRESENT-TIME 480> 60>>> "." CR>)
(<AND <==? .L ,OFFICE> <IN? ,CORPSE ,OFFICE>
,PHONG-SEEN-CORPSE?>
<TELL "Phong is gazing out the window." CR>)
(<==? .L ,ENTRY>
<TELL "Phong is waiting for you to do something." CR>)
(T <TELL "Phong is here, "
<PICK-ONE ,PHONG-HERE> "." CR>)>)
(T
<FSET ,PHONG ,TOUCHBIT>
<TELL <GETP ,PHONG ,P?TEXT> CR>)>
<RTRUE>)
(<==? ,WINNER ,PHONG>
<COND (<AND <VERB? FIND>
<DOBJ? PHONG-KEYS>>
<SETG WINNER ,PLAYER>
<PERFORM ,V?ASK-ABOUT ,PHONG ,PRSO>
<RTRUE>)
(<VERB? FIND THANKS> <RFALSE>)
(<VERB? SLAP>
<TELL "\"No, I must be careful about that.\"" CR>)
(<OR <AND <VERB? GIVE>
<DOBJ? PHONG-KEYS GENERIC-KEY GENERIC-GUN OUTSIDE-GUN>>
<AND <VERB? SGIVE>
<IOBJ? PHONG-KEYS GENERIC-KEY GENERIC-GUN OUTSIDE-GUN>>>
<TAKE-PHONG-KEYS>)
(<VERB? OPEN CLOSE LOCK UNLOCK>
<COND (<FSET? ,CORPSE ,INVISIBLE>
<TELL
"\"You'll have to ask Mr. Linder about that.\""CR>)
(<DOBJ? CLOCK ;GLOBAL-CLOCK>
<TELL "\"I don't have the key for the clock.\"" CR>)
(<AND <VERB? OPEN UNLOCK> <IN? ,PHONG-KEYS ,PHONG>>
<FCLEAR ,PRSO ,LOCKED>
<COND (<VERB? OPEN> <FSET ,PRSO ,OPENBIT>)>
<TELL "\"Okey.\"" CR>)
(<AND <VERB? CLOSE LOCK> <IN? ,PHONG-KEYS ,PHONG>>
<FCLEAR ,PRSO ,OPENBIT>
<COND (<VERB? LOCK> <FSET ,PRSO ,LOCKED>)>
<TELL "\"Okey.\"" CR>)>)
(<COM-CHECK ,PHONG> <RTRUE>)
(T <TELL <PICK-ONE ,WHY-ME> CR>)>)
(<VERB? ACCUSE>
<COND (<NOT ,PHONG-SEEN-CORPSE?>
<TELL
"\"What are you talking about?\" He looks frightened." CR>)
(<AND ,SIDE-FOOTPRINTS-MATCHED <FSET? ,GUN-RECEIPT ,TOUCHBIT>>
<SETG PHONG-ADMITTED-HELPING? T>
<DISCRETION ,PHONG ,MONICA>
<TELL
"\"It's true I helped set you up for deception with the guns. But only
because Mr. Linder asked me to! He said he wanted to frighten Stiles.
He wasn't supposed to be killed! Monica must have muffed it. Or else ...
could she ...?\" He looks confused and angry." CR>)
(,SIDE-FOOTPRINTS-MATCHED
<TELL
"\"I don't see why you're accusing me!" " Sure, I was in the yard, because "
"I thought I heard a
noise outside and went out to investigate."
" It's part of my job, you know.\""
CR>)
(<FSET? ,GUN-RECEIPT ,TOUCHBIT>
<DISCRETION ,PHONG ,MONICA>
<TELL
"\"I don't see why you're accusing me!" " You should ask Monica about those
guns.\"" CR>)
(T <TELL "\"You haven't a clue, and you know it!\"" CR>)>)
(<OR <AND ,PRSI <SET OBJ ,PRSI><VERB? ASK-ABOUT CONFRONT><DOBJ? PHONG>>
<AND ,PRSO <IN? ,PRSO ,GLOBAL-OBJECTS> <SET OBJ ,PRSO>
<VERB? FIND WHAT>>>
<COND (<NOT <GRAB-ATTENTION ,PHONG>> <RTRUE>)>
<SAID-TO ,PHONG>
<COND (<EQUAL? .OBJ ,BUTTON>
<TELL "\"That's my butler's button, of course.\"" CR>)
(<EQUAL? .OBJ ,GLOBAL-CAN-OF-WORMS>
<TELL
"\"I didn't think you had any interest in gardening! Those little babies
are the best thing for the clay soil around here. You can just order
them by mail and open them up when they arrive.\"" CR>)
(<EQUAL? .OBJ ,GENERIC-GUN>
<TELL "\"I don't have one, if that's what you mean.\"" CR>)
(<EQUAL? .OBJ ,BLACK-WIRE>
<TELL
"\"Oh, Monica wired the house for butler's buttons.\"" CR>)
(<EQUAL? .OBJ ,WHITE-WIRE>
<TELL
"\"Oh, Monica wired the windows with burglar alarms.\"" CR>)
(<EQUAL? .OBJ ,GENERIC-GREEN-WIRE ,GENERIC-WIRE>
<TELL
"\"There's wire all over the house. You'll have to ask Monica.\"" CR>)
(<EQUAL? .OBJ ,GENERIC-KEY ,PHONG-KEYS>
<COND (<IN? ,PHONG-KEYS ,PHONG>
<TELL
"\"I have the keys for all the doors in the house.\"" CR>)
(T
<TELL
"\"Don't you remember? I gave you all the keys I have.\"" CR>)>)
(<EQUAL? .OBJ ,CLOCK-KEY>
<COND (<IN? ,CLOCK-KEY ,PLAYER>
<TELL
"\"That looks like the key to Mr. Linder's clock.\"" CR>)
(T <TELL
"\"There's only one key to Mr. Linder's clock. I think he keeps it in
the office somewhere.\"" CR>)>)
(<EQUAL? .OBJ ,GLOBAL-LINDER ,LINDER ,CORPSE>
<COND (<IN? ,LINDER ,HERE>
<TELL
"\"That man is a marvel. Always seems to have several deals going at
once. I don't know how he does it.\" Linder beams with self-pride." CR>)
(,PHONG-SEEN-CORPSE?
<SETG PHONG-HAS-MOTIVE ,CORPSE>
<DISCRETION ,PHONG ,MONICA>
<TELL
"\"Frankly, Detective, I can't say I" "'m sorry he's dead"
". He always promised me wealth here in America, but I've never seen it.
I could " "have managed" " the
Asian branch of his business if he'd let me. If I had any money, I'd quit
on the spot and return home.\"" CR>)
(T
<SETG PHONG-HAS-MOTIVE ,LINDER>
<DISCRETION ,PHONG ,MONICA>
<TELL
"\"Frankly, Detective, I can't say I" " like him much"
". He always promised me wealth here in America, but I've never seen it.
I could " "manage" " the
Asian branch of his business if he'd let me. If I had any money, I'd quit
on the spot and return home.\"" CR>)>)
(<EQUAL? .OBJ ,GLOBAL-MONICA ,MONICA>
<DISCRETION ,PHONG ,MONICA>
<TELL
"\"She's an intelligent girl. Mr. Linder is very proud of her, but I
think she acts too much like a man.">
<COND (,PHONG-SEEN-CORPSE?
<TELL " She really muffed it this time.">)>
<TELL "\"" CR>)
(<EQUAL? .OBJ ,GLOBAL-AFFAIR ,GLOBAL-MRS-LINDER>
<DISCRETION ,PHONG ,LINDER>
<TELL
"\"If only Mr. Linder had been home more, he could have kept her in
line.\"" CR>)
(<EQUAL? .OBJ ,GLOBAL-PHONG ,PHONG>
;<DISCRETION ,PHONG ,LINDER>
<SETG PHONG-HAS-MOTIVE ,PHONG>
<TELL
"\"Mr. Linder brought me here from Asia, to help manage his business and
run his house. I guess I do more running than managing. If I can help you,
just push the button anywhere in the house.\"" CR>)
(<AND ,SHOT-FIRED <EQUAL? .OBJ ,GLOBAL-SHOT>>
<TELL
"\"I was in the kitchen and heard a sound like a gunshot, so I ran to the
office and found you and Mr. Linder. You were closer to it than I was.\"" CR>)
(<EQUAL? .OBJ ,GLOBAL-STILES ,STILES>
<DISCRETION ,PHONG ,LINDER>
<TELL
"\"He used to come around here now and then, when Mr. Linder was away. I
never thought much about it until the fighting between Mr. and Mrs. got
bad, just before Mrs. Linder passed on.\" He pauses. \"I think Mr. Linder
has been calling him on the telephone a lot lately.\"" CR>)
(<EQUAL? .OBJ ,GLOBAL-SUICIDE>
<SETG MONICA-HAS-MOTIVE ,PHONG>
<DISCRETION ,PHONG ,LINDER ,MONICA>
<TELL
"\"Everyone was sad about that. Mr. Linder just threw himself into his
work, as usual. Monica was terribly depressed, didn't even come out of
her room for a long time. I doubt she'll ever get over it.\"" CR>)
(<EQUAL? .OBJ ,WILL>
<COND (,PHONG-SEEN-CORPSE?
;<SETG PHONG-HAS-MOTIVE ,WILL>
<DISCRETION ,PHONG ,MONICA>
<TELL
"\"Mr. Linder probably kept it in his bank safe. I've never seen it.\"" CR>)
(T <TELL
"\"You'll have to ask Mr. Linder about that.\"" CR>)>)
(<EQUAL? .OBJ ,BROOM>
<TELL
"\"What can I tell you? That's a 'flathead broom,' invented by your
American Shakers, I believe.\"" CR>)
(<AND <EQUAL? .OBJ ,DOORBELL> ,PHONG-SEEN-CORPSE?>
<TELL
"He seems surprised. \"Uh, that was just some door-to-door salesman.\"" CR>)
(<EQUAL? .OBJ ,GUN-RECEIPT>
<DISCRETION ,PHONG ,MONICA>
<TELL
"\"Yes, I think Monica bought those, using some other name.\"" CR>)
(<EQUAL? .OBJ ,MATCHBOOK>
<TELL
"\"I've heard Mr. Linder mention that restaurant." " But I don't recognize
the phone number.\"" CR>)
(<EQUAL? .OBJ ,BRASS-LANTERN>
<TELL
"\"I've heard Mr. Linder mention that restaurant." "\"" CR>)
(<EQUAL? .OBJ ,MEDICAL-REPORT ,TUMOR>
<TELL
"Phong looks surprised but not alarmed. \"This is the first I've
heard of this.\"" CR>)
(<EQUAL? .OBJ ,MUDDY-SHOES>
<SETG SIDE-FOOTPRINTS-MATCHED T>
<TELL
"\"Those are my gardening boots. They're muddy because, while you were
in the office, " "I thought I heard a
noise outside and went out to investigate." "\"" CR>)
(<OR <EQUAL? .OBJ ,OFFICE-BUTTON ,CLOCK>
<EQUAL? .OBJ ,POWDER ,CLOCK-POWDER>>
<COND (,PLAYER-PUSHED-BUTTON
<SETG PHONG-ADMITTED-HELPING? T>
<DISCRETION ,PHONG ,MONICA>
<TELL
"\"I might as well tell you: Mr. Linder concocted this scheme to frighten
Stiles, and he got Monica and me to help him. But he was supposed to be
only wounded, not killed!\"" CR>
<RTRUE>)>
<COND (,PHONG-SEEN-CORPSE?
<TELL "Phong seems shaken, but all he says is, ">)>
<COND (<EQUAL? .OBJ ,OFFICE-BUTTON>
;<OR ,BUTTON-FIXED <NOT ,SHOT-FIRED>>
<TELL
"\"That's my butler's button, of course.\"" CR>)
(<EQUAL? .OBJ ,CLOCK>
;<OR ,BUTTON-FIXED <NOT ,SHOT-FIRED>>
<TELL
"\"Mr. Linder has a certain fondness for elaborate things like that.\"" CR>)
(T
<TELL
"\"If it's dust you're after, I plead guilty to plenty of it.\"" CR>)>)
(<EQUAL? .OBJ ,PIECE-OF-WIRE ,CLOCK-WIRES ,PIECE-OF-PUTTY>
<TELL "\"Oh, I guess that's part of the burglar alarm.\"" CR>)
(<EQUAL? .OBJ ,RECURSIVE-BOOK>
<TELL
"\"It's a mystery called 'Deadline.' Monica recommended it to me.\"" CR>)
(<EQUAL? .OBJ ,TELEGRAM>
<TELL
"\"Yes, that's the telegram Mr. Linder sent this morning.\"" CR>)
(<EQUAL? .OBJ ,THREAT-NOTE>
<COND (,PHONG-ADMITTED-HELPING?
<TELL
"\"Yes, now you know that Mr. Linder forged that note. Stiles didn't
send it to him.\"" CR>)
(T <TELL
"\"Yes, that's the note that Stiles sent to Mr. Linder.\"" CR>)
(<EQUAL? .OBJ ,GENERIC-CAR ,FILE-CABINET>
<TELL
"\"That has nothing to do with why Mr. Linder asked you here.\"" CR>)
(T <TELL
"\"I'm sorry, Detective, but I can't help you.\"" CR>)>)>)
(<AND <DOBJ? PHONG> <VERB? HELP>>
<TELL
"Phong looks offended. \"I'm quite capable by myself, you know.\"" CR>)
(<AND <DOBJ? PHONG> <VERB? RUB>>
<PHONG-FIGHTS>)
(<AND <DOBJ? PHONG> <VERB? ASK-FOR>>
<FSET ,PHONG ,TOUCHBIT>
<COND (<IOBJ? GENERIC-KEY PHONG-KEYS GENERIC-GUN OUTSIDE-GUN>
<PERFORM ,V?ASK-ABOUT ,PHONG ,PRSI>
<RTRUE>)
(T <RFALSE>)>)
(<AND <DOBJ? PHONG> <VERB? SEARCH SEARCH-OBJECT-FOR>>
<COND (<IN? ,OUTSIDE-GUN ,PHONG>
<PHONG-FIGHTS>)
(<AND <IN? ,PHONG-KEYS ,PHONG>
<OR <VERB? SEARCH>
<AND <VERB? SEARCH-OBJECT-FOR>
<IOBJ? PHONG-KEYS GENERIC-KEY>>>>
<MOVE ,PHONG-KEYS ,PLAYER>
<FCLEAR ,PHONG-KEYS ,NDESCBIT>
<TELL
"You find a " D ,PHONG-KEYS " in Phong's pocket and take it." CR> ;"? better")
(T <RFALSE>)>)
(<AND <DOBJ? PHONG> <VERB? SHOW>>
<PERFORM ,V?ASK-ABOUT ,PRSO ,PRSI>
<RTRUE>)
(<AND <VERB? TAKE>
<DOBJ? PHONG-KEYS GENERIC-KEY GENERIC-GUN OUTSIDE-GUN>
;<IOBJ? PHONG>>
<TAKE-PHONG-KEYS>)
(<AND <VERB? TAKEOUT> ;"TAKE PHONG OUTSIDE"
<IOBJ? OFFICE-BACK-DOOR MONICA-BACK-DOOR LINDER-BACK-DOOR>>
<PHONG-FIGHTS>)
(<VERB? ARREST> <ARREST ,PHONG>)>>
<ROUTINE PHONG-FIGHTS ()
<TELL
"Phong's smile disappears and his body shifts subtly toward a fighting
stance. \"I don't think you really want to try that, Detective.\"" CR>>
<ROUTINE TAKE-PHONG-KEYS ()
<COND (,PHONG-SEEN-CORPSE?
<MOVE ,PHONG-KEYS ,PLAYER>
<FCLEAR ,PHONG-KEYS ,NDESCBIT>
<TELL
"\"Here, you may as well take them. I don't see how Mr. Linder can
object now.\"" CR>)
(T <TELL
"\"I don't think Mr. Linder would like that.\"" CR>)>>
<GLOBAL PHONG-HERE
<PLTABLE "tidying up" ;" as usual"
"looking imperturbable">>
<GLOBAL KITCHEN-ACTIVITIES
<PLTABLE "washing dishes"
"opening a can of worms"
"smoking a cigarette" ;"polishing the silver"
"making pickles">>
<OBJECT LINDER
(IN LIVING-ROOM)
(DESC "Mr. Linder")
(ADJECTIVE MISTER MR FREEMAN YOUR HER TALL)
(SYNONYM LINDER FATHER DAD MAN)
(FLAGS PERSON ;OPENBIT)
(CAPACITY 40)
(ACTION LINDER-F)
(DESCFCN LINDER-F)
(XDESC "tall man")
(TEXT
"Linder stands at least six foot, with a powerful frame but quick actions,
like a cat. His eyeglasses sit on top of his head, where thin strands
of long black hair go here and there, mostly combed backward. His
wide-set hazel eyes size you up quickly from within their pouches in his
ruddy face. He wears a silk peach-colored Mandarin shirt and chocolate
trousers, impeccably tailored and laundered, but sweat gleams on his
high forehead, and he looks as though he hasn't slept much lately.")
(CHARACTER 2)>
<OBJECT LINDER-SHOES
(DESC "pair of Linder's shoes")
(IN LINDER)
(ADJECTIVE LINDER HIS)
(SYNONYM PAIR SHOE SHOES)
(FLAGS NDESCBIT)
(ACTION RANDOM-SHOES-F)>
<OBJECT GLOBAL-LINDER
(IN GLOBAL-OBJECTS)
(DESC "Mr. Linder")
(ADJECTIVE MISTER MR FREEMAN YOUR HER)
(SYNONYM LINDER FATHER DAD)
(FLAGS PERSON)
(ACTION GLOBAL-PERSON)
(CHARACTER 2)>
<ROUTINE LINDER-F ("OPTIONAL" (ARG <>) "AUX" OBJ (L <LOC ,LINDER>))
<COND (<==? .ARG ,M-OBJDESC>
<COND (<IN-MOTION? ,LINDER> <RTRUE>)
(<FSET? ,LINDER ,TOUCHBIT>
<COND (<AND <IN? ,LINDER ,HERE> <IN? ,HERE ,ROOMS>>
<TELL "Linder is pacing back and forth." CR>)
(T <TELL
"Linder is sitting on the " D <LOC ,LINDER> "." CR>)>)
(T
<FSET ,LINDER ,TOUCHBIT>
<TELL <GETP ,LINDER ,P?TEXT> CR>)>
<RTRUE>)
(<==? ,WINNER ,LINDER>
<COND (<AND <VERB? FIND>
<DOBJ? GUN-RECEIPT>>
<SETG WINNER ,PLAYER>
<PERFORM ,V?ASK-ABOUT ,LINDER ,PRSO>
<RTRUE>)
(<VERB? FIND THANKS> <RFALSE>)
(<OR <AND <VERB? GIVE> <DOBJ? DRINK>>
<AND <VERB? SGIVE><IOBJ? DRINK>>>
<RFALSE>)
(<AND <VERB? PUSH> <DOBJ? OFFICE-BUTTON>>
<TELL "\"I don't need Phong yet.\"" CR>)
(<VERB? TIME>
<TELL "Linder looks at his wrist watch and says, \"I have ">
<TIME-PRINT ,PRESENT-TIME>
<TELL "\"" CR>)
(<COM-CHECK ,LINDER> <RTRUE>)
(T <TELL "\"Don't tell me what to do!\"" CR>)>)
(<OR <AND ,PRSO <IN? ,PRSO ,GLOBAL-OBJECTS> <SET OBJ ,PRSO>
<VERB? FIND WHAT>>
<AND ,PRSI <SET OBJ ,PRSI><DOBJ? LINDER><VERB? CONFRONT ASK-ABOUT>>>
<COND (<NOT <GRAB-ATTENTION ,LINDER>> <RTRUE>)>
<SAID-TO ,LINDER>
<COND (<EQUAL? .OBJ ,BUTTON>
<TELL "\"That's the butler's button, of course.\"" CR>)
(<EQUAL? .OBJ ,BLACK-WIRE>
<TELL
"\"Yes, Monica wired " "the whole house for butler's buttons."
" With all modesty, I think she's quite a mechanic.\"" CR>)
(<EQUAL? .OBJ ,WHITE-WIRE>
<TELL
"\"Yes, Monica wired " "all the windows for burglars."
" With all modesty, I think she's quite a mechanic.\"" CR>)
(<EQUAL? .OBJ ,GENERIC-GREEN-WIRE ,GENERIC-WIRE>
<TELL
"\"That's Monica's territory. I don't interfere.\"" CR>)
(<EQUAL? .OBJ ,GLOBAL-CALL>
<TELL
"\"What phone call? I haven't talked with Stiles since my wife's death.
I'm really afraid he wants to do me in.\"" CR>)
(<EQUAL? .OBJ ,GENERIC-KEY>
<TELL "\"Phong keeps the house keys for me.\"" CR>)
(<EQUAL? .OBJ ,GLOBAL-LINDER ,LINDER>
<TELL
"\"You've probably read about me in the papers. In fact they just published
something about me when I won that award. And I've heard lots about you.
That's why I asked you here.\"" CR>)
(<EQUAL? .OBJ ,GLOBAL-AFFAIR ,GLOBAL-MRS-LINDER ,GLOBAL-SUICIDE>
<TELL
"\"It's still too painful for me to talk about, I'm afraid.\"" CR>)
(<EQUAL? .OBJ ,MONEY>
<TELL
"\"Money?! I asked you here to prevent a crime. I hope you're not thinking
of some outlandish fee!\"" CR>)
(<EQUAL? .OBJ ,GLOBAL-MONICA ,MONICA>
<TELL
"\"She's a loyal and intelligent girl. I'm very proud of her.\"" CR>)
(<EQUAL? .OBJ ,GLOBAL-PHONG ,PHONG>
<TELL
"\"He and I go back a long time. Met in Asia, you know. And since I
spend as much time there as here, he takes care of the house for me.
A fine fellow, and I trust him implicitly.\"" CR>)
(<EQUAL? .OBJ ,GLOBAL-STILES ,STILES ,DANGER>
<COND (<FSET? ,THREAT-NOTE ,TOUCHBIT>
<TELL
"\"All I know about Stiles is that he's a writer of some kind, and
sometimes he plays bit parts in films. I've never really met the man.\"" CR>)
(<==? ,HERE ,OFFICE>
<I-LINDER-EXPLAIN>
<RTRUE>)
(T <TELL
"\"I'll explain all that shortly, after I finish this drink.\"" CR>)>)
(<EQUAL? .OBJ ,PLAYER>
<TELL
"\"My friend Klutz, the Police Chief, recommended you to me.\"" CR>)
(<OR <EQUAL? .OBJ ,GENERIC-CAR ,GENERIC-GUN>
<EQUAL? .OBJ ,GLOBAL-PTA ,WILL>>
<TELL
"\"That has nothing to do with why I asked you here.\"" CR>)
(<EQUAL? .OBJ ,BROOM>
<TELL
"\"Oh, Phong must have left it there after cleaning up.\"" CR>)
(<EQUAL? .OBJ ,CARVED-CHAIR>
<TELL
"\"I found that in an obscure but wealthy estate in Asia during the war
and brought it home as booty. Sitting in it makes me feel like an
'Oriental Potentate.'\"" CR>)
(<EQUAL? .OBJ ,CAT>
<TELL
"\"She's Monica's cat. You'd do better to ask her.\"" CR>)
(<EQUAL? .OBJ ,CLOCK>
<TELL
"\"I've always admired elaborate machines, and that's the finest example
I could hope to own.\"" CR>)
(<EQUAL? .OBJ ,GUN-RECEIPT>
<TELL
"\"I didn't ask you here so you could search the house!\"" CR>)
(<EQUAL? .OBJ ,MATCHBOOK ,BRASS-LANTERN>
<DISCRETION ,LINDER ,PHONG>
<TELL
"\"I think Phong goes there sometimes. I've never been there myself.\"
He almost flinched before answering, but now he's as smooth as ever." CR>)
(<EQUAL? .OBJ ,MEDICAL-REPORT ,TUMOR>
<COND (,LINDER-SAW-MEDICAL-REPORT
<TELL
"\"I already told you that I haven't seen it before.\"" CR>)
(T <TELL
"Linder looks surprised and a bit alarmed. \"This is the first I've
heard of this. I don't know why my doctor didn't tell me about it.\"" CR>)>
<SETG LINDER-SAW-MEDICAL-REPORT T>)
(<EQUAL? .OBJ ,OFFICE-BUTTON>
<TELL "\"That's the butler's button, of course.\"" CR>)
(<EQUAL? .OBJ ,PAPERS ,FILE-CABINET>
<TELL
"\"I wish you wouldn't meddle in my files while we're trying to talk.\"" CR>)
(<EQUAL? .OBJ ,PIECE-OF-WIRE ,CLOCK-WIRES ,PIECE-OF-PUTTY>
<TELL "\"Oh, uh, that's part of the burglar alarm.\"" CR>)
(<EQUAL? .OBJ ,TELEGRAM>
<TELL "\"Yes, that's the telegram I sent this morning.\"" CR>)
(<EQUAL? .OBJ ,THREAT-NOTE>
<TELL "\"Yes, that's the note that Stiles sent to me.\"" CR>)
(T <TELL <PICK-ONE ,LINDER-ASKED> CR>)>)
(<AND <DOBJ? LINDER> <VERB? RUB>>
<TELL
"Linder looks bewildered, almost alarmed. \"Whatever do you have in mind?\""
CR>)
(<AND <DOBJ? LINDER> <VERB? SHOW>>
<PERFORM ,V?ASK-ABOUT ,PRSO ,PRSI>
<RTRUE>)
(<AND <DOBJ? LINDER> <VERB? TURN-UP>> ;"SHUT UP"
<TELL "Many have tried, but none has succeeded." CR>)
(<AND <VERB? TAKEOUT> ;"TAKE LINDER OUTSIDE"
<IOBJ? OFFICE-BACK-DOOR MONICA-BACK-DOOR LINDER-BACK-DOOR>>
<TELL "Many have tried, but none has succeeded." CR>)
(<VERB? ARREST> <ARREST ,LINDER>)>>
<GLOBAL LINDER-ASKED
<PLTABLE "\"I can't help you there.\""
"\"That has nothing to do with why I asked you here.\"">>
<OBJECT STILES
(DESC "Mr. Stiles")
(ADJECTIVE MR RALPH)
(SYNONYM STILES MAN VISITOR ;WRITER STRANGER)
(FLAGS PERSON ;OPENBIT)
(CAPACITY 40)
(ACTION STILES-F)
(DESCFCN STILES-F)
(XDESC "visitor")
(TEXT
"The young man looks you straight in the eye but says nothing. He looks like a
gigolo trying to imitate a university professor. His blond wavy hair
almost sparkles, like Pacific surf at night, but his recent panic has
left it dangling to one side. His hot blue eyes reveal his curiosity and
uncertainty about you.")
(CHARACTER 3)>
<OBJECT GLOBAL-STILES
(IN GLOBAL-OBJECTS)
(DESC "Mr. Stiles")
(ADJECTIVE MR RALPH)
(SYNONYM STILES VISITOR WRITER STRANGER)
(FLAGS PERSON)
(ACTION GLOBAL-PERSON)
(CHARACTER 3)>
<ROUTINE STILES-F ("OPTIONAL" (ARG <>) "AUX" OBJ (L <LOC ,STILES>))
<COND (<==? .ARG ,M-OBJDESC>
<COND (<EQUAL? .L ,OFFICE-PORCH ,OFFICE-PATH>
<COND (<IN-MOTION? ,STILES> <RTRUE>)
(<FSET? ,STILES ,TOUCHBIT>
<TELL"Stiles is waiting for you to say something."CR>)
(T <TELL "The visitor is in a hurry." CR>)>)
(<IN-MOTION? ,STILES>
<TELL
"Sgt. Duffy is leading Stiles by the handcuffs." CR>)
(,MET-STILES?
<COND (<L? ,PRESENT-TIME %<* 13 60>>
<TELL
"Stiles is fastened to the davenport, " "looking sullen." CR>)
(T
<TELL
"Stiles is fastened to the davenport, "
"yawning and trying not to doze off." CR>)>)
(T
;<FSET ,STILES ,TOUCHBIT>
<TELL
"Sgt. Duffy is holding a prisoner by the arm." CR>
<TELL <GETP ,STILES ,P?TEXT> CR>)>
<RTRUE>)
(<==? ,WINNER ,STILES>
<COND (<AND ,TOO-LATE <VERB? FIND> <NOT <DOBJ? PLAYER>>>
<TELL "\"I wouldn't tell you even if I knew.\"" CR>)
(<AND ,TOO-LATE <VERB? INVENTORY>>
<TELL "\"I've never seen you before.\"" CR>)
(<VERB? FIND THANKS> <RFALSE>)
(<COM-CHECK ,STILES> <RTRUE>)
(T <TELL <PICK-ONE ,WHY-ME> CR>)>)
(<OR <AND ,PRSI<SET OBJ ,PRSI><DOBJ? STILES><VERB? CONFRONT ASK-ABOUT>>
<AND ,PRSO <IN? ,PRSO ,GLOBAL-OBJECTS> <SET OBJ ,PRSO>
<VERB? FIND WHAT>>>
<COND (<NOT <GRAB-ATTENTION ,STILES>> <RTRUE>)>
<SAID-TO ,STILES>
<COND (<EQUAL? .OBJ ,GLOBAL-CALL>
<TELL
"\"Linder phoned me today and almost commanded me to come here tonight
to talk about our deal. Last time, he at least was decent enough to buy
me lunch. He" " said he wanted to pay me a bundle to leave town.\"" CR>)
(<AND <NOT ,TOO-LATE> <EQUAL? .OBJ ,GLOBAL-DUFFY>>
<TELL
"\"Is that your man? When I came running out of the woods, he grabbed me
as if I was some kind of criminal. He wouldn't let me go! So here I am.\""CR>)
(<EQUAL? .OBJ ,GENERIC-GUN>
<TELL "\"Don't ask me. I never touch them.\"" CR>)
(<AND <NOT ,TOO-LATE> <EQUAL? .OBJ ,STILES-SHOES>>
<SETG BACK-FOOTPRINTS-MATCHED T>
<TELL
"\"What about them? They're muddy because I had to run through the yard and
woods to get away from the shooting.\"" CR>)
(<EQUAL? .OBJ ,TELEGRAM>
<TELL
"\"I don't get it. I think he's more dangerous than I am!\"" CR>)
(<EQUAL? .OBJ ,MONEY>
<TELL
"\"Yeah, Linder" " said he wanted to pay me a bundle to leave town.\"" CR>)
(<EQUAL? .OBJ ,GLOBAL-MONICA ,MONICA>
<DISCRETION ,STILES ,MONICA>
<TELL
"\"She's probably just another dizzy dame, but I don't really know her
well enough to say.\"" CR>)
(<EQUAL? .OBJ ,GLOBAL-AFFAIR ,GLOBAL-MRS-LINDER ,GLOBAL-SUICIDE>
<DISCRETION ,STILES ,MONICA>
<TELL
"\"Virginia was a special woman. Repressed for years. I think that, if
only ... Say, I don't have to answer your questions!\"" CR>)
(<EQUAL? .OBJ ,GLOBAL-LINDER ,LINDER ,CORPSE>
<TELL
"\"He's a smooth operator. I can think of many people who'd like to plug
him. Not me, of course. I still don't understand why he sounded so urgent
when he called me today and asked me to come here tonight.\"" CR>)
(<EQUAL? .OBJ ,GLOBAL-PHONG ,PHONG>
<DISCRETION ,STILES ,PHONG>
<TELL "\"He seems straight, but I don't really trust ">
<COND (<TANDY?> <TELL "his kind">)
(T <TELL "slanteyes">)>
<TELL ".\"" CR>)
(<AND ,SHOT-FIRED <EQUAL? .OBJ ,GLOBAL-SHOT>>
<TELL
"\"I was just walking up to Linder's office when there was this
explosion and the window fell apart. 'Holy jumping catfish!' I thought,
'Someone took a shot at me!' So I ran to the gate, but it was locked.
The only way out I could see was through the woods.\"" CR>)
(<EQUAL? .OBJ ,GLOBAL-STILES ,STILES>
<TELL
"\"There's not much to tell. I'm a writer, but that doesn't take you far
these days. So I do some film work on the side. Some day my agent will
wise up and find me a decent publisher.\"" CR>)
(<AND <NOT ,TOO-LATE> <EQUAL? .OBJ ,INSIDE-GUN ,OUTSIDE-GUN>>
<TELL
"\"I've never seen it before. Anyhow, I don't like guns.\"" CR>)
(<OR <EQUAL? .OBJ ,MATCHBOOK>
<AND <EQUAL? .OBJ ,INTNUM> <==? ,P-NUMBER 1729>>>
<TELL
"\"That's my phone number! Linder must have jotted it down the day
we had lunch at that restaurant,"
" when he first offered me money to leave town.\"" CR>)
(<EQUAL? .OBJ ,BRASS-LANTERN>
<TELL
"\"I think that's the name of the restaurant where Linder took me to lunch,"
" when he first offered me money to leave town.\"" CR>)
(<AND <NOT ,TOO-LATE> <EQUAL? .OBJ ,MEDICAL-REPORT ,TUMOR>>
<TELL
"\"So the old man was on the way out, eh? Wish I'd known that.\"
He pauses. \"I mean, I could have taken his money and blown town
until he kicked the bucket, then come back. Too late now.\"" CR>)
(<AND <NOT ,TOO-LATE> <EQUAL? .OBJ ,THREAT-NOTE>>
<TELL
"\"Holy smoke! That sort of looks like my writing, but I didn't write
it.\"" CR>)
(T
<TELL <PICK-ONE ,STILES-ASKED> CR>)>)
(<VERB? LOOK-UP PHONE>
<PERFORM ,PRSA ,MATCHBOOK>
<RTRUE>)
(<AND ,TOO-LATE
<OR <VERB? SEARCH>
<AND <DOBJ? MONEY> <VERB? GIVE TAKE>>
<AND <IOBJ? MONEY> <VERB? ASK-FOR SEARCH-OBJECT-FOR SGIVE>>>>
<TELL
"When you try it, he whirls around in a fighting stance. \"Don't mess
around with me, buddy. I've handled thieves before.\"" CR>)
(<AND <DOBJ? STILES> <VERB? SHOW>>
<PERFORM ,V?ASK-ABOUT ,PRSO ,PRSI>
<RTRUE>)
(<AND <DOBJ? STILES> <VERB? SLAP RUB>>
<TELL
"Stiles" "'s eyes are full of hate, and " "he says something unprintable."CR>)
(<AND <DOBJ? STILES> <VERB? TIE-TO TIE-WITH> <NOT ,TOO-LATE>>
<TELL "There's no need. Duffy's cuffs are secure enough." CR>)
(<AND <DOBJ? STILES> <VERB? UNTIE> <NOT ,TOO-LATE>>
<TELL "Your key won't fit the cuffs." CR>)
(<AND <VERB? TAKEOUT> ;"TAKE STILES OUTSIDE"
<NOT ,TOO-LATE>
<IOBJ? OFFICE-BACK-DOOR MONICA-BACK-DOOR LINDER-BACK-DOOR>>
<TELL "Your key won't fit the cuffs." CR>)
(<VERB? ARREST> <ARREST ,STILES>)>>
<GLOBAL STILES-ASKED
<PLTABLE "\"I couldn't help you if I wanted to.\""
"\"That has nothing to do with me.\"">>
<OBJECT STILES-SHOES
(DESC "pair of Stiles's shoes")
(IN STILES)
(ADJECTIVE STILES HIS)
(SYNONYM PAIR SHOE SHOES)
(FLAGS NDESCBIT)
(ACTION STILES-SHOES-F)>
<ROUTINE STILES-SHOES-F ()
<COND (<AND <VERB? COMPARE PUT>
<OR <DOBJ? SIDE-FOOTPRINTS SIDE-FOOTPRINTS-CAST>
<IOBJ? SIDE-FOOTPRINTS SIDE-FOOTPRINTS-CAST>>>
<TELL
"The shoes don't seem to match " ;"the plaster cast of "
"the foot prints that you found in the " "side yard." CR>)
(<AND <VERB? COMPARE PUT>
<OR <DOBJ? BACK-FOOTPRINTS BACK-FOOTPRINTS-CAST>
<IOBJ? BACK-FOOTPRINTS BACK-FOOTPRINTS-CAST>>>
<COND (<OR <VERB? PUT> <==? ,P-ADVERB ,W?CAREFULLY>>
<SETG BACK-FOOTPRINTS-MATCHED T>
<TELL
"The shoes and the foot prints match each other perfectly." CR>)
(T
<TELL
"The shoes look similar to " ;"the plaster cast of "
"the foot prints that you found in the " "back yard." CR>)>)
(T <RANDOM-SHOES-F>)>>
<OBJECT MONICA
(IN LIVING-ROOM)
(DESC "Monica")
(ADJECTIVE YOUNG)
(SYNONYM MONICA WOMAN)
(FLAGS PERSON FEMALE ;OPENBIT)
(CAPACITY 40)
(ACTION MONICA-F)
(DESCFCN MONICA-F)
(XDESC "young woman")
(TEXT
"She is a woman in her mid-twenties. Her grey eyes flash, emphasizing
her dark waved hair and light but effective make-up. She wears a navy
Rayon blouse, tan slacks, and tan pumps with Cuban heels. She acts as
though you were a masher who just gave her a whistle.")
(CHARACTER 4)>
<OBJECT MONICA-SHOES
(DESC "pair of Monica's shoes")
(IN MONICA)
(ADJECTIVE MONICA HER)
(SYNONYM PAIR SHOE SHOES)
(FLAGS NDESCBIT)
(ACTION RANDOM-SHOES-F)>
<OBJECT GLOBAL-MONICA
(IN GLOBAL-OBJECTS)
(DESC "Monica")
(SYNONYM MONICA)
(FLAGS PERSON FEMALE)
(ACTION GLOBAL-PERSON)
(CHARACTER 4)>
<GLOBAL MONICA-QUESTIONS 0>
<GLOBAL MONICA-HAS-MOTIVE <>>
<GLOBAL MONICA-CLAMS-UP <>>
<GLOBAL MONICA-TIED-TO <>>
<GLOBAL MONICA-TIED-WITH <>>
<GLOBAL MONICA-ADMITTED-HELPING? <>>
<GLOBAL SHE-CLAMS-UP
" She seems to remember who you are, then clams up.">
<ROUTINE MONICA-F ("OPTIONAL" (ARG <>) "AUX" OBJ (L <LOC ,MONICA>) X)
<COND (<==? .ARG ,M-OBJDESC>
<COND (<IN-MOTION? ,MONICA> <RTRUE>)
(<FSET? ,MONICA ,TOUCHBIT>
<COND (,MONICA-TIED-TO <TELL
"Monica is fastened to the " D ,MONICA-TIED-TO
" with the " D ,MONICA-TIED-WITH "." CR>)
(<==? .L ,MONICA-ROOM>
<TELL "Monica is lying on her bed, softly sobbing." CR>)
(<==? .L ,TOILET-ROOM>
<TELL "Monica is leaning over the toilet, gasping." CR>)
(T
<TELL "Monica is here, biting her nails." CR>)>)
(T
<FSET ,MONICA ,TOUCHBIT>
<TELL "Monica ">
<COND (<==? <LOC ,MONICA> <LOC ,LINDER>>
<TELL "stops talking and ">)>
<TELL "looks at you sharply. "
<GETP ,MONICA ,P?TEXT>
CR>)>
<RTRUE>)
(<==? ,WINNER ,MONICA>
<FSET ,MONICA ,TOUCHBIT>
<COND (<AND <VERB? FIND> <DOBJ? CLOCK-KEY>>
<SETG WINNER ,PLAYER>
<PERFORM ,V?ASK-ABOUT ,MONICA ,PRSO>
<RTRUE>)
(<VERB? FIND THANKS> <RFALSE>)
(<OR <AND <VERB? GIVE>
<DOBJ? CLOCK-KEY GENERIC-KEY GENERIC-GUN INSIDE-GUN>>
<AND <VERB? SGIVE>
<IOBJ? CLOCK-KEY GENERIC-KEY GENERIC-GUN INSIDE-GUN>>>
<TELL "\"Why should I?\"" CR>) ;"? better"
(<COM-CHECK ,MONICA> <RTRUE>)
(T <TELL <PICK-ONE ,WHY-ME> CR>)>)
(<VERB? ACCUSE>
<SETG MONICA-CLAMS-UP T>
<COND (<NOT ,MONICA-SEEN-CORPSE?>
<TELL
"\"What murder? What are you talking about?\" Her cheeks quiver like jelly."
CR>)
(<NOT <OR ,SEEN-MONICA-AT-CLOCK ,MONICA-ADMITTED-HELPING?>>
<TELL
"\"You were there when it happened. Isn't it obvious that Stiles did it?\""
CR>)
(<NOT ,MONICA-SAW-MEDICAL-REPORT>
<FCLEAR ,MEDICAL-REPORT ,INVISIBLE>
<FCLEAR ,TUMOR ,INVISIBLE>
<SETG MONICA-SAW-MEDICAL-REPORT T>
<SETG MONICA-ADMITTED-HELPING? T>
<TELL
"\"It's true I helped set up the gun mechanism. But Dad was already
dying! You can find the medical report on the desk ">
<COND (<IN? ,MONICA ,MONICA-ROOM> <TELL "here ">)>
<TELL
"in my room. He was ... dying ...\" She breaks down in tears." CR>)
(<NOT ,MONICA-SAW-CORONER-REPORT>
<TELL
"\"I've told you already: he was dying!\" Tears dribble down her cheeks." CR>)
(T
<TELL
"\"I don't understand! I believed that medical report, and I don't know
why the doctor lied to me about the tumor. You think I wanted to murder
my own father? I thought he was dying already!\" Her eyes are pleading
with you now, begging you to believe her." CR>)>)
(<OR <AND ,PRSI<SET OBJ ,PRSI><DOBJ? MONICA><VERB? CONFRONT ASK-ABOUT>>
<AND ,PRSO <IN? ,PRSO ,GLOBAL-OBJECTS> <SET OBJ ,PRSO>
<VERB? FIND WHAT>>>