; * lisp/play/doctor.el (make-doctor-variables): Fix indentation.
This commit is contained in:
Stefan Kangas
parent
a77f5abd98
commit
dc39c66d3b
1 changed files with 311 additions and 311 deletions
|
|
@ -146,380 +146,380 @@ reads the sentence before point, and prints the Doctor's answer."
|
|||
|
||||
(defun make-doctor-variables ()
|
||||
(setq-local doctor--typos
|
||||
(mapcar (lambda (x)
|
||||
(put (car x) 'doctor-correction (cadr x))
|
||||
(put (cadr x) 'doctor-expansion (car (cddr x)))
|
||||
(car x))
|
||||
'((theyll they\'ll (they will))
|
||||
(theyre they\'re (they are))
|
||||
(hes he\'s (he is))
|
||||
(he7s he\'s (he is))
|
||||
(im i\'m (you are))
|
||||
(i7m i\'m (you are))
|
||||
(isa is\ a (is a))
|
||||
(thier their (their))
|
||||
(dont don\'t (do not))
|
||||
(don7t don\'t (do not))
|
||||
(you7re you\'re (i am))
|
||||
(you7ve you\'ve (i have))
|
||||
(you7ll you\'ll (i will)))))
|
||||
(mapcar (lambda (x)
|
||||
(put (car x) 'doctor-correction (cadr x))
|
||||
(put (cadr x) 'doctor-expansion (car (cddr x)))
|
||||
(car x))
|
||||
'((theyll they\'ll (they will))
|
||||
(theyre they\'re (they are))
|
||||
(hes he\'s (he is))
|
||||
(he7s he\'s (he is))
|
||||
(im i\'m (you are))
|
||||
(i7m i\'m (you are))
|
||||
(isa is\ a (is a))
|
||||
(thier their (their))
|
||||
(dont don\'t (do not))
|
||||
(don7t don\'t (do not))
|
||||
(you7re you\'re (i am))
|
||||
(you7ve you\'ve (i have))
|
||||
(you7ll you\'ll (i will)))))
|
||||
(setq-local doctor-sent nil)
|
||||
(setq-local doctor-found nil)
|
||||
(setq-local doctor-owner nil)
|
||||
(setq-local doctor--history nil)
|
||||
(setq-local doctor--inter '((well\,)
|
||||
(hmmm \.\.\.\ so\,)
|
||||
(so)
|
||||
(\.\.\.and)
|
||||
(then)))
|
||||
(hmmm \.\.\.\ so\,)
|
||||
(so)
|
||||
(\.\.\.and)
|
||||
(then)))
|
||||
(setq-local doctor--continue '((continue)
|
||||
(proceed)
|
||||
(go on)
|
||||
(keep going)))
|
||||
(proceed)
|
||||
(go on)
|
||||
(keep going)))
|
||||
(setq-local doctor--relation
|
||||
'((your relationship with)
|
||||
(something you remember about)
|
||||
(your feelings toward)
|
||||
(some experiences you have had with)
|
||||
(how you feel about)))
|
||||
'((your relationship with)
|
||||
(something you remember about)
|
||||
(your feelings toward)
|
||||
(some experiences you have had with)
|
||||
(how you feel about)))
|
||||
(setq-local doctor--fears
|
||||
'(((doc$ doctor--whysay) you are (doc$ doctor--afraidof) (doc// doctor--feared) \?)
|
||||
(you seem terrified by (doc// doctor--feared) \.)
|
||||
(when did you first feel (doc$ doctor--afraidof) (doc// doctor--feared) \?)))
|
||||
'(((doc$ doctor--whysay) you are (doc$ doctor--afraidof) (doc// doctor--feared) \?)
|
||||
(you seem terrified by (doc// doctor--feared) \.)
|
||||
(when did you first feel (doc$ doctor--afraidof) (doc// doctor--feared) \?)))
|
||||
(setq-local doctor--sure '((sure)
|
||||
(positive)
|
||||
(certain)
|
||||
(absolutely sure)))
|
||||
(positive)
|
||||
(certain)
|
||||
(absolutely sure)))
|
||||
(setq-local doctor--afraidof '((afraid of)
|
||||
(frightened by)
|
||||
(scared of)))
|
||||
(frightened by)
|
||||
(scared of)))
|
||||
(setq-local doctor--areyou '((are you)
|
||||
(have you been)
|
||||
(have you been)))
|
||||
(have you been)
|
||||
(have you been)))
|
||||
(setq-local doctor--isrelated
|
||||
'((has something to do with)
|
||||
(is related to)
|
||||
(could be the reason for)
|
||||
(is caused by)
|
||||
(is because of)))
|
||||
'((has something to do with)
|
||||
(is related to)
|
||||
(could be the reason for)
|
||||
(is caused by)
|
||||
(is because of)))
|
||||
(setq-local doctor--arerelated '((have something to do with)
|
||||
(are related to)
|
||||
(could have caused)
|
||||
(could be the reason for)
|
||||
(are caused by)
|
||||
(are because of)))
|
||||
(are related to)
|
||||
(could have caused)
|
||||
(could be the reason for)
|
||||
(are caused by)
|
||||
(are because of)))
|
||||
(setq-local doctor--moods
|
||||
'(((doc$ doctor--areyou) (doc// doctor-found) often \?)
|
||||
(what causes you to be (doc// doctor-found) \?)
|
||||
((doc$ doctor--whysay) you are (doc// doctor-found) \?)))
|
||||
'(((doc$ doctor--areyou) (doc// doctor-found) often \?)
|
||||
(what causes you to be (doc// doctor-found) \?)
|
||||
((doc$ doctor--whysay) you are (doc// doctor-found) \?)))
|
||||
(setq-local doctor--maybe '((maybe)
|
||||
(perhaps)
|
||||
(possibly)))
|
||||
(perhaps)
|
||||
(possibly)))
|
||||
(setq-local doctor--whatwhen '((what happened when)
|
||||
(what would happen if)))
|
||||
(what would happen if)))
|
||||
(setq-local doctor--hello '((how do you do \?)
|
||||
(hello \.)
|
||||
(howdy!)
|
||||
(hello \.)
|
||||
(hi \.)
|
||||
(hi there \.)))
|
||||
(hello \.)
|
||||
(howdy!)
|
||||
(hello \.)
|
||||
(hi \.)
|
||||
(hi there \.)))
|
||||
(setq-local doctor--drnk
|
||||
'((do you drink a lot of (doc// doctor-found) \?)
|
||||
(do you get drunk often \?)
|
||||
((doc$ doctor--describe) your drinking habits \.)))
|
||||
'((do you drink a lot of (doc// doctor-found) \?)
|
||||
(do you get drunk often \?)
|
||||
((doc$ doctor--describe) your drinking habits \.)))
|
||||
(setq-local doctor--drugs
|
||||
'((do you use (doc// doctor-found) often \?)
|
||||
((doc$ doctor--areyou) addicted to (doc// doctor-found) \?)
|
||||
(do you realize that drugs can be very harmful \?)
|
||||
((doc$ doctor--maybe) you should try to quit using (doc// doctor-found) \.)))
|
||||
'((do you use (doc// doctor-found) often \?)
|
||||
((doc$ doctor--areyou) addicted to (doc// doctor-found) \?)
|
||||
(do you realize that drugs can be very harmful \?)
|
||||
((doc$ doctor--maybe) you should try to quit using (doc// doctor-found) \.)))
|
||||
(setq-local doctor--whywant
|
||||
'(((doc$ doctor--whysay) (doc// doctor-subj) might (doc$ doctor--want) (doc// doctor-obj) \?)
|
||||
(how does it feel to want \?)
|
||||
(why should (doc// doctor-subj) get (doc// doctor-obj) \?)
|
||||
(when did (doc// doctor-subj) first (doc$ doctor--want) (doc// doctor-obj) \?)
|
||||
((doc$ doctor--areyou) obsessed with (doc// doctor-obj) \?)
|
||||
(why should i give (doc// doctor-obj) to (doc// doctor-subj) \?)
|
||||
(have you ever gotten (doc// doctor-obj) \?)))
|
||||
'(((doc$ doctor--whysay) (doc// doctor-subj) might (doc$ doctor--want) (doc// doctor-obj) \?)
|
||||
(how does it feel to want \?)
|
||||
(why should (doc// doctor-subj) get (doc// doctor-obj) \?)
|
||||
(when did (doc// doctor-subj) first (doc$ doctor--want) (doc// doctor-obj) \?)
|
||||
((doc$ doctor--areyou) obsessed with (doc// doctor-obj) \?)
|
||||
(why should i give (doc// doctor-obj) to (doc// doctor-subj) \?)
|
||||
(have you ever gotten (doc// doctor-obj) \?)))
|
||||
(setq-local doctor--canyou
|
||||
'((of course i can \.)
|
||||
(why should i \?)
|
||||
(what makes you think i would even want to \?)
|
||||
(i am the doctor\, i can do anything i damn please \.)
|
||||
(not really\, it\'s not up to me \.)
|
||||
(depends\, how important is it \?)
|
||||
(i could\, but i don\'t think it would be a wise thing to do \.)
|
||||
(can you \?)
|
||||
(maybe i can\, maybe i can\'t \.\.\.)
|
||||
(i don\'t think i should do that \.)))
|
||||
'((of course i can \.)
|
||||
(why should i \?)
|
||||
(what makes you think i would even want to \?)
|
||||
(i am the doctor\, i can do anything i damn please \.)
|
||||
(not really\, it\'s not up to me \.)
|
||||
(depends\, how important is it \?)
|
||||
(i could\, but i don\'t think it would be a wise thing to do \.)
|
||||
(can you \?)
|
||||
(maybe i can\, maybe i can\'t \.\.\.)
|
||||
(i don\'t think i should do that \.)))
|
||||
(setq-local doctor--want '((want) (desire) (wish) (want) (hope)))
|
||||
(setq-local doctor--shortlst
|
||||
'((can you elaborate on that \?)
|
||||
((doc$ doctor--please) continue \.)
|
||||
(go on\, don\'t be afraid \.)
|
||||
(i need a little more detail please \.)
|
||||
(you\'re being a bit brief\, (doc$ doctor--please) go into detail \.)
|
||||
(can you be more explicit \?)
|
||||
(and \?)
|
||||
((doc$ doctor--please) go into more detail \?)
|
||||
(you aren\'t being very talkative today\!)
|
||||
(is that all there is to it \?)
|
||||
(why must you respond so briefly \?)))
|
||||
'((can you elaborate on that \?)
|
||||
((doc$ doctor--please) continue \.)
|
||||
(go on\, don\'t be afraid \.)
|
||||
(i need a little more detail please \.)
|
||||
(you\'re being a bit brief\, (doc$ doctor--please) go into detail \.)
|
||||
(can you be more explicit \?)
|
||||
(and \?)
|
||||
((doc$ doctor--please) go into more detail \?)
|
||||
(you aren\'t being very talkative today\!)
|
||||
(is that all there is to it \?)
|
||||
(why must you respond so briefly \?)))
|
||||
(setq-local doctor--famlst
|
||||
'((tell me (doc$ doctor--something) about (doc// doctor-owner) family \.)
|
||||
(you seem to dwell on (doc// doctor-owner) family \.)
|
||||
((doc$ doctor--areyou) hung up on (doc// doctor-owner) family \?)))
|
||||
'((tell me (doc$ doctor--something) about (doc// doctor-owner) family \.)
|
||||
(you seem to dwell on (doc// doctor-owner) family \.)
|
||||
((doc$ doctor--areyou) hung up on (doc// doctor-owner) family \?)))
|
||||
(setq-local doctor--huhlst
|
||||
'(((doc$ doctor--whysay) (doc// doctor-sent) \?)
|
||||
(is it because of (doc$ doctor--things) that you say (doc// doctor-sent) \?)))
|
||||
'(((doc$ doctor--whysay) (doc// doctor-sent) \?)
|
||||
(is it because of (doc$ doctor--things) that you say (doc// doctor-sent) \?)))
|
||||
(setq-local doctor--longhuhlst
|
||||
'(((doc$ doctor--whysay) that \?)
|
||||
(i don\'t understand \.)
|
||||
((doc$ doctor--thlst))
|
||||
((doc$ doctor--areyou) (doc$ doctor--afraidof) that \?)))
|
||||
'(((doc$ doctor--whysay) that \?)
|
||||
(i don\'t understand \.)
|
||||
((doc$ doctor--thlst))
|
||||
((doc$ doctor--areyou) (doc$ doctor--afraidof) that \?)))
|
||||
(setq-local doctor--feelings-about '((feelings about)
|
||||
(apprehensions toward)
|
||||
(thoughts on)
|
||||
(emotions toward)))
|
||||
(apprehensions toward)
|
||||
(thoughts on)
|
||||
(emotions toward)))
|
||||
(setq-local doctor--random-adjective
|
||||
'((vivid)
|
||||
(emotionally stimulating)
|
||||
(exciting)
|
||||
(boring)
|
||||
(interesting)
|
||||
(recent)
|
||||
(random) ; how can we omit this?
|
||||
(unusual)
|
||||
(shocking)
|
||||
(embarrassing)))
|
||||
'((vivid)
|
||||
(emotionally stimulating)
|
||||
(exciting)
|
||||
(boring)
|
||||
(interesting)
|
||||
(recent)
|
||||
(random) ; how can we omit this?
|
||||
(unusual)
|
||||
(shocking)
|
||||
(embarrassing)))
|
||||
(setq-local doctor--whysay '((why do you say)
|
||||
(what makes you believe)
|
||||
(are you sure that)
|
||||
(do you really think)
|
||||
(what makes you think)))
|
||||
(what makes you believe)
|
||||
(are you sure that)
|
||||
(do you really think)
|
||||
(what makes you think)))
|
||||
(setq-local doctor--isee '((i see \.\.\.)
|
||||
(yes\,)
|
||||
(i understand \.)
|
||||
(oh \.) ))
|
||||
(yes\,)
|
||||
(i understand \.)
|
||||
(oh \.) ))
|
||||
(setq-local doctor--please '((please\,)
|
||||
(i would appreciate it if you would)
|
||||
(perhaps you could)
|
||||
(please\,)
|
||||
(would you please)
|
||||
(why don\'t you)
|
||||
(could you)))
|
||||
(i would appreciate it if you would)
|
||||
(perhaps you could)
|
||||
(please\,)
|
||||
(would you please)
|
||||
(why don\'t you)
|
||||
(could you)))
|
||||
(setq-local doctor--bye
|
||||
'((my secretary will send you a bill \.)
|
||||
(bye bye \.)
|
||||
(see ya \.)
|
||||
(ok\, talk to you some other time \.)
|
||||
(talk to you later \.)
|
||||
(ok\, have fun \.)
|
||||
(ciao \.)))
|
||||
'((my secretary will send you a bill \.)
|
||||
(bye bye \.)
|
||||
(see ya \.)
|
||||
(ok\, talk to you some other time \.)
|
||||
(talk to you later \.)
|
||||
(ok\, have fun \.)
|
||||
(ciao \.)))
|
||||
(setq-local doctor--something '((something)
|
||||
(more)
|
||||
(how you feel)))
|
||||
(more)
|
||||
(how you feel)))
|
||||
(setq-local doctor--thing '((your life)
|
||||
(your sex life)))
|
||||
(your sex life)))
|
||||
(setq-local doctor--things '((your plans)
|
||||
(the people you hang around with)
|
||||
(problems at school)
|
||||
(any hobbies you have)
|
||||
(hangups you have)
|
||||
(your inhibitions)
|
||||
(some problems in your childhood)
|
||||
(some problems at home)))
|
||||
(the people you hang around with)
|
||||
(problems at school)
|
||||
(any hobbies you have)
|
||||
(hangups you have)
|
||||
(your inhibitions)
|
||||
(some problems in your childhood)
|
||||
(some problems at home)))
|
||||
(setq-local doctor--describe '((describe)
|
||||
(tell me about)
|
||||
(talk about)
|
||||
(discuss)
|
||||
(tell me more about)
|
||||
(elaborate on)))
|
||||
(tell me about)
|
||||
(talk about)
|
||||
(discuss)
|
||||
(tell me more about)
|
||||
(elaborate on)))
|
||||
(setq-local doctor--ibelieve
|
||||
'((i believe) (i think) (i have a feeling) (it seems to me that)
|
||||
(it looks like)))
|
||||
'((i believe) (i think) (i have a feeling) (it seems to me that)
|
||||
(it looks like)))
|
||||
(setq-local doctor--problems '((problems)
|
||||
(inhibitions)
|
||||
(hangups)
|
||||
(difficulties)
|
||||
(anxieties)
|
||||
(frustrations)))
|
||||
(inhibitions)
|
||||
(hangups)
|
||||
(difficulties)
|
||||
(anxieties)
|
||||
(frustrations)))
|
||||
(setq-local doctor--bother '((does it bother you that)
|
||||
(are you annoyed that)
|
||||
(did you ever regret)
|
||||
(are you sorry)
|
||||
(are you satisfied with the fact that)))
|
||||
(are you annoyed that)
|
||||
(did you ever regret)
|
||||
(are you sorry)
|
||||
(are you satisfied with the fact that)))
|
||||
(setq-local doctor--machlst
|
||||
'((you have your mind on (doc// doctor-found) \, it seems \.)
|
||||
(you think too much about (doc// doctor-found) \.)
|
||||
(you should try taking your mind off of (doc// doctor-found)\.)
|
||||
(are you a computer hacker \?)))
|
||||
'((you have your mind on (doc// doctor-found) \, it seems \.)
|
||||
(you think too much about (doc// doctor-found) \.)
|
||||
(you should try taking your mind off of (doc// doctor-found)\.)
|
||||
(are you a computer hacker \?)))
|
||||
(setq-local doctor--qlist
|
||||
'((what do you think \?)
|
||||
(i\'ll ask the questions\, if you don\'t mind!)
|
||||
(i could ask the same thing myself \.)
|
||||
((doc$ doctor--please) allow me to do the questioning \.)
|
||||
(i have asked myself that question many times \.)
|
||||
((doc$ doctor--please) try to answer that question yourself \.)))
|
||||
'((what do you think \?)
|
||||
(i\'ll ask the questions\, if you don\'t mind!)
|
||||
(i could ask the same thing myself \.)
|
||||
((doc$ doctor--please) allow me to do the questioning \.)
|
||||
(i have asked myself that question many times \.)
|
||||
((doc$ doctor--please) try to answer that question yourself \.)))
|
||||
(setq-local doctor--foullst
|
||||
'(((doc$ doctor--please) watch your tongue!)
|
||||
((doc$ doctor--please) avoid such unwholesome thoughts \.)
|
||||
((doc$ doctor--please) get your mind out of the gutter \.)
|
||||
(such lewdness is not appreciated \.)))
|
||||
'(((doc$ doctor--please) watch your tongue!)
|
||||
((doc$ doctor--please) avoid such unwholesome thoughts \.)
|
||||
((doc$ doctor--please) get your mind out of the gutter \.)
|
||||
(such lewdness is not appreciated \.)))
|
||||
(setq-local doctor--deathlst
|
||||
'((this is not a healthy way of thinking \.)
|
||||
((doc$ doctor--bother) you\, too\, may die someday \?)
|
||||
(i am worried by your obsession with this topic!)
|
||||
(did you watch a lot of crime and violence on television as a child \?)))
|
||||
'((this is not a healthy way of thinking \.)
|
||||
((doc$ doctor--bother) you\, too\, may die someday \?)
|
||||
(i am worried by your obsession with this topic!)
|
||||
(did you watch a lot of crime and violence on television as a child \?)))
|
||||
(setq-local doctor--sexlst
|
||||
'(((doc$ doctor--areyou) (doc$ doctor--afraidof) sex \?)
|
||||
((doc$ doctor--describe) (doc$ doctor--something) about your sexual history \.)
|
||||
((doc$ doctor--please) (doc$ doctor--describe) your sex life \.\.\.)
|
||||
((doc$ doctor--describe) your (doc$ doctor--feelings-about) your sexual partner \.)
|
||||
((doc$ doctor--describe) your most (doc$ doctor--random-adjective) sexual experience \.)
|
||||
((doc$ doctor--areyou) satisfied with (doc// doctor--lover) \.\.\. \?)))
|
||||
'(((doc$ doctor--areyou) (doc$ doctor--afraidof) sex \?)
|
||||
((doc$ doctor--describe) (doc$ doctor--something) about your sexual history \.)
|
||||
((doc$ doctor--please) (doc$ doctor--describe) your sex life \.\.\.)
|
||||
((doc$ doctor--describe) your (doc$ doctor--feelings-about) your sexual partner \.)
|
||||
((doc$ doctor--describe) your most (doc$ doctor--random-adjective) sexual experience \.)
|
||||
((doc$ doctor--areyou) satisfied with (doc// doctor--lover) \.\.\. \?)))
|
||||
(setq-local doctor--neglst '((why not \?)
|
||||
((doc$ doctor--bother) i ask that \?)
|
||||
(why not \?)
|
||||
(why not \?)
|
||||
(how come \?)
|
||||
((doc$ doctor--bother) i ask that \?)))
|
||||
((doc$ doctor--bother) i ask that \?)
|
||||
(why not \?)
|
||||
(why not \?)
|
||||
(how come \?)
|
||||
((doc$ doctor--bother) i ask that \?)))
|
||||
(setq-local doctor--beclst
|
||||
'((is it because (doc// doctor-sent) that you came to me \?)
|
||||
((doc$ doctor--bother) (doc// doctor-sent) \?)
|
||||
(when did you first know that (doc// doctor-sent) \?)
|
||||
(is the fact that (doc// doctor-sent) the real reason \?)
|
||||
(does the fact that (doc// doctor-sent) explain anything else \?)
|
||||
((doc$ doctor--areyou) (doc$ doctor--sure) (doc// doctor-sent) \? )))
|
||||
'((is it because (doc// doctor-sent) that you came to me \?)
|
||||
((doc$ doctor--bother) (doc// doctor-sent) \?)
|
||||
(when did you first know that (doc// doctor-sent) \?)
|
||||
(is the fact that (doc// doctor-sent) the real reason \?)
|
||||
(does the fact that (doc// doctor-sent) explain anything else \?)
|
||||
((doc$ doctor--areyou) (doc$ doctor--sure) (doc// doctor-sent) \? )))
|
||||
(setq-local doctor--shortbeclst
|
||||
'(((doc$ doctor--bother) i ask you that \?)
|
||||
(that\'s not much of an answer!)
|
||||
((doc$ doctor--inter) why won\'t you talk about it \?)
|
||||
(speak up!)
|
||||
((doc$ doctor--areyou) (doc$ doctor--afraidof) talking about it \?)
|
||||
(don\'t be (doc$ doctor--afraidof) elaborating \.)
|
||||
((doc$ doctor--please) go into more detail \.)))
|
||||
'(((doc$ doctor--bother) i ask you that \?)
|
||||
(that\'s not much of an answer!)
|
||||
((doc$ doctor--inter) why won\'t you talk about it \?)
|
||||
(speak up!)
|
||||
((doc$ doctor--areyou) (doc$ doctor--afraidof) talking about it \?)
|
||||
(don\'t be (doc$ doctor--afraidof) elaborating \.)
|
||||
((doc$ doctor--please) go into more detail \.)))
|
||||
(setq-local doctor--thlst
|
||||
'(((doc$ doctor--maybe) (doc$ doctor--thing) (doc$ doctor--isrelated) this \.)
|
||||
((doc$ doctor--maybe) (doc$ doctor--things) (doc$ doctor--arerelated) this \.)
|
||||
(is it because of (doc$ doctor--things) that you are going through all this \?)
|
||||
(how do you reconcile (doc$ doctor--things) \? )
|
||||
((doc$ doctor--maybe) this (doc$ doctor--isrelated) (doc$ doctor--things) \?)))
|
||||
'(((doc$ doctor--maybe) (doc$ doctor--thing) (doc$ doctor--isrelated) this \.)
|
||||
((doc$ doctor--maybe) (doc$ doctor--things) (doc$ doctor--arerelated) this \.)
|
||||
(is it because of (doc$ doctor--things) that you are going through all this \?)
|
||||
(how do you reconcile (doc$ doctor--things) \? )
|
||||
((doc$ doctor--maybe) this (doc$ doctor--isrelated) (doc$ doctor--things) \?)))
|
||||
(setq-local doctor--remlst
|
||||
'((earlier you said (doc$ doctor--history) \?)
|
||||
(you mentioned that (doc$ doctor--history) \?)
|
||||
((doc$ doctor--whysay) (doc$ doctor--history) \? )))
|
||||
'((earlier you said (doc$ doctor--history) \?)
|
||||
(you mentioned that (doc$ doctor--history) \?)
|
||||
((doc$ doctor--whysay) (doc$ doctor--history) \? )))
|
||||
(setq-local doctor--toklst
|
||||
'((is this how you relax \?)
|
||||
(how long have you been smoking grass \?)
|
||||
((doc$ doctor--areyou) (doc$ doctor--afraidof) of being drawn to using harder stuff \?)))
|
||||
'((is this how you relax \?)
|
||||
(how long have you been smoking grass \?)
|
||||
((doc$ doctor--areyou) (doc$ doctor--afraidof) of being drawn to using harder stuff \?)))
|
||||
(setq-local doctor--states
|
||||
'((do you get (doc// doctor-found) often \?)
|
||||
(do you enjoy being (doc// doctor-found) \?)
|
||||
(what makes you (doc// doctor-found) \?)
|
||||
(how often (doc$ doctor--areyou) (doc// doctor-found) \?)
|
||||
(when were you last (doc// doctor-found) \?)))
|
||||
'((do you get (doc// doctor-found) often \?)
|
||||
(do you enjoy being (doc// doctor-found) \?)
|
||||
(what makes you (doc// doctor-found) \?)
|
||||
(how often (doc$ doctor--areyou) (doc// doctor-found) \?)
|
||||
(when were you last (doc// doctor-found) \?)))
|
||||
(setq-local doctor--replist '((i . (you))
|
||||
(my . (your))
|
||||
(me . (you))
|
||||
(you . (me))
|
||||
(your . (my))
|
||||
(mine . (yours))
|
||||
(yours . (mine))
|
||||
(our . (your))
|
||||
(ours . (yours))
|
||||
(we . (you))
|
||||
(dunno . (do not know))
|
||||
;; (yes . ())
|
||||
(no\, . ())
|
||||
(yes\, . ())
|
||||
(ya . (i))
|
||||
(aint . (am not))
|
||||
(wanna . (want to))
|
||||
(gimme . (give me))
|
||||
(gotta . (have to))
|
||||
(gonna . (going to))
|
||||
(never . (not ever))
|
||||
(doesn\'t . (does not))
|
||||
(don\'t . (do not))
|
||||
(aren\'t . (are not))
|
||||
(isn\'t . (is not))
|
||||
(won\'t . (will not))
|
||||
(can\'t . (cannot))
|
||||
(haven\'t . (have not))
|
||||
(i\'m . (you are))
|
||||
(ourselves . (yourselves))
|
||||
(myself . (yourself))
|
||||
(yourself . (myself))
|
||||
(you\'re . (i am))
|
||||
(you\'ve . (i have))
|
||||
(i\'ve . (you have))
|
||||
(i\'ll . (you will))
|
||||
(you\'ll . (i shall))
|
||||
(i\'d . (you would))
|
||||
(you\'d . (i would))
|
||||
(here . (there))
|
||||
(please . ())
|
||||
(eh\, . ())
|
||||
(eh . ())
|
||||
(oh\, . ())
|
||||
(oh . ())
|
||||
(shouldn\'t . (should not))
|
||||
(wouldn\'t . (would not))
|
||||
(won\'t . (will not))
|
||||
(hasn\'t . (has not))))
|
||||
(my . (your))
|
||||
(me . (you))
|
||||
(you . (me))
|
||||
(your . (my))
|
||||
(mine . (yours))
|
||||
(yours . (mine))
|
||||
(our . (your))
|
||||
(ours . (yours))
|
||||
(we . (you))
|
||||
(dunno . (do not know))
|
||||
;; (yes . ())
|
||||
(no\, . ())
|
||||
(yes\, . ())
|
||||
(ya . (i))
|
||||
(aint . (am not))
|
||||
(wanna . (want to))
|
||||
(gimme . (give me))
|
||||
(gotta . (have to))
|
||||
(gonna . (going to))
|
||||
(never . (not ever))
|
||||
(doesn\'t . (does not))
|
||||
(don\'t . (do not))
|
||||
(aren\'t . (are not))
|
||||
(isn\'t . (is not))
|
||||
(won\'t . (will not))
|
||||
(can\'t . (cannot))
|
||||
(haven\'t . (have not))
|
||||
(i\'m . (you are))
|
||||
(ourselves . (yourselves))
|
||||
(myself . (yourself))
|
||||
(yourself . (myself))
|
||||
(you\'re . (i am))
|
||||
(you\'ve . (i have))
|
||||
(i\'ve . (you have))
|
||||
(i\'ll . (you will))
|
||||
(you\'ll . (i shall))
|
||||
(i\'d . (you would))
|
||||
(you\'d . (i would))
|
||||
(here . (there))
|
||||
(please . ())
|
||||
(eh\, . ())
|
||||
(eh . ())
|
||||
(oh\, . ())
|
||||
(oh . ())
|
||||
(shouldn\'t . (should not))
|
||||
(wouldn\'t . (would not))
|
||||
(won\'t . (will not))
|
||||
(hasn\'t . (has not))))
|
||||
(setq-local doctor--stallmanlst
|
||||
'(((doc$ doctor--describe) your (doc$ doctor--feelings-about) him \.)
|
||||
((doc$ doctor--areyou) a friend of Stallman \?)
|
||||
((doc$ doctor--bother) Stallman is (doc$ doctor--random-adjective) \?)
|
||||
((doc$ doctor--ibelieve) you are (doc$ doctor--afraidof) him \.)))
|
||||
'(((doc$ doctor--describe) your (doc$ doctor--feelings-about) him \.)
|
||||
((doc$ doctor--areyou) a friend of Stallman \?)
|
||||
((doc$ doctor--bother) Stallman is (doc$ doctor--random-adjective) \?)
|
||||
((doc$ doctor--ibelieve) you are (doc$ doctor--afraidof) him \.)))
|
||||
(setq-local doctor--schoollst
|
||||
'(((doc$ doctor--describe) your (doc// doctor-found) \.)
|
||||
((doc$ doctor--bother) your grades could (doc$ doctor--improve) \?)
|
||||
((doc$ doctor--areyou) (doc$ doctor--afraidof) (doc// doctor-found) \?)
|
||||
((doc$ doctor--maybe) this (doc$ doctor--isrelated) to your attitude \.)
|
||||
((doc$ doctor--areyou) absent often \?)
|
||||
((doc$ doctor--maybe) you should study (doc$ doctor--something) \.)))
|
||||
'(((doc$ doctor--describe) your (doc// doctor-found) \.)
|
||||
((doc$ doctor--bother) your grades could (doc$ doctor--improve) \?)
|
||||
((doc$ doctor--areyou) (doc$ doctor--afraidof) (doc// doctor-found) \?)
|
||||
((doc$ doctor--maybe) this (doc$ doctor--isrelated) to your attitude \.)
|
||||
((doc$ doctor--areyou) absent often \?)
|
||||
((doc$ doctor--maybe) you should study (doc$ doctor--something) \.)))
|
||||
(setq-local doctor--improve
|
||||
'((improve) (be better) (be improved) (be higher)))
|
||||
'((improve) (be better) (be improved) (be higher)))
|
||||
(setq-local doctor--elizalst
|
||||
'(((doc$ doctor--areyou) (doc$ doctor--sure) \?)
|
||||
((doc$ doctor--ibelieve) you have (doc$ doctor--problems) with (doc// doctor-found) \.)
|
||||
((doc$ doctor--whysay) (doc// doctor-sent) \?)))
|
||||
'(((doc$ doctor--areyou) (doc$ doctor--sure) \?)
|
||||
((doc$ doctor--ibelieve) you have (doc$ doctor--problems) with (doc// doctor-found) \.)
|
||||
((doc$ doctor--whysay) (doc// doctor-sent) \?)))
|
||||
(setq-local doctor--sportslst
|
||||
'((tell me (doc$ doctor--something) about (doc// doctor-found) \.)
|
||||
((doc$ doctor--describe) (doc$ doctor--relation) (doc// doctor-found) \.)
|
||||
(do you find (doc// doctor-found) (doc$ doctor--random-adjective) \?)))
|
||||
'((tell me (doc$ doctor--something) about (doc// doctor-found) \.)
|
||||
((doc$ doctor--describe) (doc$ doctor--relation) (doc// doctor-found) \.)
|
||||
(do you find (doc// doctor-found) (doc$ doctor--random-adjective) \?)))
|
||||
(setq-local doctor--mathlst
|
||||
'(((doc$ doctor--describe) (doc$ doctor--something) about math \.)
|
||||
((doc$ doctor--maybe) your (doc$ doctor--problems) (doc$ doctor--arerelated) (doc// doctor-found) \.)
|
||||
(i don\'t know much (doc// doctor-found) \, but (doc$ doctor--continue)
|
||||
anyway \.)))
|
||||
'(((doc$ doctor--describe) (doc$ doctor--something) about math \.)
|
||||
((doc$ doctor--maybe) your (doc$ doctor--problems) (doc$ doctor--arerelated) (doc// doctor-found) \.)
|
||||
(i don\'t know much (doc// doctor-found) \, but (doc$ doctor--continue)
|
||||
anyway \.)))
|
||||
(setq-local doctor--zippylst
|
||||
'(((doc$ doctor--areyou) Zippy \?)
|
||||
((doc$ doctor--ibelieve) you have some serious (doc$ doctor--problems) \.)
|
||||
((doc$ doctor--bother) you are a pinhead \?)))
|
||||
'(((doc$ doctor--areyou) Zippy \?)
|
||||
((doc$ doctor--ibelieve) you have some serious (doc$ doctor--problems) \.)
|
||||
((doc$ doctor--bother) you are a pinhead \?)))
|
||||
(setq-local doctor--chatlst
|
||||
'(((doc$ doctor--maybe) we could chat \.)
|
||||
((doc$ doctor--please) (doc$ doctor--describe) (doc$ doctor--something) about chat mode \.)
|
||||
((doc$ doctor--bother) our discussion is so (doc$ doctor--random-adjective) \?)))
|
||||
'(((doc$ doctor--maybe) we could chat \.)
|
||||
((doc$ doctor--please) (doc$ doctor--describe) (doc$ doctor--something) about chat mode \.)
|
||||
((doc$ doctor--bother) our discussion is so (doc$ doctor--random-adjective) \?)))
|
||||
(setq-local doctor--abuselst
|
||||
'(((doc$ doctor--please) try to be less abusive \.)
|
||||
((doc$ doctor--describe) why you call me (doc// doctor-found) \.)
|
||||
(i\'ve had enough of you!)))
|
||||
'(((doc$ doctor--please) try to be less abusive \.)
|
||||
((doc$ doctor--describe) why you call me (doc// doctor-found) \.)
|
||||
(i\'ve had enough of you!)))
|
||||
(setq-local doctor--abusewords
|
||||
'(boring bozo clown clumsy cretin dumb dummy
|
||||
fool foolish gnerd gnurd idiot jerk
|
||||
lose loser louse lousy luse luser
|
||||
moron nerd nurd oaf oafish reek
|
||||
stink stupid tool toolish twit))
|
||||
'(boring bozo clown clumsy cretin dumb dummy
|
||||
fool foolish gnerd gnurd idiot jerk
|
||||
lose loser louse lousy luse luser
|
||||
moron nerd nurd oaf oafish reek
|
||||
stink stupid tool toolish twit))
|
||||
(setq-local doctor--howareyoulst
|
||||
'((how are you) (hows it going) (hows it going eh)
|
||||
(how\'s it going) (how\'s it going eh) (how goes it)
|
||||
(whats up) (whats new) (what\'s up) (what\'s new)
|
||||
(howre you) (how\'re you) (how\'s everything)
|
||||
(how is everything) (how do you do)
|
||||
(how\'s it hanging) (que pasa)
|
||||
(how are you doing) (what do you say)))
|
||||
'((how are you) (hows it going) (hows it going eh)
|
||||
(how\'s it going) (how\'s it going eh) (how goes it)
|
||||
(whats up) (whats new) (what\'s up) (what\'s new)
|
||||
(howre you) (how\'re you) (how\'s everything)
|
||||
(how is everything) (how do you do)
|
||||
(how\'s it hanging) (que pasa)
|
||||
(how are you doing) (what do you say)))
|
||||
(setq-local doctor--whereoutp '(huh remem rthing))
|
||||
(setq-local doctor-subj nil)
|
||||
(setq-local doctor-verb nil)
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue