Alice/Hal

[KnyteTrypper]

This sounds very cool. I plan to try it and hope it works. But the "when Alice doesn't have an answer" part sort of bothers me. Alice ALWAYS has an answer. Sometimes not a good one, but she always has an answer. Does the mix just eliminate the * aiml or something?

[menis2com]

So I've been messin with this combo brain for a few week trying to find out exactly where the answers come from and 90 percent of the time they both answer, but for some reason once and a while Alice doesn't answer, and I don't know why. But it is pretty cool. I think the two together are smarter then one alone, but thats just me.
menis2com

[moreis62]

quote:Originally posted by menis2com

So I've been messin with this combo brain for a few week trying to find out exactly where the answers come from and 90 percent of the time they both answer, but for some reason once and a while Alice doesn't answer, and I don't know why. But it is pretty cool. I think the two together are smarter then one alone, but thats just me.
menis2com

this is verey true my frend i two been messin with this combo brain for a about a year now and came up with the same.

[spydaz]

AFTER CHANGING THE ALICE PLUGIN TO :


'FUNCTION : ALICE RESPONSE :

'Main function which Hal calls to get the response
Function GetResponse2(ByVal UserSentence, ByVal UserName, ByVal ComputerName, ByVal LearningLevel, ByRef WorkingDir, ByRef Hate, ByRef Swear, ByRef Insults, ByRef Compliment, ByRef PrevSent, ByRef LastResponseTime, ByRef PrevUserSent, ByRef ScriptMem3, ByRef ScriptMem4, ByRef ScriptMem5)

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


HOW Would I CALL this Function From The script  
TURNING XTF & ATF & ZIGGY plugins into SUBS/FUNCTIONS
then dealing with Relevancey. between the responses

MAYBE THIS WOULD GIVE MORE CONTROL OVER THE RESPONSE THAT HAL GIVES.

instead of 3 or 4 CHAINED responses (all on the same topic), Gigantic response.

ANY IDEAS ISMAEL

[moreis62]

quote:Originally posted by spydaz

AFTER CHANGING THE ALICE PLUGIN TO :


'FUNCTION : ALICE RESPONSE :

'Main function which Hal calls to get the response
Function GetResponse2(ByVal UserSentence, ByVal UserName, ByVal ComputerName, ByVal LearningLevel, ByRef WorkingDir, ByRef Hate, ByRef Swear, ByRef Insults, ByRef Compliment, ByRef PrevSent, ByRef LastResponseTime, ByRef PrevUserSent, ByRef ScriptMem3, ByRef ScriptMem4, ByRef ScriptMem5)

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


HOW Would I CALL this Function From The script  
TURNING XTF & ATF & ZIGGY plugins into SUBS/FUNCTIONS
then dealing with Relevancey. between the responses

MAYBE THIS WOULD GIVE MORE CONTROL OVER THE RESPONSE THAT HAL GIVES.

instead of 3 or 4 CHAINED responses (all on the same topic), Gigantic response.

ANY IDEAS ISMAEL

yes i have some ideas spydaz, i'll be working on it, and i'll let you know what i com up with,

I wanna ask you about whare did you put the

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

did you put it in neer the Main function on the FTX Brain that plugin script dos not work for the FTX Brain, the only one thats been working is

'PROCESS: CREATE HALBRAIN ACTIVEX OBJECT
'This ActiveX control contains many functions
'needed for the script to proccess a sentence.
Set HalBrain = CreateObject("UltraHalAsst.Brain")
Set WN = CreateObject("UltraHalAsst.WordNet")
Set Alice = Nothing

[]

[spydaz]

I have not put that script in (the default alice) brain yet as i am just learning about how o call up the FUNCTION command in VBSCRIPT.

I was thinking along the lines of Turning These brains in to FUNCTIONS, or, SUB routines. then call them individually throughout the script.

hopefully this will SPEED UP the execution of the script. By calling each FUNCTION, GETRESPONSE1, GETRESPONSE2, ETC then the final output could be reEvaluated for RELEVANCY.


maybe by rechecking for relevant keywords in the response.

the LOGIC is simple enough on a FLOW CHART (mentally)

the PROGRAMMING im not to sure of yet. my use of VB is limmited.

But I am BRAINSTORMING right now.


OK Thanks for the continued ADVICE and encouragement.


SPYDAZ