--[[ Name : Anti-Camping
		 Version : 1.01
		 Created by : Idea by «§H»Kennan{Leader}, mostly wrote by Aelite Prime (Thanks both of them)
					  Short modifications by combre
]]--

players = {}

coords = {}
coords_to_move = 10 -- How many coords do they have to move in 30 seconds to be considered camping.
                        -- If you walk in a stright line for 30 seconds, you can move around 30-40 coords.
                        -- Also the radius of the circle they must get out of in 30 seconds before they are considered camping.
                        -- Would want to make this smaller as the map gets small.

punishment = "moove" -- What do you want to do to the "campers", methods :
					 -- "kill"  : Kill them
                     -- "hurt"  : Hurt them (20% of their health, on the 5th time, it will kill them)
					 -- "moove" : Moove them back to teir spawn position


-- Don't touch below this line --
coords = {}
countercamp = 0

function GetRequiredVersion()
    return 200
end

function OnScriptLoad(processId, game, persistent)
    timer = registertimer(10000, "CoordCheck") -- 30000 or 30 sec, time between each coords checks
end

function OnGameEnd(stage)
    if stage == 1 then
		removetimer(timer)
    end
end

function OnPlayerJoin(player)
    coords[gethash(player)] = readfloat(getplayer(player) + 0xF8)
end

function CoordCheck(id, count)
    for player = 0,15 do
        if getplayer(player) then
            local hash = gethash(player)
            local m_objectId = getplayerobjectid(player)
            local x_diff = (coords[hash] + coords_to_move)
            coords[hash] = readfloat(getplayer(player) + 0xF8)
			if not isinvehicle(player) then
				if m_objectId and coords[hash] ~= nil and coords[hash] <= x_diff then
					--if countercamp == 0 then
					countercamp = countercamp + 1
					privatesay(player, "You cannot stand here.")
					--elseif countercamp == 3 then
						--countercamp = 0
						--privatesay(player, "You cannot stand here.")
					--end
					if countercamp == 2 and isNotHoldingFlag(player) then
						if punishment == "kill" then
							countercamp = 0
							kill(player)
							privatesay(player, "You were killed for camping!")
						elseif punishment == "hurt" then
							local m_object = getobject(m_objectId)
							local health = readfloat(m_object + 0xE0)
							if health <= 0.21 then
								countercamp = 0
								kill(player)
								privatesay(player, "20% of your Health was damaged for camping, thus resulting in your death!")
							else
								countercamp = 0
								writefloat(m_object + 0xE0, health - 0.20)
								privatesay(player, "20% of your Health was damaged for camping!")
							end
						elseif punishment == "moove" then
							if (m_objectId ~= nil) then
								countercamp = 0
								movobjectcoords(m_objectId, players[hash].spawns[1], players[hash].spawns[2], players[hash].spawns[3])
								privatesay(player, "You were mooved for camping!")
							--else
								--countercamp = 0
								--kill(player)
								--privatesay(player, "You were killed for camping!")
							end
						end
					end
				end
            end
        end
    end
    return true
end

function OnPlayerSpawnEnd(player)
    coords[gethash(player)] = readfloat(getplayer(player) + 0xF8)
	local playerobjId = getplayerobjectid(player)
	local x, y, z = getobjectcoords(playerobjId)
	local hash = gethash(player)
	players[hash] = players[hash] or {}
	players[hash].spawns = players[hash].spawns or {}
	players[hash].spawns[1] = x
    players[hash].spawns[2] = y
    players[hash].spawns[3] = z
end

function isNotHoldingFlag(player)
	local redflag = readdword(0x639B98 + 0x0)
	local blueflag = readdword(0x639B98 + 0x4)
	local m_object = getobject(getplayerobjectid(player))
	for i = 0,3 do
		local weapId = readdword(m_object + 0x2F8 + i*4)
		if weapId == redflag or weapId == blueflag then
			return false
		end
	end
	return true
end