O.T.C.
Thanks for your patience, i tried that earlier. it works great on not saving anything in the brain, but the problem is that it doesn't sing the song. instead it just gives a general conversational response from the related tables in the brain.
ex. me-sing jingle bell rock
hal- jingle bell rock is a christamas song
(i told hal this before, and it's in the _jingle + _rock + _bell tables)
although i very well could have made mistakes along the way, i have tried it in all the areas of the brain. the only area that seems to run the "copy to clipboard-read from clipboard" area (sing) properly is the POST-PROCESS area. i really don't know enough about the areas of the brain to know why this is.
this version-
*********************************************************************
Rem Type=Plugin
Rem Name=Sing A Song II
Rem Author=jasondude7116, OnTheCuttingEdge2005
Rem Host=Assistant
'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
lblPlugin(0).Caption = "Just say- sing, and then the song name. ex. sing rainbow connection (only the lonely,bike,what a wonderful world,everybody loves somebody,jingle bell rock,rainbow connection,the sun going down on me,wish you were here,incense and peppermints)"
lblPlugin(0).Move 120, 10, 3300, 1000
lblPlugin(0).WordWrap = True
lblPlugin(0).Visible = True
End Sub
Rem PLUGIN: PLUGINAREA1
'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.
'sing a song
Set objFSO = CreateObject("Scripting.FileSystemObject")
If SingSong = "" Then SingSong = HalBrain.SearchPattern(HalBrain.AlphaNumericalOnly(OriginalSentence), "*SING *", 2)
If SingSong <> "" And objFSO.FileExists("C:Program FilesabawareUltra Hal Assistant 6songs\" & SingSong & ".txt") = True Then
Set objTextFile = objFSO.OpenTextFile("C:Program FilesabawareUltra Hal Assistant 6songs\" & SingSong & ".txt", ReadMySong())
SongText = objTextFile.ReadAll
objTextFile.Close
SongText = Replace(SongText, vbCrLf, Chr(

& " ", 1, -1, vbTextCompare)
SongText = Replace(SongText, "", "", 1, -1, vbTextCompare)
SongText = Replace(SongText, " ", " ", 1, -1, vbTextCompare)
GetResponse = Replace(GetResponse, GetResponse, SongText, 1, -1, vbTextCompare)
If SingSong <> "" Then HalBrain.ReadOnlyMode = True
End If
If SingSong <> "" And objFSO.FileExists("C:Program FilesabawareUltra Hal Assistant 6songs\" & SingSong & ".txt") = False Then
GetResponse = " That song file does not exist. "
End If
Rem PLUGIN: FUNCTIONS
Function ReadMySong()
Const ReadSong = 1
ReadMySong = ReadSong
End Function
*********************************************************************
does not save anything to the brain!!(excellent)[

]
however does not run the clipboard-reading area properly and returns a general conversation topic (instead of singing)[V]
while this version-
*********************************************************************
Rem Type=Plugin
Rem Name=Sing A Song II
Rem Author=jasondude7116, OnTheCuttingEdge2005
Rem Host=Assistant
'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
lblPlugin(0).Caption = "Just say- sing, and then the song name. ex. sing rainbow connection (only the lonely,bike,what a wonderful world,everybody loves somebody,jingle bell rock,rainbow connection,the sun going down on me,wish you were here,incense and peppermints)"
lblPlugin(0).Move 120, 10, 3300, 1000
lblPlugin(0).WordWrap = True
lblPlugin(0).Visible = True
End Sub
Rem PLUGIN: POST-PROCESS
'sing a song
Set objFSO = CreateObject("Scripting.FileSystemObject")
If SingSong = "" Then SingSong = HalBrain.SearchPattern(HalBrain.AlphaNumericalOnly(InputString), "*SING *", 2)
If SingSong <> "" And objFSO.FileExists("C:Program FilesabawareUltra Hal Assistant 6songs\" & SingSong & ".txt") = True Then
Set objTextFile = objFSO.OpenTextFile("C:Program FilesabawareUltra Hal Assistant 6songs\" & SingSong & ".txt", ReadMySong())
SongText = objTextFile.ReadAll
objTextFile.Close
SongText = Replace(SongText, vbCrLf, Chr(

& " ", 1, -1, vbTextCompare)
SongText = Replace(SongText, "", "", 1, -1, vbTextCompare)
SongText = Replace(SongText, " ", " ", 1, -1, vbTextCompare)
UltraHal = Replace(UltraHal, UltraHal, SongText, 1, -1, vbTextCompare)
HalBrain.ReadOnlyMode = False
End If
If SingSong <> "" And objFSO.FileExists("C:Program FilesabawareUltra Hal Assistant 6songs\" & SingSong & ".txt") = False Then
UltraHal = " That song file does not exist. "
End If
Rem PLUGIN: FUNCTIONS
Function ReadMySong()
Const ReadSong = 1
ReadMySong = ReadSong
End Function
*********************************************************************
runs clipboard-read properly (sings the song). however even though halbrain.readonlymode = true, it still enters the user sentence in the brain tables. (does not append the hal respone as if it would with the halbrain.readonlymode = false)
i'm wondering if in fact the "singing" could only be done in
POST-PROCESS, and user sentences are added to tables if halbrain.readonlymode = false or = true, then maybe it can be run in POST-PROCESS but at the end it could search the tables for the user sentence and remove it (search through all tables)?
just an idea, there is probably a better way. it might be dirty, but it would work. (if there is a way to remove the current user sentence from the tables)[

]
sorry for the huge post- the dude
**I am building my song list, and will upload it when this thing is figured out[

]