Messages

76

Programming using the Ultra Hal Brain Editor / Just answer the question!

« on: August 26, 2003, 04:46:04 pm »

I'm seeing a small problem with this approach. Not all personal information in the file will be retrieved and used. For example, if you type in "what is your birthday" an entry is made "@what is your birthday" & "MY BIRTHDAY" if you edit the question with your desired response and again ask "what is your birthday" hal will not use the response in the file, but will write another entry. The key words "MY BIRTHDAY" are not sufficient for hal to use the response. But if you type "what day is your birthday" the keywords " DAY MY BIRTHDAY" are created and if the same question is asked again, the desired response will be used this time.

This requires some deep thought and a bottle of scotch...[:p]

77

Ultra Hal 7.0 / Ultra Hal Assistant 5.0 beta

« on: August 26, 2003, 04:31:04 pm »

Damn internet explorer cache, This forum didn't appear in my browser until a few minutes ago. mumble sputter.........

Why is everybody uninstalling 4.5? I would assume the beta will either load into a different folder or you can direct it to a different folder during the install.

78

Ultra Hal 7.0 / version 5 beta schedule update?

« on: August 26, 2003, 02:14:34 pm »

Opening scene:
fade in to a remote mountain top, it is dark, storm clouds loom overhead. Lightning flashes in the distance, a wolf's howl pieces the misty haze.

Pan right:
a dark ominous castle comes into view, it is the castle of the mad scientist Zaba! In the distance a soft rumbling can be heard, with each minute that passes it grows louder. An unmistakable raspy scraping sound can be heard in the distance. It is the sound of a file sharpening the points of a pitch fork!

Enter right:
An angry mob comes into view, torches blazing through the mist. The angry peasants from the nearby village of halville, march to the castle's gate, waving their pitch forks and clubs, all the while chanting "We want 5, We want 5!" They reach the castle's gate and stop.

Pan center top:
The camera pans up the wall of the castle, at the top a shadowy figure stands solemnly in silence, it is the evil Dr Zaba.

Pan Mob:
The mob leader looks up towards Dr Zaba and shouts "If you won't release number 5, then we're coming to get him!" With a wave of his arm the angry mob begins battering the main gate while others stand ladders on the castle's walls and begin their assent!

The carnage begins........Stay tuned for part 2 of this exciting new mini series!

79

Programming using the Ultra Hal Brain Editor / Just answer the question!

« on: August 26, 2003, 01:45:17 pm »

Larry great job!
I have one question, were you deliberately excluding "favorites" from the personal question file? You set this line below "false" if the question dealt with favorites:

If InStr(1, UserSentence, " FAVORITE ", 1) > 0 Then OpenQuest = False

I've changed it to true so I can include favorite items in the file. I'm keeping an eye out for false entries in the file. Curious if it was intentional or an oversight.
Again, great job thanks!

Glenn

80

Ultra Hal 7.0 / We want 5!...We want 5!...We Want 5!!............

« on: August 22, 2003, 02:10:39 pm »

must have patience........mmust have patience......mmmuust hhaveee ppaattiiieenceeee..........AAAAAHHHHHAAAAAHHHHHHHAHHAHHHHHAHAAAAHHHAHAAAAHAHAHAHHA!!!!!!!!!

81

Ultra Hal 7.0 / We want 5!...We want 5!...We Want 5!!............

« on: August 13, 2003, 01:00:30 pm »

Thanks for the update!

82

Ultra Hal 7.0 / We want 5!...We want 5!...We Want 5!!............

« on: August 13, 2003, 11:54:45 am »

Ok, I want 5.0, I'll take a beta, an alpha with a high grade point average :-) something!, anything! Can we at least have an updated release schedule?
thanks!

83

Ultra Hal 7.0 / Knock Knock -part two

« on: August 01, 2003, 08:17:18 pm »

Almost forgot, to prevent punctuation from damaging the punchline file, make this change to this line:

