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

-- Этот скрипт конвертирован программой PtokaX LUA API Конвертор v0.9. Русская версия 09/02/10 00:35:31
--[[
    Для оформления фраз из таблицы tFormat[i]["tPhrases"] можно использовать:
    ------------------------------------------------------------------------------------------------------------------
        HOURS        -    часы
        MINUTES            -    минуты
        SECONDS            -    секунды
        DAY        -    число
        WEEK        -    неделя
        MONTH        -    месяц
        YEAR        -    год
        HUB        -    название хаба
        SHARE        -    шара хаба
        USERS        -    кол-во юзеров на хабе
    ------------------------------------------------------------------------------------------------------------------
]]--
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- Конфиг бота:
    
    -- Таблица с названиями месяцев
    tMonths = {".01.", ".02.", ".03.", ".04.", ".05.", ".06.", ".07.", ".08.", ".09.", ".10.", ".11.", ".12."}
--math.random (
    tTimeZones = {--[[{"Москва:    ", 0 },]]{"Норильск: ", 4,}} -- Часовые пояса
    
    -- Таблица с названиями дней недели
    tWeeks = {"Понедельник", "Вторник", "Среда", "Четверг", "Пятница", "Суббота", "Воскресенье"}

    -- Таблица с названиями едениц измерения шар
    tShareUnits = {"Б", "КБ", "МБ", "ГБ", "ТБ", "ПБ"}

    -- Таблица с блоками информации:
    -- (каждый блок состоит из: ["iInteval"] = время_в_секундах_для_смены_информации, ["sWhatBeforeInfo"] = символ_перед_инфомацией, ["tPhrases"] = таблица_с_инфомацией)
    tFormat = {
        [1] = {
            ["iInteval"] = 10,
            ["sWhatBeforeInfo"] = "[",
            ["tPhrases"] = {
                               "---==СЕРЕБРО==--- DChub]",
                               "Хозяин хаба: Otmorozov]",
                               "Оператор хаба: Алексашка]",
                               "Московское время: HOURS:MINUTES]",
                   "WEEK DAY MONTH YEAR г.]",
                               "Norilsk]",
                               "Юзеров на хабе: USERS]",
                               "Общая шара хаба: SHARE]",
            },
        },
    }
local nMSKOffset    = 0  -- смещение локального часового пояса относительно Москвы
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
function OnStartup()
    nMSKOffset = nMSKOffset * 3600
    for i,v in ipairs(tTimeZones) do
        v[2] = v[2] * 3600
    end
    sBot = SetMan.GetString(21)
    sHub = SetMan.GetString(0)
    tNeedToSend = {}
    AddTempToTable()

    tmr = TmrMan.AddTimer(1000)
end

function OnExit()
    for i, v in pairs(tFormat) do
        Core.SendToAll("$Quit "..v["sInformation"])
end

function OnError()
    OnExit()
end

function UserConnected(curUser)
    Core.GetUserAllData(curUser)
    table.insert(tNeedToSend, curUser.sNick)
end

OpConnected = UserConnected

function GetNickListArrival(curUser,sData)
    Core.GetUserAllData(curUser)
    table.insert(tNeedToSend, curUser.sNick)
    end
end
RegConnected = UserConnected

function OnTimer(tmr)
    for i, v in pairs(tFormat) do
        tFormat[i]["iTimer"] = v["iTimer"] + 1
        if tFormat[i]["iTimer"] > v["iInteval"] then
            tFormat[i]["iTimer"] = 1
            tFormat[i]["iStatus"] = v["iStatus"] + 1
            if v["iStatus"] > #v["tPhrases"] then
                tFormat[i]["iStatus"] = 1
            end
            Core.SendToAll("$Quit "..tFormat[i]["sInformation"])
            tFormat[i]["sInformation"] = v["sWhatBeforeInfo"]..DoGsub(v["tPhrases"][v["iStatus"]])
            Core.SendToAll("$OpList "..tFormat[i]["sInformation"])
        end
    end
    if tNeedToSend ~= {} then
        SendBotToNewUsers()
        tNeedToSend = {}
    end
end

function AddTempToTable()
    for i, v in pairs(tFormat) do
        tFormat[i]["iStatus"] = 1
        tFormat[i]["iTimer"] = 1
        tFormat[i]["sInformation"] = v["sWhatBeforeInfo"]..DoGsub(v["tPhrases"][1])
        Core.SendToAll("$OpList "..tFormat[i]["sInformation"])
    end
end

function DoGsub(sMsg)
    local sMsg = string.gsub(sMsg, "HUB", sHub)
    local sMsg = string.gsub(sMsg, "HOURS", tonumber(os.date("%H")))
    local sMsg = string.gsub(sMsg, "MINUTES", os.date("%M"))
    local sMsg = string.gsub(sMsg, "SECONDS", os.date("%S"))
    local sMsg = string.gsub(sMsg, "DAY", tonumber(os.date("%d")))
    local sMsg = string.gsub(sMsg, "WEEK", tWeeks[tonumber(os.date("%w"))] or tWeeks[7])
    local sMsg = string.gsub(sMsg, "MONTH", tMonths[tonumber(os.date("%m"))])
    local sMsg = string.gsub(sMsg, "YEAR", (os.date("%Y")))
    local sMsg = string.gsub(sMsg, "SHARE", DoShareUnits())
    local sMsg = string.gsub(sMsg, "USERS", Core.GetUsersCount())
    local sMsg = string.gsub(sMsg, "Norilsk", GetTime())
    return sMsg
end

function SendBotToNewUsers()
    for i , v in pairs(tNeedToSend) do
        local sUser = Core.GetUser(v,true)
        if sUser then
            for k, y in pairs(tFormat) do
                Core.SendToNick(sUser.sNick,"$OpList "..y["sInformation"])
            end
        end
    end
end


function GetTime()        -- кусок функции для показа времени в Норильске
    local nTime = os.time() - nMSKOffset
    local sTime = ""
    for i,v in ipairs(tTimeZones) do
        sTime = sTime.."\n"..v[1]..os.date("%T, %d %b", v[2] + nTime)
    end
    return sTime
end

function DoShareUnits()
    local iSize = Core.GetCurrentSharedSize()
    local stSize = #tShareUnits
    local iSize = tonumber(iSize)
    local sUserNits = ""
    for index = 1, stSize do
        if iSize < 1024 then
            sUserNits = tShareUnits[index]
            break
        elseif index == stSize then
            sUserNits = tShareUnits[stSize]
        else
            iSize = iSize / 1024
        end
    end
    return string.gsub(string.format("%0.2f %s", iSize, sUserNits), "%.", ",")
end
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------