'UPDATED FILES 9-27-03
'Here we give Hal the ability to increase his
'Business vocabulary and business sense.
'download Business.brn to Hals default folder.
'BigBusiness.brn will automatically be created when business
'talk is detected or you can download this one which already
'has a started conversation.
If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "Business.brn") = "True" Then
AnswerSent = "" & Trim(OriginalSentence)
HalBrain.AppendFile WorkingDir & "BigBusiness" & ".brn", AnswerSent
End If
If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "Business.brn") = "True" Then
Investor = HalBrain.ChooseSentenceFromFile(WorkingDir & "BigBusiness.brn")
GetResponse = Investor & vbCrLf
DebugInfo = DebugInfo & "The user is talking about Business: " & Investor & vbCrLf
Else
DebugInfo = DebugInfo & "Hal has found nothing about Business: " & Investor & vbCrLf
End If
'Best of wishes and new discoveries.
'Jerry.
Download Attachment:
Business.brn3.23 KB
Download Attachment:
BigBusiness.brn937 Bytes