quote:
Originally posted by Magus_V
Thanks, Mr. Medeksza.
Hi Magnus.
You can also replace the 'RESPOND: CALL INSULT HATE SWEAR FUNCTION
with this one that I added a line of code to.
'RESPOND: CALL INSULT HATE SWEAR FUNCTION WITH HIGHER TOLERANCE ONLY IF YOU'RE OR YOU ARE IS DETECTED.
   'This function will check for insults and swearing and respond to them. It is built into this script,
   'so you can edit it.
   If InStr(1, OriginalSentence, "YOU'RE ", 1) > 0 Or InStr(1, OriginalSentence, "YOU ARE ", 1) > 0 Then
   CheckInsult = Trim(Insult(UserSentence, Insults, Hate, Swear, WorkingDir))
   If Len(CheckInsult) > 4 Then
      GetResponse = GetResponse & CheckInsult & vbCrLf
      AvoidBeingFlag = True
      DebugInfo = DebugInfo & "The user has insulted Hal and Hal has responded to it: " & CheckInsult & vbCrLf
   End If
    End If
Hope this works for you.
Jerry.