Waittime

[Syphrone-NL]

I have this script:

-- ChatStats v3 Made By Optimus
-- Based on Tezlo chats
-- Added Send Commands By TiMeTrAVelleR
-- Madman fixed some in commands
-- Converted to lua5 by Madman with very little help by Jelf
-- with some help by ?
-- fixed stats saving on exit by jiten
---- Modded by Madman
-- Added so it's creates ChatStatsFile, if it's missing
-- Fixed so it dont counts commands
-- Added a IgnoreTable, users in that wont be counted
---- Madman Return's
-- Changed: New ChatArrival
-- Changed: Some Commands
-- Changed: Some small code...
-- Changed: Modded 4 my hub
---- Madman strikes again
-- Added: a lowerchatter cmd, use it to lower someones chatstats post
-- Changed to lua 5.1 by TT
-- Added: chatter of Month, Madman, requested by BrotherBear
-- Added: not case senastive, all nicks will be loged in lower case, Madman, requested by Yahoo
-- Madman does it again
-- Added: Total (char+words+post), request by -SkA-
-- Adedd: Option for Total
-- Changed: Cleaned up code, chatstats,chatmonth and topchat now use same function
-- Added: Sorting by Total, request by -SkA-
-- Changed: Shortstats Option
---- Updated again, by Madman
-- Added: UseMonthStats, so you don't have to use the month stats
-- Added: Profile ranking code..., request by Syphrone-NL
-- Changed: New ranking code
-- Added: Kill command, request by Syphrone-NL
-- Fixed: bugs in kill command

sBot = frmHub:GetHubBotName()		-- Name of Bot
SendComm = 1 			-- Send UserCommands, 1 = On  0 = Off
pMenu = "? CrimeLife Stats ?" 	-- Name of Menu
xMenu = "CrimeLife Game Menu"   -- Name of the OP Menu
UseMonthStats = 0 -- 1 = On / 0 = Off
UseTotal = 0		-- Add Total (char+words+post) in the chatstats, 1 = On  0 = Off
Sortstats = 2	-- 2=posts / 3 = chars / 4 = words / 5 = Total
WaitTime = 86400

Chatstats = {}
ChatstatsMonth = {}

ChatStatsFile = "chatstats.tbl"

IgnoreTable = {
-- 0=dont ignore/1=ignore
	["-=FakeKiller=-"] = 1,
}

EnableChatStats = {
	[0] = 0,	--Operator
	[1] = 1,	--Game-Owner
	[2] = 0,	--Game Admin
	[3] = 1,	--Scum
	[4] = 0,	--Game Mod
	[5] = 1,	--Pee Wee
	[6] = 1,	--Thug
	[7] = 1,	--Gangster
	[8] = 1,	--Hitman
	[9] = 1,	--Assassin
	[10] = 1,	--Boss
	[11] = 1,	--Godfather
	[12] = 1,	--Legendary Godfather
	[13] = 1,	--Don
	[14] = 1,	--Respectable Don
	[15] = 1,	--Legendary Don
	[-1] = 1,       -- Users (UnRegged)
}

AllowedProfiles = {
	[0] = 0,	--Operator
	[1] = 1,	--Game-Owner
	[2] = 1,	--Game Admin
	[3] = 0,	--Scum
	[4] = 1,	--Game Mod
}

rankProfiles = {
	-- Posts = Rank to get
	["0"] = "3",
	["10"] = "5",
	["25"] = "6",
	["50"] = "7",
	["100"] = "8",
	["200"] = "9",
	["350"] = "10",
	["500"] = "11",
	["750"] = "12",
	["1000"] = "13",
	["1500"] = "14",
	["2500"] = "15",
}

---------- Warning! Do Not Edit! -----------
ChatStatsFileMonth = "chatstats - " ..os.date("%y-%m").. ".tbl"
---------- Warning! Do Not Edit! -----------
Players = {}

