108
« on: June 18, 2005, 05:11:40 pm »
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
Show Posts
