DO YOU KNOW WHAT UHP? MADE THEM WORK ??
I found an old Zip (2016) file I think I got from Cyber, it has a bunch of files from DUDE in it and their all songs (.txt files) like the one you posted... The only other file is a UHP file. "Just say- PLEASE SING whateversong PLEASE SING SONG LIST for a list of songs" Not sure if it will work with the current HAL or not...
It's called: singasong3.uhp
It also calls on a program called: balabolka.exe I have no clue about that one...
Here's the code for it...
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