function Main()
	frmHub:RegBot(sBot)
	CheckFile(ChatStatsFile)
	dofile(ChatStatsFile)
	if UseMonthStats == 1 then
		CheckFile(ChatStatsFileMonth)
		dofile(ChatStatsFileMonth)
	end
end

function CheckFile(File)
	local file = io.open(File, "r")
	if file then
		file:close()
	else
		local file = io.open(File, "w+")
		file:write()
		file:close()
	end
end

function NewUserConnected(user)
	if SendComm == 1 and EnableChatStats[user.iProfile] == 1 then
		if Chatstats[string.lower(user.sName)] then
			user:SendData(sBot, "---===[ Your CrimeLife Stats:  You Made "..Chatstats[string.lower(user.sName)]["post"].." Crimes, You Made ?"..Chatstats[string.lower(user.sName)]["chars"].." Money On The Crimes, And You Stole "..Chatstats[string.lower(user.sName)]["words"].." Vehicles ]===---")
		end
		user:SendData("$UserCommand 1 3 "..pMenu.."\\CrimeLife Stats Off All Users$<%[mynick]> !chatstats&#124;")
		user:SendData("$UserCommand 1 3 "..pMenu.."\\Try To Kill This User$<%[mynick]> !kill %[nick]&#124;")
		if UseMonthStats == 1 then
			user:SendData("$UserCommand 1 3 "..pMenu.."\\Chat stats Year-Month$<%[mynick]> !chatmonth %[line:YY-MM]&#124;")
		end
		user:SendData("$UserCommand 1 3 "..pMenu.."\\My CrimeLife Stats$<%[mynick]> !mystats&#124;")
		if AllowedProfiles[user.iProfile] == 1 then
			user:SendData("$UserCommand 1 3 "..pMenu.."\\"..xMenu.."\\Del CrimeLife User$<%[mynick]> !delchatter %[line:Nick]&#124;")
			user:SendData("$UserCommand 1 3 "..pMenu.."\\"..xMenu.."\\Lower CrimeLife User$<%[mynick]> !lowerchatter %[line:Nick] %[line:New posts]&#124;")
			user:SendData("$UserCommand 1 3 "..pMenu.."\\"..xMenu.."\\Clear CrimeLife Stats$<%[mynick]> !clearstats&#124;")
		end
		if user.bOperator then
			user:SendData("$UserCommand 1 3 "..pMenu.."\\"..xMenu.."\\Top CrimeLife Users In Main$<%[mynick]> !topchat&#124;")
		end
	end
end

OpConnected = NewUserConnected

function OnExit()
	if isEmpty(Chatstats) then
	else
		saveTableToFile(ChatStatsFile, Chatstats, "Chatstats")
		if UseMonthStats == 1 then
			saveTableToFile(ChatStatsFileMonth, ChatstatsMonth, "ChatstatsMonth")
		end
	end
end

function IsCmd(str)
	return string.sub(str, 1, 1) == "!" or string.sub(str, 1, 1) == "?" or string.sub(str, 1, 1) == "+" or string.sub(str, 1, 1) == "$"
end

