Checker, API2 | Детектор чата и привата

--[[                            
                                  Название скрипта:  Checker
                                  Версия скрипта: 1.0 RC1
                                  Версия API: API2
                                  Автор: Wariner
                                  Специально для портала администраторов http://mydc.ru
                                  
        Возможности:
                                         v 1.0 RC1
                                - Сканит чат и приват и сообщает о подозрительных фразах администратору
            
    скрипт удобнее будет просматривать в Notepad++    
]]--

local sBot = "Checker" -- имя бота
local tProfiles = { -- если 1 скрипт не проверяет
    [0] = 1, -- Мастер
    [1] = 1, -- ОПератор
    [2] = 0, -- VIP
    [3] = 0, -- Зарегистрированный пользователь
    [-1] = 0, -- Незарегистрированный юзер
}
local tAdv = {  -- шаблоны на срабатывание
    "%d*%.%d*%.%d*%.%d*", -- находит в фразе четыре числа разделённые точками(возможно ип)
}
local safeTable = {
    "10.8.12.66",
}

function ChatArrival(tUser, sData)
    local sMsg = sData:match"%b<>%s*(.*)%|"
    if tProfiles[tUser.iProfile] ~= 1 then
        for i,v in ipairs(tAdv) do
            if checkForSafe(sMsg) then
            if sMsg:match(v) then
                Core.SendToOpChat((" *** Юзер %s сказал подозрительную фразу: %s"):format(tUser.sNick, sMsg))
            end
        end
    end
end
end

ToArrival = ChatArrival

function checkForSafe(sMsg)
    for _,v in ipairs(safeTable) do
        if not sMsg:match(v) then
            return true
        end
    end
    return false
end