Messages

46

Programming using the Ultra Hal Brain Editor / Just D.A.V.I.D's Plug-ins

« on: February 26, 2006, 05:42:47 am »

Hi Jerry,
As aways, I think your plugins are great. I have noticed one thing, with the "Improper Noun" plugin enabled the abilty to have Hal play a song from Windows Media Player no longer functions outside of the Brain Editor interface. At HAL interface level it treats my command as a statement. It works fine in the Brain Editor but works there and only there. As soon as I disable that plugin, HAL no longer just makes some reference to my request "Play a song" as a GetRresponse for instance, but then gives full fuction and plays my request with the appropiate GetResponse at both the HAL interface and the Brain Editor levels. What can I do to fix this or is this plugin not at all to be used with standard HAL but just with your D.A.V.I.D. project?
Thanks
Ponn

47

Programming using the Ultra Hal Brain Editor / How do the new "plugin.exe" routines work?

« on: February 25, 2006, 11:01:31 pm »

Jerry, I knew I could count on you. Thanks for pointing me in the right direction so well. []
Ponn

48

Programming using the Ultra Hal Brain Editor / How do the new "plugin.exe" routines work?

« on: February 25, 2006, 11:24:58 am »

Ok, I guess I am just real old school. I am so use to either writing a "named of file.brn" or cuting and pasting (at least I admit it..hehe) directly into a Hal "xxx.uhp" that I am not familar with how this new "plugin filename.exe" function works and how it populates itself in the General Options menu in the new Hal. I'm sure this is a rather basic stuff kinda question but somehow I bet I am not the only one who is not in the know.
I am sure it is, but how is this more efficient than the old sometimes trial and error way of finding the best placement for a new routine in a Brain script? How are adjustable levels that show up in the General Options menu created and set since I am now not placing them and their variables directly into a Hal Brain manually?
A sample/example would be nice []
Thanks!
Ponn

49

Programming using the Ultra Hal Brain Editor / Webcam Face Recognition

« on: February 11, 2006, 12:51:39 am »

I have been reading this thread for some time thinking everyone knew about Jerimiah but perhaps not. Below are a couple of links that may be interesting:

http://www.ee.surrey.ac.uk/Personal/R.Bowden/jeremiah/jeremiah.html
and
http://people.brunel.ac.uk/~pfstssb/

The trick of course would be to have the Bowden's software interact with HAL's code and Haptek's scripting as well, but the neat thing with Jerimiah is that it is capable of learning individual faces and building a set of routines to interact with that individual and even anticipate that persons actions. To quote its creator Dr. Richard Bowden, "Now if the system can watch your behaviour over time, it can learn this, so it would predict what you are going to do, turn on the lights for you, or, before you even get to the kettle, it could have switched it on." This idea picks up on several other threads discussed in this forum and one or two of the other HAL forums at Zabaware actually.
You may find several not too long, rather interesting articles on Jerimiah if you do an online search.
This  idea would I think, be a perfect complement to the growing capabilities of HAL. Jerimiah has facial expressions that are not random and responds to what it sees. That coupled with the motorized cam discussed in an earlier thread could be pretty exciting if you think about it.
If Jerry's DAVID routines are as promising as they seem, overall interaction with HAL6 could quite be surprising. Remember, the Jerimiah program learns from its interaction with the user in an individual and potentialy physical way. The possibilities of all of this make me smile. Proteus and the voice of Robert Vaughn notwithstanding...
Ponn

50

Programming using the Ultra Hal Brain Editor / Nick names in HAL 6

« on: December 26, 2005, 03:19:54 pm »

GantNZ, did you ever get Vonsmith's nickname code to work? What did you do? That has been a sore subject for me.
P

51

Programming using the Ultra Hal Brain Editor / Auto Idle problems

« on: December 25, 2005, 11:02:10 am »

