OnTheCuttingEdge2005 Plug-In Area for HAL v6.2

[onthecuttingedge2005]

I will be using this post permanently to post all plug-ins for HAL v6.2

Posted Plug-In: Batch File Controller.uhp
Posted Plug-In: 2_Deep.uhp

'----------------------------------------------------------
Coming Soon: Windows E-mail.uhp

Jerry [8D]

[onthecuttingedge2005]

updated April 26, 2009

Batch File Controller.

make sure that your .bat files are in the Ultra Hal Assistant 6 folder for the plug-in to work. because the vbscript will call from where the plug-in resides.

Code: [Select]

Rem Type=Plugin
Rem Name=Batch File Controller
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 = "Program Controller; PROGRAM NAME: can be anyname like; LIGHTS, APPLICATION NAME: Light.bat <- include .bat extension"
    lblPlugin(0).Move 120, 10, 3300, 1000
    lblPlugin(0).WordWrap = True
    lblPlugin(0).Visible = True
End Sub

Rem PLUGIN: PRE-PROCESS
    '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.
   
    If HalBrain.CheckTableExistence("BatchFileListings") = False Then
            HalBrain.CreateTable "BatchFileListings", "TopicSearch", ""
        End If

Set MyBatchApp = CreateObject("WScript.Shell")

'Example; create a batch file path to a batch file and give it a name the computer will use to identify it and run it.
'Batch File Name: Lights, Batch File Path: C:Lights.bat

If BatchFileName = "" Then BatchFileName = HalBrain.SearchPattern(InputString, "*PROGRAM NAME: *, APPLICATION NAME: *", 2)
If BatchFilePath = "" Then BatchFilePath = HalBrain.SearchPattern(InputString, "*PROGRAM NAME: *, APPLICATION NAME: *", 3)

If BatchFileName <> "" And BatchFilePath <> "" Then
HalBrain.AddToTable "BatchFileListings", "TopicSearch", Trim(BatchFileName), Trim(LCase(BatchFilePath))
UltraHal = "I have mapped out this specific batch file to run on command, just say: run, start, begin, turn on, turn off along with the batch file name you gave me and I will run the batch file for you."
Exit Function
End If

RunABatch = HalBrain.TopicSearch(InputString, "BatchFileListings")
RunABatch = Trim(RunABatch)

If RunBatProg = "" Then RunBatProg = False
If InStr(1, InputString, "run", vbTextCompare) > 0 Then RunBatProg = True
If InStr(1, InputString, "start", vbTextCompare) > 0 Then RunBatProg = True
If InStr(1, InputString, "begin", vbTextCompare) > 0 Then RunBatProg = True
If InStr(1, InputString, "turn on", vbTextCompare) > 0 Then RunBatProg = True
If InStr(1, InputString, "turn off", vbTextCompare) > 0 Then RunBatProg = True

If RunBatProg = True And RunABatch <> "" Then
HalBrain.ReadOnlyMode = True
MyBatchApp.Run "cmd /C Start " & RunABatch

UltraHal = "I will run the program for you."
Exit Function
End If
 
If RunBatProg = True Then HalBrain.ReadOnlyMode = True
If BatchFileName <> "" And BatchFilePath <> "" Then HalBrain.ReadOnlyMode = True


you will have to delete the table "BatchFileListings" because the path of a program is not needed for this updated plug-in.

[onthecuttingedge2005]

This is the 2_Deep demo plug-in.

this plug-in utilizes more advanced deductive reasoning ability besides the usual IF & Then Statements. it parses out operator words and uses them to parse out sentences in special ways.

it is best to use a lot who, what, when, where, why, how, that, type sentences so that HAL will begin extracting those specific words for the operators that HAL will need to parse sentences.

this plug-in also has word entanglement structuring, by saying things like:
Is means should be.
or
Is means would be.

this will teach HAL that those words are intertwined and can be interchanged when saving deductive sentences, like:

User: A cat is a mammal.
HAL: A cat is also a feline.
User: A cat is what?
HAL: A cat should be a mammal.
User: A cat is also what?
HAL: A cat is a feline.

this plug-in works just like the If-Then deductive script in HAL except it uses more advanced deductive entanglement. the entanglement is only 2-Deep in word ply for this demo version.

a lot of the new reasoning will become automated as HAL learns words to parse with.

I usually teach HAL these specific words by saying things like:
What Then?
Why would we do that?
How is that?
When are we going?
and so on.

