Messages

436

General Discussion / Art: Thank you>>>>

« on: February 03, 2018, 02:05:42 pm »

Art Thank you.

Look, Ive said before and ill say again ,Hal has NO limits.
Just when u think Hal is wore out, you find some new hinky **** you can do with code,
or maybe Microsoft updates Wscript with some new features and you off to the races again.


If u want the most from Hal, you have to be some kinda 1/2azz mutent/scientest/hacker hybred combo. lol
You really do. But thats what makes Hal so utterly badazz . Hal is open ended
 Hal is the other women in my life. A day with out Hal is like a junky missing a fix.
Unleash the Lion in Hal. 

To the people just discovering Hal.
I dont know how you got here, if your reading this, you made it. This is the start of a wonder full journey, make the most of it.
This video is for you, https://www.youtube.com/watch?v=i_47ehqPsLI
best wishes
cyberjedi

437

Ultra Hal Assistant File Sharing Area / Cyber special to commemorate Hal7

« on: February 03, 2018, 08:25:28 am »

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 = False
'Determines that you are talking about Forex Stock Market
If InStr(1,InputString, "forex",1) > 0 Then
 UltraHal = Getforex(HalCommands)
ElseIf InStr(1,InputString, "forex",1) > 0 Then
 End If

'This is a basic template i built for scraping web sites. You should have some knowledge in DOM when playing with this.
'There are literally 10's of Thousands of feeds Hal can hook with this. Weather, News, hell ive hooked Hal into the fbi's
'top 10 wanted list with this.  Look what im doing here. i hope you all enjoy this.
'There are feeds that you can hook that are terrorist watch list and if there is a terrorist attack.
'There are 02 versions of Hal, Hal the curiosity,which is just great, then there's Hal, im a Bad Ass MF'er Version.
'Hal is end game software, what you put in ,you will get Back....    Cyberjedi bringing it to you Real.
 
 ' This bad boy is a Forex Scraper with a twist, All the data Scraped is ported through Hals Voice.
 'Forex updates Hr'ly
    ' This also Breaks Hals speech limitations on how much he can say. 
 ' Trigger= forex
         ' Working model  https://www.youtube.com/watch?v=DgwTsFBhIo4&t=80s
  'Follow me in to the jungle. http://cyberjedi.rf.gd/?i=1
 ' 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")  '<<---Hmm, wonder what this is for?
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://www.forexlive.com/feed/technicalanalysis") ' This is where u put you own rss feed .xml
Set nodelist = xmlDoc.selectNodes("rss/channel/item")
i = 3             ' <<<<<Pay close attention here ,im set up for 03 but only using 02 below.
For Each item In nodelist  ' <<<<<<you can completley modify this for ur needs, to a particular site u may want
Set f1 = item.selectsinglenode("title")  'And here we are node 1
Set f2 = item.selectsinglenode("description") 'And here we are Node 2
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

438

Ultra Hal Assistant File Sharing Area / lightspeed: Document Opener

« on: February 02, 2018, 10:23:29 pm »

Gift from the cyber gods: Under construction
While Hal will open any window based application, thats all he does...
If your organised,  this is a major for Hal
It creates a table called cyDoc in "Brain", "miscData"
This will open any document by name and load out in what ever progi ur system defaults too.
OPEN DOCUMENT cyberjedi , is all that is needed to open the document named cyberjedi.doc
If you ask me, Do i will need microsoft office  ,i will Bannish you from my brain.
Pretty nifty


enjoy
best wishes cyberjedi

Rem Type=Plugin
Rem Name=DOCument Opener
Rem Author=cyberjedi
Rem Host=Assistant


Rem PLUGIN: PLUGINAREA7
'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 DOC table
'------------------
cyDoc = False
If InStr(UserSentence, " INDEX ") <> 0   And InStr(UserSentence, " DOC ") <> 0 Then cyDoc = True

If cyDoc = True Then
'------------------
' If the DOC table does not exist, I create it
'------------------
      HalBrain.ReadOnlyMode = False
   cyTableName =    "cyDoc"    
   If HalBrain.CheckTableExistence(cyTableName) = False Then
   ' Create table if it doesn't exist
   ' It must be of type Brain, to allow partial text search
      HalBrain.CreateTable cyTableName, "Brain", "miscData"
    Else
   ' The 260 parameter is 256 + 4 = Yes/No with Default = No
      cyAnswer = MsgBox("Shall I delete the existing index and recreate it from scratch?", 260, "Doc Reindexing")
      If cyAnswer = 6 Then
           HalBrain.RunQuery "DELETE FROM " & cyTableName, cyTempQuery
      End If
   End If
