comparison lisp/play/doctor.el @ 49598:0d8b17d428b5

Trailing whitepace deleted.

49597:e88404e8f2cf

	'((how do you do \?) (hello \.) (howdy!) (hello \.) (hi \.) (hi there \.)))
  (make-local-variable 'drnk)
  (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
						 be very harmful \?)((doc$ maybe) you should try to quit using (doc// found)
						 \.)))

	'((i see \.\.\.)
	  (yes\,)
	  (i understand \.)
	  (oh \.) ))
  (make-local-variable 'please)
  (setq please 
	'((please\,)
	  (i would appreciate it if you would)
	  (perhaps you could)
	  (please\,)
	  (would you please)

  (setq something
	'((something)
	  (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)
	  ;(your use of computers)
	  (your life)

	  (talk about)
	  (discuss)
	  (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)
  (setq problems '( (problems)
		    (inhibitions)

	  (are you annoyed that)
	  (did you ever regret)
	  (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)\.)
	  (are you a computer hacker \?)))
  (make-local-variable 'qlist)

	  ((doc$ 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 \?))
	)
  (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 \.\.\.)
	  ((doc$ describe) your (doc$ feelings-about) your sexual partner \.)
	  ((doc$ describe) your most (doc$ random-adjective) sexual experience \.)

	  (do you enjoy being (doc// found) \?)
	  (what makes you (doc// found) \?)
	  (how often (doc$ areyou)(doc// found) \?)
	  (when were you last (doc// found) \?)))
  (make-local-variable 'replist)
  (setq replist 
	'((i . (you))
	  (my . (your))
	  (me . (you))
	  (you . (me))
	  (your . (my))

   ((member sent howareyoulst)
    (doctor-type '(i\'m ok \.  (doc$ describe) yourself \.)))
   ((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)
	 (memq (cadr sent) abusewords))
    (setq found (cadr sent))

	       (setq temp (cdr temp)))))
  found)

(defun doctor-def (x)
  (progn
   (doctor-type (list 'the 'word x 'means (doctor-meaning x) 'to 'me)) 
   nil))

(defun doctor-forget ()
  "Delete the last element of the history list."
  (setq history (reverse (cdr (reverse history)))))

		lose losing lost
		love loved loves loving
		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
		refer refered referred refers
		relate related relates remember remembered remembers

		twenty thirty forty fifty sixty seventy eighty ninety
		hundred thousand million billion
		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
		  orange pink purple red tan tawny
		  violet white yellow)))

	       ((equal sent (doctor-assm '(because)))
		(doctor-type (doc$ shortbeclst)))
	       ((equal sent (doctor-assm '(no)))
		(doctor-type (doc$ neglst)))
	       (t (doctor-type (doc$ shortlst)))))))
	   
(defun doctor-alcohol () (doctor-type (doc$ drnk)))

(defun doctor-desire ()
  (let ((foo (memq found sent)))
    (cond ((< (length foo) 2)

(defun doctor-eliza ()
  (cond (eliza-flag (doctor-type (doc$ elizalst)))
	(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)))

(defun doctor-zippy ()

49598:0d8b17d428b5

	'((how do you do \?) (hello \.) (howdy!) (hello \.) (hi \.) (hi there \.)))
  (make-local-variable 'drnk)
  (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
						 be very harmful \?)((doc$ maybe) you should try to quit using (doc// found)
						 \.)))

	'((i see \.\.\.)
	  (yes\,)
	  (i understand \.)
	  (oh \.) ))
  (make-local-variable 'please)
  (setq please
	'((please\,)
	  (i would appreciate it if you would)
	  (perhaps you could)
	  (please\,)
	  (would you please)

  (setq something
	'((something)
	  (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)
	  ;(your use of computers)
	  (your life)

	  (talk about)
	  (discuss)
	  (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)
  (setq problems '( (problems)
		    (inhibitions)

	  (are you annoyed that)
	  (did you ever regret)
	  (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)\.)
	  (are you a computer hacker \?)))
  (make-local-variable 'qlist)

	  ((doc$ 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 \?))
	)
  (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 \.\.\.)
	  ((doc$ describe) your (doc$ feelings-about) your sexual partner \.)
	  ((doc$ describe) your most (doc$ random-adjective) sexual experience \.)

	  (do you enjoy being (doc// found) \?)
	  (what makes you (doc// found) \?)
	  (how often (doc$ areyou)(doc// found) \?)
	  (when were you last (doc// found) \?)))
  (make-local-variable 'replist)
  (setq replist
	'((i . (you))
	  (my . (your))
	  (me . (you))
	  (you . (me))
	  (your . (my))

   ((member sent howareyoulst)
    (doctor-type '(i\'m ok \.  (doc$ describe) yourself \.)))
   ((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)
	 (memq (cadr sent) abusewords))
    (setq found (cadr sent))

	       (setq temp (cdr temp)))))
  found)

(defun doctor-def (x)
  (progn
   (doctor-type (list 'the 'word x 'means (doctor-meaning x) 'to 'me))
   nil))

(defun doctor-forget ()
  "Delete the last element of the history list."
  (setq history (reverse (cdr (reverse history)))))

		lose losing lost
		love loved loves loving
		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
		refer refered referred refers
		relate related relates remember remembered remembers

		twenty thirty forty fifty sixty seventy eighty ninety
		hundred thousand million billion
		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
		  orange pink purple red tan tawny
		  violet white yellow)))

	       ((equal sent (doctor-assm '(because)))
		(doctor-type (doc$ shortbeclst)))
	       ((equal sent (doctor-assm '(no)))
		(doctor-type (doc$ neglst)))
	       (t (doctor-type (doc$ shortlst)))))))

(defun doctor-alcohol () (doctor-type (doc$ drnk)))

(defun doctor-desire ()
  (let ((foo (memq found sent)))
    (cond ((< (length foo) 2)

(defun doctor-eliza ()
  (cond (eliza-flag (doctor-type (doc$ elizalst)))
	(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)))

(defun doctor-zippy ()