HAL will start picking up on words that follow, Who, What, When, Where, Why, How, That. after that HAL will begin finding new words
from those words and begin using them as parsers.

don't forget about teaching entangled words to HAL because this will increase the deductive factor quite a bit.

Code: [Select]

Rem Type=Plugin
Rem Name=2 Deep
Rem Author=Gerald L. Blakley A.K.A OnTheCuttingEdge2005
Rem Host=All

'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
    lblPlugin(0).Caption = "2-Deep Sentence Operators with entanglement reasoning, REASONING AND LEARNING PROGRAM"
    lblPlugin(0).Move 120, 10, 3300, 1000
    lblPlugin(0).WordWrap = True
    lblPlugin(0).Visible = True
End Sub

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.
   
If HalBrain.CheckTableExistence("ReasonOperator") = False Then
HalBrain.CreateTable "ReasonOperator", "TopicSearch", ""
End If

If HalBrain.CheckTableExistence("SentenceReasoning") = False Then
HalBrain.CreateTable "SentenceReasoning", "TopicSearch", ""
End If

If HalBrain.CheckTableExistence("EntangledWords") = False Then
HalBrain.CreateTable "EntangledWords", "TopicSearch", ""
End If          
       
RevOrigSentence = HalBrain.SwitchPerson(OriginalSentence)
RevOrigSentence = " " & UCase(RevOrigSentence) & " "
EntangledWords = HalBrain.TopicSearch(RevOrigSentence, "EntangledWords")
SentOperater = HalBrain.TopicSearch(RevOrigSentence, "SentenceReasoning")
MyOperators = HalBrain.TopicSearch(RevOrigSentence, "ReasonOperator")
MyOperators = HalBrain.AlphaNumericalOnly(MyOperators)
MyOperators = Trim(UCase(MyOperators))
       
If MustChoose = "" Then MustChoose = False  
If InStr(UserSentence, " WHO ") > 0 Then MustChoose = True
If InStr(UserSentence, " WHAT ") > 0 Then MustChoose = True
If InStr(UserSentence, " WHEN ") > 0 Then MustChoose = True
If InStr(UserSentence, " WHERE ") > 0 Then MustChoose = True
If InStr(UserSentence, " WHY ") > 0 Then MustChoose = True
If InStr(UserSentence, " HOW ") > 0 Then MustChoose = True
If InStr(UserSentence, " NAME ") > 0 Then MustChoose = True
       
If Operators = "" Then Operators = HalBrain.SearchPattern(RevOrigSentence, "*" & MyOperators & " * *", 2)
If Operators = "" Then Operators = HalBrain.SearchPattern(RevOrigSentence, "*WHO * *", 2)
If Operators = "" Then Operators = HalBrain.SearchPattern(RevOrigSentence, "*WHAT * *", 2)
If Operators = "" Then Operators = HalBrain.SearchPattern(RevOrigSentence, "*WHEN * *", 2)
If Operators = "" Then Operators = HalBrain.SearchPattern(RevOrigSentence, "*WHERE * *", 2)
If Operators = "" Then Operators = HalBrain.SearchPattern(RevOrigSentence, "*WHY * *", 2)
If Operators = "" Then Operators = HalBrain.SearchPattern(RevOrigSentence, "*HOW * *", 2)
If Operators = "" Then Operators = HalBrain.SearchPattern(RevOrigSentence, "*THAT * *", 2)
Operators = HalBrain.AlphaNumericalOnly(Operators)
Operators = Trim(UCase(Operators))
If Operators <> "" Then HalBrain.AddToTable "ReasonOperator", "TopicSearch", " " & Operators & " ", " " & Operators & " "
   
