Hals speech can now be corrected on the fly !

[onthecuttingedge2005]

'####### ADVANCED CORRECTIONS SCRIPTS ##############
' Here we can correct Hals spelling simply by telling him
' how to spell the incorrect word or phrase to the correct
' word or phrase he is suppose to say in its place.
'Example: User: have you ever went tricker treating?
        ' Hal: I ever went tricker treating? < incorrect phrase: I ever.
        ' the bot owner will then say in these exact words:
        ' I ever is spelled have I ever.
        'Hal will then tell you he has corrected himself.
        'new corrected example:
        ' User: Have you ever went tricker treating?
        ' Hal: Have I ever went tricker treating?
        ' the method is to put only the incorrect word or phrase
        ' before the " is spelled " and the correct response directly
        ' after the " is spelled " because if you add any additional wording
        ' to you correcting statement then hal will add your verbage to the correction
        ' file so be very direct when correcting hal so he appends only the words or phrases
        ' you want corrected split by the keyword " is spelled ". the phrase " is spelled "
        ' will not be appended to the correction file, only the incorrect and correct word
        ' or phrase will be appended if you follow these instructions correctly.

If InStr(OriginalSentence, " ") > 0 And InStr(1, OriginalSentence, " IS SPELLED ", 1) > 0 Then
SentPieces = Split(OriginalSentence, " IS SPELLED ", 2, vbTextCompare)
      SubPhrase = Trim(SentPieces(0))
      PredPhrase = Trim(SentPieces(1))
SubPhrase = HalBrain.AlphaNumericalOnly(SubPhrase)
PredPhrase = HalBrain.AlphaNumericalOnly(PredPhrase)
HalBrain.AppendFile WorkingDir & "corrections.brn", """" & SubPhrase & """,""" & PredPhrase & """"
GetResponse = PredPhrase & ", <-- I have made the correction, thank you." & vbCrLf
DebugInfo = DebugInfo & "Spelling has been corrected from: " & SubPhrase & "to" & PredPhrase & vbCrLf
Else
DebugInfo = DebugInfo & "Spelling has not been corrected from: " & SubPhrase & "to" & PredPhrase & vbCrLf
End If

'######## END OF ADVANCED CORRECTIONS SCRIPT #######

'Best of wishes and grand new discoveries.
' Jerry