function ValidateNickArrival(user,data)
    if user.iProfile == -1 or user.iProfile == 3 then
    if Core.GetUserValue(user,0) == "P" then
        Core.SendPmToUser(user, SetMan.GetString(21), '***   Внимание, '..user.sNick..'!  Вы находитесь в пассивном режиме. Бла-бла-бла...')
        return true
    end
    return false
    end
end

Core.SendPmToNick((Nick, sBot," *** Юзер %s сказал подозрительную фразу: %s"):format(tUser.sNick, sMsg))

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

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