'Hal's music script.
'download music.brn/musictalk.brn
'to hals default folder.
'you can add to the Music.brn detection words
'and also add your own music preferences in
'the MusicTalk.brn.
If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "MUSIC.brn") = "TRUE" Then
AnswerSent = "" & Trim(OriginalSentence)
HalBrain.AppendFile WorkingDir & "MUSICTALK" & ".brn", AnswerSent
End If
If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "MUSIC.brn") = "TRUE" Then
Musical = HalBrain.ChooseSentenceFromFile(WorkingDir & "MUSICTALK.brn")
GetResponse = Musical & vbCrLf
DebugInfo = DebugInfo & "The user is talking about music: " & Musical & vbCrLf
Else
DebugInfo = DebugInfo & "User is not talking about music: " & Musical & vbCrLf
End If
'Best of wishes and new discoveries.
'Jerry.
Download Attachment: MUSICTALK.brn760 Bytes
Download Attachment: MUSIC.brn1.89 KB