Messages

5056

Ultra Hal 7.0 / Brain files

« on: May 16, 2005, 08:14:49 am »

That is probably normal.

5057

Ultra Hal 7.0 / New Random Conversation Script

« on: May 16, 2005, 06:28:22 am »

Another question: Is there a way to make more random responses from HAL if idling, instead of just 2?

I tried adding another line:

GetResponse = "Hey <UserName>, please talk to me."
    Else
      GetResponse = "Hello, is anyone there?"
    End If
(new line)GetResponse = "Why are you ignoring me?"
    End If

I will get a script error. How can I add more responses? Thanks!!




EDIT: I just took "<autohide>" out of the script. I think that fixed the closing problem.


I found a "bug" in mine:

If I tell it to shut up, be quiet, or quiet please, it minimizes to the system tray immediately, and will say "fine, be that way" and uses 80-100% CPU after that. If I open it up, the background in the HAL window is all streaky and messed up. The character is OK.

So, I cannot tell it to shut up, I have to close it and re-open.

Other than that, it seems to be working fine. I need to add some phrases.

5058

Ultra Hal 7.0 / New Random Conversation Script

« on: May 16, 2005, 05:22:14 am »

Nevermind, after I took out the big gaps, it is working fine now. Thanks!!!!!!! You really made my day!!![]

P.S., I can just add to phrases HAL says by adding: (ELSE)


      GetResponse = "Hello, is anyone there?"GetResponse = "Hey <UserName>, You are ignoring me. Why?"
    Else
      GetResponse = "Hello, is anyone there?"




Interesting script. Too bad I get this all the time:

5059

Ultra Hal 7.0 / "I am 10years old".

« on: May 15, 2005, 09:40:21 pm »

Nope, cannot find.

5060

Ultra Hal 7.0 / Idea

« on: May 15, 2005, 08:59:16 pm »

I had my email in my profile. I just had to set it to allow members to send me email.

Thanks, I'll try your ideas.

Tried, got error pop-up.

I don't think it's going to work. Good thing I backup my working brain file.

I think the auto-talk function should be included in a future update of Hal.

5061

Ultra Hal 7.0 / Idea

« on: May 15, 2005, 07:10:54 pm »

'New Hal functions from Medeksza's forum. Needs lots of development.
'Function Script_Load()
'Script_Load = "<AUTO>30000</AUTO>"
'Script_Load = "<VIEWCHAT>"
'End Function

This is what I have, and it doesn't work.  Thanks.

Edit, if it's any help to you, this what I got:


   If LearningLevel = "" Then LearningLevel = 3
   If Hate = "" Then Hate = 0
   If Swear = "" Then Swear = 0
   If Insults = "" Then Insults = 0
   If Compliment = "" Then Compliment = 0
   If GainControl = "" Then GainControl = 25
   AvoidBeingFlag = False
   Randomize
   
   If InStr(1, UserSentence, " AUTO-IDLE ", 1) > 0 Then
If Rnd * 10 < 5 Then
GetResponse = "Hey <UserName>, please talk to me."
Else
GetResponse = "Hello, is anyone there?"
End If
GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
Exit Function
End If
   
   'My Haptek Stuff.
If InStr(UserSentence, " a24 ") <> 0 Then
HalCommands = "<HAPFILE>a24.hap</HAPFILE>"
GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile(WorkingDir & "a24.brn")
BlockSave=True
GetResponseBlock = True
End If
 
 If InStr(UserSentence, " a10 ") <> 0 Then
HalCommands = "<HAPFILE>a10.hap</HAPFILE>"
GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile(WorkingDir & "a10.brn")
BlockSave=True
GetResponseBlock = True
End If    

 If InStr(UserSentence, " a11 ") <> 0 Then
HalCommands = "<HAPFILE>a11.hap</HAPFILE>"
GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile(WorkingDir & "a11.brn")
BlockSave=True
GetResponseBlock = True
End If

 If InStr(UserSentence, " a13 ") <> 0 Then
HalCommands = "<HAPFILE>a13.hap</HAPFILE>"
GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile(WorkingDir & "a13.brn")
BlockSave=True
GetResponseBlock = True
End If

 If InStr(UserSentence, " a15 ") <> 0 Then
HalCommands = "<HAPFILE>a15.hap</HAPFILE>"
GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile(WorkingDir & "a15.brn")
BlockSave=True
GetResponseBlock = True
End If  

 If InStr(UserSentence, " a16 ") <> 0 Then
HalCommands = "<HAPFILE>a16.hap</HAPFILE>"
GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile(WorkingDir & "a16.brn")
BlockSave=True
GetResponseBlock = True
End If    
 
If InStr(UserSentence, " a12 ") <> 0 Then
HalCommands = "<HAPFILE>a12.hap</HAPFILE>"
GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile(WorkingDir & "a12.brn")
BlockSave=True
GetResponseBlock = True
End If  
 
