История Чата + Антирекламма, API2 | Ведет лог чата

Cmds = {
    togglehistory = function(user,data)
        if user then
            local status,result = "убраны из","Теперь вы будете "..
                "получать истрию чата при заходе на хаб."
            local Exclude = CheckEx(user)
            if not Exclude then
                table.insert(Cfg.Exclude,user.sNick)
                status,result = "добавлены в","Больше вы "..
                "не будете получать историю чата при входе."
            else
                table.remove(Cfg.Exclude,Exclude)
            end
            SaveToFile(Cfg.UserFile,Cfg.Exclude,"Cfg.Exclude")
            return "Вы были "..status.." таблицы исключений. "..result
        else
            return "Активация сохранения истории чата","",""
        end
    end,
    history = function(user,data)
        local ChatLines = Cfg.MaxChat
        if user then
            local _,_,lines = data:find("%b<> %p%w+ (%d+)")
            if not lines then
                lines = ChatLines
            else
                lines = tonumber(lines)
            end
            return GetChat(lines)
        else
            return "Получить историю чата",
            " %[line:# Число линий для вывода (макс) "..ChatLines.."]",
            " %[line:# Число линий для вывода (макс) "..ChatLines.."]"
        end
    end,
    dayhistory = function(user,data)
        local today = tonumber(os.date("%Y") + os.date("%j"))
        if user then
            local _,_,days = data:find("%b<> %p%w+ (%d+)")
            if days then
                local past = today - tonumber(days)
                OnError(past)
                local str = "\r\n\r\n <"..string.rep("?",70)..
                "[ Last ( "..days.." ) days of chat ]??????????>\r\n"
                for i,v in ipairs(Cfg.Chat)do
                    if v[1] > past then
                        str = str.."\r\n ["..i.."] "..v[2].." "..v[3].." "..v[4]
                    end
                end
                str = str.."\r\n\r\n <"..string.rep("?",70).."[ Конец истории чата ]"..
                string.rep("?",string.len(days)).."??????????>\r\n\r\n"
                return str
            else
                return "You must specify how many days"
            end
        else
            return "История чата по дням",
            " %[line:За сколько дней показать историю?]",
            " %[line:За сколько дней показать историю?]"
        end
    end,
    delete = function(user,data)
        local ChatLines = #Cfg.Chat
        if user then
            if user.iProfile == Cfg.AdminProf then
                local _,_,lines = data:find("%b<> %p%w+ (%d+)")
                if not lines then
                    lines = ChatLines
                else
                    lines = tonumber(lines)
                end
                return DelChat(lines)
            else
                return "Sorry "..user.sNick..", this command is for "..
                ProfMan.GetProfile(Cfg.AdminProf).sProfileName.."'s only."
            end
        else
            return "Стереть историю чата",
            " %[line:# линий **ноль = все ("..ChatLines..") сообщения ]",
            " %[line:# линий **ноль = все ("..ChatLines..") сообщения ]"
        end
    end,
    delchat = function(user,data)
        local ChatLines = #Cfg.Chat
        if user then
            if user.iProfile == Cfg.AdminProf then
                local _,_,line = data:find("%b<> %p%w+ (%d+)")
                if line then
                    line = tonumber(line)
                    if Cfg.Chat[line] then
                        local str = Cfg.Chat[line][4]
                        table.remove(Cfg.Chat,line)
                        SaveToFile(Cfg.File,Cfg.Chat,"Cfg.Chat")
                        return "Линии истории чата "..line.." были удалены.\r\n"..
                        "Удаленная история: "..string.format("%q",str)
                    else
                        return line.." не верный ввод."..GetChat(Cfg.History)
                    end
                else
                    return "Вы должны указать что нужно удалить."
                end
            else
                return "Прости "..user.sNick..", эта команда только для "..
                ProfMan.GetProfile(Cfg.AdminProf).sProfileName.."пользователей."
            end
        else
            return "Удалить строку истории",
            " %[line:Какую трем?]",
            " %[line:Какую трем?]"
        end
    end,
    chathelp = function(user,data,to)
        if user then
            local reply = "Chat History Help\n\n\tCommand\t\tDescription\r\n"..
            "\t"..string.rep("?",40).."\r\n"
            for i,v in pairs(Cmds) do
                local desc,args = Cmds[i]()
                reply = reply.."\t"..Cfg.Pfx..string.format("%-15s",i).."\t"..desc.."\r\n"
            end
            return reply.."\n\t"..string.rep("?",40).."\r\n\r\n"
        else
            return "Помощь по истории чата","",""
        end
    end,
}

Core.SendPmToUser