Topics

RE: Lightspeed

Coming soon
My Dream Child
Ive added to many features to list here
New language: A complete rewrite in and up to date language
New Features:
New Geometry Engine  .GLB/.HTR
New Ultra Hal 8.0 brain
LLM Local learning, Hal evolves by using it, tested and confirmed.
GOES6 Satellite access
Streaming Radio

Hals reverse person PLUS the LLM which has its own Reverse Person code as well. Sorting all that out, well its just hard to quantify.
Robert and I are creating what i think is a master class in coding
Not to be seen anywhere else . Ultra Hal stands alone.

"quote"Isaac Asimov explored how machines might evolve past strict programming and learn from each other . (Issac we did it here. Hope we made you proud)
Pretty sure we did it first too

Cyber jedi

Ultra Hal 8.0 coming soon
Windows, Mac and Linux

Robert has ask me if i wanted to co-author the next version Ultra Hal.That's correct sports fans, you heard it rite.
I gotta say ,The Dream Team is Here. To get to produce something with the legend  Robert  Medeksza,.
This is the UltraHal wish list Version. Code named : End Game
Facial Recognition
Home Controls
Local LLM of your choice (ollama models)
Ultra Hals logic of course
DNA voice sampling for training
Encrypted Chat
News and Weather
Network Monitoring
Book Reader
Hive Mind
Wonderful Avatars
Calendar
Streaming capability's
Every feature that hal has ever had will be here plus many more

Built around the I7 processor with 8 gigs of ram. To insure that all get to play.
Bigger the machine, bigger the LLM.
Coded to Zabaware standards .

Teaser



' ============================================================================
'  IronVault - Emergency Intrusion Backup System
'  Written in Visual Basic 6.0
'
'  Monitors Windows Security Event Log for brute-force login attempts.
'  On threshold breach, compresses Documents folder and ships it to a
'  remote machine via FTP, SMB, Raw TCP, or SFTP (WinSCP COM).
'But this is just a function, it could do anything at this point, Hal could even respond to this function Vocally . Or monitor any log u might want.
'F^^&kn vb6....... lolol, gotta love it
Attribute VB_Name = "modIronVault"
' ============================================================================
'  IronVault - Emergency Intrusion Backup System
'  Written in Visual Basic 6.0
'
'  Monitors Windows Security Event Log for brute-force login attempts.
'  On threshold breach, compresses Documents folder and Hal's Dbase and ships it to a
'  remote machine via FTP, SMB, Raw TCP, or SFTP (WinSCP COM).
'
'  ALL SETTINGS ARE HARDCODED BELOW - no config file required.
Transport failover order:
'    1. SMB  (Windows share - fastest, no server software)
'    2. FTP  (raw Winsock)
'    3. Raw TCP Socket
'    4. UDP  Chunked
'    5. HTTP POST (plain)
'    6. HTTPS POST (WinINet)
'    7. SMTP Email attachment
'    8. Named Pipe
'    9. WebSocket (via HTTP Upgrade)
'   10. SFTP (WinSCP COM - requires WinSCP installed)

A tribute to the crew

Robert
Art
Lightspeed
checker57
The rest know who you are

Here we go again,another cyber release.
This is ultrahal in pure rust running on linux UBUNTU

Ollama 3.2 latest (local)
08 gigs of Ram

with Home controls
vision will be next
and of course its gonna be free
cyber says, who cant do it.

Guys/Gals

I do think its past time Hal has his own OS.
Im thinking win10 H22/Or ReactOS
This would be as an installer as such where when you installed win10, Hal would as part of win10 . Or ReactOS
An attempt to build a real time Javas
Hal installed with all his goodies an up grades,x10 for real smart home tech,vision the whole 09 yards.
Then changed into a OS installer(ISO)
LLM for LOCAL LLM models.
Be nice if Microsoft gave official permission for such.....

It would be the only one of its kind.......
As a standalone (air gap'ed) truly secure..... one machine dedicated to Hal. With his own cat6 and zwave/x10
Like ive all ways said, unplug your router and show me what you got

cyber jedi
Challenge #1  Hals input(voice systems) Hals input needs to be comparable to phones current.....
You generally
cannot use an Amazon Echo (Alexa) as a direct microphone for your PC because it's designed as a standalone device, not a PC peripheral, ((((((((((but you can use your PC's built-in mic with the Alexa for PC app for voice commands))))))))))), or use your Echo as a Bluetooth speaker for PC audio, though mic functionality remains limited. For a true PC mic, use the built-in mic or a dedicated USB mic, but leverage Alexa for PC (on supported Dell models or via alternative installs) for hands-free voice control on your computer

