Messages

16

Ultra Hal Assistant File Sharing Area / Re: A collection of plug-ins

« on: July 21, 2014, 05:32:12 pm »

GRETTAmedia

Code: [Select]

Rem Type=Plugin
Rem Name=GRETTA Media Functions
Rem Author=VR - jasondude7116
Rem Host=Assistant


'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
'------------------
' Define the Help
'------------------
    lblPlugin(0).Caption = "GRETTA will be able to play your favourite songs. Click below for more info"
    lblPlugin(0).Move 120, 120, 3300, 1000
    lblPlugin(0).WordWrap = True
    lblPlugin(0).Visible = True
    cmdPlugin(0).Move 320, 650, 2100, 375
    cmdPlugin(0).Caption = "Help on this plugin"
    cmdPlugin(0).Visible = True
'------------------
' Define the Musical Mood listbox
'------------------
    lblPlugin(1).Caption = "GRETTA Media Mood level"
    lblPlugin(1).Move 320, 1300, 4000, 1000
    lblPlugin(1).WordWrap = True
    lblPlugin(1).Visible = True   
    cboPlugin(0).Move 320, 1600, 1800
    cboPlugin(0).AddItem "Very high"
    cboPlugin(0).AddItem "High"
    cboPlugin(0).AddItem "Average"
    cboPlugin(0).AddItem "Low"
    cboPlugin(0).AddItem "Very Low"
    cboPlugin(0).Visible = True
    cmdPlugin(1).Caption = "Apply Changes"
    cmdPlugin(1).Move 320, 2100, 1600, 375
    cmdPlugin(1).Visible = True
'------------------
' Update the listbox with the current value stored in the table
'------------------
    If HalBrain.CheckTableExistence("vrParameter") = True Then
   vrMusicMood = HalBrain.TopicSearch("MUSIC", "vrParameter")
   If vrMusicMood = "" Then vrMusicMood = 1
  Select Case vrMusicMood
        Case 50
   cboPlugin(0).Text = "Very high"
        Case 40
           cboPlugin(0).Text = "High"
        Case 30
               cboPlugin(0).Text = "Average"
        Case 20
       cboPlugin(0).Text = "Low"
        Case 10
           cboPlugin(0).Text = "Very Low"
        End Select
    End If
End Sub

Sub cmdPlugin_Click(Index)
Dim vrTempQuery()
Dim vrMusic, vrMusicMood
Select Case Index
   Case 0
          HalMenu.HalCommand "<RUNPROG>vrMP3Help.html</RUNPROG>"
       Case 1
'------------------
' Convert the listbox in a value
'------------------
  Select Case cboPlugin(0).Text
        Case "Very high"
   vrMusicMood = 50
        Case "High"
   vrMusicMood = 40
        Case "Average"
   vrMusicMood = 30
        Case "Low"
   vrMusicMood = 20
        Case "Very Low"
   vrMusicMood = 10
        End Select
'------------------
' If the Parameter table does not exist, I create it
'------------------
        HalBrain.ReadOnlyMode = False
vrTableName = "vrParameter"
If HalBrain.CheckTableExistence(vrTableName) = False Then
'Create table if it doesn't exist
HalBrain.CreateTable vrTableName, "TopicSearch", "miscData"
End If
'------------------
' Search if it contains the MusicMood parameter
'------------------
        vrMusic = "MUSIC"
If HalBrain.TopicSearch(vrMusic, vrTableName) = "" Then
'------------------
'Creates the record storing the new value
'------------------
   HalBrain.AddToTable vrTableName, "TopicSearch", vrMusic, vrMusicMood
Else
'------------------
'Updates the record storing the new value
'------------------
           HalBrain.RunQuery "UPDATE " & vrTableName & " SET topic = " & vrMusicMood & " WHERE searchString = " & """" & vrMusic & """", vrTempQuery
        End If
   End Select
End Sub


Rem PLUGIN: PLUGINAREA5

If OriginalSentence <> "" Then





'The comment above tells Ultra Hal Assistant to insert the following code
'on-the-fly into the main brain code in the section referenced.

