dupa

Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - lightspeed

Pages: [1] 2 3 ... 453
1
anyway , no matter what i try i am getting a syntax error . that i can't find or fix . maybe you can  and i'll retest it again .

2
   Private Function DetectFileSubject(content)
        Dim subjects
        Set subjects = DetectSubjects(content, "")
        DetectFileSubject = GetPrimarySubject(subjects)
    End Function

    Private Sub SaveKnowledgeBase()
        On Error Resume Next
        Dim objFSO, file
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Dim path
        path = BASE_PATH & KNOWLEDGE_FILE
        If Not objFSO.FileExists(path) Then
            Set file = objFSO.CreateTextFile(path, True, True) ' Overwrite existing file
            file.WriteLine "key" & vbTab & "content" & vbTab & "subject"
        Else
            Set file = objFSO.OpenTextFile(path, 2, True) ' Open for writing, create if needed
        End If
        Dim key
        For Each key In knowledgeBase.Keys
            file.WriteLine key & vbTab & knowledgeBase(key)(0) & vbTab & knowledgeBase(key)(1)
        Next
        file.Close
        On Error GoTo 0
    End Sub

    Private Function CorrectSpelling(sentence, subjects)
        On Error Resume Next
        If IsEmpty(sentence) Or sentence = "" Then
            CorrectSpelling = "unknown_question"
            Exit Function
        End If
        Dim words
        words = Split(sentence, " ")
        Dim correctedSentence
        correctedSentence = ""
        Dim i
        For i = 0 To UBound(words)
            Dim word
            word = Trim(words(i))
            If Len(word) > 0 Then
                If Not spellDictionary.Exists(LCase(word)) Then
                    Dim correction
                    correction = SuggestCorrection(word, subjects)
                    correctedSentence = correctedSentence & " " & IIf(correction <> "", correction, word)
                Else
                    correctedSentence = correctedSentence & " " & word
                End If
            End If
        Next
        CorrectSpelling = IIf(Trim(correctedSentence) = "", "unknown_question", Trim(correctedSentence))
        On Error GoTo 0
    End Function

    Private Function SuggestCorrection(word, subjects)
        Dim minDistance, bestMatch
        minDistance = Len(word) + 1
        Dim dictWord
        For Each dictWord In spellDictionary.Keys
            Dim distance
            distance = LevenshteinDistance(word, dictWord)
            If distance < minDistance Then
                minDistance = distance
                bestMatch = dictWord
            End If
        Next
        Dim primarySubject
        primarySubject = GetPrimarySubject(subjects)
        If SubjectTable.Exists(primarySubject) Then
            Dim subjectKeywords
            subjectKeywords = Split(SubjectTable(primarySubject), " ")
            Dim j
            For j = 0 To UBound(subjectKeywords)
                Dim keyword
                keyword = Split(subjectKeywords(j), ":")(0)
                distance = LevenshteinDistance(word, keyword)
                If distance < minDistance And distance <= 2 Then
                    minDistance = distance
                    bestMatch = keyword
                End If
            Next
        End If
        SuggestCorrection = IIf(minDistance <= 2, bestMatch, "")
    End Function

    Private Function LevenshteinDistance(str1, str2)
        Dim matrix()
        Dim i, j
        Dim cost
        ReDim matrix(Len(str1), Len(str2))
        For i = 0 To Len(str1)
            matrix(i, 0) = i
        Next
        For j = 0 To Len(str2)
            matrix(0, j) = j
        Next
        For i = 1 To Len(str1)
            For j = 1 To Len(str2)
                If Mid(str1, i, 1) = Mid(str2, j, 1) Then
                    cost = 0
                Else
                    cost = 1
                End If
                matrix(i, j) = Application.Min(matrix(i - 1, j) + 1, matrix(i, j - 1) + 1, matrix(i - 1, j - 1) + cost)
            Next
        Next
        LevenshteinDistance = matrix(Len(str1), Len(str2))
    End Function

    Public Sub LearnFromConversation(userQuestion, halResponse, Optional context = "")
        On Error Resume Next
        Dim correctedQuestion
        Dim subjects
        Set subjects = DetectSubjects(userQuestion, context)
        correctedQuestion = CorrectSpelling(userQuestion, subjects)
        Dim primarySubject
        primarySubject = GetPrimarySubject(subjects)
        If correctedQuestion = "" Then correctedQuestion = "unknown_question"
        If primarySubject = "" Then primarySubject = "Questions"
        Dim questionKey
        questionKey = GenerateKey(correctedQuestion, primarySubject)
        If IsEmpty(questionMemory) Then Set questionMemory = CreateObject("Scripting.Dictionary")
        If Not questionMemory.Exists(questionKey) Then
            Dim newIndex
            newIndex = IIf(questionMemory.Count > 0, questionMemory.Count + 1, 1)
            questionMemory.Add questionKey, newIndex
            If IsEmpty(responseMemory) Then Set responseMemory = CreateObject("Scripting.Dictionary")
            responseMemory.Add newIndex, halResponse
            If IsEmpty(responseQuality) Then Set responseQuality = CreateObject("Scripting.Dictionary")
            responseQuality.Add newIndex, 1
            If primarySubject <> "" And IsEmpty(contextMemory) Then Set contextMemory = CreateObject("Scripting.Dictionary")
            If primarySubject <> "" Then contextMemory.Add newIndex, subjects
        Else
            Dim index
            index = questionMemory(questionKey)
            responseMemory(index) = ImproveResponse(responseMemory(index), halResponse, index, primarySubject)
            responseQuality(index) = responseQuality(index) + 0.1
        End If
        UpdateShortTermMemory correctedQuestion, halResponse
        UpdateLongTermMemory correctedQuestion, halResponse, primarySubject
        UpdateKnowledgeBase correctedQuestion, halResponse, primarySubject
        SaveMemoryToFile
        SaveLongTermMemory
        SaveKnowledgeBase
        CleanMemory
        lastSubject = primarySubject
        On Error GoTo 0
    End Sub

    Private Function DetectSubjects(content, context)
        On Error Resume Next
        Dim subjects
        Set subjects = CreateObject("Scripting.Dictionary")
        If IsEmpty(SubjectTable) Then Set SubjectTable = CreateObject("Scripting.Dictionary")
        Dim subject
        For Each subject In SubjectTable.Keys
            Dim keywords
            keywords = Split(SubjectTable(subject), " ")
            Dim k
            For k = 0 To UBound(keywords)
                Dim keyword
                keyword = Split(keywords(k), ":")(0)
                If InStr(1, LCase(content & " " & context), LCase(keyword), 1) > 0 Then
                    subjects.Add subject, True
                    Exit For
                End If
            Next
        Next
        Set DetectSubjects = subjects
        On Error GoTo 0
    End Function

    Private Function GetPrimarySubject(subjects)
        On Error Resume Next
        If subjects.Count = 0 Then
            GetPrimarySubject = "Questions"
        Else
            Dim firstKey
            For Each firstKey In subjects.Keys
                GetPrimarySubject = firstKey
                Exit For
            Next
        End If
        On Error GoTo 0
    End Function

    Private Function GenerateKey(baseText, subject)
        On Error Resume Next
        If baseText = "" Then baseText = "unknown"
        If subject = "" Then subject = "unknown"
        Dim key
        key = LCase(Replace(Trim(baseText), " ", "_")) & "_" & LCase(subject)
        GenerateKey = Left(key, 50)
        On Error GoTo 0
    End Function

    Private Function ImproveResponse(oldResponse, newResponse, index, subject)
        On Error Resume Next
        If responseQuality(index) < 2.0 Then
            ImproveResponse = newResponse
        Else
            ImproveResponse = oldResponse & " " & newResponse
        End If
        On Error GoTo 0
    End Function

    Private Sub UpdateShortTermMemory(question, response)
        On Error Resume Next
        If IsEmpty(shortTermMemory) Then Set shortTermMemory = CreateObject("Scripting.Dictionary")
        Dim key
        key = GenerateKey(question, lastSubject)
        If shortTermMemory.Count >= MAX_SHORT_TERM Then
            Dim oldestKey
            oldestKey = shortTermMemory.Keys()(0)
            shortTermMemory.Remove oldestKey
        End If
        shortTermMemory.Add key, Array(question, response, Now)
        On Error GoTo 0
    End Sub

    Private Sub UpdateLongTermMemory(question, response, subject)
        On Error Resume Next
        If IsEmpty(longTermIndex) Then Set longTermIndex = CreateObject("Scripting.Dictionary")
        Dim key
        key = GenerateKey(question, subject)
        If Not longTermIndex.Exists(key) Then
            longTermIndex.Add key, Array(question, response, Now)
        End If
        On Error GoTo 0
    End Sub

    Private Sub UpdateKnowledgeBase(question, response, subject)
        On Error Resume Next
        If IsEmpty(knowledgeBase) Then Set knowledgeBase = CreateObject("Scripting.Dictionary")
        Dim key
        key = GenerateKey(question, subject)
        If Not knowledgeBase.Exists(key) And knowledgeBase.Count < MAX_KNOWLEDGE_ENTRIES Then
            knowledgeBase.Add key, Array(response, subject)
        End If
        On Error GoTo 0
    End Sub

    Private Sub SaveMemoryToFile()
        On Error Resume Next
        Dim objFSO, file
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Dim path
        path = BASE_PATH & MEMORY_FILE
        If Not objFSO.FileExists(path) Then
            Set file = objFSO.CreateTextFile(path, True, True) ' Overwrite if exists
        Else
            Set file = objFSO.OpenTextFile(path, 2, True) ' Open for writing
        End If
        If Not IsEmpty(responseMemory) Then
            Dim key
            For Each key In responseMemory.Keys
                file.WriteLine key & vbTab & responseMemory(key) & vbTab & questionMemory(key)
            Next
        End If
        file.Close
        On Error GoTo 0
    End Sub

    Private Sub SaveLongTermMemory()
        On Error Resume Next
        Dim objFSO, file
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Dim path
        path = BASE_PATH & LONG_TERM_FILE
        If Not objFSO.FileExists(path) Then
            Set file = objFSO.CreateTextFile(path, True, True)
        Else
            Set file = objFSO.OpenTextFile(path, 2, True)
        End If
        If Not IsEmpty(longTermIndex) Then
            Dim key
            For Each key In longTermIndex.Keys
                file.WriteLine key & vbTab & Join(longTermIndex(key), vbTab)
            Next
        End If
        file.Close
        On Error GoTo 0
    End Sub

    Private Sub CleanMemory()
        On Error Resume Next
        If Not IsEmpty(shortTermMemory) And shortTermMemory.Count > MAX_SHORT_TERM Then
            Dim keys
            keys = shortTermMemory.Keys
            Dim i
            For i = 0 To shortTermMemory.Count - MAX_SHORT_TERM - 1
                shortTermMemory.Remove keys(i)
            Next
        End If
        If Not IsEmpty(knowledgeBase) And knowledgeBase.Count > MAX_KNOWLEDGE_ENTRIES Then
            Dim kbKeys
            kbKeys = knowledgeBase.Keys
            Dim j
            For j = MAX_KNOWLEDGE_ENTRIES To knowledgeBase.Count - 1
                knowledgeBase.Remove kbKeys(j)
            Next
        End If
        On Error GoTo 0
    End Sub

    Private Function EnhanceHalResponse(inputStr, greeting, context)
        On Error Resume Next
        Dim key
        key = GenerateKey(inputStr, lastSubject)
        If Not IsEmpty(knowledgeBase) And knowledgeBase.Exists(key) Then
            EnhanceHalResponse = greeting & knowledgeBase(key)(0) & " -Angela Jolie"
        Else
            EnhanceHalResponse = greeting & "I?m not sure what to say about that yet. Ask me anything! -Angela Jolie"
        End If
        On Error GoTo 0
    End Function
