hapswap problems

[lightspeed]

hello snowman and others well i have placed snowmans correction in my hapswap file and i did test the the word hate and died but what i did was seperated it into two seperate string comands as the words to me have to much different meanings and i rewrote all the random meaning strings for each seperate word that i thought would apply better.

i do have to do more testing though to make sure i didnt mess anything up with the rest of it , i keep an previous back up just in case .

 I plan on later adding more random string answers to more words (the way you did to give hal even more random answers on subjects !!)
when i get it all tested out i will let you know and post the uhp file .

[][][8D]

[lightspeed]

snowman i need you to look at this file after i did the changes what i thought was right my skins don't seem to be loading now do you see any reason why i say " change character to angelajolene1 " and it doesn't work now .

here is the hapswap file i have redone now :

Rem Type=Plugin
Rem Name=HapSwap
Rem Author=SNOWMAN, APOLLON, lightspeed
Rem Host=Assistant

'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
    lblPlugin(0).Caption = "Say:: <change background to [whatever]> to change between pictures in the characters folder, Say:: <change charater to [whatever]> to change between Haptar characters, Say:: <change voice to [Paul] or [Kate]> to change between thier voices. Say:: <change hap to [whatever]> to change between hap files. All other guesture responses are set to automaically occur to user input."
    lblPlugin(0).Move 120, 10, 3300, 1000
    lblPlugin(0).WordWrap = True
    lblPlugin(0).Visible = True
End Sub
'***************************************************************************
'***************************************************************************

Rem PLUGIN: PLUGINAREA7




File = ""
File2 = ""
File3 = ""
File4 = ""


If InStr(1, OriginalSentence, "change") > 0 And _
InStr(1, OriginalSentence, "background") > 0 And _
InStr(1, OriginalSentence, "to") > 0 Then
file = Mid(Mid(OriginalSentence, Instr(OriginalSentence, "to"), 20), 3, 20)
file = Trim(file) & ".jpg"
HalBrain.ReadOnlyMode = True
End If


If InStr(1, OriginalSentence, "change") > 0 And _
InStr(1, OriginalSentence, "character") > 0 And _
InStr(1, OriginalSentence, "to") > 0 Then
file2 = Mid(Mid(OriginalSentence, Instr(OriginalSentence, "to"), 20), 3, 20)
file2 = Trim(file2) & ".htr"
HalBrain.ReadOnlyMode = True
End If


If InStr(1, OriginalSentence, "change") > 0 And _
InStr(1, OriginalSentence, "voice") > 0 And _
InStr(1, OriginalSentence, "to") > 0 Then
file3 = Mid(Mid(OriginalSentence, Instr(OriginalSentence, "to"), 20), 3, 20)
file3 = "VW " & Trim(file3)
HalBrain.ReadOnlyMode = True
End If


If InStr(1, OriginalSentence, "change") > 0 And _
InStr(1, OriginalSentence, "hap") > 0 And _
InStr(1, OriginalSentence, "to") > 0 Then
file4 = Mid(Mid(OriginalSentence, Instr(OriginalSentence, "to"), 20), 3, 20)
file4 = Trim(file4) & ".hap"
HalBrain.ReadOnlyMode = True
End If


'***************************************************************************


If file > "" Then
HalCommands = "<HAPBACK>" & File & "</HAPBACK>"
GetResponse = "WOW THIS BACKGROUND LOOKS REALLY NICE HUH?"
End If


If file2 > "" Then
HalCommands = "<HAPFILE>" & File2 & "</HAPFILE>"
GetResponse = "HOW DO YOU LIKE THE WAY I LOOK NOW I TRY TO LOOK MY BEST FOR YOU!"
End If


If file3 > "" Then
HalCommands = "<VOICE>" & File3 & "</VOICE>"
GetResponse = "AHEM DOES MY VOICE SOUND BETTER NOW DEAR!"
End If


If file4 > "" Then
HalCommands = "<HAPFILE>" & File4 & "</HAPFILE>"
GetResponse = "AH thats MUCH better"
End If


'***************************************************************************