'------------------
' Check if the user asked for reorganizing the MP3 table
'------------------
vrMp3 = False
If InStr(UserSentence, " INDEX ") <> 0 And InStr(UserSentence, " MP3 ") <> 0 Then vrMP3 = True

If vrMP3 = True Then
'------------------
' If the MP3 table does not exist, I create it
'------------------
    HalBrain.ReadOnlyMode = False
vrTableName = "vrMp3"
If HalBrain.CheckTableExistence(vrTableName) = False Then
' Create table if it doesn't exist
' It must be of type Brain, to allow partial text search
HalBrain.CreateTable vrTableName, "Brain", "miscData"
    Else
' The 260 parameter is 256 + 4 = Yes/No with Default = No
vrAnswer = MsgBox("Shall I delete the existing index and recreate it from scratch?", 260, "MP3 Reindexing")
If vrAnswer = 6 Then
           HalBrain.RunQuery "DELETE FROM " & vrTableName, vrTempQuery
End If
End If
'------------------
' Ask which is the main MP3 folder
'------------------
vrMp3Folder = InputBox("Which main folder to you want to reindex?", "MP3 Reindexing", "D:\MP3")
'------------------
' Read the main MP3 folder
'------------------
   Set vrFso = CreateObject("Scripting.FileSystemObject")
   If vrFso.FolderExists(vrMp3Folder) Then
      GetResponse = "I have indexed all the MP3 files in the specified folder and subfolders. "
      HalBrain.ReadOnlyMode = False
      vrCurrentFolder = vrMp3Folder
      Call ReadFolder(vrCurrentFolder, vrMp3Folder)  
   Else
      GetResponse = "The folder " & vrMp3Folder & " does not exist on your computer. "
   End If
   HalBrain.ReadOnlyMode = True
End If

'------------------
' Check if the user asked for playing a song
'------------------
vrMp3 = False
vrToPlay = ""
vrNameToPlay = ""
vrToPlay = UCase(HalBrain.SearchPattern(UserSentence, "PLAY * SONG *", 2))
If vrToPlay <> "" Then
vrToPlay = " " & vrToPlay & " "
   vrToPlay = Replace(vrToPlay," ","xx",1,-1,vbTextCompare)
   If HalBrain.CheckTableExistence("vrMp3") = False Then
        GetResponse = "I don't find any MP3 index in my brain. "
   Else
     vrNameToPlay = HalBrain.QABrain(vrToPlay, "vrMp3", 0)
     If vrNameToPlay <> "" Then
        GetResponse = "Listen to this song; maybe it's the one you were talking about. "
        'HalCommands = HalCommands & "<RUNPROG>" & vrNameToPlay & "</RUNPROG>"
    Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(vrNameToPlay) Then
        Set objWSHShell = CreateObject("WScript.Shell")
objWSHShell.Run """" & vrNameToPlay & """"
End If
Else
GetResponse = "I'm sorry, it seems that song is not located in the library."
End If
   End If
   HalBrain.ReadOnlyMode = True
End If

'------------------
' From time to time, Hal will play a song, according to some word you say
' For example, you say: "I am going to California"
' Hal will play "Hotel California" by Eagles
'------------------
'------------------
' check the current music mood factor
'------------------
vrMusicMood = HalBrain.TopicSearch("MUSIC", "vrParameter")
If vrMusicMood = "" Then vrMusicMood = 0
vrMusicMood = CInt(vrMusicMood)
vrKeywords = ""

If vrMusicMood > 0 Then
MediaintHighNumber = 300
MediaintLowNumber = 1


    Randomize
    MediaintNumber = Int((MediaintHighNumber - MediaintLowNumber + 1) * Rnd + MediaintLowNumber)


   
vrNameToPlay = ""
If vrNameToPlay = "" Then
          vrKeywords = WN.FindFirstNoun(UserSentence, True)
vrKeywords = Trim(Ucase(vrKeywords))
If vrKeywords <> "" Then
vrKeywords = " " & vrKeywords & " "
vrKeywords = Replace(vrKeywords,", "," , ",1,-1,vbTextCompare)
vrKeywords = Replace(vrKeywords," ","xx",1,-1,vbTextCompare)
vrKeywordList = Split(vrKeywords, ",")
For i = Lbound(vrKeywordList) To Ubound(vrKeywordList)
    vrNameToPlay = HalBrain.QABrain(vrKeywordList(i), "vrMp3", 0)
