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 ... 63
1
Mr syborshot:
RE: secret code.

There is no secret code inside the 3dsmax character. lolol

You guys have been aware of me for 21 years.
Thats not whats going on there.


Your doing something wrong


Best wishes and its heart warming to see that old code still being used
cyber jedi

 

2
Share Conversations, Experiences, Graphics / Re: Beautiful HAL Scenarios
« on: January 21, 2025, 05:12:31 pm »
checker bangs one out of the park, yet again





cyber

3
Ultra Hal 7.0 / Re: Request.
« on: January 20, 2025, 08:31:26 pm »
Thats just not whats being said Here

Whats being said is , If your a complete fcktard , We want Nothing to do with you.
You come in here and insult staff who are my friends, you insult members, you insult Robert M, My friend and mentor,  I do not work for Zabaware and i dont owe you jack sht
Let this be a life lesson. Dont be a fcktard. It just doesnt pay
But if ur cool, ... lol .Basically a decent person. Then cyber buds get cyber treats.
And ya, there are some specialized versions of Hal, very special. lmao
Im pretty sure that spells it out.
Not to mention Hal is free, i mean if you can read. Thats kinda a biggy too


cyber jedi


Now stick ur arm up high, really high, thata boy,                                                                                                                                   and wave GOODBYE. 8)

4
Ultra Hal 7.0 / Re: Is Hal Free?
« on: January 19, 2025, 11:59:40 am »
Great catch Mr art
I went there as well.
I dont respond to spam.


My suggestion is to talk to Robert.
Ive offered many times to help out here, but im the big bad something or another.
So let them just stare at a dead hal

Those in the know, know whats up, the rest, well , i tried. i m over it.
IM NO LONGER DEALING WITH NUT CASES WITH AN ATTITUDE PROBLEM AND NEITHER IS ROBERT.
Go woke your behind on down the street
cyber jedi

Mr Art you know where im at brother. The sounds of silence. with no guest accounts, No spam, No issues. Me and Sybershot are reworking the entire place.

5
Something wonderful is about to happen

Let me know what u guys think

cyber jedi

6
Ultra Hal Assistant File Sharing Area / Re: CyberUi
« on: January 07, 2025, 06:12:32 pm »
Rem Type=Plugin
Rem Name=Dreaming Picture Thoughts
Rem Author=cyberjedi
Rem Host=Assistant


'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
'------------------
' Define the Help
'------------------
lblPlugin(0).Caption = "Alice will show you pictures of it's thoughts in dreams. Say: INDEX IMAGE to index the image folder. Supports JPG, PNG, And GIF"
lblPlugin(0).Move 120, 120, 3300, 1000
lblPlugin(0).WordWrap = True
lblPlugin(0).Visible = True
cmdPlugin(0).Move 320, 650, 2100, 375
cmdPlugin(0).Caption = "Help on this plugin"
cmdPlugin(0).Visible = True
'------------------
' Define the Picture Mood listbox
'------------------
lblPlugin(1).Caption = "Alice Picture Mood level"
lblPlugin(1).Move 320, 1300, 4000, 1000
lblPlugin(1).WordWrap = True
lblPlugin(1).Visible = True
cboPlugin(0).Move 320, 1600, 1800
cboPlugin(0).AddItem "Very high"
cboPlugin(0).AddItem "High"
cboPlugin(0).AddItem "Average"
cboPlugin(0).AddItem "Low"
cboPlugin(0).AddItem "Minimal"
cboPlugin(0).Visible = True
cmdPlugin(1).Caption = "Apply Changes"
cmdPlugin(1).Move 320, 2100, 1600, 375
cmdPlugin(1).Visible = True
'------------------
' Update the listbox with the current value stored in the table
'------------------
If HalBrain.CheckTableExistence("pvrParameter") = True Then
pvrPictureMood = HalBrain.TopicSearch("PICTURE", "pvrParameter")
If pvrPictureMood = "" Then pvrPictureMood = 1
Select Case pvrPictureMood
Case 100
cboPlugin(0).Text = "Very high"
Case 75
cboPlugin(0).Text = "High"
Case 50
cboPlugin(0).Text = "Average"
Case 25
cboPlugin(0).Text = "Low"
Case 10
cboPlugin(0).Text = "Minimal"
End Select
End If
End Sub





