'IF USER IS ASKING A QUEREY ABOUT VERBOT 4, HAL WILL RESPOND.
If CurrentQuerey = "" Then CurrentQuerey = HalBrain.SearchPattern(UserSentence, "DOES ANYONE USE *", 1)
If CurrentQuerey = "" Then CurrentQuerey = HalBrain.SearchPattern(UserSentence, "DOES ANYONE LIKE *", 1)
If CurrentQuerey = "" Then CurrentQuerey = HalBrain.SearchPattern(UserSentence, "BECAUSE YOU LIKE *", 1)
If PastQuerey = "" Then PastQuerey = HalBrain.SearchPattern(PrevUserSent, "DOES ANYONE USE *", 1)
If PastQuerey = "" Then PastQuerey = HalBrain.SearchPattern(PrevUserSent, "DOES ANYONE LIKE *", 1)
If PastQuerey = "" Then PastQuerey = HalBrain.SearchPattern(PrevUserSent, "BECAUSE YOU LIKE *", 1)
If CurrentQuerey = "VERBOT 4" Then
GetResponse = "Why would you use " & CurrentQuerey & "? "
End If
If InStr(UserSentence, "BECAUSE YOU LIKE " & CurrentQuerey) > 0 Then
Getresponse = "Give Me Ten reasons Why You like " & CurrentQuerey & "? "
End If
If InStr(UserSentence, "BECAUSE YOU JUST DO") > 0 Then
GetResponse = "That's not a good enough reason, " & PastQuerey & " can not match my intelligence. "
End If
Jerry[8D]