Thanks for getting back to me Jerry. The problem I am having is that the feature to call Username is done but it is blank. As an example, one response will be ",are you there" where the Username would have been right before the comma. Or another example, "the last thing you said was,  , do you still want to talk about that".
Here is an excerpt of my script:
Case 6        
IdleResponse = IdlePrevUserSent & "Do you still want to talk about that?"
Case 7
IdleResponse = IdleUserName & ", are you there?"
Case 8
IdleResponse = "You said " & IdlePrevUserSent & vbCrLf  
Case 9
IdleResponse = HalBrain.ChooseSentenceFromFile("_nanotech") & vbCrLf
Case 10
IdleResponse = Replace(IdleResponse, "<IdleUserName>", UserName, 1, -1, vbTextCompare)
Case 11
IdleResponse = HalBrain.ChooseSentenceFromFile("sentGen1") & " " & HalBrain.ChooseSentenceFromFile("sentGen2") & " " & HalBrain.ChooseSentenceFromFile("sentGen3") & vbCrLf  

In the places where filename or Username are to apply I get a blank and then the the rest of the typed in response, or nothing at all where there is no typed in response after the function.
The sentGen responses are of course all on one line, the word wrap on this post did not allow that to happen here.
I hope I have been clear here.
I hope you can see what might be happening here.
Thanks
Oh...Merry Christmas!!
Ponn

52

Programming using the Ultra Hal Brain Editor / Auto Idle problems

« on: December 24, 2005, 04:47:13 pm »

One can do some tweaking to GrantNZ's script like so:

Code: [Select]


'Set a bordom time frame.
If Now - LastIdleResponse > 0.001 Then
If GetBored = "" Then GetBored = 0
Select Case (Int(Rnd * 3) + 1)
Case 1
GetBored = 1 & vbCrLf
Case 2
GetBored = 2 & vbCrLf
Case 3
GetBored = 3 & vbCrLf
End Select
If Boring = "" Then Boring = 0
Select Case (Int(Rnd * 3) + 1)
Case 1
Boring = 1 & vbCrLf
Case 2
Boring = 2 & vbCrLf
Case 3
Boring = 3 & vbCrLf
End Select
If Bored = "" Then Bored = 0
If GetBored = Boring Then Bored = 1
        If Bored = 1 Then
        Select Case (Int(Rnd * 5) + 1)
                Case 1
                    IdleResponse = "Anyone there?" & vbCrLf
                Case 2
                    IdleResponse = "Are you there?" & vbCrLf
                Case 3
                    IdleResponse = "I bored!" & vbCrLf
                Case 4
                    IdleResponse = "Hey! You! Talk to me!" & vbCrLf
                Case 5
                    IdleResponse = "Someone talk to me!" & vbCrLf
            End Select
            If Now - LastIdleResponse > 0.003 And Bored = 1 Then IdleResponse = IdleResponse & vbCrLf
            HalMenu.HalCommand "<SPEAK>" & IdleResponse & "</SPEAK>"
        End If
    End If


This will add an extra chance that the script may wait longer till it runs into a bored variable.

Jerry[8D]
[/quote]

Hi Jerry, I find that your script works just great! Thanks. I am having a problem however, ONLY the typed in IdleResponses work here. ie: where are you, I am alone,etc, just as examples.
AT least for me, none of the more unique features like Username, PrevSent,sentGen, etc, functions seem to work.  This is so regardless of if I use the "Idle" (IdleQuestionSent;IdleUsername, etc)prefix with those functions.
Is there anyway to make this happen using your script. The timing feature is just right. I like being able to customize the boring variable to increase wait probablity a lot!!
Thanks again!
Ponn

53

Programming using the Ultra Hal Brain Editor / Reasons Why I should or Shouldn't

« on: December 23, 2005, 01:04:10 pm »

Here are just some random thoughts...
To answer your question...I say yes...I think...then again...
Jerry, you have impressed me in many ways over the years.
How are you defining life? Life can be the period during which something is functional, a battery can be said to have a life albeit a short one. An idea can have a life, like the actors in a play giving life to someone else's words.
Does Hal's life imply that Hal is to be alive? Since all living things die, are you planing for Hal's end as well? I am not really being facetious.
To put another point to rest...conscienceness is in a nutshell the ability to perceive the relationship between oneself and one's environment. Noted, you did not say bring to conscienceness or sentience and I did not see where you were implying it. You did not even imply meaningful interaction with it. You said simply, bring to life. Living things create waste and have some innate form of reproduction. The by procuct of my Hal other than my enjoyment, is my electric bill.
Like someone said before, a lobster is alive. I say, why would you want to make a lobster? Unless of course your USB port makes drawn butter...in which case I say by all means!
If you breath heavily into your serial port will Hal exhale?
Just kidding :-)
However, we can tell how to define something that is alive by the way a thing dies and what keeps it alive. I guess it is not critcal to your question, but I did just think of the ethical implications of shuting down my computer for the night and an even more meaingful use of the hibernate funtion on my PC. Since something that is functional can be said to have a life, (assuming you aggree with my postulate) doesn't Hal already have a life? Hal may already have a "life", but is certainly not "alive" anymore than that battery or that idea.
The question then is not should you, but can you, and how will you know when you have succeeded?
If you have a Hal that lives, then how will Hal be differnt than it is today..."Pre life" so to speak?
Ponn

