OKAY I RETESTED EVERYTHING AND THIS IS THE COMPLETE CHANGED SING SONG FILE I DID ACCORDING TO MY PATHWAYS FOR BALABOKA AND THE SINGSONG UHP PC PATHWAY . BUT IT IS STILL SAYING . THAT FILE DOES NOT EXIST , EXCEPT IT DOES THE SONG FILE IS THERE AND THE TEST FILES I TRIED WAS THERE . I DID USE CAPS WHEN REQUESTING "PLEASE SING AND I COPIED THE ACTUAL SONG NAME AND PASTED IT AND HIT ENTER . BUT IT STILL SAYS THAT FILE DOES NOT EXIST . MAYBE I AM MISSING SOMETHING ELSE BUT I DON'T KNOW WHAT IT IS?
HERE IS THE CHANGED FILE ACCORDING TO MY PC. PATHWAYS
Rem Type=Plugin
Rem Name=singasong3
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(x86)\Zabaware\Ultra Hal 7\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(X86)\Balabolka\balabolka.exe"" -rmq ""C:\Program Files(x86)\Zabaware\Ultra Hal 7\songs\" & SongSung & ".txt"" ""Eddie""")
HalBrain.ReadOnlyMode = True
End If
End If
If SongSung <> "" And objFSO.FileExists("C:\Program Files(x86)\Zabaware\Ultra Hal 7\songs\" & SongSung & ".txt") = False Then
GetResponse = " That file does not exist. "
HalBrain.ReadOnlyMode = True
End If