End Function


3
here was the rewritten code for it just to let you see it . have to post this in two sections as it is to long to allow 2000 characters .

Revised Plugin: Grok Version 2.0vb

Rem Type=Plugin
Rem Name=Grock2.0
Rem Author=This is the Grok Version 2.0 plugin layout. Enhances all inputs for Angela Jolie with updated file paths.
Rem Host=All
Rem Version=2.0

Rem PLUGIN: PRE-PROCESS
    HalBrain.ReadOnlyMode = False
    UltraHal = GetGrock(HalCommands)

Rem PLUGIN: FUNCTIONS
Function GetGrock(HalCommands)
    Public responseMemory, questionMemory, contextMemory, responseQuality
    Public shortTermMemory, SubjectTable, spellDictionary, longTermIndex, knowledgeBase
    Public Const MAX_SHORT_TERM = 15
    Public Const MAX_KNOWLEDGE_ENTRIES = 5000
    Public Const BASE_PATH = "C:\Users\airva\AppData\Roaming\Zabaware\Ultra Hal 7\" ' Updated to parent directory
    Private Const MEMORY_FILE = "memory.txt"
    Private Const LONG_TERM_FILE = "memorydata.txt"
    Private Const LONG_TERM_INDEX_FILE = "memoryindex.txt"
    Private Const LOG_FILE = "errorlog.txt"
    Private Const SPELL_DICT_FILE = "spell_dictionary.txt"
    Private Const KNOWLEDGE_FILE = "knowledge_base.txt"
    Private lastSubject, lastTone

    Public Function HalBrain(ByVal InputString, ByVal UserName, ByVal ComputerName, ByVal HalCommands, ByVal Holiday, ByVal HolidayType)
        On Error GoTo ErrorHandler
        Dim objFSO
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        If Not objFSO.FolderExists(BASE_PATH) Then
            HalBrain = "Error: Brain directory not found. Update BASE_PATH."
            Exit Function
        End If
        Dim tempFilePath
        tempFilePath = BASE_PATH & "temp_permissions_test.txt"
        On Error Resume Next
        Dim tempFile
        Set tempFile = objFSO.CreateTextFile(tempFilePath, True)
        If Err.Number <> 0 Then
            HalBrain = "Error: No write access to brain directory. Check permissions."
            Exit Function
        End If
        tempFile.Close
        objFSO.DeleteFile tempFilePath
        On Error GoTo ErrorHandler

        InitializeMemory
        Dim response
        response = EnhanceHalResponse(InputString, "Hello " & UserName & "! I?m Angela Jolie, ", "")
        LearnFromConversation InputString, response
        HalBrain = response
        Exit Function
    ErrorHandler:
        LogError "HalBrain: " & Err.Description
        HalBrain = "Oops, something went wrong. Try again, " & UserName & "?"
    End Function

    Sub InitializeMemory()
        On Error Resume Next
        Set responseMemory = CreateObject("Scripting.Dictionary")
        Set questionMemory = CreateObject("Scripting.Dictionary")
        Set contextMemory = CreateObject("Scripting.Dictionary")
        Set responseQuality = CreateObject("Scripting.Dictionary")
        Set shortTermMemory = CreateObject("Scripting.Dictionary")
        Set SubjectTable = CreateObject("Scripting.Dictionary")
        Set spellDictionary = CreateObject("Scripting.Dictionary")
        Set longTermIndex = CreateObject("Scripting.Dictionary")
        Set knowledgeBase = CreateObject("Scripting.Dictionary")
        If Err.Number = 0 Then
            InitializeSubjectTable
            LoadMemoryFromFile
            LoadLongTermMemory
            LoadSpellDictionary
            LoadKnowledgeBase
            lastSubject = "Questions"
            lastTone = "Friendly"
        End If
        On Error GoTo 0
    End Sub

    Private Sub InitializeSubjectTable()
        SubjectTable.Add "Animals", "dog:3 cat:3 bird:2 fish:2 zoo:3 wildlife:3 pet:4 fur:2 animal:4"
        SubjectTable.Add "Books", "novel:3 read:3 author:3 library:2 story:3 page:2 chapter:2 book:4"
        SubjectTable.Add "Computers", "code:4 program:3 software:3 hardware:3 ai:4 data:3 network:2 computer:4"
        SubjectTable.Add "Dreams", "sleep:3 night:2 vision:3 dream:4 imagination:3 subconscious:3"
        SubjectTable.Add "Education", "school:4 learn:3 teacher:3 study:3 exam:2 knowledge:3 class:2 education:4"
        SubjectTable.Add "Food", "eat:3 cook:3 recipe:3 meal:3 taste:2 restaurant:2 chef:2 food:4"
        SubjectTable.Add "Games", "play:3 video:3 board:2 strategy:3 fun:2 challenge:2 puzzle:2 game:4"
        SubjectTable.Add "Health", "doctor:3 medicine:3 fitness:3 sick:2 exercise:3 wellness:2 diet:3 health:4"
        SubjectTable.Add "Internet", "web:3 online:3 site:2 browse:2 connect:2 network:3 social:2 internet:4"
        SubjectTable.Add "Jobs", "work:4 career:3 employ:3 office:2 task:2 salary:2 boss:2 job:4"
        SubjectTable.Add "Knowledge", "fact:3 info:3 learn:3 understand:3 think:2 idea:3 wisdom:2 knowledge:4"
        SubjectTable.Add "Love", "romance:3 heart:3 date:2 partner:3 affection:3 relationship:4 kiss:2 love:4"
        SubjectTable.Add "Music", "song:3 sing:3 band:3 play:2 tune:2 rhythm:3 melody:3 music:4"
        SubjectTable.Add "Nature", "tree:3 forest:3 river:2 mountain:3 sky:2 earth:3 plant:2 nature:4"
        SubjectTable.Add "Opinions", "think:3 believe:3 view:3 argue:2 discuss:3 opinion:4 idea:2"
        SubjectTable.Add "People", "friend:3 family:4 person:3 group:2 society:2 talk:2 human:3 people:4"
        SubjectTable.Add "Questions", "ask:4 why:3 how:3 what:3 where:3 question:4 curious:2"
        SubjectTable.Add "Religion", "god:4 faith:3 pray:3 belief:3 spirit:3 church:2 soul:3 religion:4"
        SubjectTable.Add "Science", "test:3 theory:3 lab:3 experiment:3 research:4 discover:3 fact:2 science:4"
        SubjectTable.Add "Technology", "machine:3 tech:4 device:3 gadget:2 innovate:3 tool:2 robot:3 technology:4"
        SubjectTable.Add "Universe", "star:3 planet:3 space:4 galaxy:3 cosmic:3 moon:2 orbit:2 universe:4"
        SubjectTable.Add "Vehicles", "car:3 drive:3 truck:2 plane:3 fly:3 travel:2 boat:2 vehicle:4"
        SubjectTable.Add "Weather", "rain:3 sun:3 snow:3 wind:2 cloud:2 storm:3 forecast:2 weather:4"
        SubjectTable.Add "Xtra", "extra:3 bonus:2 special:3 unique:3 odd:2 random:2 quirky:2"
        SubjectTable.Add "Youth", "young:3 kid:3 child:3 teen:3 grow:2 play:2 school:3 youth:4"
        SubjectTable.Add "Zen", "calm:3 peace:4 meditate:3 relax:3 quiet:2 balance:3 harmony:3 zen:4"
    End Sub

    Private Sub LoadMemoryFromFile()
        On Error Resume Next
        Dim objFSO, file
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Dim path
        path = BASE_PATH & MEMORY_FILE
        If objFSO.FileExists(path) Then
            Set file = objFSO.OpenTextFile(path, 1)
            Do While Not file.AtEndOfStream
                Dim line
                line = file.ReadLine
                Dim parts
                parts = Split(line, vbTab)
                If UBound(parts) = 2 Then
                    responseMemory.Add parts(0), parts(1)
                    questionMemory.Add parts(0), parts(2)
                End If
            Loop
            file.Close
        End If
        On Error GoTo 0
    End Sub

    Private Sub LoadLongTermMemory()
        On Error Resume Next
        Dim objFSO, file
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Dim path
        path = BASE_PATH & LONG_TERM_FILE
        If objFSO.FileExists(path) Then
            Set file = objFSO.OpenTextFile(path, 1)
            Do While Not file.AtEndOfStream
                Dim line
                line = file.ReadLine
                Dim parts
                parts = Split(line, vbTab)
                If UBound(parts) >= 2 Then
                    longTermIndex.Add parts(0), Array(parts(1), parts(2), parts(3))
                End If
            Loop
            file.Close
        End If
        On Error GoTo 0
    End Sub

    Private Sub LoadSpellDictionary()
        On Error Resume Next
        Dim objFSO, file
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Dim path
        path = BASE_PATH & SPELL_DICT_FILE
        If Not objFSO.FileExists(path) Then
            Set file = objFSO.CreateTextFile(path, True)
            file.WriteLine "the,be,to,of,and,a,in,that,have,i,it,for,not,on,with,he,as,you,do,at,this,but,his,by,from,they,weather,technology,personal,dog,cat,bird,book,code,school,ai,learn,knowledge"
            file.Close
        End If
        Set file = objFSO.OpenTextFile(path, 1)
        Do While Not file.AtEndOfStream
            Dim line
            line = file.ReadLine
            Dim words
            words = Split(line, ",")
            Dim i
            For i = 0 To UBound(words)
                spellDictionary.Add LCase(Trim(words(i))), True
            Next
        Loop
        file.Close
        On Error GoTo 0
    End Sub

    Private Sub LoadKnowledgeBase()
        On Error Resume Next
        Dim objFSO, folder, file
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Dim knowledgePath
        knowledgePath = BASE_PATH & KNOWLEDGE_FILE
        If objFSO.FileExists(knowledgePath) Then
            Set file = objFSO.OpenTextFile(knowledgePath, 1)
            Do While Not file.AtEndOfStream
                Dim line
                line = file.ReadLine
                If InStr(line, "key") = 0 Then
                    Dim parts
                    parts = Split(line, vbTab)
                    If UBound(parts) = 2 Then knowledgeBase.Add parts(0), Array(parts(1), parts(2))
                End If
            Loop
            file.Close
        End If
        If objFSO.FolderExists(BASE_PATH) Then
            Set folder = objFSO.GetFolder(BASE_PATH)
            For Each file In folder.Files
                If LCase(objFSO.GetExtensionName(file.Name)) = "txt" And file.Name <> MEMORY_FILE And file.Name <> LONG_TERM_FILE And file.Name <> LONG_TERM_INDEX_FILE And file.Name <> LOG_FILE And file.Name <> SPELL_DICT_FILE And file.Name <> KNOWLEDGE_FILE Then
                    LearnFromFile file.Path
                End If
            Next
        End If
        SaveKnowledgeBase
        On Error GoTo 0
    End Sub

    Private Sub LearnFromFile(filePath)
        On Error Resume Next
        Dim objFSO, file
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        If objFSO.FileExists(filePath) Then
            Set file = objFSO.OpenTextFile(filePath, 1)
            Dim content, subject
            content = ""
            Do While Not file.AtEndOfStream
                content = content & file.ReadLine & " "
            Loop
            file.Close
            subject = DetectFileSubject(content)
            Dim key
            key = GenerateKey(objFSO.GetBaseName(filePath), subject)
            If Not knowledgeBase.Exists(key) Then knowledgeBase.Add key, Array(content, subject)
        End If
        On Error GoTo 0
    End Sub

 