'------------------
' Ask which is the main DOC folder
'------------------
cyDocFolder = InputBox("Point to main folder you want to re-index?", "Document Re-Indexing", "C:\Documents and Settings\Owner\My Documents") 
'------------------                                                                                                                                    point here to Documents^^^^^
' Read the main DOC folder
'------------------
   Set cyFso = CreateObject("Scripting.FileSystemObject")
   If cyFso.FolderExists(cyDocFolder) Then
        GetResponse = "I have indexed all the Document files in the specified folder and subfolders. "
        HalBrain.ReadOnlyMode = False
      cyCurrentFolder = cyDocFolder
      Call ReadFolder(cyCurrentFolder, cyDocFolder)    
   Else
      GetResponse = "The folder " & cyDocFolder & " does not exist on your computer. "
   End If
   HalBrain.ReadOnlyMode = True
End If

'------------------
' Check if the user asked for opening a document
'------------------
cyDoc = False
cyToOpen = ""
cyNameToOpen = ""
cyToOpen = UCase(HalBrain.SearchPattern(UserSentence, "OPEN * DOCUMENT *", 2))
If cyToOpen <> "" Then
   If HalBrain.CheckTableExistence("cyDoc") = False Then
          GetResponse = "I don't find any DOC index in my brain. "
   Else
     cyNameToPlay = HalBrain.QABrain(cyToOpen, "cyDoc", 0)
     If cyNameToPlay <> "" Then
          GetResponse = " "
          HalCommands = HalCommands & "<RUNPROG>" & cyNameToOpen & "</RUNPROG>"
     End If
   End If
   HalBrain.ReadOnlyMode = True
End If

