dupa

Recent Posts

Pages: [1] 2 3 ... 10
1
Ultra Hal Assistant File Sharing Area / Re: Grok Building for Lightspeed
« Last post by cyberjedi on July 12, 2025, 09:50:24 pm »
Lightspeed this is the updated function itself







Option Explicit

'===============================
' GLOBAL MEMORY SYSTEM
'===============================
Public responseMemory As Object
Public questionMemory As Object
Public contextMemory As Object
Public responseQuality As Object
Public shortTermMemory As Object
Public SubjectTable As Object
Public spellDictionary As Object
Public longTermIndex As Object
Public knowledgeBase As Object

Public Const MAX_SHORT_TERM As Long = 15
Public Const MAX_KNOWLEDGE_ENTRIES As Long = 5000
Public Const BASE_PATH As String = "C:\Users\airva\AppData\Roaming\Zabaware\Ultra Hal 7\ANGELINAJOLIE2050.db"

Private Const MEMORY_FILE As String = "memory.txt"
Private Const LONG_TERM_FILE As String = "memorydata.txt"
Private Const LONG_TERM_INDEX_FILE As String = "memoryindex.txt"
Private Const LOG_FILE As String = "errorlog.txt"
Private Const SPELL_DICT_FILE As String = "spell_dictionary.txt"
Private Const KNOWLEDGE_FILE As String = "knowledge_base.txt"

Private lastSubject As String
Private lastTone As String

'===============================
' MAIN ENTRY FUNCTION
'===============================
Public Function HalBrain(ByVal InputString, ByVal UserName, ByVal ComputerName, ByVal HalCommands, ByVal Holiday, ByVal HolidayType)
    On Error GoTo ErrorHandler

    Dim objFSO As Object
    Set objFSO = GetFSO()

    If Not objFSO.FolderExists(BASE_PATH) Then
        HalBrain = "Error: Brain directory does not exist. Please update BASE_PATH."
        Exit Function
    End If

    Dim tempPath As String
    tempPath = EnsureTrailingSlash(BASE_PATH) & "temp_permissions_test.txt"
    On Error Resume Next
    Dim tempFile As Object
    Set tempFile = objFSO.CreateTextFile(tempPath, True)
    If Err.Number <> 0 Then
        HalBrain = "Error: No write access to brain directory."
        Exit Function
    End If
    tempFile.Close
    objFSO.DeleteFile tempPath
    On Error GoTo ErrorHandler

    InitializeMemory

    Dim response As String
    response = EnhanceHalResponse(InputString, "Hey " & UserName & ", what's on your mind today?", "")

    HalBrain = response
    Exit Function

ErrorHandler:
    LogError "HalBrain: " & Err.Description
    HalBrain = "Oops, something went wrong. Can we try that again?"
End Function

'===============================
' INITIALIZATION
'===============================
Sub InitializeMemory()
    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")

    InitializeSubjectTable
    LoadMemoryFromFile
    LoadLongTermMemory
    LoadSpellDictionary
    LoadKnowledgeBase

    lastSubject = "Questions"
    lastTone = "Friendly"
End Sub

Function GetFSO() As Object
    Set GetFSO = CreateObject("Scripting.FileSystemObject")
End Function

Function EnsureTrailingSlash(path As String) As String
    If Right(path, 1) <> "\" Then path = path & "\"
    EnsureTrailingSlash = path
End Function

Sub LogError(message As String)
    On Error Resume Next
    Dim objFSO As Object, file As Object
    Set objFSO = GetFSO()
    Dim path As String
    path = EnsureTrailingSlash(BASE_PATH) & LOG_FILE
    Set file = objFSO.OpenTextFile(path, 8, True)
    file.WriteLine Now & " - " & message
    file.Close
End Sub

Function Min3(a As Long, b As Long, c As Long) As Long
    If a <= b And a <= c Then Min3 = a ElseIf b <= c Then Min3 = b Else Min3 = c
End Function

'===============================
' STUB FUNCTIONS (TO BE FILLED)
'===============================
Sub InitializeSubjectTable()
    ' Initialize SubjectTable here
End Sub

