An "on the fly" editor would be useful for "weeding out" any undesirable data from Hal's "dream states".
Keep in mind that while the Internet is expansive, not all information contained therein is correct and so it is always wise to err on the side of caution before putting such collected info to use in a personal or practical manner. Buyer Beware! lol!
I think OTCE made a plug-in to allow for corrections in Hal 6. Just found it in my archives. It was written for Hal 6 although I don't know how well it will work for 6.2 so use a bit of caution or wait for Jerry to answer, but here it is:
*************************************
Rem Type=Plugin
Rem Name=Corrections Tutor
Rem Author=Gerald L. Blakley A.K.A OnTheCuttingEdge2005
Rem Host=All
'This sub setups the plug-ins option panel in Hal's options dialog
Sub OptionsPanel()
lblPlugin(0).Caption = "GetResponse Corrections Tutor, To Use: Replace (wrong word or phrase) With (right word or phrase). without the parenthases and ended with a period"
lblPlugin(0).Move 120, 10, 3300, 1000
lblPlugin(0).WordWrap = True
lblPlugin(0).Visible = True
End Sub
Rem PLUGIN: PRE-PROCESS
Set XHalBrain = CreateObject("UltraHalAsst.Brain")
MyCorDir = DirXXXX()
'GetResponse Corrections tutor by Gerald L. Blakley
If Tutor = "" Then Tutor = HalBrain.SearchPattern(InputString, "*REPLACE * WITH *.", 2)
If Tutor2 = "" Then Tutor2 = HalBrain.SearchPattern(InputString, "*REPLACE * WITH *.", 3)
If Tutor <> "" And Tutor2 <> "" Then
XHalBrain.AppendFile MyCorDir & "Corrected.uhp", """" & Tutor & """,""" & Tutor2 & """"
XHalBrain.AppendFile MyCorDir & "Corrected.uhp", """" & Tutor & """,""" & Tutor2 & """"
XHalBrain.AppendFile MyCorDir & "Corrected.uhp", """" & Tutor & """,""" & Tutor2 & """"
UltraHal = "I have made this response correction."
End If
If CorrectResponse = "" Then CorrectResponse = XHalBrain.ProcessSubstitutions(UltraHal, MyCorDir & "Corrected.uhp")
If CorrectResponse <> "" Then
UltraHal = CorrectResponse
End If
Rem PLUGIN: CUSTOMMEM2
Set XHalBrain = CreateObject("UltraHalAsst.Brain")
MyCorDir = DirXXXX()
'GetResponse Corrections tutor by Gerald L. Blakley
If CorrectResponse = "" Then CorrectResponse = XHalBrain.ProcessSubstitutions(GetResponse, MyCorDir & "Corrected.uhp")
If CorrectResponse <> "" Then
GetResponse = CorrectResponse
End If
Rem PLUGIN: FUNCTIONS
Function DirXXXX()
DirXXXX = "C:Program FilesabawareUltra Hal Assistant 6\"
End Function
********************************************