If Instr (1, PrevSent, " who", VbTextCompare) > 0 And Instr (1, PrevSent, PrevUserSenta, VbTextCompare) > 0 Then
Knock = (Rnd * 100)
If Knock < 25 Then GetResponse = "HAHAHAHAaaaa that's a good one!"
If Knock > 24 And Knock < 50 Then GetResponse = "Ha Ha very funny"
If Knock > 49 And Knock < 75 Then GetResponse = "That was quite amusing"
If Knock > 74 And Knock < 101 Then GetResponse = "That was bad, I wouldn't quit your day job"
OriginalSentencea = HalBrain.AlphaNumericalOnly(OriginalSentence)
HalBrain.AppendFile WorkingDir & "knock_punch.brn", """" & PrevUserSent & """" & "," & Trim(OriginalSentencea)

84

Ultra Hal 7.0 / Knock Knock -part two

« on: August 01, 2003, 07:48:44 pm »

Ok, tell the truth, you know it didn't work right, you posted hoping I'd fix the bugs. I'm going to start sending you bills by the syntax error[] Here is my round 1 fix, I separted the to parts (tell and listen) to keep it easier to debug. It shouldn't matter where you put it in the program (not the end) I have it in the 1700's lines.

    'Response to a knock knock joke
    PrevUserSenta = Mid(PrevUserSent, 2, 100)
    If Instr (1, UserSentence, "Knock knock", VbTextCompare) > 0 Then
       GetResponse = "Who is there?"
       End If
    If Instr (1, PrevSent, "Who is there", VbTextCompare) > 0 Then
       GetResponse = UserSentence & " " & "who?"
       HalBrain.AppendFile WorkingDir & "knock_knock.brn", Trim(OriginalSentence)
       End If
    If Instr (1, PrevSent, " who", VbTextCompare) > 0 And Instr (1, PrevSent, PrevUserSenta, VbTextCompare) > 0 Then
       Knock = (Rnd * 100)
       If Knock < 25 Then GetResponse = "HAHAHAHAaaaa that's a good one!"
       If Knock > 24 And Knock < 50 Then GetResponse = "Ha Ha very funny"
       If Knock > 49 And Knock < 75 Then GetResponse = "That was quite amusing"
       If Knock > 74 And Knock < 101 Then GetResponse = "That was bad, I wouldn't quit your day job"
       HalBrain.AppendFile WorkingDir & "knock_punch.brn", """" & PrevUserSent & """" & "," & Trim(OriginalSentence)
    End If
   
    'tell a knock knock joke
       If Instr (1, UserSentence, "tell a knock joke", VbTextCompare) > 0 Then
       GetResponse = "OK, knock knock"
       JokeA = True 'To track when the joke is on or over.
       End If
    If Instr (1, UserSentence, "who is there", 1) > 0 Then
       TellKnock = HalBrain.ChooseSentenceFromFile(WorkingDir & "knock_knock.brn")
       GetResponse = TellKnock
       End If
    If Instr (1, PrevUserSent, "who is there", VbTextCompare) > 0 Then
       Submit = HalBrain.AlphaNumericalOnly(PrevSent)
       Submit = " " & Submit & " "
       KnockPunch = HalBrain.TopicSearch(Submit, WorkingDir & "knock_punch.brn")
       JokeA = False
       GetResponse = KnockPunch
       End If

one additional note, check out knock knock revisited in the programmers group, nice rewrite to allow jokes from a file. I used the "JokeA =" to prevent my joke responses from being saved, you have to add a line under the block learning section add this line:
If JokeA = True Then BlockSave = True
Glenn

85

Ultra Hal 7.0 / people putty plugin

« on: July 29, 2003, 04:29:44 pm »

I know that when 5.0 is released there is supposed to be support for the Haptek people putty characters. Back in February, it was posted that a plugin would be available in about a month to give that support to 4.5 Was that plugin finished? Is it available?

Thanks

86

Ultra Hal 7.0 / Psychic updates

« on: July 29, 2003, 04:26:44 pm »

