https://github.com/PDP-10/its/blob/master/src/games/animal.1...
https://github.com/PDP-10/its/blob/master/src/games/animal.r...
It would guess your animal by asking you yes or no questions that distinguish it from other animals in a tree, and if it couldn't guess it, then it asked you how it can tell the difference between your animal and the animal it guessed, then it would parse the sentence and put it into the tree at that node as a question, thus learning to guess your animal next time.
https://github.com/PDP-10/its/blob/master/src/games/animal.o...
https://github.com/PDP-10/its/blob/master/src/games/animal.s...
It had an extensive list of foul language words:
https://github.com/PDP-10/its/blob/master/src/games/animal.1...
My animal was the Pope, and my distinguishing question had to do with shitting in the woods, and after being warned I continued to use foul language, so it got mad at me, and sent email to KMP and cc'd me, telling on me for saying terrible things to it:
(DEFUN HANDLE-FOUL-LANGUAGE (()) ;REPLY
(OUTPUT-BIND
(DISPLAY
(CASEQ *FOUL-FLAG*
((0) '"Please watch your language.")
((1) '"Hey! Watch your tongue. I warned you before.")
((2) '"Will you watch it with the dirty talk? Thanks.")
(T '"Aw, come on. Stop talking so dirty...")))
(SETQ *FOUL-FLAG* T)
(SETQ *APOLOGY-FLAG* NIL)
(SETQ *FOUL-COUNT* (1+ *FOUL-COUNT*))
(COND ((> *FOUL-COUNT* *FOUL-COUNT-MAX*)
(SEND-MAIL `((TO: KMP)
(CC: ,(STATUS USERID))
(SUBJECT: (,(CONCAT *PLAYER-NAME* '|'s|)
"Foul language!")))
`(,*FIRST-NAME* "said terrible things to me.
I'm going to be pretty mad at"
,*PLAYER-OBJECT-PRONOUN* "until"
,*PLAYER-SUBJECT-PRONOUN* "apologizes."))
(REMEMBER 'FOUL)
(DISPLAY '"I give up. You're hopeless!")
(SUICIDE)))))
https://github.com/PDP-10/its/blob/master/src/games/animal.1...
(DEF-QUESTION MAD (X) ()
IF (MATCHES X (ARE YOU (*) (?= ANGRY?) (?= PREPOSITION?) ME (*))
(ARE YOU (*) (?= ANGRY?)))
THEN (COND (*FOUL-FLAG*
(COND (*FORGIVE-FLAG*
(COND (*APOLOGY-FLAG*
(DISPLAY '"Yes, I am still a bit mad."))
(T
(DISPLAY '"Yes, I am very mad. Your
language has really been in the
gutter today."))))
(T
(DISPLAY '"Yes. Your language has been atrocious."))))
(*FORGIVE-FLAG*
(DISPLAY '"No, but I was earlier!"))
(*APOLOGY-FLAG*
(DISPLAY '"You should really see someone about this. No,
I'm really not mad at you. I wish you'd stop
apologizing for nothing..."))
(T
(DISPLAY '"I have nothing to be mad at you for.")))
T)
(DEFUN RECEIVE-APOLOGY ()
(COND ((AND (NOT *FOUL-FLAG*) (NOT *FORGIVE-FLAG*))
(COND ((NOT *APOLOGY-FLAG*)
(DISPLAY
(SELECT-ONE-OF '("I don't know why you are apologizing."
"You don't owe me an apology."))))
(T
(DISPLAY
(SELECT-ONE-OF '("All right! Stop apologizing."
"You got some sort of guilt complex?"
"Perhaps you should see a priest.")))))
(SETQ *APOLOGY-FLAG* T))
((NOT *FOUL-FLAG*)
(DISPLAY
(SELECT-ONE-OF '("I forgave you already!"
"Yes, yes. I forgave you!")))
(SETQ *APOLOGY-FLAG* T))
((NOT *FORGIVE-FLAG*)
(DISPLAY '"All right. I accept your apology...")
(SETQ *FOUL-FLAG* NIL)
(SETQ *FORGIVE-FLAG* T)
(FORGIVE 'FOUL '"using foul language"))
((NOT *APOLOGY-FLAG*)
(DISPLAY '"Sorry, I gave you your chance and you blew it.")
(SETQ *APOLOGY-FLAG* T))
(T
(DISPLAY
(SELECT-ONE-OF
'("OK. Since you're being so insistent. I accept
your apology"
"OK. That sounds sincere to me.")))
(SETQ *APOLOGY-FLAG* NIL)
(SETQ *FOUL-FLAG* NIL)
(SETQ *FORGIVE-FLAG* T)
(FORGIVE 'FOUL '"using foul language"))))
(COND ((SETQ *FOUL-FLAG* (REMEMBER? 'FOUL))
(DISPLAY '"By the way -- we weren't
on good terms the last time we played.
I hope you have learned your lesson now.")))
https://github.com/PDP-10/its/blob/master/src/games/animal.b...
Date: 9 July 1982 03:49-EDT
From: Donald E. Hopkins <A2DEH at MIT-MC>
To: ANIMAL at MIT-MC
cc: KMP at MIT-MC
Aww, gee... I'm sorry... I didn't realy mean it. I was just
asking questions pertaining to popes and bears and woods, and you
got all excited... Some AI program you are if you don't know what
religion a bear is or where the Pope ... Ahem... As I was saying,
I'm sorry and I will never do it again.
-Don
https://github.com/PDP-10/its/blob/master/src/games/animal.1...