Версия для печати темы

Core.Redirect(tUser, sAddress, sReason)

local sBot = SetMan.GetString(21)
local sRedirAddr = "dchub://адрес.хаба.ru" -- возможно, нужно и порт указать, если у того хаба порт ограничен одним нестандартным
local sRedurCmd = "!redirect"
local sReasonDef = "В том зале вам удобнее будет сидеть!" -- причина по умолчанию (при пустом окошке причины)
local sRedirMsg = "Юзер перенаправлен по адресу "..sRedirAddr

function UserConnected(tUser)
    local t = ProfMan.GetProfilePermissions(tUser.iProfile)
    if t and t.bRedirect then
        Core.SendToUser(tUser, "$UserCommand 1 2 Перенаправить юзера..$<%[mynick]> "..sRedurCmd.." %[nick] %[line:Причина (либо оставь пустым)]&#*124;")  -- тут в конце звёздочку удалить
    end
end
OpConnected = UserConnected

function ChatArrival(tUser, sData)
    local sData = sData:sub(1,-2)
    local sData = sData:match"%b<>%s(.*)S)"
    local sCmd = sData:match"^(%S+)"
    if sCmd and sCmd == sRedirCmd then
        local t = ProfMan.GetProfilePermissions(tUser.iProfile)
        if t and t.bRedirect then
            local sNick = sData:match"^%S+(%S+)"
            local sReason = sData:match"^%S+%S+%s+(.*)" or sReasonDef
            local tUsr = Core.GetUser(sNick)
            if tUsr then
                Core.SendToUser(tUsr, "<"..sBot.."> "..sReason)
                Core.Redirect(tUsr, sRedirAddr, sReason)
                Core.SendToUser(tUser, sRedirMsg)
            end
        end
        return true
    end
end