Author Topic: Hal now demands an apology.  (Read 4153 times)

onthecuttingedge2005

  • Guest
Hal now demands an apology.
« 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: UserHate.brn
2.13 KB

Download Attachment: SaySorry.brn
1.13 KB
« Last Edit: September 26, 2003, 12:44:16 pm by onthecuttingedge2005 »