Типо Статистико, api2 lua 5.1.3

--[[ Statistics v1.0 by Wariner
Возможности скрипта:
- Показывает Топ пользователей по шаре
- Показывает максимальное колличество юзеров, шары на хабе и даты их установления
всё это одной командой
Скрипт удобнее смотреть в Notepad++
]]--
-----------------------------------------------------------------------------
-- Конфигурация
-----------------------------------------------------------------------------
gBot = SetMan.GetString(21)
gPath = Core.GetPtokaXPath():gsub("/", "\\").."scripts\\Statistics\\" -- основная папка скрипта
gStat = gPath.."Statistics.tbl" -- таблица max статистики
gMaxShowed = 10 -- максимально выводимое кол-во участников ранжирования

byte=1
Kbyte=1024
Mbyte=Kbyte*Kbyte
Gbyte=Kbyte*Kbyte*Kbyte
Tbyte=Kbyte*Kbyte*Kbyte*Kbyte

tStat = {}

-----------------------------------------------------------------------------
-- дальше лучше ничего не трогать
-----------------------------------------------------------------------------
function OnStartup() -- функции которые выполняются при загрузке скрипта
if loadfile(gStat) ~= nil then
dofile(gStat)
else
tStat["tSharatop"] = {}
tStat["tMaxtop"] = {}
tStat.tMaxtop["MaxUsers"] = 0
tStat.tMaxtop["MaxUsersTime"] = 0
tStat.tMaxtop["MaxShara"] = 0
tStat.tMaxtop["MaxSharaTime"] = 0
WriteFile(tStat, "tStat", gStat)
end
TmrMan.AddTimer(30*1000,"UpdateHubStats")
end

function UserConnected(sUser)
Core.GetUserAllData(sUser)
Core.SendToNick(sUser.sNick,"$UserCommand 1 3 Статистика\\Посмотреть$<%[mynick]> !statistics|")
local shara = sUser.iShareSize or 0
if shara ~= 0 then
tStat.tSharatop[sUser.sNick] = shara
WriteFile(tStat, "tStat", gStat)
end
end

OpConnected = UserConnected
RegConnected = UserConnected

function ChatArrival(sUser,sData)
sData = string.sub(sData,1,-2)
local _,_,cmd =string.find(sData, "%b<>%s+(%S+)")
if cmd == "!statistics" then
Core.SendToNick(sUser.sNick,"<"..gBot.."> "..ShowRanks(sUser, tStat.tSharatop))
return true
end
end

function ShowRanks(sUser, tQWERTY)
Core.GetUserAllData(sUser)
local shara = sUser.iShareSize or 0
local tTemp = {}
local numb = "none"
for i,v in pairs(tQWERTY) do
table.insert(tTemp,{i,v})
end
table.sort(tTemp,function(a,b) return (a[2] > b[2]) end)
msg = "\r\n\r\n\t\t\t\tСтатистика хаба\r\n"..
"-"..string.rep("«»", 40).."-\r\n"..
"\tСейчас юзеров: "..Core.GetUsersCount()..", максимум: "..
tStat.tMaxtop["MaxUsers"]..", был: "..tStat.tMaxtop["MaxUsersTime"].."\r\n"..
"\tСейчас общая шара: "..getNormalShare(Core.GetCurrentSharedSize())..
", максимум: "..getNormalShare(tStat.tMaxtop["MaxShara"])..", был: "..
tStat.tMaxtop["MaxSharaTime"].."\r\n"..
"-"..string.rep("«»", 40).."-\r\n"..
"\tРейтинг самых больших коллекций хаба:\r\n"
--[[for i = 1,gMaxShowed do
if tTemp[i] then
msg = msg.."\t["..i.."] "..getLenght(tTemp[i][1]).."\t"..
getNormalShare(tTemp[i][2]).."\r\n"
if tTemp[i][1] == sUser.sNick then
numb = i
end
end
end]]
for i = 1,#tTemp do
if tTemp[i] then
if i<=gMaxShowed then
msg = msg.."\t["..i.."] "..getLenght(tTemp[i][1]).."\t"..
getNormalShare(tTemp[i][2]).."\r\n"
end
if tTemp[i][1] == sUser.sNick then
numb = i
end
end
end
msg = msg.."-"..string.rep("«»", 40).."-\r\n"..
"\tВы расшарили: "..getNormalShare(shara)..
",\t ваш вклад в общую шару хаба: "..
tostring(math.floor(1000*((shara*100)/Core.GetCurrentSharedSize()))/1000)..
"%\r\n"..
"\tВаша позиция в рейтинге: "..numb.."\r\n"..
"\tПользователи участвуют в рейтинге в течение неограниченного времени\r\n"..
"-"..string.rep("«»", 40).."-"
return msg
end

