Need Help With Script
 

News:

11 April 2017 - PtokaX 0.5.2.2 released...
8 April 2015 Anti child and anti pedo pr0n scripts are not allowed anymore on this board!
28 September 2015 - PtokaX 0.5.2.1 for Windows 10 IoT released...
3 September 2015 - PtokaX 0.5.2.1 released...
16 August 2015 - PtokaX 0.5.2.0 released...
1 August 2015 - Crowdfunding for ADC protocol support in PtokaX ended. Clearly nobody want ADC support...
30 June 2015 - PtokaX 0.5.1.0 released...
30 April 2015 Crowdfunding for ADC protocol support in PtokaX
26 April 2015 New support hub!
20 February 2015 - PtokaX 0.5.0.3 released...
13 April 2014 - PtokaX 0.5.0.2 released...
23 March 2014 - PtokaX testing version 0.5.0.1 build 454 is available.
04 March 2014 - PtokaX.org sites were temporary down because of DDOS attacks and issues with hosting service provider.

Main Menu

Need Help With Script

Started by monster, 22 January, 2009, 15:27:12

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

monster

Hi
Could someone modify this old script i use to allow for bigger nick names and still show list in order thnks in advance :)
at the moment the list looks like this
Quote
Current Top Chatters         [14:09:12]
   --------------------------------------------------------------------------------------------------------------
    Nr.    Nick:       Posts:
   --------------------------------------------------------------------------------------------------------------
    1.    [SVIP]Renata       4
    2.    [SU]xvk       4
    3.    [OP]DJ_BIG_PETE       1
   --------------------------------------------------------------------------------------------------------------
want the post to be in line cheers.
--/-------------------------------------------------------------------
-- Topper 1.1
-- Heavily touched by jiten (6/21/2005)
-- Added: Top Sharers (requested by Dinok)
--
-- Kick-Counter By VidFamne, with lot of help by tezlo's code 
--/-------------------------------------------------------------------
Settings = {
	sBot = frmHub:GetHubBotName(),		-- Bot Name
	iMax = 10,				-- Number of Toppers to show
	iLimit = 8,				-- Limitter for Time-counter (in minutes) to filter "short-time" visitors
	sFolder = "Topper",			-- Folder where the .tbl files are stored
	oFile = "Onliners.tbl",			-- Online related file
	tFile = "Toppers.tbl",			-- Toppers file
}

tPrefixes = {}
tOnline = { ["Onliners"] = { ["login"] = {}, ["Time"] = {} } } 
tTopper = { ["Kickers"] = {}, ["Chatters"] = {}, ["Banners"] = {}, ["Reggers"] = {}, ["Sharers"] = {} } 

Main = function() 
	if loadfile(Settings.sFolder.."/"..Settings.oFile) then dofile(Settings.sFolder.."/"..Settings.oFile) else os.execute("mkdir "..Settings.sFolder) end
	if loadfile(Settings.sFolder.."/"..Settings.tFile) then dofile(Settings.sFolder.."/"..Settings.tFile) end
	for a,b in pairs(frmHub:GetPrefixes()) do tPrefixes[b] = 1 end
end

