[HeatherValentine]

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
 

[Freddy]

Thanks Heather! afro.gif

[HeatherValentine]

 :swing:

Your welcome Freddy

[Carl2]

HeatherValentine,
  Jest read your post,  I'm working on getting Sandy(Hal) to detect trigger words put into the Emotion brain, replys are left to the brain function.  Some of the Hap scripts work and some do not make changes at this time. 
Carl2

[Carl2]

HeatherValentine,
  Just finished doing some work on the scripting, the Emotion brn detects the trigger word for the different emotions and sends out the hap file to the Haptek engine to display the emotion.  My largest problem at this time is the Hal window displays the script differently than a haptek window would.  I cant notice much of a difference between neutral hap and happy hap, the angry hap is noticable as are the psycho and silly haps.
  What are your experiences with the haps that are displayed in the Hal window?
Carl2