bbc news plug in for hal does anyone have it ??

[lightspeed]

seems like someone used to have a bcc? weather plug in in the hal 5? does anyone still have that plug in and will it work with the 6.2 version ?  it seemed like it told the local weather to ? or maybe it was a bcc news plug in and would tell things that was happening in the news from the hal character maybe thats what it was does anyone have it and willit work in the new hal version i really liked that plug in !!

[Art]

What's bcc? Do you mean BBC as in news from the UK? If not please explain.
 Yes, the weather plugin sounds familiar. Will do some searching.

[tedathome]

You can get it here:
http://www.bercutfinland.com/BBCNews/BBCMain.html
It's not a plugin but It does bring up the haptek console. It wont read the news to you anymore because I believe that microsoft terminated an agreement with The L&h Brittish English voices IMO. Any how all I can get out of it is something about " Carrot back to top BBC copyright. If you are one of the few who can still use those voices with Hal, then maybe it will work for you.[]

[lightspeed]

yes art the bbc news thats what i ment it seems like their was a weather plug in and it could be set for local weather to and "also " a bbc news plug in what it did was hal would say random news things which i thought was cool it kind of kept you up on daily events and or weather !!yes please look and if you find something please post it i will also try to look in my old cdrs and see if i have it saved some where if i do find it i will post it to . am resting right now just finished mowing bagging up grass , weed eating and hauling it all , off am tired ![xx(]

[tedathome]

As for local weather, you can use this. Just copy and paste into notepad and name it weather.uhp I think I may also have one for news, say so if you want me to look for it. I havn't used either for a while so am not sure if they still function with latest vertion of hal, but I think they do.

Rem Type=Plugin
Rem Name=USA Weather
Rem Author=Zabaware, Inc.
Rem Host=Assistant

'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
    lblPlugin(0).Caption = "Have Hal show your local weather when asked."
    lblPlugin(0).Move 120, 120
    lblPlugin(0).Visible = True
    lblPlugin(1).Caption = "Weather site:"
    lblPlugin(1).Move 320, 400
    lblPlugin(1).Visible = True  
    cboPlugin(0).Move 320, 650, 1800
    cboPlugin(0).AddItem "Accuweather.com"
    cboPlugin(0).AddItem "CNN.com"
    cboPlugin(0).AddItem "Weather.com"
    cboPlugin(0).Visible = True
    lblPlugin(2).Caption = "Zip Code:"
    lblPlugin(2).Move 320, 1100
    lblPlugin(2).Visible = True
    txtPlugin(0).Move 320, 1370, 1200, 325
    txtPlugin(0).Visible = True
    cmdPlugin(0).Caption = "Apply Changes"
    cmdPlugin(0).Move 320, 1850, 1600, 375
    cmdPlugin(0).Visible = True
    If HalBrain.CheckTableExistence("WeatherConfig") = True Then
       txtPlugin(0) = HalBrain.TopicSearch("Zip", "WeatherConfig")
        WeatherSite = HalBrain.TopicSearch("Site", "WeatherConfig")   
        If WeatherSite <> "" Then cboPlugin(0).Text = WeatherSite
    End If
End Sub

Sub cmdPlugin_Click(Index)
    Dim TempQuery()
    If Index = 0 Then
        If HalBrain.CheckTableExistence("WeatherConfig") = True Then
           HalBrain.RunQuery "DROP TABLE WeatherConfig", TempQuery
        End If
        'Create TopicSearch type table without adding entry to topic tree (table is invisible to Hal Brain Editor)
        HalBrain.RunQuery "CREATE TABLE WeatherConfig ( recordId INTEGER PRIMARY KEY, searchString VARCHAR(1024), topic VARCHAR(1024) );CREATE INDEX idxPOP3Config ON POP3Config (searchString);", TempQuery
        HalBrain.AddToTable "WeatherConfig", "TopicSearch", "Zip", Trim(txtPlugin(0))
        WeatherSite = cboPlugin(0).Text
        If WeatherSite <> "" Then HalBrain.AddToTable "WeatherConfig", "TopicSearch", "Site", WeatherSite
    End If
End Sub


    Rem PLUGIN: PLUGINAREA1
    'The comment above tells Ultra Hal Assistant to insert the following code
    'on-the-fly into the main brain code in the section referenced.
    If InStr(1, UserSentence, "weather", 1) > 0 and (InStr(1, UserSentence, "tell", 1) > 0 Or InStr(1, UserSentence, "open", 1) > 0 Or InStr(1, UserSentence, "how", 1) > 0 Or InStr(1, UserSentence, "what", 1) > 0 Or InStr(1, UserSentence, "show", 1) > 0) Then
       
        If HalBrain.CheckTableExistence("WeatherConfig") = True Then
            ZipCode = HalBrain.TopicSearch("Zip", "WeatherConfig")
           WeatherSite = HalBrain.TopicSearch("Site", "WeatherConfig")
            Select Case weatherSite
                Case "Accuweather.com"
                    HalCommands = HalCommands & "<RUNPROG>http://wwwa.accuweather.com/index-forecast.asp?zipcode=" & ZipCode & "</RUNPROG>"
                Case "CNN.com"
                    HalCommands = HalCommands & "<RUNPROG>http://weather.cnn.com/weather/search?wsearch=" & ZipCode & "</RUNPROG>"
                Case "Weather.com"
                    HalCommands = HalCommands & "<RUNPROG>http://www.weather.com/weather/local/" & ZipCode & "</RUNPROG>"
            End Select                    
            GetResponse = GetResponse & "Here is your local weather. "
        End If
    End If

[lightspeed]

thanks ted you are a life saver "yes please" see if you have the news i liked having hal tell me interesting things going on in the world !!thanks again !![]

[lightspeed]

ps to ted and others this plug in does work with the 6.2 version i just tried it and it works hal not only opened the page to check but also talked and said it wasnt going to rain . []

[tedathome]

I know I used to have a news .uhp, it seems to have evaporated with the new Hal. I do have Jasondudes Advanced internet .uhp, it will get you news and a whole lot more, just say find yahoo news and it brings up a google search for you. I havn't looked as how to configure it or played with it a lot. It may be well worth trying out.

Rem Type=Plugin
Rem Name=Advanced Internet Ability
Rem Author=VR, jasondude7116
Rem Host=Assistant



'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
    lblPlugin(0).Caption = "NEWS SEARCH *   BUSINESS SEARCH name IN location   NATIONAL BUSINESS SEARCH *   PHONE NUMBER SEARCH *   STOCK SEARCH *    BOOK SEARCH *   PRODUCT SEARCH *    VIDEO SEARCH *   RADIO STATION SEARCH *   GOOGLE SEARCH *   WIKIPEDIA SEARCH *   PICTURE SEARCH *  IMAGE SEARCH *        MAP SEARCH *         GO TO -then-          WEBSITE *    WEB ADDRESS *  GOOGLE   FRIENDSTER   INTERNET TELEVISION   INTERNET TV   MSN   950   BBC RADIO   LOCAL WEATHER   LOCAL NEWS   NATIONAL NEWS   YAHOO   YAHOO MAIL   PEOPLE SEARCH   ZABAWARE FORUM   VIRTUAL HUMANS FORUM"
    lblPlugin(0).Move 120, 120, 3300, 1000
    lblPlugin(0).WordWrap = True
    lblPlugin(0).Visible = True
End Sub




Rem PLUGIN: PLUGINAREA1

   If HalBrain.CheckTableExistence("vrWeb") = False Then
   
        vrReadOnlyMode = HalBrain.ReadOnlyMode
      HalBrain.ReadOnlyMode = False
      HalBrain.CreateTable "vrWeb", "PatternMatch", "miscData"
      HalBrain.AddToTable "vrWeb", "PatternMatch", "*go to*weather*", "http://www.weather.com/weather/tenday/77328?from=36hr_topnav_undeclared"
      HalBrain.AddToTable "vrWeb", "PatternMatch", "*go to*local news*", "http://www.khou.com/news/"
      HalBrain.AddToTable "vrWeb", "PatternMatch", "*go to*national news*", "http://www.foxnews.com/"
      HalBrain.AddToTable "vrWeb", "PatternMatch", "*go to yahoo*", "http://www.yahoo.com/"
      HalBrain.AddToTable "vrWeb", "PatternMatch", "*go to news*", "http://www.foxnews.com/"
      HalBrain.AddToTable "vrWeb", "PatternMatch", "*go to*yahoo mail*", "https://login.yahoo.com/config/mail?.intl=us"
      HalBrain.AddToTable "vrWeb", "PatternMatch", "*go to*zabaware forum*", "http://www.zabaware.com/forum/"
      HalBrain.AddToTable "vrWeb", "PatternMatch", "*go to google*", "http://www.google.com/"
      HalBrain.AddToTable "vrWeb", "PatternMatch", "*go to friendster*", "http://www.friendster.com/"
      HalBrain.AddToTable "vrWeb", "PatternMatch", "*go to*msn*", "http://www.msn.com/"
      HalBrain.AddToTable "vrWeb", "PatternMatch", "*go to*internet t*", "http://mediahopper.com/"
      HalBrain.AddToTable "vrWeb", "PatternMatch", "*go to*950*", "http://www.the950.com/cc-common/ondemand/player2.html?world=st"
                HalBrain.AddToTable "vrWeb", "PatternMatch", "*go to*virtual humans forum*", "http://www.vrconsulting.it/vhf/"
      ' Set ReadOnly Mode to its previous state
      HalBrain.ReadOnlyMode = vrReadOnlyMode
   End If

'Run the corresponding Web page, if the user question contains one of the searched words    
    vrAddress = ""
    vrAddress = HalBrain.PatternDB(OriginalSentence, "vrWeb")
    If vrAddress <> "" Then
       HalCommands = HalCommands & "<RUNPROG>" & vrAddress & "</RUNPROG>"
      Select Case (Int(Rnd * 4) + 1)
      Case 1
         GetResponse = "Here is the page you asked me for." & vbCrLf
      Case 2
         GetResponse = "Now you can access it." & vbCrLf
      Case 3
         GetResponse = "I am really happy to give you this information." & vbCrLf
      Case 4
         GetResponse = "OK. Here it is." & vbCrLf
      Case 5
         GetResponse = "Now look at this." & vbCrLf
      End Select
      HalBrain.ReadOnlyMode = True
    End If





If SearchGoogle = "" Then SearchGoogle = HalBrain.SearchPattern(OriginalSentence, "*GOOGLE SEARCH *", 2)
If SearchGoogle <> "" Then
GoogleSearch = "http://www.google.com/search?q=" & SearchGoogle
   HalMenu.HalCommand "<RUNPROG>" & GoogleSearch & "</RUNPROG>"
             GetResponse = "I will help you research " & SearchGoogle & ", on Google."
                 HalBrain.ReadOnlyMode = True
End If




If SearchWiki = "" Then SearchWiki = HalBrain.SearchPattern(OriginalSentence, "*WIKIPEDIA SEARCH *", 2)
If SearchWiki <> "" Then
WikiSearch = "http://en.wikipedia.org/wiki/" & SearchWiki
   HalMenu.HalCommand "<RUNPROG>" & WikiSearch & "</RUNPROG>"
             GetResponse = "Here is what Wikipedia says about "  & SearchWiki & "."
                 HalBrain.ReadOnlyMode = True
End If





If SearchPictures = "" Then SearchPictures = HalBrain.SearchPattern(OriginalSentence, "*PICTURE SEARCH *", 2)
If SearchPictures = "" Then SearchPictures = HalBrain.SearchPattern(OriginalSentence, "*IMAGE SEARCH *", 2)
' Image Search form the above Image Keyword.
If SearchPictures <> "" Then
PicSearch = "http://www.images.google.com/images?svnum=10&hl=en&lr=&q=" & SearchPictures & "&btnG=Search"
   HalMenu.HalCommand "<RUNPROG>" & PicSearch & "</RUNPROG>"
             GetResponse = "I have found the following Pictures of "  & SearchPictures & "."
                 HalBrain.ReadOnlyMode = True
End If






If SearchMaps = "" Then SearchMaps = HalBrain.SearchPattern(OriginalSentence, "*MAP SEARCH *", 2)
If SearchMaps <> "" Then
Mapsearch = "http://www.google.com/local?q=" & SearchMaps
   HalMenu.HalCommand "<RUNPROG>" & Mapsearch & "</RUNPROG>"
      GetResponse = "Here is a Map of the "  & SearchMaps & " Area. "
         HalBrain.ReadOnlyMode = True
End If



If SearchWebSite = "" Then SearchWebSite = HalBrain.SearchPattern(OriginalSentence, "*GO TO*WEB ADDRESS *", 3)
If SearchWebSite = "" Then SearchWebSite = HalBrain.SearchPattern(OriginalSentence, "*GO TO*WEBSITE *", 3)
If SearchWebSite <> "" Then
WebSiteSearch = "www." & SearchWebSite
   HalMenu.HalCommand "<RUNPROG>" & WebSitesearch & "</RUNPROG>"
      GetResponse = "Here is "  & WebSiteSearch & " as you requested. "
         HalBrain.ReadOnlyMode = True
End If




If SearchNews = "" Then SearchNews = HalBrain.SearchPattern(OriginalSentence, "*NEWS SEARCH *", 2)
If SearchNews <> "" Then
NewsSearch = "http://news.google.com/news?hl=en&tab=wn&ned=us&nolr=1&q=" & SearchNews & "&btnG=Search"
   HalMenu.HalCommand "<RUNPROG>" & NewsSearch & "</RUNPROG>"
             GetResponse = "Here is the latest news about "  & SearchNews & "."
                 HalBrain.ReadOnlyMode = True
End If



If SearchRadio = "" Then SearchRadio = HalBrain.SearchPattern(OriginalSentence, "*RADIO STATION SEARCH *", 2)
If SearchRadio = "" Then SearchRadio = HalBrain.SearchPattern(OriginalSentence, "*INTERNET RADIO*SEARCH *", 3)
If SearchRadio <> "" Then
RadioSearch = "http://www.windowsmedia.com/radiotuner/FindStations.asp?locale=409&search=" & SearchRadio
   HalMenu.HalCommand "<RUNPROG>" & RadioSearch & "</RUNPROG>"
             GetResponse = "Here are the available " & SearchRadio & ", radio stations."  
                 HalBrain.ReadOnlyMode = True
End If



If SearchVideo = "" Then SearchVideo = HalBrain.SearchPattern(OriginalSentence, "*VIDEO SEARCH *", 2)
If SearchVideo <> "" Then
VideoSearch = "http://video.google.com/videosearch?q=" & SearchVideo & "&hl=en&emb=0&aq=f#"
   HalMenu.HalCommand "<RUNPROG>" & VideoSearch & "</RUNPROG>"
             GetResponse = "Here are videos about "  & SearchVideo & "."
                 HalBrain.ReadOnlyMode = True
End If





If SearchBbc = "" Then SearchBbc = HalBrain.SearchPattern(OriginalSentence, "*GO TO*BBC RA*", 3)
If SearchBbc <> "" Then
BbcSearch = "http://www.bbc.co.uk/mediaselector/ondemand/worldservice/meta/tx/live_news?bgc=003399&lang=en-ws&nbram=1&nbwm=1&ms3=2&ms_javascript=true&bbcws=1&size=au"
   HalMenu.HalCommand "<RUNPROG>" & BbcSearch & "</RUNPROG>"
             GetResponse = "Starting B B C stream."
                 HalBrain.ReadOnlyMode = True
End If



If SearchFilipino = "" Then SearchFilipino = HalBrain.SearchPattern(OriginalSentence, "*GO TO*FILIPINO RA*", 3)
If SearchFilipino <> "" Then
FilipinoSearch = "http://www.eradioportal.com/index.php?p=2&aid=1"
   HalMenu.HalCommand "<RUNPROG>" & FilipinoSearch & "</RUNPROG>"
             GetResponse = "Here are the available filipino radio stations."
                 HalBrain.ReadOnlyMode = True
End If



If SearchPhone = "" Then SearchPhone = HalBrain.SearchPattern(OriginalSentence, "*PHONE NUMBER SEARCH *", 2)
If SearchPhone <> "" Then
PhoneSearch = "http://search.yahoo.com/search?p=phone%3A%22" & SearchPhone & "%22+&phone=" & SearchPhone & "&meta=pplt%3Dr&fr=php-rplu"
   HalMenu.HalCommand "<RUNPROG>" & PhoneSearch & "</RUNPROG>"
             GetResponse = "Here are the available listings for, " & SearchPhone & "."
                 HalBrain.ReadOnlyMode = True
End If


If SearchStock = "" Then SearchStock = HalBrain.SearchPattern(OriginalSentence, "*STOCK SEARCH *", 2)
If SearchStock <> "" Then
StockSearch = "http://finance.google.com/finance?q=" & SearchStock
   HalMenu.HalCommand "<RUNPROG>" & StockSearch & "</RUNPROG>"
             GetResponse = "Here is the current, " & SearchStock & " stock quote."
                 HalBrain.ReadOnlyMode = True
End If


If SearchBook = "" Then SearchBook = HalBrain.SearchPattern(OriginalSentence, "*BOOK SEARCH *", 2)
If SearchBook <> "" Then
BookSearch = "http://www.google.com/books?q=" & SearchBook
   HalMenu.HalCommand "<RUNPROG>" & BookSearch & "</RUNPROG>"
             GetResponse = "Here are the available " & SearchBook & " books."
                 HalBrain.ReadOnlyMode = True
End If


If SearchProduct = "" Then SearchProduct = HalBrain.SearchPattern(OriginalSentence, "*PRODUCT SEARCH *", 2)
If SearchProduct <> "" Then
ProductSearch = "http://www.google.com/products?q=" & SearchProduct & "&btnG=Search+Products&hl=en"
   HalMenu.HalCommand "<RUNPROG>" & ProductSearch & "</RUNPROG>"
             GetResponse = "Here are the current listings for, " & SearchProduct & "."
                 HalBrain.ReadOnlyMode = True
End If




If SearchBusiness = "" Then SearchBusiness = HalBrain.SearchPattern(OriginalSentence, "*BUSINESS SEARCH * IN *", 2)
If SearchLocation = "" Then SearchLocation = HalBrain.SearchPattern(OriginalSentence, "*BUSINESS SEARCH * IN *", 3)
If SearchBusiness <> "" Then
BusinessSearch = "http://www.yellowpages.com/name/" & SearchLocation & "/" & SearchBusiness
   HalMenu.HalCommand "<RUNPROG>" & BusinessSearch & "</RUNPROG>"
             GetResponse = "Here are the available listings for, " & SearchBusiness & ",in," & SearchLocation & "."
                 HalBrain.ReadOnlyMode = True
End If




If SearchNation = "" Then SearchNation = HalBrain.SearchPattern(OriginalSentence, "*NATIONAL BUSINESS SEARCH *", 2)
If SearchNation <> "" Then
NationSearch = "http://www.yellowpages.com/nationwide/name_search/" & SearchNation
   HalMenu.HalCommand "<RUNPROG>" & NationSearch & "</RUNPROG>"
             GetResponse = "Here are the current listings for, " & SearchNation & "."
                 HalBrain.ReadOnlyMode = True
End If


If SearchPerson = "" Then SearchPerson = HalBrain.SearchPattern(OriginalSentence, "*GO TO*PEOPLE SEAR*", 3)
If SearchPerson <> "" Then
PersonSearch = "http://www.whitepages.com/5116"
   HalMenu.HalCommand "<RUNPROG>" & PersonSearch & "</RUNPROG>"
             GetResponse = "Use this interface to locate a person."
                 HalBrain.ReadOnlyMode = True
End If


Ahh, after posting now I see how to configure it for local news and to say go to local news, just change the url to the local news website that you want.[]

[jasondude7116]

hey ted[]
i also made a "news and weather feed" plugin.
it will read the news and weather to you.
check "GRETTA plugins" in the file sharing area.
-the dude

[tedathome]

Thanks Dude, I must have overlooked or forgoten that one.[]

[lightspeed]

hello all just wanted again to say a quick thanks to ted for the news uhp and to jasondude for his i downloaded it to . keep up the good work of helping others . []