Very Good stuff:
I agree, with 1 minor change.
All of those features, need to be in a Hal Sub Brain (just made that up) hahaha.
But in truth its spot on, u dont need all that pushing through Hal's mind all the time, thats what really gets Hal's GetResponse function CRAWLING.
Ive been playing with the concept for a while now and it makes a big difference.
That should all be button driven/voice driven.
it works too, some sites **** the bed though so being able to change on the fly is most important.
hint hint, rss feeds......
some in here know it works well
In the forum here ive done a few of these, butttttt. people arent checking the forum or ect ect ect
and im not hunting them down
Hint Hint: The amex stock market reader could be hotwired to just about any thing, just point it. but that means some home work for the sites.
Figure it out, i made it work..... The FBI has a top 10 wanted list RSS feed,(keeping tabs on family members lolol) Sooooooooooo, lolol. Its scary whats out there, LEGALLY too, Terror Alerts, pentagon feeds ,white house feeds,NSA feeds, Get It??? all legal, all safe.
cyber
Rem Type=Plugin
Rem Name= Amex
Rem Author= cyberjedi
Rem Host=All
Rem PLUGIN: PRE-PROCESS ' <<<<<Wonder why i did this??? Hmmmmmm lol
'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 Amex
If InStr(1,InputString, "Amex",1) > 0 Then
UltraHal = GetAmex(HalCommands)
ElseIf InStr(1,InputString, "Amex",1) > 0 Then
End If
' This bad boy is a Amex Scraper with a twist, All the data Scraped is ported through Hals Character W/Voice. Enjoy.
' This also has no Hal speech limitations on how much he can say.
' Trigger= Amex.
'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 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")
' Change this to what ever format u use, Open Office, libra, ect ect. I chose Office because of its power. Hal must have 'tools to work with.
'If u dont have it,worried about 'hostile code, just get with me.
' When have i ever said no to any 1 of you
' Quit crying like a girl, install the crap and dont use it, But Hal will use it and Bust Hal Out of Jail. lolol Flu got me feeling twisted today lolol
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") ' <<<<look what's going on here, and look below,Diffff??? mhmmm. see what i did?? on the fly change 4 the site.
i = 3 'This is done for a 03 category list, but could be 10 just as easy
For Each item In nodelist
Set f1 = item.selectsinglenode("title") 'actual tags within the RSS feed, can change to what ever u want per ur feed
Set f2 = item.selectsinglenode("description") 'actual tags within the RSS feed, can change to what ever u want per ur feed
HalMenu.HalCommand "<SPEAK>" & f1.text & "</SPEAK>" ' these two lines are the Magic of the code
HalMenu.HalCommand "<SPEAK>" & f2.text & "</SPEAK>" ' these two lines are the Magic of the code
i = i + 1
if i = tempconfirm then
wscript.Quit
end if
Next
end if
Next
End Function
'example:
https://www.fbi.gov/feeds/fbi-in-the-news'this is a power house piece of code, what ever...
'this mornings feed from rss: <description>In this week's FBI Tech Tuesday segment, scammers have started sending online users fake calendar invites that may enable 'them to access bank accounts, passwords, personal info, and more.</description> (My view on these people are well known .So ya i use this myself in UltraHal7)
'You can literally turn ur hal into a full blown news anchor if u put the effort in, I did it..
'Yes u can Chain Feeds, so most of what was listed in previous post could come through this single plugin. 1 rite after another, just how cool is that!!!
'
https://www.findyourfate.com/rss/horoscope-feed.php'
https://feeder.co/knowledge-base/rss-content/popular-rss-feeds/'
https://blog.feedspot.com/poetry_rss_feeds/'
https://www.cinemablend.com/rss-index.html'
https://www.historytoday.com/rsscyber
All Clean Version
*******************
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.
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