Challenge #2 LLM Local support(completed)

Challenge #3 Vision support (complete)

This is a Day of Days brother: My email i got today:

You have a new Marquis Who's Who Badge
For your work with Ultrahal and children with learning disability's
info@badges.marquismaterials.com
3:35 PM (3 hours ago)
to me
https://marquiswhoswho.com
https://badges.marquiswhoswho.com/Badge/honoredlistee/7768c41629d24dddbef2c4f6f13c44f7b5a26c716e3a45f1b66fb4dd052af638
͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌ ͏‌
Dear Michael Hamilton,

Your Honored Listee badge from Marquis Who?s Who is here!

Art: have no fear cyber's here.
Glad i could help out with the misunderstanding of ollama installation.

Hey hey hey guys /gals

I did this in C++ (mind warping BS lol)
With this player there is no jitterbugging crap that we all have fought over the years.Written origally for a single core single processor machine (XPsp3 Os)
How this was achieved was by grabbing the first core on your processor. Pretty nifty.Original grabs all cores and just shts the bed.
Most computer antivirus wont like downloading a .exe of any kind, feel free to send it up to Virus total for scanning.

This is not an installer its a standalone.
What this does not need is any third party software to run smoothly.... No more CAR , ect ect ect
What i did was drop it in place of the Haptek installation player and presto, I now have PP working on win10 h22 installation.
And its Smokin Fast, Mission Complete
Cyber buds get Cyber treats
Enjoy
https://www.virustotal.com/gui/file/fd79351324f9ba35d1815ec70089ade9c91d2f2f889f70f9ec2320415b61d401?nocache=1
cyber jedi
https://ai.invideo.io/watch/2S4WJy0amZM A story that needs telling

Well sports fans we got a winner>>>>>>

This is ultrahal running on both, LLM and UltraHals stock brain. You say HOW da hell?
Well, they use separate inputs, But both of the output's are handled in the same normal Hal output window.
The LLM bypasses hal's processing , BUT, It hooks Hals SAPI5 system and Hals character engine.As a result the lip syncing is spot on for both.
At any time if you wish to use Hals conventional system you use Hals normal input, which processes your text in the normal way. Pretty nifty.
The voice for  both is controlled in the conventional way.
It is my belief that this is a game changer for UltraHal.
There is no way to contaminate Hals normal brain with the LLM.
And yet you can append new memory's to the LLM simply from the LLM GUI memory manager (Facts area). Pretty nifty as well.


To my understanding there is nothing like it anywhere, As it should be.
This is all done by downloading ollama's windows installer, then follow the instructions provided.
Then accessing the GUI and select the matching LLM that you downloaded. Its just that simple.I added 05 possible LLM's ive played with for speed from the drop down menu of candidates, No end to what we can achieve here.
At some point we can connect the 02 entity's together and let Hal have conversations with each other, with the Hopes that Ultrahal will learn from the LLM. Basically Hals gonna learn to play Ping Pong with the LLM

cyber jedi

Art this is what we talked about

LightSpeed : Lets start here.lol
The triggering on this will be unique




Rem Type= Plugin                     ' PRE-PROCESS ' We want this in upper memory just like the spell checker.
Rem Name= Remembering
Rem Author=Zabaware
Rem Host=All
Rem Version=2.0

HalBrain.ReadOnlyMode = True
'Determines that you are talking about mem
If InStr(1,InputString, "Remember this:",1) > 0 Then
UltraHal = Getmem(HalCommands)
ElseIf InStr(1,InputString, "Remember this:",1) > 0 Then
End If

    HalBrain.ReadOnlyMode = False
    UltraHal = Getmem(HalCommands)

Rem PLUGIN: PRE-PROCESS

Function Getmem(HalCommands)
Option Explicit
Dim Hal, fso, memoryFile, line, userInput, foundRecall, recentMemories
Dim memoryPath
Set Hal = CreateObject("HalBrain.1")
Set fso = CreateObject("Scripting.FileSystemObject")

memoryPath = "C:\UltraHal\Memory\memory_log.txt" ' Adjust path as needed