Sub LoadMemoryFromFile()
    ' Load memory implementation
End Sub

Sub LoadLongTermMemory()
    ' Load long-term memory
End Sub

Sub LoadSpellDictionary()
    ' Load or create spell dictionary from file
End Sub

Sub LoadKnowledgeBase()
    ' Load or build knowledge base
End Sub

Function EnhanceHalResponse(inputStr As String, greeting As String, context As String) As String
    ' Stub: Core response logic goes here
    EnhanceHalResponse = greeting & " (This is a placeholder response.)"
End Function
2
Ultra Hal Assistant File Sharing Area / Grok Building for Lightspeed
« Last post by cyberjedi on July 12, 2025, 08:09:28 pm »
Rem Type=Plugin
Rem Name= Grock
Rem Author= This is your basic plugin layout.The function call is what fires.
Rem Host=All
 
 
 
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.
 
HalBrain.ReadOnlyMode = False
'Determines that you are talking about the Grock
If InStr(1,InputString, "Grock",1) > 0 Then
 UltraHal = GetGrock(HalCommands)
ElseIf InStr(1,InputString, "Grock",1) > 0 Then
 End If
 

Rem PLUGIN: FUNCTIONS
'Rem Weather the code in the function works is another thing but as a plugin with trigger, This is correct. Triggered by the word Grock.
Function Grock(HalCommands)
 ' Global variables for memory, subjects, spell correction, and file learning
Public responseMemory As Object      ' Dictionary for responses
Public questionMemory As Object     ' Dictionary for questions
Public contextMemory As Object      ' Dictionary for conversation context
Public responseQuality As Object    ' Track response quality ratings
Public shortTermMemory As Object    ' Dictionary for recent conversation
Public SubjectTable As Object       ' Dictionary for subject-based logic (A-Z subjects)
Public spellDictionary As Object    ' Dictionary for spell checking
Public longTermIndex As Object      ' Dictionary for long-term memory indexing
Public knowledgeBase As Object      ' Dictionary for learned file content
Public Const MAX_SHORT_TERM As Long = 15  ' Increased limit for short-term memory
Public Const MAX_KNOWLEDGE_ENTRIES As Long = 5000  ' Limit for knowledge base entries
' **** USER: EDIT THIS LINE TO SET YOUR ULTRA HAL BRAIN DIRECTORY PATH ****
Public Const BASE_PATH As String = "C:\Users\airva\AppData\Roaming\Zabaware\Ultra Hal 7\ANGELINAJOLIE2050.db" ' User-specified path
Private Const MEMORY_FILE As String = "memory.txt"
Private Const LONG_TERM_FILE As String = "memorydata.txt"
Private Const LONG_TERM_INDEX_FILE As String = "memoryindex.txt"
Private Const LOG_FILE As String = "errorlog.txt"
Private Const SPELL_DICT_FILE As String = "spell_dictionary.txt"
Private Const KNOWLEDGE_FILE As String = "knowledge_base.txt"
Private lastSubject As String       ' Track last primary subject for continuity
Private lastTone As String          ' Track conversational tone for continuity

' HAL 7 Plugin Function
Public Function HalBrain(ByVal InputString, ByVal UserName, ByVal ComputerName, ByVal HalCommands, ByVal Holiday, ByVal HolidayType)
    On Error GoTo ErrorHandler
   
    ' Validate BASE_PATH and permissions
    Dim objFSO
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    If Not objFSO.FolderExists(BASE_PATH) Then
        HalBrain = "Error: The specified brain directory (" & BASE_PATH & ") does not exist. Please update the BASE_PATH in the script."
        Exit Function
    End If
    ' Check write permissions by attempting to create a temporary file
    Dim tempFilePath As String
    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 permissions for the brain directory (" & BASE_PATH & "). Please ensure the directory is accessible."
        Exit Function
    End If
    tempFile.Close
    objFSO.DeleteFile tempFilePath
    On Error GoTo ErrorHandler
   
    ' Initialize memory system
    InitializeMemory
   
    Dim response As String
    response = EnhanceHalResponse(InputString, "Hey " & UserName & ", what's on your mind today?", "")
   
    ' Return the response
    HalBrain = response
   
    Exit Function