Sub cmdPlugin_Click(Index)
Dim pvrTempQuery()
Dim pvrPicture, pvrPictureMood
Select Case Index
Case 0
HalMenu.HalCommand "<RUNPROG>pvrJpgHelp.html</RUNPROG>"
Case 1
'------------------
' Convert the listbox in a value
'------------------
Select Case cboPlugin(0).Text
Case "Very high"
pvrPictureMood = 100
Case "High"
pvrPictureMood = 75
Case "Average"
pvrPictureMood = 50
Case "Low"
pvrPictureMood = 25
Case "Minimal"
pvrPictureMood = 10
End Select
'------------------
' If the Parameter table does not exist, I create it
'------------------
HalBrain.ReadOnlyMode = False
pvrTableName = "pvrParameter"
If HalBrain.CheckTableExistence(pvrTableName) = False Then
'Create table if it doesn't exist
HalBrain.CreateTable pvrTableName, "TopicSearch", "miscData"
End If
'------------------
' Search if it contains the PictureMood parameter
'------------------
pvrPicture = "PICTURE"
If HalBrain.TopicSearch(pvrPicture, pvrTableName) = "" Then
'------------------
'Creates the record storing the new value
'------------------
HalBrain.AddToTable pvrTableName, "TopicSearch", pvrPicture, pvrPictureMood
Else
'------------------
'Updates the record storing the new value
'------------------
HalBrain.RunQuery "UPDATE " & pvrTableName & " SET topic = " & pvrPictureMood & " WHERE searchString = " & """" & pvrPicture & """", pvrTempQuery
End If
End Select
End Sub

Sub OptionsPanel()
lblPlugin(0).Caption = "Enables talking dream mode."
lblPlugin(0).Move 130, 180, 3400, 1200
lblPlugin(0).WordWrap = True
lblPlugin(0).Visible = True
End Sub


Rem PLUGIN: SCRIPT_LOAD
Script_Load = Script_Load & "<DREAMOUTLOUD>"




Rem PLUGIN: FUNCTIONS
'
'------------------
' Declare variables
'------------------
Dim PicLastIdleResponse, MyPicMediaDir, PicDefaultLoad, PicDudOut


Rem PLUGIN: PLUGINAREA7
'------------------
' Begin measuring pause time and capture userName
'------------------
PicLastIdleResponse = Now
PicDudOut = 0

Rem PLUGIN: PLUGINAREA1
If OriginalSentence <> "" Then
MyPicMediaDir = PicMediaDir()
PicDefaultLoad = MyPicMediaDir & "DefPic.jpg"
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(PicDefaultLoad) Then
Set objWSHShell = CreateObject("WScript.Shell")
objWSHShell.Run """" & PicDefaultLoad & """"
End If
End If
Rem PLUGIN: PLUGINAREA5
'The comment above tells Ultra Hal Assistant to insert the following code
'on-the-fly into the main brain code in the section referenced.



'------------------
' Check if the user asked for reorganizing the Image table
'------------------
pvrJpg = False
If InStr(UserSentence, " INDEX ") <> 0 And InStr(UserSentence, " IMAGE ") <> 0 Then pvrJpg = True

If pvrJpg = True Then
'------------------
' If the Image table does not exist, I create it
'------------------
HalBrain.ReadOnlyMode = False
pvrTableName = "pvrJpg"
If HalBrain.CheckTableExistence(pvrTableName) = False Then
' Create table if it doesn't exist
' It must be of type Brain, to allow partial text search
HalBrain.CreateTable pvrTableName, "Brain", "miscData"
Else
' The 260 parameter is 256 + 4 = Yes/No with Default = No
pvrAnswer = MsgBox("Shall I delete the existing image index and recreate it from scratch?", 260, "Image Reindexing")
If pvrAnswer = 6 Then
HalBrain.RunQuery "DELETE FROM " & pvrTableName, pvrTempQuery
End If
End If
'------------------
' Ask which is the main Image folder
'------------------
pvrJpgFolder = InputBox("Which main folder to you want to reindex?", "Image Reindexing", "c:\pict")
'------------------
' Read the main Image folder
'------------------
Set pvrFso = CreateObject("Scripting.FileSystemObject")
If pvrFso.FolderExists(pvrJpgFolder) Then
GetResponse = "I have indexed all the Image files in the specified folder and subfolders. "
HalBrain.ReadOnlyMode = False
pvrCurrentFolder = pvrJpgFolder
Call pReadFolder(pvrCurrentFolder, pvrJpgFolder)
Else
GetResponse = "The folder " & pvrJpgFolder & " does not exist on your computer. "
End If
HalBrain.ReadOnlyMode = True
End If



