Zabaware Support Forums
Zabaware Forums => Ultra Hal Assistant File Sharing Area => Topic started by: onthecuttingedge2005 on September 25, 2003, 09:17:01 pm
-
'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: (http://images/icon_paperclip.gif) MUSICTALK.brn (http://"http://www.zabaware.com/forum/uploaded/onthecuttingedge2005/2003925211653_MUSICTALK.brn")
760 Bytes
Download Attachment: (http://images/icon_paperclip.gif) MUSIC.brn (http://"http://www.zabaware.com/forum/uploaded/onthecuttingedge2005/200392613312_MUSIC.brn")
1.89 KB