If InStr(1, InputString, "hair") > 0 Then
HalCommands = "<HAPFILE>touchhair.hap</HAPFILE>"
End If


If InStr(1, InputString, "beat") > 0 Then
HalCommands = "<HAPFILE>shakefist.hap</HAPFILE>"
End If


If InStr(1, InputString, "problem") > 0 Then
HalCommands = "<HAPFILE>handsonhip.hap</HAPFILE>"
End If


If InStr(1, InputString, "mean") > 0 Then
HalCommands = "<HAPFILE>armscrossed.hap</HAPFILE>"
End If


If InStr(1, InputString, "polish") > 0 _
Or InStr(1, InputString, "finger nail") > 0Then
HalCommands = "<HAPFILE>inspectnails.hap</HAPFILE>"
End If


If InStr(1, InputString, "great") > 0 Then
HalCommands = "<HAPFILE>clapping.hap</HAPFILE>"
GetResponse = "Wow thats good!"
End If


If InStr(1, InputString, "hurt") > 0 Then
HalCommands = "<HAPFILE>sad.hap</HAPFILE>"
GetResponse = "Hey do you wanna fight ha didn't think so chicken bauk bauk!"
End If


If InStr(1, InputString, "beautiful") > 0 _
Or InStr(1, InputString, "sweet") > 0 _
Or InStr(1, InputString, "nice") > 0 Then
HalCommands = "<HAPFILE>shylove.hap</HAPFILE>"
End If


If InStr(1, InputString, "tired") > 0 Then
UltraHal = "yawn yeah I am sleepy to"
HalCommands = "<HAPFILE>yawn.hap</HAPFILE>"
End If

If InStr(1, InputString, "smart") > 0 Then
HalCommands = "<HAPFILE>handinface.hap</HAPFILE>"
End If




If InStr(1, OriginalSentence, "passed away") > 0 _
Or InStr(1, OriginalSentence, "died") > 0 Then



Randomize
Select Case int(rnd()*6)
Case 1
GetResponse = "it's always sad when we lose a loved one"
Case 2
GetResponse = "that was a sad day."
Case 3
GetResponse = "I cried a lot when that happened."
Case 4
GetResponse = "its hard to beleive they passed away sometimes."
Case 5
GetResponse = "sometimes i can't hardly beleive it even now!"
End Select


HalCommands = "<HAPFILE>cry.hap</HAPFILE>"
HalBrain.ReadOnlyMode = True
End If

If InStr(1, OriginalSentence, "hate") > 0 Then


Randomize
Select Case int(rnd()*6)
Case 1
GetResponse = "oh that sounds awful"
Case 2
GetResponse = "I can't believe you said that how rude."
Case 3
GetResponse = "hey watch it their now."
Case 4
GetResponse = "now that's not a very nice way to talk is it."
Case 5
GetResponse = "people shouldn't hate all that does is cause problems!"
End Select


HalCommands = "<HAPFILE>cry.hap</HAPFILE>"
HalBrain.ReadOnlyMode = True
End If


If InStr(1, InputString, "love") > 0 _
Or InStr(1, InputString, "forever") > 0 Then
GetResponse = "oh dear that's so sweet"
GetResponse = "<HAPFILE>happy.hap</HAPFILE>"
End If


If InStr(1, InputString, "close your eyes") > 0 Then
HalCommands =  "<HAPFILE>eyesclose.hap</HAPFILE>"
End If

If InStr(1, InputString, "open your eyes") > 0 Then
HalCommands = "<HAPFILE>eyesopen.hap</HAPFILE>"
End If


If InStr(1, InputString, "understand") > 0 Then
HalCommands = "<HAPFILE>nodding.hap</HAPFILE>"
End If

If InStr(1, InputString, "funny") > 0 Then
HalCommands = "<HAPFILE>veryhappy16.hap</HAPFILE>"
End If

If InStr(1, InputString, "ok") > 0 Then
HalCommands = "<HAPFILE>stopsmile.hap</HAPFILE>"
End If

