Идея, под API 1,2

-- Специально для портала администраторов http://mydc.ru
nTime = 0.1         -- Время смены фраз в минутах

tMsg={            --  ПРОБЕЛЫ БУДУТ ЗАМЕНЕНЫ НА "_"
[[Тест 1]],
[[Тест 2]],
[[Шара хаба SHARA]],              -- Показывает шару хаба
[[USERS юзеров он-лайн]],         -- Показывает он-лайн юзеров
[[Хаб без рестарта UPTIME]],      -- UpTime хаба
[[DATA]]                          -- число месяц год день недели
}

tMonth = {
    ["January"] = "Января",
    ["February"] = "Февраля",
    ["March"] = "Марта",
    ["April"] = "Апреля",
    ["May"] = "Мая",
    ["June"] = "Июня",
    ["July"] = "Июля",
    ["August"] = "Августа",
    ["September"] = "Сентября",
    ["October"] = "Октября",
    ["November"] = "Ноября",
    ["December"] = "Декабря",
}

tDays = {
   ["Monday"] = "Понедельник",
   ["Tuesday"] = "Вторник",
   ["Wednesday"] = "Среда",
   ["Thursday"] = "Четверг",
   ["Friday"] = "Пятница",
   ["Saturday"] = "Суббота",
   ["Sunday"] = "Воскресенье",
}

function Main()
    RegBot()
    SetTimer(nTime*60000)
end

function OnTimer()
    RegBot()
end

function GetTime()
    local sDate = os.date("%d.%B.%Y.%A.")
    for i,v in pairs(tDays) do
        sDate = string.gsub(sDate,i,v)
    end  
    for i,v in pairs(tMonth) do
        sDate = string.gsub(sDate,i,v)
    end     
    return sDate
end

function RegBot()
    if sBot then
       frmHub:UnregBot(tostring(sBot))
    end
    sBot = tMsg[math.random(1,#tMsg)]
    sBot = string.gsub(sBot, "SHARA", GetNormalShare(Core.GetCurrentSharedSize())) or sBot
    sBot = string.gsub(sBot, "USERS", ftmHub:GetUsersCount()) or sBot
    sBot = string.gsub(sBot, "UPTIME", GetNormalTime(ftmHub:GetUpTime())) or sBot
    sBot = string.gsub(sBot, "DATA", GetTime()) or sBot
    sBot = string.gsub(sBot, " ", "_") or sBot    
    frmHub:RegBot(tostring(sBot),"","",true)
end    

function GetNormalShare(s)
    s=tonumber(s) or 0
    if s>=1125899906842624 then return (math.floor(100*s/1125899906842624)/100).." ПБ"
    elseif s>=1099511627776 then return (math.floor(100*s/1099511627776)/100).." TБ"
    elseif s>=1073741824 then return (math.floor(100*s/1073741824)/100).." ГБ"
    elseif s>=1048576 then return (math.floor(100*s/1048576)/100).." МБ"
    elseif s>=1024 then return (math.floor(100*s/1024)/100).." КБ"
    else return s.." Б" end
end

function GetNormalTime(s)
    s=tonumber(s) or 0
    local r=""
    if s>=31104000 then r=math.floor(s/31104000).." г. " s=math.fmod(s,31104000) end
    if s>=2592000 then r=r..math.floor(s/2592000).." мес. " s=math.fmod(s,2592000) end
    if s>=86400 then r=r..math.floor(s/86400).." д. " s=math.fmod(s,86400) end
    if s>=3600 then r=r..math.floor(s/3600).." ч. " s=math.fmod(s,3600) end
    if s>=60 then r=r..math.floor(s/60).." мин. " s=math.fmod(s,60) end
    return r..s.." сек."
end