Set FileSys = CreateObject("Scripting.FileSystemObject")
Set FS = CreateObject("Scripting.FileSystemObject")



'Write the Corrections Plug-in.
    xfilename = "C:\Program Files\Zabaware\Ultra Hal Assistant 6\TaughtCorrections.uhp"
    xExists = False
    If FileSys.FileExists(xfilename) Then xExists = True
    If xExists = False Then
    HalBrain.AppendFile WorkingDir & "TaughtCorrections.uhp", "Rem Type=Plugin"
    HalBrain.AppendFile WorkingDir & "TaughtCorrections.uhp", "Rem Name=Self Corrections"
    HalBrain.AppendFile WorkingDir & "TaughtCorrections.uhp", "Rem Author=OnTheCuttingEdge2005"
    HalBrain.AppendFile WorkingDir & "TaughtCorrections.uhp", "Rem Host=Assistant"
    HalBrain.AppendFile WorkingDir & "TaughtCorrections.uhp", "Rem PLUGIN: PRE-PROCESS"
    End If
    'Ziggy Pro Bot, Taught corrections.
    If LeftCorr = "" Then LeftCorr = HalBrain.SearchPattern(OriginalSentence, "REPLACE * WITH *", 1)
    If RightCorr = "" Then RightCorr = HalBrain.SearchPattern(OriginalSentence, "REPLACE * WITH *", 2)
    If LeftCorr = "" Then LeftCorr = HalBrain.SearchPattern(OriginalSentence, "IT IS IMPROPER TO SAY * THE PROPER WAY IS TO SAY *", 1)
    If RightCorr = "" Then RightCorr = HalBrain.SearchPattern(OriginalSentence, "IT IS IMPROPER TO SAY * THE PROPER WAY IS TO SAY *", 2)
    If LeftCorr = "" Then LeftCorr = HalBrain.SearchPattern(OriginalSentence, "* IS IMPROPER GRAMMER, THE CORRECT WAY IS TO SAY *", 1)
    If RightCorr = "" Then RightCorr = HalBrain.SearchPattern(OriginalSentence, "* IS IMPROPER GRAMMER, THE CORRECT WAY IS TO SAY *", 2)
    If LeftCorr = "" Then LeftCorr = HalBrain.SearchPattern(OriginalSentence, "* IS SPELLED WRONG, IT IS SPELLED *", 1)
    If RightCorr = "" Then RightCorr = HalBrain.SearchPattern(OriginalSentence, "* IS SPELLED WRONG, IT IS SPELLED *", 2)
    If LeftCorr = "" Then LeftCorr = HalBrain.SearchPattern(OriginalSentence, "PLEASE CORRECT * WITH *", 1)
    If RightCorr = "" Then RightCorr = HalBrain.SearchPattern(OriginalSentence, "PLEASE CORRECT * WITH *", 2)
    If LeftCorr = "" Then LeftCorr = HalBrain.SearchPattern(OriginalSentence, "YOU SPELLED * WRONG, IT IS SPELLED *", 1)
    If RightCorr = "" Then RightCorr = HalBrain.SearchPattern(OriginalSentence, "YOU SPELLED * WRONG, IT IS SPELLED *", 2)
    If LeftCorr = "" Then LeftCorr = HalBrain.SearchPattern(OriginalSentence, "* IS BAD GRAMMER, THE CORRECT WAY IS *", 1)
    If RightCorr = "" Then RightCorr = HalBrain.SearchPattern(OriginalSentence, "* IS BAD GRAMMER, THE CORRECT WAY IS *", 2)
    If LeftCorr = "" Then LeftCorr = HalBrain.SearchPattern(OriginalSentence, "* IS BAD GRAMMER, THE CORRECT WAY TO SAY IT IS *", 1)
    If RightCorr = "" Then RightCorr = HalBrain.SearchPattern(OriginalSentence, "* IS BAD GRAMMER, THE CORRECT WAY TO SAY IT IS *", 2)
    LeftCorr = HalBrain.AlphaNumericalOnly(LeftCorr)
    RightCorr = HalBrain.AlphaNumericalOnly(RightCorr)
    xfilename = "C:\Program Files\Zabaware\Ultra Hal Assistant 6\TaughtCorrections.uhp"
    xExists = False
    If FileSys.FileExists(xfilename) Then xExists = True
    If xExists = True Then
    If LeftCorr <> "" And RightCorr <> "" Then
    GetResponse = RightCorr & ", I'll make a note of that."
    CollectCorr = "GetResponse = Replace(GetResponse" & "," & " " & """" & " " & LeftCorr & " " & """" & "," & " " & """" & " " & RightCorr & " " & """" & "," & " 1, -1, vbTextCompare)"
    HalBrain.AppendFile WorkingDir & "C:\Program Files\Zabaware\Ultra Hal Assistant 6\TaughtCorrections.uhp", Trim(CollectCorr)
    End If
    End If
    Rem PLUGIN: PRE-PROCESS
    'This Area is used for taught corrections plug-in.