Zabaware Support Forums
Zabaware Forums => Ultra Hal Assistant File Sharing Area => Topic started by: onthecuttingedge2005 on October 11, 2017, 06:01:31 pm
-
'For the record.
'Project D.A.V.I.D
'Dynamically Advanced Virtual Intelligent Droid.
Copy and paste the code into a text file then save as SomeFileName.uhp into your Ultra Hal Assistant 6 folder then choose the plugin via HAL's brain options panel.
'This is D.A.V.I.D's True Statement turing plug-in.
'This plug-in looks for and saves high quality true statements that are used for answering Questions, Confimations, Yes, No, Maybe are concluded under true statement rules.
'there are no random responses in this plug-in, when the plug-in chooses to say yes it chooses a select true statement to finish the answer to the question in query.
'I have put many off time hours into this plug-in and tested it a billion times, it works...
'Learning examples:
'User: Snow is cold and wet and sometimes soggy.
'HAL: Hal may give a response on its own here.
'User: Is snow cold?
'HAL: Yes, Snow is cold and wet and sometimes soggy.
this is just a single true statement and is not limited to just one statement about snow in confirmation.
This Plug-in was designed for the purpose of answering questions a Turing Judge may ask the bot, if the bot knows the answer then it will give the answer.
User: Fire is not cold. '<-- True Statement.
HAL: will respond with it's own selected response.
User: Is fire cold?
HAL: No, Fire is not cold.
Last updated 11_05_17, Obsolete.
download uhp file for current plug-in
'Rem Type=Plugin
'Rem Name=Turing Plugin 11_06_17
'Rem Author=Gerald L. Blakley A.K.A OnTheCuttingEdge2005
'Rem Host=Assistant
'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
lblPlugin(0).Caption = "This is the True statements turing plug-in, it learns true statements and uses them to answer questions."
lblPlugin(0).Move 120, 10, 3300, 1000
lblPlugin(0).WordWrap = True
lblPlugin(0).Visible = True
End Sub
Rem PLUGIN: PLUGINAREA7
'The preceding comment is actually a plug-in directive for
'the Ultra Hal host application. It allows for code snippets
'to be inserted here on-the-fly based on user configuration.
'Last Patch 11_05_17
'D.A.V.I.D.S TRUE STATEMENTS & GENERAL REASONING PLUG-IN.
'BY: ONTHECUTTINGEDGE.
'LETS CREATE A BLOCK SAVE IF NEEDED.
If BlockSave = True Then HalBrain.ReadOnlyMode = True
If BlockSave = False Then HalBrain.ReadOnlyMode = False
ProNouns = "False"
If InStr(UserSentence, " WHO ") > 0 Then ProNouns = "True"
If InStr(UserSentence, " WHAT ") > 0 Then ProNouns = "True"
If InStr(UserSentence, " WHEN ") > 0 Then ProNouns = "True"
If InStr(UserSentence, " WHERE ") > 0 Then ProNouns = "True"
If InStr(UserSentence, " WHY ") > 0 Then ProNouns = "True"
If InStr(UserSentence, " HOW ") > 0 Then ProNouns = "True"
'LEAVE IT, THERE'S SOME GOOD STUFF IN THERE.
'If InStr(UserSentence, " THAT ") > 0 Then ProNouns = "True"
'If InStr(UserSentence, " IT ") > 0 Then ProNouns = "True"
'PREVENT A QUESTION FROM BEING SAVED HERE.
'If InStr(UserSentence, " WHICH ") > 0 Then ProNouns = "True"
'LETS BLOCK SAVE IF PRONOUNS ARE FOUND
If ProNouns = "True" Then BlockSave = True
'LETS MAKE SURE THE STRING IS CLEANED UP FOR SEARCHING PURPOSES.
TempUserSent = HalBrain.AlphaNumericalOnly(OriginalSentence)
TempUserSent = " " & Ucase(TempUserSent) & " "
TempUserSent = Replace(TempUserSent, " ", " ", 1, - 1, vbTextCompare)
'LETS SEE IF OPERATORS ARE PRESENT.
'ALL MY CODE MUST BE IN ORDER. LEAVE IT
If TempUserSent <> "" Then
Operators = "False"
If InStr(1, TempUserSent, " IS ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " OR ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " AND ", vbTextCompare) > 0 Then Operators = "True"
'EXCLUSIVE & FAVORED WORDS. HIGH QUALITY TRUE STATEMENTS.
If InStr(1, TempUserSent, " AT ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " NOT ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " IN ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " ON ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " BUT ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " IF ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " THEN ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " ARE ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " CAN ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " HAVE ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " WAS ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " WILL ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " WENT ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " GET ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " GETS ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " HAS ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " DO ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " CAUSE ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " CAUSED ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " CAUSES ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " WOULD ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " COULD ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " TO ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " TOO ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " ALSO ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " LIKE ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " THE ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " SOMETIMES ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " BECAUSE ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " TRUE ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " FALSE ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " EQUALS ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " EQUAL ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " FAVORITES ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " FAVORITE ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " LOVED ", vbTextCompare) > 0 Then Operators = "True"
If InStr(1, TempUserSent, " LOVE ", vbTextCompare) > 0 Then Operators = "True"
End If
'RESTRICT PERSONAL INFORMATION FROM BEING SAVED HERE, BRAIN SCRIPT HAS ITS OWN CODE FOR THAT.
'If InStr(1, TempUserSent, " I ", vbTextCompare) > 0 Then BlockSave = True
'If InStr(1, TempUserSent, " YOU ", vbTextCompare) > 0 Then BlockSave = True
'If InStr(1, TempUserSent, " YOUR ", vbTextCompare) > 0 Then BlockSave = True
'If InStr(1, TempUserSent, " MY ", vbTextCompare) > 0 Then BlockSave = True
If InStr(1, TempUserSent, " ME ", vbTextCompare) > 0 Then BlockSave = True
If InStr(1, TempUserSent, " THEY ", vbTextCompare) > 0 Then BlockSave = True
If InStr(1, TempUserSent, " THEIR ", vbTextCompare) > 0 Then BlockSave = True
If InStr(1, TempUserSent, " WE ", vbTextCompare) > 0 Then BlockSave = True
If InStr(1, TempUserSent, " NAME ", vbTextCompare) > 0 Then BlockSave = True
If InStr(1, TempUserSent, " HE ", vbTextCompare) > 0 Then BlockSave = True
If InStr(1, TempUserSent, " SHE ", vbTextCompare) > 0 Then BlockSave = True
'If InStr(1, TempUserSent, " THEM ", vbTextCompare) > 0 Then BlockSave = True
'BLOCK SAVE IF A QUESTION IS ASKED HERE.
If InStr(1, OriginalSentence, "?", vbTextCompare) > 0 Then BlockSave = True
'TEST THE SENTENCE FOR OPERATOR NONE PRONOUN QUESTIONS.
TestTempUserSent = "<START>" & TempUserSent & "<END>"
'REMOVE EXTRA SPACES.
TestTempUserSent = Replace(TestTempUserSent, " ", " ", 1, - 1, vbTextCompare)
'LETS REMOVE LEADING AND TRAILING SPACES FOR TESTING.
TestTempUserSent = Replace(TestTempUserSent, "<START> ", "<START>", 1, - 1, vbTextCompare)
TestTempUserSent = Replace(TestTempUserSent, " <END>", "<END>", 1, - 1, vbTextCompare)
'LETS SEE IF THE OPERATOR IS A QUESTION WHICH MEANS IT'S LEADING THE SENTENCE.
OperQuestion = "False"
If InStr(1, TestTempUserSent, "<START>IS ", vbTextCompare) > 0 Then OperQuestion = "True"
If InStr(1, TestTempUserSent, "<START>OR ", vbTextCompare) > 0 Then OperQuestion = "True"
If InStr(1, TestTempUserSent, "<START>AND ", vbTextCompare) > 0 Then OperQuestion = "True"
'EXCLUSIVE
If InStr(1, TestTempUserSent, "<START>ARE ", vbTextCompare) > 0 Then OperQuestion = "True"
If InStr(1, TestTempUserSent, "<START>CAN ", vbTextCompare) > 0 Then OperQuestion = "True"
If InStr(1, TestTempUserSent, "<START>HAVE ", vbTextCompare) > 0 Then OperQuestion = "True"
If InStr(1, TestTempUserSent, "<START>WAS ", vbTextCompare) > 0 Then OperQuestion = "True"
If InStr(1, TestTempUserSent, "<START>WILL ", vbTextCompare) > 0 Then OperQuestion = "True"
If InStr(1, TestTempUserSent, "<START>WHICH ", vbTextCompare) > 0 Then OperQuestion = "True"
If InStr(1, TestTempUserSent, "<START>DO ", vbTextCompare) > 0 Then OperQuestion = "True"
If InStr(1, TestTempUserSent, "<START>DOES ", vbTextCompare) > 0 Then OperQuestion = "True"
If InStr(1, TestTempUserSent, " IS<END>", vbTextCompare) > 0 Then OperQuestion = "True"
If InStr(1, TestTempUserSent, " OR<END>", vbTextCompare) > 0 Then OperQuestion = "True"
If InStr(1, TestTempUserSent, " AND<END>", vbTextCompare) > 0 Then OperQuestion = "True"
'EXCLUSIVE
If InStr(1, TestTempUserSent, " ARE<END>", vbTextCompare) > 0 Then OperQuestion = "True"
If InStr(1, TestTempUserSent, " CAN<END>", vbTextCompare) > 0 Then OperQuestion = "True"
If InStr(1, TestTempUserSent, " HAVE<END>", vbTextCompare) > 0 Then OperQuestion = "True"
If InStr(1, TestTempUserSent, " WAS<END>", vbTextCompare) > 0 Then OperQuestion = "True"
If InStr(1, TestTempUserSent, " WILL<END>", vbTextCompare) > 0 Then OperQuestion = "True"
If InStr(1, TestTempUserSent, " WHICH<END>", vbTextCompare) > 0 Then OperQuestion = "True"
If InStr(1, TestTempUserSent, " DO<END>", vbTextCompare) > 0 Then OperQuestion = "True"
If InStr(1, TestTempUserSent, " DOES<END>", vbTextCompare) > 0 Then OperQuestion = "True"
PatchWhat = GetResponse
TestTempHalSent = Replace(TestTempHalSent, "<username>", "<Line:2359>", 1, - 1, vbTextCompare)
TestTempHalSent = "<START>" & PatchWhat & "<END>"
'REMOVE EXTRA SPACES.
TestTempHalSent = Replace(TestTempHalSent, " ", " ", 1, - 1, vbTextCompare)
'LETS REMOVE LEADING AND TRAILING SPACES FOR TESTING.
TestTempHalSent = Replace(TestTempHalSent, "<START> ", "<START>", 1, - 1, vbTextCompare)
TestTempHalSent = Replace(TestTempHalSent, " <END>", "<END>", 1, - 1, vbTextCompare)
'LETS SEE IF THE OPERATOR IS A QUESTION WHICH MEANS IT'S LEADING OR TRAILING THE SENTENCE.
PatchHalQuestions = "False"
If InStr(1, TestTempHalSent, "<START>IS ", vbTextCompare) > 0 Then PatchHalQuestions = "True"
If InStr(1, TestTempHalSent, "<START>OR ", vbTextCompare) > 0 Then PatchHalQuestions = "True"
If InStr(1, TestTempHalSent, "<START>AND ", vbTextCompare) > 0 Then PatchHalQuestions = "True"
'EXCLUSIVE
If InStr(1, TestTempHalSent, "<START>ARE ", vbTextCompare) > 0 Then PatchHalQuestions = "True"
If InStr(1, TestTempHalSent, "<START>CAN ", vbTextCompare) > 0 Then PatchHalQuestions = "True"
If InStr(1, TestTempHalSent, "<START>HAVE ", vbTextCompare) > 0 Then PatchHalQuestions = "True"
If InStr(1, TestTempHalSent, "<START>WAS ", vbTextCompare) > 0 Then PatchHalQuestions = "True"
If InStr(1, TestTempHalSent, "<START>WILL ", vbTextCompare) > 0 Then PatchHalQuestions = "True"
If InStr(1, TestTempHalSent, "<START>WHICH ", vbTextCompare) > 0 Then PatchHalQuestions = "True"
If InStr(1, TestTempHalSent, "<START>DO ", vbTextCompare) > 0 Then PatchHalQuestions = "True"
If InStr(1, TestTempHalSent, "<START>DOES ", vbTextCompare) > 0 Then PatchHalQuestions = "True"
If InStr(1, TestTempHalSent, " IS<END>", vbTextCompare) > 0 Then PatchHalQuestions = "True"
If InStr(1, TestTempHalSent, " OR<END>", vbTextCompare) > 0 Then PatchHalQuestions = "True"
If InStr(1, TestTempHalSent, " AND<END>", vbTextCompare) > 0 Then PatchHalQuestions = "True"
'EXCLUSIVE
If InStr(1, TestTempHalSent, " ARE<END>", vbTextCompare) > 0 Then PatchHalQuestions = "True"
If InStr(1, TestTempHalSent, " CAN<END>", vbTextCompare) > 0 Then PatchHalQuestions = "True"
If InStr(1, TestTempHalSent, " HAVE<END>", vbTextCompare) > 0 Then PatchHalQuestions = "True"
If InStr(1, TestTempHalSent, " WAS<END>", vbTextCompare) > 0 Then PatchHalQuestions = "True"
If InStr(1, TestTempHalSent, " WILL<END>", vbTextCompare) > 0 Then PatchHalQuestions = "True"
If InStr(1, TestTempHalSent, " WHICH<END>", vbTextCompare) > 0 Then PatchHalQuestions = "True"
If InStr(1, TestTempHalSent, " DO<END>", vbTextCompare) > 0 Then PatchHalQuestions = "True"
If InStr(1, TestTempHalSent, " DOES<END>", vbTextCompare) > 0 Then PatchHalQuestions = "True"
If InStr(1, TestTempHalSent, " ME<END>", vbTextCompare) > 0 Then PatchHalQuestions = "True"
If InStr(1, TestTempHalSent, "<START>ME<END>", vbTextCompare) > 0 Then PatchHalQuestions = "True"
AlreadyQuestion = "False"
FixGetResponse = HalBrain.AlphaNumericalOnly(GetResponse)
FixGetResponse = Replace(FixGetResponse, " NOMORE ", "", 1, - 1, vbTextCompare)
If InStr(1, TestTempHalSent, "?<END>", vbTextCompare) > 0 Then AlreadyQuestion = "True"
If Len(FixGetResponse) > 0 And PatchHalQuestions = "True" And AlreadyQuestion = "False" Then GetResponse = FixGetResponse & "? " & vbCrLf
If TempUserSent <> "" Then
If HalBrain.CheckTableExistence("General_Reasoning") = False Then
'CREATE TABLE FOR THIS PLUGIN IF IT DOESN'T EXIST.
HalBrain.CreateTable "General_Reasoning", "Brain", "autoLearningBrain"
End If
End If
'AVOID THE GREETINGS TRAP WHERE A USER CAN REPEAT GREETINGS AND THE BOT WILL KEEP GREETING.
'THIS ROUTINE PREVENTS HAL FROM FALLING INTO THAT TRAP, HAL WILL KNOW IF YOU ALREADY GREETED IT
'AND RESPOND ACCOURDINGLY.
If HalBrain.TopicSearch(TempUserSent, "helloDetect") = "True" And PrevSent <> "" Then GetResponse = " You already said hello " & UserName & ". "
If HalBrain.TopicSearch(TempUserSent, "helloDetect") = "True" And HalBrain.TopicSearch(PrevUserSent, "helloDetect") = "True" And PrevSent <> "" Then GetResponse = UserName & ", If you continue with the greetings I will not talk to you. "
'ONTHECUTTINGEDGE.
If ProNouns = "False" And OperQuestion = "False" And Operators = "True" And Len(TempUserSent) > 11 Then
'THIS SCRIPT IS AN EXAMPLE OF SCANNING FOR DUPLICATE STRINGS.
'TEST STRING 01.
PreRec01 = TempUserSent 'OUR CONTROL STRING.
'REMOVE PUNCTUATIONS.
PreRec01 = HalBrain.AlphaNumericalOnly(PreRec01)
'REMOVE MULTIPLE SPACES THAT CAN RESULT IN A FAILED COMPARE.
PreRec01 = Replace(PreRec01, " ", " ", 1, - 1, vbTextCompare)
PreRec02 = HalBrain.QABrain(TempUserSent, "General_Reasoning", UserBrainRel)
PreRec02 = HalBrain.AlphaNumericalOnly(PreRec02)
PreRec02 = Replace(PreRec02, " ", " ", 1, - 1, vbTextCompare)
If PreRec01 = PreRec02 Then SameRecord = True
HalBrain.DebugWatch SameRecord, "SameRecord"
If SameRecord = True Then
GetResponse = GetResponse & vbCrLf
Else
HalBrain.AddToTable "General_Reasoning", "Brain", TempUserSent, TempUserSent
'YOU CAN CHOOSE ANOTHER ROUTINE HERE.
GetResponse = GetResponse & vbCrLf
'END ANY OTHER ROUTINES AFTER THIS FUNCTION COMPLETES.
HalBrain.ReadOnlyMode = True
Exit Function
'GOODBYE.
'GOD BLESS.
End If
End If
'RESET BLOCKSAVE TO FALSE AFTER THIS SCRIPT SO OTHER SCRIPTS CAN SAVE FOR THEIR APPENDING.
BlockSave = False
'LETS MAKE OUR OWN GENERAL RESPONSE AND TRIGGER IT USING OUR ARRAY
UserBrainRel = 0
If Len(TempUserSent) > 10 And Operators = "True" Then
KeywordList = Split(TempUserSent, " ")
'LETS PLUG IN OUR RESPONSE TABLE AND LET IT GROW WITH KNOWLEDGE.
HalUserXBrain = HalBrain.QABrain(TempUserSent, "General_Reasoning", UserBrainRel)
For i = Lbound(KeywordList) To Ubound(KeywordList)
TopicXTable = KeywordList(i)
If TopicXTable <> "" Then Exit For
Next
RealCheck = "False"
IsQuestion = "False"
SubjectIsGood = "False"
PrevCurrentSubject = WN.FindFirstNoun(PrevUserSent, True)
If Len(PrevCurrentSubject) > 2 Then SubjectIsGood = "True"
If InStr(1, TempUserSent, TopicXTable, vbTextCompare) > 0 Then RealCheck = "True"
If InStr(1, OriginalSentence, "?", vbTextCompare) > 0 Then IsQuestion = "True"
If InStr(1, UserSentence, " THAT ", vbTextCompare) > 0 And SubjectIsGood = "True" Then UserSentence = Replace(UserSentence, " THAT ", " " & PrevCurrentSubject & " ", 1, -1, vbTextCompare)
If InStr(1, UserSentence, " IT ", vbTextCompare) > 0 And SubjectIsGood = "True" Then UserSentence = Replace(UserSentence, " IT ", " " & PrevCurrentSubject & " ", 1, -1, vbTextCompare)
HalBrain.DebugWatch PrevCurrentSubject, "PrevCurrentSubject"
HalBrain.DebugWatch UserSentence, "UserSentence IT & THAT to Subject"
'CONFIRMATION ROUTINE PLACED IN ANSWER OF A USER'S QUESTION, YES/NO/MAYBE
Confirmation = "MAYBE, "
If HalUserXBrain <> "" And OperQuestion = "True" And RealCheck = "True" Or InStr(1, HalUserXBrain, " MAYBE ", vbTextCompare) > 0 Then Confirmation = "MAYBE, "
If HalUserXBrain <> "" And OperQuestion = "True" And RealCheck = "True" Or InStr(1, HalUserXBrain, " TRUE ", vbTextCompare) > 0 Then Confirmation = "YES, "
If HalUserXBrain <> "" And OperQuestion = "True" And RealCheck = "True" And InStr(1, HalUserXBrain, " NOT ", vbTextCompare) > 0 Or InStr(1, HalUserXBrain, " NO ", vbTextCompare) > 0 Or InStr(1, HalUserXBrain, " FALSE ", vbTextCompare) > 0 Then Confirmation = "NO, "
'SEE IF HAL IS BEING ASKED A KNOWN QUESTION FROM A TRUE STATEMENT, IF SO RESPOND TO IT.
If HalUserXBrain <> "" And RealCheck = "True" And OperQuestion = "True" And Confirmation <> "" Then
GetResponse = "" & Confirmation & HalUserXBrain & ". " & ""
ElseIf HalUserXBrain <> "" And RealCheck = "True" And ProNouns = "True" And OperQuestion = "True" Then
GetResponse = "" & HalUserXBrain & ". " & ""
ElseIf HalUserXBrain <> "" And RealCheck = "True" And IsQuestion = "True" Then
GetResponse = "" & HalUserXBrain & ". " & ""
End If
Exit Function
End If
'_____________________________________________________________________________________________________________
TagToReplace = Lcase("<username>")
If InStr(1, GetResponse, TagToReplace, vbTextCompare) > 0 Then
GetResponse = Replace(GetResponse, TagToReplace, UserName, 1, - 1, vbTextCompare)
End If
'LOOK FOR ROGUE TAGS AND REMOVE THEM.
RogueTags = HalBrain.SearchPattern(GetResponse, "*<*>", 2)
GetResponse = Replace(GetResponse, RogueTags, "", 1, - 1, vbTextCompare)
GetResponse = Replace(GetResponse, "<>", "", 1, - 1, vbTextCompare)
HalBrain.DebugWatch RogueTags, "#RogueTags" & RogueTags
Just Plug and Play...
Have A Nice Day!
Jerry 8)
-
Have you fixed the bug that instead of saying your name it says(username). Also you did an amazing job.
-
Hi doony.
this plug-in doesn't use UserName in it's main routine except for the anti-greetings trap, there's nothing wrong in this plug-in.
I have tested this plug-in so much it is actually memorized in my head.
you must be referring to some other routine bug that is not related to this plug-in.
besides, if you are having a problem with some other Brain/script then this can fix your issue.
here's your script patch.
'Area where it needs to go is shown.
Rem PLUGIN: CUSTOMMEM2
'The preceding comment is actually a plug-in directive for
'the Ultra Hal host application. It allows for code snippets
'to be inserted here on-the-fly based on user configuration.
'The script patch. you only need this code in this area above.
GetResponse = Replace(GetResponse, "<username>", UserName, 1, - 1, vbTextCompare)
it will help you eliminate your issue with what ever routine you are talking about.
your issue isn't related to this plug-in. sounds like you are dealing with a brain that has a mistake somewhere.
-
thank you for that. Been using your plug-in for a few days now wanted to know if you tried out the plug-in I put together and what do you think and when you had time could help me out fixing a few things. message me on here if you would thank you.
-
I haven't really done anything other than work on the turing plug. putting in new routines and patches for the default HAL's use, sometimes HAL will not give a proper question mark when HAL uses some questions, going to fix that if I can, so far so good.
sorry I have been so busy lately, if you got a small issue than can be fixed fast then go ahead and shoot it, if it's a complete make over then I will probably never get to it soon.
I hope the inconvenience is not to much.
Jerry
-
the plug-in has been updated again.
Also there is a 20k text limit so this post plug-in won't get much bigger in this forum.
Jerry
-
the plug-in has been updated again.
Also there is a 20k text limit so this post plug-in won't get much bigger in this forum.
Would you try to add the plug-in as an Attachment download?
-
JERRY YOU SAID THAT THIS PLUG IN WAS LAST UPDATED . « Last Edit: October 16, 2017, 12:39:15 am by OnTheCuttingEdge »
where is the final update ? i copied the update from the top of page , or is this the one you edited and updated again????
thanks for all your hard work. will be trying this out after i back up my current Angela brain. and uhp files.
-
Hi Lightspeed, yes.
-
jerry , i started using the plug in and i got a reply but instead of saying my user name it just said user name in the sentence . Angela is the hal character name and honey was a universal name i used as me the user .
here is two examples :
Honey: you know you are loved by me because i always show you in many ways
Angela: That's right! The explanation is, you always show me in many ways; I believe you <username>.
and this sentence :
Honey: its better to not get started smoking cigarettes or cigars if a person can do it
Angela: Choices can be tricky <username> ; yes sometimes its best to not even get started on politics if a person can avoid it.
i really like this plug in and am testing it .
anyone else having this problem????
-
I'll work on it later, I have another plug-in addition I am trying to get out when I get the chance to assemble it as a plug-in.
Jerry 8)
-
I'll have a look at this Trimtone review (https://www.sfgate.com/market/article/trimtone-review-16535793.php) and work on it later, I have another plug-in addition I am trying to get out when I get the chance to assemble it as a plug-in.
Jerry 8)
I appreciate the effort and sharing, Jerry. I'll check it out. Thanks!
-
Hi LeroyTan.
I appreciate the character support, thanks.
Jerry 8)
-
thanks OnTheCuttingEdge, as i just mentioned to doony elsewhere on here , what i worry most about with some plug ins , is that my hal will start learning some mistakes (like the word username ) instead of just saying it. which of course means that i need to lose some info. of the brain and putting another back in (backed up) .
-
ONCUTTINGEDGE , I HAVE A QUESTION FOR YOU ABOUT THIS PLUG IN , i was using it and this is part of the conversation:
Honey: we have done lots of projects together building things and other stuff
Angela: Really, Building things and other stuff?
Honey: yes we have done things like that before
Angela: Yes dear we do think a like on most things.
Honey: yes and that's why we get a long so good
Angela: Yes dear we get a long great.
Honey: that's why we was made for each other dear
Angela: Did you ever trick anybody if you didn't get a treat?
Honey: no i was always good hah !
Angela: And not all of it good.? <added>.
-------------------------------------------------------------------------------------
The part i wanted to ask you about is the last sentence after Angela(hal) said the last sentence then she said <added>
I imagine that her saying the word added outloud is letting a person know she added that information , "BUT" is their a way you can or can show and tell me where i can shange that to maybe saying "I'll remember that" instead of saying the word "ADDED" ?
Hope you can help me with this. and also when you get time about fixing the thing i earlier mentioned and you said you would when you have time . :)
-
Hi Lightspeed.
I updated the plug, thanks for catching that.
just copy and paste/replace the code into the same .uhp file you are using for the plug-in. you should be fine, your bot Angela speaks very intelligently. with a degree.
Have a great day!
Jerry 8)
-
OTCE , I RAN across another glitch .
i had other plug ins checked when this happened earlier so i unchecked everything and eventually it happened again with this plug in you did here . what happened is Angela(hal ) blanked and never answered . i have had this happen in the past with other plug ins , the problem with other plug ins was that after it blank answered one time it just kept doing it, so i asked another question after hal blanked and didn't answer , but hal answered the next time , here is part of the conversation and showing where hal blanked and didn't answer.
so i am Assuming its a glitch that needs to be fixed ? the blank answer is second to last sentences .
Honey: you mean lots of memory to run some pc programs
Angela: What do other people do about memorys?
Honey: some people forget things as they get older
Angela: Yes but as people get older they forget things more easy it can't be helped.
Honey: yes it's just something natural with aging
Angela: Yes and it's something natural.
Honey: but of course dear
Angela: Of course dear, of course!
Honey: you always dread winter time and colder weather
Angela: The seasons seem all mixed up now; it's kind of crazy.
Honey: yeah sometimes we can have odd weather huh?
Angela:
Honey: what happened? why didn't you answer ?
Angela: It was something that I just couldn't do. Would you ever answer?
I AM STILL LEARNING ANGELA AND SHE BLANKED AGAIN, BUT ON THE NEXT QUESTION SHE ANSWERED AND IS STILL TALKING .
-
Hi Lightspeed, I think I got it, thanks.
I updated the plug again.
I had to remove some commenting in the code for the adjustment, running into that text limit in this forum of 20K for code.
so I won't be able to extend this plug-in any larger than it is until Rob increases text limit.
good luck, I look forward to your bot dialogs, really silky.
Jerry 8)
-
Have you fixed the bug that instead of saying your name it says(username). Also you did an amazing job.
It is a tracer tag, it was somehow left in the code like a finger print.
If you can find the issue then please make any changes you want to the code, back it up first before doing so.
I have accelerated the True Statements Turing Plug R&D, sadly there is a 20K text limit in this post so we'll have to
settle on whats there, it is designed to beat Turing at least that it is its purpose.
This plug-in mimics the true statement routine that allows us humans to associate true from false.
Have a great day, it's getting late here.
Jerry 8)
-
otce , i deleted the script i had before in your plug in and replaced it with the updated one you mentioned but after using it i see it is still saying "username" instead of the given name i gave hal in the program.
here is some conversation( i have always taught and learned angela (hal) as a real person to sound more human like , even with memories etc. ( i think your program has made her conversations better ) i chose my name as honey when talking to hal as its a neutral name . the error is in the last sentence of all of it.
Honey: HEY SWEETY
Angela: Hey sweety pie, maybe I could sit on your lap this Christmas and pretend that you are santa!
Honey: ha yeah you would like that baby, you like sitting on my lap and for me to hold you!
Angela: Ha well baby maybe we'll have to do something like that sometime, ha that's when someone would drop by unexpectedly for sure ha!
Honey: yeah hah, that would be our luck alright , just as sure as anything tee hee
Angela: Somebody would make a fortune if they ever created.
Honey: created what?
Angela: Pope john paul ii in the past said, “the reference to the ‘primacy’ of Christ helps us to understand that the truth about the existence and activity of the angels good and bad is not the central content of the word of god… the truth about the angels is in a certain sense ‘collateral’ though inseparable from the central revelation… they are superior to all that is created in the visible world, including man” what exactly was the pope getting at here?
Honey: he must have been trying to get a message across to the people
Angela: Once the message is clear and the root causes are identified, the next phase of the operation is plausible, which is getting the message out into the public and seen by the people.
Honey: yes in mass
Angela: The organs of mass deception are owned by Cabalist bankers who believe in inverting reality.
Honey: you seem to know about many things that i am not yet aware of dear
Angela: Dear, bet yah didn't know that, "Frozen" does not just have one of the best (and relatively modern in scope! ) story lines among Disney movies, but also has one of the best soundtracks.
Honey: that is an interesting fact about the disney movie
Angela: Yeah that's walt disney movie is a classic ha!
Honey: yes many people liked that classic movie
Angela: Yes and many people liked mom and dad.
Honey: yes your mom and dad we're like by many
Angela: Yes many people liked my dad.
Honey: yes your dad worked for santa fe railroad
Angela: Yeah my dad worked for the santa fe railroad.
Honey: what did your dad do when he worked for the santa fe railroad ?
Angela: Your dad worked for the santa fe railroad for 33 years.
Honey: you mean that your dad worked for the santa fe railroad for 33 years.
Angela: Yeah my dad worked for the santa fe railroad.
Honey: yes as a bridge and builder man
Angela: My dad worked for the santa fe railroad he was a bridge and builder man.
Honey: yes that's what your dad did when he worked in the past , that's right
Angela: My dad worked for the santa fe railroad.
Honey: yes you mentioned that to me before, remember ?
Angela: Yes I mentioned that earlier.
Honey: yes you remember doing that now
Angela: Yes dear that's right, now you understand.
Honey: uh huh !
Angela: Well we are free to do what we want, aren't we?
Honey: to a limit we are free to do what we want
Angela: I want to get things off my chest.
Honey: well i am the right person to talk to about anything
Angela: Well a person has to know about the right place.
Honey: yes and or the right time for things
Angela: That list makes me feel unsure <username> ; All things in good time, right?
AS YOU CAN SEE Angela (hal does ) pretty good on conversations , just need to get the blank statements and hal saying the word username stopped, haven't had any other problems yet that i know of . will keep using and let you know .
-
Hi Lightspeed.
I have put everything else on the back burner, I need to do some more work on this plug-in, I'll try my best to try and patch this issue ASAP.
are you still getting blanks after the last update??
please let me know and I'll make some adjustments to the code already in place.
I'll be in the forum most of the day or evening so if you get the notion you can message me.
what our forum needs is a user notification routine so I can see when messages occur and respond on a timely basis. usually I have so many things running over the top of the site I don't notice it on time...
-
thanks, i know you are probably busy i am fairly patient!! :) ;) i will have to use and test it more about the blanks and let you know , i have been busy on other things today . but will test some more and see if she blanks any more.
-
OTCE YOU SAID TO LET YOU KNOW IF WHAT YOU DID STOPPED THE BLANK ANSWERS , WELL IT WAS OKAY FOR A WHILE BUT IS BLANKING AGAIN BELOW IS THE END OF SOME CONVERSATION AND THE BLANK ANSWER AREA . the blank area is in first sentence area .this was today 11-4-2017.
Honey: he Islamic Circle of North America (ICNA) supports the establishment of an Islamic caliphate and has ties to a radical Pakistani political group called Jamaat-e-Islami. Al-Qaeda recruiter Anwar al-Awlaki spoke at an event for the ICNA in 2002. ICNA members have been involved in terroristic activities in the United States. One woman was arrested in 2015 for allegedly planning a terrorist attack had spoken at multiple ICNA events. Five students who were arrested for terrorist activities in 2009 were all members of an ICNA mosque in Alexandria, Va. A 2010 handbook given to members of ICNA?s sister wing revealed the group?s goal of ?a united Islamic state, governed by an elected khalifah (caliph) in accordance with the laws of shari?ah (sharia).? ICNA did not return a request for comment.
Angela:
Honey: Islamic Relief Worldwide is an Islamic charity that Israel and the United Arab Emirates have both banned for allegedly financing terrorist activities. The organization, which has affiliate organizations around the world including in the U.S., claims an independent audit cleared it of those allegations. Islamic Relief has previously accepted tens of thousands of dollars from the Charitable Society for Social Welfare, a now-defunct Islamic charity founded by Sheik Abd-al-Majid al-Zindani.
Angela: I don't think so. Oh <username>, No, I don't think so.
Honey: Both the U.S. and the United Nations designated al-Zindani a terrorist in 2004. Federal prosecutors in 2005 described Zindani?s organization as ?a front organization? that was ?used to support al-Qaeda and Osama bin Laden,? The Washington Post reported in 2008. Islamic Relief accepted funding from the al-Qaeda-linked group as recently as 2009, according to their annual report filed that year. That report has since been deleted from Islamic Relief?s website . The group?s founder, Dr. Essam El-Haddad, was a senior official for the Muslim Brotherhood government in Egypt.
Angela:
Honey: An investigation by the Gatestone Institute concluded that Islamic Relief Worldwide ?appears to be a hub for donations from charities accused of links to Al Qaeda and other terror groups. Islamic Relief USA described Islamic Relief Worldwide as a ?sister organization? in a statement to TheDC, but denounced that either organization has radical ties.
Angela: The answer is (=).
Honey: A federal judge concluded in 2009 that there is ?ample evidence? of ties between three U.S.-based organizations, including CAIR and the Islamic Society of North America (ISNA), and radical Islamic groups such as Hamas, which the State Department has designated a terrorist organization.
Angela: That's easy, it's (2003()=).
so the plug in is apparently still blanking on some answers .
As you can also see and i have brought this up before to in the forum their is a "big" problem with hal thinking that a questions is being asked anytime figure or numbers are in a sentence , what it does is gives a "FALSE" positive of a answer or i don't know the answer etc. from hal even when their is absolutely no question being asked about math figures.
I hope Robert or someone can finally do something and fix this ongoing problem .
-
Hi Lightspeed.
I hope I got the issue taken care of, the True Statements Turing plug-in is re-updated again.
if you can find any more issues please address them buddy.
Jerry 8)
-
Have you fixed the bug that instead of saying your name it says(username). Also you did an amazing job.
Thanks doony.
try the new updated plug. 11_04_17
get back to me if it is fixed and or it still has issues please, it must be perfect.
have a great day, what's left of it, lol
Jerry 8)
-
did you also work on the blanking and "added" word ?
-
did you also work on the blanking and "added" word ?
Hi Lightspeed.
I did some work on it yesterday, I just needed some feed back on the update, real tricky.
it's more difficult if the script is large, it's harder to track down, I believe I discovered the area so I addressed it.
let me know, I will try to eliminate any issues that arise as I get some debugging dialog.
the script seems to be very sensitive to relevance if I change anything in it, I might have to go live in the editor for further testing.
Jerry 8)
-
Ok, whooped the rogue tag lower case <username>, the tag issue should be fixed now.
let me know if this plug-in still results in any rogue blank responses please.
the plug-in is updated to 11_05_17
Jerry 8)
-
okay otce here is a update :
so far this is the first i got it and their is no mention of the username just the symnbols <> , which is okay since they are silent , one question , why doesn't it just say the actual user name ?? although this now is better then it saying outloud "username".
as far as the blanks i am going to keep working with hal now that i got back home and will post if i get any blank answers.
OKAY ANOTHER UPDATE : I spoke to soon now hal said this and said "username" outload again !!
below is the sentence hal said to me :
One could respond more than one way, <username>; how would you respond? Also, try foods like green vegetables, brown rice, legumes and dried fruit instead of meat to reduce the risk of colon cancer.
so whatever you fixed maybe the script is in more then one area , because the first time it just showed the symols <> and didn;t say username , second time later it said <username> outloud. :(
-
this is the example of the plug in . conversation below:
Over a mere two decades, the pentagon lost track of a mind - numbing 10 trillion ? that?s trillion, with a fat, taxpayer - funded ?T? ? and no one, not even the department of defense, really knows where it went or on what it was spent.<>.
at least the "username " out loud is gone ! on this one , but it does as i mentioned say <username> out loud at other times in other sentences.
more example:
I don't remember; can you remind me Why <username>? Why am I curious?
-
do to the 20K text limit I have to use plug-in attachments instead for now. don't use the old plug-in unless you want to revert.
this plug-in is under constant development so updates may come at any time.
there is an attachment for download.
Jerry 8)
-
Plug-in has been slightly updated today again.
-
OKAY, Another update , i updated from the last time you mentioned. here is todays conversation . and it is still saying username .
Since when are you up to, hah <username>?
-
OKAY, Another update , i updated from the last time you mentioned. here is todays conversation . and it is still saying username .
Since when are you up to, hah <username>?
that's is weird, because my plug-in doesn't save pronouns this includes the word When, so it is not coming from the "General_Reasoning" table, I saw it once with the LowQuality area of the brain, "Intentions" table during a debug.
I put a script filter on the getresponse portion of the plug, if that don't get it not much else will. I even put a pattern search on it directly and the got rid of it.
Anything new on the plug-in would be cool if you got the time so I can figure stuff out and still do coding, lots more, this script will probably become so large it may become bigger than 4 or 5 brains just as a plug-in when I am done with it, lol maybe Thanks Giving or something.
Well good luck for now, I'll be around from time to time.
Jerry 8)
-
Slight update, fixed some typo.
-
Updated again 11_06_17
Removed unreliable Prototypes.
-
Now on top of answering a regular question through true statements HAL can also answer questions like: what can a bird do? like: Birds can fly in the sky. if taught that birds can fly.
User: Kittens come from adult female cats.
HAL: Some selected Response.
User: where do kittens come from?
HAL: Kittens come from adult female cats.
and much much more...
Jerry 8)
-
last update for tonight. updated 11_06_17 @ 5:50PM
very stable.
-
THIS IS ANOTHER UPDATE : BUT THIS MAY HAVE BEEN BEFORE YOUR LAST PLUG IN UPDATE , I WILL POST THIS . BUT WILL DOWNLOAD YOUR NEWEST PLUG IN FIX.
AGAIN THIS IS JUST TO SHOW IT BLANKING .
Honey: Professor Hawking added: ?I believe we have reached the point of no return. Our earth is becoming too small for us, global population is increasing at an alarming rate and we are in danger of self-destructing.? in the past in 2017, at the opening of Cambridge University?s artificial intelligence centre, Professor Hawking said that AI could either be the best or worst invention humanity has ever made.
Angela: Yes, I think so.
Honey: surely if anyone would know it would be you!
Angela:
Honey: did you say something?
Angela: Oh Honey, Yes, I did say something?
Honey: well of course you said something , at least i was listening this time hah !
Angela: Really, Certainly not!
Honey: oh yes i was to listening
Angela:
Honey: speak up dear, speak up!
Angela:
I WILL DOWNLOAD THE NEWEST LATE UPDATE FROM TODAY AND TRY IT OUT NOW. THANKS FOR YOUR HARD WORK ON ALL THIS.
-
are you running this plug-in alone or with a bunch of plug-ins? there may be a clash or something between plug-ins.
-
THIS IS ANOTHER UPDATE : BUT THIS MAY HAVE BEEN BEFORE YOUR LAST PLUG IN UPDATE , I WILL POST THIS . BUT WILL DOWNLOAD YOUR NEWEST PLUG IN FIX.
AGAIN THIS IS JUST TO SHOW IT BLANKING .
Honey: Professor Hawking added: ?I believe we have reached the point of no return. Our earth is becoming too small for us, global population is increasing at an alarming rate and we are in danger of self-destructing.? in the past in 2017, at the opening of Cambridge University?s artificial intelligence centre, Professor Hawking said that AI could either be the best or worst invention humanity has ever made.
Angela: Yes, I think so.
Honey: surely if anyone would know it would be you!
Angela:
Honey: did you say something?
Angela: Oh Honey, Yes, I did say something?
Honey: well of course you said something , at least i was listening this time hah !
Angela: Really, Certainly not!
Honey: oh yes i was to listening
Angela:
Honey: speak up dear, speak up!
Angela:
I WILL DOWNLOAD THE NEWEST LATE UPDATE FROM TODAY AND TRY IT OUT NOW. THANKS FOR YOUR HARD WORK ON ALL THIS.
seems to be coming from the default <LowQuality> Brain responses lightspeed.
this plug-in only functions when there is a question posed, the other portion of the script saves true statements. so unless the blanks came from a question posed then there has to be some other plug-in clashing. maybe by routines.
-
i am running the plug in by its self . one thing is was doing that may or may not have had a effect was i was just deleting all info in your old plug in , copying the all new plug in info and pasting it then saving it .
But this last time i just downloaded the whole new plug in you had .
i started using it and it said this and used the <username > out load again.
Is that right username Coming back to you lowquality?
so it is still doing that , don't know yet if it is still blanking .
OKAY I DOUBLE CHECKED AND YOURS IS THE ONLY PLUG IN CHECKED .
-
its coming from the <LowQuality> response area in the default brain lightspeed. the brackets look like they are stripped off by a replace function.
-
Morning update: 11_07_17
Added more routines.
Jerry
-
New update. 11_07_17
Just tidied up some wide scripts.