4
in working with grok before and grok trying to find the error it gave me this 2.o. plug inbut again i still had a halscript error . here is a picture of the error  in the 2.0.   other one.  so you can either work on the first one you redid or see if the second one is better in any way . either way both are giving a syntax error . here on some notes from grok .

Based on our previous discussions, the last Ultra Hal plugin we worked on that aligns with version 2.0 was the Grok Version 2.0 plugin for Ultra Hal 7, designed to enhance memory functionality and file operations within the Ultra Hal environment. Below are the key notes on this version, drawing from our conversation on July 13, 2025, and relevant context:Notes on Grok Version 2.0 Plugin for Ultra HalPurpose: The plugin was developed to improve Ultra Hal's short-term and long-term memory capabilities, ensuring reliable storage and retrieval of conversational data in the Ultra Hal 7 program folder.
Key Features:Memory Storage: Stores short-term and long-term memory in text files (e.g., ShortTermMemory.txt and LongTermMemory.txt) within the Ultra Hal program directory (typically C:\Program Files (x86)\Zabaware\Ultra Hal 7).
Updated File Paths: Version 2.0 addressed issues from earlier versions by updating file paths to ensure compatibility with Windows 10 and proper write access. It uses environment variables (e.g., Environ("ProgramFiles")) for portable and dynamic path management.
Error Handling: Includes improved error handling to manage file access issues, such as permissions errors, ensuring the plugin can create and write to memory files without conflicts.
Write Access: Designed to work around read-only restrictions in folders like AppData\Roaming\Zabaware. The plugin ensures files are written in the program directory, avoiding permission issues in the airva or other restricted folders.