function UpdateHubStats()
local sTotalUsers = Core.GetUsersCount()
local sTotalShare = Core.GetCurrentSharedSize()
if sTotalUsers > tStat.tMaxtop["MaxUsers"] then
tStat.tMaxtop["MaxUsers"] = sTotalUsers
tStat.tMaxtop["MaxUsersTime"] = os.date("%d.%m.%Y в %H:%M:%S")
Core.SendToAll("<"..gBot.."> Установлен новый рекорд по количеству пользователей: "..sTotalUsers.." !")
end
if sTotalShare > tStat.tMaxtop["MaxShara"] then
tStat.tMaxtop["MaxShara"] = sTotalShare
tStat.tMaxtop["MaxSharaTime"] = os.date("%d.%m.%Y в %H:%M:%S")
Core.SendToAll("<"..gBot.."> Установлен новый рекорд по общему размеру шары: "..getNormalShare(sTotalShare).." !")
end
WriteFile(tStat, "tStat", gStat)
end

function getNormalShare(share) -- шара не в байтах
local sshare = 0;
if tonumber (share) then
sshare = tonumber (share)
else
sshare =0;
end
local tshare=""

if sshare >=Tbyte then
tshare = tostring(math.floor(1000*sshare/Tbyte)/1000).." ТБ"
elseif sshare >=Gbyte then
tshare = tostring(math.floor(1000*sshare/Gbyte)/1000).." ГБ"
elseif sshare >=Mbyte then
tshare = tostring(math.floor(1000*sshare/Mbyte)/1000).." МБ"
elseif sshare >=Kbyte then
tshare = tostring(math.floor(1000*sshare/Kbyte)/1000).." КБ"
else
tshare = tostring(sshare).." Б"
end
return tshare
end

function getLenght(Name) -- функция длинны ника
local Nick = Name
sLength = string.len(Nick)
if sLength < 20 then
tLength = 20 - sLength
end
Nick = Nick..string.rep(" ", tLength)
return Nick
end

function WriteFile(table, tablename, file)
local handle = io.open(file, "w")
Serialize(table, tablename, handle)
handle:close()
end

function Serialize(tTable, sTableName, hFile, sTab)
sTab = sTab or "";
hFile:write(sTab..sTableName.." = {\n" );
for key, value in pairs(tTable) do
local sKey = (type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key);
if(type(value) == "table") then
Serialize(value, sKey, hFile, sTab.."\t");
else
local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value);
hFile:write(sTab.."\t"..sKey.." = "..sValue);
end
hFile:write(",\n");
end
hFile:write(sTab.."}");
end

local numb = "none"

local numb = "очень низкая"

if shara ~= 0 then
    tStat.tSharatop[sUser.sNick] = shara
    WriteFile(tStat, "tStat", gStat)
end

tStat.tSharatop[sUser.sNick] = shara
WriteFile(tStat, "tStat", gStat)

sNick = q

if (tStat.tSharatop[q].Date + sDay*86400) < os.time() then
  tStat.tSharatop[q] = nil
end

attempt to index field 'tSharatop' (a nil value)

if tStat.tSharatop[sUser.sNick] == nil then

dofile(frmHub:GetPtokaXLocation().."scripts/old_api.lu")
gBot = "-=хХ]ЗлОдЕЙ[Хх=-"
gPath = Core.GetPtokaXPath():gsub("/", "\\").."scripts\\Statistics\\" -- основная папка скрипта
gStat = gPath.."Statistics.tbl" -- таблица max статистики
gMaxShowed = 25 -- максимально выводимое кол-во участников ранжирования

byte=1
Kbyte=1024
Mbyte=Kbyte*Kbyte
Gbyte=Kbyte*Kbyte*Kbyte
Tbyte=Kbyte*Kbyte*Kbyte*Kbyte

tStat = {}

------------------------------------------------------------------------------------------------------------------------
-- дальше лучше ничего не трогать
------------------------------------------------------------------------------------------------------------------------
function OnStartup() -- функции которые выполняются при загрузке скрипта
if loadfile(gStat) ~= nil then
dofile(gStat)
else
tStat["tSharatop"] = {}
tStat["tMaxtop"] = {}
tStat.tMaxtop["MaxUsers"] = 0
tStat.tMaxtop["MaxUsersTime"] = 0
tStat.tMaxtop["MaxShara"] = 0
tStat.tMaxtop["MaxSharaTime"] = 0
WriteFile(tStat, "tStat", gStat)
end
TmrMan.AddTimer(30*1000,"UpdateHubStats")
end

function UserConnected(sUser)
Core.GetUserAllData(sUser)
Core.SendToNick(sUser.sNick,"$UserCommand 1 3 -=хХ] ГлаВноЕ МенЮ [Хх=-\\-=[Информация]=-\\Посмотреть статитику$<%[mynick]> !statistics|")
local shara = sUser.iShareSize or 0
if shara ~= 0 then
tStat.tSharatop[sUser.sNick] = shara
WriteFile(tStat, "tStat", gStat)
end
end