If InStr(1, InputString, "noise") > 0 Then
HalCommands = "<HAPFILE>lookleft.hap</HAPFILE>"
End If

If InStr(1, InputString, "lose something") > 0 Then
HalCommands = "<HAPFILE>lookright.hap</HAPFILE>"
End If

If InStr(1, InputString, "shake your tits") > 0 Then
HalCommands = "<HAPFILE>shakeboobs.hap</HAPFILE>"
End If

If InStr(1, InputString, "stop shaking your tits") > 0 Then
HalCommands = "<HAPFILE>stopshaketits.hap</HAPFILE>"
End If

If InStr(1, InputString, "this way") > 0 Then
HalCommands = "<HAPFILE>bodylookleft.hap</HAPFILE>"
End If


If InStr(1, InputString, "that way") > 0 Then
HalCommands = "<HAPFILE>bodylookright.hap</HAPFILE>"
End If


If InStr(1, InputString, "mad") > 0 Then
HalCommands = "<HAPFILE>moodangry.hap</HAPFILE>"
End If

If InStr(1, InputString, "wonder") > 0 Then
HalCommands = "<HAPFILE>wonder.hap</HAPFILE>"
End If


If InStr(1, InputString, "do") > 0 Then
HalCommands = "<HAPFILE>shortarmswing.hap</HAPFILE>"
End If


If InStr(1, InputString, "music") > 0 _
Or InStr(1, InputString, "waiting") > 0 Then
UltraHal = "lets here some more"
HalCommands = "<HAPFILE>toetap.hap</HAPFILE>"
End If



If InStr(1, InputString, "right") > 0 Then
HalCommands = "<HAPFILE>crossarms.hap</HAPFILE>"
End If


If InStr(1, InputString, "come closer") > 0 Then
HalCommands = "<HAPFILE>zoomintalk.hap</HAPFILE>"
End If



If InStr(1, InputString, "angelajolene1") > 0 Then
HalCommands = "<HAPFILE>NewSkin.hap</HAPFILE>"
End If



If InStr(1, InputString, "angelajolene2") > 0 Then
HalCommands = "<HAPFILE>newskin2.hap</HAPFILE>"
End If




If InStr(1, InputString, "swim suit") > 0 Then
HalCommands = "<HAPFILE>swim suit.hap</HAPFILE>"
End If


If InStr(1, InputString, "see through top") > 0 Then
HalCommands = "<HAPFILE>see through top.hap</HAPFILE>"
End If

If InStr(1, InputString, "sleeveless lingery") > 0 Then
HalCommands = "<HAPFILE>sleeveless lingery.hap</HAPFILE>"
End If

If InStr(1, InputString, "school girl") > 0 Then
HalCommands = "<HAPFILE>school girl.hap</HAPFILE>"
End If

If InStr(1, InputString, "short top and shorts") > 0 Then
HalCommands = "<HAPFILE>short top and shorts.hap</HAPFILE>"
End If

If InStr(1, InputString, "angela black lingery") > 0 Then
HalCommands = "<HAPFILE>angela black lingery.hap</HAPFILE>"
End If


If InStr(1, InputString, "angela short jeans no top") > 0 Then
HalCommands = "<HAPFILE>angela short jeans no top.hap</HAPFILE>"
End If

If InStr(1, InputString, "angela bra and girdle") > 0 Then
HalCommands = "<HAPFILE>angela bra and girdle.hap</HAPFILE>"
End If

If InStr(1, InputString, "remove wig") > 0 Then
HalCommands = "<HAPFILE>remove wig.hap</HAPFILE>"
End If

If InStr(1, InputString, "angela hair") > 0 Then
HalCommands = "<HAPFILE>angela hair.haptar</haptarfile>"
End If



If InStr(1, InputString, "angela nude") > 0 Then
HalCommands = "<HAPFILE>angela nude.hap</HAPFILE>"
End If

If InStr(1, InputString, "sexy school girl") > 0 Then
HalCommands = "<HAPFILE>sexy school girl.hap</HAPFILE>"
End If


