Заглушка чата (GAG), для одного пользователя

function OnTo(user, data)
    local nick = user.sNick
    local result = nil
    local s,e,to,from = data:find("^%$To:%s(%S+)%sFrom:%s(%S+)%s")
    if tUngagable[user.iProfile] == 0 then
        if (CheckNick(user.sNick) or CheckIP(user.sIP)) and Core.GetUser(to) then
            local tTemp = tIPs[user.sIP]
            if not tTemp then
                tTemp = tNicks[user.sNick]
            end
            local msg = "Вы не можете отправлять личные сообщения."
            if tTemp[4] then msg = msg.." Причина: "..tTemp[4] end
            if tTemp[1] > 0 then
                msg = msg.."\nВозможность отправки ЛС будет возвращена "..Ling:GetDate(tTemp[1]+tTemp[2]).." (через"..Ling:TimeToString(tTemp[1]+tTemp[2]-os.time(os.date("*t")))..")."
            end
            Core.SendToUser(user,"$To: "..from.." From: "..to.." $<"..bot.."> "..msg)
            if ShowToOps then ToOps("Заглушееный юзер "..nick.." ("..user.sIP..") пытался отправить ЛС юзеру "..to..".") end
            return true
        end
    end
end