dupa

Author Topic: Cyber special to commemorate Hal7  (Read 6032 times)

cyberjedi

  • Hero Member
  • *****
  • Posts: 810
  • The Mighty Hal Machine
    • View Profile
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
« Last Edit: February 24, 2018, 08:43:29 am by cyberjedi »

Checker57

  • Full Member
  • ***
  • Posts: 138
    • View Profile
Re: Cyber special to commemorate Hal7
« Reply #1 on: February 06, 2018, 11:40:44 pm »
Very cool idea.   Installed it on my Hal7; and although Hal will say:

Reading Healines, currently reading headlines. 

But that's it.  Of course if I repeat the trigger word of forex it will simply say, you're persistent about that, aren't you? 

Is there some set up I need to understand to get it to work?

Saw the video on youtube .. good job on the obama look alike!

Checker57

cyberjedi

  • Hero Member
  • *****
  • Posts: 810
  • The Mighty Hal Machine
    • View Profile
Re: Cyber special to commemorate Hal7
« Reply #2 on: February 07, 2018, 12:26:33 am »
Hey checker: Im looking at it
Made some code changes on the fly, see if that works: this is what was changed .Set nodelist = xmlDoc.selectNodes("rss/channel/item")
Make sure the SOUND is on
Thanx for checking it out
Im checking on my machines, below is the same thing pointed at Amex and it works.
Tested on 07 and xp

best wishes cyberjedi
https://www.youtube.com/watch?v=DgwTsFBhIo4
« Last Edit: February 07, 2018, 10:04:06 am by cyberjedi »

cyberjedi

  • Hero Member
  • *****
  • Posts: 810
  • The Mighty Hal Machine
    • View Profile
Re: Cyber special to commemorate Hal7
« Reply #3 on: February 07, 2018, 12:35:56 am »
Rem Type=Plugin
Rem Name= Amex
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.
    ' I tested this 05 min before posting, trigger is Amex

HalBrain.ReadOnlyMode = False
'Determines that you are talking about the Amex
If InStr(1,InputString, "Amex",1) > 0 Then
 UltraHal = GetAmex(HalCommands)
ElseIf InStr(1,InputString, "Amex",1) > 0 Then
 End If


 ' This the same plugin pointed at Amex: 
 ' This bad boy is a Amex 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= Amex.
     'You might want to watch this , this is a Hal clone ive built-->>>https://www.youtube.com/watch?v=cZbh_YD1MYs&t=159s
  'Follow me in to the jungle. http://vaughnlive.tv/mrelectric
 ' Im rockin a solid 8.5 on cool ideas here


Rem PLUGIN: FUNCTIONS
Function GetAmex(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("http://www.findata.co.nz/News/AMEX/rss.xml") ' 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
« Last Edit: February 11, 2018, 01:08:30 pm by cyberjedi »

Checker57

  • Full Member
  • ***
  • Posts: 138
    • View Profile
Re: Cyber special to commemorate Hal7
« Reply #4 on: February 08, 2018, 10:35:54 pm »
That worked!   Thanks for the update!  Very interesting plugin, nice for news headlines.  I like it!

 Two thoughts that I'm sure you've heard....

How to get a ticker price plugin for personal stocks that hal could alarm us for price lines we input to be alerted by... or perhaps a nice price movement on a stock we pref.  I'll definately be one to DL that plugin!   ;D

And second, is there a possible way to stop plugin once it begins rattling off the headlines other than waiting for it to go through entire headlines?

Thumbs up!
Checker57






cyberjedi

  • Hero Member
  • *****
  • Posts: 810
  • The Mighty Hal Machine
    • View Profile
Re: Cyber special to commemorate Hal7
« Reply #5 on: February 10, 2018, 04:09:51 am »
Scraper stock ticker:

I could do something like that as an On-Demand direct action Plugin.
But to Have Hal just monitor the NYSE would peg ur cpu at 100% rendering the computer useless to any thing else.
But , because i dont like to loose, I could maybe Target certain stocks and Hal could capture just that . MAYBE
But again it would be an ON-Demand Direct Action Plugin, Custom to you.

Killing a Feed once started:
Never tried TBH....lol.
Look into in it for ya.

Ive made several clones of Hal
I am currently Discussing with Robert the release of some stuff.
I like Direct action Plugins so much , I started producing Direct Action Hal's Based on the 6.2 Model complete with Haptek and Sapi05 and
Hals Basic functions. No brain editor yet, but i use Hals 6.2 or Hal7 Brain editor.

Then there's a Hal IRC
My baby
Hal just loves his chat rooms and makin friends.

Best wishes
cyberjedi




subscribe : cyberbuds get cybertreats




« Last Edit: June 28, 2019, 12:05:33 pm by cyberjedi »

Checker57

  • Full Member
  • ***
  • Posts: 138
    • View Profile
Re: Cyber special to commemorate Hal7
« Reply #6 on: February 12, 2018, 05:42:09 am »
I checked out your IRC chat room content.  Was quite interesting.  Great work on the graphics!   8)