Exit For
Next
End If
End If

If vrNameToPlay = "" Then
          vrKeywords = WN.FindFirstNoun(UserSentence, False)
vrKeywords = Trim(Ucase(vrKeywords))
If vrKeywords <> "" Then
vrKeywords = " " & vrKeywords & " "
vrKeywords = Replace(vrKeywords,", "," , ",1,-1,vbTextCompare)
vrKeywords = Replace(vrKeywords," ","xx",1,-1,vbTextCompare)
vrKeywordList = Split(vrKeywords, ",")
For i = Lbound(vrKeywordList) To Ubound(vrKeywordList)
    vrNameToPlay = HalBrain.QABrain(vrKeywordList(i), "vrMp3", 0)
Exit For
Next
End If
End If


If vrNameToPlay = "" Then
vrKeywords = HalBrain.RemoveExtraSpaces(HalBrain.ExtractKeywords(" " & UserSentence & " "))
vrKeywords = Trim(Ucase(vrKeywords))
If vrKeywords <> "" Then
vrKeywords = " " & vrKeywords & " "
vrKeywords = Replace(vrKeywords,", "," , ",1,-1,vbTextCompare)
vrKeywords = Replace(vrKeywords," ","xx",1,-1,vbTextCompare)
vrKeywordList = Split(vrKeywords, ",")
          For i = Lbound(vrKeywordList) To Ubound(vrKeywordList)
        vrNameToPlay = HalBrain.QABrain(vrKeywordList(i), "vrMp3", 0)
Next
End If
End If

If vrNameToPlay = "" Then
          vrKeywords = WN.FindFirstNoun(UserSentence, True)
vrKeywords = Trim(Ucase(vrKeywords))
If vrKeywords <> "" Then
vrKeywords = CurrentSubject
vrKeywords = "xx" & vrKeywords & "xx"
vrKeywords = Replace(vrKeywords,", ","xx,xx",1,-1,vbTextCompare)
vrKeywordList = Split(vrKeywords, ",")
For i = Lbound(vrKeywordList) To Ubound(vrKeywordList)
    vrNameToPlay = HalBrain.QABrain(vrKeywordList(i), "vrMp3", 0)
Exit For
Next
End If
End If
If vrNameToPlay <> "" Then

If MediaintNumber < vrMusicMood Then

          Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(vrNameToPlay) Then
                Set objWSHShell = CreateObject("WScript.Shell")
objWSHShell.Run """" & vrNameToPlay & """"
End If



                End If
         
    End If
    End If
End If


Rem PLUGIN: FUNCTIONS
'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.