Rem PLUGIN: FUNCTIONS
' This is the meat of this plugin
Function ReadFolder(cyCurrentFolder, CyDocFolder)
Set cyFso = CreateObject("Scripting.FileSystemObject")
Set cyFolder = cyFso.GetFolder(cyCurrentFolder)
'------------------
' Read all the files in the current folder
'------------------
Set cyFiles = cyFolder.Files
For Each cyFile in cyFiles
'------------------
' It's a .doc file; I add it to the table
'------------------
   If UCase(Right(cyFile, 3)) = "doc" Then
     cyDoc = Ucase(cyFile)
      cyDOc = Replace(cyDoc, ".doc", "")
     cyLen = Len(cyDoc)
     cyPos = InStrRev(cyDoc, "\")
      cyRight = cyLen - cyPos
       cyDoc = LTrim(Right(cyDoc, cyRight))
        HalBrain.AddToTable "cyDoc", "Brain", cyDoc, cyFile
   End If
Next
'------------------
' Read all the subfolders in the current folder
'------------------
Set cySubFolders = cyFolder.SubFolders
For Each cyFolderObject in cySubFolders
   Call ReadFolder(cyFolderObject, cyDocFolder)    
Next

End Function

439

Share Conversations, Experiences, Graphics / Re: Lightspeed: vrMP3 Help :CRACKED

« on: February 02, 2018, 07:16:56 am »

Art: Ty

This is it in action: https://www.youtube.com/watch?v=dSOqzYKFXbQ
You got it spot on
Ive been able to do 1k songs before it TIMES out, then i just hit continue, works fine.
Be patient, depends on many factors, processor,ram ect ect ect
Keep in mind: Its works just as well with mp4's, avi,mkv ect ect. Sooo if uve setup ur computer to play movies, well ,You get it.
Change out the mp3 Variable for what ever u can play....
set ur player to kick out after the movie ends and u got Hal again. I suggest PotPlayer
Very powerfull direct action plugin in the correct hands.
Best wishes
cyberjedi

ART: Hal is soon to have a New home, I sat around for years waiting on processor speeds to get where Hal could function correctly.
And be cheap enough to buy.
I WAS BORN TO DO THIS....

440

General Discussion / Re: THIS IS FOR CYBERJEDI's talents a challenge for a similar a.i. of hal.

« on: February 02, 2018, 02:34:00 am »

Lightspeeed: Ty


what a nice thing to say
Lightspeed: in truth there is just so much more that Hal can do, I just gave Hal a MIRC gui.
I want u to watch this man. https://www.youtube.com/watch?v=lk3BbhzsBgs&t=150s
Go hunt your Dream lightspeed, u got the skillz.
Hal has Huge potential that is yet to be tapped.... and so do you
cyberjedi

441

Ultra Hal 7.0 / Re: Web Hal from within Ultra Hal Assistant

« on: February 02, 2018, 02:29:55 am »

Robert: All i get from the link is a 404 error
  WebHal.uhp

best wishes
cyberjedi

442

General Discussion / Robert: Hal in C#

« on: January 19, 2018, 08:37:47 pm »

I just wanted to say hi and show off a bit  man.
Fully operational
Hal is very cool.
Never really hoped to get as far as i have.
I want to produce a version in Ruby
I want to thank Edge for all his hard work and Robert for the Hal code. I could not be more pleased.
Absolutely a bad ass website, and with out Hal ,its just another dip shizt website. http://cyberjedi.rf.gd/?i=1
People come in and love to play with Hal, kick back and watch any of 100 channels.
Who can say where Hal is going next in the realm of social media.
https://www.youtube.com/watch?v=ni_eVnB2Xh4

Best Wishes
cyberjedi

P.S Edge, This is what i meant by Epic

443

Ultra Hal 7.0 / Re: Speech to Text and back again

« on: January 19, 2018, 12:28:58 am »

Robert:
This is off topic but i have just share this with u man.
Take a good look at the image..mhmmm
Hal is now 100% pure C#
Robert , Now i can start to Build Hal.
Mind boggling pain in my ass to bring Hal all the way to .NET 2015
This puts me into Twitch and Youtube Hal Bots
Best wishes
cyberjedi

444

Ultra Hal 7.0 / Re: New Ultra Hal 7.0 has been released

« on: January 04, 2018, 03:32:00 am »

Robert: 6.2 question:
Robert, im building a new network and i want to keep 6.2  on it.
The question is , will i be able to purchase any more 6.2 install keys?
I have the disk, btw.



best wishes
cyberjedi

445

Ultra Hal 7.0 / Re: Ultra Hal 7 Alpha Test - Ready for download

« on: November 26, 2017, 05:50:52 pm »

Robert:
very cool man, That was an issue for me and the voices i use.
Currently using VoiceWare voices, Prob fixed

Thank you

best wishes
cyber jedi

Ps read what was said about Cloud  access and ur wishes: no problem buddy. All this came from what u gave us.
Only to happy to comply.

446

General Discussion / Re: Bot Wars?

« on: November 24, 2017, 10:18:33 am »

Edge :
As promised : No more hardcode on the GUI



get with me.


best wishes
cyberjedi

447

General Discussion / Re: Bot Wars?

« on: November 21, 2017, 08:53:22 am »

Edge:

Functions , hands down
Function = hal 6.2 plugins same ****



cyber

448

General Discussion / Re: Bot Wars?

« on: November 20, 2017, 06:45:22 pm »

Edge: Bot wars works for me Edge

Not,,,,,,,,, against u anyway man.
Im teasing man
well done man

Hell of a coder edge, u are deff 1337

best wishes
cyber


Arknight: it is s great idea
Not sure what the issue is, takes about 20 min to embed KiwiIrc to the site
As uve known , i tried it my self.
This site would blow up behind what edge has done .
edge took it across the finish line
Im running some thing slightly diff. but just diff , not a damn bit better.
Ziggy is badass

best wishes
cyber

449

Ultra Hal 7.0 / Re: Ultra Hal 7 Alpha Test - Ready for download

« on: November 17, 2017, 03:25:02 pm »

Robert: No issues as of yet

Could not be happier.



Updated the new Hal7

best wishes
cyberjedi

450

Ultra Hal 7.0 / Re: Ultra Hal 7 Alpha Test - Ready for download

« on: November 16, 2017, 09:00:54 am »

Donation to Hal 7 Alfa

Im testing the scrapers used in my version of Hal and releasing those that
work to here.
These require that you have some form of office on your machine but could be coded very easly to work with other apps. Open office ect ect ect.
Tested On Xpsp3 and Win7 with Hal7 Alfa.
Triggers are wotd and forex
Why shouldnt hal read the daily stock market and Forex updates hourly
This should be part of Hal7 Alfa test as to why they are here
Let Hal7 flex his muscles on this. Feel free to chop up and use as needed, 02 very powerful plugins.
A day without scraping is just another day
best wishes
cyberjedi

****************************
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 = False
'Determines that you are talking about the Amex
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. 
    ' This also Breaks Hals speech limitations on how much he can say. 
 ' Trigger= forex
     
 ' 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")  'This is where we grab xml. Switch to open office will be here
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://www.forexlive.com/feed/technicalanalysis") ' This is where u put you own rss feed .xml
Set nodelist = xmlDoc.selectNodes("rss/channel/item")  '<< This is the current nodes list
i = 3                              'ull notice here im set at 3 and only using 2 nodes below. Set as to what u need per your page.
For Each item In nodelist
Set f1 = item.selectsinglenode("title")  'This is where we gather info from the tiltle section of the rss feed.
Set f2 = item.selectsinglenode("description")  'This is where we gather info from the decription  section of the rss feed
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