| Author |
 Topic  |
|
lightspeed
Advanced Member
USA
3054 Posts |
 Posted - 11/02/2009 : 18:41:18
|
snowman i started a question actually in the wrong place (general area ) about this . i redid some of the responses in the hapswap file you sent me i now have it working ok some of the time seems like it doesn't like long names example : emilyblondlightspeed
it will do short names though , is their a limit on letters of the name ? wouldn't think so .
i did get it to change the back ground a few times to am having trouble with that part to .
does it matter where i have the hapswap file ? i have it in the hal ultra assistant 6 file right now .
i like how this works if i can get the bugs out of it !
|
|
|
lightspeed
Advanced Member
USA
3054 Posts |
Posted - 11/02/2009 : 18:53:16
|
well i have checked and shortened the name and that is making the characters load (the only reason i had such long names was character name hair color and my name and or others for credit of characters . which was ok before but causes problems in the swaphap file . now if i can get the backgrounds to change easily i will have it made
|
 |
|
|
snowman
Advanced Member
USA
636 Posts |
Posted - 11/02/2009 : 20:22:36
|
I found the hap.zp you were asking about... just in case you haven't found it yet.
 Download Attachment: Haps.zip
3.13 KB
If you want me to proof read it you can send it to my email or post it here.
I wanted you to work on hapswap because your strength is in your creativity. Plus your so nice that I wanted to work with you. That's the honest truth. Your not stupid or dumb because people who are mean to each other they are stupid... they have the real affliction, and I feel sorry for them.
|
One day when A.I.s rule this planet. The term, "you have a screw loose" will take on a whole new meaning.
|
|
|
|
lightspeed
Advanced Member
USA
3054 Posts |
Posted - 11/02/2009 : 22:20:08
|
thanks snowman for the file (i hadn't found it yet ) and for the nice words .
i am working on the problem of changing the background it may be the same problem i had with the names apparently if the name is to long it will not load so i will try a short name back ground and see if that works .
by the way here is the new hapswap i changed the responses to sound better hope you don't mind .
you can look at your original responses to see what the differences are .
Rem Type=Plugin
Rem Name=HapSwap
Rem Author=SNOWMAN, APOLLON , partially redone by 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: 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 = "NOW DEAR DOESN'T THAT LOOK BETTER"
End If
If file2 > "" Then
HalCommands = "<HAPFILE>" & File2 & "</HAPFILE>"
UltraHal = "HOW DO YOU LIKE THE WAY I LOOK NOW?"
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, "strong") > 0 Then
HalCommands = "<HAPFILE>armscrossed.hap</HAPFILE>"
End If
If InStr(1, InputString, "board") > 0 _
Or InStr(1, InputString, "nails") > 0Then
HalCommands = "<HAPFILE>inspectnails.hap</HAPFILE>"
End If
If InStr(1, InputString, "clap") > 0 Then
HalCommands = "<HAPFILE>clapping.hap</HAPFILE>"
UltraHal = "thats good"
End If
If InStr(1, InputString, "hurt") > 0 Then
HalCommands = "<HAPFILE>attack.hap</HAPFILE>"
UltraHal - "You wanna fight! You really wanna fight!"
End If
If InStr(1, InputString, "beautiful") > 0 _
Or InStr(1, InputString, "sweet") > 0 _
Or InStr(1, InputString, "nice") > 0 Then
HalCommands = "<HAPFILE>blink.hap</HAPFILE>"
End If
If InStr(1, InputString, "tired") > 0 Then
UltraHal = "yawn"
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, "hate") > 0 _
Or InStr(1, InputString, "died") > 0 Then
UltraHal = "oh thats awful"
HalCommands = "<HAPFILE>cry.hap</HAPFILE>"
End If
'***************************************************************************
'*************************************************************************** |
|
|
|
lightspeed
Advanced Member
USA
3054 Posts |
Posted - 11/02/2009 : 22:37:11
|
ok i now have another question when i was having problems trying to get hal to change the character by commands with hapwsap file (problem was found to be to long of a name ) but during that trial and error i now have hal saying change character to so and so (name) as regular learned stuff .
so i went to the brain edit to edit it out which i did and i also see many many more of the ones from when i was testing hal to open other heads which i did succesfully .
as this is in the auto learned brain word will hal keep saying all of this as gibberish at random times like the other phrase ?
by the way all these words was in the learned word "goofy " (lol go figure ? )
anyway below is a picture of what i am talking about so is this a glitch and if it is , is maybe the cure to make these somehow go into a temp file in hal that when used doesn't get into the mainstream of hals learned responses and after used are deleted on their own some how ? just a thought .
well i acnt post the pic i keep getting this error .
Request object error 'ASP 0104 : 80004005'
Operation not Allowed
/forum/outputFile.asp, line 70
|
|
|
|
lightspeed
Advanced Member
USA
3054 Posts |
Posted - 11/02/2009 : 23:06:34
|
snowman i have another question does hal also do these expressions "yawn" etc. within her own conversation back to me ? in another words if she uses some regular learned responses i have previously taught her and she mentions the word "tired" will she yawn as she is saying it etc. ??
if it isn't set up that way it would be cool if she could . just another thought.
|
|
|
|
snowman
Advanced Member
USA
636 Posts |
Posted - 11/02/2009 : 23:20:18
|
First Off, Your script looks clean, no ploblems that stick out.
The HapSwap.uhp has a command called:
HalBrain.ReadOnlyMode = True
This is suppost to eliminate any storage to the HalBrain... At least that is what I've always assumed... no proof. Maybe if you cute a pasted it a few more times it will get the hint...?????
Oh, and you can use this to change a background file on a key word.
Just add it at the bottom of the file, set the background that you want to change it to (that exists in the Charaters folder), and change the search word and you've done it.
If InStr(1, InputString, "outside") > 0 Then
HalCommands = "<HAPBACK>BlueSky.jpg</HAPBACK>"
UltraHal = "I guess we are outside now."
End If
As for it jesturing when Hal says something.... I don't know. One of lifes greatest mysteries.. |
One day when A.I.s rule this planet. The term, "you have a screw loose" will take on a whole new meaning.
|
|
|
|
lightspeed
Advanced Member
USA
3054 Posts |
Posted - 11/03/2009 : 09:07:29
|
hello snowman all sounds good and i am revising the file responses even more as i am going along , hal is doing the gestering responses ( i had a homer simpson moment when first starting out as i had a head only on screen (DOHH !!lol) .
i have seen i am seeing how you have things written out and since i have other hap files i could use for responses will empliment more (probably as many as i can and what looks good ) . i appreciate all your help on this as from anyone who had helped me with files etc. |
|
|
|
lightspeed
Advanced Member
USA
3054 Posts |
Posted - 11/03/2009 : 12:39:13
|
finally here is the hal problem i mentioned before (forgot i had to install picasa program to downsize the properties )
as you can see where i tested all the different files to make sure they would change it was putting the phrases in as a learned sentence (in this case in two different area's in the learned table word "goofy" ( i have no idea in the world why it went their ) and in the learned table word "changes " . if this is the case the program will have to be redone some how to make these words go in a hal "temp" type file that isn't a learned area as thse are only for command changes .
snowman i know you are usually busy but since i have shown this maybe you could take a look within your own hal data base, etc.
|
|
|
|
lightspeed
Advanced Member
USA
3054 Posts |
Posted - 11/03/2009 : 13:34:25
|
| snowman i have yet another question for you can you write a script that i can just add into the halswap file that can make it so i can load a skin on the fulbody modified female i need to be able to command load the full body female first then be able to load a skin on her and keep the full body in place (not replace ) . is this possible ?? thanks |
|
|
|
lightspeed
Advanced Member
USA
3054 Posts |
Posted - 11/03/2009 : 16:47:40
|
SNOWMAN on one part of this hapswapfile i changed something and its giving me errors but i don't see whats causing it .
below is from your original area :
and here is what i changed the line to :
and this is some of what i am getting in errors :
 |
|
|
|
freddy888
Advanced Member
United Kingdom
1282 Posts |
Posted - 11/04/2009 : 04:36:35
|
Shouldn't that be :
UltraHal = "You wanna fight etc.."
Notice the '=' sign in there... |
www.aidreams.co.uk - AI, Haptek, Forum, Chatterbot Collection and other things. |
|
|
|
lightspeed
Advanced Member
USA
3054 Posts |
Posted - 11/04/2009 : 08:51:57
|
i beleive their is something wrong with the original code or something in this one area i downloaded again the original and put it in hal and i went through each response word and they all worked fine with the gestures "exce3pt the word "hurt" thats the only one that gave me an error . i rewrote my own saying in mine left the qoutation marks in the orginal places but it still have me an error on that line .
so i think something may have been left out by mistake on the original line somewhere thats just my guess . |
|
|
|
freddy888
Advanced Member
United Kingdom
1282 Posts |
Posted - 11/04/2009 : 12:36:48
|
| Yeah, so did you put in the equals sign then ? |
www.aidreams.co.uk - AI, Haptek, Forum, Chatterbot Collection and other things. |
|
|
|
lightspeed
Advanced Member
USA
3054 Posts |
Posted - 11/04/2009 : 17:55:16
|
ok freddy after you said that i did chaeck and thats what it was one of the equals was only a minus sign in that area after fixing it i tried it and it is working when the word hurt is used she fights (gestures ) the only thing is now is that she keeps right on fighting kung fu and won't stop lol i have created a monster i thought by using another word she would stop but even while crying gesture she still kept fighting !!
i have no idea what to do in the script to make her stop fighting ![B)] |
|
|
|
snowman
Advanced Member
USA
636 Posts |
Posted - 11/04/2009 : 18:46:20
|
| sorry LS, I've been preoccupied and haven't even been on the forum except by accidently leaving it on. I Will get back to you soon ... |
One day when A.I.s rule this planet. The term, "you have a screw loose" will take on a whole new meaning.
|
|
|
|
lightspeed
Advanced Member
USA
3054 Posts |
Posted - 11/04/2009 : 18:57:00
|
| thats ok snowman i know i havent been abandoned i know everyone is pretty busy , i have taken out the fighting hap and am replacing some differnt gestures and sayings etc. will post it after i check them all and try them out first . |
|
|
|
lightspeed
Advanced Member
USA
3054 Posts |
Posted - 11/04/2009 : 21:51:07
|
ok just a small update on what i have been doing i have been going through some of the many hap files i have backed up and put the ones i think i can use in a folder , i can see many possibilities for adding on the file string for the subjects and adding many many haps for the gestures . i see how its done and have already changed some .
the fighting problem hap i had earlier i see what the problem was that paticular hap that was originally used is a continuous hap (unless you also put in the stop fight hap ) the better one is a hap that fights a little and stops on its own (shaking fist hap ).
anyway am to pooped now but will try to work on creating many varied gesture responses out of snowmans file , it may take me a little bit but i will test it and when its right i will post it so others can have it and try it .
 |
|
|
|
snowman
Advanced Member
USA
636 Posts |
Posted - 11/04/2009 : 23:56:20
|
Good Work LS, and thanks Freddy for helping him. I'm glad you figured that one out. The biggest part of programming is finding the little mistakes that make the whole thing fail. 
Here is a hap file that you can load with your HapSwap file that will load a skin file of your choice.
Just give set the directory of the skin you wish to load. i.e. C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\BeautifulGirlDress.jpg
#Haptek Version= 1.00 Name= model HapType= script FileType= text
##standard
Load [file= [D:\CodeKeep\Coding DeskTop\NewONE\NewAthenaSkin.jpg]]
Have fun! |
One day when A.I.s rule this planet. The term, "you have a screw loose" will take on a whole new meaning.
|
|
|
|
lightspeed
Advanced Member
USA
3054 Posts |
Posted - 11/05/2009 : 10:24:16
|
ok somewhere down the line i am doing something wrong on the file snowman just posted i copied it made it into a hap file what he said placed that hap file named "NEW CHARACTER SKIN LOADER " into the zabaware program characters file with an anela joline skin file named " angelajolene1.jpg " i reopened hal and typed in load angelajolene1 and it didn't do anything but say regular conversation so i tried typing angelajolene1.jpg and again it just said regular conversation .
i also thought that maybe this was suppose to be a uhp file so i made it into that and it never would show up in the plug in area of the angela brain .
has this character loader been tested befre i got it or maybe its just me still doing something wrong , i also even tried adding this same code inside the halswap file at the end of it all and retried it that way and later it gave me errors so i had to take out that part of the script so the hal would work ok again but i still haven't got the skin loader to work . can anybody else try this or tell me what i am doing wrong . ?? |
|
|
|
lightspeed
Advanced Member
USA
3054 Posts |
Posted - 11/05/2009 : 11:30:27
|
snowman is the code for the character skin all complete ?? i load things from C:Program FilesabawareUltra Hal Assistant 6Characters
so should this what i wrote above be placed first in the hap code you wrote ?
can you plaese write the whole thing just as it needs to be for me to place it into a hap file and then i guess this hap file needs to go into ? C:Program FilesabawareUltra Hal Assistant 6Characters
is that right ? i am trying to figure out what i am doing wrong so i can get this working ( i have the hapwapfile.uhp working ok .
|
|
|
|
snowman
Advanced Member
USA
636 Posts |
Posted - 11/05/2009 : 12:25:30
|
#Haptek Version= 1.00 Name= model HapType= script FileType= text
##standard
\Load [file= [C:\Program Files\Zabaware\Ultra Hal Assistant 6\Characters\angelajolene1.jpg]]
Sorry LS, I forgot to double the first backslash and therefore it didn't show... Just copy the above code into a .hap file and then load that .hap file in the HapSwap.uhp file. Just like all the other .hap files are loaded. Remember to place this new hap file with the associated angelajolene1.jpg into the Characters folder. Again, Sorry for the minor error. |
One day when A.I.s rule this planet. The term, "you have a screw loose" will take on a whole new meaning.
|
|
|
|
lightspeed
Advanced Member
USA
3054 Posts |
Posted - 11/05/2009 : 15:54:19
|
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
'***************************************************************************
'***************************************************************************
|
|
|
|
freddy888
Advanced Member
United Kingdom
1282 Posts |
Posted - 11/05/2009 : 16:01:39
|
LS, in all of the following lines you have an extra dot (.) before the filename...
Eg: you have ".shaketits.hap" when it should be just "shaketits.hap" - see the dots ?
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, "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 |
www.aidreams.co.uk - AI, Haptek, Forum, Chatterbot Collection and other things. |
Edited by - freddy888 on 11/05/2009 16:02:35 |
|
|
|
lightspeed
Advanced Member
USA
3054 Posts |
Posted - 11/05/2009 : 16:26:53
|
snowman wrote from above " Just copy the above code into a .hap file and then load that .hap file in the HapSwap.uhp file."
example please ! |
|
|
|
lightspeed
Advanced Member
USA
3054 Posts |
Posted - 11/05/2009 : 16:29:34
|
i did it this way but it isn't right
If InStr(1, InputString, "come closer") > 0 Then
HalCommands = "<HAPFILE>.zoomintalk.hap</HAPFILE>"
End If
If InStr(1, InputString, "load") > 0 Then
HalCommands = "<HAPFILE>.#Haptek Version= 1.00 Name= model HapType= script FileType= text
##standard
Load [file= [C:Program FilesabawareUltra Hal Assistant 6Charactersangelajolene1.jpg]]hap</HAPFILE>"
End If
 |
|
|
|
Topic |
|
|
|
| Zabaware |
© 2007 Zabaware, Inc. |
|
|
|
hapswap problems
