some basic triggers to play with from a beginner

[heather valentine]

add this line aroud 0142 or so
See below

[Duskrider]

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.
[]

[heather valentine]

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

[Maviarab]

Lol...press the "subscribe" to this thread button and you be emailed of any new replies lol []

[Duskrider]

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.
[]

[heather valentine]

thank you Duskrider
ill try but i been up for days and
ill probally take a night off and sleep till the morning lol

[Duskrider]

sleep??
What's that?

[heather valentine]

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

[heather valentine]

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

[Duskrider]

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
[]
   
             

[heather valentine]

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

[Duskrider]

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.


[]

[heather valentine]

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