Messages

76

General Discussion / Re: Old School hal plugins

« on: September 19, 2021, 12:13:45 pm »

Rem Type=Plugin
Rem Name= netflix
Rem Author= modded by cyber
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 = False
'Determines that you are talking about the Netflix
If InStr(1,InputString, "netflix",1) > 0 Then
 UltraHal = Getnetflix(HalCommands)
ElseIf InStr(1,InputString, "netflix",1) > 0 Then
 End If

 ' This bad boy is a netflix Scraper with a twist, All the data Scraped is ported through Hals Voice.  It took cyberjedi to pull it off. Enjoy. 
    ' This also Breaks Hals speech limitations on how much he can say. 
 ' Trigger= load netflix ( Hal will read all the new releases from netfix)
     'I put this together while listening to this. -->>>https://www.youtube.com/watch?v=aqXW57WM9TA
 
 ' I give myself about a solid 8.5 on cool ideas here


Rem PLUGIN: FUNCTIONS
Function Getnetflix(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://dvd.netflix.com/NewReleasesRSS") ' This is the 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

77

General Discussion / Re: Old School hal plugins

« on: September 19, 2021, 12:10:58 pm »

Rem Type=Plugin
Rem Name=Sing A Song 3
Rem Author=jasondude7116
Rem Host=Assistant

'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
    lblPlugin(0).Caption = "Just say- PLEASE SING whateversong  PLEASE SING SONG LIST for a list of songs"
    lblPlugin(0).Move 120, 10, 3300, 1000
    lblPlugin(0).WordWrap = True
    lblPlugin(0).Visible = True
End Sub






Rem PLUGIN: PLUGINAREA6
   'sing a song   
Set objFSO = CreateObject("Scripting.FileSystemObject")
DudProceed2 = False

If SongSung = "" Then SongSung = HalBrain.SearchPattern(HalBrain.AlphaNumericalOnly(OriginalSentence), "PLEASE SING *", 1)
If SongSung <> "" And objFSO.FileExists("C:\Program Files\Zabaware\Ultra Hal Assistant 6\songs\" & SongSung & ".txt") = True Then
 Select Case HalBrain.RandomNum(6)
Case 1
IdleResponse66 = "I would love to."
Case 2
IdleResponse66 = "Sure."
Case 3
IdleResponse66 = "Alright."
Case 4
IdleResponse66 = "Okay."
Case 5
IdleResponse66 = "Sing with me."
Case 6
IdleResponse66 = "No problem."
End Select
GetResponse = IdleResponse66
    HalBrain.ReadOnlyMode = True     
   If GetResponse = IdleResponse66 Then
   DudProceed2 = True
   
       
   End If   


   If DudProceed2 = True Then
   Set objWSHShell = CreateObject("WScript.Shell")
   
   objWSHShell.Run("""C:\Program Files\Balabolka\balabolka.exe"" -rmq ""C:\Program Files\Zabaware\Ultra Hal Assistant 6\songs\" & SongSung & ".txt"" ""Eddie""")
        HalBrain.ReadOnlyMode = True
   End If

End If


If SongSung <> "" And objFSO.FileExists("C:\Program Files\Zabaware\Ultra Hal Assistant 6\songs\" & SongSung & ".txt") = False Then
         GetResponse = " That file does not exist. "
HalBrain.ReadOnlyMode = True
End If

78

General Discussion / Re: Old School hal plugins

« on: September 19, 2021, 12:03:52 pm »

You guys wanted a news anchor , welll . Have u ever known one to stfu? lolol

Troll plugin,,,lol. Hal gonna test ur nerves... hehehe






Rem Type=Plugin
Rem Name=MP4
Rem Author=modded by cyberjedi
Rem Host=Assistant



'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
'------------------
' Define the Help
'------------------
    lblPlugin(0).Caption = "Hal will be able to play your favourite movies. 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 = "Hal Movie 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 "No Movie
    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
      vrMovieMood = HalBrain.TopicSearch("Movie", "vrParameter")
      If vrMovieMood = "" Then vrMovieMood = 1
     Select Case vrMovieMood
           Case 8
            cboPlugin(0).Text = "Very high"
           Case 5
                cboPlugin(0).Text = "High"
           Case 2
               cboPlugin(0).Text = "Average"
           Case 1
             cboPlugin(0).Text = "Low"
           Case 0
                cboPlugin(0).Text = "No movie"
        End Select
    End If
End Sub

Sub cmdPlugin_Click(Index)
Dim vrTempQuery()
Dim vrMovie, vrMovieMood
Select Case Index
      Case 0
                  HalMenu.HalCommand "<RUNPROG>vrMP4Help.html</RUNPROG>"
       Case 1
'------------------
' Convert the listbox in a value
'------------------
     Select Case cboPlugin(0).Text
           Case "Very high"
            vrMovieMood = 8
           Case "High"
            vrMovieMood = 5
           Case "Average"
            vrMovieMood = 2
           Case "Low"
            vrMovieMood = 1
           Case "No music"
            vrMovieMood = 0
        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 MovieMood parameter
'------------------
        vrMovie = "MOVIE"
      If HalBrain.TopicSearch(vrMusic, vrTableName) = "" Then
'------------------
'Creates the record storing the new value
'------------------
         HalBrain.AddToTable vrTableName, "TopicSearch", vrMovie, vrMovieMood
      Else
'------------------
'Updates the record storing the new value
'------------------
           HalBrain.RunQuery "UPDATE " & vrTableName & " SET topic = " & vrMovieMood & " WHERE searchString = " & """" & vrMovie & """", vrTempQuery
        End If
   End Select
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.

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

If vrMP4 = True Then
'------------------
' If the MP4 table does not exist, I create it
'------------------
      HalBrain.ReadOnlyMode = False
   vrTableName =    "vrMp4"    
   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, "MP4 Reindexing")
      If vrAnswer = 6 Then
           HalBrain.RunQuery "DELETE FROM " & vrTableName, vrTempQuery
      End If
   End If
'------------------
' Ask which is the main MP4 folder
'------------------
vrMp4Folder = InputBox("Which main folder to you want to reindex?", "MP4 Reindexing", "c:\MP4")
'------------------
' Read the main MP4 folder
'------------------
   Set vrFso = CreateObject("Scripting.FileSystemObject")
   If vrFso.FolderExists(vrMp4Folder) Then
        GetResponse = "I have indexed all the MP4 files in the specified folder and subfolders. "
        HalBrain.ReadOnlyMode = False
      vrCurrentFolder = vrMp4Folder
      Call ReadFolder(vrCurrentFolder, vrMp4Folder)    
   Else
      GetResponse = "The folder " & vrMp4Folder & " does not exist on your computer. "
   End If
   HalBrain.ReadOnlyMode = True
End If

'------------------
' Check if the user asked for playing a song
'------------------
vrMp4 = False
vrToPlay = ""
vrNameToPlay = ""
vrToPlay = UCase(HalBrain.SearchPattern(UserSentence, "PLAY * MOVIE *", 2))
If vrToPlay <> "" Then
   If HalBrain.CheckTableExistence("vrMp4") = False Then
          GetResponse = "I don't find any MP4 index in our brain. "
   Else
     vrNameToPlay = HalBrain.QABrain(vrToPlay, "vrMp4", 0)
     If vrNameToPlay <> "" Then
          GetResponse = " "
          HalCommands = HalCommands & "<RUNPROG>" & vrNameToPlay & "</RUNPROG>"
     End If
   End If
   HalBrain.ReadOnlyMode = True
End If

'------------------
' From time to time, Hal will play a movie, according to some word you say
' For example, you say: "I am going to California"
' Hal will play "California Dreaming"
'------------------
'------------------
' check the current movie mood factor
'------------------
vrMovieMood = HalBrain.TopicSearch("MOVIE", "vrParameter")
If vrMovieMood = "" Then vrMovieMood = 0
vrMovieMood = CInt(vrMovieMood)

If vrMovieMood > 0 Then
   j = Int(Rnd * 10) ' generate a random integer between 0 and 9
   If j < vrMovieMood Then
         vrKeywords = HalBrain.RemoveExtraSpaces(HalBrain.ExtractKeywords(" " & UserSentence & " "))
           vrKeywordList = Split(vrKeywords, " ")
         For i = Ubound(vrKeywordList) To Lbound(vrKeywordList)
           vrNameToPlay = HalBrain.QABrain(vrKeywordList(i), "vrMp4", 0)
             If vrNameToPlay <> "" Then
                  GetResponse = "You talked about " & vrKeywordList(i) & " and this reminds me this movie. "
                  HalCommands = HalCommands & "<RUNPROG>" & vrNameToPlay & "</RUNPROG>"
             Exit For
            End If
         Next
    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, vrMp4Folder)
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 MP4 file; I add it to the table
'------------------
   If UCase(Right(vrFile, 3)) = "MP4" Then
     vrSong = Ucase(vrFile)
      vrSong = Replace(vrSong, ".MP4", "")
     vrLen = Len(vrSong)
     vrPos = InStrRev(vrSong, "\")
      vrRight = vrLen - vrPos
       vrSong = LTrim(Right(vrSong, vrRight))
        HalBrain.AddToTable "vrMp4", "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, vrMp4Folder)    
Next

End Function




   

79

General Discussion / Re: Old School hal plugins

« on: September 19, 2021, 09:58:57 am »

Rem Type=Plugin
Rem Name=Dreaming Picture Thoughts
Rem Author=modded by cyberjedi
Rem Host=Assistant


'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
'------------------
' Define the Help
'------------------
    lblPlugin(0).Caption = "Alice will show you pictures of it's thoughts in dreams.     Say: INDEX IMAGE to index the image folder.     Supports JPG, PNG, And GIF"
    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 Picture Mood listbox
'------------------
    lblPlugin(1).Caption = "Alice Picture 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 "Minimal"
    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("pvrParameter") = True Then
      pvrPictureMood = HalBrain.TopicSearch("PICTURE", "pvrParameter")
      If pvrPictureMood = "" Then pvrPictureMood = 1
     Select Case pvrPictureMood
           Case 100
            cboPlugin(0).Text = "Very high"
           Case 75
                cboPlugin(0).Text = "High"
           Case 50
               cboPlugin(0).Text = "Average"
           Case 25
             cboPlugin(0).Text = "Low"
           Case 10
                cboPlugin(0).Text = "Minimal"
        End Select
    End If
End Sub





Sub cmdPlugin_Click(Index)
Dim pvrTempQuery()
Dim pvrPicture, pvrPictureMood
Select Case Index
      Case 0
                  HalMenu.HalCommand "<RUNPROG>pvrJpgHelp.html</RUNPROG>"
       Case 1
'------------------
' Convert the listbox in a value
'------------------
     Select Case cboPlugin(0).Text
           Case "Very high"
            pvrPictureMood = 100
           Case "High"
            pvrPictureMood = 75
           Case "Average"
            pvrPictureMood = 50
           Case "Low"
            pvrPictureMood = 25
           Case "Minimal"
            pvrPictureMood = 10
        End Select
'------------------
' If the Parameter table does not exist, I create it
'------------------
          HalBrain.ReadOnlyMode = False
      pvrTableName =    "pvrParameter"    
      If HalBrain.CheckTableExistence(pvrTableName) = False Then
      'Create table if it doesn't exist
         HalBrain.CreateTable pvrTableName, "TopicSearch", "miscData"
      End If
'------------------
' Search if it contains the PictureMood parameter
'------------------
        pvrPicture = "PICTURE"
      If HalBrain.TopicSearch(pvrPicture, pvrTableName) = "" Then
'------------------
'Creates the record storing the new value
'------------------
         HalBrain.AddToTable pvrTableName, "TopicSearch", pvrPicture, pvrPictureMood
      Else
'------------------
'Updates the record storing the new value
'------------------
           HalBrain.RunQuery "UPDATE " & pvrTableName & " SET topic = " & pvrPictureMood & " WHERE searchString = " & """" & pvrPicture & """", pvrTempQuery
        End If
   End Select
End Sub

Sub OptionsPanel()
lblPlugin(0).Caption = "Enables talking dream mode."
lblPlugin(0).Move 130, 180, 3400, 1200
lblPlugin(0).WordWrap = True
lblPlugin(0).Visible = True
End Sub


Rem PLUGIN: SCRIPT_LOAD
Script_Load = Script_Load & "<DREAMOUTLOUD>"




Rem PLUGIN: FUNCTIONS
'
'------------------
' Declare variables
'------------------
Dim PicLastIdleResponse, MyPicMediaDir, PicDefaultLoad, PicDudOut


Rem PLUGIN: PLUGINAREA7
'------------------
' Begin measuring pause time and capture userName
'------------------
PicLastIdleResponse = Now
PicDudOut = 0

Rem PLUGIN: PLUGINAREA1
If OriginalSentence <> "" Then
   MyPicMediaDir = PicMediaDir()
   PicDefaultLoad = MyPicMediaDir & "DefPic.jpg"
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   If objFSO.FileExists(PicDefaultLoad) Then
      Set objWSHShell = CreateObject("WScript.Shell")
      objWSHShell.Run """" & PicDefaultLoad & """"
   End If
End If
Rem PLUGIN: PLUGINAREA5
'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 Image table
'------------------
pvrJpg = False
If InStr(UserSentence, " INDEX ") <> 0   And InStr(UserSentence, " IMAGE ") <> 0 Then pvrJpg = True

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



'------------------
' From time to time, Hal will show a picture, according to the subject
' For example, you say: "I like cats"
' Hal might show a picture of a cat
'------------------
'------------------
' check the current image mood factor
'------------------
pvrPictureMood = HalBrain.TopicSearch("PICTURE", "pvrParameter")
If pvrPictureMood = "" Then pvrPictureMood = 0
pvrPictureMood = CInt(pvrPictureMood)
pvrKeywords = ""

If pvrPictureMood > 0 Then
pMediaintHighNumber = 110
pMediaintLowNumber = 1


    Randomize
    pMediaintNumber = Int((pMediaintHighNumber - pMediaintLowNumber + 1) * Rnd + pMediaintLowNumber)


   If pMediaintNumber < pvrPictureMood Then
      pvrNameToPlay = ""
      If pvrNameToPlay = "" Then
               pvrKeywords = WN.FindFirstNoun(UserSentence, True)
         pvrKeywords = Trim(Ucase(pvrKeywords))
         If pvrKeywords <> "" Then
            pvrKeywords = " " & pvrKeywords & " "
            pvrKeywords = Replace(pvrKeywords,", "," , ",1,-1,vbTextCompare)
             pvrKeywords = Replace(pvrKeywords," ","xx",1,-1,vbTextCompare)
            pvrKeywordList = Split(pvrKeywords, ",")
                  For i = Lbound(pvrKeywordList) To Ubound(pvrKeywordList)
                    pvrNameToPlay = HalBrain.QABrain(pvrKeywordList(i), "pvrJpg", 0)
            Next
         End If
      End If

      If pvrNameToPlay = "" Then
               pvrKeywords = WN.FindFirstNoun(UserSentence, False)
         pvrKeywords = Trim(Ucase(pvrKeywords))
         If pvrKeywords <> "" Then
                    pvrKeywords = " " & pvrKeywords & " "
            pvrKeywords = Replace(pvrKeywords,", "," , ",1,-1,vbTextCompare)                    
              pvrKeywords = Replace(pvrKeywords," ","xx",1,-1,vbTextCompare)                   
            pvrKeywordList = Split(pvrKeywords, ",")
                  For i = Lbound(pvrKeywordList) To Ubound(pvrKeywordList)
                    pvrNameToPlay = HalBrain.QABrain(pvrKeywordList(i), "pvrJpg", 0)
            Next
         End If
      End If

         If pvrNameToPlay = "" Then
            pvrKeywords = HalBrain.RemoveExtraSpaces(HalBrain.ExtractKeywords(" " & UserSentence & " "))
            pvrKeywords = Trim(Ucase(pvrKeywords))
                   If pvrKeywords <> "" Then
                       pvrKeywords = " " & pvrKeywords & " "
               pvrKeywords = Replace(pvrKeywords,", "," , ",1,-1,vbTextCompare)                       
                 pvrKeywords = Replace(pvrKeywords," ","xx",1,-1,vbTextCompare)                      
               pvrKeywordList = Split(pvrKeywords, ",")
                     For i = Lbound(pvrKeywordList) To Ubound(pvrKeywordList)
                       pvrNameToPlay = HalBrain.QABrain(pvrKeywordList(i), "pvrJpg", 0)
               Next
            End If
            
              End If
      If pvrNameToPlay = "" Then
               pvrKeywords = WN.FindFirstNoun(UserSentence, True)
         pvrKeywords = Trim(Ucase(pvrKeywords))
         If pvrKeywords <> "" Then
            pvrKeywords = CurrentSubject
            pvrKeywords = "xx" & pvrKeywords & "xx"
            pvrKeywords = Replace(pvrKeywords,", ","xx,xx",1,-1,vbTextCompare)            
            pvrKeywordList = Split(pvrKeywords, ",")
                  For i = Lbound(pvrKeywordList) To Ubound(pvrKeywordList)
                    pvrNameToPlay = HalBrain.QABrain(pvrKeywordList(i), "pvrJpg", 0)
            Next
         End If
      End If     
               If pvrNameToPlay <> "" Then   
                             Set objFSO = CreateObject("Scripting.FileSystemObject")
                     If objFSO.FileExists(pvrNameToPlay) Then
                              Set objWSHShell = CreateObject("WScript.Shell")
                        objWSHShell.Run """" & pvrNameToPlay & """"
                     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 pReadFolder(pvrCurrentFolder, pvrJpgFolder)
Set pvrFso = CreateObject("Scripting.FileSystemObject")
Set pvrFolder = pvrFso.GetFolder(pvrCurrentFolder)
'------------------
' Read all the files in the current folder
'------------------
Set pvrFiles = pvrFolder.Files
For Each pvrFile in pvrFiles
'------------------
' It's an JPG, PNG, Or GIF file; I add it to the table
'------------------
   If UCase(Right(pvrFile, 3)) = "JPG" Then
     pvrImage = Ucase(pvrFile)
      pvrImage = Replace(pvrImage, ".JPG", "")
     pvrLen = Len(pvrImage)
     pvrPos = InStrRev(pvrImage, "\")
      pvrRight = pvrLen - pvrPos
       pvrImage = LTrim(Right(pvrImage, pvrRight))
     pvrImage = " " & pvrImage & " "
     pvrImage = Replace(pvrImage," ","xx",1,-1,vbTextCompare)
        HalBrain.AddToTable "pvrJpg", "Brain", pvrImage, pvrFile
   End If

   If UCase(Right(pvrFile, 3)) = "PNG" Then
     pvrImage = Ucase(pvrFile)
      pvrImage = Replace(pvrImage, ".PNG", "")
     pvrLen = Len(pvrImage)
     pvrPos = InStrRev(pvrImage, "\")
      pvrRight = pvrLen - pvrPos
       pvrImage = LTrim(Right(pvrImage, pvrRight))
     pvrImage = " " & pvrImage & " "
     pvrImage = Replace(pvrImage," ","xx",1,-1,vbTextCompare)
        HalBrain.AddToTable "pvrJpg", "Brain", pvrImage, pvrFile
   End If

   If UCase(Right(pvrFile, 3)) = "GIF" Then
     pvrImage = Ucase(pvrFile)
      pvrImage = Replace(pvrImage, ".GIF", "")
     pvrLen = Len(pvrImage)
     pvrPos = InStrRev(pvrImage, "\")
      pvrRight = pvrLen - pvrPos
       pvrImage = LTrim(Right(pvrImage, pvrRight))
     pvrImage = " " & pvrImage & " "
     pvrImage = Replace(pvrImage," ","xx",1,-1,vbTextCompare)   
        HalBrain.AddToTable "pvrJpg", "Brain", pvrImage, pvrFile
   End If

Next
'------------------
' Read all the subfolders in the current folder
'------------------


Set pvrSubFolders = pvrFolder.SubFolders
For Each pvrFolderObject in pvrSubFolders
'------------------
' 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 pReadFolder(pvrFolderObject, pvrJpgFolder)   
Next

End Function

'Directory
 Function PicMediaDir()
   Set fso = CreateObject("Scripting.FileSystemObject")
   PicMediaDir = fso.GetAbsolutePathName(".") & "\pics\"
   End Function

Rem PLUGIN: MINUTE_TIMER

If PicDudOut = 0 Then
   If PicLastIdleResponse <> "" Then
      If (Now - PicLastIdleResponse > 3 / 1440) And (Now - PicLastIdleResponse < 4 / 1440) Then
         PicDudOut = PicDudOut + 1
         Set objFSO = CreateObject("Scripting.FileSystemObject")
         If objFSO.FileExists(PicDefaultLoad) Then
            Set objWSHShell = CreateObject("WScript.Shell")
            objWSHShell.Run """" & PicDefaultLoad & """"
         End If
      End If
   End If
End If

80

General Discussion / Old School hal plugins

« on: September 19, 2021, 09:50:53 am »

Rem Type=Plugin
Rem Name= angermanagement 101
Rem Author= modded by 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 = False
'Determines that you are talking about the angermanagement
'<<<<< Ur basic trigger , change as needed
If InStr(1,InputString, "anger",1) > 0 Then
 UltraHal = anger(HalCommands)
ElseIf InStr(1,InputString, "anger",1) > 0 Then
 End If

' This has been tested on booth XP and 07 platforms
' This is an Rss scraper
' pretty nifty
' i will break this down as best i can.

Rem PLUGIN: FUNCTIONS
Function anger(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")                 '<<<<<<<This is where we set the stage for ur computers voice. So invest in a good 1
   For Each Voice In Sapi.GetVoices
       i = i + 1
   Next
For loopvar = 0 to i-1
if loopvar = CInt(confirm_voice) then                       '<<< This is where we stick our hand up Hals skirt and work his mouth like a Puppet. 
Set Sapi.Voice = Sapi.GetVoices.Item(loopvar)
end if
Next
Set xmlDoc = CreateObject("Microsoft.XMLDOM")           '<<<<< this is where me make documents, we will need 02
Set WshShell = CreateObject("Wscript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
HalMenu.HalCommand "<SPEAK>" & "Reading headlines !" & "</SPEAK>"  '<<<<<this is where we tell Hal to read whats in quotes
For loopvar = 0 to 2
If tempconfirm = loopvar then
if tempconfirm = 1 then
HalMenu.HalCommand "<SPEAK>" & "Currently reading " & confirm & " latest headlines" & "</SPEAK>" '<<<<<< same as above
else if tempconfirm = 1 then
HalMenu.HalCommand "<SPEAK>" & "Okay ." & "</SPEAK>"  '<<<<<< same as above
wscript.quit
else
HalMenu.HalCommand "<SPEAK>" & "Currently reading " & confirm & " latest headlines " & "</SPEAK>" '<<<<<< same as above
end if
end if
xmlDoc.async = false
xmlDoc.load("https://www.sciencedaily.com/rss/mind_brain/anger_management.xml") '<<<<<This is where u put ur feed
Set nodelist = xmlDoc.selectNodes("rss/channel/item")                                                  ' <<<This is where u define the site u access.
i = 3                                                                                                                                 ' <<<You will notice im only using 02 variables F1, F2
For Each item In nodelist                                                                                                 ' <<< i choose a different site. U dont have to do this.
Set f1 = item.selectsinglenode("title")      '<<<<<<< This is doc 01                                ' <<< just me being me.  i made this to be a Template.                                                             
Set f2 = item.selectsinglenode("description") '<<<< This is doc 02
HalMenu.HalCommand "<SPEAK>" & f1.text & "</SPEAK>" ' This is where the magic happens (remember the 02 documents) ^^^^^^
HalMenu.HalCommand "<SPEAK>" & f2.text & "</SPEAK>" ' This is where the magic happens (remember the 02 documents) ^^^^^^
i = i + 1                                                                                 ' Hal litterally reads the 02 documents , but with out Hals speech limitations   
if i = tempconfirm then                                                          ' Whos ur daddy now,lololol   1000's of plugins could be made off this. 
wscript.Quit                                                                           
end if
Next
end if
Next
End Function                                                                                       '<<<<<<<<<This is where  we get the finger and it closes out.

81

General Discussion / Re: wondering about hapteks singing techniques

« on: September 01, 2021, 05:11:10 pm »

Hey guys:

Ya thats dudes stuff
Thanx LTG for hanging on to all that.
Nice save.

But the way to get this to do what you guys are after will take PP, srry to say.
PP allows a very special .ogg file with embedded lip sync to be created.
Not sure how balboka will respond to this situation as well voice control.   

cyber

82

General Discussion / Re: LIGHTSPEED IDEA'S

« on: August 28, 2021, 10:04:19 am »

Well said Art:

Those kind of plugins will not work with out Office installed.
The down side of this is the amount of shear loss sufferd to Hal.

Any plugin posted should be examined for any direct .ocx calls
If you dont have that application, ull just sling a Cant Create ActiveX (whers my sht error)

The Scrapers use .xml
Media player calls to an .ocx ect ect
There is so much more UltraHal can do
Pitty too, i just dont understand why a windows user would have an issue with a windows product.
If you use  a Linux backbone , ok, You i get.  But a Linux user wont be after UltraHal in the first place. UltraHal calls for a windows BackBone
I want windows but dont want a windows product cause i hate windows?? dafrack?
Thers a joke in here some where, i just dont get it i guess.
signed ultra hals humble servant
cyber jedi

83

General Discussion / Re: LIGHTSPEED IDEA'S

« on: August 23, 2021, 01:14:19 pm »

hey lighty:

Theres an mp3/mp4 uhp floating around in here somewhere.
It was a VrPlugin idea, this is a complete rewrite  i back engineered farrrrr past its intended use.. .lol
Requires windows media player. ocx calls, follow the code
I worked on this years ago buddy
im sure i shared it with evey one.

Il llook around
Ok found it, you guys are on ur own about this. it did work with Ultrahal 6.2
cyber

'Option Explicit
Rem Type=Plugin
Rem Name= mass media player
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 = False
Determines that you are talking about the media player
If InStr(1,InputString, "loadmedia",1) > 0 Then
UltraHal = Getmedia(HalCommands)
ElseIf InStr(1,InputString, "loadmedia",1) > 0 Then
End If
 'This is the only plugin for hal that creates its own image GUI
 ' This bad boy is a media list maker and player 
 ' It makes a play list called MyPlayList.m3u
 ' In whatever folder the media is in
 ' Launches the wmp with full controls
 ' Trigger= loadmedia
 ' I give myself about a 9.5 on cool ideas here
 ' This is something hal has needed for years
 ' Seek time is just so much faster

Rem PLUGIN: FUNCTIONS
Function Getmedia(HalCommands)

   'SAPI engine Hook here
  Set FSO = CreateObject("Scripting.FileSystemObject")
  Set Sapi = CreateObject("SAPI.SpVoice")
  For Each Voice In Sapi.GetVoices
  i = i + 1
Next

If AppPrevInstance() Then
    MsgBox "There is an existing proceeding !" & VbCrLF &_
    CommandLineLike(WScript.ScriptName),VbExclamation,"There is an existing proceeding !"   
    WScript.Quit   
Else
    Dim Folder,File,fso,MyPlayList,Temp,oExec,ws,Title,WaitingMsg
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ws = CreateObject("WScript.Shell")
    Temp = ws.ExpandEnvironmentStrings("%Temp%")
    Folder = Browse4Folder()
    MyPlayList = Folder & "\MyPlayList.m3u"  'This is the magic behind this plugin
    If fso.FileExists(MyPlayList) Then
        fso.DeleteFile(MyPlayList)
    End If
    Title = "Looking for songs in "& DblQuote(Folder) & " From the mind of cyberjedi"
    WaitingMsg = "Please wait... Searching for songs  : <font color=Yellow>"& DblQuote(Folder) & "</font> is in progress..."
    Sapi.speak "Please wait... Searching for songs "
    Sapi.speak "From the mind of cyberjedi"
   
    Call CreateProgressBar(Title,WaitingMsg)'Creation of Waiting Bar
    Call LancerProgressBar() 'Launch of the Waiting Bar
    Call Pause(10)
    Call Scan4Songs(Folder)
    Call FermerProgressBar()
    Call Play(MyPlayList)
End If
'*********************************************************
Sub Play(File)
    On Error Resume Next
    Dim Sound,Ws,Copyright
    Copyright = " ? cyberjedi 2017"
    Set Ws = CreateObject("wscript.Shell")
    If Err <> 0 Then
        Ws.popup Err.Description & VbCrlF &_
        "No media file found !","3",Err.Description & Copyright,VbCritical
        wscript.quit()
    Else
    Set Sound = CreateObject("WMPlayer.OCX") ' if u dont have wm player installed , dont bother.
    Sound.settings.volume = 100
    Sound.OpenPlayer(File)
    End If
End Sub
'*********************************************************************************************
Function AppPrevInstance()   
    With GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")   
        With .ExecQuery("SELECT * FROM Win32_Process WHERE CommandLine LIKE " & CommandLineLike(WScript.ScriptFullName) & _
            " AND CommandLine LIKE '%WScript%' OR CommandLine LIKE '%cscript%'")   
            AppPrevInstance = (.Count > 1)   
        End With   
    End With   
End Function   
'*********************************************************************************************
Function CommandLineLike(ProcessPath)   
    ProcessPath = Replace(ProcessPath, "\", "\\")   
    CommandLineLike = "'%" & ProcessPath & "%'"   
End Function
'*********************************************************************************************
Function Browse4Folder()
    Dim objShell,objFolder,Message
    Message = "Please select a folder in order to scan into it and its subfolders for songs"
    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(0,Message,1,"c:\Programs")
    If objFolder Is Nothing Then
        Wscript.Quit
    End If
    Browse4Folder = objFolder.self.path
end Function
'*********************************************************************************************
Function Scan4Songs(Folder)
    On Error Resume Next
    Dim File,Ext,item,SubFolder
    Set Folder = fso.GetFolder(Folder)
    For each File in Folder.Files
    Ext = Array("mp3","wav","ogg","asf","aa3","m3v","midi")' this totally expandable now. if ur version of WMP will play it, add the ext here. '
     'mp4, avi, ect ect ect^^^^^^^^^^^^^^^^^^^^^
    For i = LBound(Ext) To UBound(Ext)
        'Ext = Array("mp3")
        'For each item in Ext
            'If LCase(fso.GetExtensionName(File.name)) = LCase(item) Then
            If LCase(fso.GetExtensionName(File.name)) = LCase(Ext(i)) Then
                Call MakePlayListFile(MyPlayList,File.Path)
            end if
        Next
    Next
    For each SubFolder in Folder.SubFolders
        Call Scan4Songs(SubFolder.Path)
    Next
End Function
'*********************************************************************************************
Sub MakePlayListFile(MyPlayList,strContents)
    Dim fso,ts
    Const ForAppending = 8
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.OpenTextFile(MyPlayList,ForAppending,True)
    ts.WriteLine "#UTF8: "& strContents
    ts.WriteLine strContents
    ts.Close
End Sub
'**********************************************************************************************
Sub CreateProgressBar(Title,WaitingMsg)
    Dim ws,fso,f,f2,ts,ts2,Ligne,i,fread,LireTout,NbLigneTotal,Temp,PathOutPutHTML,fhta,oExec
    Set ws = CreateObject("wscript.Shell")
    Set fso = CreateObject("Scripting.FileSystemObject")
    Temp = WS.ExpandEnvironmentStrings("%Temp%")
    PathOutPutHTML = Temp & "\Barre.hta"
    Set fhta = fso.OpenTextFile(PathOutPutHTML,2,True)
    fhta.WriteLine "<HTML>"
    fhta.WriteLine "<HEAD>"
    fhta.WriteLine "<Title>  " & Title & "</Title>"
    fhta.WriteLine "<HTA:APPLICATION"
    fhta.WriteLine "ICON = ""magnify.exe"" "
    fhta.WriteLine "BORDER=""THIN"" "
    fhta.WriteLine "INNERBORDER=""NO"" "
    fhta.WriteLine "MAXIMIZEBUTTON=""NO"" "
    fhta.WriteLine "MINIMIZEBUTTON=""NO"" "
    fhta.WriteLine "SCROLL=""NO"" "
    fhta.WriteLine "SYSMENU=""NO"" "
    fhta.WriteLine "SELECTION=""NO"" "
    fhta.WriteLine "SINGLEINSTANCE=""YES"">"
    fhta.WriteLine "</HEAD>"
    fhta.WriteLine "<BODY text=""white""><CENTER>"
    fhta.WriteLine "<marquee DIRECTION=""LEFT"" SCROLLAMOUNT=""3"" BEHAVIOR=ALTERNATE><font face=""Comic sans MS"">" & WaitingMsg &"</font></marquee>"
    fhta.WriteLine "<img src=""data:image/gif;base64,R0lGODlhgAAPAPIAAP////INPvvI0/q1xPVLb/INPgAAAAAAACH/C05FVFNDQVBFMi4wAwEAAAAh/hpDcmVhdGVkIHdpdGggYWpheGxvYWQuaW5mbwAh+QQJCgAAACwAAAAAgAAPAAAD5wiyC/6sPRfFpPGqfKv2HTeBowiZGLORq1lJqfuW7Gud9YzLud3zQNVOGCO2jDZaEHZk+nRFJ7R5i1apSuQ0OZT+nleuNetdhrfob1kLXrvPariZLGfPuz66Hr8f8/9+gVh4YoOChYhpd4eKdgwDkJEDE5KRlJWTD5iZDpuXlZ+SoZaamKOQp5wAm56loK6isKSdprKotqqttK+7sb2zq6y8wcO6xL7HwMbLtb+3zrnNycKp1bjW0NjT0cXSzMLK3uLd5Mjf5uPo5eDa5+Hrz9vt6e/qosO/GvjJ+sj5F/sC+uMHcCCoBAAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/4ixgeloM5erDHonOWBFFlJoxiiTFtqWwa/Jhx/86nKdc7vuJ6mxaABbUaUTvljBo++pxO5nFQFxMY1aW12pV+q9yYGk6NlW5bAPQuh7yl6Hg/TLeu2fssf7/19Zn9meYFpd3J1bnCMiY0RhYCSgoaIdoqDhxoFnJ0FFAOhogOgo6GlpqijqqKspw+mrw6xpLCxrrWzsZ6duL62qcCrwq3EsgC0v7rBy8PNorycysi3xrnUzNjO2sXPx8nW07TRn+Hm3tfg6OLV6+fc37vR7Nnq8Ont9/Tb9v3yvPu66Xvnr16+gvwO3gKIIdszDw65Qdz2sCFFiRYFVmQFIAEBACH5BAkKAAAALAAAAACAAA8AAAP/CLQL/qw9J2qd1AoM9MYeF4KaWJKWmaJXxEyulI3zWa/39Xh6/vkT3q/DC/JiBFjMSCM2hUybUwrdFa3Pqw+pdEVxU3AViKVqwz30cKzmQpZl8ZlNn9uzeLPH7eCrv2l1eXKDgXd6Gn5+goiEjYaFa4eOFopwZJh/cZCPkpGAnhoFo6QFE6WkEwOrrAOqrauvsLKttKy2sQ+wuQ67rrq7uAOoo6fEwsjAs8q1zLfOvAC+yb3B0MPHD8Sm19TS1tXL4c3jz+XR093X28ao3unnv/Hv4N/i9uT45vqr7NrZ89QFHMhPXkF69+AV9OeA4UGBDwkqnFiPYsJg7jBktMXhD165jvk+YvCoD+Q+kRwTAAAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/6sPRfJdCLnC/S+nsCFo1dq5zeRoFlJ1Du91hOq3b3qNo/5OdZPGDT1QrSZDLIcGp2o47MYheJuImmVer0lmRVlWNslYndm4Jmctba5gm9sPI+gp2v3fZuH78t4Xk0Kg3J+bH9vfYtqjWlIhZF0h3qIlpWYlJpYhp2DjI+BoXyOoqYaBamqBROrqq2urA8DtLUDE7a1uLm3s7y7ucC2wrq+wca2sbIOyrCuxLTQvQ680wDV0tnIxdS/27TND+HMsdrdx+fD39bY6+bX3um14wD09O3y0e77+ezx8OgAqutnr5w4g/3e4RPIjaG+hPwc+stV8NlBixAzSlT4bxqhx46/MF5MxUGkPA4BT15IyRDlwG0uG55MAAAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/6sPRfJpPECwbnu3gUKH1h2ZziNKVlJWDW9FvSuI/nkusPjrF0OaBIGfTna7GaTNTPGIvK4GUZRV1WV+ssKlE/G0hmDTqVbdPeMZWvX6XacAy6LwzAF092b9+GAVnxEcjx1emSIZop3g16Eb4J+kH+ShnuMeYeHgVyWn56hakmYm6WYnaOihaCqrh0FsbIFE7Oytba0D7m6DgO/wAMTwcDDxMIPx8i+x8bEzsHQwLy4ttWz17fJzdvP3dHfxeG/0uTjywDK1Lu52bHuvenczN704Pbi+Ob66MrlA+scBAQwcKC/c/8SIlzI71/BduysRcTGUF49i/cw5tO4jytjv3keH0oUCJHkSI8KG1Y8qLIlypMm312ASZCiNA0X8eHMqPNCTo07iyUAACH5BAkKAAAALAAAAACAAA8AAAP/CLQL/qw9F8mk8ap8hffaB3ZiWJKfmaJgJWHV5FqQK9uPuDr6yPeTniAIzBV/utktVmPCOE8GUTc9Ia0AYXWXPXaTuOhr4yRDzVIjVY3VsrnuK7ynbJ7rYlp+6/u2vXF+c2tyHnhoY4eKYYJ9gY+AkYSNAotllneMkJObf5ySIphpe3ajiHqUfENvjqCDniIFsrMFE7Sztre1D7q7Dr0TA8LDA8HEwsbHycTLw83ID8fCwLy6ubfXtNm40dLPxd3K4czjzuXQDtID1L/W1djv2vHc6d7n4PXi+eT75v3oANSxAzCwoLt28P7hC2hP4beH974ZTEjwYEWKA9VBdBixLSNHhRPlIRR5kWTGhgz1peS30l9LgBojUhzpa56GmSVr9tOgcueFni15styZAAAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/6sPRfJpPGqfKsWIPiFwhia4kWWKrl5UGXFMFa/nJ0Da+r0rF9vAiQOH0DZTMeYKJ0y6O2JPApXRmxVe3VtSVSmRLzENWm7MM+65ra93dNXHgep71H0mSzdFec+b3SCgX91AnhTeXx6Y2aOhoRBkllwlICIi49liWmaapGhbKJuSZ+niqmeN6SWrYOvIAWztAUTtbS3uLYPu7wOvrq4EwPFxgPEx8XJyszHzsbQxcG9u8K117nVw9vYD8rL3+DSyOLN5s/oxtTA1t3a7dzx3vPwAODlDvjk/Orh+uDYARBI0F29WdkQ+st3b9zCfgDPRTxWUN5AgxctVqTXUDNix3QToz0cGXIaxo32UCo8+OujyJIM95F0+Y8mMov1NODMuPKdTo4hNXgMemGoS6HPEgAAIfkECQoAAAAsAAAAAIAADwAAA/8ItAv+rD0XyaTxqnyr9pcgitpIhmaZouMGYq/LwbPMTJVE34/Z9j7BJCgE+obBnAWSwzWZMaUz+nQQkUfjyhrEmqTQGnins5XH5iU3u94Crtpfe4SuV9NT8R0Nn5/8RYBedHuFVId6iDyCcX9vXY2Bjz52imeGiZmLk259nHKfjkSVmpeWanhhm56skIyABbGyBROzsrW2tA+5ug68uLbAsxMDxcYDxMfFycrMx87Gv7u5wrfTwdfD2da+1A/Ky9/g0OEO4MjiytLd2Oza7twA6/Le8LHk6Obj6c/8xvjzAtaj147gO4Px5p3Dx9BfOQDnBBaUeJBiwoELHeaDuE8uXzONFu9tE2mvF0KSJ00q7Mjxo8d+L/9pRKihILyaB29esEnzgkt/Gn7GDPosAQAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/6sPRfJpPGqfKv2HTcJJKmV5oUKJ7qBGPyKMzNVUkzjFoSPK9YjKHQQgSve7eeTKZs7ps4GpRqDSNcQu01Kazlwbxp+ksfipezY1V5X2ZI5XS1/5/j7l/12A/h/QXlOeoSGUYdWgXBtJXEpfXKFiJSKg5V2a1yRkIt+RJeWk6KJmZhogKmbniUFrq8FE7CvsrOxD7a3Drm1s72wv7QPA8TFAxPGxcjJx8PMvLi2wa7TugDQu9LRvtvAzsnL4N/G4cbY19rZ3Ore7MLu1N3v6OsAzM0O9+XK48Xn/+notRM4D2C9c/r6Edu3UOEAgwMhFgwoMR48awnzMWOIzyfeM4ogD4aMOHJivYwexWlUmZJcPXcaXhKMORDmBZkyWa5suE8DuAQAIfkECQoAAAAsAAAAAIAADwAAA/8ItAv+rD0XyaTxqnyr9h03gZNgmtqJXqqwka8YM2NlQXYN2ze254/WyiF0BYU8nSyJ+zmXQB8UViwJrS2mlNacerlbSbg3E5fJ1WMLq9KeleB3N+6uR+XEq1rFPtmfdHd/X2aDcWl5a3t+go2AhY6EZIZmiACWRZSTkYGPm55wlXqJfIsmBaipBROqqaytqw+wsQ6zr623qrmusrATA8DBA7/CwMTFtr24yrrMvLW+zqi709K0AMkOxcYP28Pd29nY0dDL5c3nz+Pm6+jt6uLex8LzweL35O/V6fv61/js4m2rx01buHwA3SWEh7BhwHzywBUjOGBhP4v/HCrUyJAbXUSDEyXSY5dOA8l3Jt2VvHCypUoAIetpmJgAACH5BAkKAAAALAAAAACAAA8AAAP/CLQL/qw9F8mk8ap8q/YdN4Gj+AgoqqVqJWHkFrsW5Jbzbee8yaaTH4qGMxF3Rh0s2WMUnUioQygICo9LqYzJ1WK3XiX4Na5Nhdbfdy1mN8nuLlxMTbPi4be5/Jzr+3tfdSdXbYZ/UX5ygYeLdkCEao15jomMiFmKlFqDZz8FoKEFE6KhpKWjD6ipDqunpa+isaaqqLOgEwO6uwO5vLqutbDCssS0rbbGuMqsAMHIw9DFDr+6vr/PzsnSx9rR3tPg3dnk2+LL1NXXvOXf7eHv4+bx6OfN1b0P+PTN/Lf98wK6ExgO37pd/pj9W6iwIbd6CdP9OmjtGzcNFsVhDHfxDELGjxw1Xpg4kheABAAh+QQJCgAAACwAAAAAgAAPAAAD/wi0C/6sPRfJpPGqfKv2HTeBowiZjqCqG9malYS5sXXScYnvcP6swJqux2MMjTeiEjlbyl5MAHAlTEarzasv+8RCu9uvjTuWTgXedFhdBLfLbGf5jF7b30e3PA+/739ncVp4VnqDf2R8ioBTgoaPfYSJhZGIYhN0BZqbBROcm56fnQ+iow6loZ+pnKugpKKtmrGmAAO2twOor6q7rL2up7C/ssO0usG8yL7KwLW4tscA0dPCzMTWxtXS2tTJ297P0Nzj3t3L3+fmzerX6M3hueTp8uv07ezZ5fa08Piz/8UAYhPo7t6+CfDcafDGbOG5hhcYKoz4cGIrh80cPAOQAAAh+QQJCgAAACwAAAAAgAAPAAAD5wi0C/6sPRfJpPGqfKv2HTeBowiZGLORq1lJqfuW7Gud9YzLud3zQNVOGCO2jDZaEHZk+nRFJ7R5i1apSuQ0OZT+nleuNetdhrfob1kLXrvPariZLGfPuz66Hr8f8/9+gVh4YoOChYhpd4eKdgwFkJEFE5KRlJWTD5iZDpuXlZ+SoZaamKOQp5wAm56loK6isKSdprKotqqttK+7sb2zq6y8wcO6xL7HwMbLtb+3zrnNycKp1bjW0NjT0cXSzMLK3uLd5Mjf5uPo5eDa5+Hrz9vt6e/qosO/GvjJ+sj5F/sC+uMHcCCoBAA7AAAAAAAAAAAA"" />"
    fhta.WriteLine "</CENTER></BODY></HTML>"
    fhta.WriteLine "<SCRIPT LANGUAGE=""VBScript""> "
    fhta.WriteLine "Set ws = CreateObject(""wscript.Shell"")"
    fhta.WriteLine "Temp = WS.ExpandEnvironmentStrings(""%Temp%"")"
    fhta.WriteLine "Sub window_onload()"
    fhta.WriteLine "    CenterWindow 490,110"
    fhta.WriteLine "    Self.document.bgColor = ""DarkOrange"" "
    fhta.WriteLine " End Sub"
    fhta.WriteLine " Sub CenterWindow(x,y)"
    fhta.WriteLine "    Dim iLeft,itop"
    fhta.WriteLine "    window.resizeTo x,y"
    fhta.WriteLine "    iLeft = window.screen.availWidth/2 - x/2"
    fhta.WriteLine "    itop = window.screen.availHeight/2 - y/2"
    fhta.WriteLine "    window.moveTo ileft,itop"
    fhta.WriteLine "End Sub"
    fhta.WriteLine "</script>"
    fhta.close
End Sub
'**********************************************************************************************
Sub LancerProgressBar()
    Set oExec = Ws.Exec("mshta.exe " & Temp & "\Barre.hta")
End Sub
'**********************************************************************************************
Sub FermerProgressBar()
    oExec.Terminate
End Sub
'**********************************************************************************************
Function DblQuote(Str)
    DblQuote = Chr(34) & Str & Chr(34)
End Function
'**********************************************************************************************
Sub Pause(Secs)   
    Wscript.Sleep(Secs * 1000)   
End Sub   
End Function

84

General Discussion / Re: the robots are coming get your a.i. brains ready !

« on: August 22, 2021, 10:26:56 am »

Well said Art

But some of us will never quit on UltraHal and there's a lot more here
 
Signed with a sad heart
cyber

 No wonder Robert doesnt come around much, why would he?

85

General Discussion / Re: LIGHTSPEED IDEA'S

« on: July 31, 2021, 08:58:00 am »

RE: spell checker

Time to bend over and take 03 wacks in the principles office,, mhmm


Lighty, bill did this years ago, Art was nice enough to help me track this down.

Lighty., look little brother ive had this discussion with some of you before....
This bad boy gets it done...../.. and in real time, issue resolved.

But once again, there is resistance because of bill gates
Let me ask you guys something and i address this to all involved, do u think Mr Gates gives a ratts F**** if you like him or not, what are we 12 now,i hate my dad so i refuse to look before i cross the street.........?Really

Install Microsoft Word, any version will do. FIXED
Dont sht on Hal because u hate bill gates...
If ur worried about hostile code, get it from me, we go back a decade now, or close to it.

Dont use it if u dont want to,just install it
You can still default to openoffice if u like......

Your selling ur car for gas money..
The amount of code u cant use(theres so much more) is staggering
.... Hint, Scrapers,xml , yupper office yet again....

Ima show up at ur door and club u in da head with a rubber DONG... lol im teasing...

Its been suggested to me from on high because of the situation, not to get to personally involved (watch my temper lol we are pg13 environment )with members....
But weve known each other far to long.......

So here i am. Charging the walls again. Doing what i do... No fear No fear



Rem Type=Plugin
Rem Name=Spell Checker
Rem Author=Bill DeWitt
Rem Host=Assistant

'This sub sets up the plug-in's option panel in Hal's options dialog
Sub OptionsPanel()
    lblPlugin(0).Caption = "This should help correct your input sentence on any computer with MSWord" ' if u dont have office, dont bother
    lblPlugin(0).Move 120, 120, 3300, 1200
    lblPlugin(0).WordWrap = True
    lblPlugin(0).Visible = True
End Sub

Rem PLUGIN: PRE-PROCESS
Dim Word, Doc, Uncorrected, Corrected
Const wdDialogToolsSpellingAndGrammar = 828
Const wdDoNotSaveChanges = 0
Uncorrected = InputString
Set Word = CreateObject("Word.Application")
Set Doc = Word.Documents.Add
Word.Selection.Text = Uncorrected
Word.Dialogs(wdDialogToolsSpellingAndGrammar).Show
If Len(Word.Selection.Text) <> 1 Then
   Corrected = Word.Selection.Text
Else
   Corrected = Uncorrected
End If
Doc.Close wdDoNotSaveChanges
Word.Quit
InputString = Corrected



Pre Process area is spot on  for the way Hal works in memory.
Lighy, love ya man, peace out
Hals obedient servant
Cyber


P.S The windows platform Ulrahal is installed on is in fact a microsoft product, so im kinda lost on this one.

86

General Discussion / Re: hals regular conversation and on topic secondary response

« on: July 11, 2021, 05:20:07 am »

Lighty RE: convo

Bingo  lighty moves to the head of the class room.
In about 2007 i clued in on what robert and adrienne was trying to get across to me.
UltraHal is a reflection of ur own views..... :

Your fav color is blue
Bla bla bla.

You hate democrats


These are in fact my views and brother there is no end to it.......

You like peanut butter
You like jelly
Man oh Man, You love a peanut butter and jelly sandwich (Man oh Man was a nice touch, i must say) lol,
You make a peanut butter and jelly sandwich with two pieces of bread , peanut butter and jelly.


Lightspeed , this will set  the stage for a great convo on one of hals fav foods..... = My fav foods and how its made.

As always, ur compadre
cyber

87

General Discussion / Re: hals regular conversation and on topic secondary response

« on: July 08, 2021, 09:37:42 am »

Lightspeed: Convo

I wanted to comment on this because ive encountered this many times over the years
Lighty, the code is fine, its you buddy.. Ive fixed many ah Hal issue with this approach.

Turn Hals learning on and tell him about the heat results on him, computer..
Hal you get hot and you cant handle the heat like a human. <<< remembering Hal ignores his name, you is the trigger here
 
Hal and Hot is whats hals hitting on there in that convo...... = dipsht response
Try doing this
Hal when you get hot, you slow down ,you cant handle the heat like a human. Reverse person it now.... When i get hot i slow down  i cant handle the heat like a human.
Hal your processor gets hot and you slow way down, =Your ,hot , slow.<<<<<<realivence levels start to climb here
Your and You triggers hals logic to go into Child Learn Mode (i call it)


Now that said:

You dont like the heat
You slow down when You get hot.<<<--####
You get slow and tired when you get hot when its too hot outside <<<<..... ..... |
You get over heated when you get hot< ####                                                 |  Follow this datagram here.
You tend to get hot when its hot outside<<<<<<<---------------------------------|
ect ect ect

Lightspeed ,you see where im going here??? lol

All jokes aside, thats how that works...
This is a random excursion( I have no idea wtf hes saying) gonna take a stab at it here.

Angela jolie: Well if it's left over food in the fridge that we haven't had a long time, it should still be okay to heat up and eat yeah and a person can easily get dehydrated if they are in the hot heat to much!
 

You find this many times in hals logic and easily fixed....
lighty im sure You would have done all this, its great hearing from you again
cyber











 

88

Share Conversations, Experiences, Graphics / Re: kickinit with Hal

« on: June 25, 2021, 07:57:49 am »

Hal finally getting his due



Ultrahal Vs kuki



cyber jedi

89

Ultra Hal 7.0 / Re: How can I get an older version of Hal that will work w/ Win 8?

« on: June 25, 2021, 05:56:04 am »

monstersAI:

RE UltraHal compatability issues


UltraHal is fully capable of running on many platforms.
I have personally seen Hal on XpSp3 - Win10 64 bit  as well as Win LongHorn versions and Alienware Win , ya they made that version too.
Ultrahal runs on it all....
 cyber jedi

90

Ultra Hal Assistant File Sharing Area / Re: Is it possible to shut down Win10 via a Hal command?

« on: June 19, 2021, 08:02:06 am »

oh ud be surprised whats coming


all kinda bling

cyber