OnHub Time Logger V.1.63_LUA5

[UwV]

Code: lua

--OnHub Time Logger V.1.63_LUA5
--27.9.03 by c h i l l e r
--thx to tezlo for the nice calculation from math.minutes to months, days, etc., and to Nagini, and to RabidWombat
--ChangeLog :
--27.9.03 Added Serialisation.
-- 03-04-05 converted to LUA5 for PtokaX by UwV

-- You will need to create " UserHubTime.txt "  in "txt"  Folder in the PtokaX scripts Folder,
-- ,.. like this ->  your_Ptokaxfolder/scripts/txt/UserHubTime.txt  <-
---------------------------------------------------------------------------------------------------------------------------------------------------

-- settings

bot="-=Rimmer=-"        -- Name this bot to what you want
cmd1 = "!myhubtime"    -- Name the commands to what you like
cmd2 = "!allhubtime"
cmd3 = "!hubtime"
Max = 100  --This number stands for the maximum of displayed users for cmd2  , set it to what U like
Max1 = 60  --This number is for the timespan between each data saving in minutes.
Max2 = 23  --This number stands for time in minutes, a user must be online till he is saved to the file.

---------------------------------------------------------------------------------------------------------------------------------------------------
---------------------------------------------------------------------------------------------------------------------------------------------------

Sec = 1000 
Min = 60 * Sec
var1 = 0
UserHubTime ={
        ["HubUpTime"] = 0,
        }
File1 = "UserHubTime.txt"
dofile("txt/"..File1)
---------------------------------------------------------------------------------------------------------------------------------------------------

function Main()
	SetTimer(1 * Min) 
	StartTimer()
end 
---------------------------------------------------------------------------------------------------------------------------------------------------

function OnTimer()
	for i,v in UserHubTime do
		if GetItemByName(i) or i=="HubUpTime" then
			v=v+1
			UserHubTime[i]=v
		end
	end
	var1 = var1 + 1
	if var1 == Max1 then
		WriteFile(UserHubTime, "UserHubTime", File1)
		var1 = 0
	end
end
---------------------------------------------------------------------------------------------------------------------------------------------------

function NewUserConnected(curUser)
	if UserHubTime[curUser.sName]==nil then
		UserHubTime[curUser.sName]=0
	end
end
OpConnected = NewUserConnected
---------------------------------------------------------------------------------------------------------------------------------------------------

function ChatArrival(curUser,data)
                local _,_,cmd = string.find( data, "%b<>%s+(%S+)|")
		if (cmd and string.lower(cmd) == string.lower(cmd1) and UserHubTime[curUser.sName] ) then
			local tmp = UserHubTime[curUser.sName]
			local months, days, hours, minutes = math.floor(tmp/43200), math.floor(math.mod(tmp/1440, 30)), math.floor(math.mod(tmp/60, 24)), math.floor(math.mod(tmp/1, 60))
			curUser:SendData(bot, "You have been online : "..months.." months, "..days.." days, "..hours.." hours, and "..minutes.." minutes ( "..tmp.." min ). That is "..string.format("%.2f",tmp/UserHubTime["HubUpTime"]*100).." % of the total HubUpTime.")
			return 1

		elseif (cmd and string.lower(cmd) == string.lower(cmd2)) then
			curUser:SendData(bot, "   -= The Top "..Max.." Antennea =-\r\n"..
			GetUserMaxTime().."\r\n")
			return 1

		elseif (cmd and string.lower(cmd) == string.lower(cmd3)) then
			local tmp = UserHubTime["HubUpTime"]
			local months, days, hours, minutes = math.floor(tmp/43200), math.floor(math.mod(tmp/1440, 30)), math.floor(math.mod(tmp/60, 24)), math.floor(math.mod(tmp/1, 60))
			curUser:SendData(bot, "The hub has now been online : "..months.." months, "..days.." days, "..hours.." hours, and "..minutes.." minutes ( "..tmp.." min ).")
			return 1

		end
end
----------------------------------------------------------------------------------------------------------

function WriteFile(table, tablename, filename)
	local handle = io.open("txt/"..filename, "w+")
	handle:write(tablename.." = {\n" )
	for key, value in table do
		if value >= Max2 then
			handle:write("\t"..string.format("[%q]",key).." = "..value..",\n")
		end
	end
	handle:write("}");
  	handle:close()
end
----------------------------------------------------------------------------------------------------------

function GetUserMaxTime()
	local TCopy={}
	for i,v in UserHubTime do
		if i~="HubUpTime" then
			table.insert( TCopy, { tonumber(v),i } )
		end
	end
	table.sort( TCopy, function(a, b) return (a[1] > b[1]) end)
	local msg ="\r\n"
	for i = 1,Max do
		if TCopy[i] then
			local months, days, hours, minutes = math.floor(TCopy[i][1]/43200), math.floor(math.mod(TCopy[i][1]/1440, 30)), math.floor(math.mod(TCopy[i][1]/60, 24)), math.floor(math.mod(TCopy[i][1]/1, 60))
			msg = msg.."\t\t# "..i.."  -  "..TCopy[i][2].."\t::\t"..months.." Months, "..days.." Days, "..hours.." Hours, And "..minutes.." Minutes ( "..TCopy[i][1].." min ).\r\n"
		end
	end
	local TCopy={}
	return msg
end

thanks to this board :-)