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.