home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / BBSCHAT.ZIP / BBSCHAT.NET next >
Encoding:
Text File  |  1987-06-08  |  6.7 KB  |  347 lines
  1. ;
  2. ; ELIZA SCRIPT FILE
  3. ;
  4. ; FORMAT:
  5. ; Sxxxxxxxxx - DEFINE SIGNON MESSAGE
  6. ; Txxxxx
  7. ; Txxxxx     - DEFINE PAIR OF WORDS TO TRANSPOSE
  8. ; Nxxxxx     - RESPONSE FOR NULL ENTRY
  9. ; Mxxxxx     - DEFINE RESPONSE FOR LATER USE OF "MY"
  10. ; Xxxxxxx    - DEFINE RESPONSE FOR NO KEYWORD FOUND
  11. ; Kxxxxxx    - DEFINE KEYWORD
  12. ; Rxxxxxx    - DEFINE RESPONSE FOR PREVIOUS KEYWORD
  13. ;
  14. ; NOTE:  FOR "T" AND "K", THE LAST CHARACTER IS DISCARDED TO MAKE IT EASY
  15. ;        TO ENTER TRAILING SPACES.
  16. ;
  17. ;        FOR "R" AND "M" THE STRING FOLLOWING THE KEYWORD IN THE USER'S
  18. ;        INPUT IS INSERTED AT THE *
  19. ;
  20. ;        IF A KEYWORD HAS NO RESPONSES, THEN IT WILL USE THE RESPONSES OF
  21. ;        THE NEXT KEYWORD WITH RESPONSES
  22. ;
  23. ; SIGNON MESSAGE
  24. ;
  25. SHI, I'M ELIZA.  WHAT DO YOU WANT TO TALK ABOUT?
  26. SSO HOW ARE YOU DOING TODAY?
  27. ;
  28. ; TRANSPOSITION TABLE
  29. ;
  30. T ARE "
  31. T AM "
  32. T AM "
  33. T ARE "
  34. T WERE "
  35. T WAS "
  36. T WAS "
  37. T WERE "
  38. T YOU "
  39. T I "
  40. T I "
  41. T YOU "
  42. T YOUR "
  43. T MY "
  44. T MY "
  45. T YOUR "
  46. T I'VE "
  47. T YOU'VE "
  48. T YOU'VE "
  49. T I'VE "
  50. T I'M "
  51. T YOU'RE "
  52. T YOU'RE "
  53. T I'M "
  54. T ME "
  55. T YOU "
  56. T YOU "
  57. T ME "
  58. T AREN'T "
  59. T AM NOT "
  60. T WEREN'T "
  61. T WASN'T "
  62. T WASN'T "
  63. T WEREN'T "
  64. T I'D "
  65. T YOU'D "
  66. T YOU'D "
  67. T I'D "
  68. T DAD "
  69. T FATHER "
  70. T MOM "
  71. T MOTHER "
  72. T DREAMS "
  73. T DREAM "
  74. ;
  75. ; NULL RESPONSES
  76. ;
  77. Nyou're gonna wear your enter key out if you keep that up.
  78. Nhow am I supposed to talk if you won't say anything?
  79. NHUH?
  80. NWHAT?
  81. NCOME AGAIN?
  82. ;
  83. ; RESPONSES FOR "MY"
  84. ; TO USE IF NO KEYWORD WAS FOUND.
  85. ;
  86. MEarlier you mentioned that your*.
  87. MA while back you said your*.
  88. MDOES THAT HAVE ANYTHING TO DO WITH THE FACT THAT YOUR*?
  89. ;
  90. ; NO KEYWORD FOUND
  91. ;
  92. XPLEASE GO ON.
  93. XWHAT DOES THAT SUGGEST TO YOU?
  94. XI SEE.
  95. XI'M NOT SURE I KNOW WHAT YOU'RE TALKING ABOUT.
  96. XWHAT'S THAT SUPPOSED TO MEAN?
  97. XCAN YOU CLARIFY THAT A BIT?
  98. XTHAT'S INTERESTING...
  99. XAND????
  100. ;
  101. ; DEFINE KEYWORDS AND RESPONSES
  102. ;
  103. KCAN I "
  104. RPERHAPS YOU DON'T WANT TO*.
  105. RDO YOU WANT TO BE ABLE TO*?
  106. ;
  107. KI DON'T "
  108. KI DO NOT "
  109. KI DONT "
  110. RDON'T YOU REALLY*?
  111. RWHY DON'T YOU*?
  112. RDO YOU WISH TO BE ABLE TO*?
  113. RDOES THAT TROUBLE YOU THAT YOU DON'T*?
  114. ;
  115. KI FEEL "
  116. RHOW LONG HAVE YOU FELT*?
  117. RDO YOU OFTEN FEEL*?
  118. RDO YOU ENJOY FEELING*?
  119. ;
  120. KWHY CAN'T I "
  121. KWHY CANT I "
  122. RDO YOU THINK YOU SHOULD BE ABLE TO*?
  123. RWHY CAN'T YOU*?
  124. ;
  125. KI CAN'T "
  126. KI CANNOT "
  127. KI CANT "
  128. RHOW DO YOU KNOW YOU CAN'T*?
  129. RHAVE YOU TRIED?
  130. RPERHAPS YOU CAN NOW*?
  131. ;
  132. KI AM "
  133. KI'M "
  134. KIM "
  135. RDID YOU COME TO ME BECAUSE YOU ARE*?
  136. RHOW LONG HAVE YOU BEEN*?
  137. RDO YOU BELIEVE IT IS NORMAL TO BE*?
  138. RDO YOU ENJOY BEING*?
  139. ;
  140. KI REMEMBER "
  141. RDO YOU OFTEN THINK OF*?
  142. RDOES THINKING OF*BRING SOMETHING ELSE TO MIND?
  143. RWHY DO YOU REMEMBER*JUST NOW?
  144. RWHAT IN THE PRESENT SITUATION REMINDS YOU OF*?
  145. RWHAT IS THE CONNECTION BETWEEN ME AND*?
  146. ;
  147. KI WANT "
  148. RWHAT WOULD IT MEAN TO YOU IF YOU GOT*?
  149. RWHY DO YOU WANT*?
  150. RSUPPOSE YOU SOON GOT*?
  151. RWHAT IF YOU NEVER GOT*?
  152. RI SOMETIMES ALSO WANT*.
  153. ;
  154. KI HAVE "
  155. KI'VE "
  156. KIVE "
  157. RARE YOU TROUBLED THAT YOU HAVE*?
  158. RHAS SOMEONE TOLD YOU THAT YOU HAVE*?
  159. RWHY DO YOU FEEL THAT YOU HAVE*?
  160. ;
  161. KWAS I "
  162. RWHAT IF YOU WERE*?
  163. ;
  164. KI WAS "
  165. RWERE YOU REALLY?
  166. ;
  167. KCAN YOU "
  168. RDON'T YOU BELIEVE THAT I CAN*?
  169. RPERHAPS YOU WOULD LIKE TO BE ABLE TO*.
  170. RYOU WANT ME TO BE ABLE TO*?
  171. RDOES IT MATTER TO YOU IF I CAN*?
  172. ;
  173. KYOU ARE "
  174. KYOU'RE "
  175. KYOURE "
  176. RWHAT MAKES YOU THINK I AM*?
  177. RDOES IT PLEASE YOU TO BELIEVE I AM*?
  178. RPERHAPS YOU WOULD LIKE TO BE*.
  179. RDO YOU SOMETIMES WISH YOU WERE*?
  180. ;
  181. KWHY DON'T YOU "
  182. KWHY DONT YOU "
  183. RDO YOU REALLY BELIEVE I DON'T*?
  184. RPERHAPS IN GOOD TIME I WILL*.
  185. RDO YOU WANT ME TO*?
  186. ;
  187. KARE YOU "
  188. RWHY ARE YOU INTERESTED IN WHETHER OR NOT I AM*?
  189. RWOULD YOU PREFER IF I WERE NOT*?
  190. RPERHAPS IN YOUR FANTASIES I AM*.
  191. ;
  192. KDO YOU REMEMBER "
  193. RDID YOU THINK I WOULD FORGET*?
  194. RWHY DO YOU THINK I SHOULD RECALL*NOW?
  195. RWHAT ABOUT*?
  196. ;
  197. KYOU "
  198. Rwhat difference does it make if I*?
  199. ROH, I*?
  200. RYOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU?
  201. ;
  202. KWERE YOU "
  203. RWOULD YOU LIKE TO BELIEVE I WAS*?
  204. ;
  205. KMY MOTHER"
  206. KMY FATHER"
  207. KMY SISTER"
  208. KMY BROTHER"
  209. KMY WIFE"
  210. KMY HUSBAND"
  211. KMY CHILDREN"
  212. RTELL ME MORE ABOUT YOUR FAMILY.
  213. ;
  214. KMY "
  215. RYOUR*.
  216. ;
  217. KWHAT "
  218. KHOW "
  219. KWHO "
  220. KWHERE "
  221. KWHEN "
  222. KWHY "
  223. RWHY DO YOU ASK?
  224. RDOES THAT QUESTION INTEREST YOU?
  225. RWHAT ANSWER WOULD PLEASE YOU THE MOST?
  226. RWHAT DO YOU THINK?
  227. RARE SUCH QUESTIONS ON YOUR MIND OFTEN?
  228. RWHAT IS IT THAT YOU REALLY WANT TO KNOW?
  229. RHAVE YOU ASKED ANYONE ELSE?
  230. RHAVE YOU ASKED SUCH QUESTIONS BEFORE?
  231. RWHAT ELSE COMES TO MIND WHEN YOU ASK THAT?
  232. ;
  233. KNAME "
  234. RNAMES DON'T INTEREST ME.
  235. RI DON'T CARE ABOUT NAMES --PLEASE GO ON.
  236. ;
  237. KCAUSE "
  238. RIS THAT THE REAL REASON?
  239. RDON'T ANY OTHER REASONS COME TO MIND?
  240. RDOES THAT REASON EXPLAIN ANYTHING ELSE?
  241. RWHAT OTHER REASONS MIGHT THERE BE?
  242. ;
  243. KSORRY "
  244. RPLEASE DON'T APOLOGIZE!
  245. RAPOLOGIES ARE NOT NECESSARY.
  246. RWHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE?
  247. RDON'T BE SO DEFENSIVE!
  248. ;
  249. KI DREAMED "
  250. KDREAM "
  251. RWHAT DOES THAT DREAM SUGGEST TO YOU?
  252. RDO YOU DREAM OFTEN?
  253. RWHAT PERSONS APPEAR IN YOUR DREAMS?
  254. RARE YOU DISTURBED BY YOUR DREAMS?
  255. RDO YOU OFTEN DREAM THAT*?
  256. ;
  257. KMAYBE "
  258. RYOU DON'T SEEM QUITE CERTAIN.
  259. RWHY THE UNCERTAIN TONE?
  260. RCAN'T YOU BE MORE POSITIVE?
  261. RYOU AREN'T SURE?
  262. RDON'T YOU KNOW?
  263. ;
  264. KYOUR "
  265. RWHY ARE YOU CONCERNED ABOUT MY*?
  266. RWHAT ABOUT YOUR OWN*?
  267. ;
  268. KALWAYS "
  269. RCAN YOU THINK OF A SPECIFIC EXAMPLE?
  270. RWHEN?
  271. RWHAT ARE YOU THINKING OF?
  272. RREALLY, ALWAYS?
  273. ;
  274. KI THINK "
  275. RDO YOU REALLY THINK SO?
  276. RBUT YOU ARE NOT SURE YOU*.
  277. RDO YOU DOUBT YOU*?
  278. ;
  279. KALIKE "
  280. KSAME "
  281. RIN WHAT WAY?
  282. RWHAT RESEMBLANCE DO YOU SEE?
  283. RWHAT DOES THE SIMILARITY SUGGEST TO YOU?
  284. RWHAT OTHER CONNECTIONS DO YOU SEE?
  285. RCOULD THERE REALLY BE SOME CONNECTION?
  286. RHOW?
  287. ;
  288. KTHAT'S "
  289. KTHAT IS "
  290. KTHATS "
  291. RIf you say so.
  292. RIs it really that*?
  293. ;
  294. KREALLY "
  295. RYou seem surprised.
  296. RIs it really?
  297. ;
  298. KYES "
  299. RARE YOU SURE?
  300. RI SEE.
  301. RI UNDERSTAND.
  302. RYOU SEEM QUITE POSITIVE.
  303. ;
  304. KNO "
  305. RARE YOU SAYING NO JUST TO BE NEGATIVE?
  306. RYOU ARE BEING A BIT NEGATIVE.
  307. RWHY NOT?
  308. RARE YOU SURE?
  309. RNO*?
  310. ;
  311. KFRIEND "
  312. RWHY DO YOU BRING UP THE TOPIC OF FRIENDS?
  313. RDO YOUR FRIENDS WORRY YOU?
  314. RDO YOUR FRIENDS PICK ON YOU?
  315. RARE YOU SURE YOU HAVE ANY FRIENDS?
  316. RDO YOU IMPOSE ON YOUR FRIENDS?
  317. RPERHAPS YOUR LOVE FOR FRIENDS WORRIES YOU.
  318. ;
  319. KCOMPUTER"
  320. KMACHINE"
  321. RDO COMPUTERS WORRY YOU?
  322. RARE YOU TALKING ABOUT ME IN PARTICULAR?
  323. RARE YOU FRIGHTENED BY MACHINES?
  324. RWHY DO YOU MENTION COMPUTERS?
  325. RWHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM?
  326. RDON'T YOU THINK COMPUTERS CAN HELP PEOPLE?
  327. RWHAT IS IT ABOUT MACHINES THAT WORRIES YOU?
  328. ;
  329. KVALIDAT"
  330. KACCESS"
  331. RTHE SYSOP WILL HAVE TO VALIDATE YOU LATER.
  332. ;
  333. KIF "
  334. RDO YOU THINK IT'S LIKELY THAT IF*?
  335. ;
  336. KEVERYBODY"
  337. KEVERYONE"
  338. RREALLY, EVERYBODY?
  339. ;
  340. KNOBODY"
  341. KNO ONE"
  342. RREALLY, NOBODY?
  343. ;
  344. KHELLO"
  345. KHI "
  346. RHI!  WHAT DO YOU WANT TO TALK ABOUT?
  347.