Zabaware Forums > Ultra Hal Assistant File Sharing Area

Hal talks about music/song/dance/singers script.

(1/1)

onthecuttingedge2005:
'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.brn
760 Bytes

Download Attachment: MUSIC.brn
1.89 KB

Navigation

[0] Message Index