ChatArrival = function(curUser, sData)
	local sData=string.sub(sData,1,-2) 
	local s,e,sPrefix,cmd = string.find(sData,"%b<>%s*(%S)(%S+)")
	if sPrefix and tPrefixes[sPrefix] then
		local s,e,arg = string.find(sData, "%b<>%s+%S+%s*(%S*)")
		local tCmds = {
		["topregger"] = 
			function(curUser) Messager(curUser,"Current Top Reggers","Registered",tTopper.Reggers,false) end, 
		["topkicker"] =
			function(curUser) Messager(curUser,"Current Top Kickers","Kicks",tTopper.Kickers,false) end,
		["topchatter"] =
			function(curUser) Messager(curUser,"Current Top Chatters","Posts",tTopper.Chatters,false) end,
		["topbanner"] = 
			function(curUser) Messager(curUser,"Current Top Banners","Bans",tTopper.Banners,false) end,
		["topsharer"] = 
			function(curUser) Messager(curUser,"Current Top Sharers","Share",tTopper.Sharers,2) end,
		["toponliner"] =
			function(curUser)
				local indeX = {} 
				table.foreach(tOnline.Onliners.login, function(key,value) 
					for key, value in tOnline.Onliners.login do 
						for key2, value2 in tOnline.Onliners.Time do 
							if (key == key2) then 
								local minute = Jmn() 
								local diff = tonumber(value2) + minute - tonumber(value) 
								rawset(indeX, key, diff)
							end 
						end 
					end 
				end)
				Messager(curUser,"Current Top Onliner","Uptime",indeX,1)
			end,
		["mytime"] =
			function(curUser)
				local minute = Jmn() 
				local onTime = ""
				for key, value in tOnline.Onliners.login do 
					for key2, value2 in  tOnline.Onliners.Time do 
						if key == curUser.sName and key2 == curUser.sName then 
							onTime = tonumber(value2) + minute - tonumber(value) 
						end 
					end 
				end
				local days, hrs, min = Timemess(onTime) 
				curUser:SendData(Settings.sBot,"You have been "..days.." days, "..hrs.." hours and "..min.." minutes in this hub.")
			end,
		["nicktime"] =
			function(curUser,arg)
				local s,e,nick = string.find(sData, "%b<>%s+%S+%s+(%S+)")
				local minute = Jmn() local onTime ="" 
				for k, v in tOnline.Onliners.login do 
					for k2, v2 in tOnline.Onliners.Time do
						if k==nick and k2==nick then
							onTime = tonumber(v2) + minute - tonumber(v)
						elseif (tOnline.Onliners.login[nick] == nil) then
							onTime = tonumber(tOnline.Onliners.Time[nick])
						end
					end
				end 
				if onTime == nil then curUser:SendData(Settings.sBot,"*** Error: "..nick.." isn't in our records.") return 1 end 
				local days, hrs, min = Timemess(onTime)
				curUser:SendData(Settings.sBot,""..nick.." has been "..days.." days, "..hrs.." hours and "..min.." minutes in this hub." ) 
			end,
		}
		if tCmds[string.lower(cmd)] then return tCmds[string.lower(cmd)](curUser,sData),1 end
		if cmd and arg and curUser.bOperator then
			if cmd == "nickban" or cmd == "ban" then
				tTopper.Banners[curUser.sName] = tTopper.Banners[curUser.sName] or 0
				tTopper.Banners[curUser.sName] = tTopper.Banners[curUser.sName] + 1
			elseif cmd == "regreg" or cmd == "regvip" then
				tTopper.Reggers[curUser.sName] = tTopper.Reggers[curUser.sName] or 0
				tTopper.Reggers[curUser.sName] = tTopper.Reggers[curUser.sName] + 1
			end
		end
	end
	tTopper.Chatters[curUser.sName] = tTopper.Chatters[curUser.sName] or 0
	tTopper.Chatters[curUser.sName] = tTopper.Chatters[curUser.sName] + 1
end

KickArrival = function(curUser)
	tTopper.Kickers[curUser.sName] = tTopper.Kickers[curUser.sName] or 0
	tTopper.Kickers[curUser.sName] = tTopper.Kickers[curUser.sName] + 1
end

NewUserConnected = function(curUser) 
	local minute = Jmn(a) 
	tTopper.Sharers[curUser.sName] = tTopper.Sharers[curUser.sName] or 0
	if tTopper.Sharers[curUser.sName] < curUser.iShareSize then tTopper.Sharers[curUser.sName] = curUser.iShareSize end
	tOnline.Onliners.login[curUser.sName] = tOnline.Onliners.login[curUser.sName] or 0 tOnline.Onliners.login[curUser.sName] = tonumber(minute) 
	tOnline.Onliners.Time[curUser.sName] = tOnline.Onliners.Time[curUser.sName] or 0 
	tOnline.Onliners.Time[curUser.sName] = tOnline.Onliners.Time[curUser.sName] + tonumber(minute) - tonumber(tOnline.Onliners.login[curUser.sName])  
end

OpConnected = NewUserConnected

UserDisconnected = function(curUser) 
	local minute = Jmn(a)
	if tOnline.Onliners.login[curUser.sName] == nil then 
		tOnline.Onliners.Time[curUser.sName] = nil 
	else 
		tOnline.Onliners.Time[curUser.sName] = tOnline.Onliners.Time[curUser.sName] or 0 
		tOnline.Onliners.Time[curUser.sName] = tOnline.Onliners.Time[curUser.sName] + tonumber(minute) - tonumber(tOnline.Onliners.login[curUser.sName]) 
		if tOnline.Onliners.Time[curUser.sName] <= Settings.iLimit then 
			tOnline.Onliners.Time[curUser.sName] = nil tOnline.Onliners.login[curUser.sName] = nil 
		else 
			tOnline.Onliners.login[curUser.sName] = nil  
		end 
	end 
end

OpDisconnected = UserDisconnected

OnExit = function()
	if next(tTopper) then saveTableToFile(Settings.sFolder.."/"..Settings.tFile,tTopper,"tTopper") end
	if next(tOnline) then saveTableToFile(Settings.sFolder.."/"..Settings.oFile,tOnline,"tOnline") end
end

