OSDN Git Service

Add some blank lines to the script
[eliza-6000/eliza.git] / ElzDctr.text
1 Copyright (c) 1966 Association for Computing Machinery, Inc.
2 This is a modified work, not identical to the published version.
3 =====================================================================
4 (HOW DO YOU DO.  PLEASE TELL ME YOUR PROBLEM)
5
6 START
7
8 (SORRY ((0) (PLEASE DON'T APOLIGIZE)
9 (APOLOGIES ARE NOT NECESSARY) (WHAT FEELINGS
10 DO YOU HAVE WHEN YOU APOLOGIZE) (I'VE TOLD YOU
11 THAT APOLOGIES ARE NOT REQUIRED)))
12
13 (DONT = DON'T)
14
15 (CANT = CAN'T)
16
17 (WONT = WON'T)
18
19 (REMEMBER 5
20 ((0 YOU REMEMBER 0) (DO YOU OFTEN THINK OF 4)
21 (DOES THINKING OF 4 BRING ANYTHING ELSE TO MIND)
22 (WHAT ELSE DO YOU REMEMBER)
23 (WHY DO YOU REMEMBER 4 JUST NOW)
24 (WHAT IN THE PRESENT SITUATION REMINDS YOU OF 4)
25 (WHAT IS THE CONNECTION BETWEEN ME AND 4))
26 ((0 DO I REMEMBER 0) (DID YOU THINK I WOULD FORGET 5)
27 (WHY DO YOU THINK I SHOULD RECALL 5 NOW)
28 (WHAT ABOUT 5) (=WHAT) (YOU MENTIONED 5))
29 ((0) (NEWKEY)))
30
31 (IF 3 ((0 IF 0) (DO YOU THINK ITS LIKELY THAT 3) (DO YOU WISH THAT 3)
32 (WHAT DO YOU THINK ABOUT 3) (REALLY, 2 3)))
33
34 (DREAMT 4 ((0 YOU DREAMT 0)
35 (REALLY, 4) (HAVE YOU EVER FANTASIED 4 WHILE YOU WERE AWAKE)
36 (HAVE YOU DREAMT 4 BEFORE) (=DREAM) (NEWKEY)))
37
38 (DREAMED = DREAMT 4 (=DREAMT))
39
40 (DREAM 3 ((0) (WHAT DOES THAT DREAM SUGGEST TO YOU)
41 (DO YOU DREAM OFTEN) (WHAT PERSONS APPEAR IN YOUR DREAMS)
42 (DON'T YOU BELIEVE THAT DREAM HAS SOMETHING TO DO WITH
43 YOUR PROBLEM) (NEWKEY)))
44
45 (DREAMS = DREAM 3 (=DREAM))
46
47 (HOW (=WHAT))
48
49 (WHEN (=WHAT))
50
51 (ALIKE 10 (=DIT))
52
53 (SAME 10 (=DIT))
54
55 (CERTAINLY (=YES))
56
57 (FEEL DLIST(/BELIEF))
58
59 (THINK DLIST(/BELIEF))
60
61 (BELIEVE DLIST(/BELIEF))
62
63 (WISH DLIST(/BELIEF))
64
65 (MEMORY MY (0 YOUR 0 = LETS DISCUSS FURTHER WHY YOUR 3)
66 (0 YOUR 0 = EARLIER YOU SAID YOUR 3)
67 (0 YOUR 0 = BUT YOUR 3)
68 (0 YOUR 0 = DOES THAT HAVE ANYTHING TO DO WITH THE FACT THAT YOUR 3))
69
70 (NONE ((0) (I AM NOT SURE I UNDERSTAND YOU FULLY)
71 (PLEASE GO ON)
72 (WHAT DOES THAT SUGGEST TO YOU)
73 (DO YOU FEEL STRONGLY ABOUT DISCUSSING SUCH THINGS)))
74
75 (PERHAPS ((0) (YOU DON'T SEEM QUITE CERTAIN)
76 (WHY THE UNCERTAIN TONE)
77 (CAN'T YOU BE MORE POSITIVE)
78 (YOU AREN'T SURE) (DON'T YOU KNOW)))
79
80 (MAYBE (=PERHAPS))
81
82 (NAME 15 ((0) (I AM NOT INTERESTED IN NAMES)
83 (I'VE TOLD YOU BEFORE, I DON'T CARE ABOUT NAMES -
84 PLEASE CONTINUE)) )
85
86 (DEUTSCH (=XFREMD))
87
88 (FRANCAIS (=XFREMD))
89
90 (ITALIANO (=XFREMD))
91
92 (ESPANOL (=XFREMD))
93
94 (XFREMD ((0) (I AM SORRY, I SPEAK ONLY ENGLISH)))
95
96 (HELLO ((0) (HOW DO YOU DO.  PLEASE STATE YOUR PROBLEM)))
97
98 (COMPUTER 50 ((0) (DO COMPUTERS WORRY YOU)
99 (WHY DO YOU MENTION COMPUTERS) (WHAT DO YOU THINK MACHINES
100 HAVE TO DO WITH YOUR PROBLEM) (DON'T YOU THINK COMPUTERS CAN
101 HELP PEOPLE) (WHAT ABOUT MACHINES WORRIES YOU) (WHAT
102 DO YOU THINK ABOUT MACHINES)))
103
104 (MACHINE 50 (=COMPUTER))
105
106 (MACHINES 50 (=COMPUTER))
107
108 (COMPUTERS 50 (=COMPUTER))
109
110 (AM = ARE ((0 ARE YOU 0) (DO YOU BELIEVE YOU ARE 4)
111 (WOULD YOU WANT TO BE 4) (YOU WISH I WOULD TELL YOU YOU ARE 4)
112 (WHAT WOULD IT MEAN IF YOU WERE 4) (=WHAT))
113 ((0) (WHY DO YOU SAY 'AM') (I DON'T UNDERSTAND THAT)))
114
115 (ARE ((0 ARE I 0 )
116 (WHY ARE YOU INTERESTED IN WHETHER I AM 4 OR NOT)
117 (WOULD YOU PREFER IF I WEREN'T 4) (PERHAPS I AM 4 IN YOUR
118 FANTASIES) (DO YOU SOMETIMES THINK I AM 4) (=WHAT))
119 ((0 ARE 0) (DID YOU THINK THEY MIGHT NOT BE 3)
120 (WOULD YOU LIKE IT IF THEY WERE NOT 3) (WHAT IF THEY WERE NOT 3)
121 (POSSIBLY THEY ARE 3)) )
122
123 (YOUR = MY ((0 MY 0) (WHY ARE YOU CONCERNED OVER MY 3)
124 (WHAT ABOUT YOUR OWN 3) (ARE YOU WORRIED ABOUT SOMEONE ELSES 3)
125 (REALLY, MY 3)))
126
127 (WAS 2 ((0 WAS YOU 0 )
128 (WHAT IF YOU WERE 4) (DO YOU THINK YOU WERE 4)
129 (WERE YOU 4) (WHAT WOULD IT MEAN IF YOU WERE 4)
130 (WHAT DOES ' 4 ' SUGGEST TO YOU) (=WHAT))
131 ((0 YOU WAS 0)
132 (WERE YOU REALLY) (WHY DO YOU TELL ME YOU WERE 4 NOW)
133 (PERHAPS I ALREADY KNEW YOU WERE 4) )
134 ((0 WAS I 0) (WOULD YOU LIKE TO BELIEVE I WAS 4)
135 (WHAT SUGGESTS THAT I WAS 4)
136 (WHAT DO YOU THINK) (PERHAPS I WAS 4)
137 (WHAT IF I HAD BEEN 4))
138 ((0) (NEWKEY)) )
139
140 (WERE = WAS (=WAS))
141
142 (ME = YOU)
143
144 (YOU'RE = I'M ((0 I'M 0) (PRE (I ARE 3) (=YOU))))
145
146 (I'M = YOU'RE ((0 YOU'RE 0) (PRE (YOU ARE 3) (=I))))
147
148 (MYSELF = YOURSELF)
149
150 (YOURSELF = MYSELF)
151
152 (MOTHER DLIST(/NOUN FAMILY))
153
154 (MOM = MOTHER DLIST(/ FAMILY))
155
156 (DAD = FATHER DLIST(/ FAMILY))
157
158 (FATHER DLIST(/NOUN FAMILY))
159
160 (SISTER DLIST(/FAMILY))
161
162 (BROTHER DLIST(/FAMILY))
163
164 (WIFE DLIST(/FAMILY))
165
166 (CHILDREN DLIST(/FAMILY))
167
168 (I = YOU
169 ((0 YOU (* WANT NEED) 0) (WHAT WOULD IT MEAN TO YOU IF YOU GOT 4)
170 (WHY DO YOU WANT 4) (SUPPOSE YOU GOT 4 SOON) (WHAT
171 IF YOU NEVER GOT 4) (WHAT WOULD GETTING 4 MEAN TO
172 YOU) (WHAT DOES WANTING 4 HAVE TO DO WITH THIS DISCUSSION))
173 ((0 YOU ARE 0 (*SAD UNHAPPY DEPRESSED SICK ) 0)
174 (I AM SORRY TO HEAR YOU ARE 5) (DO YOU THINK COMING HERE
175 WILL HELP YOU NOT TO BE 5) (I'M SURE ITS NOT PLEASANT TO
176 BE 5) (CAN YOU EXPLAIN WHAT MADE YOU 5))
177 ((0 YOU ARE 0 (*HAPPY ELATED GLAD BETTER ) 0)
178 (HOW HAVE I HELPED YOU TO BE 5)
179 (HAS YOUR TREATMENT MADE YOU 5) (WHAT MAKES YOU 5 JUST
180 NOW) (CAN YOU EXPLAIN WHY YOU ARE SUDDENLY 5))
181 ((0 YOU WAS 0) (=WAS))
182 ((0 YOU (/BELIEF) YOU 0) (DO YOU REALLY THINK SO) (BUT YOU ARE
183 NOT SURE YOU 5) (DO YOU REALLY DOUBT YOU 5))
184 ((0 YOU 0 (/BELIEF) 0 I 0) (=YOU))
185 ((0 YOU ARE 0)
186 (IS IT BECAUSE YOU ARE 4 THAT YOU CAME TO ME)
187 (HOW LONG HAVE YOU BEEN 4)
188 (DO YOU BELIEVE IT NORMAL TO BE 4)
189 (DO YOU ENJOY BEING 4))
190 ((0 YOU (* CAN'T CANNOT) 0) (HOW DO YOU KNOW YOU CAN'T 4)
191 (HAVE YOU TRIED)
192 (PERHAPS YOU COULD 4 NOW)
193 (DO YOU REALLY WANT TO BE ABLE TO 4))
194 ((0 YOU DON'T 0)(DON'T YOU  REALLY 4)(WHY DON'T YOU 4)
195 (DO YOU WISH TO BE ABLE TO 4) (DOES THAT TROUBLE YOU))
196 ((0 YOU FEEL 0) (TELL ME MORE ABOUT SUCH FEELINGS)
197 (DO YOU OFTEN FEEL 4)
198 (DO YOU ENJOY FEELING 4)
199 (OF WHAT DOES FEELING 4 REMIND YOU))
200 ((0 YOU 0 I 0) (PERHAPS IN YOUR FANTASY WE 3 EACH OTHER)
201 (DO YOU WISH TO 3 ME)
202 (YOU SEEM TO NEED TO 3 ME)
203 (DO YOU 3 ANYONE ELSE))
204 ((0) (YOU SAY 1)
205 (CAN YOU ELABORATE ON THAT) (DO YOU SAY 1 FOR SOME SPECIAL REASON)
206 (THAT'S QUITE INTERESTING)))
207
208 (YOU = I ((0 I REMIND YOU OF 0) (=DIT))
209 ((0 I ARE 0) (WHAT MAKES YOU THINK I AM 4)
210 (DOES IT PLEASE YOU TO BELIEVE I AM 4)
211 (DO YOU SOMETIMES WISH YOU WERE 4)
212 (PERHAPS YOU WOULD LIKE TO BE 4))
213 ((0 I 0 YOU) (WHY DO YOU THINK I 3 YOU)
214 (YOU LIKE TO THINK I 3 YOU - DON'T YOU)
215 (WHAT MAKES YOU THINK I 3 YOU)
216 (REALLY, I 3 YOU) (DO YOU WISH TO BELIEVE I 3 YOU)
217 (SUPPOSE I DID 3 YOU - WHAT WOULD THAT MEAN)
218 (DOES SOMEONE ELSE BELIEVE I 3 YOU))
219 ((0 I 0) (WE WERE DISCUSSING YOU - NOT ME)
220 (OH, I 3) (YOU'RE NOT REALLY TALKING ABOUT ME - ARE YOU)
221 (WHAT ARE YOUR FEELINGS NOW)))
222
223 (YES ((0) (YOU SEEM QUITE POSITIVE) (YOU ARE SURE)
224 (I SEE) (I UNDERSTAND)))
225
226 (NO ((0) (ARE YOU SAYING 'NO' JUST TO BE NEGATIVE)
227 (YOU ARE BEING A BIT NEGATIVE) (WHY NOT) (WHY 'NO')))
228
229 (MY = YOUR 2 ((0 YOUR 0 (/FAMILY) 0)
230 (TELL ME MORE ABOUT YOUR FAMILY) ( WHO ELSE IN YOUR FAMILY
231 5) (YOUR 4) (WHAT ELSE COMES TO MIND WHEN YOU THINK OF
232 YOUR 4))
233 ((0 YOUR 0) (YOUR 3) (WHY DO YOU SAY YOUR 3) (DOES THAT
234 SUGGEST ANYTHING ELSE WHICH BELONGS TO YOU) (IS IT
235 IMPORTANT TO YOU THAT 2 3)))
236
237 (CAN ((0 CAN I 0)  (YOU BELIEVE I CAN 4 DON'T YOU) (=WHAT)
238 (YOU WANT ME TO BE ABLE TO 4) (PERHAPS YOU WOULD LIKE TO BE
239 ABLE TO 4 YOURSELF)) ((0 CAN YOU 0) (WHETHER OR NOT YOU CAN 4
240 DEPENDS ON YOU MORE THAN ON ME) (DO YOU WANT TO BE ABLE TO 4)
241 (PERHAPS YOU DON'T WANT TO 4) (=WHAT)))
242
243 (WHAT ((0) (WHY DO YOU ASK) (DOES THAT QUESTION INTEREST YOU)
244 (WHAT IS IT YOU REALLY WANT TO KNOW)
245 (ARE SUCH QUESTIONS MUCH ON YOUR MIND)
246 (WHAT ANSWER WOULD PLEASE YOU MOST)
247 (WHAT DO YOU THINK) (WHAT COMES TO YOUR MIND WHEN YOU ASK THAT)
248 (HAVE YOU ASKED SUCH QUESTION BEFORE)
249 (HAVE YOU ASKED ANYONE ELSE)))
250
251 (BECAUSE ((0) (IS THAT THE REAL REASON) (DON'T ANY OTHER REASONS
252 COME TO MIND) (DOES THAT REASON SEEM TO EXPLAIN ANYTHING ELSE)
253 (WHAT OTHER REASONS MIGHT THERE BE)))
254
255 (WHY ((0 WHY DON'T I 0) (DO YOU BELIEVE I DON'T 5) (PERHAPS I
256 WILL 5 IN GOOD TIME) (SHOULD YOU 5 YOURSELF) (YOU WANT ME TO 5)
257 (=WHAT))
258 ((0 WHY CAN'T YOU 0) (DO YOU THINK YOU SHOULD BE ABLE TO 5)
259 (DO YOU WANT TO BE ABLE TO 5) (DO YOU BELIEVE THIS WILL HELP YOU
260 TO 5) (HAVE YOU ANY IDEA WHY YOU CAN'T 5) (=WHAT))
261 (= WHAT))
262
263 (EVERYONE 2 ((0 (* EVERYONE EVERYBODY NOBODY NOONE) 0 )
264 (REALLY, 2) (SURELY NOT 2) (CAN YOU THINK OF
265 ANYONE IN PARTICULAR) (WHO, FOR EXAMPLE) (YOU ARE THINKING OF
266 A VERY SPECIAL PERSON)
267 (WHO, MAY I ASK) (SOMEONE SPECIAL PERHAPS)
268 (YOU HAVE A PARTICULAR PERSON IN MIND, DON'T YOU) (WHO DO YOU
269 THINK YOU'RE TALKING ABOUT)))
270
271 (EVERYBODY 2 (= EVERYONE))
272
273 (NOBODY 2 (=EVERYONE))
274
275 (NOONE 2 (=EVERYONE))
276
277 (ALWAYS 1 ((0) (CAN YOU THINK OF A SPECIFIC EXAMPLE) (WHEN)
278 (WHAT INCIDENT ARE YOU THINKING OF) (REALLY, ALWAYS)))
279
280 (LIKE 10 ((0 (*AM IS ARE WAS) 0 LIKE 0) (=DIT))
281 ((0) (NEWKEY)) )
282
283 (DIT ((0) (IN WHAT WAY)  (WHAT RESEMBLANCE DO YOU SEE)
284 (WHAT DOES THAT SIMILARITY SUGGEST TO YOU)
285 (WHAT OTHER CONNECTIONS DO YOU SEE)
286 (WHAT DO YOU SUPPOSE THAT RESEMBLANCE MEANS)
287 (WHAT IS THE CONNECTION, DO YOU SUPPOSE)
288 (COULD THERE REALLY BE SOME CONNECTION)
289 (HOW)))
290
291 ()