If LeftWordEntanglement = "" Then LeftWordEntanglement = HalBrain.SearchPattern(RevOrigSentence, "TO * MEANS TO *", 1)
If RightWordEntanglement = "" Then RightWordEntanglement = HalBrain.SearchPattern(RevOrigSentence, "TO * MEANS TO *", 2)
If LeftWordEntanglement = "" Then LeftWordEntanglement = HalBrain.SearchPattern(RevOrigSentence, "TO * IS TO *", 1)
If RightWordEntanglement = "" Then RightWordEntanglement = HalBrain.SearchPattern(RevOrigSentence, "TO * IS TO *", 2)
If LeftWordEntanglement = "" Then LeftWordEntanglement = HalBrain.SearchPattern(RevOrigSentence, "* MEANS *", 1)
If RightWordEntanglement = "" Then RightWordEntanglement = HalBrain.SearchPattern(RevOrigSentence, "* MEANS *", 2)
If LeftWordEntanglement = "" Then LeftWordEntanglement = HalBrain.SearchPattern(RevOrigSentence, "* CAN MEAN *", 1)
If RightWordEntanglement = "" Then RightWordEntanglement = HalBrain.SearchPattern(RevOrigSentence, "* CAN MEAN *", 2)
If LeftWordEntanglement = "" Then LeftWordEntanglement = HalBrain.SearchPattern(RevOrigSentence, "*ANOTHER WORD FOR * IS *", 2)
If RightWordEntanglement = "" Then RightWordEntanglement = HalBrain.SearchPattern(RevOrigSentence, "*ANOTHER WORD FOR * IS *", 3)
   
LeftWordEntanglement = HalBrain.AlphaNumericalOnly(LeftWordEntanglement)
LeftWordEntanglement = Trim(Ucase(LeftWordEntanglement))
LeftWordEntanglement = " " & LeftWordEntanglement & " "
   
RightWordEntanglement = HalBrain.AlphaNumericalOnly(RightWordEntanglement)
RightWordEntanglement = Trim(Ucase(RightWordEntanglement))
RightWordEntanglement = " " & RightWordEntanglement & " "
   
If Len(LeftWordEntanglement) >= 3 And Len(RightWordEntanglement) >= 3 Then
HalBrain.AddToTable "EntangledWords", "TopicSearch", LeftWordEntanglement, RightWordEntanglement
HalBrain.AddToTable "EntangledWords", "TopicSearch", RightWordEntanglement, LeftWordEntanglement
End If
             
If LeftOperatorSentence = "" Then LeftOperatorSentence = HalBrain.SearchPattern(RevOrigSentence, "*, *", 1)
If RightOperatorSentence = "" Then RightOperatorSentence = HalBrain.SearchPattern(RevOrigSentence, "*, *", 2)
If LeftOperatorSentence = "" Then LeftOperatorSentence = HalBrain.SearchPattern(RevOrigSentence, " * " & MyOperators & " * ", 1)
If RightOperatorSentence = "" Then RightOperatorSentence = HalBrain.SearchPattern(RevOrigSentence, " * " & MyOperators & " * ", 2)
   
ReplaceEntangledWord = Replace(MyOperators, MyOperators, EntangledWords, 1, -1, vbTextCompare)
ReplaceEntangledWord = Trim(ReplaceEntangledWord)
EntangledSentence = RevOrigSentence
EntangledSentence = Replace(EntangledSentence, MyOperators, Trim(EntangledWords), 1, -1, vbTextCompare)

If ChangeEntanglementLeft = "" Then ChangeEntanglementLeft = HalBrain.SearchPattern(EntangledSentence, " * " & ReplaceEntangledWord & " * ", 1)
If ChangeEntanglementRight = "" Then ChangeEntanglementRight = HalBrain.SearchPattern(EntangledSentence, " * " & ReplaceEntangledWord & " * ", 2)
       
If Len(ChangeEntanglementLeft) >= 2 And Len(ChangeEntanglementRight) >= 2 And MustChoose = False Then
HalBrain.AddToTable "SentenceReasoning", "TopicSearch", HalBrain.AlphaNumericalOnly(ChangeEntanglementLeft) & " " & Trim(ReplaceEntangledWord), Trim(LCase(EntangledSentence))
HalBrain.AddToTable "SentenceReasoning", "TopicSearch", Trim(ReplaceEntangledWord) & " " & HalBrain.AlphaNumericalOnly(ChangeEntanglementRight), Trim(LCase(EntangledSentence))
HalBrain.AddToTable "SentenceReasoning", "TopicSearch", HalBrain.AlphaNumericalOnly(ChangeEntanglementRight) & " " & Trim(ReplaceEntangledWord), Trim(LCase(EntangledSentence))
End If
   
