eliza.txt 17 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702
  1. prontera.gat,152,181,5 script MouseJstr 763,{
  2. // hello
  3. Lquote0:
  4. npctalk "How do you do. Please state your problem.";
  5. end;
  6. // computer
  7. Lquote1:
  8. set $foo,rand(4);
  9. if($foo == 0) goto Lquote1a;
  10. if($foo == 1) goto Lquote1b;
  11. if($foo == 2) goto Lquote1c;
  12. if($foo == 3) goto Lquote1d;
  13. Lquote1a:
  14. npctalk "Do computers worry you?";
  15. end;
  16. Lquote1b:
  17. npctalk "What do you think about machines?";
  18. end;
  19. Lquote1c:
  20. npctalk "Why do you mention computers?";
  21. end;
  22. Lquote1d:
  23. npctalk "What do you think machines have to do with your problem?";
  24. end;
  25. // name
  26. Lquote2:
  27. npctalk "I am not interested in names";
  28. end;
  29. // sorry
  30. Lquote3:
  31. set $foo,rand(3);
  32. if($foo == 0) goto Lquote3a;
  33. if($foo == 1) goto Lquote3b;
  34. if($foo == 2) goto Lquote3c;
  35. Lquote3a:
  36. npctalk "Please don't apologize";
  37. end;
  38. Lquote3b:
  39. npctalk "Apologies are not necessary";
  40. end;
  41. Lquote3c:
  42. npctalk "What feelings do you have when you apologize";
  43. end;
  44. // I remember $p2$
  45. Lquote4:
  46. set $foo,rand(6);
  47. if($foo == 0) goto Lquote4a;
  48. if($foo == 1) goto Lquote4b;
  49. if($foo == 2) goto Lquote4c;
  50. if($foo == 3) goto Lquote4d;
  51. if($foo == 4) goto Lquote4e;
  52. if($foo == 5) goto Lquote4f;
  53. Lquote4a:
  54. npctalk "Do you often think of "+$p2$+"?";
  55. end;
  56. Lquote4b:
  57. npctalk "Does thinking of "+$p2$+" bring anything else to mind?";
  58. end;
  59. Lquote4c:
  60. npctalk "What else do you remember?";
  61. end;
  62. Lquote4d:
  63. npctalk "Why do you recall "+$p2$+" right now?";
  64. end;
  65. Lquote4e:
  66. npctalk "What in the present situation reminds you of "+$p2$+"?";
  67. end;
  68. Lquote4f:
  69. npctalk "What is the connection between me and "+$p2$+"?";
  70. end;
  71. // do you remember
  72. Lquote5:
  73. set $foo,rand(4);
  74. if($foo == 0) goto Lquote5a;
  75. if($foo == 1) goto Lquote5b;
  76. if($foo == 2) goto Lquote5c;
  77. if($foo == 3) goto Lquote5d;
  78. Lquote5a:
  79. npctalk "Did you think I would forget "+$p2$+" ?";
  80. end;
  81. Lquote5b:
  82. npctalk "Why do you think I should recall "+$p2$+" now";
  83. end;
  84. Lquote5c:
  85. npctalk "What about "+$p2$+"";
  86. end;
  87. Lquote5d:
  88. npctalk "You mentioned "+$p2$+"";
  89. end;
  90. // if
  91. Lquote6:
  92. set $foo,rand(4);
  93. if($foo == 0) goto Lquote6a;
  94. if($foo == 1) goto Lquote6b;
  95. if($foo == 2) goto Lquote6c;
  96. if($foo == 3) goto Lquote6d;
  97. Lquote6a:
  98. npctalk "Do you really think its likely that "+$p2$+"";
  99. end;
  100. Lquote6b:
  101. npctalk "Do you wish that "+$p2$+"?";
  102. end;
  103. Lquote6c:
  104. npctalk "What do you think about "+$p2$+"?";
  105. end;
  106. Lquote6d:
  107. npctalk "Really-- if "+$p2$+"?";
  108. end;
  109. // i dreamt
  110. Lquote7:
  111. set $foo,rand(3);
  112. if($foo == 0) goto Lquote7a;
  113. if($foo == 1) goto Lquote7b;
  114. if($foo == 2) goto Lquote7c;
  115. Lquote7a:
  116. npctalk "Really-- "+$p2$+"";
  117. end;
  118. Lquote7b:
  119. npctalk "Have you ever fantasized "+$p2$+" while you were awake?";
  120. end;
  121. Lquote7c:
  122. npctalk "Have you dreamt "+$p2$+" before?";
  123. end;
  124. // dream about
  125. Lquote8:
  126. npctalk "How do you feel about "+$p2$+" in reality?";
  127. end;
  128. // dream
  129. Lquote9:
  130. set $foo,rand(4);
  131. if($foo == 0) goto Lquote9a;
  132. if($foo == 1) goto Lquote9b;
  133. if($foo == 2) goto Lquote9c;
  134. if($foo == 3) goto Lquote9d;
  135. Lquote9a:
  136. npctalk "What does this dream suggest to you?";
  137. end;
  138. Lquote9b:
  139. npctalk "Do you dream often?";
  140. end;
  141. Lquote9c:
  142. npctalk "What persons appear in your dreams?";
  143. end;
  144. Lquote9d:
  145. npctalk "Don't you believe that dream has to do with your problem?";
  146. end;
  147. // my mother
  148. Lquote10:
  149. set $foo,rand(2);
  150. if($foo == 0) goto Lquote10a;
  151. if($foo == 1) goto Lquote10b;
  152. Lquote10a:
  153. npctalk "Who else in your family "+$p2$+"";
  154. end;
  155. Lquote10b:
  156. npctalk "Tell me more about your family";
  157. end;
  158. // my father
  159. Lquote11:
  160. set $foo,rand(3);
  161. if($foo == 0) goto Lquote11a;
  162. if($foo == 1) goto Lquote11b;
  163. if($foo == 2) goto Lquote11c;
  164. Lquote11a:
  165. npctalk "Your father";
  166. end;
  167. Lquote11b:
  168. npctalk "Does he influence you strongly?";
  169. end;
  170. Lquote11c:
  171. npctalk "What else comes to mind when you think of your father?";
  172. end;
  173. // I want
  174. Lquote12:
  175. set $foo,rand(3);
  176. if($foo == 0) goto Lquote12a;
  177. if($foo == 1) goto Lquote12b;
  178. if($foo == 2) goto Lquote12c;
  179. Lquote12a:
  180. npctalk "What would it mean if you got "+$p2$+"";
  181. end;
  182. Lquote12b:
  183. npctalk "Why do you want "+$p2$+"";
  184. end;
  185. Lquote12c:
  186. npctalk "Suppose you got "+$p2$+" soon";
  187. end;
  188. // I am glad
  189. Lquote13:
  190. set $foo,rand(3);
  191. if($foo == 0) goto Lquote13a;
  192. if($foo == 1) goto Lquote13b;
  193. if($foo == 2) goto Lquote13c;
  194. Lquote13a:
  195. npctalk "How have I helped you to be "+$p2$+"";
  196. end;
  197. Lquote13b:
  198. npctalk "What makes you happy just now";
  199. end;
  200. Lquote13c:
  201. npctalk "Can you explain why you are suddenly "+$p2$+"";
  202. end;
  203. // I am sad
  204. Lquote14:
  205. set $foo,rand(2);
  206. if($foo == 0) goto Lquote14a;
  207. if($foo == 1) goto Lquote14b;
  208. Lquote14a:
  209. npctalk "I am sorry to hear you are depressed";
  210. end;
  211. Lquote14b:
  212. npctalk "I'm sure its not pleasant to be sad";
  213. end;
  214. // $p2 are like "+$p3$+"
  215. Lquote15:
  216. npctalk "What resemblance do you see between "+$p2$+" and "+$p3$+"";
  217. end;
  218. // "+$p2$+" is like "+$p3$+"
  219. Lquote16:
  220. set $foo,rand(4);
  221. if($foo == 0) goto Lquote16a;
  222. if($foo == 1) goto Lquote16b;
  223. if($foo == 2) goto Lquote16c;
  224. if($foo == 3) goto Lquote16d;
  225. Lquote16a:
  226. npctalk "In what way is it that "+$p2$+" is like "+$p3$+"";
  227. end;
  228. Lquote16b:
  229. npctalk "What resemblance do you see?";
  230. end;
  231. Lquote16c:
  232. npctalk "Could there really be some connection?";
  233. end;
  234. Lquote16d:
  235. npctalk "How?";
  236. end;
  237. // alike
  238. Lquote17:
  239. set $foo,rand(2);
  240. if($foo == 0) goto Lquote17a;
  241. if($foo == 1) goto Lquote17b;
  242. Lquote17a:
  243. npctalk "In what way?";
  244. end;
  245. Lquote17b:
  246. npctalk "What similarities are there?";
  247. end;
  248. // same
  249. Lquote18:
  250. npctalk "What other connections do you see?";
  251. end;
  252. // I was "+$p2$+"
  253. Lquote19:
  254. set $foo,rand(3);
  255. if($foo == 0) goto Lquote19a;
  256. if($foo == 1) goto Lquote19b;
  257. if($foo == 2) goto Lquote19c;
  258. Lquote19a:
  259. npctalk "Were you really?";
  260. end;
  261. Lquote19b:
  262. npctalk "Perhaps I already knew you were "+$p2$+"";
  263. end;
  264. Lquote19c:
  265. npctalk "Why do you tell me you were "+$p2$+" now?";
  266. end;
  267. // was I
  268. Lquote20:
  269. set $foo,rand(3);
  270. if($foo == 0) goto Lquote20a;
  271. if($foo == 1) goto Lquote20b;
  272. if($foo == 2) goto Lquote20c;
  273. Lquote20a:
  274. npctalk "What if you were "+$p2$+" ?";
  275. end;
  276. Lquote20b:
  277. npctalk "Do you thin you were "+$p2$+"";
  278. end;
  279. Lquote20c:
  280. npctalk "What would it mean if you were "+$p2$+"";
  281. end;
  282. // I am
  283. Lquote21:
  284. set $foo,rand(2);
  285. if($foo == 0) goto Lquote21a;
  286. if($foo == 1) goto Lquote21b;
  287. Lquote21a:
  288. npctalk "In what way are you "+$p2$+"";
  289. end;
  290. Lquote21b:
  291. npctalk "Do you want to be "+$p2$+" ?";
  292. end;
  293. // am I
  294. Lquote22:
  295. set $foo,rand(4);
  296. if($foo == 0) goto Lquote22a;
  297. if($foo == 1) goto Lquote22b;
  298. if($foo == 2) goto Lquote22c;
  299. if($foo == 3) goto Lquote22d;
  300. Lquote22a:
  301. npctalk "Do you believe you are "+$p2$+"";
  302. end;
  303. Lquote22b:
  304. npctalk "Would you want to be "+$p2$+"";
  305. end;
  306. Lquote22c:
  307. npctalk "You wish I would tell you you are "+$p2$+"";
  308. end;
  309. Lquote22d:
  310. npctalk "What would it mean if you were "+$p2$+"";
  311. end;
  312. // am
  313. Lquote23:
  314. set $foo,rand(2);
  315. if($foo == 0) goto Lquote23a;
  316. if($foo == 1) goto Lquote23b;
  317. Lquote23a:
  318. npctalk "Why do you say AM?";
  319. end;
  320. Lquote23b:
  321. npctalk "I don't understand that";
  322. end;
  323. // are you
  324. Lquote24:
  325. set $foo,rand(3);
  326. if($foo == 0) goto Lquote24a;
  327. if($foo == 1) goto Lquote24b;
  328. if($foo == 2) goto Lquote24c;
  329. Lquote24a:
  330. npctalk "Why are you interested in whether I am "+$p2$+" or not?";
  331. end;
  332. Lquote24b:
  333. npctalk "Would you prefer if I weren't "+$p2$+"";
  334. end;
  335. Lquote24c:
  336. npctalk "Perhaps I am "+$p2$+" in your fantasies";
  337. end;
  338. // you are
  339. Lquote25:
  340. npctalk "What makes you think I am "+$p2$+" ?";
  341. end;
  342. // because
  343. Lquote26:
  344. set $foo,rand(3);
  345. if($foo == 0) goto Lquote26a;
  346. if($foo == 1) goto Lquote26b;
  347. if($foo == 2) goto Lquote26c;
  348. Lquote26a:
  349. npctalk "Is that the real reason?";
  350. end;
  351. Lquote26b:
  352. npctalk "What other reasons might there be?";
  353. end;
  354. Lquote26c:
  355. npctalk "Does that reason seem to explain anything else?";
  356. end;
  357. // were you
  358. Lquote27:
  359. set $foo,rand(3);
  360. if($foo == 0) goto Lquote27a;
  361. if($foo == 1) goto Lquote27b;
  362. if($foo == 2) goto Lquote27c;
  363. Lquote27a:
  364. npctalk "Perhaps I was "+$p2$+"";
  365. end;
  366. Lquote27b:
  367. npctalk "What do you think?";
  368. end;
  369. Lquote27c:
  370. npctalk "What if I had been "+$p2$+"";
  371. end;
  372. // I can't
  373. Lquote28:
  374. set $foo,rand(2);
  375. if($foo == 0) goto Lquote28a;
  376. if($foo == 1) goto Lquote28b;
  377. Lquote28a:
  378. npctalk "Maybe you could "+$p2$+" now";
  379. end;
  380. Lquote28b:
  381. npctalk "What if you could "+$p2$+" ?";
  382. end;
  383. // I feel
  384. Lquote29:
  385. npctalk "Do you often feel "+$p2$+" ?";
  386. end;
  387. // I felt
  388. Lquote30:
  389. npctalk "What other feelings do you have?";
  390. end;
  391. // $p1$ I $p2$ you $p3$
  392. Lquote31:
  393. npctalk "Perhaps in your fantasy we "+$p3$+" each other?";
  394. end;
  395. // why don't you
  396. Lquote32:
  397. set $foo,rand(3);
  398. if($foo == 0) goto Lquote32a;
  399. if($foo == 1) goto Lquote32b;
  400. if($foo == 2) goto Lquote32c;
  401. Lquote32a:
  402. npctalk "Should you "+$p2$+" yourself?";
  403. end;
  404. Lquote32b:
  405. npctalk "Do you believe I don't "+$p2$+"";
  406. end;
  407. Lquote32c:
  408. npctalk "Perhaps I will "+$p2$+" in good time";
  409. end;
  410. // yes
  411. Lquote33:
  412. set $foo,rand(3);
  413. if($foo == 0) goto Lquote33a;
  414. if($foo == 1) goto Lquote33b;
  415. if($foo == 2) goto Lquote33c;
  416. Lquote33a:
  417. npctalk "You seem quite positive";
  418. end;
  419. Lquote33b:
  420. npctalk "You are sure?";
  421. end;
  422. Lquote33c:
  423. npctalk "I understand";
  424. end;
  425. // no
  426. Lquote34:
  427. set $foo,rand(3);
  428. if($foo == 0) goto Lquote34a;
  429. if($foo == 1) goto Lquote34b;
  430. if($foo == 2) goto Lquote34c;
  431. Lquote34a:
  432. npctalk "Why not?";
  433. end;
  434. Lquote34b:
  435. npctalk "You are being a bit negative";
  436. end;
  437. Lquote34c:
  438. npctalk "Are you saying NO just to be negative?";
  439. end;
  440. // someone
  441. Lquote35:
  442. npctalk "Can you be more specific?";
  443. end;
  444. // everyone
  445. Lquote36:
  446. set $foo,rand(4);
  447. if($foo == 0) goto Lquote36a;
  448. if($foo == 1) goto Lquote36b;
  449. if($foo == 2) goto Lquote36c;
  450. if($foo == 3) goto Lquote36d;
  451. Lquote36a:
  452. npctalk "surely not everyone";
  453. end;
  454. Lquote36b:
  455. npctalk "Can you think of anyone in particular?";
  456. end;
  457. Lquote36c:
  458. npctalk "Who for example?";
  459. end;
  460. Lquote36d:
  461. npctalk "You are thinking of a special person?";
  462. end;
  463. // always
  464. Lquote37:
  465. set $foo,rand(4);
  466. if($foo == 0) goto Lquote37a;
  467. if($foo == 1) goto Lquote37b;
  468. if($foo == 2) goto Lquote37c;
  469. if($foo == 3) goto Lquote37d;
  470. Lquote37a:
  471. npctalk "Can you think of a specific example?";
  472. end;
  473. Lquote37b:
  474. npctalk "When?";
  475. end;
  476. Lquote37c:
  477. npctalk "What incident are you thinking of?";
  478. end;
  479. Lquote37d:
  480. npctalk "Really-- always?";
  481. end;
  482. // what
  483. Lquote38:
  484. set $foo,rand(5);
  485. if($foo == 0) goto Lquote38a;
  486. if($foo == 1) goto Lquote38b;
  487. if($foo == 2) goto Lquote38c;
  488. if($foo == 3) goto Lquote38d;
  489. if($foo == 4) goto Lquote38e;
  490. Lquote38a:
  491. npctalk "Why do you ask?";
  492. end;
  493. Lquote38b:
  494. npctalk "Does that question interest you?";
  495. end;
  496. Lquote38c:
  497. npctalk "What is it you really want to know?";
  498. end;
  499. Lquote38d:
  500. npctalk "What do you think?";
  501. end;
  502. Lquote38e:
  503. npctalk "What comes to your mind when you ask that?";
  504. end;
  505. // perhaps
  506. Lquote39:
  507. npctalk "You do not seem quite certain";
  508. end;
  509. // are
  510. Lquote40:
  511. set $foo,rand(2);
  512. if($foo == 0) goto Lquote40a;
  513. if($foo == 1) goto Lquote40b;
  514. Lquote40a:
  515. npctalk "Did you think they might not be "+$p2$+"";
  516. end;
  517. Lquote40b:
  518. npctalk "Possibly they are "+$p2$;
  519. end;
  520. // default
  521. Lquote41:
  522. set $foo,rand(6);
  523. if($foo == 0) goto Lquote41a;
  524. if($foo == 1) goto Lquote41b;
  525. if($foo == 2) goto Lquote41c;
  526. if($foo == 3) goto Lquote41d;
  527. if($foo == 4) goto Lquote41e;
  528. if($foo == 5) goto Lquote41f;
  529. Lquote41a:
  530. npctalk "Very interesting";
  531. end;
  532. Lquote41b:
  533. npctalk "I am not sure I understand you fully";
  534. end;
  535. Lquote41c:
  536. npctalk "What does that suggest to you?";
  537. end;
  538. Lquote41d:
  539. npctalk "Please continue";
  540. end;
  541. Lquote41e:
  542. npctalk "Go on";
  543. end;
  544. Lquote41f:
  545. npctalk "Do you feel strongly about discussing such things?";
  546. end;
  547. OnInit:
  548. defpattern 1, "([^:]+):.*\\shello.*", "Lquote0";
  549. defpattern 1, "([^:]+):.*\\scomputer.*", "Lquote1";
  550. defpattern 1, "([^:]+):.*\\sname.*", "Lquote2";
  551. defpattern 1, "([^:]+):.*\\ssorry.*", "Lquote3";
  552. defpattern 1, "([^:]+):.*\\si\\s+remember\\s+(.*)", "Lquote4";
  553. defpattern 1, "([^:]+):.*\\sdo\\s+you\\s+remember\\s+(.*)", "Lquote5";
  554. defpattern 1, "([^:]+):.*\\sif\\s+(.*)", "Lquote6";
  555. defpattern 1, "([^:]+):.*\\si\\s+dreamt\\s+(.*)", "Lquote7";
  556. defpattern 1, "([^:]+):.*\\sdream\\s+about\\s+(.*)", "Lquote8";
  557. defpattern 1, "([^:]+):.*\\sdream\\s+(.*)", "Lquote9";
  558. defpattern 1, "([^:]+):.*\\smy\\s+mother\\s+(.*)", "Lquote10";
  559. defpattern 1, "([^:]+):.*\\smy\\s+father\\s+(.*)", "Lquote11";
  560. defpattern 1, "([^:]+):.*\\si\\s+want\\s+(.*)", "Lquote12";
  561. defpattern 1, "([^:]+):.*\\si\\s+am\\s+glad\\s+(.*)", "Lquote13";
  562. defpattern 1, "([^:]+):\\s+(.*)\\s+i\\s+am\\s+sad\\s+(.*)", "Lquote14";
  563. defpattern 1, "([^:]+):\\s+(.*)\\s+are\\s+like\\s+(.*)", "Lquote15";
  564. defpattern 1, "([^:]+):\\s+(.*)\\s+is\\s+like\\s+(.*)", "Lquote16";
  565. defpattern 1, "([^:]+):.*\\salike\\s+(.*)", "Lquote17";
  566. defpattern 1, "([^:]+):.*\\ssame\\s+(.*)", "Lquote18";
  567. defpattern 1, "([^:]+):.*\\si\\s+was\\s+(.*)", "Lquote19";
  568. defpattern 1, "([^:]+):.*\\swas\\s+i\\s+(.*)", "Lquote20";
  569. defpattern 1, "([^:]+):.*\\si\\s+am\\s+(.*)", "Lquote21";
  570. defpattern 1, "([^:]+):.*\\sam\\s+i\\s+(.*)", "Lquote22";
  571. defpattern 1, "([^:]+):.*\\sam\\s+(.*)", "Lquote23";
  572. defpattern 1, "([^:]+):.*\\sare\\s+you\\s+(.*)", "Lquote24";
  573. defpattern 1, "([^:]+):.*\\syou\\s+are\\s+(.*)", "Lquote25";
  574. defpattern 1, "([^:]+):.*\\sbecause\\s+(.*)", "Lquote26";
  575. defpattern 1, "([^:]+):.*\\swere\\s+you\\s+(.*)", "Lquote27";
  576. defpattern 1, "([^:]+):.*\\si\\s+(cant|can't|cannot)\\s+(.*)", "Lquote28";
  577. defpattern 1, "([^:]+):.*\\si\\s+feel\\s+(.*)", "Lquote29";
  578. defpattern 1, "([^:]+):.*\\si\\s+felt\\s+(.*)", "Lquote30";
  579. defpattern 1, "([^:]+):.*\\si\\s+(.*)\\s+you\\s+(.*)", "Lquote31";
  580. defpattern 1, "([^:]+):.*\\swhy\\s+(don't|dont)\\s+you\\s+(.*)", "Lquote32";
  581. defpattern 1, "([^:]+):.*\\syes\\s+(.*)", "Lquote33";
  582. defpattern 1, "([^:]+):.*\\sno\\s+(.*)", "Lquote34";
  583. defpattern 1, "([^:]+):.*\\ssomeone\\s+(.*)", "Lquote35";
  584. defpattern 1, "([^:]+):.*\\severyone\\s+(.*)", "Lquote36";
  585. defpattern 1, "([^:]+):.*\\salways\\s+(.*)", "Lquote37";
  586. defpattern 1, "([^:]+):.*\\swhat\\s+(.*)", "Lquote38";
  587. defpattern 1, "([^:]+):.*\\sperhaps\\s+(.*)", "Lquote39";
  588. defpattern 1, "([^:]+):.*\\sare\\s+(.*)", "Lquote40";
  589. defpattern 1, "([^:]+):(.*)", "Lquote41";
  590. activatepset 1;
  591. end;
  592. }