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
Show Posts