root/npc/sample/npc_pcre.txt @ 25

Revision 1, 12.1 kB (checked in by jinshiro, 17 years ago)
Line 
1prontera,152,181,5      script  MouseJstr       763,{
2
3// hello
4Lquote0:
5        npctalk "How do you do.  Please state your problem.";
6        end;
7
8// computer
9Lquote1:
10        switch(rand(4)) {
11                case 0: npctalk "Do computers worry you?"; break;
12                case 1: npctalk "What do you think about machines?"; break;
13                case 2: npctalk "Why do you mention computers?"; break;
14                case 3: npctalk "What do you think machines have to do with your problem?"; break;
15        }
16        end;
17
18// name
19Lquote2:
20        npctalk "I am not interested in names";
21        end;
22
23// sorry
24Lquote3:
25        switch(rand(3)) {
26                case 0: npctalk "Please don't apologize"; break;
27                case 1: npctalk "Apologies are not necessary"; break;
28                case 2: npctalk "What feelings do you have when you apologize"; break;
29        }
30        end;
31
32// I remember $@p2$
33Lquote4:
34        switch(rand(6)) {
35                case 0: npctalk "Do you often think of "+$@p2$+"?"; break;
36                case 1: npctalk "Does thinking of "+$@p2$+" bring anything else to mind?"; break;
37                case 2: npctalk "What else do you remember?"; break;
38                case 3: npctalk "Why do you recall "+$@p2$+" right now?"; break;
39                case 4: npctalk "What in the present situation reminds you of "+$@p2$+"?"; break;
40                case 5: npctalk "What is the connection between me and "+$@p2$+"?"; break;
41        }
42        end;
43
44//    do you remember
45Lquote5:
46        switch (rand(4)) {
47                case 0: npctalk "Did you think I would forget "+$@p2$+" ?"; break;
48                case 1: npctalk "Why do you think I should recall "+$@p2$+" now"; break;
49                case 2: npctalk "What about "+$@p2$+""; break;
50                case 3: npctalk "You mentioned "+$@p2$+""; break;
51        }
52        end;
53
54// if
55Lquote6:
56        switch(rand(4)) {
57                case 0: npctalk "Do you really think its likely that "+$@p2$+""; break;
58                case 1: npctalk "Do you wish that "+$@p2$+"?"; break;
59                case 2: npctalk "What do you think about "+$@p2$+"?"; break;
60                case 3: npctalk "Really-- if "+$@p2$+"?"; break;
61        }
62        end;
63
64//  i dreamt
65Lquote7:
66        switch(rand(3)) {
67                case 0: npctalk "Really-- "+$@p2$+""; break;
68                case 1: npctalk "Have you ever fantasized "+$@p2$+" while you were awake?"; break;
69                case 2: npctalk "Have you dreamt "+$@p2$+" before?"; break;
70        }
71        end;
72
73//   dream about
74Lquote8:
75        npctalk "How do you feel about "+$@p2$+" in reality?";
76        end;
77
78//  dream
79Lquote9:
80        switch(rand(4)) {
81                case 0: npctalk "What does this dream suggest to you?"; break;
82                case 1: npctalk "Do you dream often?"; break;
83                case 2: npctalk "What persons appear in your dreams?"; break;
84                case 3: npctalk "Don't you believe that dream has to do with your problem?"; break;
85        }
86        end;
87
88//   my mother
89Lquote10:
90        switch(rand(2)) {
91                case 0: npctalk "Who else in your family "+$@p2$+""; break;
92                case 1: npctalk "Tell me more about your family"; break;
93        }
94        end;
95
96//   my father
97Lquote11:
98        switch(rand(3)) {
99                case 0: npctalk "Your father"; break;
100                case 1: npctalk "Does he influence you strongly?"; break;
101                case 2: npctalk "What else comes to mind when you think of your father?"; break;
102        }
103        end;
104
105//   I want
106Lquote12:
107        switch(rand(3)) {
108                case 0: npctalk "What would it mean if you got "+$@p2$+""; break;
109                case 1: npctalk "Why do you want "+$@p2$+""; break;
110                case 2: npctalk "Suppose you got "+$@p2$+" soon"; break;
111        }
112        end;
113
114//    I am glad
115Lquote13:
116        switch(rand(3)) {
117                case 0: npctalk "How have I helped you to be "+$@p2$+""; break;
118                case 1: npctalk "What makes you happy just now"; break;
119                case 2: npctalk "Can you explain why you are suddenly "+$@p2$+""; break;
120        }
121        end;
122
123//    I am sad
124Lquote14:
125        switch(rand(2)) {
126                case 0: npctalk "I am sorry to hear you are depressed"; break;
127                case 1: npctalk "I'm sure its not pleasant to be sad"; break;
128        }
129        end;
130
131//   $@p2 are like "+$@p3$+"
132Lquote15:
133        npctalk "What resemblance do you see between "+$@p2$+" and "+$@p3$+"";
134        end;
135
136//   "+$@p2$+" is like "+$@p3$+"
137Lquote16:
138        switch(rand(4)) {
139                case 0: npctalk "In what way is it that "+$@p2$+" is like "+$@p3$+""; break;
140                case 1: npctalk "What resemblance do you see?"; break;
141                case 2: npctalk "Could there really be some connection?"; break;
142                case 3: npctalk "How?"; break;
143        }
144        end;
145
146//   alike
147Lquote17:
148        switch(rand(2)) {
149                case 0: npctalk "In what way?"; break;
150                case 1: npctalk "What similarities are there?"; break;
151        }
152        end;
153
154//    same
155Lquote18:
156        npctalk "What other connections do you see?";
157        end;
158
159//   I was "+$@p2$+"
160Lquote19:
161        switch(rand(3)) {
162                case 0: npctalk "Were you really?"; break;
163                case 1: npctalk "Perhaps I already knew you were "+$@p2$+""; break;
164                case 2: npctalk "Why do you tell me you were "+$@p2$+" now?"; break;
165        }
166        end;
167
168//    was I
169Lquote20:
170        switch(rand(3)) {
171                case 0: npctalk "What if you were "+$@p2$+" ?"; break;
172                case 1: npctalk "Do you thin you were "+$@p2$+""; break;
173                case 2: npctalk "What would it mean if you were "+$@p2$+""; break;
174        }
175        end;
176
177//    I am
178Lquote21:
179        switch(rand(2)) {
180                case 0: npctalk "In what way are you "+$@p2$+""; break;
181                case 1: npctalk "Do you want to be "+$@p2$+" ?"; break;
182        }
183        end;
184
185//   am I
186Lquote22:
187        switch(rand(4)) {
188                case 0: npctalk "Do you believe you are "+$@p2$+""; break;
189                case 1: npctalk "Would you want to be "+$@p2$+""; break;
190                case 2: npctalk "You wish I would tell you you are "+$@p2$+""; break;
191                case 3: npctalk "What would it mean if you were "+$@p2$+""; break;
192        }
193        end;
194
195//   am
196Lquote23:
197        switch(rand(2)) {
198                case 0: npctalk "Why do you say AM?"; break;
199                case 1: npctalk "I don't understand that"; break;
200        }
201        end;
202
203//    are you
204Lquote24:
205        switch(rand(3)) {
206                case 0: npctalk "Why are you interested in whether I am "+$@p2$+" or not?"; break;
207                case 1: npctalk "Would you prefer if I weren't "+$@p2$+""; break;
208                case 2: npctalk "Perhaps I am "+$@p2$+" in your fantasies"; break;
209        }
210        end;
211
212//   you are
213Lquote25:
214        npctalk "What makes you think I am "+$@p2$+" ?";
215        end;
216
217//   because
218Lquote26:
219        switch(rand(3)) {
220                case 0: npctalk "Is that the real reason?"; break;
221                case 1: npctalk "What other reasons might there be?"; break;
222                case 2: npctalk "Does that reason seem to explain anything else?"; break;
223        }
224        end;
225
226//    were you
227Lquote27:
228        switch(rand(3)) {
229                case 0: npctalk "Perhaps I was "+$@p2$+""; break;
230                case 1: npctalk "What do you think?"; break;
231                case 2: npctalk "What if I had been "+$@p2$+""; break;
232        }
233        end;
234
235//   I can't
236Lquote28:
237        switch(rand(2)) {
238                case 0: npctalk "Maybe you could "+$@p2$+" now"; break;
239                case 1: npctalk "What if you could "+$@p2$+" ?"; break;
240        }
241        end;
242
243//    I feel
244Lquote29:
245        npctalk "Do you often feel "+$@p2$+" ?";
246        end;
247
248//    I felt
249Lquote30:
250        npctalk "What other feelings do you have?";
251        end;
252
253//   $@p1$ I $@p2$ you $@p3$
254Lquote31:
255        npctalk "Perhaps in your fantasy we "+$@p3$+" each other?";
256        end;
257
258//   why don't you
259Lquote32:
260        switch(rand(3)) {
261                case 0: npctalk "Should you "+$@p2$+" yourself?"; break;
262                case 1: npctalk "Do you believe I don't "+$@p2$+""; break;
263                case 2: npctalk "Perhaps I will "+$@p2$+" in good time"; break;
264        }
265        end;
266
267//   yes
268Lquote33:
269        switch(rand(3)) {
270                case 0: npctalk "You seem quite positive"; break;
271                case 1: npctalk "You are sure?"; break;
272                case 2: npctalk "I understand"; break;
273        }
274        end;
275
276//    no
277Lquote34:
278        switch(rand(3)) {
279                case 0: npctalk "Why not?"; break;
280                case 1: npctalk "You are being a bit negative"; break;
281                case 2: npctalk "Are you saying NO just to be negative?"; break;
282        }
283        end;
284
285//    someone
286Lquote35:
287        npctalk "Can you be more specific?";
288        end;
289
290//    everyone
291Lquote36:
292        switch(rand(4)) {
293                case 0: npctalk "surely not everyone"; break;
294                case 1: npctalk "Can you think of anyone in particular?"; break;
295                case 2: npctalk "Who for example?"; break;
296                case 3: npctalk "You are thinking of a special person?"; break;
297        }
298        end;
299
300//  always
301Lquote37:
302        switch(rand(4)) {
303                case 0: npctalk "Can you think of a specific example?"; break;
304                case 1: npctalk "When?"; break;
305                case 2: npctalk "What incident are you thinking of?"; break;
306                case 3: npctalk "Really-- always?"; break;
307        }
308        end;
309
310//   what
311Lquote38:
312        switch(rand(5)) {
313                case 0: npctalk "Why do you ask?"; break;
314                case 1: npctalk "Does that question interest you?"; break;
315                case 2: npctalk "What is it you really want to know?"; break;
316                case 3: npctalk "What do you think?"; break;
317                case 4: npctalk "What comes to your mind when you ask that?"; break;
318        }
319        end;
320
321//   perhaps
322Lquote39:
323        npctalk "You do not seem quite certain";
324        end;
325
326//   are
327Lquote40:
328        switch(rand(2)) {
329                case 0: npctalk "Did you think they might not be "+$@p2$+""; break;
330                case 1: npctalk "Possibly they are "+$@p2$; break;
331        }
332        end;
333
334//   default
335Lquote41:
336        switch(rand(6)) {
337                case 0: npctalk "Very interesting"; break;
338                case 1: npctalk "I am not sure I understand you fully"; break;
339                case 2: npctalk "What does that suggest to you?"; break;
340                case 3: npctalk "Please continue"; break;
341                case 4: npctalk "Go on"; break;
342                case 5: npctalk "Do you feel strongly about discussing such things?"; break;
343        }
344        end;
345
346OnInit:
347        defpattern 1, "([^:]+):.*\\shello.*", "Lquote0";
348        defpattern 1, "([^:]+):.*\\scomputer.*", "Lquote1";
349        defpattern 1, "([^:]+):.*\\sname.*", "Lquote2";
350        defpattern 1, "([^:]+):.*\\ssorry.*", "Lquote3";
351        defpattern 1, "([^:]+):.*\\si\\s+remember\\s+(.*)", "Lquote4";
352        defpattern 1, "([^:]+):.*\\sdo\\s+you\\s+remember\\s+(.*)", "Lquote5";
353        defpattern 1, "([^:]+):.*\\sif\\s+(.*)", "Lquote6";
354        defpattern 1, "([^:]+):.*\\si\\s+dreamt\\s+(.*)", "Lquote7";
355        defpattern 1, "([^:]+):.*\\sdream\\s+about\\s+(.*)", "Lquote8";
356        defpattern 1, "([^:]+):.*\\sdream\\s+(.*)", "Lquote9";
357        defpattern 1, "([^:]+):.*\\smy\\s+mother\\s+(.*)", "Lquote10";
358        defpattern 1, "([^:]+):.*\\smy\\s+father\\s+(.*)", "Lquote11";
359        defpattern 1, "([^:]+):.*\\si\\s+want\\s+(.*)", "Lquote12";
360        defpattern 1, "([^:]+):.*\\si\\s+am\\s+glad\\s+(.*)", "Lquote13";
361        defpattern 1, "([^:]+):\\s+(.*)\\s+i\\s+am\\s+sad\\s+(.*)", "Lquote14";
362        defpattern 1, "([^:]+):\\s+(.*)\\s+are\\s+like\\s+(.*)", "Lquote15";
363        defpattern 1, "([^:]+):\\s+(.*)\\s+is\\s+like\\s+(.*)", "Lquote16";
364        defpattern 1, "([^:]+):.*\\salike\\s+(.*)", "Lquote17";
365        defpattern 1, "([^:]+):.*\\ssame\\s+(.*)", "Lquote18";
366        defpattern 1, "([^:]+):.*\\si\\s+was\\s+(.*)", "Lquote19";
367        defpattern 1, "([^:]+):.*\\swas\\s+i\\s+(.*)", "Lquote20";
368        defpattern 1, "([^:]+):.*\\si\\s+am\\s+(.*)", "Lquote21";
369        defpattern 1, "([^:]+):.*\\sam\\s+i\\s+(.*)", "Lquote22";
370        defpattern 1, "([^:]+):.*\\sam\\s+(.*)", "Lquote23";
371        defpattern 1, "([^:]+):.*\\sare\\s+you\\s+(.*)", "Lquote24";
372        defpattern 1, "([^:]+):.*\\syou\\s+are\\s+(.*)", "Lquote25";
373        defpattern 1, "([^:]+):.*\\sbecause\\s+(.*)", "Lquote26";
374        defpattern 1, "([^:]+):.*\\swere\\s+you\\s+(.*)", "Lquote27";
375        defpattern 1, "([^:]+):.*\\si\\s+(cant|can't|cannot)\\s+(.*)", "Lquote28";
376        defpattern 1, "([^:]+):.*\\si\\s+feel\\s+(.*)", "Lquote29";
377        defpattern 1, "([^:]+):.*\\si\\s+felt\\s+(.*)", "Lquote30";
378        defpattern 1, "([^:]+):.*\\si\\s+(.*)\\s+you\\s+(.*)", "Lquote31";
379        defpattern 1, "([^:]+):.*\\swhy\\s+(don't|dont)\\s+you\\s+(.*)", "Lquote32";
380        defpattern 1, "([^:]+):.*\\syes\\s+(.*)", "Lquote33";
381        defpattern 1, "([^:]+):.*\\sno\\s+(.*)", "Lquote34";
382        defpattern 1, "([^:]+):.*\\ssomeone\\s+(.*)", "Lquote35";
383        defpattern 1, "([^:]+):.*\\severyone\\s+(.*)", "Lquote36";
384        defpattern 1, "([^:]+):.*\\salways\\s+(.*)", "Lquote37";
385        defpattern 1, "([^:]+):.*\\swhat\\s+(.*)", "Lquote38";
386        defpattern 1, "([^:]+):.*\\sperhaps\\s+(.*)", "Lquote39";
387        defpattern 1, "([^:]+):.*\\sare\\s+(.*)", "Lquote40";
388        defpattern 1, "([^:]+):(.*)", "Lquote41";
389
390        activatepset 1;
391        end;
392}
Note: See TracBrowser for help on using the browser.