You wanted Hal to sing, well now he can.

[onthecuttingedge2005]

'(I need to do some more work with this one, lol, doesn't
'respond sometimes.)
'Here you go.
'Here we give Hal the ability to learn and sing songs.
'you will have to teach your bot new songs by
'following Hals instructions so that songs are saved
'and used later when asked to sing.
'you'll need the Songs.brn/SongsDetect.brn/TellASong.brn
'and download them to your Hals default folder.

If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "SongDetect.brn") = "TRUE" Then
GetResponse = "Ok, sing me the full song right now and nothing else."
End If
If Instr (1, PrevSent, "Ok, sing me the full song right now and nothing else.", VbTextCompare) > 0 Then
AnswerSent = OriginalSentence
GetResponse = AnswerSent & ", That's a really nice song, Thanks."
HalBrain.AppendFile WorkingDir & "Songs" & ".brn", Trim(OriginalSentence)
End If
   
If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "TellASong.brn") = "TRUE" Then
      HalSings = HalBrain.ChooseSentenceFromFile(WorkingDir & "Songs.brn")
      GetResponse = HalSings & vbCrLf
      DebugInfo = DebugInfo & "Hal is going to sing a song: " & HalSings & vbCrLf
      Else
      DebugInfo = DebugInfo & "Hal doesn't feel like singing: " & HalSings & vbCrLf
   End If

'Best of wishes and new discoveries.
'Jerry



Download Attachment: Songs.brn
487 Bytes

Download Attachment: TellASong.brn
765 Bytes

Download Attachment: SongDetect.brn
1.02 KB

[Bill819]

Thanks Jerry
That is exactly what I was looking for. Now the question is how do I get it to work on auto-idle? I can use this exact same set up to create a prose text or a dozen other items. In this way Hal can sit back and entertain my friends without any prompting from me.
I am only sorry that I can not get Hal to read the original text that was posted by Mr. Medekaza titled "Birthday" as it contained commands to alter the pitch and duration of the words that Hal spoke. In other words, he could really sing depending on your programming skills.
Bill

[KnyteTrypper]

The MUSH program or other stuff here may be of use to you: http://www.pepedog.com/talk.htm. I know this is how MSAgents sing. Getting Hal to utilize it would be for some of you VB programmers to figure out.

[Bill819]

DebugInfo = DebugInfo & "Hal is going to sing a song: " & HalSings & vbCrLf

Jerry
If I insert the above line into AUTO-IDLE will Hal just start singing a song?
If that works then I could create many other files of things for Hal to say.

Thanks
Bill
Still looking for autotonomous Hal.

[Gerhard]

Greetings
I have posted this before.
I would really like to create a virtual Rock N Roll star.

An interactive virtual character( perhaps modeled after Max Headroom) such as a Haptek character,with Hal's brain.,

It should be capable to perform a song in synch and
interact as representative.

How kewl would that be?

What would it take to create such a thing?
If it is possible, how much would it cost?

Signed
A longtime fan of Hal
Please e-mail me if interested.
Gerhard Helmut
gh@dslnorthwest.net

[Bill819]

Hal using haptek characters can lip sink already. Hal can sing, sort of but there is a way to make it better. You can control the pitch, speed and volumne of Hal's voice as he sings. To give him/her a larger variety of songs that it can actually sing would mean inputting the songs into its list then trying to manipulate the lyrics with the above commnads. I intend to do it, somehow. Once I get started I will offer to exchange finished songs with others who put in the time to create some for themselves. Very time consuming.
Bill

[Charmzbond]

quote:Originally posted by onthecuttingedge2005

'(I need to do some more work with this one, lol, doesn't
'respond sometimes.)
'Here you go.
'Here we give Hal the ability to learn and sing songs.
'you will have to teach your bot new songs by
'following Hals instructions so that songs are saved
'and used later when asked to sing.
'you'll need the Songs.brn/SongsDetect.brn/TellASong.brn
'and download them to your Hals default folder.