'------------------
' From time to time, Hal will show a picture, according to the subject
' For example, you say: "I like cats"
' Hal might show a picture of a cat
'------------------
'------------------
' check the current image mood factor
'------------------
pvrPictureMood = HalBrain.TopicSearch("PICTURE", "pvrParameter")
If pvrPictureMood = "" Then pvrPictureMood = 0
pvrPictureMood = CInt(pvrPictureMood)
pvrKeywords = ""

If pvrPictureMood > 0 Then
pMediaintHighNumber = 110
pMediaintLowNumber = 1


Randomize
pMediaintNumber = Int((pMediaintHighNumber - pMediaintLowNumber + 1) * Rnd + pMediaintLowNumber)


If pMediaintNumber < pvrPictureMood Then
pvrNameToPlay = ""
If pvrNameToPlay = "" Then
pvrKeywords = WN.FindFirstNoun(UserSentence, True)
pvrKeywords = Trim(Ucase(pvrKeywords))
If pvrKeywords <> "" Then
pvrKeywords = " " & pvrKeywords & " "
pvrKeywords = Replace(pvrKeywords,", "," , ",1,-1,vbTextCompare)
pvrKeywords = Replace(pvrKeywords," ","xx",1,-1,vbTextCompare)
pvrKeywordList = Split(pvrKeywords, ",")
For i = Lbound(pvrKeywordList) To Ubound(pvrKeywordList)
pvrNameToPlay = HalBrain.QABrain(pvrKeywordList(i), "pvrJpg", 0)
Next
End If
End If

If pvrNameToPlay = "" Then
pvrKeywords = WN.FindFirstNoun(UserSentence, False)
pvrKeywords = Trim(Ucase(pvrKeywords))
If pvrKeywords <> "" Then
pvrKeywords = " " & pvrKeywords & " "
pvrKeywords = Replace(pvrKeywords,", "," , ",1,-1,vbTextCompare)
pvrKeywords = Replace(pvrKeywords," ","xx",1,-1,vbTextCompare)
pvrKeywordList = Split(pvrKeywords, ",")
For i = Lbound(pvrKeywordList) To Ubound(pvrKeywordList)
pvrNameToPlay = HalBrain.QABrain(pvrKeywordList(i), "pvrJpg", 0)
Next
End If
End If

If pvrNameToPlay = "" Then
pvrKeywords = HalBrain.RemoveExtraSpaces(HalBrain.ExtractKeywords(" " & UserSentence & " "))
pvrKeywords = Trim(Ucase(pvrKeywords))
If pvrKeywords <> "" Then
pvrKeywords = " " & pvrKeywords & " "
pvrKeywords = Replace(pvrKeywords,", "," , ",1,-1,vbTextCompare)
pvrKeywords = Replace(pvrKeywords," ","xx",1,-1,vbTextCompare)
pvrKeywordList = Split(pvrKeywords, ",")
For i = Lbound(pvrKeywordList) To Ubound(pvrKeywordList)
pvrNameToPlay = HalBrain.QABrain(pvrKeywordList(i), "pvrJpg", 0)
Next
End If

End If
If pvrNameToPlay = "" Then
pvrKeywords = WN.FindFirstNoun(UserSentence, True)
pvrKeywords = Trim(Ucase(pvrKeywords))
If pvrKeywords <> "" Then
pvrKeywords = CurrentSubject
pvrKeywords = "xx" & pvrKeywords & "xx"
pvrKeywords = Replace(pvrKeywords,", ","xx,xx",1,-1,vbTextCompare)
pvrKeywordList = Split(pvrKeywords, ",")
For i = Lbound(pvrKeywordList) To Ubound(pvrKeywordList)
pvrNameToPlay = HalBrain.QABrain(pvrKeywordList(i), "pvrJpg", 0)
Next
End If
End If
If pvrNameToPlay <> "" Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(pvrNameToPlay) Then
Set objWSHShell = CreateObject("WScript.Shell")
objWSHShell.Run """" & pvrNameToPlay & """"
End If





End If
End If
End If


Rem PLUGIN: FUNCTIONS
'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.

