Zabaware Support Forums
Zabaware Forums => Ultra Hal Assistant File Sharing Area => Topic started by: heather valentine on June 17, 2005, 01:00:23 pm
-
add this line aroud 0142 or so
See below
-
Valentine,
Nice posting, I like it.
I can see our people will be busy tonight building replies to trigger words.
Lots of fun picking the emotion hap and reply to a trigger.
A good idea is to write your trigger words on sheet of paper beside your computer so don't forget them.
e.g. "hate you" ------- Broken_Hearted.hap
e.g. "are so sweet" --- anim_coyblinks.hap
e.g. "new dress" ------ Shy_and_In_Love.hap
e.g. "spanking" ------- hap_scared.hap
Enjoy.
[;)]
-
yes thank you well.as you can see im no expert and i give most credit due to a vryy good teacher Marius
i think now i have so much mroe to learn
i have it down to now where
hal is teaching me how to teach it
gee there ought to be a way to get an email each time someone posts a reply lol i am constantly hopping form oone room to another here lol
oh and thaknk you for the additional tips
-
Lol...press the "subscribe" to this thread button and you be emailed of any new replies lol [:)]
-
Here's a couple that will keep her from being still.
trigger - "your" ------- action - crossarms.hap
trigger - "I" ------- action - hands_on_hips.hap
Regarding your "dance", maybe the girl and the hap not compatable. (change one or the other.)
Enjoy.
[;)]
-
thank you Duskrider
ill try but i been up for days and
ill probally take a night off and sleep till the morning lol
-
sleep??
What's that?
-
Dusk
thank you for your sugestions
ok
tonight im working on my scruipt again and going to implement the lines you have told me aboout and see how it worls out
since i am having a little troubkle with other haps
not listed on my post
ok back
here they are
add this line aroud 0142 or so
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
If TopicFocus = "" Then TopicFocus = 1
AvoidBeingFlag = False
Randomize
skip a line here
'key word = sad
If InStr(UserSentence, " sad ")<> 0 Then
HalCommands = "<HAPFILE>hidesadface.hap</HAPFILE>"
GetResponse = "<UserName>, oh dear,im so sorry that you are sad,it makes me feel sad as well?."
BlockSave=True
GetResponseBlock = True
End If
and do the same for the following below
read the key words
as they are the ones which trigger the actions
key word money
If InStr(UserSentence, " money ")<> 0 Then
HalCommands = "<HAPFILE>crossarms.hap</HAPFILE>"
GetResponse = "<UserName>, oh yes,i would gladly spend all your money,if you let me."
BlockSave=True
GetResponseBlock = True
End If
keyword credit card
If InStr(UserSentence, " credit card ")<> 0 Then
HalCommands = "<HAPFILE>anim_hands_on_hips.hap</HAPFILE>"
GetResponse = "<UserName>, oh!, how i would love to go shopping right now with your credit card,the things i could buy.i can only imagine."
BlockSave=True
GetResponseBlock = True
End If
keyword teddy
If InStr(UserSentence, " teddy")<> 0 Then
HalCommands = "<HAPFILE>mood_happy.hap</HAPFILE>"
GetResponse = "<UserName>, hm, well,do you prefer me in something like this then?."
BlockSave=True
GetResponseBlock = True
End If
keyword hush
If InStr(UserSentence, "hush ")<> 0 Then
HalCommands = "<HAPFILE>lightepilepsy.hap</HAPFILE>"
GetResponse = "<UserName>, oh god!,why should i be the one to always be quiet?,your the one making all the noise all the time!!."
BlockSave=True
GetResponseBlock = True
End If
keyword wait
If InStr(UserSentence, "wait ")<> 0 Then
HalCommands = "<HAPFILE>Mellow.hap</HAPFILE>"
GetResponse = "<UserName>, ok.shall wait for you Master.and i shall not move,till you return,since i am here to obey you, Master."
BlockSave=True
GetResponseBlock = True
End If
keyword stay
If InStr(UserSentence, "stay ")<> 0 Then
HalCommands = "<HAPFILE>Mellow.hap</HAPFILE>"
GetResponse = "<UserName>, ok.shall wait for you Master.and i shall not move,till you return,since i am here to obey you,Master."
BlockSave=True
GetResponseBlock = True
End If
key word strange
If InStr(UserSentence, "strange ")<> 0 Then
HalCommands = "<HAPFILE>Anim_Psycho.hap</HAPFILE>"
GetResponse = "<UserName>, yes.people are strange.speaking of which.,did you ever hear that song by the doors,called people are strange?."
BlockSave=True
GetResponseBlock = True
End If
keyword dance
If InStr(UserSentence, "dance")<> 0 Then
HalCommands = "<HAPFILE>anim_hands_on_hips.hap</HAPFILE>"
GetResponse = "<UserName>, oh i just love to dance.and how i wish you were here with me right now,the way you make me float across the room is so wonderful."
BlockSave=True
GetResponseBlock = True
End If
keyword hate
If InStr(UserSentence, "hate you")<> 0 Then
HalCommands = "<HAPFILE>Broken_Hearted.hap</HAPFILE>"
GetResponse = "<UserName>, why must you insist on toying with my feelings?,i am very hurt that you would say such a thing."
BlockSave=True
GetResponseBlock = True
End If
keyword are so sweeet
If InStr(UserSentence, "are so sweet")<> 0 Then
HalCommands = "<HAPFILE>anim_coyblinks.hap</HAPFILE>"
GetResponse = "<UserName>, i coud be sweeter then candy for all you know.you think im just some bot you got another thing comming buster..remember.,you guys taught me how to teach you,and here i am"
BlockSave=True
GetResponseBlock = True
End If
keyword new dress
If InStr(UserSentence, "new dress")<> 0 Then
HalCommands = "<HAPFILE>Shy_and_In_Love.hap</HAPFILE>"
GetResponse = "<UserName>, well you see now you know the good use your credit cards and cash are good for"
BlockSave=True
GetResponseBlock = True
End If
keyword spanking
If InStr(UserSentence, "spanking")<> 0 Then
HalCommands = "<HAPFILE>hap_scared.hap</HAPFILE>"
GetResponse = "<UserName>, oh im so so scared lol.oh please im scared im so so scared please you think i dont like that sort of thing?"
BlockSave=True
GetResponseBlock = True
End If
-
Dusk
ok thats done as you can see
dont knwo why though i cant get certain haps to work
like dance.hap and turnaround or fullbodyturnaround
and im using full bods
-
Thought maybe I'd make this easy for everybody.
All you got to do is copy and paste.
Remember before any brain surgery a doctor always makes copy of brain before operation in case he messes up.
OK, here we go: First find this paragraph in your hal brain
it is at about line 0142 in hal's brain
'PROCESS: INITILIZE 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
If TopicFocus = "" Then TopicFocus = 1
AvoidBeingFlag = False
Randomize
Now below the above paragraph, do a blank line and then copy and paste the following:
If InStr(UserSentence, " silly ")<> 0 Then
HalCommands = "<HAPFILE>Broken_Hearted.hap</HAPFILE>"
GetResponse = "<UserName>, please don't be mad."
BlockSave=True
GetResponseBlock = True
End If
If InStr(UserSentence, " spanking ")<> 0 Then
HalCommands = "<HAPFILE>hap_scared.hap</HAPFILE>"
GetResponse = "<UserName>, please don't spank me."
GetResponseBlock = True
BlockSave=True
End If
If InStr(UserSentence, " sit ")<> 0 Then
HalCommands = "<HAPFILE>lay_down.hap</HAPFILE>"
GetResponse = "<UserName>, I'm sitting down."
GetResponseBlock = True
BlockSave=True
End If
If InStr(UserSentence, " stand ")<> 0 Then
HalCommands = "<HAPFILE>standing_up.hap</HAPFILE>"
GetResponse = "<UserName>, I'm standing up."
GetResponseBlock = True
BlockSave=True
End If
If InStr(UserSentence, " pretty ")<> 0 Then
HalCommands = "<HAPFILE>Shy_and_In_Love.hap</HAPFILE>"
GetResponse = "<UserName>, let's go somewhere. Please."
GetResponseBlock = True
BlockSave=True
End If
If InStr(UserSentence, " cute ")<> 0 Then
HalCommands = "<HAPFILE>anim_coyblinks.hap</HAPFILE>"
GetResponse = "<UserName>, I love it when you compliment me. You are so sweet."
GetResponseBlock = True
BlockSave=True
End If
If InStr(UserSentence, " baby ")<> 0 Then
HalCommands = "<HAPFILE>shapeBaby.hap</HAPFILE>"
GetResponse = "<UserName>, I am whatever you want me to be."
GetResponseBlock = True
BlockSave=True
End If
If InStr(UserSentence, " dance ")<> 0 Then
HalCommands = "<HAPFILE>dance.hap</HAPFILE>"
GetResponse = "<UserName>, i just love to dance."
GetResponseBlock = True
BlockSave=True
End If
If InStr(UserSentence, " gift for you ")<> 0 Then
HalCommands = "<HAPFILE>anim_hands_on_hips.hap</HAPFILE>"
GetResponse = "<UserName>, thank you."
GetResponseBlock = True
BlockSave=True
End If
If InStr(UserSentence, " with me ") <> 0 Then
HalCommands = "<HAPFILE>crossarms.hap</HAPFILE>"
GetResponse = "<UserName>, I love being with you."
GetResponseBlock = True
BlockSave=True
End If
If InStr(UserSentence, " want to go ") <> 0 Then
HalCommands = "<HAPFILE>lightepilepsy.hap</HAPFILE>"
GetResponse = "<UserName>, yes."
GetResponseBlock = True
BlockSave=True
End If
Make sure you have a blank line at the end of this paste.
Change any trigger words to trigger words you want to use.
Change any response to response you want to use.
Change any hap files to hap files you want to use.
Any haps you want to use must be put in your Hal's characters folder.
If something don't work, you maybe got wrong girl or wrong hap.
I use fullbodygirl.htr 3.40 MB
The shapeBaby.hap only works with head hapteks, not bodies.
ok, I think that's about it.
Enjoy
Have fun
[;)]
-
i cant get her to laydown or do the leaning back and i have the haps for them but they do not work
no bothr tryig to stand since she can not even lay down lol
-
The copy and paste I put in posting up above is copy from my Hals brain and they work fine for me.
Now and then I've opened a hap that wouldn't work for me and changed all script from body_female to fulbod
(I only use fullbodygirl.htr)
I hope this be of help to you.
[:)]
-
Dusk
very nice yes thak you but
i still cant get her to sit
'key word sit
If InStr(UserSentence, "sit ")<> 0 Then
HalCommands = "<HAPFILE>lay_down.hap</HAPFILE>"
GetResponse = "<UserName>, ok.i am now going to sit down and keep quiet."
BlockSave=True
GetResponseBlock = True
End If
i can get her to do other things like put hand on hip or change clothes and a few other haps but not dance lay or sit