[Emacs-diffs] Changes to emacs/lisp/play/doctor.el

[Miles Bader]

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)))