Had only one issue.  Once I noted your 7 of 9 avatar on the last vid; I then noted the video of Kiwi.. then I was hooked onto Guile3D characters.   Tried to purchase the Nicole package from a guile3D page that was still active.. took my paypal, but... no product.  :-/  Love my HAL program... quite a very helpful companion.  I'm using Deskmates characters at the present.  Dawn is very nice.  But, would love to get Nicole.  Just a note... I recall reading somewhere in these posts that perhaps Guile3D characters were SAPI4 compatible, but not SAPI5 ?  hm, is that for sure?  Any workaround?  I'm using a SAPI-5 - Microsoft Server Speech Text to Speech Voice (en-US, Helen) [English (USA)] - see below where to get this voice.  I use that voice because it also works well with the HAPTIC Avatar.  Otherwise I'd use the SAPI-5 IVONA Sallie voice.   

Noted in another vid you made of the word correction plugin(?) that use a very nice voice on that one.  I've found how to DL direct from MS some nice voices that can be set up so that they will be visible to TTS.  Probably already have all you need, but for any newbies that might run across this post.. here's a link how to do so.  They are not the best out there, like from IVONA, but they definitely are the best MS puts out than the older muddled robotic ones.

https://answers.microsoft.com/en-us/windows/forum/windows_7-desktop/how-do-you-install-additional-voices-for-narrator/eec5d7fc-f5b9-4b4f-9ebd-8bb65a1f99ee?page=3&auth=1


Cheers!
Checker57

cyberjedi

  • Hero Member
  • *****
  • Posts: 810
  • The Mighty Hal Machine
    • View Profile
Re: Cyber special to commemorate Hal7
« Reply #7 on: February 12, 2018, 11:19:11 am »
Thanx: all i can say in this forum is, If u want the good **** you need to find me.

Read whatever into that ,that suits ur needs.


best wishes
cyberjedi

Checker57

  • Full Member
  • ***
  • Posts: 138
    • View Profile
Re: Cyber special to commemorate Hal7
« Reply #8 on: February 12, 2018, 06:02:51 pm »
Great News!  I received an email this afternoon from NextOS and surprising they sent me the login link to download the Nicole Package!  ahem.... suffice to express..  YES!!!!  Woohoo!!!  Who says persistence and attention to detail doesn't pay!

ahem.. and I noted your trail to ...  your location.    ;)

Checker57

cyberjedi

  • Hero Member
  • *****
  • Posts: 810
  • The Mighty Hal Machine
    • View Profile
Re: Cyber special to commemorate Hal7
« Reply #9 on: February 12, 2018, 11:37:58 pm »
Great news: I was just gonna give you mine

Rather then purchase anything else , please get with me.
I have the best of everything, not so much Ego as a statement of fact.

we should compare notes


cyberjedi
« Last Edit: February 13, 2018, 09:53:22 am by cyberjedi »

Arkright

  • Jr. Member
  • **
  • Posts: 67
    • View Profile
Re: Cyber special to commemorate Hal7
« Reply #10 on: February 13, 2018, 09:58:31 am »
Great news: I was just gonna give you mine

Rather then purchase anything else , please get with me.
I have the best of everything, not so much as Ego as a statement of fact.

we should compare notes


cyberjedi
I would take him up on his offer if i were you, Checker57.  ;D
I have and thanks again cyberjedi.
^,=,^