function ChatArrival(user, data)
	if EnableChatStats[user.iProfile] == 1 then
		local s,e,cmd = string.find(data,"%b<>%s+(%S+)")
		if IsCmd(cmd) then
		elseif IgnoreTable[string.lower(user.sName)] == 1 then
		else
			local s,e,str = string.find(data, "%b<>%s+(.*)%|")
			updStats(string.lower(user.sName), str)
		end
	end
	local data = string.sub(data,1, -2)
	local s,e,cmd = string.find(data, "%b<>%s+[%!%+%?](%S+)")
	if cmd then
		cmd = string.lower(cmd)
		local tCmds = {
		["kill"] = function(user,data)
			local s,e,nick = string.find(data,"%b<>%s+%S+%s+(%S+)")
			Z,u,Hit = nil,nil,0
			if nick then
				Zombie = GetItemByName(nick)
				if Zombie then
					if user.iProfile >= Zombie.iProfile then
						for posts,prof in pairs(rankProfiles) do
							prof = tonumber(prof)
							if prof == Zombie.iProfile then
								Z = 1
							end
							if prof == user.iProfile then
								u = 1
							end
						end
						Players[user.sName]=start
						local start = os.clock()
						if Players[user.sName] then
							local interval = Players[user.sName]
							if os.difftime(os.clock(), interval) < WaitTime then
								local reply = "Take it easy. You must wait "..WaitTime.." seconds between kills."
								user:SendData(sBot,reply)
								return 1
							end
						end
						if Z and u then
							math.randomseed(os.clock())
							Hit = math.random(0,10)
							SendToAll(Hit)
							if Hit >= 5 then
								Posts = math.random(1,20)
								local tmp = Chatstats[string.lower(Zombie.sName)]
								tmp["post"] = tmp["post"] - Posts
								for posts,prof in pairs(rankProfiles) do
									prof = tonumber(prof)
									if Zombie.iProfile == prof then
										-- Do Nothing atm
									else
										ChangeRegUser(Zombie.sName,frmHub:GetUserPassword(Zombie.sName),prof)
										Zombie:SendPM(sBot,"You have be downgraded to " ..GetProfileName(prof).. ". Please reconnect")
									end
									break
								end
								Chatstats[string.lower(Zombie.sName)] = tmp
								saveTableToFile(ChatStatsFile, Chatstats, "Chatstats")
								SendToAll(sBot,Zombie.sName.. " got killed by " ..user.sName.. ", and lost " ..Posts)
							else
								SendToAll(sBot,user.sName.. " tried to kill " .. Zombie.sName.. " but failed")
							end
						else
							user:SendData(sBot,"Sorry, you can't play")
						end
					else
						user:SendData(sBot, nick.. " has a higher rank you cant kill him")
					end
				else
					user:SendData(sBot,nick.. " is not online")
				end
			else
				user:SendData(sBot,"Syntax: !" ..cmd.." <nick>")
			end
			return 1
		end,
		["mystats"] = function(user, data)
			if Chatstats[string.lower(user.sName)] then
				user:SendData(sBot, "---===[ Your CrimeLife Stats:  You Made "..Chatstats[string.lower(user.sName)]["post"].." Crimes, You Made ?"..Chatstats[string.lower(user.sName)]["chars"].." Money On The Crimes, And You Stole "..Chatstats[string.lower(user.sName)]["words"].." Vehicles ]===---")
			else
				user:SendData(sBot, "*** No CrimeLife Statics Found!") 
			end
			return 1
		end,
		["chatstats"] = function(user, data)
			Topic = "Current Top CrimeLife Users"
			Msg = Stats(Topic)
			user:SendPM(sBot,Msg)
			return 1
		end,
		["chatmonth"] = function(user,data)
			if UseMonthStats == 1 then
				local _,_,Y,M = string.find(data,"%b<>%s+%S+%s+(%d%d)%-(%d%d)")
				if Y and M then
					Topic = "Current Top Chatters of Month"
					Msg = Stats(Topic,Y,M)
					user:SendPM(sBot,Msg)
				else
					user:SendData(sBot, "Syntax: !chatmonth YY-MM i.e 07-02 for feb, 07")
				end
			else
				user:SendData(sBot,"This function is disabled")
			end
			return 1
		end,
		["topchat"] = function(user, data)
			if user.bOperator then
				Topic = "Current Top CrimeLife Users"
				Msg = Stats(Topic)
				SendToAll(sBot,Msg)
				return 1
			end
		end,
		["lowerchatter"] = function(user, data)
			if AllowedProfiles[user.iProfile] == 1 then
				local s,e,name,chat = string.find(data, "%b<>%s+%S+%s+(%S+)%s+(%d+)")
				if name and chat then
					if Chatstats[name] then
						chat = tonumber(chat)
						if Chatstats[name]["post"] <= chat then
							user:SendData(sBot, "*** You can not raise the stats!")
						else
							local OldChat = Chatstats[name]["post"]
							Chatstats[name]["post"] = chat
							SendToOps(sBot, "*** Chatstats posts for " ..name.. " has been lowered to " ..chat.. " from " ..OldChat.. " by " ..string.lower(user.sName))
							saveTableToFile(ChatStatsFile, Chatstats, "Chatstats")
						end
					else
						user:SendData(sBot, "*** " ..name.. " is not in CrimeLife stats")
					end
				else
					user:SendData(sBot, "*** Usage: !lowerchatter <name> <new posts>")
				end
				return 1
			end
		end,
		["delchatter"] = function(user, data)
			if AllowedProfiles[user.iProfile] == 1 then
				local s,e,name = string.find(data, "%b<>%s+%S+%s+(%S+)" )
				if name then
					if Chatstats[name] then
						Chatstats[name] = nil
						SendToOps(sBot, "CrimeLife stats from user "..name.." are now removed!")
						saveTableToFile(ChatStatsFile, Chatstats, "Chatstats")
					else
						user:SendData(sBot, "*** CrimeLife stats from user "..name.." not found!")
					end
				else
					user:SendData(sBot, "*** Usage: !delchatter <name>")
				end
				return 1
			end
		end,
		["clearstats"] = function(user, data)
			if AllowedProfiles[user.iProfile] == 1 then
				Chatstats = {}
				saveTableToFile(ChatStatsFile, Chatstats, "Chatstats")
				SendToAll(sBot, "CrimeLife stats are cleared by "..user.sName)
				return 1
			end
		end,
		}
		if tCmds[cmd] then
			return tCmds[cmd](user, data)
		end
	end