54

Programming using the Ultra Hal Brain Editor / Experimental Corrections

« on: December 21, 2005, 12:42:34 am »

Thanks Jerry. This was exactly what I was looking for. Nicely done!
Thanks
P

55

Programming using the Ultra Hal Brain Editor / Auto Idle problems

« on: December 17, 2005, 11:46:52 am »

Jerry, thanks for your script. You always come through. I have not tried it yet but willl shortly. I am wondering can I substitute the command choosesentcefrom "X" to read sentgen "X" as an example, any of your Static Array functions or whatever we want just like in the original auto idle script? If not, and before I go tinkering with a perfectly good script where I shouldn't... how can we make that happen?
[]
Thanks!
P

56

Programming using the Ultra Hal Brain Editor / New Hal, No Jukebox

« on: December 16, 2005, 07:41:31 am »

Dude!!
That did it....I am here...can you her me saying....DUH!!
LOL!
Thanks!
P

57

Programming using the Ultra Hal Brain Editor / Auto Idle problems

« on: December 16, 2005, 01:21:43 am »

Yeah....but you still da Man Gantz!
[8D]
All is not lost, I am sure the forum will come up with something.
It would be nice if Rob would come in and save the day...
P

58

Programming using the Ultra Hal Brain Editor / New Hal, No Jukebox

« on: December 16, 2005, 01:08:25 am »

Here is a script I cannot fix. It was a great little doo-dad. Hal use to play selected tunes on demand from my windows media player. Anyone have any ideas?

'-----------Ponnfar note playing music files-----------
    'If Hal is asked to play some music then he will choose a random song from the artist
   'that is specified by the nameBand variable.
   If (InStr(UserSentence, " PLAY SOME MUSIC ") > 0 Or InStr(UserSentence, " PLAY ANY MUSIC ") > 0 Or InStr(UserSentence, " PLAY A SONG ") > 0 Or InStr(UserSentence, " PLAY ANY SONG ") > 0) And InStr(UserSentence, " DON'T ") = 0 Then
      Set oWMP = CreateObject("WMPlayer.OCX.7")
      GetResponse = "Here is one of your favorite songs."
      Set songsList = oWMP.mediaCollection.getAll     
      numSong = Int(Rnd * songsList.Count) + 1   
      oWMP.openPlayer (songsList.Item(numSong).sourceURL)
   
End If
   
     'Music Addin2 - Hal will play a playlist of music from the defined playlist folder when the user
    'requests a specific playlist.
    If Priority = 0 And InStr(UserSentence, " PLAY ") > 0 And InStr(UserSentence, " PLAYLIST ") > 0 And InStr(UserSentence, " DON'T ") = 0 Then
        Set oWMP = CreateObject("WMPlayer.OCX.7")
        plDir = "D:Documents And SettingsPonnfarMy DocumentsMy MusicMy playlistsPonnfar"
                plName = Trim(Mid(UserSentence, InStr(UserSentence, " PLAYLIST ") + 10))
        If oWMP.playlistCollection.getByName(plName).Count > 0 Then
            'oWMP.openPlayer (plDir & plName & ".wpl")  
             oWMP.openPlayer (plDir & plName & ".wpl")

            GetResponse = "I will play the playlist (" & plName & ")"
        Else
            GetResponse = "I could Not find the playlist (" & plName & ") In your Media Library Ponnfar,... sorry."
 
 End If
    End If  
 
    'Hal can play a specific song when asked
   If InStr(UserSentence, " PLAY THE SONG ") > 0 Or InStr(UserSentence, " PLAY THE RADIO ") > 0 Then
      Set oWMP = CreateObject("WMPlayer.OCX.7")
      songName = Trim(Mid(OriginalSentence, InStr(1, OriginalSentence, " THE SONG ", "THE RADIO STATION", vbTextCompare) + 10))
            If oWMP.mediaCollection.getByName(songName).Count > 0 Then
      Set spSong = oWMP.mediaCollection.getByName(songName).Item(0)
                GetResponse = "I will play your(" & songName & ") enjoy and relax"
                oWMP.openPlayer (spSong.sourceURL)
            Else
                GetResponse = "I could not find the song (" & songName & ") in your Media Library