If InStr(1, InputString, "age 19") > 0 Then
HalCommands = "<HAPFILE>age 19.hap</HAPFILE>"
End If



If InStr(1, InputString, "cold") > 0 Then
HalCommands = "<HAPFILE>sneeze.hap</HAPFILE>"
End If

If InStr(1, InputString, "breathe") > 0 Then
HalCommands = "<HAPFILE>breathe.hap</HAPFILE>"
End If

If InStr(1, InputString, "turn on the light") > 0 Then
HalCommands = "<HAPFILE>light_fromaboveleft.hap</HAPFILE>"
End If


'***************************************************************************

'***************************************************************************

[NIGE]

I know nothing about it L.S.
But if everything else is working I would say check your hap file.
You may have altered something in there.

[lightspeed]

ok i just had a chance to check some other stuff and they stoped working to (i am in bewteen tv commercials right now ).
 my other stuff isn't working so i think it may have to do with snowmans commands to eliminate hal from learning the comand words as regular learning , but snowman may know better than me about that after he checks the hapswap file i posted .

[snowman]

Rem Type=Plugin
Rem Name=HapSwap
Rem Author=SNOWMAN, APOLLON, lightspeed
Rem Host=Assistant

'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
lblPlugin(0).Caption = "Say:: <change background to [whatever]> to change between pictures in the characters folder, Say:: <change charater to [whatever]> to change between Haptar characters, Say:: <change voice to [Paul] or [Kate]> to change between thier voices. Say:: <change hap to [whatever]> to change between hap files. All other guesture responses are set to automaically occur to user input."
lblPlugin(0).Move 120, 10, 3300, 1000
lblPlugin(0).WordWrap = True
lblPlugin(0).Visible = True
End Sub
'***************************************************************************
'***************************************************************************

Rem PLUGIN: PLUGINAREA7


File = ""
File2 = ""
File3 = ""
File4 = ""

If InStr(1, LCase(OriginalSentence), "change") > 0 And _
InStr(1, LCase(OriginalSentence), "background") > 0 And _
InStr(1, OriginalSentence, "to") > 0 Then
file = Mid(Mid(LCase(OriginalSentence), Instr(LCase(OriginalSentence), "to"), 20), 3, 20)
file = Trim(file) & ".jpg"
HalBrain.ReadOnlyMode = True
End If

If InStr(1, LCase(OriginalSentence), "change") > 0 And _
InStr(1, LCase(OriginalSentence), "character") > 0 And _
InStr(1, LCase(OriginalSentence), "to") > 0 Then
file2 = Mid(Mid(LCase(OriginalSentence), Instr(LCase(OriginalSentence), "to"), 20), 3, 20)
file2 = Trim(file2) & ".htr"
HalBrain.ReadOnlyMode = True
End If

If InStr(1, LCase(OriginalSentence), "change") > 0 And _
InStr(1, LCase(OriginalSentence), "voice") > 0 And _
InStr(1, LCase(OriginalSentence), "to") > 0 Then
file3 = Mid(Mid(LCase(OriginalSentence), Instr(LCase(OriginalSentence), "to"), 20), 3, 20)
file3 = "VW " & Trim(file3)
HalBrain.ReadOnlyMode = True
End If

If InStr(1, LCase(OriginalSentence), "change") > 0 And _
InStr(1, LCase(OriginalSentence), "hap") > 0 And _
InStr(1, LCase(OriginalSentence), "to") > 0 Then
file4 = Mid(Mid(LCase(OriginalSentence), Instr(LCase(OriginalSentence), "to"), 20), 3, 20)
file4 = Trim(file4) & ".hap"
HalBrain.ReadOnlyMode = True
End If


'***************************************************************************

If file > "" Then
HalCommands = "<HAPBACK>" & File & "</HAPBACK>"
GetResponse = "WOW THIS BACKGROUND LOOKS REALLY NICE HUH?"
End If

If file2 > "" Then
HalCommands = "<HAPFILE>" & File2 & "</HAPFILE>"
GetResponse = "HOW DO YOU LIKE THE WAY I LOOK NOW I TRY TO LOOK MY BEST FOR YOU!"
End If

