Hal now has concerned thoughts.

[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