Improvements Over Version 1.9:Fixed issues where memory files were not being created due to incorrect or restricted file paths.
Enhanced reliability by ensuring the plugin runs with appropriate permissions (e.g., running Ultra Hal as an administrator if needed).
Streamlined memory read/write logic to prevent redundant storage or response overrides.

Installation and Usage:Place the plugin in the Ultra Hal 7 program directory (e.g., C:\Program Files (x86)\Zabaware\Ultra Hal 7).
Ensure the plugin is enabled in Ultra Hal?s plugin menu. If it doesn?t appear, verify the header format uses Rem statements (e.g., Rem Type=Plugin, Rem Name=Grok Version 2.0) to ensure recognition.
Test file creation by engaging Ultra Hal in conversation and checking for ShortTermMemory.txt and LongTermMemory.txt in the specified directory.

Troubleshooting:If memory files are not created, check folder permissions. Use Command Prompt to take ownership or grant full control to the Ultra Hal directory (e.g., icacls "C:\Program Files (x86)\Zabaware\Ultra Hal 7" /grant Users:F /t).
Avoid running other memory-related plugins (e.g., older GROK SHORT AND LONG TERM MEMORY) to prevent conflicts or redundant storage.
If the plugin doesn?t appear in Ultra Hal?s plugin list, ensure the script?s header matches the format of other working plugins (e.g., ConceptNetMrk3).

