Verbot 4

[Bogart]

Does anyone use Verbot 4.
http://www.verbots.com/verbotse.php

I am looking for a XXX Rated knowledge base to use with my Verbot.  Taking time to create my own knowledgebase file with the Verbot editor is too long.  I am just to lazy.

[onthecuttingedge2005]

Code: [Select]


'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]