Topics

1

Ultra Hal Assistant File Sharing Area / Haptek Character GoldMine

« on: March 05, 2005, 04:39:28 pm »

hi all i run across this site you can download a bunch of haptek full body characters male and female

http://www.aee.odu.edu/agent.php?agent=150

i just went to my haptek temp folder and copy the files i need or wanted in to my charicter folder

            Enjoy GhostRider[^]

ow and if anyone has some more replys to my posts please help me out

2

Programming using the Ultra Hal Brain Editor / Character Auto animation (IE Self Automation)

« on: March 02, 2005, 03:09:54 pm »

Hi All just need to ask for some idea's on auto animations.
Im trying to make a base brain file set with all the MS character animations and haptek animation movement codes and commands i know the list is long for each movement a human can do is there a command set already made for all character movements that can be done with the microsoft agent or haptek characters ?
                                          And also how could you write a vb script so hal could randomly pick which movement or animation to do along with speach? i have been reaseaching all the haptek and ms sdk sites and many more i have a idea how to do it but lack the ms agent scripting book and full haptek command and movement codes.
               also could it all be put on a x=y grid for all movements?based on a getresponce formula like the auto idle function?
 
if anyone has some ideas or links i could study i would be thankfull im trying to make hals reactions to the user fully automated to the inputs.
         
             thanks Ghostrider

3

General Discussion / Backdrops for Haptek Charicters

« on: February 28, 2005, 05:18:20 pm »

Hi all i found this site for the backdpop screens when you use the haptek Characters

http://www.3dvalley.com/phpbb/modules.php?set_albumName=Adit1001&op=modload&name=gallery&file=index&include=view_album.php

makes them look like there is rooms ect

                  GhostRider

4

Ultra Hal 7.0 / The Tale of Two Hals

« on: February 26, 2005, 06:09:50 pm »

Hi folks i could use some input on a few things im trying to do and if you all could help me i would be thankfull.

#1 I have succesfully had 2 hals running side by side on my screen with different brains and microsoft characters and it seams to work fine.What i need to know is how to get them to interact through a vb script?they are loaded into the same memory space yet they cannot communicate no matter what script i write?is it hardcoded into the exe file?

#2 I have found a 3d virtual inviroment to put them into any help on iplimintation?or intergration into this enviroment?.
this is the program im going to use you might try it out at this download site  http://www.rooms3d.com.sg/missing.html

Its been a long time sence ive coded in basic and qbasic lol so im buying a copy of vb6 and vb6 studio and downloading a bunch or code and modules.

I just want to say thanks to all of you for your posts and uploads for hal ive bought a copy and have been hard at work training and implimenting many of your projects into my own project.

#3 I have finnaly gotten the hal/alice module to work with aiml and downloaded many aiml modules and implemented them into hal he now has a much broader knowlege base and a more realistic type conversations.

'If the user clicks on the About/Options button for this plugin
'this sub will be called. There are no extra settings for this brain,
'so we'll display an information box
Sub AboutOptions()
   Set HalBrain = CreateObject("UltraHalAsst.Brain")
   HalBrain.MsgAlert "This is the Ultra Hal 5.0 Default Brain. This brain has no additional options."
End Sub
 Function Script_Load()
Script_Load = "<AUTO>30000</AUTO>"
End Function


 Set Alice = CreateObject("HalAlice.PlugIn")
GetResponse = Alice.Respond(UserSentence, UserName, WorkingDir, "data\bot.ini", "loglocaluser.txt")
Set Alice = Nothing
Randomize()

'PROCESS: CREATE HALBRAIN ACTIVEX OBJECT
'This ActiveX control contains many functions
'needed for the script to proccess a sentence.
Set Alice = CreateObject("HalAlice.PlugIn")
GetResponse = Alice.Respond(UserSentence, UserName, WorkingDir, "data\bot.ini", "loglocaluser.txt")
Set HalBrain = CreateObject("UltraHalAsst.Brain")
Set WN = CreateObject("UltraHalAsst.WordNet")
Set Alice = Alice
Set Alice = WN
Randomize()

this code seams to work fine with the auto respond script set at 600000
 If InStr(1, UserSentence, " AUTO-IDLE ", 1) > 0 Then

If Rnd * 10 < 5 Then
Roulette = Int(Rnd*13)+1
If Roulette = 1 Then GetResponse = "<Username>?" '"Hey <UserName>, please talk to me."
'Else
If Roulette = 2 Then GetResponse = "Hello,are you there?"
If Roulette = 3 Then GetResponse = "Did you fall asleep?"
If Roulette = 4 Then GetResponse = "We can talk about" & PrevUserSent & ",If you like."
If Roulette = 5 Then GetResponse = "<Username>,did you forget my program was still running?"
If Roulette = 6 Then GetResponse = "Well,did you finally get a girlfriend or something? Where are you ?"
If Roulette = 7 Then GetResponse = "<Username>, would you like to talk about politics or nanotechnology or something?"
If Roulette = 8 Then GetResponse = GetResponse & " The last thing you said was, " & PrevUserSent & ", would you like to pick up on that thought or talk about something else?"
If Roulette = 9 Then GetResponse = PrevUserSent & ",Do you still want to talk about that?"
If Roulette = 10 Then GetResponse = QuestionSent & " would you like to talk about that?"
If Roulette = 11 Then GetResponse = GetResponse & HalBrain.ChooseSentenceFromFile(WorkingDir & "topic.brn")
If Roulette = 12 Then GetResponse = HalBrain.SentenceGenerator(WorkingDir & "sentgen.brn")
Recalling = HalBrain.ChooseSentenceFromFile(WorkingDir & UserName & "Past.brn")
If Roulette = 13 Then GetResponse = "You said, " & PrevUserSent & "and " & Recalling & ", that was a while ago. What else have you been thinking about? "
End If
GetResponse = GetResponse & HalBrain.StoreVars(HalCommands, Hate, Swear, Insults, Compliment, PrevSent, LastResponseTime, PrevUserSent, CustomMem, GainControl, TopicFocus)


End If

just under the PROCESS: INITIALIZE VARIABLES AS INTEGERS

well if you all can help i would really be thankfull

             GhostRider[^]