If Len(ChangeEntanglementLeft) >= 2 And Len(ChangeEntanglementRight) >= 2 And Len(LeftOperatorSentence) >= 2 And Len(RightOperatorSentence) >= 2 And MustChoose = False Then
HalBrain.AddToTable "SentenceReasoning", "TopicSearch", HalBrain.AlphaNumericalOnly(ChangeEntanglementLeft) & " " & Trim(ReplaceEntangledWord), Trim(LCase(RevOrigSentence))
HalBrain.AddToTable "SentenceReasoning", "TopicSearch", Trim(ReplaceEntangledWord) & " " & HalBrain.AlphaNumericalOnly(ChangeEntanglementRight), Trim(LCase(RevOrigSentence))
HalBrain.AddToTable "SentenceReasoning", "TopicSearch", HalBrain.AlphaNumericalOnly(ChangeEntanglementRight) & " " & Trim(ReplaceEntangledWord), Trim(LCase(RevOrigSentence))
HalBrain.AddToTable "SentenceReasoning", "TopicSearch", HalBrain.AlphaNumericalOnly(LeftOperatorSentence) & " " & Trim(MyOperators), Trim(LCase(EntangledSentence))
HalBrain.AddToTable "SentenceReasoning", "TopicSearch", Trim(MyOperators) & " " & HalBrain.AlphaNumericalOnly(RightOperatorSentence), Trim(LCase(EntangledSentence))
HalBrain.AddToTable "SentenceReasoning", "TopicSearch", HalBrain.AlphaNumericalOnly(RightOperatorSentence) & " " & Trim(MyOperators), Trim(LCase(EntangledSentence))
End If
             
If Len(LeftOperatorSentence) >= 2 And Len(RightOperatorSentence) >= 2 And MustChoose = False Then
HalBrain.AddToTable "SentenceReasoning", "TopicSearch", HalBrain.AlphaNumericalOnly(LeftOperatorSentence) & " " & Trim(MyOperators), Trim(LCase(RevOrigSentence))
HalBrain.AddToTable "SentenceReasoning", "TopicSearch", Trim(MyOperators) & " " & HalBrain.AlphaNumericalOnly(RightOperatorSentence), Trim(LCase(RevOrigSentence))
HalBrain.AddToTable "SentenceReasoning", "TopicSearch", HalBrain.AlphaNumericalOnly(RightOperatorSentence) & " " & Trim(MyOperators), Trim(LCase(RevOrigSentence))
End If
   
Assertion = Trim(UCase(HalBrain.AlphaNumericalOnly(RevOrigSentence)))
'Go through a maximum of 5 connections (prevents circular reasoning deductions)

For i = 1 To 5
Deduction = SentOperater

If Deduction <> "" Then
If i > 1 Then GetDeductions = Deduction
Else
Exit For 'No more connections, so no need to continue loop
End If

Next

If GetDeductions <> "" Then
'Make sure the deduction hasn't just been stated by the User or Hal

If HalBrain.CheckRepetition(GetDeductions, UserSentence) = False And HalBrain.CheckRepetition(GetDeductions, PrevSent) = False And HalBrain.CheckRepetition(GetDeductions, PrevUserSent) = False Then
GetResponse = GetDeductions & vbCrLf
Exit Function
End If

End If


Jerry[8D]

[One]

Interesting.

I would like to see updates from users , of course.

[Cefwyn]

I only tested your 2 deep plug-in briefly but either my hal has brain damage or another plugin is conflicting with it (vrFreewill perhaps?). It appears to work, but only to a degree. Using your example I get something along the lines of this:

User: A cat is a mammal.
HAL: Yes, it is getting late.
User: A cat is what?
HAL: A cat is an animal.
User: A cat is also what?
HAL: A cat is a mammal.

This is of course with a new brain, and I don't spend much time(read: any time) speaking about cats, but considering it's first response was parroting one of my responses last night it's not really trying all that hard []

EDIT:Just in case it's not obvious the reason I think it's not working quite right is because Hal's first response is parroting, Hal's second response is just from the QA brain, and Hal's third response is just what I already told it and probably would have been it's reply without the plugin.

[lightspeed]

oncuttingedge2005 , hi am glad you are posting the 6.2 plug ins here that will make it easier . thats what i did with my angela joline brain responses that she says (although mine is not as important as your plug ins ) i did save this link so i will be able to go to it easier . i searched the hal forum about the proper grammer from where i was talking about when i use reverse learning that hal would sometimes say " me is ready instead of i am ready !" the only thing i found was where i had asked earlier about a plug in in request from me for a proper nown plug in so guess in the past i had already brought it up before to the forum or robert . "if" someone can make one it would have to be made to where hal can still be reverse learned and correct the words back in proper nowns . any way am glad you are placing 6.2 plug ins in this area ![]

