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[^]