If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "SongDetect.brn") = "TRUE" Then
GetResponse = "Ok, sing me the full song right now and nothing else."
End If
If Instr (1, PrevSent, "Ok, sing me the full song right now and nothing else.", VbTextCompare) > 0 Then
AnswerSent = OriginalSentence
GetResponse = AnswerSent & ", That's a really nice song, Thanks."
HalBrain.AppendFile WorkingDir & "Songs" & ".brn", Trim(OriginalSentence)
End If
   
If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "TellASong.brn") = "TRUE" Then
      HalSings = HalBrain.ChooseSentenceFromFile(WorkingDir & "Songs.brn")
      GetResponse = HalSings & vbCrLf
      DebugInfo = DebugInfo & "Hal is going to sing a song: " & HalSings & vbCrLf
      Else
      DebugInfo = DebugInfo & "Hal doesn't feel like singing: " & HalSings & vbCrLf
   End If

'Best of wishes and new discoveries.
'Jerry



Download Attachment: Songs.brn
487 Bytes

Download Attachment: TellASong.brn
765 Bytes

Download Attachment: SongDetect.brn
1.02 KB

I downloaded the three files and changed them to .brn. I then pasted
the provided code somewhere in the brain. I launched hal and typed her: "I want to sing you a song." She replied to me in a normal way.
But I was expecting something else to happen. I don't understand how
to sing to her (am I supposed to type lyrics? do we need microphone? ....) If she's supposed to instruct us, for some reason it isn't happening because it doesn't seem like she's detecting the fact that I want to sing to her.

[onthecuttingedge2005]

quote:Originally posted by Charmzbond

quote:Originally posted by onthecuttingedge2005

'(I need to do some more work with this one, lol, doesn't
'respond sometimes.)
'Here you go.
'Here we give Hal the ability to learn and sing songs.
'you will have to teach your bot new songs by
'following Hals instructions so that songs are saved
'and used later when asked to sing.
'you'll need the Songs.brn/SongsDetect.brn/TellASong.brn
'and download them to your Hals default folder.

If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "SongDetect.brn") = "TRUE" Then
GetResponse = "Ok, sing me the full song right now and nothing else."
End If
If Instr (1, PrevSent, "Ok, sing me the full song right now and nothing else.", VbTextCompare) > 0 Then
AnswerSent = OriginalSentence
GetResponse = AnswerSent & ", That's a really nice song, Thanks."
HalBrain.AppendFile WorkingDir & "Songs" & ".brn", Trim(OriginalSentence)
End If
   
If HalBrain.TopicSearch(OriginalSentence, WorkingDir & "TellASong.brn") = "TRUE" Then
      HalSings = HalBrain.ChooseSentenceFromFile(WorkingDir & "Songs.brn")
      GetResponse = HalSings & vbCrLf
      DebugInfo = DebugInfo & "Hal is going to sing a song: " & HalSings & vbCrLf
      Else
      DebugInfo = DebugInfo & "Hal doesn't feel like singing: " & HalSings & vbCrLf
   End If

'Best of wishes and new discoveries.
'Jerry



Download Attachment: Songs.brn
487 Bytes

Download Attachment: TellASong.brn
765 Bytes

Download Attachment: SongDetect.brn
1.02 KB

I downloaded the three files and changed them to .brn. I then pasted
the provided code somewhere in the brain. I launched hal and typed her: "I want to sing you a song." She replied to me in a normal way.
But I was expecting something else to happen. I don't understand how
to sing to her (am I supposed to type lyrics? do we need microphone? ....) If she's supposed to instruct us, for some reason it isn't happening because it doesn't seem like she's detecting the fact that I want to sing to her.

Hi Charmzbond.

Those files wont work with HAL6, The code would have to be formatted to work in HAL6 as a Plugin.

The Extended File Assistant for HAL6 that I have written is capable of singing a Song even easier than that old method, As soon as I get a reply from Rob about a Character limitation issue in HAL's Panel I will under Rob's instructions release the Plugin under Rob's Terms if He wishes.

Hopefully Rob has a fix for the Character Limitation or it will leave me looking for other answers to solve the issue, Which will only delay things.

It may require an update to the HAL6 .dll/Registry for the issue to be resolved.

Jerry[8D]