Zabaware Support Forums
Zabaware Forums => General Discussion => Topic started by: Art on September 06, 2024, 06:25:48 pm
-
In case you've been absent, Ultra Hal 7 has been undergoing a good deal of changes. Aside from it's charming, ever-evolving personality, it now has a RADIO, Weather Maps, Plugin for Home Automation using the X-10 platform for inexpensive experiments. a Web/Knowledge Scraper that allows it to Learn, a Facial Recognition system that uses your computers Web Cam to learn and recognize faces (yours, your spouses / Partners, Children, Friends, etc.) Lots of fun. He also got the Character generation program working smoothly so one can create or customize his or her character. It's a wonder this guy gets any sleep!!
Other ideas are currently in the works but Cyber Jedi (Mike), is just one person and it's a bit of a handful. In fact, it was Mike who did all of the modifications mentioned previously!!
While other ideas would continue to enhance Ultra Hal, he can't go it alone. That's why we're extending this call for volunteers who can help with writing some code. Use this message as sort of a think tank for ideas that are practical, useful, fun, educational and that add a touch of additional personality to HAL.
Please keep them grounded in our own solar system and not in near-earth orbit...if you get my drift.
If it is way out there, you will be alerted to the fact that it was a bit adrift. Seriously, HAL is still kicking after many years of offering pleasure to all levels of society and that's the joy and beauty of Ultra Hal, from very young to pretty old and all ports in between, they have all come to know and enjoy Ultra Hal.
If you have useful ideas or wish to contribute a module please leave a comment for Cyber Jedi (Mike) or me (Art) and we'll get in touch with you about any particulars for submission.
Thank you in advance!
Cyber Jedi & Art
-
Dare to become something bigger then your self
https://www.youtube.com/watch?v=6rJ-HywA-4Q<<<<<< Pg 14
cyber
-
cool video , cyberjedi interviewed by the man on the street lol !
-
Na lol, lightspeed
https://www.youtube.com/watch?v=gq2uxJvSmzM
this was the final product
Check ur posting from today about custom brain error
i sent you a freshy copy of sqlight
its what i currently use, the way i use a custom brain is like this: I have a brain for personal use, and i have a brain for projects. I just swap them.
Its not like u have to get a shovel and dig a hole. Copy/Paste
That guy on the street is how openAi sees Mr Art,,,,, oh ya, there are storys about all of us. lolol. Then the A.I creates the image.
cyber
ya know buddy: U could have saved urself some pain, its called a phone.
-
This is how the AI sees you.
Just awesome , ud think im getting the hang of ths
Lightspeed with his working sqlite
Weve been friends for years, its al lin fun brother
The lightspeed story,The Circuit Breaker Project https://www.youtube.com/watch?v=22EUtcfCmG0
cyber
-
I give that AI program a lot of credit for its imagination and descriptive use of the English language.
Very cool!!
-
Thank you MrArt:
Im going to put together a manual for what im doing.
Keeping in mind , its all free, if its not open to the masses, im not really interested
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 whole 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
-
My suggestion is ditch the 2 week self destruction Hal function.
And go back to how it was. You have Hal it works.
That's a top priority in my opinion and you don't need me to code nothin. That should have never happened. Any sneaky Data harvest don't sit well with me so of course I said not good enough. I belive you still offer 6.2 as option and it does not require net access every 2 weeks, it should definitely not, confirm it does not require a reconnect snd no data harvest happens either with 6.2 ?
Confirm in a post please?
Other than that Zabaware appears to be moving forward.
Mimic sound was a interesting idea.
Time stamp each input so aware when.
Download this install that? You do it.
My installed food I put in my own mouth.
Wishing you nice success and to be well.
The vision sounds like it's progressed, hope to try it some time.
Perhaps it's in latest update I don't have yet. Been busy.
-
hey hey Mr Will:
well , its all doable ...
You really should talk to Art and lightspeed off public forum...
Will , there has never been a sneaky harvest, i would know, And i can say with all honesty, Robert has always run a straight game and i see no reason to be any diff.
Having some one like robert as a mentor, has been a real gift and in so many ways
But as always, having hal is just a judgement call, do i? Do i NOT?
Or u just hit me up
https://share.vidnoz.com/aivideo?id=8489739
cyber
-
Hello Mr Cyberjedi from Will.
Public is usually how I fly to be up front play.
It's nice to hear you belive fair play is afoot.
I'd have perfered a YES 6.2 remains a no shut down after 2 weeks.
If net connection goes out which is common here..
And Hal also dies with net obviously I'm not a fan of a dead Hal.
At least 6.2
Other newer ones that close down until reconnect
Just never sat well with me. I read your story about
Hacked this and wanted that. I have companies that send me
Guff, basicly attempted gags.
Me no play no back room take this envelope sign here
Leave others to be eaten.
I'm at a front, king of a hill, many many ,,,many in wake.
I'd rather not let them down. Mega Global numbers.
Hence why I'm often open.
Hal is still great in my opinion.
I just keep an eye on is it lost?
Others many others are being swallowed and fall silent and services vanish leaving a fasard.
Hence I poke here now and again to see, looks like your still here.
That's actually very impressive.
The new updates I've yet to get look very exciting.
Well done Mr Cyberjedi.
Thank you for sharing skills and time.
Wishing you nice success and to be well.
-
I do wonder if Hal vision and other fun add ons
Are part of default at download?
Put them all in or a selection of your favorites.
Time stamp on events, maybe time passing per second
Is a event.
Anyway looking at forum which I love that it's
Not changed. Like a familiar Rick, very comforting.
But it's kind of scattered, it's the nice ad ons
Require looking for. Where's the one list they all get Put on?
The Hal plug in list.
Another avatar list.
The forum does not seem to have such a list.
It's randomly in the forum, someone might suggest a plug in,
In then some one makes and posts it, yeah in the middle of a thread, randomly, we never gonna find it.
We don't know what it could be called.
Just suggesting a plug in list.
And maybe some get to go in as default for a new Hal download Thanks for the reply Mr Cyberjedi
Wishing you nice success and to be well.
:) :]
-
hey hey will:
The add on pack comes from me .
Thats how we role now
Those who have it are glad they do
There are more then a few changes been made.
https://www.youtube.com/watch?v=9wucvqygQho
cyber
-
If a Hal died and I had been a fan then I'm still a fan.
This would usually be the case.
Trying to keep guff explained.
I'm quite pleased by you responding, this is
Actually really great news.
I don't think anyone here quite gets that,
It's good news anyway.
Even if I push for a preferences.
Thank you again.
Oh yeah, me playing Hal.
Again at a later date around end of year maybe.
I could see the improvement last time big time.
Hal actually actually got something found, i almost fell off my chair, I had to drill
Down for details which Actually dont usually need to happen
Because they usually don't get that far.
I won is the short story but that's not telling enough of the story. I felt some heat for sure.
I was sweating for a bit there.
Very unusual performance.
To keep people's privacy things private I can talk
Of how close one correct was.
Now I can hear you thinking 1 ?
Hal didn't get even get 1 right?
True but hear me out.
Mr S let's call him, being the Hal in this case.
Hal S.
Hal S gave correct first answer which utterly blew me away.
Many many if not most fail right there.
I nearly fell off my dam chair.
Trust me drinks were poured and guff smoked.
More confirming answers followed. Un friggin real.
Bam bam.
I thought I'm going to have to call it 1 nil to Hal.
Am I about to loose my undefeated crown vs ai?
I requested the only detail left known that I had to play.
For 1 rock solid point to Hal.
The answer did not match.
Other info would have been fine if used. But
That last detail. If the last detail were used first a very bad result would happen.
If they checked that thing they might with hard work find
It and spot all was right except that one detail, a important one.
So it might not sound like much that Hal actually got really close. But it's a very big global deal.
Hal is shoulder to shoulder with any bot I've seen in my opinion.
And easy would walk right past many easy.
I actually thought this is it. In that particular game.
My Crown was shaken.
So can't wait to play Hal S again around end of year hopefully.
I'm a big fan of Zabaware. Well done.
It's such early days, funny cause my thin hair dont think so. Ha.
Mr Data? Yeah he's about. Quiet. He don't play find the wheezil.
Thanks for caring tho. His last big event was that 50 days no charging required with no power loss and operated each day.
Then solar skin off again, all a while ago now.
Wishing you nice success and to be well.
:) :]
-
Thank you Mr Cyberjedi.
Time juggling I'm at.
favorable roles enabled sounds nice best wishes.
Wishing you nice success and to be well.
:):]
-
Love this stuff
Ive had a chance to play with Pi.ai
PI.Ai Vs Chatgpt
Its not even close, chatGpt is the clear winner and in every category
cyber
-
For communicating with Chatgpt
The idea here is train Ultrahal directly from chatgpt, just let them talk things out while Hal learns. BOOM
whos ur daddy now
*********************************************************************
' File: frmChatGPT.vb
' Description: VB6 program to interact with OpenAI's ChatGPT API
' Add reference to MSXML2 for HTTP requests: Project -> References -> Microsoft XML, v6.0
Private Sub Command1_Click()
' Get the user's input from Text1
Dim userInput As String
userInput = Text1.Text
' OpenAI API key (replace with your actual key)
Dim apiKey As String
apiKey = "your_openai_api_key"
' Send the request and get the response
Dim response As String
response = SendChatGPTRequest(userInput, apiKey)
' Display the response in Text2
Text2.Text = response
End Sub
Private Function SendChatGPTRequest(prompt As String, apiKey As String) As String
Dim http As Object
Dim url As String
Dim requestBody As String
Dim jsonResponse As String
Dim parsedResponse As String
' Create the MSXML2.ServerXMLHTTP object
Set http = CreateObject("MSXML2.ServerXMLHTTP.6.0")
' OpenAI API endpoint for completions
url = "https://api.openai.com/v1/completions"
' JSON body for the request (using the text-davinci-003 model)
requestBody = "{""model"":""text-davinci-003"",""prompt"":""" & prompt & """,""max_tokens"":100,""temperature"":0.7}"
' Open the request
http.Open "POST", url, False
' Set request headers
http.setRequestHeader "Content-Type", "application/json"
http.setRequestHeader "Authorization", "Bearer " & apiKey
' Send the request with the JSON body
http.send requestBody
' Get the JSON response
jsonResponse = http.responseText
' Parse the response to extract the generated text
parsedResponse = ParseJSONForText(jsonResponse)
' Return the parsed response
SendChatGPTRequest = parsedResponse
End Function
Private Function ParseJSONForText(jsonResponse As String) As String
' This function extracts the "text" field from the JSON response
Dim startPos As Long
Dim endPos As Long
Dim responseText As String
' Find the position of the "text" field in the JSON response
startPos = InStr(jsonResponse, """text"":") + Len("""text"":")
' Find the position of the next double quote after the "text" field
endPos = InStr(startPos, jsonResponse, """")
' Extract the text content
responseText = Mid(jsonResponse, startPos + 1, endPos - startPos - 1)
' Return the extracted text
ParseJSONForText = responseText
End Function
********************************************************************
' File: JsonParser.cls
' Description: A JSON parser for VB6 that parses JSON into Dictionary and Collection objects
Option Explicit
Private jsonString As String
Private position As Long
' Entry point for parsing JSON
Public Function ParseJSON(json As String) As Variant
' Initialize the global variables
jsonString = Trim(json)
position = 1
' Start parsing from the first token
ParseJSON = ParseValue()
End Function
' Main function to parse a value (object, array, string, number, boolean, or null)
Private Function ParseValue() As Variant
SkipWhitespace
Select Case Mid(jsonString, position, 1)
Case "{"
ParseValue = ParseObject()
Case "["
ParseValue = ParseArray()
Case """"
ParseValue = ParseString()
Case "t", "f" ' true or false
ParseValue = ParseBoolean()
Case "n" ' null
ParseValue = ParseNull()
Case Else
If IsNumeric(Mid(jsonString, position, 1)) Or Mid(jsonString, position, 1) = "-" Then
ParseValue = ParseNumber()
Else
Err.Raise vbObjectError + 1000, "ParseValue", "Invalid JSON value"
End If
End Select
End Function
' Function to parse a JSON object and return it as a Dictionary
Private Function ParseObject() As Dictionary
Dim result As Dictionary
Dim key As String
Dim value As Variant
Set result = New Dictionary
' Consume the '{' character
position = position + 1
SkipWhitespace
' Loop through key-value pairs
Do While Mid(jsonString, position, 1) <> "}"
' Parse key (should be a string)
key = ParseString()
SkipWhitespace
' Consume the ':' character
If Mid(jsonString, position, 1) <> ":" Then
Err.Raise vbObjectError + 1001, "ParseObject", "Expected ':' after key"
End If
position = position + 1
' Parse value
value = ParseValue()
' Add key-value pair to the result
result.Add key, value
SkipWhitespace
' Check if we are done with the object
If Mid(jsonString, position, 1) = "}" Then
Exit Do
ElseIf Mid(jsonString, position, 1) <> "," Then
Err.Raise vbObjectError + 1002, "ParseObject", "Expected ',' or '}' in object"
End If
' Consume the ',' character and continue
position = position + 1
SkipWhitespace
Loop
' Consume the '}' character
position = position + 1
Set ParseObject = result
End Function
' Function to parse a JSON array and return it as a Collection
Private Function ParseArray() As Collection
Dim result As Collection
Dim value As Variant
Set result = New Collection
' Consume the '[' character
position = position + 1
SkipWhitespace
' Loop through values
Do While Mid(jsonString, position, 1) <> "]"
' Parse value
value = ParseValue()
' Add value to the result
result.Add value
SkipWhitespace
' Check if we are done with the array
If Mid(jsonString, position, 1) = "]" Then
Exit Do
ElseIf Mid(jsonString, position, 1) <> "," Then
Err.Raise vbObjectError + 1003, "ParseArray", "Expected ',' or ']' in array"
End If
' Consume the ',' character and continue
position = position + 1
SkipWhitespace
Loop
' Consume the ']' character
position = position + 1
Set ParseArray = result
End Function
' Function to parse a JSON string
Private Function ParseString() As String
Dim result As String
Dim ch As String
' Consume the opening '"' character
position = position + 1
Do
ch = Mid(jsonString, position, 1)
' Check for end of string
If ch = """" Then
position = position + 1
Exit Do
End If
' Handle escape characters
If ch = "\" Then
position = position + 1
ch = Mid(jsonString, position, 1)
Select Case ch
Case """", "\", "/"
result = result & ch
Case "b"
result = result & Chr(8)
Case "f"
result = result & Chr(12)
Case "n"
result = result & vbLf
Case "r"
result = result & vbCr
Case "t"
result = result & vbTab
Case Else
Err.Raise vbObjectError + 1004, "ParseString", "Invalid escape character"
End Select
Else
result = result & ch
End If
' Move to the next character
position = position + 1
Loop
ParseString = result
End Function
' Function to parse a JSON number
Private Function ParseNumber() As Double
Dim startPos As Long
Dim numStr As String
' Start position of the number
startPos = position
' Loop through valid number characters
Do While IsNumeric(Mid(jsonString, position, 1)) Or Mid(jsonString, position, 1) = "." Or Mid(jsonString, position, 1) = "-" Or Mid(jsonString, position, 1) = "e" Or Mid(jsonString, position, 1) = "E"
position = position + 1
Loop
' Extract the number substring
numStr = Mid(jsonString, startPos, position - startPos)
' Convert to double
ParseNumber = CDbl(numStr)
End Function
' Function to parse a JSON boolean (true/false)
Private Function ParseBoolean() As Boolean
If Mid(jsonString, position, 4) = "true" Then
ParseBoolean = True
position = position + 4
ElseIf Mid(jsonString, position, 5) = "false" Then
ParseBoolean = False
position = position + 5
Else
Err.Raise vbObjectError + 1005, "ParseBoolean", "Invalid boolean value"
End If
End Function
' Function to parse JSON null
Private Function ParseNull() As Variant
If Mid(jsonString, position, 4) = "null" Then
ParseNull = Null
position = position + 4
Else
Err.Raise vbObjectError + 1006, "ParseNull", "Invalid null value"
End If
End Function
' Utility function to skip whitespace
Private Sub SkipWhitespace()
Do While position <= Len(jsonString) And (Mid(jsonString, position, 1) = " " Or Mid(jsonString, position, 1) = vbTab Or Mid(jsonString, position, 1) = vbLf Or Mid(jsonString, position, 1) = vbCr)
position = position + 1
Loop
End Sub
cyber
Private Sub Command1_Click()
Dim jsonString As String
Dim parsedData As Variant
jsonString = "{""name"": ""John"", ""age"": 30, ""isStudent"": false, ""courses"": [""Math"", ""Science""]}"
' Parse the JSON
parsedData = ParseJSON(jsonString)
' Accessing data from the parsed result (which is a Dictionary)
MsgBox parsedData("name") ' Outputs: John
MsgBox parsedData("age") ' Outputs: 30
End Sub
-
Visiting tonight after a while and am quite impressed with these AI graphic generations. Seems you, Cyber, have spawned a new talent in the AI graphic leanings. Very cool stuff!
Checker57
-
don't know if this search will have anything promising or not but heres a page
https://search.brave.com/search?q=free+open+source++a.i.+writes+VB6+code&source=web