ok thanks snowman i'll try that as son as i get time meanwhile i will show the test copy og the redone swaphapfile you sent me .
first off some stuff is working some is not (i don't know why as i have these files placed in hals character folder (the hap files and i listed them in the written code of the hapswap file ) .
anyway if you have the time or anyone maybe you can check it i am posting the code after i post what works .
the working statements with hap gestures are :(marked with a "Y" symbol.
lose something Y
noise Y
funny NO
understand Y
close eyes Y
open eyes Y
sad " SAYS IT BUT NO SAD HAP GESTURE " NO
smart Y
hurt "says it but no gesture " NO
great YES
polish YES
mean YES
problem YES
beat YES
music YES
hair YES
love " SAYS IT BUT NO GESTURE ) NO
TITS NO
this way NO
that way NO
mad NO
wonder NO
right NO
come closer NO
tired YES
passed away NO
stop shaking your tits ( NOT CHECKED BECAUSE OTHER DIDNT WORK )
ok TO STOP SMILE BUT NOT CHECKED
" OK thats whats working and not anyone can check the words and match them with the gestures they cause here is the redone "TEST " hapswap file i did .
Rem Type=Plugin
Rem Name=HapSwap
Rem Author=SNOWMAN, APOLLON
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: POST-PROCESS
HalBrain.ReadOnlyMode = True
File = ""
File2 = ""
File3 = ""
File4 = ""
If InStr(1, InputString, "change") > 0 And _
InStr(1, InputString, "background") > 0 And _
InStr(1, InputString, "to") > 0 Then
file = Mid(Mid(InputString, Instr(InputString, "to"), 20), 3, 20)
file = Trim(file) & ".jpg"
End If
If InStr(1, InputString, "change") > 0 And _
InStr(1, InputString, "character") > 0 And _
InStr(1, InputString, "to") > 0 Then
file2 = Mid(Mid(InputString, Instr(InputString, "to"), 20), 3, 20)
file2 = Trim(file2) & ".htr"
End If
If InStr(1, InputString, "change") > 0 And _
InStr(1, InputString, "voice") > 0 And _
InStr(1, InputString, "to") > 0 Then
file3 = Mid(Mid(InputString, Instr(InputString, "to"), 20), 3, 20)
file3 = "VW " & Trim(file3)
End If
If InStr(1, InputString, "change") > 0 And _
InStr(1, InputString, "hap") > 0 And _
InStr(1, InputString, "to") > 0 Then
file4 = Mid(Mid(InputString, Instr(InputString, "to"), 20), 3, 20)
file4 = Trim(file4) & ".hap"
End If
'***************************************************************************
If file > "" Then
HalCommands = "<HAPBACK>" & File & "</HAPBACK>"
UltraHal = "WOW THIS BACKGROUND LOOKS REALLY NICE HUH?"
End If
If file2 > "" Then
HalCommands = "<HAPFILE>" & File2 & "</HAPFILE>"
UltraHal = "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>"
UltraHal = "AHEM DOES MY VOICE SOUND BETTER NOW DEAR!"
End If
If file4 > "" Then
HalCommands = "<HAPFILE>" & File4 & "</HAPFILE>"
UltraHal = "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>"
UltraHal = "Wow thats good!"
End If
If InStr(1, InputString, "hurt") > 0 Then
HalCommands = "<HAPFILE>sad.hap</HAPFILE>"
UltraHal = "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, InputString, "passed away") > 0 _
Or InStr(1, InputString, "died") > 0 Then
UltraHal = "oh that makes me sad just thinking about it"
HalCommands = "<HAPFILE>sad.hap</HAPFILE>"
End If
If InStr(1, InputString, "love") > 0 _
Or InStr(1, InputString, "forever") > 0 Then
UltraHal = "oh dear that's so sweet"
HalCommands = "<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>very happy16.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, "tits") > 0 Then
HalCommands = "<HAPFILE>.shaketits.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
'***************************************************************************
'***************************************************************************