-
Notifications
You must be signed in to change notification settings - Fork 16
/
Copy patheliza.zap
210 lines (195 loc) · 6.61 KB
/
eliza.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
.FUNCT RT-AC-TH-BLUE-PILL-BOTTLE,CONTEXT
ZERO? GL-NOW-PRSI? \FALSE
EQUAL? GL-PRSA,V?READ,V?EXAMINE,V?LOOK-ON \?CCL6
PRINTR "The label on the bottle reads: ""Digitalis leaf. For tachycardia and other accelerated arrhythmias."""
?CCL6: EQUAL? GL-PRSA,V?SHOOT \FALSE
REMOVE TH-BLUE-PILL-BOTTLE
ICALL1 RT-CTHEO-PRINT
PRINT K-SHATTER-MSG
CRLF
RTRUE
.FUNCT RT-AC-TH-BROWN-PILL-BOTTLE,CONTEXT
ZERO? GL-NOW-PRSI? \FALSE
EQUAL? GL-PRSA,V?READ,V?EXAMINE,V?LOOK-ON \?CCL6
PRINTR "The label on the bottle reads: ""Belladonna. For bradycardia and other decelerated arrhythmias."""
?CCL6: EQUAL? GL-PRSA,V?SHOOT \FALSE
REMOVE TH-BROWN-PILL-BOTTLE
ICALL1 RT-CTHEO-PRINT
PRINT K-SHATTER-MSG
CRLF
RTRUE
.FUNCT RT-AC-TH-ORANGE-PILL,CONTEXT
ZERO? GL-NOW-PRSI? \FALSE
EQUAL? GL-PRSA,V?EAT \?CCL6
EQUAL? GL-WINNER,CH-PLAYER \?CCL6
PRINTI "You swallow the pill. For a few moments everything seems to move much slower."
CRLF
REMOVE GL-PRSO
RTRUE
?CCL6: EQUAL? GL-PRSA,V?SHOOT \FALSE
REMOVE TH-ORANGE-PILL
ICALL1 RT-CTHEO-PRINT
PRINT K-SHATTER-MSG
CRLF
RTRUE
.FUNCT RT-AC-TH-YELLOW-PILL,CONTEXT
ZERO? GL-NOW-PRSI? \FALSE
EQUAL? GL-PRSA,V?EAT \?CCL6
EQUAL? GL-WINNER,CH-PLAYER \?CCL6
PRINTI "You swallow the pill. For a few moments everything seems to move much faster."
CRLF
REMOVE GL-PRSO
RTRUE
?CCL6: EQUAL? GL-PRSA,V?SHOOT \FALSE
REMOVE TH-YELLOW-PILL
ICALL1 RT-CTHEO-PRINT
PRINT K-SHATTER-MSG
CRLF
RTRUE
.FUNCT RT-AC-CH-ELIZA-DOOLITTLE,CONTEXT
GETP CH-ELIZA-DOOLITTLE,P?OBJ-NOUN
EQUAL? STACK,W?HEART,W?HEARTBEAT \?CCL3
EQUAL? CONTEXT,K-M-SDESC \?CCL6
PRINTI "girl's heart"
RTRUE
?CCL6: EQUAL? CONTEXT,K-M-DESCFCN \?CCL8
PRINTR "You don't have X-ray vision."
?CCL8: ZERO? CONTEXT \FALSE
EQUAL? GL-PRSA,V?LISTEN \?CCL12
ICALL1 RT-LISTEN-ELIZA
RTRUE
?CCL12: CALL1 RT-TOUCH-VERB?
ZERO? STACK /FALSE
ICALL1 RT-IMPOSSIBLE-MSG
RTRUE
?CCL3: EQUAL? CONTEXT,K-M-SDESC \?CCL16
PRINTI "girl"
RTRUE
?CCL16: EQUAL? CONTEXT,K-M-DESCFCN \?CCL18
ICALL2 RT-THIS-IS-IT,CH-ELIZA-DOOLITTLE
PRINTR "The flower girl is lying on the ground in a dead faint. She is very beautiful, but her clothes indicate that she must be poor."
?CCL18: EQUAL? CONTEXT,K-M-WINNER \?CCL20
ICALL2 RT-CTHEO-PRINT,CH-ELIZA-DOOLITTLE
PRINTR " is unconscious. She cannot do anything."
?CCL20: ZERO? CONTEXT \FALSE
EQUAL? GL-PRSA,V?LISTEN \?PRD26
ZERO? GL-NOW-PRSI? /?CTR23
?PRD26: EQUAL? GL-PRSA,V?USE-ON,V?TOUCH-TO \?PRD29
EQUAL? GL-PRSO,TH-STETHOSCOPE \?PRD29
ZERO? GL-NOW-PRSI? \?CTR23
?PRD29: EQUAL? GL-PRSA,V?DIAGNOSE \?PRD33
ZERO? GL-NOW-PRSI? /?CTR23
?PRD33: EQUAL? GL-PRSA,V?LOOK-THRU \?CCL24
EQUAL? GL-P-PRSA-WORD,W?EXAMINE \?CCL24
ZERO? GL-NOW-PRSI? \?CCL24
EQUAL? GL-PRSI,TH-STETHOSCOPE \?CCL24
?CTR23: CALL1 RT-LISTEN-ELIZA
RSTACK
?CCL24: EQUAL? GL-PRSA,V?GIVE,V?FEED \?CCL41
CALL2 RT-CURE-ELIZA,GL-PRSO
RSTACK
?CCL41: EQUAL? GL-PRSA,V?TAKE,V?RAISE,V?MOVE \?CCL43
EQUAL? GL-PRSO,TH-ELIZAS-FLOWERS \?CCL46
PRINT K-OUTRAGED-CROWD-MSG
CRLF
RTRUE
?CCL46: EQUAL? GL-PRSO,CH-ELIZA-DOOLITTLE \FALSE
PRINTR "The girl is too sick to be moved."
?CCL43: EQUAL? GL-PRSA,V?RESCUE \?CCL50
PRINTR "A noble thought, worthy of someone who has taken the Hippocratic oath."
?CCL50: EQUAL? GL-PRSA,V?ALARM \?CCL52
PRINTR "Your medical expertise tells you she's not just asleep. It's more serious than that."
?CCL52: EQUAL? GL-PRSA,V?SEARCH \FALSE
PRINT K-OUTRAGED-CROWD-MSG
CRLF
RTRUE
.FUNCT RT-LISTEN-ELIZA,?TMP1
FSET? TH-COTTON-BALLS,FL-WORN \?CCL3
ICALL1 RT-CYOU-MSG
PRINTI "cannot hear a thing with "
ICALL2 RT-THEO-PRINT,TH-COTTON-BALLS
PRINTI " in "
ICALL2 RT-THEO-PRINT,TH-EARS
PRINTR "."
?CCL3: FSET? TH-STETHOSCOPE,FL-WORN \?CCL5
LOC CH-PLAYER >?TMP1
LOC CH-ELIZA-DOOLITTLE
EQUAL? ?TMP1,STACK /?CND6
PRINTR "You can't reach the girl from where you are."
?CND6: ZERO? CH-ELIZA-DOOLITTLE-AUX1 \?CND8
RANDOM 100
LESS? 50,STACK /?CCL12
SET 'CH-ELIZA-DOOLITTLE-AUX1,1
JUMP ?CND8
?CCL12: SET 'CH-ELIZA-DOOLITTLE-AUX1,2
?CND8: EQUAL? CH-ELIZA-DOOLITTLE-AUX1,1 \?CCL15
ICALL SOUNDS,S-HEART3,S-START,6,10
PRINTR "Her heartbeat is incredibly fast."
?CCL15: EQUAL? CH-ELIZA-DOOLITTLE-AUX1,2 \FALSE
ICALL SOUNDS,S-HEART1,S-START,6,6
PRINTR "Her heartbeat is incredibly slow."
?CCL5: EQUAL? GL-PRSO,TH-STETHOSCOPE /?CTR18
EQUAL? GL-PRSI,TH-STETHOSCOPE \?CCL19
?CTR18: ICALL RT-CYOU-MSG,STR?228,STR?229
PRINTI "not wearing "
ICALL2 RT-THEO-PRINT,TH-STETHOSCOPE
PRINTR "."
?CCL19: PRINTR "The city noises are too loud for you to make an accurate diagnosis."
.FUNCT RT-CURE-ELIZA,CURE
EQUAL? CURE,TH-ORANGE-PILL \?CCL3
REMOVE TH-ORANGE-PILL
EQUAL? CH-ELIZA-DOOLITTLE-AUX1,1 \?CCL6
SET 'CH-ELIZA-DOOLITTLE-AUX1,3
JUMP ?CND4
?CCL6: SET 'CH-ELIZA-DOOLITTLE-AUX1,4
?CND4: PRINTI "You give her "
ICALL2 RT-THEO-PRINT,CURE
PRINTC 46
CRLF
CRLF
JUMP ?CND1
?CCL3: EQUAL? CURE,TH-YELLOW-PILL \?CCL8
REMOVE TH-YELLOW-PILL
EQUAL? CH-ELIZA-DOOLITTLE-AUX1,2 \?CCL11
SET 'CH-ELIZA-DOOLITTLE-AUX1,3
JUMP ?CND9
?CCL11: SET 'CH-ELIZA-DOOLITTLE-AUX1,4
?CND9: PRINTI "You give her "
ICALL2 RT-THEO-PRINT,CURE
PRINTC 46
CRLF
CRLF
?CND1: EQUAL? CH-ELIZA-DOOLITTLE-AUX1,3 \?CCL14
MOVE TH-CARNATION,TH-LAPEL
REMOVE CH-ELIZA-DOOLITTLE
FCLEAR CH-ELIZA-DOOLITTLE,FL-ASLEEP
PRINTI "Nothing happens for a moment, but then her eyelids flutter briefly and she opens her eyes."
CRLF
CRLF
PRINTI "The crowd breaks into applause, and they help her to her feet. When she is standing, she smiles at you shyly and puts a lovely carnation in your lapel as a gesture of thanks."
CRLF
CRLF
PRINTI "Just then, a distinguished-looking gentleman appears on the scene, takes her by the arm, and says, ""Come, Eliza. We mustn't be late for the ball."""
CRLF
CRLF
PRINTI "He escorts her away, but as she leaves, she glances back at you once more with a grateful expression in her lovely eyes."
CRLF
GETP TH-CARNATION,P?VALUE
ICALL2 RT-UPDATE-SCORE,STACK
PUTP TH-CARNATION,P?VALUE,0
RTRUE
?CCL8: PRINTR "That would not do her much good."
?CCL14: EQUAL? CH-ELIZA-DOOLITTLE-AUX1,4 \FALSE
FCLEAR CH-ELIZA-DOOLITTLE,FL-ALIVE
PRINTI "Nothing happens for a moment, but then suddenly her body goes limp. It must have been the wrong pill."
CRLF
CRLF
PRINTI "By this time, the large crowd has gathered the attention of the police. Inspector Lestrade pushes his way through the crowd, sees the dead girl, and says, ""I'm sorry, Doctor Watson. I know you must have tried to save her. I'm afraid you'll have to come along with me to fill out the death certificate."""
CRLF
CRLF
PRINTI "Unfortunately, by the time you finish filling out the forms associated with the girl's death, the news of theft of the Crown Jewels leaks to the press, and all is lost."
CRLF
CRLF
CALL1 RT-QSR
RSTACK
.ENDI