' Simulate Hal receiving input (replace this with Hal's actual input capture if plugin-based)
userInput = InputBox("You say to Hal:") ' i have to sort this out'

' Save user input to memory
If Not fso.FileExists(memoryPath) Then
    Set memoryFile = fso.CreateTextFile(memoryPath, True)
Else
    Set memoryFile = fso.OpenTextFile(memoryPath, 8, True) ' 8 = ForAppending
End If
memoryFile.WriteLine Now & " | " & userInput
memoryFile.Close

' Try to recall something relevant from memory
Set memoryFile = fso.OpenTextFile(memoryPath, 1) ' 1 = ForReading
foundRecall = False
recentMemories = ""

Do Until memoryFile.AtEndOfStream
    line = memoryFile.ReadLine
    If InStr(line, "dog") > 0 Or InStr(line, "car") > 0 Or InStr(line, "music") > 0 Then
        recentMemories = recentMemories & vbCrLf & line
        foundRecall = True
    End If
Loop

memoryFile.Close
'HalMenu.HalCommand "<SPEAK>" & text goes here & "</SPEAK>"  ' We need to cut this in anywhere we want hal to speak
If foundRecall Then
'   MsgBox "Hal recalls:" & vbCrLf & recentMemories
    Hal.AddToBrain "I remember you said: " & recentMemories
'HalMenu.HalCommand "<SPEAK>" I remember you said:  "</SPEAK>"&recentMemories
Else
    Hal.AddToBrain "Thanks for telling me. I'll remember that."
'HalMenu.HalCommand "<SPEAK>" &Thanks for telling me. I'll remember that. & "</SPEAK>"
End If
Exit Function
###############################################################
This is a work in progress
Each time the user says something, it?s saved in a memory file with a timestamp.
The script scans for keywords to simulate recall.
If relevant memories are found, Hal references them in conversation.

Hey hey guys/gals.
This is epic cool.



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. Like and share to spread the story of the last resistance!

https://ai.invideo.io/watch/_hcXMuJ7-cb

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



https://share.vidnoz.com/aivideo?id=aishare-U6PLvwJFVqebPxcKnb7Ln4Z317254817173668486
https://share.vidnoz.com/aivideo?id=aishare-Q8mSJY9ChkP47zsICA4yI7cZ17254837343668486

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

Sup lighty
This is the latest vision instructions

drop the 02 .dll's in the correct dir and ur done
turn off all anti virus


cyber

For safe keeping and dev