Messager = function(curUser,Msg,Type,Table,Value)
	local Message,Index = "",{n=0} 
	Message = Message.."\r\n\r\n\t"..Msg.."\t\t\t["..os.date("%X").."]\r\n\t"..string.rep("--",55).."\r\n"
	Message = Message.."\t Nr.\t Nick:\t\t "..Type..":\r\n\t"..string.rep("--",55).."\r\n"
	table.foreach(Table, function(key, value) table.insert(Index, key) end)
	local Sort = function(a, b) return Table[a] > Table[b] end table.sort(Index, Sort)
	for i = 1, table.getn(Index) do 
		local key = Index[i]
		local days, hrs, min = Timemess(Table[key]) 
		if Value == 1 then
			Message = Message.."\t "..i..".\t "..key.."\t\t "..days.." days, "..hrs.." hours and "..min.." minutes\r\n"
		elseif Value == 2 then
			Message = Message.."\t "..i..".\t "..key.."\t\t "..string.format("%0.2f",tonumber(Table[key])/(1024*1024*1024)).." GB\r\n"
		else
			Message = Message.."\t "..i..".\t "..key.."\t\t "..Table[key].."\r\n"
		end
		if i>=Settings.iMax then break end
	end
	Message = Message.."\t"..string.rep("--",55) curUser:SendData(Settings.sBot,Message)
end

Jmn = function() --(Modified Julian "minute" number. This restricts the algorithm to 1900 Mar 01 until 2100 Feb 28) 
	D = tonumber(os.date("%d")) H = tonumber(os.date("%H")) minutE = tonumber(os.date("%M"))
	Y = tonumber(os.date("%Y")) M = tonumber(os.date("%m"))
	if M <= 2 then M = M + 12 Y=Y-1 end
        mn = 1440*(math.floor(Y*365,25) + math.floor((M+1)*30,6) + D -428) + H*60 + minutE return mn
end

Timemess = function(T) 
	local min = tonumber(T) local days = math.floor(min/1440) local hrs = math.floor((min-(days*1440))/60) 
	min = math.floor(min-(days*1440)-(hrs*60)) return days, hrs, min 
end

Serialize = function(tTable,sTableName,hFile,sTab)
	sTab = sTab or "";
	hFile:write(sTab..sTableName.." = {\n");
	for key,value in tTable do
		if (type(value) ~= "function") then
			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
	end
	hFile:write(sTab.."}");
end

saveTableToFile = function(file,table,tablename)
	local hFile = io.open(file,"w+") Serialize(table,tablename,hFile); hFile:close() 
end


Edit by CrazyGuy : Use code blocks when pasting code

CrazyGuy

Lining up data in columns is not as easy as it seems.
The size of a tab is heavily dependent on the font being used in the client.
If it looks out of 'shape' for you, it may very well be looking okay in a different client.

A suggestion would be to place the column 'Posts" before 'Nick'.
However, if someone has 12345 posts and the one on the next rank only 10, you'll still have that difference.

monster

Hi
Thanks for the reply just think it looks so much neater as below but if it cant be done so be it
Current Top Chatters         [14:09:12]
   --------------------------------------------------------------------------------------------------------------
    Nr.    Nick:                          Posts:
   --------------------------------------------------------------------------------------------------------------
    1.    [SVIP]Renata                   4
    2.    [SU]xvk                          4
    3.    [OP]DJ_BIG_PETE             1
   --------------------------------------------------------------------------------------------------------------

CrazyGuy

Replace Messager function with the below one for column swap.

Messager = function(curUser,Msg,Type,Table,Value)
	local Message,Index = "",{n=0} 
	Message = Message.."\r\n\r\n\t"..Msg.."\t\t\t["..os.date("%X").."]\r\n\t"..string.rep("--",55).."\r\n"
	Message = Message.."\t Nr.\t "..Type..":\t\t Nick:\r\n\t"..string.rep("--",55).."\r\n"
	table.foreach(Table, function(key, value) table.insert(Index, key) end)
	local Sort = function(a, b) return Table[a] > Table[b] end table.sort(Index, Sort)
	for i = 1, table.getn(Index) do 
		local key = Index[i]
		local days, hrs, min = Timemess(Table[key]) 
		if Value == 1 then
			Message = Message.."\t "..i..".\t "..days.." days, "..hrs.." hours and "..min.." minutes\t\t "..key.."\r\n"
		elseif Value == 2 then
			Message = Message.."\t "..i..".\t "..string.format("%0.2f",tonumber(Table[key])/(1024*1024*1024)).." GB\t\t "..key.."\r\n"
		else
			Message = Message.."\t "..i..".\t "..Table[key].."\t\t "..key.."\r\n"
		end
		if i>=Settings.iMax then break end
	end
	Message = Message.."\t"..string.rep("--",55) curUser:SendData(Settings.sBot,Message)
end

monster

Hi
Thanks GrazyGuy works a treat thnks for all your help awesome :)

monster

Hi
Can anyone tell me how to remove a faulty log from this script a person has been logged in top spot with a faulty h/d showing large faulty share I would like to remove his log from the top ten table.
thanks
:)

SMF spam blocked by CleanTalk