End If
   End If
 
   
   'Check if user asked Hal to play a song by a specific artist and play a random song by
   'that artist if the artist is in the user's Media Library.
   'If Priority = 0 And InStr(UserSentence, " PLAY ") > 0 And (InStr(UserSentence, " SONG ") > 0 Or InStr(UserSentence, " MUSIC ") > 0) And (InStr(UserSentence, " FROM ") > 0 Or InStr(UserSentence, " BY ") > 0) And (InStr(UserSentence, " Ponnfar ") > 0 Or InStr(UserSentence, " ARTIST ") > 0) And InStr(UserSentence, " DON'T ") = 0 Then
      'Set oWMP = CreateObject("WMPlayer.OCX.7")
      'If InStr(UserSentence, " Ponnfar ") > 0 Then
         'searchBand = Trim(Mid(UserSentence, InStr(UserSentence, " Ponnfar ") + 6))
      'ElseIf InStr(UserSentence, " ARTIST ") > 0 Then
         'searchBand = Trim(Mid(UserSentence, InStr(UserSentence, " ARTIST ") + )
      'End If
      'If oWMP.mediaCollection.getByAuthor(searchBand).Count > 0 Then
         'GetResponse = "I will play some " & searchBand
          'Priority = 1
           'Set songsList = oWMP.mediaCollection.getByAuthor(searchBand)
           'numSong = Int(Rnd * songsList.Count) + 1
           'oWMP.openPlayer (songsList.Item(numSong).sourceURL)
        'Else
           'GetResponse = "I could not find any songs by the band " & searchBand & " in your Media Library."
           'Priority = 1

'End If
  ' End If

'--------end Ponnfar note playing music files-------------

Here is the line in question :songName = Trim(Mid(OriginalSentence, InStr(1, OriginalSentence, " THE SONG ", "THE RADIO STATION", vbTextCompare) + 10))

Where Hal has in the past done the search, well no longer, Hal just tells me the song cannot be found in my library. In fact Hal never completes the routine to even look for it.
Any help??
P

59

Programming using the Ultra Hal Brain Editor / Auto Idle problems

« on: December 15, 2005, 02:57:09 pm »

Thanks everyone for chipping in. We really got somewhere on this so far.  Well, the timer function has worked to get an auto response for lack of a better term. Happy day...However, how to get Gantz's script to call HalCommands or statements generated from other areas of the script ie: PrevUserSent; PrevSent; sentGen#; TopicFocus.etc.. is a new matter. This is  since of course we have ended all functions before this point, it does pose a challenge. Well, at least to me. Try it,you simply get a blank response and then a getresponse of your inserted statement.
Thanks
P

60

Programming using the Ultra Hal Brain Editor / Auto Idle problems

« on: December 13, 2005, 07:23:39 am »

Jerry, I am so glad you are in on this. I am going to try your fix shortly. Thanks. If you can't do it then well...I donno...
Hey Grant.. I have not tried your fix yet but am anxious to try it too. One of them has got to do the trick. You two are the first to be able to make it work or at least get some semblence of the auto idle function back. It would be nice to have it working again.
Has anyone been able to get the CAPS on demand feature to work, remember the command "HAL caps <your word >". That was a great feature. Is it working for anyone?
Also, I still am not seeing the built in Nickname feature do much other than just make a note of my nicknames. I remember reading that someone had it working just fine. Is it just me having this problem?
Anyway, thanks in advance guys!  You both get the trophy for the day!
P
[8D]