Confirmer, скрипт согласия с правилами хаба

-- Этот скрипт конвертирован программой PtokaX LUA API Конвертор v0.9. Русская версия 12/22/09 20:05:00
BOT = SetMan.GetString(21)
SET = "sIP" -- определение по IP, "sName" -- по нику
Mode = 1 -- 1 - в общий, 2 - в приват. 0 - не отсылать

IConfirm = "я соглашаюсь с правилами"

Confirm = { }
data_file = "scripts/Rules/data.txt"
dofile(data_file)

function UserConnected(user)
    Core.GetUserAllData(user)
    if Confirm[user[SET]] == nil then
        SendTo(user, BOT, SendConfirm)
    end
end
OpConnected = UserConnected

function ChatArrival(user,data)
    Core.GetUserAllData(user)
    local _,_, Message = string.find(data, "%b<>%s+("..IConfirm..")")
    IConfirmPars(user, Message)
    if Confirm[user[SET]] == nil then
        return SendTo(user, BOT, SendConfirm)
    end
end

function SendTo(user, BOT, SendConfirm)
    if Mode == 1 then
        Core.SendToNick(user.sNick,"<"..BOT.."> ".. SendConfirm)
    elseif Mode == 2 then
        Core.SendPmToNick(user.sNick,BOT, SendConfirm)
    elseif Mode == 0 then
    end
return 1
end

function ToArrival(user,data)
    Core.GetUserAllData(user)
local _,_,To,From,Message = string.find(data,"$To:%s+(%S+)%s+From:%s+%S+%s+$<(%S+)>%s+(.*)|")
    if To == BOT then
        IConfirmPars(user, Message )
    end
end

function IConfirmPars(user, Message )
    if Message == IConfirm then
        Confirm[user[SET]] = 1
        SendTo(user, BOT,"Теперь вы полноправный участник чата!")
        SaveToFile(data_file, Confirm, "Confirm")
    end
end

function ReadFile(file)
    local f = io.open(file, "r")
    return f:read("*all")
end; rules_txt = ReadFile("scripts/Rules/info.txt")
SendConfirm = "Перед тем, как начать общение, ознакомьтесь с информацией хаба и правилами поведения в чате. \n" .. rules_txt .. "\n" .. "Если вы согласны с правилами - напишите фразу:     " .. IConfirm .."     и отправьте в чат."

function SaveToFile(file , table , tablename)
    local handle = io.open(file,"w+")
    handle:write(Serialize(table, tablename))
    handle:flush()
    handle:close()
    collectgarbage(collect)
end

function Serialize(tTable, sTableName, sTab)
    sTab = sTab or "";
    sTmp = ""
    sTmp = sTmp..sTab..sTableName.." = {\n"
    for key, value in pairs(tTable) do
        local sKey = (type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key);
        if(type(value) == "table") then
            sTmp = sTmp..Serialize(value, sKey, sTab.."\t");
        else
            local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value);
            sTmp = sTmp..sTab.."\t"..sKey.." = "..sValue
        end
        sTmp = sTmp..",\n"
    end
    sTmp = sTmp..sTab.."}"
    return sTmp
end
RegConnected = UserConnected

Core.SendPmToUser(user,BOT, SendConfirm)

Core.SendToUser(user, SendConfirm)

function UserConnected(user)
    if Confirm[user[SET]] == nil then
        Core.SendPmToUser(user,BOT, SendConfirm)
    end
end

    if To == BOT then
        if Message == IConfirm then
            Confirm[user[SET]] = 1
            Core.SendPmToUser(user,BOT,"Теперь вы полноправный участник чата!")

data_file = "scripts/Rules/data.txt"