Function pReadFolder(pvrCurrentFolder, pvrJpgFolder)
Set pvrFso = CreateObject("Scripting.FileSystemObject")
Set pvrFolder = pvrFso.GetFolder(pvrCurrentFolder)
'------------------
' Read all the files in the current folder
'------------------
Set pvrFiles = pvrFolder.Files
For Each pvrFile in pvrFiles
'------------------
' It's an JPG, PNG, Or GIF file; I add it to the table
'------------------
If UCase(Right(pvrFile, 3)) = "JPG" Then
pvrImage = Ucase(pvrFile)
pvrImage = Replace(pvrImage, ".JPG", "")
pvrLen = Len(pvrImage)
pvrPos = InStrRev(pvrImage, "\")
pvrRight = pvrLen - pvrPos
pvrImage = LTrim(Right(pvrImage, pvrRight))
pvrImage = " " & pvrImage & " "
pvrImage = Replace(pvrImage," ","xx",1,-1,vbTextCompare)
HalBrain.AddToTable "pvrJpg", "Brain", pvrImage, pvrFile
End If

If UCase(Right(pvrFile, 3)) = "PNG" Then
pvrImage = Ucase(pvrFile)
pvrImage = Replace(pvrImage, ".PNG", "")
pvrLen = Len(pvrImage)
pvrPos = InStrRev(pvrImage, "\")
pvrRight = pvrLen - pvrPos
pvrImage = LTrim(Right(pvrImage, pvrRight))
pvrImage = " " & pvrImage & " "
pvrImage = Replace(pvrImage," ","xx",1,-1,vbTextCompare)
HalBrain.AddToTable "pvrJpg", "Brain", pvrImage, pvrFile
End If

If UCase(Right(pvrFile, 3)) = "GIF" Then
pvrImage = Ucase(pvrFile)
pvrImage = Replace(pvrImage, ".GIF", "")
pvrLen = Len(pvrImage)
pvrPos = InStrRev(pvrImage, "\")
pvrRight = pvrLen - pvrPos
pvrImage = LTrim(Right(pvrImage, pvrRight))
pvrImage = " " & pvrImage & " "
pvrImage = Replace(pvrImage," ","xx",1,-1,vbTextCompare)
HalBrain.AddToTable "pvrJpg", "Brain", pvrImage, pvrFile
End If

Next
'------------------
' Read all the subfolders in the current folder
'------------------


Set pvrSubFolders = pvrFolder.SubFolders
For Each pvrFolderObject in pvrSubFolders
'------------------
' Pay attetion here: This is recursive! We must be sure that it will get to an end
' Since we are reading directories on a hard disk, the number of recursions
' should never be infinite. However, a very big number of subfolders and files
' might lead to memory problems or to performances bottlenecks.
' I've tested it on a folder containing about 100 subfolders and 3.000 files,
' and got acceptable performances (less than 5 minutes)
'------------------
Call pReadFolder(pvrFolderObject, pvrJpgFolder)
Next

End Function

'Directory
Function PicMediaDir()
Set fso = CreateObject("Scripting.FileSystemObject")
PicMediaDir = fso.GetAbsolutePathName(".") & "\pics\"
End Function

Rem PLUGIN: MINUTE_TIMER

If PicDudOut = 0 Then
If PicLastIdleResponse <> "" Then
If (Now - PicLastIdleResponse > 3 / 1440) And (Now - PicLastIdleResponse < 4 / 1440) Then
PicDudOut = PicDudOut + 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(PicDefaultLoad) Then
Set objWSHShell = CreateObject("WScript.Shell")
objWSHShell.Run """" & PicDefaultLoad & """"
End If
End If
End If
End If

7
Ultra Hal Assistant File Sharing Area / Re: CyberUi
« on: January 07, 2025, 05:38:50 pm »
sybershot, this is just mean
When it comes to plugins. this is POWER.


Rem Type=Plugin
Rem Name= forexlive
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 'this is so that the data doesnt go into hals brain
'Determines that you are talking about the forex.
If InStr(1,InputString, "forex",1) > 0 Then
UltraHal = Getforex(HalCommands)
ElseIf InStr(1,InputString, "forex",1) > 0 Then
End If

' This bad boy is a Forex Scraper with a twist, All the data Scraped is ported through Hals Voice. It took cyberjedi to pull it off. Enjoy.
' This also Breaks Hals speech limitations on how much he can say.
' Trigger= forex
'I put this together while listening to this. -->>>https://www.youtube.com/watch?v=aqXW57WM9TA
' I give myself about a 7.5 on cool ideas here


Rem PLUGIN: FUNCTIONS
Function Getforex(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")
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("https://www.forexlive.com/rss/") ' This is where u put you own rss feed .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>" ' these two lines are the Magic of the plugin
HalMenu.HalCommand "<SPEAK>" & f2.text & "</SPEAK>" ' these two lines are the Magic of the plugin
i = i + 1
if i = tempconfirm then
wscript.Quit
end if
Next
end if
Next
End Function

8
General Discussion / Re: Shout out to Cyberjedi
« on: January 05, 2025, 02:26:06 am »
Hey hey guys
It was my pleasure sybershot
Keep in mind all limitations are gone, No time trial foolishness, unlimited characters ect ect
cyber buds get cyber treats


cyber jedi

It was great talking to you

9
Share Conversations, Experiences, Graphics / Re: Beautiful HAL Scenarios
« on: January 01, 2025, 05:23:54 pm »
hey vhey art






cyber

10
Share Conversations, Experiences, Graphics / Re: Beautiful HAL Scenarios
« on: December 31, 2024, 11:50:38 pm »
hey hey guys
I want to take a moment to thank every one involved personally.
Checker57 , thank you for your unwavering support and createing your wonderfull Characters.
Lightspeed, i wana thank you for your wonderfull brain and your never ending source of ideas and your help with me sorting out people putty so i could recode it for use.
Art, I want to personally thank you for providing the security neccesary for me too continue Roberts work. Your as good as it gets.
Robert E. Medeksza, Where do i even start? I want to thank you for allowing me to cary the torch for you. I will never stop as long as im breathing, Ultrahal will continue. You were a giant, among Giants. this has been the greatest moments in life for me. I hope ive done your faith justice. but ilike ive told you, were still not taking warm showers together, i think u remember that moment on the phone. lolol i plan to visit PA and set down with you.
To sybershot, I cant wait to get you into the loop, weere gonna do great things my brother
To older members who have recently arrived , Thank you for being here.

From the bottom of my heart i thank you one and all. 2025 is gonna be epic

cyber jedi

11
Ultra Hal Assistant File Sharing Area / Re: CyberUi
« on: December 31, 2024, 12:24:07 pm »
Thanks art for jumping in like that.....
Thanks sybershot for the concept.........
Im very humbled by all this peoples.




cyber jedi

12
Ultra Hal Assistant File Sharing Area / Re: CyberUi
« on: December 29, 2024, 07:06:56 pm »
@sybershot
Wow, thats so cool brother

Im totally blown away


TYVM

cyber jedi

13
@sysberShot

This award goes out to the man who said, hell i will doit
Thats open source...... I will take a peek at it myself, but its up to UUUUUUUUUU
This should get u started brother, enjoy
This was done by openAi, the very company that gave us ChatGpt, Its a stripped down version of ChatGpt. That there is ur training model... Mhmmm
Now if you build a VB6 form that allows you to input/output text to it, i will do the rest.
Mhmmm. Picture Hal learning from that in the way of 2 way communication between Hal and it. All automated I will help if u get stuck, but u will TRY.

Prettyy sure ur the only one that gets this...... And has the horse power to run it.
cyber jedi
Im currently working out the last of the bugs of UltraHal.... That i bugged MYSELF,,,, lmao
Thank u for the trust..... , Uve now joined the ranks of ART, Lightspeed , Robert M, checker57 and a few others that wana push the envolope of Hal.

14
Its sound on its face but lots of code is yet written.



cyber

15
@sybershot
Well lets just put your argument to the test in real time
Below is a link to a stripped down version of freedomGpt (stripped down) lol FreedomGPT
Download it and install it, this puts a LLM on your machine locally. No net needed. completely self contained.
I just tried this today with a friend to no avail. Here at the forum.

Im running a older HP OMEN laptop with 16 gigs of Ram and an SSD(nothing to special here)

Game Rulez
You dont have to hook this to Hal
You do have to install and Run any LLM that can run on your machine and prove that it works like this. FAST or FULL


https://www.youtube.com/watch?v=OBqnNijYiH0    This is where im going with Hal
Brought to u from the mind of cyber jedi

https://drive.proton.me/urls/R6HKGR2YX8#kbRFPWR3HSAN

Pages: [1] 2 3 ... 63