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

--- Скрипт замены описания юзера на данном хабе на профиль юзера (мастер, оператор, вип, рег и незарегистрированный юзер)
--- Название скрипта - ProfileToDescr.lua
--- Написан чисто переделкой скрипта NoDescAdv от Alex82
--- Автор переделки - Ksan (г.Томск)
--- Дата: 10-08-2010
----------------------

iSendTimer = 1000    -- Время отправки MyINFO, ms

tTimers = {}
tUsers = {}

function OnStartup()
    for i,v in pairs(Core.GetOnlineUsers(true)) do
        MyINFOArrival(v,v.sMyInfoString)
    end
end

function GetNickListArrival(user,data)
    tTimers[TmrMan.AddTimer(iSendTimer, "SendAllInfo")] = user.sNick
end

function MyINFOArrival(user,data)
    tUsers[user.sNick] = true
    tTimers[TmrMan.AddTimer(iSendTimer, "SendInfo")] = user.sNick
    collectgarbage("collect")
end

function SendAllInfo(tmr)
    local user = Core.GetUser(tTimers[tmr],true)
    if user then
        for i,v in pairs(Core.GetOnlineUsers(true)) do
            if tUsers[v.sNick] then
                local tUsr = Core.GetUser(tTimers[tmr],true)
                if tUsr then
                    sProfile = (ProfMan.GetProfile(v.iProfile) and ProfMan.GetProfile(v.iProfile).sProfileName) or "Незарегистрированный юзер"
                    Core.SendToUser(user,"$MyINFO $ALL "..v.sNick.." "..sProfile..(v.sMyInfoString:match("%$MyINFO%s$ALL%s%S+%s.-(%b<>%$.+)$") or v.sMyInfoString:match("%$MyINFO%s$ALL%s%S+%s.-(%$.+)$")))
                end
            end
        end
    end
    tTimers[tmr] = nil
    TmrMan.RemoveTimer(tmr)
    collectgarbage("collect")
end

function SendInfo(tmr)
    local user = Core.GetUser(tTimers[tmr],true)
    if user then
        sProfile = (ProfMan.GetProfile(user.iProfile) and ProfMan.GetProfile(user.iProfile).sProfileName) or "Незарегистрированный юзер"
        Core.SendToAll("$MyINFO $ALL "..user.sNick.." "..sProfile..(user.sMyInfoString:match("%$MyINFO%s$ALL%s%S+%s.-(%b<>%$.+)$") or user.sMyInfoString:match("%$MyINFO%s$ALL%s%S+%s.-(%$.+)$")))
    end
    tTimers[tmr] = nil
    TmrMan.RemoveTimer(tmr)
end