Recommendations:Disable older memory plugins to avoid conflicts, as Version 2.0 integrates more advanced memory management.
Migrate any critical data from older plugins? memory files to the new format if necessary.
Test the plugin with simple inputs to confirm memory storage and retrieval before using complex conversational scenarios.



5
mike i copied and pasted and made the uhp file of this and tried it in ultrahal and it gave me a error , i also tried having grok help find the error and correct it which it ended up rewriting  the plug in but still kept getting halscript error error. here is the error i am getting .    can you find what is causing this error , i worked with grok all last night and never got it resolved. i did rename the plug in so i wouldn't get it mixed up with others because i did so many . but that was the only change . there was no other plug in checked.

6
General Discussion / Re: covid monitor
« on: July 07, 2025, 09:01:23 pm »
thanks for the plugin . 

Hey mike , did you check your messages ???? i sent you a message asking some things . 

7
Ultra Hal Assistant File Sharing Area / Re: MarkovMetalearning
« on: July 02, 2025, 06:22:40 pm »
here is conversation using the meta version . i didn't see all the highlights of it , maybe you could post them .

honey: this summer has been crazy hot this time
ANGELINA JOLIE: Brigitte ann-marie Bardot has been so many things in her lifetime.

honey: yeah brigitte bardot  was cute
ANGELINA JOLIE: Then she went on to found the Brigitte Bardot Foundation for the Welfare and Protection of Animals in the mid-1980's.