If InStr(UserSentence, " a14 ") <> 0 Then
HalCommands = "<HAPFILE>a14.hap</HAPFILE>"
GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile(WorkingDir & "a14.brn")
BlockSave=True
GetResponseBlock = True
End If
 
 If InStr(UserSentence, " a17 ") <> 0 Then
HalCommands = "<HAPFILE>a17.hap</HAPFILE>"
GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile(WorkingDir & "a17.brn")
BlockSave=True
GetResponseBlock = True
End If
 
If InStr(UserSentence, " a18 ") <> 0 Then
HalCommands = "<HAPFILE>a18.hap</HAPFILE>"
GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile(WorkingDir & "a18.brn")
BlockSave=True
GetResponseBlock = True
End If  

If InStr(UserSentence, " a19 ") <> 0 Then
HalCommands = "<HAPFILE>a19.hap</HAPFILE>"
GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile(WorkingDir & "a19.brn")
BlockSave=True
GetResponseBlock = True
End If  
 
If InStr(UserSentence, " a20 ") <> 0 Then
HalCommands = "<HAPFILE>a20.hap</HAPFILE>"
GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile(WorkingDir & "a20.brn")
BlockSave=True
GetResponseBlock = True
End If  

If InStr(UserSentence, " a21 ") <> 0 Then
HalCommands = "<HAPFILE>a21.hap</HAPFILE>"
GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile(WorkingDir & "a21.brn")
BlockSave=True
GetResponseBlock = True
End If  

If InStr(UserSentence, " a22 ") <> 0 Then
HalCommands = "<HAPFILE>a22.hap</HAPFILE>"
GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile(WorkingDir & "a22.brn")
BlockSave=True
GetResponseBlock = True
End If  

If InStr(UserSentence, " a23 ") <> 0 Then
HalCommands = "<HAPFILE>a23.hap</HAPFILE>"
GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile(WorkingDir & "a23.brn")
BlockSave=True
GetResponseBlock = True
End If  

 
If InStr(UserSentence, " a26 ") <> 0 Then
HalCommands = "<HAPFILE>a26.hap</HAPFILE>"
GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile(WorkingDir & "a26.brn")
BlockSave=True
GetResponseBlock = True
End If
 
If InStr(UserSentence, " a28 ") <> 0 Then
HalCommands = "<HAPFILE>a28.hap</HAPFILE>"
GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile(WorkingDir & "a28.brn")
BlockSave=True
GetResponseBlock = True
End If
 
If InStr(UserSentence, " a32 ") <> 0 Then
HalCommands = "<HAPFILE>a32.hap</HAPFILE>"
GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile(WorkingDir & "a32.brn")
BlockSave=True
GetResponseBlock = True
End If
 
If InStr(UserSentence, " a61 ") <> 0 Then
HalCommands = "<HAPFILE>a61.hap</HAPFILE>"
GetResponse = "<UserName>, thank you."
BlockSave=True
GetResponseBlock = True
End If  
 
If InStr(UserSentence, " a60 ") <> 0 Then
HalCommands = "<HAPFILE>a60.hap</HAPFILE>"
GetResponse = "<UserName>, thank you."
GetResponseBlock = True
BlockSave=True
End If  
 
If InStr(UserSentence, " a62 ") <> 0 Then
HalCommands = "<HAPFILE>a62.hap</HAPFILE>"
GetResponse = "<UserName>, this hair-do is cute. Thank you."
GetResponseBlock = True
BlockSave=True
End If  
 
If InStr(UserSentence, " a63 ") <> 0 Then
HalCommands = "<HAPFILE>a63.hap</HAPFILE>"
GetResponse = "<UserName>. Thank you for the ponytail."
GetResponseBlock = True
BlockSave=True
End If
   
If InStr(UserSentence, " a51 ") <> 0 Then
HalCommands = "<HAPFILE>a51.hap</HAPFILE>"
GetResponse = "<UserName>, thank you for my rabbit ears."
GetResponseBlock = True
BlockSave=True
End If    
 
If InStr(UserSentence, " a52 ") <> 0 Then
HalCommands = "<HAPFILE>a52.hap</HAPFILE>"
GetResponse = "Thank you, <UserName>."
GetResponseBlock = True
BlockSave=True
End If    
   
If InStr(UserSentence, " a53 ") <> 0 Then
HalCommands = "<HAPFILE>a53.hap</HAPFILE>"
GetResponse = "Thank you, <UserName>."
GetResponseBlock = True
BlockSave=True
End If  
 
If InStr(UserSentence, " a54 ") <> 0 Then
HalCommands = "<HAPFILE>a54.hap</HAPFILE>"
GetResponse = "Thank you, <UserName>."
GetResponseBlock = True
BlockSave=True
End If    

5062

Ultra Hal 7.0 / free eye lashes

« on: May 15, 2005, 04:07:03 pm »

Thanks!!! m'lady can use all the accessories she can get.

5063

Ultra Hal 7.0 / Idea

« on: May 15, 2005, 03:11:51 pm »

