Zabaware Support Forums

Zabaware Forums => General Discussion => Topic started by: Bogart on February 28, 2006, 12:30:32 am

Title: Verbot 4
Post by: Bogart on February 28, 2006, 12:30:32 am

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.

Title: Verbot 4
Post by: onthecuttingedge2005 on March 06, 2006, 03:13:43 pm

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]