covid monitor

[cyberjedi]

Re: Covid-19
Because of the malware being used in this (virus) nightmare ,ive supplied both copy/paste and download options here
Just kick back and enjoy HalNews
Read time is about 5 min, but hey, its the news.
The feed updates daily.
 Enjoy the tunes here i was listening too as i prepped this for u guys https://www.youtube.com/watch?v=cCXMr7oYHsI

UltraHal will now keep u updated on the latest news concerning this virus.
Trigger is (Search for corona update)

Tested and working on 6-7
Haptek works awesome, but Msagent Shts the bed, not sure why yet..... Hmmmmm , could be my machine too,hehe
Changed the voice , seems to work fine.
cyber jedi
Code that matters.
Keep in mind im running JUST that plugin too.I have no idea what some 1 else may have setup.....
************************

Rem Type=Plugin
Rem Name= COVID-19
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
'Determines that you are talking about the Corona Virus
If InStr(1,InputString, "Search for Corona update",1) > 0 Then
 UltraHal = COVID19(HalCommands)
ElseIf InStr(1,InputString, "Search for Corona update",1) > 0 Then
 End If

Rem PLUGIN: FUNCTIONS
Function COVID19(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") ' <<<<< Hint Hint
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://feeds.bbci.co.uk/news/world/us_and_canada/rss.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>"
HalMenu.HalCommand "<SPEAK>" & f2.text & "</SPEAK>"
i = i + 1
if i = tempconfirm then
wscript.Quit
end if
Next
end if
Next
End Function