IntroAnim = Array(101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130)
   
    NormalAnim = Array(130, 130)
    fromHappy = Array(208, 207, 206, 205, 204, 203, 202, 201, 200, 199, 198, 197, 196, 195, 194, 193, 192, 191, 190, 189, 188, 187, 186, 185, 184, 183, 182, 181, 130)
   
   
    AngryToSad = Array(289, 412, 413, 414, 415, 416, 417, 239)
   
    SadToAngry = Array(239, 417, 416, 415, 414, 413, 412, 289)
   
    fromAngry = Array(289, 412, 413, 414, 415, 416, 417, 239, 238, 237, 236, 235, 234, 233, 232, 231, 230, 229, 228, 227, 226, 225, 224, 223, 222, 221, 220, 219, 218, 217, 216, 215, 214, 213, 212, 130)

    fromSad = Array(239, 238, 237, 236, 235, 234, 233, 232, 231, 230, 229, 228, 227, 226, 225, 224, 223, 222, 221, 220, 219, 218, 217, 216, 215, 214, 213, 212, 130)
   
    fromSurprised = Array(208, 207, 206, 205, 204, 203, 202, 201, 200, 199, 198, 197, 196, 195, 194, 193, 192, 191, 190, 189, 188, 187, 186, 185, 184, 183, 182, 181, 130)

    toHappy = Array(130, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208)
   
    toAngry = Array(130, 252, 253, 254, 255, 256, 257, 258, 259, 260, 261, 262, 263, 264, 265, 266, 267, 268, 269, 270, 271, 272, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 287, 288, 289)
   

    toSad = Array(130, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239)
   
   
    toSurprised = Array(130, 290, 291, 292, 293, 294, 295, 296, 297, 298, 299, 300, 301, 302, 303, 304, 305, 306, 307, 308, 309, 310, 311, 312, 313, 314, 315, 316, 317, 318, 319, 320, 321, 322, 323, 324, 325, 326, 208)
   
    toSleep = Array(130, 458, 459, 460, 461, 462, 463, 464, 465, 466, 467, 468, 469, 470, 471, 472, 473, 474, 475, 476, 477, 478, 479, 480, 481, 482, 483, 484, 485, 486, 487, 488, 489, 490, 491)
    fromSleep = Array(491, 490, 489, 488, 487, 486, 485, 484, 483, 482, 481, 480, 479, 478, 477, 476, 475, 474, 473, 472, 471, 470, 469, 468, 467, 466, 465, 464, 463, 462, 461, 460, 459, 458, 130)
    sleepBreath = Array(491, 492, 493, 494, 495, 495, 495, 495, 495, 495, 495, 494, 493, 492, 491)
       
    normalBlink = Array(130, 134, 133, 132, 131, 130)
   
   
    'BreathAnim = Array(130, 139, 139, 138, 138, 138, 138, 138, 138, 138, 138, 138, 138, 138, 138, 138, 138, 138, 138, 138, 138, 138, 138, 138, 137, 137, 136, 136, 130)
    BreathAnim = Array(130, 496, 497, 498, 499, 500, 500, 500, 500, 500, 500, 500, 500, 500, 500, 500, 500, 500, 500, 500, 500, 500, 500, 500, 499, 498, 497, 496, 130)
   
    squintEyes = Array(101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130)
    happyBlink = Array(208, 209, 210, 211, 208)
    happySmile = Array(208, 207, 206, 205, 204, 203, 202, 201, 200, 199, 198, 197, 197, 197, 197, 197, 197, 197, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208)
    happyGlimmer = Array(208)
    angryBlink = Array(289, 368, 369, 368, 289)
    angrySnarl = Array(289, 370, 371, 371, 371, 371, 371, 371, 371, 371, 371, 371, 371, 370, 289)
    angryTeeth = Array(289, 288, 287, 286, 285, 284, 283, 282, 281, 280, 279, 278, 277, 277, 277, 277, 277, 277, 277, 278, 279, 280, 281, 282, 283, 284, 285, 286, 287, 288, 289)
    sadBlink = Array(239, 240, 241, 240, 239)
    sadLook = Array(239, 242, 243, 244, 245, 245, 245, 245, 245, 245, 244, 243, 242, 239)
    sadWhimper = Array(239, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 251, 251, 251, 251, 251, 251, 251, 251, 251, 251, 251, 251, 251, 251, 251, 251, 251, 251, 251, 251, 251, 251, 250, 249, 248, 247, 246, 245, 244, 243, 242, 239)
   
    surpDoubleBlink = Array(208, 209, 210, 209, 208, 209, 210, 211, 208)
   
    surpBlink = Array(208, 209, 210, 211, 208)
   
    surpAgape = Array(208, 326, 325, 324, 323, 322, 321, 320, 319, 318, 317, 316, 315, 314, 313, 312, 311, 310, 310, 310, 310, 310, 311, 312, 313, 314, 315, 316, 317, 318, 319, 320, 321, 322, 323, 324, 325, 326, 208)
   
   
    NormalViseme = Array(130, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180)
   
   
    SadViseme = Array(239, 418, 419, 420, 421, 422, 423, 424, 425, 426, 427, 428, 429, 430, 431, 432, 433, 434, 435, 436, 437, 438, 439, 440, 441, 442, 443, 444, 445, 446, 447, 448, 449, 450, 451, 452, 453, 454, 455, 456, 457)
   
    AngryViseme = Array(289, 372, 373, 374, 375, 376, 377, 378, 379, 380, 381, 382, 383, 384, 385, 386, 387, 388, 389, 390, 391, 392, 393, 394, 395, 396, 397, 398, 399, 400, 401, 402, 403, 404, 405, 406, 407, 408, 409, 410, 411)
   
   
    HappyViseme = Array(327, 328, 329, 330, 331, 332, 333, 334, 335, 336, 337, 338, 339, 340, 341, 342, 343, 344, 345, 346, 347, 348, 349, 350, 351, 352, 353, 354, 355, 356, 357, 358, 359, 360, 361, 362, 363, 364, 365, 366, 367)
    SurprisedViseme = Array(327, 328, 329, 330, 331, 332, 333, 334, 335, 336, 337, 338, 339, 340, 341, 342, 343, 344, 345, 346, 347, 348, 349, 350, 351, 352, 353, 354, 355, 356, 357, 358, 359, 360, 361, 362, 363, 364, 365, 366, 367)