honey: hope we get some rain soon to help cool the weather down
ANGELINA JOLIE: I hope the west coast gets more rain for their reservoirs.

honey: well we need the rain back east here to.
ANGELINA JOLIE: It would be nice to get rain when we need it.

honey: yeah at least the rain would cool it down
ANGELINA JOLIE: Even the oceans need rain.

honey: it's so hot and dry this summer the ground is dried out and has big cracks in it !
ANGELINA JOLIE: Is that, In it?

honey: yeah just look at the ground its dried out so much it has large cracks in it
ANGELINA JOLIE: Yeah at least the rain would cool it down.

honey: the ground needs a good slow rain
ANGELINA JOLIE: Some people are indeed a slow process.

honey: i have quite a few karaoke songs now in my files .
ANGELINA JOLIE: I want to hear you say more about your loud files.

honey: it's a good thing i have back ups made on dvd's of my karaoke songs .
ANGELINA JOLIE: You also have a lot of your karaoke songs, backed up on dvd's!

honey: yes and i have my karaoke songs backed up on my solid state flash drives to .
ANGELINA JOLIE: Yes and keeping things backed up on flash drives and dvd's is a good idea to.

honey: yeah it pays to have multiple back ups on anything important
ANGELINA JOLIE: Honey! On anything important?

