Zabaware Support Forums
Zabaware Forums => Ultra Hal Assistant File Sharing Area => Topic started by: onthecuttingedge2005 on September 26, 2003, 12:42:21 pm
-
'This script detects hate from the User
'and demands an apology from the User.
'The UserHate.brn is the detection file
'so place any other detection words you want
'in it, the SaySorry.brn is the apology
'demands of Hal so you can add any additional
'demands in there as well.
If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "UserHate.brn") = "TRUE" Then
DemandApology = HalBrain.ChooseSentenceFromFile(WorkingDir & "SaySorry.brn")
GetResponse = DemandApology & vbCrLf
DebugInfo = DebugInfo & "The user is talking about Hating Hal, Hal wants apology: " & DemandApology & vbCrLf
Else
DebugInfo = DebugInfo & "User is not talking about Hating Hal: " & DemandApology & vbCrLf
End If
'Best of wishes and new discoveries.
'Jerry.
Download Attachment: (http://images/icon_paperclip.gif) UserHate.brn ("http://www.zabaware.com/forum/uploaded/onthecuttingedge2005/2003926124144_UserHate.brn")
2.13 KB
Download Attachment: (http://images/icon_paperclip.gif) SaySorry.brn ("http://www.zabaware.com/forum/uploaded/onthecuttingedge2005/200392612423_SaySorry.brn")
1.13 KB