Mercurial > emacs
comparison lisp/play/doctor.el @ 66342:a4fe475f3c8b
(doctor-doc): Don't say "psychiatrist".
(doctor-symptoms): Likewise.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 23 Oct 2005 18:19:47 +0000 |
parents | 46d503c20412 |
children | 3a3f5ed673b0 7beb78bc1f8e |
comparison
equal
deleted
inserted
replaced
66341:8ad92df59512 | 66342:a4fe475f3c8b |
---|---|
952 (if (and (eq (car sent) 'do) (eq (cadr sent) 'not)) | 952 (if (and (eq (car sent) 'do) (eq (cadr sent) 'not)) |
953 (cond ((zerop (random 3)) | 953 (cond ((zerop (random 3)) |
954 (doctor-type '(are you (doc$ afraidof) that \?))) | 954 (doctor-type '(are you (doc$ afraidof) that \?))) |
955 ((zerop (random 2)) | 955 ((zerop (random 2)) |
956 (doctor-type '(don\'t tell me what to do \. i am the | 956 (doctor-type '(don\'t tell me what to do \. i am the |
957 psychiatrist here!)) | 957 doctor here!)) |
958 (doctor-rthing)) | 958 (doctor-rthing)) |
959 (t | 959 (t |
960 (doctor-type '((doc$ whysay) that i shouldn\'t | 960 (doctor-type '((doc$ whysay) that i shouldn\'t |
961 (cddr sent) | 961 (cddr sent) |
962 \?)))) | 962 \?)))) |
1550 ((equal subj 'you) | 1550 ((equal subj 'you) |
1551 (doctor-type '(why do you (doc// verb)(doc// obj) \?))) | 1551 (doctor-type '(why do you (doc// verb)(doc// obj) \?))) |
1552 (t (doctor-type '((doc$ whysay)(list subj verb obj)))))) | 1552 (t (doctor-type '((doc$ whysay)(list subj verb obj)))))) |
1553 | 1553 |
1554 (defun doctor-symptoms () | 1554 (defun doctor-symptoms () |
1555 (doctor-type '((doc$ maybe) you should consult a doctor of medicine\, | 1555 (doctor-type '((doc$ maybe) you should consult a medical doctor\; |
1556 i am a psychiatrist \.))) | 1556 i am a psychotherapist. \.))) |
1557 | 1557 |
1558 (defun doctor-hates () | 1558 (defun doctor-hates () |
1559 (doctor-svo sent found 1 t) | 1559 (doctor-svo sent found 1 t) |
1560 (doctor-hates1)) | 1560 (doctor-hates1)) |
1561 | 1561 |