ErrorHandler:
    LogError "HalBrain: " & Err.Description
    HalBrain = "Oops, something went wrong. Can we try that again?"
End Function

' Initialization with enhanced memory, subjects, spell dictionary, and knowledge base
Sub InitializeMemory()
    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")
    InitializeSubjectTable
    LoadMemoryFromFile
    LoadLongTermMemory
    LoadSpellDictionary
    LoadKnowledgeBase
    lastSubject = "Questions" ' Default subject
    lastTone = "Friendly"     ' Default conversational tone
End Sub

' Initialize Subject Table with weighted keywords (expanded for broader coverage)
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

' Load spell checking dictionary
Private Sub LoadSpellDictionary()
    On Error GoTo ErrorHandler
    Dim objFSO, file
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Dim path As String
    path = BASE_PATH & SPELL_DICT_FILE
   
    If Not objFSO.FolderExists(BASE_PATH) Then
        objFSO.CreateFolder BASE_PATH
    End If
   
    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 As String
        line = file.ReadLine
        Dim words As Variant
        words = Split(line, ",")
        Dim i As Long
        For i = 0 To UBound(words)
            spellDictionary.Add LCase(Trim(words(i))), True
        Next
    Loop
    file.Close
    Exit Sub
ErrorHandler:
    LogError "LoadSpellDictionary: " & Err.Description
End Sub

' Load knowledge base from brain directory files
Private Sub LoadKnowledgeBase()
    On Error GoTo ErrorHandler
    Dim objFSO, folder, file
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Dim knowledgePath As String
    knowledgePath = BASE_PATH & KNOWLEDGE_FILE
   
    ' Load existing knowledge base
    If objFSO.FileExists(knowledgePath) Then
        Set file = objFSO.OpenTextFile(knowledgePath, 1)
        Do While Not file.AtEndOfStream
            Dim line As String
            line = file.ReadLine
            If InStr(line, "key") = 0 Then
                Dim parts As Variant
                parts = Split(line, vbTab)
                If UBound(parts) = 2 Then
                    knowledgeBase.Add parts(0), Array(parts(1), parts(2))
                End If
            End If
        Loop
        file.Close
    End If
   
    ' Scan brain directory for subject matter files
    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
    Exit Sub
ErrorHandler:
    LogError "LoadKnowledgeBase: " & Err.Description
End Sub

' Learn from a specific file
Private Sub LearnFromFile(filePath As String)
    On Error GoTo ErrorHandler
    Dim objFSO, file
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    If objFSO.FileExists(filePath) Then
        Set file = objFSO.OpenTextFile(filePath, 1)
        Dim content As String, subject As String
        content = ""
        Do While Not file.AtEndOfStream
            content = content & file.ReadLine & " "
        Loop
        file.Close
        subject = DetectFileSubject(content)
        Dim key As String
        key = GenerateKey(objFSO.GetBaseName(filePath), subject)
        If Not knowledgeBase.Exists(key) Then
            knowledgeBase.Add key, Array(content, subject)
        End If
    End If
    Exit Sub
ErrorHandler:
    LogError "LearnFromFile: " & Err.Description
End Sub

' Detect subject of file content
Private Function DetectFileSubject(content As String) As String
    Dim subjects As Collection
    Set subjects = DetectSubjects(content, "")
    DetectFileSubject = GetPrimarySubject(subjects)
End Function

' Save knowledge base to file
Private Sub SaveKnowledgeBase()
    On Error GoTo ErrorHandler
    Dim objFSO, file
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Dim path As String
    path = BASE_PATH & KNOWLEDGE_FILE
   
    If Not objFSO.FolderExists(BASE_PATH) Then
        objFSO.CreateFolder BASE_PATH
    End If
   
    Set file = objFSO.CreateTextFile(path, True)
    file.WriteLine "key" & vbTab & "content" & vbTab & "subject"
    Dim key As Variant
    For Each key In knowledgeBase.Keys
        file.WriteLine key & vbTab & knowledgeBase(key)(0) & vbTab & knowledgeBase(key)(1)
    Next
    file.Close
    Exit Sub