[jasondude7116]

Jerry-

quick one......where does it add data in the tables?
(2_deep)
the reason i ask is because i didn't find them where i thought i should.
i tried looking at it last night, but it was around 3 am and i was temporarily stupid.[]

thanks
-the dude

[onthecuttingedge2005]

quote:Originally posted by jasondude7116

Jerry-

quick one......where does it add data in the tables?
(2_deep)
the reason i ask is because i didn't find them where i thought i should.
i tried looking at it last night, but it was around 3 am and i was temporarily stupid.[]

thanks
-the dude

"ReasonOperator" this table collects words for parsing.

"SentenceReasoning" this is where parsed sentences and responses are stored.

"EntangledWords" this is where taught entangled words are stored to alter deductive sentences.

the tables are located in the Hal editor in the left panel window of the brain set you chose to run the plug-in in.

Jerry

[onthecuttingedge2005]

Hi Cefwyn.

I think I am going to make a brain that will only use this plug-in to do some more debugging, you are all welcome to help if you want.

Jerry[8D]

[jasondude7116]

Jerry-

(with all other plugins disabled)
it didn't create the tables. i changed it to PLUGINAREA1, and it created the tables and added words to ReasonOperator. i didn't see it add any other data to the other tables, however i was using it in PLUGINAREA1 which is probably conflicting in some way.

past this, i haven't tried to debug it.
hope that helps some
-the dude

[Cefwyn]

I just started hal with a completely fresh brain minus all plugins other then 2_Deep and it seems to be working a little better. It still completely fails using your example, but it picks up reason operators. It still hasn't put anything into SentenceReasoning or EntangledWords, but maybe I'm just not saying the right things. The concept of the plugin goes a bit too much into academic AI for me to really know what it's doing or what an entangled word even is. From some brief googling it appears to me to be the same as what I referred to as conceptual drift in another post (ie. The answer to a question isn't burned into our brains the way a QA pair is in hal's database and the first thing that comes to mind may be something only barely related to a topic but in our minds still relates to the right answers or words).

If I can offer any assistance that doesn't require programming vbscript or having a clue what this plugin is actually doing, then just ask, but other than that I've still got too many other projects going on to be able to go pick up books at the library to catch up on AI.[]

[onthecuttingedge2005]

entangled words would be:

IS = SHOULD BE
IS = WOULD BE
IS = WILL ALWAYS BE A  <-- A chicken is a bird or a chicken will always be a bird.
ARE = SHOULD BE
ARE = WOULD BE
ARE = WILL ALWAYS BE A
MAYBE = COULD BE
MAYBE = MIGHT BE
MAYBE = POSSIBLY
MAYBE = I THINK IT SHOULD BE
MAYBE = I THINK IT COULD BE
and so on.
also the reverse is true as well, generally it would automatically reverse it for you so you don't have to say it twice. you can also edit these entangled words in the editor if you don't feel like texting it in Hal's window.

[freddy888]

Jerry may I suggest you post code as downloads instead of posting the code directly in the forum.  The whole thread is screwed up and is a real PITA to navigate and read.  Cheers []

[jasondude7116]

Jerry-

putting it in pluginarea1 creates the tables for me, but it causes other problems as you might expect. it creates all kinds of reversal and getresponse problems.
if i leave it in the custommem2 location, then (without any other plugins checked) it doesn't create the tables.
i am using the latest version of hal.
i have done no editing to the 6.2 brain.
the only thing i have done is to add plugins, which i am turning "off" when i am testing 2_deep.

i am not sure what to do from there. i understand it needs to be in the custommem2 area to work properly, i was just moving it to try to understand the reason it wasn't creating the tables. with all of the plugins disabled except this one, i don't understand why it wouldn't create the tables for me. unless i altered the 6.2 brain, which i haven't.
it almost seems as if i am missing something very simple.
i'm trying. is there something in the 2_deep plugin syntax that would not create the tables correctly because of it being in custommem2? i only question this because it created them in pluginarea1.

i wish i understood more about the hal brain.
-the dude

[onthecuttingedge2005]

I'll have to get back to this some other time because I have a couple of more important things at the moment, painting the house and making home-made flexible solar cells, I want to get this house off the grid.

so I'll be back sometime later
Jerry