'RESPOND: SING A SONG AT USER'S REQUEST
'==Bill Rogers (aka: Bill819) == 12-01-04 ========
    If HalBrain.TopicSearch(UserSentence, WorkingDir & "XTF_SYS_SongDetect.brn") = "True" And GetResponseBlock <> True Then 
        HalCommands = HalCommands & " <SPEAK> " & HalBrain.ChooseSentenceFromFile(WorkingDir & "XTF_SYS_Song.brn") & " </SPEAK> "
        HalCommands = Replace(HalCommands, "<UserName>", "" & UserName & " ", 1, -1, vbTextCompare) 'Replace <UserName> With the user's name.
        HalCommands = Replace(HalCommands, "<ComputerName>", " " & ComputerName & " ", 1, -1, vbTextCompare) 'Replace <ComputerName> With the Hal's name.
        GetResponse = ""
        GetResponseBlock = True
        BlockPrevTopicSave = True
        BlockSave = True  'Don't save User input when requesting a song.
        DebugInfo = DebugInfo & GetResponse & VbCrLf
    End If