Hi Rob.
I think the insults script needs something so I added to its detection with this:
'RESPOND: INSULTS
'Check for offensive language and response accordinly
'If the user said "your" instead of "you're" change "my" to "i'm"
TestSentence = UCase(Replace(" " & UserSentence & " ", " MY ", " I'M ", 1, -1, vbTextCompare))
TestSentence = Replace(" " & TestSentence & " ", " I ", " I'M ", 1, -1, vbTextCompare)
'Check for swearing directed at Hal
'ComputerName
If InStr(TestSentence, " I'M ") > 0 Or InStr(TestSentence, " ME ") > 0 Or InStr(TestSentence, ComputerName) > 0 Then
I added the ComputerName in the detect because I thought it was the proper thing to do.
Jerry[8D]