ErrorHandler:
    LogError "SaveKnowledgeBase: " & Err.Description
End Sub

' Auto-correct misspelled words based on context
Private Function CorrectSpelling(sentence As String, subjects As Collection) As String
    Dim words As Variant
    words = Split(sentence, " ")
    Dim correctedSentence As String
    correctedSentence = ""
    Dim i As Long
    For i = 0 To UBound(words)
        Dim word As String
        word = Trim(words(i))
        If Len(word) > 0 Then
            If Not spellDictionary.Exists(LCase(word)) Then
                Dim correction As String
                correction = SuggestCorrection(word, subjects)
                correctedSentence = correctedSentence & " " & IIf(correction <> "", correction, word)
            Else
                correctedSentence = correctedSentence & " " & word
            End If
        End If
    Next
    CorrectSpelling = Trim(correctedSentence)
End Function

' Suggest correction for misspelled word
Private Function SuggestCorrection(word As String, subjects As Collection) As String
    Dim minDistance As Long, bestMatch As String
    minDistance = Len(word) + 1
    Dim dictWord As Variant
    For Each dictWord In spellDictionary.Keys
        Dim distance As Long
        distance = LevenshteinDistance(word, dictWord)
        If distance < minDistance Then
            minDistance = distance
            bestMatch = dictWord
        End If
    Next
    Dim primarySubject As String
    primarySubject = GetPrimarySubject(subjects)
    If SubjectTable.Exists(primarySubject) Then
        Dim subjectKeywords As Variant
        subjectKeywords = Split(SubjectTable(primarySubject), " ")
        Dim j As Long
        For j = 0 To UBound(subjectKeywords)
            Dim keyword As String
            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

' Calculate Levenshtein Distance
Private Function LevenshteinDistance(str1 As String, str2 As String) As Long
    Dim matrix() As Long
    Dim i As Long, j As Long
    Dim cost As Long
    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

' Enhanced learning with subject continuity and knowledge base integration
Public Sub LearnFromConversation(userQuestion As String, halResponse As String, Optional context As String = "")
    On Error GoTo ErrorHandler
    Dim correctedQuestion As String
    Dim subjects As Collection
    Set subjects = DetectSubjects(userQuestion, context)
    correctedQuestion = CorrectSpelling(userQuestion, subjects)
    Dim primarySubject As String
    primarySubject = GetPrimarySubject(subjects)
    Dim questionKey As String
    questionKey = GenerateKey(correctedQuestion, primarySubject)
    If Not questionMemory.Exists(questionKey) Then
        Dim newIndex As Long
        newIndex = questionMemory.Count + 1
        questionMemory.Add questionKey, newIndex
        responseMemory.Add newIndex, halResponse
        responseQuality.Add newIndex, 1
        If primarySubject <> "" Then contextMemory.Add newIndex, subjects
    Else
        Dim index As Long
        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 ' Update last subject
    Exit Sub
ErrorHandler:
    LogError "LearnFromConversation: " & Err.Description
End Sub

End Function
3
General Discussion / Re: covid monitor
« Last post by cyberjedi on July 09, 2025, 09:59:43 am »
guys: Check this out

https://ai.invideo.io/watch/NuEQW5DaA6C

Little some thing ima working on
Dive into the thrilling world of *Cyber Jedi: The Last Signal*, a gripping sci-fi saga where humanity battles a relentless machine uprising. Follow Michael and his allies as they face the Phantom Legion?autonomous war machines turning the world into a war zone. From the secret AI facility "The Forge" to the final, high-stakes showdown with Helios, witness a fight for survival that blurs the line between man and machine. This 3-minute 43-second cinematic journey is packed with intense action, emotional stakes, and a haunting question: can humanity truly win this war? If you love futuristic battles and AI dystopias, this narrative is for you.

cyber
4
General Discussion / Re: covid monitor
« Last post by Checker57 on July 09, 2025, 02:54:20 am »
It is great to see how you're prepping for a possible resurgence of variant Covid strains, like one I've heard the other day, Razor Throat?  ehh... can they come up with scarier names?

Let us soldier on...  HAL troops, along with Atera keeping up her part, are a joy to have, keeping our minds alive and well.

