------------------------
--     INIT ARRAY     --
------------------------

function initArray(m)
local array = {}
for i = 1, m
do array[i]=0
end
return array
end


------------------------
--        HOOKS       --
------------------------

addhook("minute","ping")
addhook("second","contagemmm")


------------------------
--       CONFIG       --
------------------------

-- sv config, no lock.
tempoa=initArray(32)
contagemm=initArray(32)

-- Define here the ping limit:
ping_limit = 600


------------------------
--     FUNCTIONS      --
------------------------

function ping(id)
msg("©111222111This server has Ping Limit Control !")

for will = 1,32 do

if player(will,"exists") then
if player(will,"ping") >= ping_limit then
if contagemm[will] < 8 then
contagemm[will] = contagemm[will]+1
msg("©000255000"..player(will,"name").." your ping is "..player(will,"ping").." Close All Programs Or Is Kicked!!")
end
end

if contagemm[will] > 7 then
msg("©000255000"..player(will,"name").." Was kicked, For His Ping This "..player(will,"ping"))
parse("kick "..will)
end
end
end
end

function contagemmm()
for allid = 1,32 do
tempoa[allid] = tempoa[allid]+1
end
end

warnings = {}
limit = 600

addhook("minute","checkping")
function checkping()
	msg("This server has ping control")
	for _,id in pairs(player(0,"table")) do
		if player(id,"ping")>=limit then
			if warnings[id] and warnings[id]>=3 then --I decided to make it 3 warnings (3 minutes of high ping) which is still too high in my opinion - it should be 2.
				parse("kick "..id.." \"Ping too high!\"")
				warnings[id]=nil
				return
			end
			if not warnings[id] then warnings[id]=1 else warnings[id]=warnings[id]+1 end
			msg2(id,"Your ping is "..player(id,"ping").." which is "..player(id,"ping")-limit.." higher than our limit ("..limit..")")
			msg2(id,"Please close any applications that strain your bandwidth or try to find a server closer to you!")
		end
	end
end

limitp = 600 - Ping Limit
warning = {}

addhook("join","_join")
function _join(id)
warning[id]=0
end

addhook("minute","_minute")
function _minute()
 for _,id in pairs(player(0,"table")) do
 if player(id,"ping") > limitp then
 warning[id]=warning[id]+1
 if warning[id] == 0 then
    msg2(id,"©255000255 blabla...")
    msg2(id,"©225000255 blabla..")
end
 if warning[id] == 1 then
    msg2(id,"©255000255 blabla...")
    msg2(id,"©225000255 blabla..")
end
 if warning[id] == 2 then
    msg2(id,"©255000255 blabla...")
    msg2(id,"©225000255 blabla..")
    parse("kick "..id.." \"Ping too high...!\"")
          end
      return 1
    end
  end
end