hey hey guys/gals

Great things can still happen
The virus community dont like i have an exe in a zip file.
The choice is urs. But if u want to PP in style this is ur program.
Hand crafted to run on 1 core the way it was designed.

cyber

This is where ima host addons
Whats in it, Whats not done, ect ect
My only concern is who has access here

Hal Vision 100%
Hal Radio  100%
Weather    100%
Book Reader 95%
Super Scraper 100%
Singer Concept 0.0%
Cleanup and narrate the code 0.0%

cyber

Ok without further Yakin":

First off your gonna need a BS Gmail Account
Now login into Gmail, this puts u into gmail mode, do not log out. Just close out.
Now open a browser and go to OpenAi   https://chatgpt.com/

Heres the keys to the kingdom, this api has 02 modes of operation. ChatGpt 3.5 and 4.0 mini.
Chatgpt4 mini, is what ur assigned to start. After a bit of use, its gonna tell you that after so long you will have access to 4.0 mini again.
All is not over: what they have not said is that you can use the current Chatgpt forever. DoWhat? well hell , that's ChatGpt 3.5.

There gonna flash a notice when you have access to chatGpt 4.0 again.

Heres where you turn on your thinking Cap. On the left hand side of your screen upper quadrant your gonna see Explore GPT's.
Click that , About 20 different styles of ChatgPT. Including ChatGpt Therapist ? Psychologist.. LOL Hand to GOD.

What they are NOT telling you is that its all part of ChatGPT (umbrella) . meaning any interaction is the same as where you started. MHMMM
The imaging parts will only work under ChatGpt4 mini. Keep that in mind.

While Chatgpt 4 mini will produce descent images. What you after is Dall-E.
So on your chatgpt4 Mini OFF time. Engage chatGpt 3.5 to build your story. Your gonna notice that your conversations are saved on the left, this is important.
Your gonna go back and visit them.....

Once the ChatGpt 4 mini engages again, copy ChatGpt's story and open Dall-E and paste the results into the chat and say: Create an Image based on the story.
Where chatGpt4 Mini will produce a single image.
Dall-E  will produce 02 images , side by Side with an option to Download, DO SO.
Next look Under the images and your gonna see an option to Recycle the response , Producing Another SET of images . You just Made a total of 04 images.
Make sure and download the first set as it will write over the top of the others , losing the first set.

Now make another account using that BS gmail account HERE https://ai.invideo.io/workspace/928debca-d82c-41de-9fd3-6ed4b9b7aa90/v20-copilot
This is where your story will end up, and YES its free as well.

Here your gonna see a window where yo u can copy/Paste your story. Look close at the right hand lower quarter. Upto 25000 Characters allowed.
What they dont tell you is that under the FREE Version, your only allowed a max of 10 min's of video length. keep that in mind.
The lightspped video is about 4700 character's and 10:20 and they let it squeak through. heers where it gets STUPID cool.
Aside from your text, It does it ALL, the sequencing, the sound, the voices, everything. Amazing sht, just amazing.

Now with the free version ur gonna see the watermark, ect ect ect. But in reality nothing is too intrusive. look at my videos as examples.


Let us no forget this place: https://aiapp.vidnoz.com/
This place and what they give you for free is just astounding
The sign up is simple, just log into with the same BS Gmail account. 1 click. lolol.
This place is gonna give you the keys to the kingdom.... For free...lol

Here is where i did the Cyber jedi video interviews..... all free with a 720P download video option, so look for it.
For free they give you over 1265 avatar's to pick from.
The gag in this is, I like the talking PHOTOS, they warn you to act ethically. But all you need is any image from the net.
Meaning anjolina jolie , brad pitt, ect ect ect. download a full face and when you get to the Talking Photos area, Guess What.
Just upload your image and let it remove the back ground and it will do the rest.

Now it gives you a max interview of 3 minutes a day.
Not sure how many voices it gives you but its many. And you can Clone your own VOICE. lolol
ALL FOR FREE with the only effort you have is to create a BS Gmail account.


This was done in an effort to save time trouble and effort to the people in the forum. ive done all the heavy lifting for you. Ive gone down the rabbit hole on 100's of sites.
These are the spots to be , Hands down.
i hope this gives the enjoyment i think it will.
Cyber Jedi
Modify message