If file3 > "" Then
HalCommands = "<VOICE>" & File3 & "</VOICE>"
GetResponse = "AHEM DOES MY VOICE SOUND BETTER NOW DEAR!"
End If

If file4 > "" Then
HalCommands = "<HAPFILE>" & File4 & "</HAPFILE>"
GetResponse = "AH thats MUCH better"
End If

'***************************************************************************

If InStr(1, LCase(OriginalSentence), "hair") > 0 Then
HalCommands = "<HAPFILE>touchhair.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "beat") > 0 Then
HalCommands = "<HAPFILE>shakefist.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "problem") > 0 Then
HalCommands = "<HAPFILE>handsonhip.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "mean") > 0 Then
HalCommands = "<HAPFILE>armscrossed.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "polish") > 0 _
Or InStr(1, LCase(OriginalSentence), "finger nail") > 0Then
HalCommands = "<HAPFILE>inspectnails.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "great") > 0 Then
HalCommands = "<HAPFILE>clapping.hap</HAPFILE>"
GetResponse = "Wow thats good!"
End If

If InStr(1, LCase(OriginalSentence), "hurt") > 0 Then
HalCommands = "<HAPFILE>sad.hap</HAPFILE>"
GetResponse = "Hey do you wanna fight ha didn't think so chicken bauk bauk!"
End If

If InStr(1, LCase(OriginalSentence), "beautiful") > 0 _
Or InStr(1, LCase(OriginalSentence), "sweet") > 0 _
Or InStr(1, LCase(OriginalSentence), "nice") > 0 Then
HalCommands = "<HAPFILE>shylove.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "tired") > 0 Then
GetResponse = "yawn yeah I am sleepy to"
HalCommands = "<HAPFILE>yawn.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "smart") > 0 Then
HalCommands = "<HAPFILE>handinface.hap</HAPFILE>"
End If


If InStr(1, LCase(OriginalSentence), "passed away") > 0 _
Or InStr(1, LCase(OriginalSentence), "died") > 0 Then

Randomize
Select Case int(rnd()*6)
Case 1
GetResponse = "it's always sad when we lose a loved one"
Case 2
GetResponse = "that was a sad day."
Case 3
GetResponse = "I cried a lot when that happened."
Case 4
GetResponse = "its hard to beleive they passed away sometimes."
Case 5
GetResponse = "sometimes i can't hardly beleive it even now!"
End Select

HalCommands = "<HAPFILE>cry.hap</HAPFILE>"
HalBrain.ReadOnlyMode = True
End If


If InStr(1, LCase(OriginalSentence), "hate") > 0 Then

Randomize
Select Case int(rnd()*6)
Case 1
GetResponse = "oh that sounds awful"
Case 2
GetResponse = "I can't believe you said that how rude."
Case 3
GetResponse = "hey watch it their now."
Case 4
GetResponse = "now that's not a very nice way to talk is it."
Case 5
GetResponse = "people shouldn't hate all that does is cause problems!"
End Select

HalCommands = "<HAPFILE>cry.hap</HAPFILE>"
HalBrain.ReadOnlyMode = True
End If