end

function Stats(Topic,Y,M)
	if Chatstats then
		if Y and M then
			if loadfile("chatstats - " ..Y.. "-" ..M.. ".tbl") then
				loadTableFromFile("chatstats - " ..Y.. "-" ..M.. ".tbl")
				Table = ChatstatsMonth
			else
				return "That month has not been loged"
			end
		else
			Table = Chatstats
		end
		TCopy={}
		for i,v in pairs(Table) do
			table.insert(TCopy,{i,v.post,v.chars,v.words,v.tot})
		end
		table.sort(TCopy,function(a,b) return (a[Sortstats] > b[Sortstats]) end)
		local chat = Topic..":\r\n\r\n"
		chat = chat.."\t ------------------------------------------------------------------------\r\n"
		if UseTotal == 1 then
			chat = chat.."\t Nr.\tPosts:\tChars:\tWords:\tTotal:\tName:\r\n"
		else
			chat = chat.."\t Nr.\tCrimes:\tMoney:\tVehicles:\tName:\r\n"
		end
		chat = chat.."\t ------------------------------------------------------------------------\r\n"
		for i = 1,25 do 
			if TCopy[i] then
				if UseTotal == 1 then
					chat = chat.."\t "..i..".\t "..TCopy[i][2].."\t "..TCopy[i][3].."\t "..TCopy[i][4].."\t"..TCopy[i][5].."\t"..TCopy[i][1].."\r\n"
				else
					chat = chat.."\t "..i..".\t "..TCopy[i][2].."\t ?"..TCopy[i][3].."\t "..TCopy[i][4].."\t"..TCopy[i][1].."\r\n"
				end
			end
		end
	return chat
	end
	TCopy={}
end

