AntiCamp.lua

--[[ 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 = {}
players.haveflag = nil

weapons = {}

coords = {}
coords_to_move = 8 -- 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 = "move" -- 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(60000, "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 == 1 then
                        countercamp = countercamp + 1
                        privatesay(player, "Last warning.")
                    elseif countercamp == 2 and players[hash].haveflag == false 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 == "move" 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 moved for camping!")
                                end
                            end
                    else
                        countercamp = 0
                        privatesay(player, "Stop camping...")
                    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
    players[hash].haveflag = false
end

function OnWeaponPickup(player, weapId, slot, mapId)
    local hash = gethash(player)
    local tagname = gettaginfo(mapId)
    if tagname == "weapons\\flag\\flag" then
        players[hash].haveflag = true
    end
end

function OnWeaponDrop(player, weapId, slot, mapId)
    local hash = gethash(player)
    local tagname = gettaginfo(mapId)
    if tagname == "weapons\\flag\\flag" then
        players[hash].haveflag = false
    end
end

registertimer(10, "WeaponMonitor")

function WeaponMonitor(id, count)

    for player = 0,15 do
        weapons[player] = weapons[player] or {}
        local m_player = getplayer(player)
        if m_player then
            local temp = {} --?
            local objId = readdword(m_player, 0x34)
            local m_object = getobject(objId)
            if m_object then
                for i = 0,3 do
                    local weapId = readdword(m_object, 0x2F8 + (i * 4))
                    local m_weapon = getobject(weapId)
                    if m_weapon then
                        local mapId = readdword(m_weapon)
                        if weapons[player][i] then
                            if weapons[player][i].weapId ~= weapId then
                                OnWeaponDrop(player, weapons[player][i].weapId, i, weapons[player][i].mapId)
                                weapons[player][i] = {}
                                weapons[player][i].weapId = weapId
                                weapons[player][i].mapId = mapId
                                OnWeaponPickup(player, weapId, i, mapId)
                            end
                        else
                            weapons[player][i] = {}
                            weapons[player][i].weapId = weapId
                            weapons[player][i].mapId = mapId
                            OnWeaponPickup(player, weapId, i, mapId)
                        end
                    else
                        if weapons[player][i] then
                            OnWeaponDrop(player, weapons[player][i].weapId, i, weapons[player][i].mapId)
                            weapons[player][i] = nil
                        end
                    end
                end
            else
                for i = 0,3 do
                    if weapons[player][i] then
                        OnWeaponDrop(player, weapons[player][i].weapId, i, weapons[player][i].mapId)
                        weapons[player][i] = nil
                    end
                end
            end
        end
    end

    return true
end