OpConnected = UserConnected
RegConnected = UserConnected

function ChatArrival(sUser,sData)
sData = string.sub(sData,1,-2)
local _,_,cmd =string.find(sData, "%b<>%s+(%S+)")
if cmd == "!statistics" then
Core.SendToNick(sUser.sNick,"<"..gBot.."> "..ShowRanks(sUser, tStat.tSharatop))
return true
end
end

function ShowRanks(sUser, tQWERTY)
Core.GetUserAllData(sUser)
local shara = sUser.iShareSize or 0
local tTemp = {}
for i,v in pairs(tQWERTY) do
table.insert(tTemp,{i,v})
end
table.sort(tTemp,function(a,b) return (a[2] > b[2]) end)
msg = "\r\n\r\n\t\t\t\tСтатистика хаба\r\n"..
"-"..string.rep("«»", 40).."-\r\n"..
"\tСейчас юзеров: "..Core.GetUsersCount()..", максимум: "..tStat.tMaxtop["MaxUsers"]..", был: "..tStat.tMaxtop["MaxUsersTime"].."\r\n"..
"\tСейчас общая шара: "..getNormalShare(Core.GetCurrentSharedSize())..", максимум: "..getNormalShare(tStat.tMaxtop["MaxShara"])..", был: "..tStat.tMaxtop["MaxSharaTime"].."\r\n"..
"-"..string.rep("«»", 40).."-\r\n"..
"\tРейтинг самых больших коллекций хаба:\r\n"
for i = 1,gMaxShowed do
if tTemp[i] then
msg = msg.."\t["..i.."] "..getLenght(tTemp[i][1]).."\t"..getNormalShare(tTemp[i][2]).."\r\n"
if tTemp[i][1] == sUser.sNick then
numb = i
end
end
end
msg = msg.."-"..string.rep("«»", 40).."-\r\n"..
"\tВы расшарили: "..getNormalShare(shara)..",\t ваш вклад в общую шару хаба: "..tostring(math.floor(1000*((shara*100)/Core.GetCurrentSharedSize()))/1000).."%\r\n"..
"\tВаша позиция в рейтинге: "..numb.."\r\n"..
"\tПользователи участвуют врейтинге в течении неограниченного времени\r\n"..
"-"..string.rep("«»", 40).."-"
return msg
end

function UpdateHubStats()
local sTotalUsers = Core.GetUsersCount()
local sTotalShare = Core.GetCurrentSharedSize()
if sTotalUsers > tStat.tMaxtop["MaxUsers"] then
tStat.tMaxtop["MaxUsers"] = sTotalUsers
tStat.tMaxtop["MaxUsersTime"] = os.date("%d.%m.%Y в %H:%M:%S")
--"%Y/%m/%d %H:%M:%S"
Core.SendToAll("<"..gBot.."> Установлен новый рекорд по количеству пользователей: "..sTotalUsers.." !")
end
if sTotalShare > tStat.tMaxtop["MaxShara"] then
tStat.tMaxtop["MaxShara"] = sTotalShare
tStat.tMaxtop["MaxSharaTime"] = os.date("%d.%m.%Y в %H:%M:%S")
Core.SendToAll("<"..gBot.."> Установлен новый рекорд по общему размеру шары: "..getNormalShare(sTotalShare).." !")
end
WriteFile(tStat, "tStat", gStat)
end

function getNormalShare(share) -- шара не в байтах
local sshare = 0;
if tonumber (share) then
sshare = tonumber (share)
else
sshare =0;
end
local tshare=""

if sshare >=Tbyte then
tshare = tostring(math.floor(1000*sshare/Tbyte)/1000).." ТБ"
elseif sshare >=Gbyte then
tshare = tostring(math.floor(1000*sshare/Gbyte)/1000).." ГБ"
elseif sshare >=Mbyte then
tshare = tostring(math.floor(1000*sshare/Mbyte)/1000).." МБ"
elseif sshare >=Kbyte then
tshare = tostring(math.floor(1000*sshare/Kbyte)/1000).." КБ"
else
tshare = tostring(sshare).." Б"
end
return tshare
end

function getLenght(Name) -- функция длинны ника
local Nick = Name
sLength = string.len(Nick)
if sLength < 20 then
tLength = 20 - sLength
end
Nick = Nick..string.rep(" ", tLength)
return Nick
end

function WriteFile(table, tablename, file)
local handle = io.open(file, "w")
Serialize(table, tablename, handle)
handle:close()
end

function Serialize(tTable, sTableName, hFile, sTab)
sTab = sTab or "";
hFile:write(sTab..sTableName.." = {\n" );
for key, value in pairs(tTable) do
local sKey = (type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key);
if(type(value) == "table") then
Serialize(value, sKey, hFile, sTab.."\t");
else
local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value);
hFile:write(sTab.."\t"..sKey.." = "..sValue);
end
hFile:write(",\n");
end
hFile:write(sTab.."}");
end