function updStats(nick, str)
	local tmp = Chatstats[nick] or {["post"]=0, ["chars"]=0, ["words"]=0, ["time"]=os.date("%x"),["tot"]=0,}
	tmp["post"], tmp["chars"], tmp["words"], tmp["time"], tmp["tot"] = tmp["post"]+1, tmp["chars"]+string.len(str), tmp["words"]+cntargs(str,"(%a+)"), os.date("%x"), tmp["tot"]+string.len(str)+cntargs(str,"(%a+)")+1
	-- Ranking code
	for posts,prof in pairs(rankProfiles) do
		if tmp["post"] == tonumber(posts) then
			user = GetItemByName(nick)
			prof = tonumber(prof)
			if user.iProfile == prof then
				-- Do Nothing atm
			else
				if user.iProfile == -1 then
					AddRegUser(user.sName,"temp",prof)
					user:SendPM(sBot,"You have be regged as " ..GetProfileName(prof).. " with the pass temp, reconnect and then user !passwd <new password> to change it, then reconnect again, and login with the pass of you choise")
				else
					ChangeRegUser(user.sName,frmHub:GetUserPassword(user.sName),prof)
					user:SendPM(sBot,"You have be upgraded to " ..GetProfileName(prof).. ". Please reconnect")
				end
			end
			break
		end
	end
	-- Ranking code
	Chatstats[nick] = tmp
	saveTableToFile(ChatStatsFile, Chatstats, "Chatstats")
	-- Update Monthfile
	if UseMonthStats == 1 then
		local tmpM = ChatstatsMonth[nick] or {["post"]=0, ["chars"]=0, ["words"]=0, ["time"]=os.date("%x"),["tot"]=0}
		tmpM["post"], tmpM["chars"], tmpM["words"], tmpM["time"], tmpM["tot"] = tmpM["post"]+1, tmpM["chars"]+string.len(str), tmpM["words"]+cntargs(str,"(%a+)"), os.date("%x"), tmpM["tot"]+string.len(str)+cntargs(str,"(%a+)")+1
		ChatstatsMonth[nick] = tmpM
		saveTableToFile(ChatStatsFileMonth,ChatstatsMonth,"ChatstatsMonth")
	end
end

function cntargs(str, rule)
	local s,n = string.gsub(str, rule, "")
	return n
end

----------------------------------------------
-- load & save Tables
----------------------------------------------
function Serialize(tTable, sTableName, sTab)
	assert(tTable, "tTable equals nil");
	assert(sTableName, "sTableName equals nil");
	assert(type(tTable) == "table", "tTable must be a table!");
	assert(type(sTableName) == "string", "sTableName must be a string!");
	sTab = sTab or "";
	sTmp = ""
	sTmp = sTmp..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
			sTmp = sTmp..Serialize(value, sKey, sTab.."\t");
		else
			local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value);
			sTmp = sTmp..sTab.."\t"..sKey.." = "..sValue
		end
		sTmp = sTmp..",\n"
	end
	sTmp = sTmp..sTab.."}"
	return sTmp
end

-----------------------------------------------------------
function saveTableToFile(file, table, tablename)
	local handle = io.open(file,"w+")
	handle:write(Serialize(table, tablename))
	handle:flush()
	handle:close()
end
-----------------------------------------------------------
function loadTableFromFile(file)
	local f = io.open(file)
	if f then
		local r = f:read("*a")
		f:flush()
		f:close()
		local func,err = loadstring(r)
		if func then x,err = pcall(func) end
	end
end

-------------table checker by herodes
--- for an associative table, like ["smth"] = "smth else",
function isEmpty(t)
	for i,v in pairs(t) do
		return false;
	end
	return true;
end;

I added myself:

Players[user.sName]=start
						local start = os.clock()
						if Players[user.sName] then
							local interval = Players[user.sName]
							if os.difftime(os.clock(), interval) < WaitTime then
								local reply = "Take it easy. You must wait "..WaitTime.." seconds between kills."
								user:SendData(sBot,reply)
								return 1
							end
						end

And

WaitTime = 86400

And

Player = {}

But the waittime doesnt work. The script works good and when i kill someone i gives no errors but then i can kill someone again right after it. It gives no waittime. And no errors in the script then.
Whats the problem?
Can somebody help me to fix the waittime?
Thx in advanced

[Syphrone-NL]

Thx it worked

But can you tell me what i did wrong?