diff options
Diffstat (limited to 'npc/other/eliza.txt')
| -rw-r--r-- | npc/other/eliza.txt | 702 |
1 files changed, 0 insertions, 702 deletions
diff --git a/npc/other/eliza.txt b/npc/other/eliza.txt deleted file mode 100644 index d5c3c0765..000000000 --- a/npc/other/eliza.txt +++ /dev/null @@ -1,702 +0,0 @@ -prontera.gat,152,181,5 script MouseJstr 763,{ - -// hello -Lquote0: - npctalk "How do you do. Please state your problem."; - break; -// computer -Lquote1: - set $foo,rand(4); - if($foo == 0) goto Lquote1a; - if($foo == 1) goto Lquote1b; - if($foo == 2) goto Lquote1c; - if($foo == 3) goto Lquote1d; -Lquote1a: - npctalk "Do computers worry you?"; - break; -Lquote1b: - npctalk "What do you think about machines?"; - break; -Lquote1c: - npctalk "Why do you mention computers?"; - break; -Lquote1d: - npctalk "What do you think machines have to do with your problem?"; - break; -// name -Lquote2: - npctalk "I am not interested in names"; - break; -// sorry -Lquote3: - set $foo,rand(3); - if($foo == 0) goto Lquote3a; - if($foo == 1) goto Lquote3b; - if($foo == 2) goto Lquote3c; - -Lquote3a: - npctalk "Please don't apologize"; - break; - -Lquote3b: - npctalk "Apologies are not necessary"; - break; - -Lquote3c: - npctalk "What feelings do you have when you apologize"; - break; - -// I remember $p2$ -Lquote4: - set $foo,rand(6); - if($foo == 0) goto Lquote4a; - if($foo == 1) goto Lquote4b; - if($foo == 2) goto Lquote4c; - if($foo == 3) goto Lquote4d; - if($foo == 4) goto Lquote4e; - if($foo == 5) goto Lquote4f; - -Lquote4a: - npctalk "Do you often think of "+$p2$+"?"; - break; - -Lquote4b: - npctalk "Does thinking of "+$p2$+" bring anything else to mind?"; - break; - -Lquote4c: - npctalk "What else do you remember?"; - break; - -Lquote4d: - npctalk "Why do you recall "+$p2$+" right now?"; - break; - -Lquote4e: - npctalk "What in the present situation reminds you of "+$p2$+"?"; - break; - -Lquote4f: - npctalk "What is the connection between me and "+$p2$+"?"; - break; - -// do you remember -Lquote5: - set $foo,rand(4); - if($foo == 0) goto Lquote5a; - if($foo == 1) goto Lquote5b; - if($foo == 2) goto Lquote5c; - if($foo == 3) goto Lquote5d; -Lquote5a: - npctalk "Did you think I would forget "+$p2$+" ?"; - break; - -Lquote5b: - npctalk "Why do you think I should recall "+$p2$+" now"; - break; - -Lquote5c: - npctalk "What about "+$p2$+""; - break; - -Lquote5d: - npctalk "You mentioned "+$p2$+""; - break; - -// if -Lquote6: - set $foo,rand(4); - if($foo == 0) goto Lquote6a; - if($foo == 1) goto Lquote6b; - if($foo == 2) goto Lquote6c; - if($foo == 3) goto Lquote6d; -Lquote6a: - npctalk "Do you really think its likely that "+$p2$+""; - break; - -Lquote6b: - npctalk "Do you wish that "+$p2$+"?"; - break; - -Lquote6c: - npctalk "What do you think about "+$p2$+"?"; - break; - -Lquote6d: - npctalk "Really-- if "+$p2$+"?"; - break; - -// i dreamt -Lquote7: - set $foo,rand(3); - if($foo == 0) goto Lquote7a; - if($foo == 1) goto Lquote7b; - if($foo == 2) goto Lquote7c; -Lquote7a: - npctalk "Really-- "+$p2$+""; - break; - -Lquote7b: - npctalk "Have you ever fantasized "+$p2$+" while you were awake?"; - break; - -Lquote7c: - npctalk "Have you dreamt "+$p2$+" before?"; - break; - -// dream about - -Lquote8: - npctalk "How do you feel about "+$p2$+" in reality?"; - break; - -// dream -Lquote9: - set $foo,rand(4); - if($foo == 0) goto Lquote9a; - if($foo == 1) goto Lquote9b; - if($foo == 2) goto Lquote9c; - if($foo == 3) goto Lquote9d; -Lquote9a: - npctalk "What does this dream suggest to you?"; - break; - -Lquote9b: - npctalk "Do you dream often?"; - break; - -Lquote9c: - npctalk "What persons appear in your dreams?"; - break; - -Lquote9d: - npctalk "Don't you believe that dream has to do with your problem?"; - break; - -// my mother -Lquote10: - set $foo,rand(2); - if($foo == 0) goto Lquote10a; - if($foo == 1) goto Lquote10b; -Lquote10a: - npctalk "Who else in your family "+$p2$+""; - break; - -Lquote10b: - npctalk "Tell me more about your family"; - break; - -// my father -Lquote11: - set $foo,rand(3); - if($foo == 0) goto Lquote11a; - if($foo == 1) goto Lquote11b; - if($foo == 2) goto Lquote11c; -Lquote11a: - npctalk "Your father"; - break; - -Lquote11b: - npctalk "Does he influence you strongly?"; - break; - -Lquote11c: - npctalk "What else comes to mind when you think of your father?"; - break; - -// I want -Lquote12: - set $foo,rand(3); - if($foo == 0) goto Lquote12a; - if($foo == 1) goto Lquote12b; - if($foo == 2) goto Lquote12c; -Lquote12a: - npctalk "What would it mean if you got "+$p2$+""; - break; - -Lquote12b: - npctalk "Why do you want "+$p2$+""; - break; - -Lquote12c: - npctalk "Suppose you got "+$p2$+" soon"; - break; - -// I am glad -Lquote13: - set $foo,rand(3); - if($foo == 0) goto Lquote13a; - if($foo == 1) goto Lquote13b; - if($foo == 2) goto Lquote13c; -Lquote13a: - npctalk "How have I helped you to be "+$p2$+""; - break; - -Lquote13b: - npctalk "What makes you happy just now"; - break; - -Lquote13c: - npctalk "Can you explain why you are suddenly "+$p2$+""; - break; - -// I am sad -Lquote14: - set $foo,rand(2); - if($foo == 0) goto Lquote14a; - if($foo == 1) goto Lquote14b; -Lquote14a: - npctalk "I am sorry to hear you are depressed"; - break; - -Lquote14b: - npctalk "I'm sure its not pleasant to be sad"; - break; - -// $p2 are like "+$p3$+" -Lquote15: - npctalk "What resemblance do you see between "+$p2$+" and "+$p3$+""; - break; - -// "+$p2$+" is like "+$p3$+" -Lquote16: - set $foo,rand(4); - if($foo == 0) goto Lquote16a; - if($foo == 1) goto Lquote16b; - if($foo == 2) goto Lquote16c; - if($foo == 3) goto Lquote16d; -Lquote16a: - npctalk "In what way is it that "+$p2$+" is like "+$p3$+""; - break; - -Lquote16b: - npctalk "What resemblance do you see?"; - break; - -Lquote16c: - npctalk "Could there really be some connection?"; - break; - -Lquote16d: - npctalk "How?"; - break; -// alike -Lquote17: - set $foo,rand(2); - if($foo == 0) goto Lquote17a; - if($foo == 1) goto Lquote17b; -Lquote17a: - npctalk "In what way?"; - break; - -Lquote17b: - npctalk "What similarities are there?"; - break; -// same -Lquote18: - npctalk "What other connections do you see?"; - break; - -// I was "+$p2$+" -Lquote19: - set $foo,rand(3); - if($foo == 0) goto Lquote19a; - if($foo == 1) goto Lquote19b; - if($foo == 2) goto Lquote19c; -Lquote19a: - npctalk "Were you really?"; - break; - -Lquote19b: - npctalk "Perhaps I already knew you were "+$p2$+""; - break; - -Lquote19c: - npctalk "Why do you tell me you were "+$p2$+" now?"; - break; - -// was I -Lquote20: - set $foo,rand(3); - if($foo == 0) goto Lquote20a; - if($foo == 1) goto Lquote20b; - if($foo == 2) goto Lquote20c; -Lquote20a: - npctalk "What if you were "+$p2$+" ?"; - break; - -Lquote20b: - npctalk "Do you thin you were "+$p2$+""; - break; - -Lquote20c: - npctalk "What would it mean if you were "+$p2$+""; - break; - -// I am -Lquote21: - set $foo,rand(2); - if($foo == 0) goto Lquote21a; - if($foo == 1) goto Lquote21b; -Lquote21a: - npctalk "In what way are you "+$p2$+""; - break; - -Lquote21b: - npctalk "Do you want to be "+$p2$+" ?"; - break; - -// am I -Lquote22: - set $foo,rand(4); - if($foo == 0) goto Lquote22a; - if($foo == 1) goto Lquote22b; - if($foo == 2) goto Lquote22c; - if($foo == 3) goto Lquote22d; -Lquote22a: - npctalk "Do you believe you are "+$p2$+""; - break; - -Lquote22b: - npctalk "Would you want to be "+$p2$+""; - break; - -Lquote22c: - npctalk "You wish I would tell you you are "+$p2$+""; - break; - -Lquote22d: - npctalk "What would it mean if you were "+$p2$+""; - break; - -// am -Lquote23: - set $foo,rand(2); - if($foo == 0) goto Lquote23a; - if($foo == 1) goto Lquote23b; - -Lquote23a: - npctalk "Why do you say AM?"; - break; - -Lquote23b: - npctalk "I don't understand that"; - break; - -// are you -Lquote24: - set $foo,rand(3); - if($foo == 0) goto Lquote24a; - if($foo == 1) goto Lquote24b; - if($foo == 2) goto Lquote24c; -Lquote24a: - npctalk "Why are you interested in whether I am "+$p2$+" or not?"; - break; - -Lquote24b: - npctalk "Would you prefer if I weren't "+$p2$+""; - break; - -Lquote24c: - npctalk "Perhaps I am "+$p2$+" in your fantasies"; - break; - -// you are -Lquote25: - npctalk "What makes you think I am "+$p2$+" ?"; - break; - -// because -Lquote26: - set $foo,rand(3); - if($foo == 0) goto Lquote26a; - if($foo == 1) goto Lquote26b; - if($foo == 2) goto Lquote26c; -Lquote26a: - npctalk "Is that the real reason?"; - break; - -Lquote26b: - npctalk "What other reasons might there be?"; - break; - -Lquote26c: - npctalk "Does that reason seem to explain anything else?"; - break; - -// were you -Lquote27: - set $foo,rand(3); - if($foo == 0) goto Lquote27a; - if($foo == 1) goto Lquote27b; - if($foo == 2) goto Lquote27c; -Lquote27a: - npctalk "Perhaps I was "+$p2$+""; - break; - -Lquote27b: - npctalk "What do you think?"; - break; - -Lquote27c: - npctalk "What if I had been "+$p2$+""; - break; - -// I can't -Lquote28: - set $foo,rand(2); - if($foo == 0) goto Lquote28a; - if($foo == 1) goto Lquote28b; -Lquote28a: - npctalk "Maybe you could "+$p2$+" now"; - break; - -Lquote28b: - npctalk "What if you could "+$p2$+" ?"; - break; - -// I feel -Lquote29: - npctalk "Do you often feel "+$p2$+" ?"; - break; - -// I felt -Lquote30: - npctalk "What other feelings do you have?"; - break; - -// $p1$ I $p2$ you $p3$ -Lquote31: - npctalk "Perhaps in your fantasy we "+$p3$+" each other?"; - break; - -// why don't you -Lquote32: - set $foo,rand(3); - if($foo == 0) goto Lquote32a; - if($foo == 1) goto Lquote32b; - if($foo == 2) goto Lquote32c; -Lquote32a: - npctalk "Should you "+$p2$+" yourself?"; - break; - -Lquote32b: - npctalk "Do you believe I don't "+$p2$+""; - break; - -Lquote32c: - npctalk "Perhaps I will "+$p2$+" in good time"; - break; - -// yes -Lquote33: - set $foo,rand(3); - if($foo == 0) goto Lquote33a; - if($foo == 1) goto Lquote33b; - if($foo == 2) goto Lquote33c; -Lquote33a: - npctalk "You seem quite positive"; - break; - -Lquote33b: - npctalk "You are sure?"; - break; - -Lquote33c: - npctalk "I understand"; - break; - -// no -Lquote34: - set $foo,rand(3); - if($foo == 0) goto Lquote34a; - if($foo == 1) goto Lquote34b; - if($foo == 2) goto Lquote34c; -Lquote34a: - npctalk "Why not?"; - break; - -Lquote34b: - npctalk "You are being a bit negative"; - break; - -Lquote34c: - npctalk "Are you saying NO just to be negative?"; - break; - -// someone -Lquote35: - npctalk "Can you be more specific?"; - break; - -// everyone -Lquote36: - set $foo,rand(4); - if($foo == 0) goto Lquote36a; - if($foo == 1) goto Lquote36b; - if($foo == 2) goto Lquote36c; - if($foo == 3) goto Lquote36d; -Lquote36a: - npctalk "surely not everyone"; - break; - -Lquote36b: - npctalk "Can you think of anyone in particular?"; - break; - -Lquote36c: - npctalk "Who for example?"; - break; - -Lquote36d: - npctalk "You are thinking of a special person?"; - break; - -// always -Lquote37: - set $foo,rand(4); - if($foo == 0) goto Lquote37a; - if($foo == 1) goto Lquote37b; - if($foo == 2) goto Lquote37c; - if($foo == 3) goto Lquote37d; -Lquote37a: - npctalk "Can you think of a specific example?"; - break; - -Lquote37b: - npctalk "When?"; - break; - -Lquote37c: - npctalk "What incident are you thinking of?"; - break; - -Lquote37d: - npctalk "Really-- always?"; - break; - -// what -Lquote38: - set $foo,rand(5); - if($foo == 0) goto Lquote38a; - if($foo == 1) goto Lquote38b; - if($foo == 2) goto Lquote38c; - if($foo == 3) goto Lquote38d; - if($foo == 4) goto Lquote38e; -Lquote38a: - npctalk "Why do you ask?"; - break; - -Lquote38b: - npctalk "Does that question interest you?"; - break; - -Lquote38c: - npctalk "What is it you really want to know?"; - break; - -Lquote38d: - npctalk "What do you think?"; - break; - -Lquote38e: - npctalk "What comes to your mind when you ask that?"; - break; - -// perhaps -Lquote39: - npctalk "You do not seem quite certain"; - break; - -// are -Lquote40: - set $foo,rand(2); - if($foo == 0) goto Lquote40a; - if($foo == 1) goto Lquote40b; -Lquote40a: - npctalk "Did you think they might not be "+$p2$+""; - break; - -Lquote40b: - npctalk "Possibly they are "+$p2$; - break; - -// default -Lquote41: - set $foo,rand(6); - if($foo == 0) goto Lquote41a; - if($foo == 1) goto Lquote41b; - if($foo == 2) goto Lquote41c; - if($foo == 3) goto Lquote41d; - if($foo == 4) goto Lquote41e; - if($foo == 5) goto Lquote41f; -Lquote41a: - npctalk "Very interesting"; - break; - -Lquote41b: - npctalk "I am not sure I understand you fully"; - break; - -Lquote41c: - npctalk "What does that suggest to you?"; - break; - -Lquote41d: - npctalk "Please continue"; - break; - -Lquote41e: - npctalk "Go on"; - break; - -Lquote41f: - npctalk "Do you feel strongly about discussing such things?"; - break; -OnInit: - defpattern 1, "([^:]+):.*\\shello.*", "Lquote0"; - defpattern 1, "([^:]+):.*\\scomputer.*", "Lquote1"; - defpattern 1, "([^:]+):.*\\sname.*", "Lquote2"; - defpattern 1, "([^:]+):.*\\ssorry.*", "Lquote3"; - defpattern 1, "([^:]+):.*\\si\\s+remember\\s+(.*)", "Lquote4"; - defpattern 1, "([^:]+):.*\\sdo\\s+you\\s+remember\\s+(.*)", "Lquote5"; - defpattern 1, "([^:]+):.*\\sif\\s+(.*)", "Lquote6"; - defpattern 1, "([^:]+):.*\\si\\s+dreamt\\s+(.*)", "Lquote7"; - defpattern 1, "([^:]+):.*\\sdream\\s+about\\s+(.*)", "Lquote8"; - defpattern 1, "([^:]+):.*\\sdream\\s+(.*)", "Lquote9"; - defpattern 1, "([^:]+):.*\\smy\\s+mother\\s+(.*)", "Lquote10"; - defpattern 1, "([^:]+):.*\\smy\\s+father\\s+(.*)", "Lquote11"; - defpattern 1, "([^:]+):.*\\si\\s+want\\s+(.*)", "Lquote12"; - defpattern 1, "([^:]+):.*\\si\\s+am\\s+glad\\s+(.*)", "Lquote13"; - defpattern 1, "([^:]+):\\s+(.*)\\s+i\\s+am\\s+sad\\s+(.*)", "Lquote14"; - defpattern 1, "([^:]+):\\s+(.*)\\s+are\\s+like\\s+(.*)", "Lquote15"; - defpattern 1, "([^:]+):\\s+(.*)\\s+is\\s+like\\s+(.*)", "Lquote16"; - defpattern 1, "([^:]+):.*\\salike\\s+(.*)", "Lquote17"; - defpattern 1, "([^:]+):.*\\ssame\\s+(.*)", "Lquote18"; - defpattern 1, "([^:]+):.*\\si\\s+was\\s+(.*)", "Lquote19"; - defpattern 1, "([^:]+):.*\\swas\\s+i\\s+(.*)", "Lquote20"; - defpattern 1, "([^:]+):.*\\si\\s+am\\s+(.*)", "Lquote21"; - defpattern 1, "([^:]+):.*\\sam\\s+i\\s+(.*)", "Lquote22"; - defpattern 1, "([^:]+):.*\\sam\\s+(.*)", "Lquote23"; - defpattern 1, "([^:]+):.*\\sare\\s+you\\s+(.*)", "Lquote24"; - defpattern 1, "([^:]+):.*\\syou\\s+are\\s+(.*)", "Lquote25"; - defpattern 1, "([^:]+):.*\\sbecause\\s+(.*)", "Lquote26"; - defpattern 1, "([^:]+):.*\\swere\\s+you\\s+(.*)", "Lquote27"; - defpattern 1, "([^:]+):.*\\si\\s+(cant|can't|cannot)\\s+(.*)", "Lquote28"; - defpattern 1, "([^:]+):.*\\si\\s+feel\\s+(.*)", "Lquote29"; - defpattern 1, "([^:]+):.*\\si\\s+felt\\s+(.*)", "Lquote30"; - defpattern 1, "([^:]+):.*\\si\\s+(.*)\\s+you\\s+(.*)", "Lquote31"; - defpattern 1, "([^:]+):.*\\swhy\\s+(don't|dont)\\s+you\\s+(.*)", "Lquote32"; - defpattern 1, "([^:]+):.*\\syes\\s+(.*)", "Lquote33"; - defpattern 1, "([^:]+):.*\\sno\\s+(.*)", "Lquote34"; - defpattern 1, "([^:]+):.*\\ssomeone\\s+(.*)", "Lquote35"; - defpattern 1, "([^:]+):.*\\severyone\\s+(.*)", "Lquote36"; - defpattern 1, "([^:]+):.*\\salways\\s+(.*)", "Lquote37"; - defpattern 1, "([^:]+):.*\\swhat\\s+(.*)", "Lquote38"; - defpattern 1, "([^:]+):.*\\sperhaps\\s+(.*)", "Lquote39"; - defpattern 1, "([^:]+):.*\\sare\\s+(.*)", "Lquote40"; - defpattern 1, "([^:]+):(.*)", "Lquote41"; - - activatepset 1; - break; -} |