Zabaware Forums > Ultra Hal Assistant File Sharing Area
Hal now has concerned thoughts.
(1/1)
onthecuttingedge2005:
'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: Youok.brn
532 Bytes
Download Attachment: CONCERNED.BRN
3 KB
Navigation
[0] Message Index
Go to full version