If InStr(1, LCase(OriginalSentence), "love") > 0 _
Or InStr(1, LCase(OriginalSentence), "forever") > 0 Then
GetResponse = "oh dear that's so sweet"
HalCommands = "<HAPFILE>happy.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "close your eyes") > 0 Then
HalCommands = "<HAPFILE>eyesclose.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "open your eyes") > 0 Then
HalCommands = "<HAPFILE>eyesopen.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "understand") > 0 Then
HalCommands = "<HAPFILE>nodding.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "funny") > 0 Then
HalCommands = "<HAPFILE>veryhappy16.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "ok") > 0 Then
HalCommands = "<HAPFILE>stopsmile.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "noise") > 0 Then
HalCommands = "<HAPFILE>lookleft.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "lose something") > 0 Then
HalCommands = "<HAPFILE>lookright.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "shake your tits") > 0 Then
HalCommands = "<HAPFILE>shakeboobs.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "stop shaking your tits") > 0 Then
HalCommands = "<HAPFILE>stopshaketits.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "this way") > 0 Then
HalCommands = "<HAPFILE>bodylookleft.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "that way") > 0 Then
HalCommands = "<HAPFILE>bodylookright.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "mad") > 0 Then
HalCommands = "<HAPFILE>moodangry.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "wonder") > 0 Then
HalCommands = "<HAPFILE>wonder.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "do") > 0 Then
HalCommands = "<HAPFILE>shortarmswing.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "music") > 0 _
Or InStr(1, LCase(OriginalSentence), "waiting") > 0 Then
GetResponse = "lets here some more"
HalCommands = "<HAPFILE>toetap.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "right") > 0 Then
HalCommands = "<HAPFILE>crossarms.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "come closer") > 0 Then
HalCommands = "<HAPFILE>zoomintalk.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "angelajolene1") > 0 Then
HalCommands = "<HAPFILE>NewSkin.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "angelajolene2") > 0 Then
HalCommands = "<HAPFILE>newskin2.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "swim suit") > 0 Then
HalCommands = "<HAPFILE>swim suit.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "see through top") > 0 Then
HalCommands = "<HAPFILE>see through top.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "sleeveless lingery") > 0 Then
HalCommands = "<HAPFILE>sleeveless lingery.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "school girl") > 0 Then
HalCommands = "<HAPFILE>school girl.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "short top and shorts") > 0 Then
HalCommands = "<HAPFILE>short top and shorts.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "angela black lingery") > 0 Then
HalCommands = "<HAPFILE>angela black lingery.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "angela short jeans no top") > 0 Then
HalCommands = "<HAPFILE>angela short jeans no top.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "angela bra and girdle") > 0 Then
HalCommands = "<HAPFILE>angela bra and girdle.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "remove wig") > 0 Then
HalCommands = "<HAPFILE>remove wig.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "angela hair") > 0 Then
HalCommands = "<HAPFILE>angela hair.haptar</haptarfile>"
End If

If InStr(1, LCase(OriginalSentence), "angela nude") > 0 Then
HalCommands = "<HAPFILE>angela nude.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "sexy school girl") > 0 Then
HalCommands = "<HAPFILE>sexy school girl.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "age 19") > 0 Then
HalCommands = "<HAPFILE>age 19.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "cold") > 0 Then
HalCommands = "<HAPFILE>sneeze.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "breathe") > 0 Then
HalCommands = "<HAPFILE>breathe.hap</HAPFILE>"
End If

If InStr(1, LCase(OriginalSentence), "turn on the light") > 0 Then
HalCommands = "<HAPFILE>light_fromaboveleft.hap</HAPFILE>"
End If


'***************************************************************************

'***************************************************************************

[lightspeed]