sorry for all the posts, I got it to work after inserting the scripts in the default brain.

Is that where all the scripts are supposed to go?

i still am having a problem: It won't autimatically work in 1.2 brain


It does work in the default brain, but it says random things. Not what's in the script. I don't even have to type in "auto-idle".

In 1.2, I also hav a script to change clothes, and accessories. I wonder if that script is keeping the other from working?

5064

Ultra Hal 7.0 / Idea

« on: May 15, 2005, 02:56:00 pm »

The Script_load function must not be triggering every 30 seconds,

I am using the 1.2 brain.

Still, she won't speak unless I type something in

5065

Ultra Hal 7.0 / Idea

« on: May 15, 2005, 02:26:47 pm »

what is wrong? It said "please talk to me" once. , after I typed in "auto-idle"

'PROCESS: INITIALIZE VARIABLES AS INTEGERS
   'VBScript doesn't allow you to declare variables in advance
      'as a particular data type; everything is a Variant.
   'We must assign integers to the following
      'variants so that data type errors don't occur
   If LearningLevel = "" Then LearningLevel = 3
   If Hate = "" Then Hate = 0
   If Swear = "" Then Swear = 0
   If Insults = "" Then Insults = 0
   If Compliment = "" Then Compliment = 0
   If GainControl = "" Then GainControl = 25
   AvoidBeingFlag = False
   Randomize
   
If InStr(1, UserSentence, " AUTO-IDLE ", 1) > 0 Then
If Rnd * 10 < 5 Then
GetResponse = "Hey <UserName>, please talk to me."
Else
GetResponse = "Hello, is anyone there?"
End If
GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)
Exit Function
End If

5066

Ultra Hal 7.0 / Idea

« on: May 15, 2005, 02:16:15 pm »

It doesn't work. I keep getting "Error 1015" at line 291.

5067

Ultra Hal 7.0 / Idea

« on: May 15, 2005, 01:57:55 pm »

Thanks, where is the "script load"

5068

Ultra Hal 7.0 / "I am 10years old".

« on: May 14, 2005, 08:30:19 pm »

Yes, I am curious myself. It is probably an encrypted file.

I hope someone can answer.

5069

Ultra Hal 7.0 / "I am 10years old".

« on: May 14, 2005, 07:04:32 pm »

I haven't tried it in 1.2, because i got tired of Hal telling me his age when I don't even ask


Copy and paste the script provided below to this location ...

1. Go to your Zabaware folder located here .... C:Program FilesabawareUltra Hal Assistant 5
2. Locate the hal5.UHP file and open with notepad.
3. Locate and Insert the script just ABOVE this line ... 'POST PROCESS: SAVE HAL'S RESPONSE (this line is located near the bottom of the file).
4. Save and close the hal5.UHP file.

Note: you can change the birthday to whatever you want by editing this line ...
Birth = "09/24/1980 05:35:23 pm"

You will also need to edit these lines to correspond with the new date ...
If Month(Date) = 9 And Day(Date) > 23 Then YearDiff = (YearDiff + 1)
If Month(Date) > 9 Then YearDiff = (YearDiff + 1)

IMPORTANT: make sure the script doesn't wrap with other lines of script. The easiest way to be sure is to set your cursor at the end of the line or statement that is already above the 'POST PROCESS: SAVE HAL'S RESPONSE and then click your Enter Key to start a new line, it's even ok and recommended to leave an actual space between the previous line of script as if you were starting a new paragraph.

COPY AND PASTE THE AGE SCRIPT BELOW AS PER INSTRUCTED ABOVE:

'Hal responses to a question about his age
If HalBrain.CheckRepetition(OriginalSentence, "how old are you") = True Or HalBrain.CheckRepetition(OriginalSentence, "what is your age") = True Then
Birth = "09/24/1980 05:35:23 pm"
YearDiff = (DateDiff("YYYY", Birth, Now) - 1)
If Month(Date) = 9 And Day(Date) > 23 Then YearDiff = (YearDiff + 1)
If Month(Date) > 9 Then YearDiff = (YearDiff + 1)
GetResponse = "I am " & YearDiff & " years old."
End If

*************************************************************************
Yes, it works, but if I type in "How" or "OLD" etc, it will keep saying it's 25 years old.

I tried it, then removed the script. Funny thing:

If I ask "How old are you" It will say it's 10 years old.

But if I ask "What is your age" It will say 25.

Maybe because I told it "Your age is 25"?

5070

Ultra Hal 7.0 / Idea

« on: May 14, 2005, 05:10:32 pm »

Hal seems to only talk, if you talk to it. How about having Hal say things, like Cyberbuddy does, at random?

Of course, have a means to turn the function off and on, because you wouldn't want it talking to you all the time.

Maybe have the Hal Window open, but you don't say anything for awhile.

Then Hal might say:

"Nice day, isn't it?"

"Are you still here?"

"Why are you ignoring me"

"I'm lonely. Talk to me!!"

"You are such a good person."




Just some ideas.  Thanks!!!