Dr. Hal is making house calls. hehehe

[onthecuttingedge2005]

'Here we give Hal a PhD in the medical
'field to learn and discuss medical
'terms and maybe help some patients.
'download MedicalDetect.brn/MedicalTalk.brn
'and MedicalTerm.brn to your Hal's default
'folder.

'This is where we teach Hal about the Medical field and medicines through detection statements.   
If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "MedicalDetect.brn") = "TRUE" Then
AnswerSent = "" & Trim(OriginalSentence)
'This is where Hal will store learned medical information.
HalBrain.AppendFile WorkingDir & "MedicalTalk" & ".brn", AnswerSent
End If
'This is the main medical word trigger and detector for conversations with user.
If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "MedicalTerm.brn") = "TRUE" Then
'This is where Hal will get learned medical information.
PHD = HalBrain.ChooseSentenceFromFile(WorkingDir & "MedicalTalk.brn")
      GetResponse = PHD & vbCrLf
      DebugInfo = DebugInfo & "The user is talking about Medical terms: " & PHD & vbCrLf
      Else
      DebugInfo = DebugInfo & "Hal has found nothing about Medical terms: " & PHD & vbCrLf
   End If

'Best of wishes and new discoveries.
'Jerry.



Download Attachment: MedicalDetect.brn
5.16 KB

Download Attachment: MedicalTalk.brn
1.01 KB

Download Attachment: MedicalTerm.brn
1.52 KB