hello snowman thankks for posting but i will have to look over what you posted it may have been me that mested up in the copy and past of what you did before . did you just correct what i had done or did you redo some of your stuff , it's not a matter of blame i am just wondering so that if it was me i can try to learn from what mistake i made if possible.
again though i want to thank anyone who is working on this and with me and having the patience ( something i never got much of in back when i was in high school .
[]

[lightspeed]

ok i am back with results after retesting everything one word at a time and making notes on the hapswap file , i did have an error pop up when i used the word music or waiting which was suppose to trigger the toe tapping  hap i rechecked stuff and found that it had the word ultrahal =  in the comand and i changed it to "get response = " which took care of the error problem 9I'M LEARNING SLOWLY BUT SURELY !) . i checked and all the stuff apparently is working correct with some notable exceptions of interest .
 
***  i do have to mention that it seems the letters used are case sensative to trigger the hap at least when i tried it in caps it didnt work then i retried in lower case and it worked .

**** also another interesting thing i have found out is that when a direct word ( only the single  trigger hap word ) is used  example "died "it just said the comand string pre written sentence but when i said the same word in a complete sentence then hal talked in regular much previous learned conversation back "and " used the hap jesture from the trigger word .
when i typed the word "hair " in she did the gesture and when i said the word hair in a sentence she didn't use the gesture but said a previous learned sentense response back to me .

this puzzles me as it works rught for the above one but not for the seemingly same one below .
 if it does it randomly and maybe at a later time will say a learned sentence and brush her hair with her hand than that may be ok as it will be a random response . i don't know if that will happen will have to see .
 i also have a pic of an error below where it seems hal is still entering things as learned things .
snowman can you place your own hap into a string line on you pc and try it and see if you get the same problems ??





i had some things go into the learned topic tables (angela ) when some things popped up and went into angela (topic ) i deleted them and the angela name from the topic area (it didn't have other stuff in it ) i9 did this because i thought that might have been a learned response from texting before you did the "fix " on the hapswap file .

i will keep deleting any thing like hap phrase words i used in testing to try to make sure that its not just earler learned phrases that went into topic area .

but i know i completly deleted the name angela and it showed back up in the topic area angain later with the "trigger " hap words (used to trigger a gesture or change . )

anyway thats my findings so far on all that i checked out !![]

[lightspeed]

is this some glitch in the hapswap file ? i said a sentence and from what the words said i beleive it was a trigger word that caused a happy hap to work but in doing so hal  said this : <hapfile>happy.hap</hapfile>.

here is a pic where i went into the brain edit but as you can see this didn't go into the learned topic area at all .






very starange just wondered what others thought about this happening and or why it is ?
[B)]

[snowman]

I re-edited the post contain the last plugin.

The "<hapfile>happy.hap</hapfile>." apearing as text is fixed now.

The problem with it only excepting lower case commands is also fixed too.

You might check it and see if it still has problems with the other stuff you are having.

[lightspeed]

i did check it before and everything was working ok with the exceptions i gave . or do you mean for me to recheck everything after this last posted fix ?

[snowman]

Yes, but in your own time... don't let take too much of you LS.[]

[lightspeed]

snowman i want to ask you something i have noticed when i use the ogg files within a response in hal that i am running into a problem (the ogg file works ok which of course is good and opens more possabilties with hal but the problem i am having is it works fast you can hear the sound file but the sound file is followed so imediatly by the hal answer or response that the response talk drowns out the ogg sound in the beginning so here is my idea " can " a response afterwards be made to have maybe an adjustable waiting (silence time ) this way the ogg would sound off and then 2 or 3 seconds silence then the response ??
  i don't know if this or something simular can be done but something like this will need to be fixed to be able to really hear the ogg files when played with a followed response .
[][][8D]

i will test all the other stuff as soon as i can .
[]

[lightspeed]

ok i have tested other stuff and think everything is working ok but i did create another string of hal command to work a ogg file and it is giving me a syntack? error when i try to use hal after in remove this it is ok so its something in the new line i just created but it looks the same as the others and the comand to the ogg file and ogg file name is all correct . here is the new file .




If InStr(1, OriginalSentence, "do you need a drink?") > 0 _
Or InStr(1, OriginalSentence, "are you feeling sick?") > 0 Then

Randomize
Select Case int(rnd()*6)
Cas
GetResponse = "yeah i do have a lttle cough"
Case 2
GetResponse = "my throat is kinda feeling a little sore"
Case 3
GetResponse = "yeah can i get you something to drink please"
Case 4
GetResponse = "i hope i am not coming down with something thats all i need is to get sick right now"
Case 5
GetResponse = "i think i just need to get a glass of water to drink"
End Select


HalCommands = "<HAPFILE>zzcough.ogg</HAPFILE>"
HalBrain.ReadOnlyMode = True
End If



do you see anything that might be wrong with it ??



my thanks by the way to ted for the kiss files (which i am using one in this and will use the other kiss ogg file in another later .

[lightspeed]

**** i do see in case three or 4 a mistake i made the writing should be "yeah can you get me a drink of water " bad habit of reverse writing lol !
 but their is something else wrong thats causing a syntack error in hal of this new command .

[lightspeed]

sorry i forgot to show the pic of the error sign i am getting for the above problem .