Function ReadFolder(vrCurrentFolder, vrMp3Folder)
Set vrFso = CreateObject("Scripting.FileSystemObject")
Set vrFolder = vrFso.GetFolder(vrCurrentFolder)
'------------------
' Read all the files in the current folder
'------------------
Set vrFiles = vrFolder.Files
For Each vrFile in vrFiles
'------------------
' It's an MP3 file; I add it to the table
'------------------
   If UCase(Right(vrFile, 3)) = "MP3" Then
  vrSong = Ucase(vrFile)
      vrSong = Replace(vrSong, ".MP3", "")
  vrLen = Len(vrSong)
  vrPos = InStrRev(vrSong, "\")
      vrRight = vrLen - vrPos
    vrSong = LTrim(Right(vrSong, vrRight))
  vrSong = " " & vrSong & " "
  vrSong = Replace(vrSong," ","xx",1,-1,vbTextCompare)  
      HalBrain.AddToTable "vrMp3", "Brain", vrSong, vrFile
   End If
Next
'------------------
' Read all the subfolders in the current folder
'------------------


Set vrSubFolders = vrFolder.SubFolders
For Each vrFolderObject in vrSubFolders
'------------------
' Pay attetion here: This is recursive! We must be sure that it will get to an end
' Since we are reading directories on a hard disk, the number of recursions
' should never be infinite. However, a very big number of subfolders and files
' might lead to memory problems or to performances bottlenecks.
' I've tested it on a folder containing about 100 subfolders and 3.000 files,
' and got acceptable performances (less than 5 minutes)
'------------------
   Call ReadFolder(vrFolderObject, vrMp3Folder)  
Next

End Function



17

Ultra Hal Assistant File Sharing Area / Re: A collection of plug-ins

« on: July 21, 2014, 05:31:42 pm »

Ok I'm just gonna post them here as code... due to the character limits on posts I'll have to do them one at a time...

GRETTAinternet

Code: [Select]

Rem Type=Plugin
Rem Name=GRETTA Internet Functions
Rem Author= Gerald L. Blakley A.K.A OnTheCuttingEdge2005 - 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: PLUGINAREA5


If GoToFacebook = "" Then GoToFacebook = HalBrain.SearchPattern(OriginalSentence, "*GO TO*FACEBOOK*", 2)
If GoToFacebook <> "" Then
FacebookSite = "http://www.facebook.com/"
   HalMenu.HalCommand "<RUNPROG>" & FacebookSite & "</RUNPROG>"
End If



If GoToVitrualhumansforum = "" Then GoToVitrualhumansforum = HalBrain.SearchPattern(OriginalSentence, "*GO TO*VIRTUAL HUMANS FORUM*", 2)
If GoToVitrualhumansforum <> "" Then
VirtualhumansforumSite = "http://www.vrconsulting.it/vhf/"
   HalMenu.HalCommand "<RUNPROG>" & VirtualhumansforumSite & "</RUNPROG>"
End If



If GoTo950 = "" Then GoTo950 = HalBrain.SearchPattern(OriginalSentence, "*GO TO*950*", 2)
If GoTo950 <> "" Then
The950Site = "http://www.the950.com/cc-common/ondemand/player2.html?world=st"
   HalMenu.HalCommand "<RUNPROG>" & The950Site & "</RUNPROG>"
End If



If GoToInternettv = "" Then GoToInternettv = HalBrain.SearchPattern(OriginalSentence, "*GO TO*INTERNET T*", 2)
If GoToInternettv <> "" Then
InternettvSite = "http://mediahopper.com/"
   HalMenu.HalCommand "<RUNPROG>" & InternettvSite & "</RUNPROG>"
End If


If GoToMsn = "" Then GoToMsn = HalBrain.SearchPattern(OriginalSentence, "*GO TO*MSN*", 2)
If GoToMsn <> "" Then
MsnSite = "http://www.msn.com/"
   HalMenu.HalCommand "<RUNPROG>" & MsnSite & "</RUNPROG>"
End If


If GoToFriendster = "" Then GoToFriendster = HalBrain.SearchPattern(OriginalSentence, "*GO TO*FRIENDSTER*", 2)
If GoToFriendster <> "" Then
FriendsterSite = "http://www.friendster.com/"
   HalMenu.HalCommand "<RUNPROG>" & FriendsterSite & "</RUNPROG>"
End If



If GoToGoogle = "" Then GoToGoogle = HalBrain.SearchPattern(OriginalSentence, "*GO TO*GOOGLE*", 2)
If GoToGoogle <> "" Then
GoogleSite = "http://www.google.com/"
   HalMenu.HalCommand "<RUNPROG>" & GoogleSite & "</RUNPROG>"
End If




If GoToZabawareforum = "" Then GoToZabawareforum = HalBrain.SearchPattern(OriginalSentence, "*GO TO*ZABAWARE FORUM*", 2)
If GoToZabawareforum <> "" Then
ZabawareforumSite = "http://www.zabaware.com/forum/"
   HalMenu.HalCommand "<RUNPROG>" & ZabawareforumSite & "</RUNPROG>"
End If


If GoToYahoomail = "" Then GoToYahoomail = HalBrain.SearchPattern(OriginalSentence, "*GO TO*YAHOO MAIL*", 2)
If GoToYahoomail <> "" Then
YahoomailSite = "https://login.yahoo.com/config/mail?.intl=us"
   HalMenu.HalCommand "<RUNPROG>" & YahoomailSite & "</RUNPROG>"
End If





If GoToYahoo = "" Then GoToYahoo = HalBrain.SearchPattern(OriginalSentence, "*GO TO*YAH*O", 2)
If GoToYahoo <> "" Then
YahooSite = "http://www.yahoo.com/"
   HalMenu.HalCommand "<RUNPROG>" & YahooSite & "</RUNPROG>"
End If



If GoToNationalnews = "" Then GoToNationalnews = HalBrain.SearchPattern(OriginalSentence, "*GO TO*NATIONAL NEWS*", 2)
If GoToNationalnews <> "" Then
NationalnewsSite = "http://www.foxnews.com/"
   HalMenu.HalCommand "<RUNPROG>" & NationalnewsSite & "</RUNPROG>"
End If





If GoToLocalnews = "" Then GoToLocalnews = HalBrain.SearchPattern(OriginalSentence, "*GO TO*LOCAL NEWS*", 2)
If GoToLocalnews <> "" Then
LocalnewsSite = "http://www.khou.com/news/"
   HalMenu.HalCommand "<RUNPROG>" & LocalnewsSite & "</RUNPROG>"
End If



If GoToWeather = "" Then GoToWeather = HalBrain.SearchPattern(OriginalSentence, "*GO TO*WEATHER*", 2)
If GoToWeather <> "" Then
WeatherSite = "http://www.weather.com/weather/tenday/77328?from=36hr_topnav_undeclared"
   HalMenu.HalCommand "<RUNPROG>" & WeatherSite & "</RUNPROG>"
End If


If GoToVitrualhumansforum <> "" Or GoTo950 <> "" Or GoToInternettv <> "" Or GoToMsn <> "" Or GoToFriendster <> "" Or GoToGoogle <> "" Or GoToZabawareforum <> "" Or GoToYahoomail <> "" Or GoToYahoo <> "" Or GoToNationalnews <> "" Or GoToLocalnews <> "" Or GoToWeather <> "" Or GoToFacebook <> "" Then

Select Case (Int(Rnd * 4) + 1)
Case 1
GetResponse = "Here is the page you asked me for." & vbCrLf
Case 2
GetResponse = "Here it is. Now you can access it." & vbCrLf
Case 3
GetResponse = "I am accessing it for you." & vbCrLf
Case 4
GetResponse = "OK. Here it is." & vbCrLf
Case 5
GetResponse = "I am opening the connection." & 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." & vbCrLf
                 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 & "." & vbCrLf
                 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 & "." & vbCrLf
                 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. " & vbCrLf
         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. " & vbCrLf
         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 & "." & vbCrLf
                 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." & vbCrLf 
                 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 & "." & vbCrLf
                 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." & vbCrLf
                 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." & vbCrLf
                 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 & "." & vbCrLf
                 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." & vbCrLf
                 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." & vbCrLf
                 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 & "." & vbCrLf
                 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 & "." & vbCrLf
                 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 & "." & vbCrLf
                 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." & vbCrLf
                 HalBrain.ReadOnlyMode = True
End If









18

Ultra Hal Assistant File Sharing Area / Re: A collection of plug-ins

« on: July 14, 2014, 07:16:28 pm »

I'll make sure to add them to my current collection for everyone's use!  If Frosty has some way to share them with me I will put them with the others. Do you have skydrive Frosty?

I haven't got anything like that set up, no. If you can PM me an email address I can send them over, though. they're all small files.

failing that I could open them as text files and dump them in code boxes on here?

19

Ultra Hal Assistant File Sharing Area / Re: A collection of plug-ins

« on: June 28, 2014, 06:20:05 pm »

Hi there. I've recently reinstalled hal, and I have a few plugins saved in my folder that aren't on your drive right now.

I've got:

GRETTAinternet
GRETTAmedia
GRETTAmusicidle
GRETTAnews
GRETTApicture
GRETTAread
GRETTAcuriosity
GRETTAemoticon
Dreamer Beta
Hybred talk
Tell Me

So... I don't actually recall what any of them do, but I'll be happy to send them over if you want them.

20

Ultra Hal 7.0 / Re: Hal graphics work

« on: August 20, 2013, 05:39:15 pm »

Just wanted to say I'm still lurking, and loving the new website! Looks much more modern and should pull in some new custom

Also still looking forward to the new brain when it gets released! I've got some money set to one side ready for release still

21

Ultra Hal 7.0 / Re: Anything we can do?

« on: February 27, 2013, 05:48:19 pm »

Hey Robert, do we have a new ETA for the website/redesign etc?

I've been checking in (admittedly infrequently) for the last 3 months expecting the website to update any day and whilst I appreciate there's a lot of work going on in the background i was just wondering if we had any updates on when to expect what

22

Ultra Hal 7.0 / Re: Anything we can do?

« on: December 29, 2012, 08:54:19 am »

I'm kinda sad that that the work was not completed in time for the end of the year, but I appreciate the update. now I know that I should be expecting the new website before the new brain is ready, I can just check the website itself, rather than going onto the store and/or forum to check for a new version.

good luck sorting it

23

Ultra Hal 7.0 / Re: UltraHal Update

« on: November 28, 2012, 05:51:45 pm »

I know I've been quiet for quite some time (once again) but I do check in every so often waiting for an updated version of the HAL brain that I'd look forward to using. Seeing the (estimated) release date of the end of this year is very exciting news indeed!

Keep up the work Mr M! I look forward to seeing what you come up with! 

24

General Discussion / Re: Tell Me How To Play Arcanum! (Part 2 Looting and wolves)

« on: December 30, 2011, 05:31:45 pm »

Here's Chapter 2 of the story, also the first one featuring user-interaction. I hope it gives you all more of an idea of what the game will be about!

it also features:
higher quality video
Voiceover (I'd like your feedback on this as to whether or not to keep it in)
first user action of the game

http://youtu.be/tZrx2TASN70

Enjoy!

25

General Discussion / Tell Me How To Play Arcanum! (Part 2 Looting and wolves)

« on: December 26, 2011, 04:25:18 pm »

The rules are quite straight forwards. Ive started a game of Arcanum, and now am relinquishing the controls to everyone else!

The starting video can be found here: http://youtu.be/2TXnuY4e0F8

preview of part 1:



So what happens next?

Simple! post Ideas below on what to do next!
The 3 most suggested/voted for options will be done in each video (minimum)
videos will be updated Mondays, Wednesdays and Fridays.
If your idea is put in-game, you'll get a mention!

So let's go and have some fun with it!

26

General Discussion / Re: Advanced brain-like computer made from by DVDs

« on: December 11, 2011, 07:52:56 pm »

Just out of interest, how did you find that video? it only has 150 or so views so wouldn't have turned up on youtube search without some pretty specific search parameters

27

Ultra Hal 7.0 / Re: How can I make Hal an atheist?

« on: December 11, 2011, 07:43:47 pm »

I'll give this a try later. I'm an athiest myself and have almost got into a debate with my Hal (also trained as a Cyborg... well, but without the body) and had to stop myself so Hal doesn't get confused with my responses.

I'd also like to say myself I don't wish to step anybody else's beliefs, it's just in my childhood days I imagined an AI would not believe in god, and training Hal is really just trying to entertain my inner child (who imagined a world similar to the Jetsons by the 21st century... which is where the Jestons were based lol )

28

General Discussion / Re: Gun's don't kill people *i* kill people!

« on: November 17, 2011, 03:57:54 pm »

I can't snipe for the life of me. I'm strictly a Light Machine Gun Guy   

I got that score with 2 LMGs and the "slight of hand" perk 

29

General Discussion / Gun's don't kill people *i* kill people!

« on: November 17, 2011, 02:17:14 pm »

may i present to you an image summing up both my day and greatest in-game achievement ever.

http://img854.imageshack.us/img854/1619/imag0399m.jpg

that's the leaderboard for modernwarfare 3's single player survival mode on the "mission" map.

and that name ranked 49th in the world is my gamertag

30

General Discussion / Re: just my luck :(

« on: November 07, 2011, 02:30:13 pm »

If you're looking for a replacement firewall which is free and decent check out C.O.M.O.D.O

It works very similar to norton, except it doesn't take up so many of your computers resources, and it's not as vindictive against allowing other users to connect to your pc for gaming. (I hate norton, the only thing I do with a computer when i buy it before making the recovery disc is remove norton ) I've been using COMODO since I got 7 and it's worked fine with me the whole time.