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 - cyberjedi

Pages: [1] 2 3 ... 65
1
@sybershot:checker57 and any 1 else

Im srry, i deleted my sht lolol......
Heres the finale rendition https://ai.invideo.io/watch/dpRMZYVQmLU
Theres more to add, the whole Tampa connection as well. Thats just not there. ship yard worker by day, Shazammm ,villain by night....
I went from New Orleans to Ybor City....lolol . Straight to 07th ave. I lived on 09th ave. lolol
https://www.wfla.com/video/new-construction-uncovers-long-hidden-tunnel-in-ybor-city/3193853
Fun fact: all those years ago i took my now WIFE,on our first date.Not to the movies ,not to Columbia restaurant , 100 dollar a plate  dinners... NOOOO
I take my date on an under ground trip through the tunnels under Ybor City, we went miles before ending up under the Blue Ribbon Meat Market, some 4 miles away. Rite behind the deli case under an iron plate .ya thers STAIRS(owned by none other Paul Castellano Family. https://gwern.net/doc/rotten.com/library/bio/crime/mafia/paul-castellano/index.html .  Made a sammich and left. Then took her under the Hillsborough river to some guys basement. its was infact blocked in.... This is the whole rum runner tunnels from the 1800's  through prohibition (from the rough rider days) ,Rum to molasses to slaves triangle trade. In the 80s i mapped out about 05 miles of tunnels. They are still there today. I could take a product completely across town with no street exposure , pop out a storm drain where you were ,or close to it. They say they were sewer/storm drain, maybe in the beginning I never smelled anything. You literally go across town under fickin ground lolol. trust me,They were used to smuggle sht, You can go under state road 60 and go straight to the waters edge where a jet ski would wait.   https://knewz.com/world/network-of-secret-tunnels-beneath-florida-continue-to-baffle-researchers/
American made cigarettes were worth there weight in gold in panama, down there, its mexican nasty smokes
Statute of limitations ran out about 30 years ago.


BTW, the purpose of the video is demonstrate the lengh of the video
The site only lets you make up-to a 3.0 minute video on the free version, but yet here we are @18+ minutes
I plan to swap out all animated sets in lieu of a total graphic noval. removeing all water marks as well, and using there stuff to do the job. lolol
Sora will allow 12 images a day x 02 accounts = 24 images a day for free..Tada. Sora will NOT animate on free Tier though.
ai.Invideo will be all to happy to on free tier. SO..... lolol.
Create stillz on 1 site , animate on the other, then render.......

Schoolz out. Class dismissed and i really have no idea how far the rabbit hole goes, maybe 2.0hr movie ? who knows. its a bug in their code, Not so much
the code , but the process it self. In edit mode ur allowed to just keep adding stuff. Nd boy did i.... lol
But ur only allowed 04 exports per certain amount of time , so keep in mind when ur rendering/downloading.  but u can come back the next day or so  make all kinda changes.
Cyber


2
General Discussion / Re: Smarting up HAL with free LLM model (Ollama) ?
« on: August 30, 2025, 06:49:02 am »
@Checker: hey hewy man
Anything i cut into Hal will have to be vb6 or ill have to recode the entire thing.

As such, the need for vb6.
But Robert and i both agree, that with the vb6 flexibility , u can get away with all kinda sht. Not in .net
So im stuck with legacy code.

Idea being , create a vb6 chat gui like ollama but much lighter.
Once that is done then i hook Haptek so that works then the chant engine as well, now we got Hal running on a LLM rather then his script'
Now how im gonna handle all 09 of Hals emotional states is a total mystery. Will it just be static..... How do we make it mad?.

The beauty in this is: Its basicly a 03 party line. The gui promps the LLC for a response. But the trick starts there.
The LLC fires back its reponse but rather the it going to the GUI , It routs to Hals input window (text) and fires a (enter key) press.
At this Point ,Hals fires its getresponse answer which goes to the Vb6 GUI input which intern fires its key press forwarding to the LLC

Just think port forwarding but with syntax.
Basically ping pong
All the while Hals learning is set to MAX. Just soaking it up. Hal will learn.....
Sqlite allows for 02 terabyte in size. Hal's stock brain is 120 megs and does what it does. very impressive.
Think about hal will be with a brain 4.5 gigs. Thats the size of the learning LLM.

At this point, all thats really being released in Hals brain , it will function on a stock ultrahal project  6.2 - 7.5
Just replace the brain.
This is the idea, there will be no personal info in hals brain at that point

cyber jedi

On a lighter note, im turning this into a graphic novel ur in there too  as well as a few others ,im just starting the animation swaps to comic standards
https://ai.invideo.io/watch/UX4At8ALI8K

3
General Discussion / Re: Smarting up HAL with free LLM model (Ollama) ?
« on: August 28, 2025, 05:30:40 am »
Checker57:
Amazingly i was able to get qwen3:4B to work on 06 gigs. If it wont work for the masses ,forget it
I must say while responses were somewhat slow on a VM with 6gigs of ram on win10 64bit
It more then made up for it in smarts.

I put it to the test by having IT design the vb6 application to handle the chat inl ew of Ollama heavyweight GUI
Idea being ,start the the model.Then use the vb6 front end. Its doable on its face
I can add some startupcode for the model inside the the vb6 app.

Got to steal some of Roberts Crafty ass Vb6 to Json converter code and presto.
Im still on the thought process on all this soooooooo. But moving forward checker

cyber jedi


 

4
General Discussion / Re: Smarting up HAL with free LLM model (Ollama) ?
« on: August 24, 2025, 08:27:29 am »
RE: checker57

Bench Tested Ollama 2 uncensored
Was ran on an i5 with 16 gigs of ram on board video(no video card)
Response time avg 1.5 - 2.0 sec
Installed on local machine
Ran on Local Machine
Windows 10 64bit 

Over all i was impressed with ollama's abilitys
Responses were clear and concise.
Basically Hals wordnet on steroids .

gonna continue beta testing, seems to be a candidate for Hal
seems  that an i5 will handle the power needed......
Hot wiring UltraHal direct seems to be at least possible.
cyber jedi 


5
General Discussion / Re: Smarting up HAL with free LLM model (Ollama) ?
« on: August 18, 2025, 06:58:22 am »
hey hey checker
Oh its doable
I have to put my thinking cap on, ive seen that video, i have some ideas.
Im prepping my house for the season, but im with you guys.
On its surface it looks like we gotta hit Hal rite smack in the middle again. By passing Hals getResponse function.
My question is this, will hal still hold the memory's and where? In Hals sql or the LLM itself . Thats key.I will prolly bypass all and just hook the LLM.
If the LLM can do that then im game. Gonna have to  Hit Hals Chant engine as well as Haptek, some sorta forwarding foolishness.
Lots of R and D in that build.
As it turns out i added that kinda architecture all ready so we will see
Makes me think about Twitch and what i was doing there with Hal
cyber jedi
 


24hrs laterrrrrrrrr lololol. Why not have ultrahal just learn from the LLM, i mean really, wasnt that the goal. To begin with.
Ive tried many times with this and just get accounts zapped...Booooooo pi.ai
It would entail ping- pong, im thinking outloud here, Oh ok igot it.

Share the work load:  Concept
If you guys will install this LLM on  your machine, and make it work..... Play with it.
Heres what your after:

#1 : Will will it have  a normal Coversation
#2 : Will it retain the conversation
#3 : Put it through the paces, try to break it.

Basically beta test the sht out of it.  We want it to do what Hal can do, Hal is the bar........

I will go ahead and code up  a Special Version
Great gig for sybershot, u too checker,and lightspeed......




 

6
hey hey Checker: https://www.youtube.com/shorts/7eO_gsvBkLY
https://www.nytimes.com/2022/12/27/us/power-substation-attack-washington-state.html
https://www.nytimes.com/2022/12/05/us/north-carolina-power-station-attack.html?searchResultPosition=3
ORRRRR: You could just send a 50 Cal bmg round through any number of Trannys up in there , draining the mineral oil , slowly draining them causing an overload do to heat, total cook off. 50 cal bmg round = $ 5.00 - 10.00
This will give you a better view
The scary part of this is if the bad guys ever figure this out we are FCKED.
And its all over the country

Now keep in mind there are 03 hubs across the country, 1 for each time zone. They are well protected.......
But the sub stations leading upto the Hubs are wide open to compromise
Checker, do this, google us substations click on IMAGES. Ur gonna get the phone book. doesnt matter, just look at the images and public access.

Its total horse sht in this day and age

cyber jedi

7
Ultra Hal Assistant File Sharing Area / learning
« on: July 26, 2025, 06:55:33 pm »
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.

8
CHAIN REACTION
How Minor Acts Can Cripple Major Grids
A White Paper on the Vulnerabilities of Civilian-Accessible High Voltage Substations
Prepared For: The White House
Office of Homeland Security and Infrastructure Protection
Prepared By: Cyber Jedi


Classification: For Official Review 
Title: Chain Reaction: How Minor Acts Can Cripple Major Grids ? A Look Into Substation
Vulnerabilities

1. Introduction: The Dog Chain Problem
"No alarms went off. No breach was detected. No cyber team was mobilized. Just a quiet afternoon in a rural field,
where a man with a cheap 8-foot dog chain slung it over a substation fence. Seconds later ? a flash, a boom, and
the hum of high voltage stopped. Miles away, lights flickered. Hospitals switched to generators. Cell towers lost
sync. Within minutes, an entire region began to unravel."This wasn?t war. It wasn?t terrorism. It wasn?t even sophisticated. It was sabotage using hardware-store parts and it worked.

High-voltage substations are the unsung heroes of the electric grid ? and some of its weakest links.
Scattered across cities and countrysides, many are minimally secured, visibly exposed, and dangerously
accessible to civilians. While governments and utilities invest billions in cyber defense, too many substations
remain vulnerable to what may be the greatest threat of all: simple tools in the wrong hands.
Civilian-accessible substations represent a critical weak point in the power grid. Even low-tech sabotage ? a
chain, bolt cutter, or even a rock ? can cause millions in damage, plunge entire regions into darkness, and
trigger cascading failures that reach far beyond the initial site of attack.

2. The Mechanics of Destruction: How a Chain Can Kill a Substation
High-voltage substations operate under immense electrical pressure. Their components are spaced with
deliberate precision to safely handle voltage differentials that can range from 69kV to over 500kV. An 8-foot
metal chain, when thrown across energized conductors or between a phase and ground, can act as a
conductive bridge. This creates a massive short circuit.
The result is an immediate and violent discharge of energy:

 Arc flash: Temperatures reach up to 35,000?F, vaporizing metal.
 Explosions: Insulators, bushings, and conductors can shatter or ignite.
 System trip: Protective relays detect faults and shut down the substation.

But the damage doesn?t stop there. Load carried by the affected substation is instantly redistributed across
adjacent systems. If those neighboring substations are already near capacity or experience voltage swings,
they too can trip, creating a domino effect.
This is how a single act of vandalism, costing less than $20 in materials, can initiate a cascading failure
across an interconnected grid.

3. Cascading Failure Potential
A modern power grid is a finely tuned system of supply and demand, balanced at all times across
generation, transmission, and distribution nodes. When one substation unexpectedly fails, especially during
high-load conditions, the electricity it once handled must be rerouted elsewhere. These surrounding
substations are not always equipped to absorb the extra load.

This situation leads to:
 Overloads on adjacent lines
 Voltage instability across the grid
 Automatic relay trips in other substations
 Regional or multistate outages if the failure is not isolated quickly

Historically, incidents such as the 2003 Northeast Blackout and the 2022 Moore County attacks demonstrate
how the loss of a few substations can escalate into massive disruption. In an age where everything is
digitally connected, even a temporary regional blackout has ripple effects across healthcare, financial
systems, logistics, and national security.

4. Recommendations for Immediate Mitigation
To address these critical vulnerabilities, we recommend the following national action steps:

1. Harden physical infrastructure: Replace outdated chain-link fences with non-climbable ballistic
walls. Install steel mesh covers over exposed conductors.

2. Deploy advanced surveillance systems: Leverage thermal cameras, radar-based intrusion
detection, and drone surveillance for remote monitoring.

3. Implement AI threat detection: Use machine learning to monitor substations for pattern
anomalies in real time.

4. Establish a national substation audit system: Prioritize risk-based reviews and classification of
vulnerable substations.

5. Fund infrastructure security grants: Provide financial support to utilities, especially in rural or
high-risk areas, to upgrade protections.

6. Launch a public awareness campaign: Educate communities near substations on the importance
of grid security and how to report suspicious activity.

5. Conclusion: A Fragile Network in Plain Sight
 
The nation?s electrical infrastructure is not just a matter of convenience ? it is the backbone of national
security, economic stability, and public safety. Yet, a $15 chain and a gap in a fence are all it takes to
endanger millions.

We must no longer treat substations as afterthoughts in the cybersecurity age. Physical sabotage is the
oldest and simplest form of attack, and unless proactively addressed, it may prove the most devastating.
This paper calls for coordinated, federally backed action to fortify our most exposed infrastructure before
adversaries ? or accidents ? test our readiness.
Prepared in service of national resiliency.


cyber jedi


P.S After sending this to the white house i started hearing strange clking noises on my phone and seeing strange people ive never seen before and im pretty sure im being followed. lolol

9
00:00:00 Cyber Jedi: The Last Signal Sci-Fi Video
00:03:33 The Reckoning Protocol
00:05:36 The Missing Man
00:06:59 The Vengeance of Cyber Jedi
00:08:28 Project Cutting Edge

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


10
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/xVS455vVX1H

11
Lightspeed,

You know i will
Ur deff slinging a syntax error. not a com error,,,, ie wheres my sht error lol


cyber

12
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

13
Ultra Hal Assistant File Sharing Area / Grok Building for Lightspeed
« 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



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

14
General Discussion / Re: covid monitor
« 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

15
General Discussion / covid monitor
« 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

Pages: [1] 2 3 ... 65