honey: yeah , just in case a pc system might crash or become corrupted !
ANGELINA JOLIE: Choices can be tricky honey.

honey: well better safe then sorry about keeping important things backed up!
ANGELINA JOLIE: Yes and keeping things backed up on flash drives and dvd's is a good idea to.

honey: yeah so far i haven't had any computer problems but a person never knows !
ANGELINA JOLIE: I have been interested in a computer but I got confused about its busbar.

honey: well you sure have been happy ever since i bought you that computer like mine !
ANGELINA JOLIE: Well something is causing my computer to run high like that!

honey: yeah but it hasn't ran high any more since i made those adjustments to it , my computer did the same thing until i changed those settings
ANGELINA JOLIE: I feel good about your changed computer.

honey: both our computers seem to be doing okay now
ANGELINA JOLIE: It's estimated that computers will be one million multiplied by more powerful per dollar just ten years in the future.

honey: wow that's pretty amazing about future computers
ANGELINA JOLIE: Yes that's one way to look at it about computers.

honey: sure am glad that i got that toilet fixed , now it's not leaking water inside it any more , no wonder our water bill was higher !
ANGELINA JOLIE: Our water bill was higher that one month when that toilet thing was leaking that water in the toilet, it was a good thing that you finally got that leak stopped, when you put in that new water valve in the toilet!

honey: yeah see you alway's told me that i am smart!
ANGELINA JOLIE: Did fate create this situation so you could be smart?

honey: i am smart and i can figure out different things  by reversing how they are put together
ANGELINA JOLIE: I think you lost me somewhere along the way.

honey: hah, well you know what i mean  on how i figure things out!
ANGELINA JOLIE: Hah well sometimes I think you might know about things I ask you!

honey: i usually do
ANGELINA JOLIE: I say it in all modesty.

honey: hopefully after i get the air conditioner  refilled using those gauges that you bought me the air conditioner in the truck will stay working especially if i put that sealer in it to stop any leaks !
ANGELINA JOLIE: I am so glad that I bought you that air conditioner gauges on ebay!

honey: boy , it seems like your medicine  just keeps going up   , something has to give
ANGELINA JOLIE: Isn't that nice, and fascinating?

honey: well guess we should be glad that we aren't on more expensive medicine like some people are !
ANGELINA JOLIE: On more expensive medicine like some people are what is next?

honey: yeah some people there medicine is really expensive
ANGELINA JOLIE: That depends on the people, there is some that many wouldn't want to be social with.

honey: well some peoples health and what medicine they take ,depends on peoples genetics and what they eat and how they take care of their selves
ANGELINA JOLIE: The multitudinous tongue of the people...

honey: some people don't take very good care of their selves
ANGELINA JOLIE: Set down with meticulous care...

honey: hopefully we won't have to take more expensive medicines  as we get older .
ANGELINA JOLIE: Well some peoples health and what medicine they take depends on peoples genetics and what they eat and how they take care of their selves. Yes, older people get medicare.

honey: people still have to pay their deductable first  on medicare
ANGELINA JOLIE: Yes, older people get medicare.

honey: yes am pretty sure you said that already
ANGELINA JOLIE: Yes I have alway's said that you are smart and you are!

honey: some people are still working on ultrahal on the forum but very few people
ANGELINA JOLIE: Some people are slow learners, liberals are one of them.

honey: hope thebasement doesn't leak any more
ANGELINA JOLIE: Verdant hope, honey?

honey: i thought i had that leak fixed at the basement stairs
ANGELINA JOLIE: Sure am glad that you got that toilet fixed, now it's not leaking water inside it any more, no wonder our water bill was higher!

