[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/play/doctor.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/play/doctor.el |
Date: |
Fri, 04 Apr 2003 01:22:46 -0500 |
Index: emacs/lisp/play/doctor.el
diff -c emacs/lisp/play/doctor.el:1.31 emacs/lisp/play/doctor.el:1.32
*** emacs/lisp/play/doctor.el:1.31 Mon Sep 23 12:04:50 2002
--- emacs/lisp/play/doctor.el Tue Feb 4 08:20:41 2003
***************
*** 168,174 ****
(setq drnk
'((do you drink a lot of (doc// found) \?)
(do you get drunk often \?)
! ((doc$ describe) your drinking habits \.) ))
(make-local-variable 'drugs)
(setq drugs '( (do you use (doc// found) often \?)((doc$ areyou)
addicted to (doc// found)
\?)(do you realize that drugs can
--- 168,174 ----
(setq drnk
'((do you drink a lot of (doc// found) \?)
(do you get drunk often \?)
! ((doc$ describe) your drinking habits \.) ))
(make-local-variable 'drugs)
(setq drugs '( (do you use (doc// found) often \?)((doc$ areyou)
addicted to (doc// found)
\?)(do you realize that drugs can
***************
*** 256,262 ****
(i understand \.)
(oh \.) ))
(make-local-variable 'please)
! (setq please
'((please\,)
(i would appreciate it if you would)
(perhaps you could)
--- 256,262 ----
(i understand \.)
(oh \.) ))
(make-local-variable 'please)
! (setq please
'((please\,)
(i would appreciate it if you would)
(perhaps you could)
***************
*** 279,285 ****
(more)
(how you feel)))
(make-local-variable 'things)
! (setq things
'(;(your interests in computers) ;; let's make this less computer
oriented
;(the machines you use)
(your plans)
--- 279,285 ----
(more)
(how you feel)))
(make-local-variable 'things)
! (setq things
'(;(your interests in computers) ;; let's make this less computer
oriented
;(the machines you use)
(your plans)
***************
*** 306,312 ****
(tell me more about)
(elaborate on)))
(make-local-variable 'ibelieve)
! (setq ibelieve
'((i believe) (i think) (i have a feeling) (it seems to me that)
(it looks like)))
(make-local-variable 'problems)
--- 306,312 ----
(tell me more about)
(elaborate on)))
(make-local-variable 'ibelieve)
! (setq ibelieve
'((i believe) (i think) (i have a feeling) (it seems to me that)
(it looks like)))
(make-local-variable 'problems)
***************
*** 324,330 ****
(are you sorry)
(are you satisfied with the fact that)))
(make-local-variable 'machlst)
! (setq machlst
'((you have your mind on (doc// found) \, it seems \.)
(you think too much about (doc// found) \.)
(you should try taking your mind off of (doc// found)\.)
--- 324,330 ----
(are you sorry)
(are you satisfied with the fact that)))
(make-local-variable 'machlst)
! (setq machlst
'((you have your mind on (doc// found) \, it seems \.)
(you think too much about (doc// found) \.)
(you should try taking your mind off of (doc// found)\.)
***************
*** 351,357 ****
(did you watch a lot of crime and violence on television as a child
\?))
)
(make-local-variable 'sexlst)
! (setq sexlst
'(((doc$ areyou) (doc$ afraidof) sex \?)
((doc$ describe)(doc$ something) about your sexual history \.)
((doc$ please)(doc$ describe) your sex life \.\.\.)
--- 351,357 ----
(did you watch a lot of crime and violence on television as a child
\?))
)
(make-local-variable 'sexlst)
! (setq sexlst
'(((doc$ areyou) (doc$ afraidof) sex \?)
((doc$ describe)(doc$ something) about your sexual history \.)
((doc$ please)(doc$ describe) your sex life \.\.\.)
***************
*** 406,412 ****
(how often (doc$ areyou)(doc// found) \?)
(when were you last (doc// found) \?)))
(make-local-variable 'replist)
! (setq replist
'((i . (you))
(my . (your))
(me . (you))
--- 406,412 ----
(how often (doc$ areyou)(doc// found) \?)
(when were you last (doc// found) \?)))
(make-local-variable 'replist)
! (setq replist
'((i . (you))
(my . (your))
(me . (you))
***************
*** 884,890 ****
((or (member sent '((good bye) (see you later) (i quit) (so long)
(go away) (get lost)))
(memq (car sent)
! '(bye halt break quit done exit goodbye
bye\, stop pause goodbye\, stop pause)))
(doctor-type (doc$ bye)))
((and (eq (car sent) 'you)
--- 884,890 ----
((or (member sent '((good bye) (see you later) (i quit) (so long)
(go away) (get lost)))
(memq (car sent)
! '(bye halt break quit done exit goodbye
bye\, stop pause goodbye\, stop pause)))
(doctor-type (doc$ bye)))
((and (eq (car sent) 'you)
***************
*** 990,996 ****
(defun doctor-def (x)
(progn
! (doctor-type (list 'the 'word x 'means (doctor-meaning x) 'to 'me))
nil))
(defun doctor-forget ()
--- 990,996 ----
(defun doctor-def (x)
(progn
! (doctor-type (list 'the 'word x 'means (doctor-meaning x) 'to 'me))
nil))
(defun doctor-forget ()
***************
*** 1093,1101 ****
luse lusing lust lusts
made make makes making may mean means meant might
move moved moves moving must
! need needed needs
order ordered orders ought
! paid pay pays pick picked picking picks
placed placing prefer prefers put puts
ran rape raped rapes
read reading reads recall receive received receives
--- 1093,1101 ----
luse lusing lust lusts
made make makes making may mean means meant might
move moved moves moving must
! need needed needs
order ordered orders ought
! paid pay pays pick picked picking picks
placed placing prefer prefers put puts
ran rape raped rapes
read reading reads recall receive received receives
***************
*** 1200,1206 ****
half quarter
first second third fourth fifth
sixth seventh eighth ninth tenth)))
!
(defun doctor-colorp (x)
(memq x '(beige black blue brown crimson
gray grey green
--- 1200,1206 ----
half quarter
first second third fourth fifth
sixth seventh eighth ninth tenth)))
!
(defun doctor-colorp (x)
(memq x '(beige black blue brown crimson
gray grey green
***************
*** 1485,1491 ****
((equal sent (doctor-assm '(no)))
(doctor-type (doc$ neglst)))
(t (doctor-type (doc$ shortlst)))))))
!
(defun doctor-alcohol () (doctor-type (doc$ drnk)))
(defun doctor-desire ()
--- 1485,1491 ----
((equal sent (doctor-assm '(no)))
(doctor-type (doc$ neglst)))
(t (doctor-type (doc$ shortlst)))))))
!
(defun doctor-alcohol () (doctor-type (doc$ drnk)))
(defun doctor-desire ()
***************
*** 1619,1625 ****
(t (setq eliza-flag t)
(doctor-type '((doc// found) \? hah !
(doc$ please) (doc$ continue) \.)))))
!
(defun doctor-sports () (doctor-type (doc$ sportslst)))
(defun doctor-math () (doctor-type (doc$ mathlst)))
--- 1619,1625 ----
(t (setq eliza-flag t)
(doctor-type '((doc// found) \? hah !
(doc$ please) (doc$ continue) \.)))))
!
(defun doctor-sports () (doctor-type (doc$ sportslst)))
(defun doctor-math () (doctor-type (doc$ mathlst)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/play/doctor.el,
Miles Bader <=