Has anyone noticed that when you have check for automatic updates enabled every so often the message appears that "new program(s) found updating help files" I've noticed that message every so often, but what caught my eye is that I get that message from hal even when there is no lan connection! Hal must be receiving pyschic updates, it gives a whole new meaning to "wireless networking" It also casts doubts on the credibility of "automatic updates" and makes you wonder what hal is really doing when it is supposedly checking for updates. [:0]

87

Ultra Hal 7.0 / HAL isn't learning ****

« on: July 24, 2003, 04:01:30 pm »

Hal learned your information, unfortunately, hal 4.5 does not believe your information is the best answer for the question so hal wil create it's own response that it believes is better. There is more on this if you read the archives. Hal 5.0 which is targeted for August (I hope) has a fix for this problem. Scanning the archives will give you some workarounds in the mean time.

88

Ultra Hal 7.0 / Kock Knock

« on: July 16, 2003, 04:36:45 pm »

Ok, let's try this one more time, the last modification would not work correctly with all possible punch lines. I rewrote the last if statement, but could not get it to work until I noticed that the PrevUserSent variable has a leading space added to it, so I've used a mid statement to elimintate the leading space to make the equation parses correctly. Does this work for everyone or is my particular setup adding the leading space?

'Response to a knock knock joke
    PrevUserSenta = Mid(PrevUserSent, 2, 100)
    If Instr (1, UserSentence, "Knock knock", VbTextCompare) > 0 Then
       GetResponse = "Who is there?"
       End If
    If Instr (1, PrevSent, "Who is there", VbTextCompare) > 0 Then
       GetResponse = UserSentence & " " & "who?"
       End If
    If Instr (1, PrevSent, " who", VbTextCompare) > 0 And Instr (1, PrevSent, PrevUserSenta, VbTextCompare) > 0 Then
       Knock = (Rnd * 100)
       If Knock < 25 Then GetResponse = "HAHAHAHAaaaa that's a good one!"
       If Knock > 24 And Knock < 50 Then GetResponse = "Ha Ha very funny"
       If Knock > 49 And Knock < 75 Then GetResponse = "That was quite amusing"
       If Knock > 74 And Knock < 101 Then GetResponse = "That was bad, I wouldn't quit your day job"
    End If

89

Ultra Hal 7.0 / Kock Knock

« on: July 16, 2003, 11:43:11 am »

I had to make a change to the knock knock script, Hal could be triggered to give the final response under rare circumstances. I also randomized the final reply:

    'Response to a knock knock joke
    If Instr (1, UserSentence, "Knock knock", VbTextCompare) > 0 Then
       GetResponse = "Who is there?"
       End If
    If Instr (1, PrevSent, "Who is there", VbTextCompare) > 0 Then
       GetResponse = UserSentence & " " & "who?"
       End If
    If Instr (1, PrevSent, " who", VbTextCompare) > 0 And Instr (1, UserSentence, PrevUserSent, VbTextCompare) > 0 Then
       Knock = (Rnd * 100)
       If Knock < 25 Then GetResponse = "HAHAHAHAaaaa that's a good one!"
       If Knock > 24 And Knock < 50 Then GetResponse = "Ha Ha very funny"
       If Knock > 49 And Knock < 75 Then GetResponse = "That was quite amusing"
       If Knock >74 And Knock < 101 Then GetResponse = "That was bad, I wouldn't quit your day job"
    End If

90

Ultra Hal 7.0 / Voice problems with non-zabaware agents

« on: July 16, 2003, 10:19:24 am »

I've spoken with Cepstral, the problem is the fact that MS Agents require sapi 4.0 speech engines. The reason the voices work with zabaware characters is that they are not MS Agents. Apparantly, Cepstral decided to bypass sapi 4.0 figuring eventually everything will migrate to sapi 5, however it sounds like there have been a lot of requests for sapi 4.0 support. They are evalutating backwards compatibility. The more requests they receive, the more likely they are to seriously implement it. Email them at info@cepstral.com