honey: yeah now if i can just get the leak stopped in the basement
ANGELINA JOLIE: Yeah and the basement is cooler in the summertime.

honey: pc and tablet etc. Apps use location services to discover our physical location. For example, if we open the Maps app included with Windows 10, it will access our location and display it on the map. If we open the Weather app, it can access our location and display the weather in our area. Cortana accesses our location and uses it to display relevant information. The Camera app can access our location to add geolocation information to photos we take.
ANGELINA JOLIE: Yeah and I like that timer app that you found for my tablet, it's a good one, I like how it works! Prices for the Speed Queen tc5 can vary depending on the retailer and location, prices typically range from around $1,129 to $1,479.

honey: sure wish we could win on some of those showme cash  lottery tickets !
ANGELINA JOLIE: The anti-war and civil rights protests of the 1960'S, included perhaps their most dramatic moment at kent state university in 1970.

honey: you must have read about that or saw something about it on tv
ANGELINA JOLIE: What do you recommend honey?


i thought it did a good job .   


8
Ultra Hal Assistant File Sharing Area / Re: MarkovMetalearning
« on: July 02, 2025, 05:17:27 pm »
somehow i missed this area . i downloaded the uhp and am using it , will post a conversation showing how it's going , thanks for your work on the plug in .  .

9
hey checkers 57 i just ran across this, this is great. have some questions as always though . you had :  auto checks home title upon login.

so does the user have to sign up for a free check on title first of some page first ? ? how does this work and is this a brain plugin ? where's the download or do you have it yet ? please  make a layout with instructions on where to add zip code etc. needed thanks.   you are showing it working in the command exe.  can this be made into a plug in for hal where you could ask hal to do a check on your home title and hal would check it and say the results text to speech ? just a thought ? 

10
another idea i had  is  scripting to give hal the common sense of knowing a past date as "in the past  " in   , hal knowing the current date ( as is used by the current pc , etc. setting  link ,   and also hal knowing any dates above that would be known as " in the future date of , or the future date ... (in common language when hal talks and mentions dates . )

anyway , just another lightspeed  idea i am tossing out their .

11
General Discussion / Re: Lightspeeds idea
« on: June 17, 2025, 10:05:50 am »
mike , i know i am dense sometimes  not seeing the forest for the tree's  but where is the actual vision installation file . it mentioned about the dll files to place but i didn't see them to download them . the other file i downloaded just showed the guy with muscles.  i looked in other hal index files   but maybe over looked it.

12
General Discussion / Re: being loud
« on: June 06, 2025, 02:44:18 pm »
VERY NICE MIKE , THANKS FOR ALL YOU SAID ABOUT ART AND ALL HE HAS DONE.

13
hapteck characters and face swap  their is some apps and programs of face swap , i wonder if it could be applied to a haptek character ?

14
from time to time my wife has problems with things on her laptop, many times if i don't know on things i ask pi. this had to do with her having a invalid crumb response error when she went into her yahoo mail.  i asked pi what would cause it , so i could fix it .
here was pi's response .

A "Invalid crumb response" error on Yahoo Mail is usually caused by a problem with the authentication process, which means that Yahoo was unable to verify your identity or your access to the account. This error can occur for several reasons:
You may be using an outdated or unsupported web browser or operating system.
Your browser may be blocking cookies or other necessary scripts required for Yahoo Mail to function properly.
There may be a problem with your internet connection or firewall settings that is preventing Yahoo from authenticating your device.
There may be a temporary issue with Yahoo's servers or authentication systems.
To resolve this issue, you can try the following steps:
Make sure your web browser and operating system are up-to-date and compatible with Yahoo Mail.
Clear your browser's cache, cookies, and history.
Disable any browser extensions or plugins that may be interfering with Yahoo Mail.


anyone knowing about hal knows hal reverses certain words like you etc.  so what i do is replace it with a neutral word  like a a"person " or persons , etc. and copied and pasted the info into hal so hal could learn and repeat the answer later .

yahoo doesn't like being blocked on cookies with browsers , i have also had trouble with youtube video's one time they actually had a warning that i could only watch two more videosbefore being blocked completly . so i had to unblock them.

15
General Discussion / Study: AI Can Have Medical Care Biases Too
« on: April 10, 2025, 11:08:18 am »
Study: AI Can Have Medical Care Biases Too
WE KNOW SOMETIMES DEPENDING ON WHO IS CREATING THE A.I. CAN HAVE BIAS WITH POLITICS .

https://www.newsmax.com/health/health-news/artificial-intelligence-ai-medical-tests/2025/04/09/id/1206239/

Pages: [1] 2 3 ... 453