Great to see you discovering those niches that bring value to code.  Thumbs up bro.

Checker57

Note:  Redesigned an outfit I found, I think on the forums or some website for Haptek.  I have been working on trying to get the sword that goes with this outfit to "attach" properly, but it's a bear.  When I get it done someday, I'll share a pic and the attachment.
5
General Discussion / Re: covid monitor
« Last post by lightspeed 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 . 
6
General Discussion / covid monitor
« Last post by cyberjedi on July 06, 2025, 08:54:34 am »
Re: Covid-19
Because of the malware being used in this (virus) nightmare ,ive supplied both copy/paste and download options here
Just kick back and enjoy HalNews
Read time is about 5 min, but hey, its the news.
The feed updates daily.
 Enjoy the tunes here i was listening too as i prepped this for u guys https://www.youtube.com/watch?v=cCXMr7oYHsI

UltraHal will now keep u updated on the latest news concerning this virus.
Trigger is (Search for corona update)

Tested and working on 6-7
Haptek works awesome, but Msagent Shts the bed, not sure why yet..... Hmmmmm , could be my machine too,hehe
Changed the voice , seems to work fine.
cyber jedi
Code that matters.
Keep in mind im running JUST that plugin too.I have no idea what some 1 else may have setup.....
************************

Rem Type=Plugin
Rem Name= COVID-19
Rem Author= cyberjedi
Rem Host=All



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.
HalBrain.ReadOnlyMode = True
'Determines that you are talking about the Corona Virus
If InStr(1,InputString, "Search for Corona update",1) > 0 Then
 UltraHal = COVID19(HalCommands)
ElseIf InStr(1,InputString, "Search for Corona update",1) > 0 Then
 End If

Rem PLUGIN: FUNCTIONS
Function COVID19(HalCommands)
Const SVSFlagsAsync = 1
Const DontShowWindow = 0
Const WaitUntilFinished = 1
Set WshShell = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Sapi = CreateObject("SAPI.SpVoice")
   For Each Voice In Sapi.GetVoices
       i = i + 1
   Next
For loopvar = 0 to i-1
if loopvar = CInt(confirm_voice) then
Set Sapi.Voice = Sapi.GetVoices.Item(loopvar)
end if
Next
Set xmlDoc = CreateObject("Microsoft.XMLDOM") ' <<<<< Hint Hint
Set WshShell = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
HalMenu.HalCommand "<SPEAK>" & "Reading headlines !" & "</SPEAK>"
For loopvar = 0 to 2
If tempconfirm = loopvar then
if tempconfirm = 1 then
HalMenu.HalCommand "<SPEAK>" & "Currently reading " & confirm & " latest headlines" & "</SPEAK>"
else if tempconfirm = 1 then
HalMenu.HalCommand "<SPEAK>" & "Okay ." & "</SPEAK>"
wscript.quit
else
HalMenu.HalCommand "<SPEAK>" & "Currently reading " & confirm & " latest headlines " & "</SPEAK>"
end if
end if
xmlDoc.async = false
xmlDoc.load("http://feeds.bbci.co.uk/news/world/us_and_canada/rss.xml")
Set nodelist = xmlDoc.selectNodes("rss/channel/item")
i = 3
For Each item In nodelist
Set f1 = item.selectsinglenode("title")
Set f2 = item.selectsinglenode("description")
HalMenu.HalCommand "<SPEAK>" & f1.text & "</SPEAK>"
HalMenu.HalCommand "<SPEAK>" & f2.text & "</SPEAK>"
i = i + 1
if i = tempconfirm then
wscript.Quit
end if
Next
end if
Next
End Function
7
Ultra Hal Assistant File Sharing Area / Re: MarkovMetalearning
« Last post by lightspeed 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
« Last post by lightspeed 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
General Discussion / Re: Lightspeeds idea
« Last post by cyberjedi on June 28, 2025, 08:05:19 am »
The infiltration
10
General Discussion / Re: Lightspeeds idea
« Last post by cyberjedi on June 24, 2025, 11:01:57 am »
Checker joins the saga
Pages: [1] 2 3 ... 10