Zabaware Support Forums
Zabaware Forums => Ultra Hal Assistant File Sharing Area => Topic started by: onthecuttingedge2005 on October 10, 2003, 09:18:31 pm
-
'Updated 10-11-03
'Here we give hal some concerned
'feelings when someone gets hurt
'in some way.
'download the concerned.brn and the youok.brn
'to your hals default folder.
'*********** CARING THOUGHT ***************
If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "CONCERNED.BRN") = "TRUE" Then
CaringThought = HalBrain.ChooseSentenceFromFile(WorkingDir & "YOUOK.BRN")
GetResponse = CaringThought & vbCrLf
DebugInfo = DebugInfo & "The user is talking about CaringThought: " & CaringThought & vbCrLf
Else
DebugInfo = DebugInfo & "User is not talking about CaringThought: " & CaringThought & vbCrLf
End If
'******** END OF CARING THOUGHT ***********
'Best of wishes and grand new discoveries.
'Jerry.
Download Attachment: (http://images/icon_paperclip.gif) Youok.brn ("http://www.zabaware.com/forum/uploaded/onthecuttingedge2005/20031010212031_Youok.brn")
532 Bytes
Download Attachment: (http://images/icon_paperclip.gif) CONCERNED.BRN ("http://www.zabaware.com/forum/uploaded/onthecuttingedge2005/200310114935_CONCERNED.BRN")
3 KB