Anti-Camp 1.11

-- Anti-Camping with AFK
-- Idea inspired by Kennan

afk_time = 45  -- Time in seconds before a player is considered to be AFK (used for the function isafk).
afk_warn_time = 240  -- Time in seconds before a player is warned that they will be kicked for being AFK (use nil to disable).
afk_kick_time = 300  -- Time in seconds before a player should be kicked for being AFK (use nil to disable).

if afk_warn_time then
    afk_warn_message = "**Warning**: You will be kicked in " .. afk_kick_time - afk_warn_time .. " seconds for being AFK!"
end

if afk_kick_time then
    afk_kick_message = " has been kicked for being AFK."  -- Player's name will be concatenated to the beginning of this string.
end

afk = {}

xy_area_size = 4  -- XY size of sphere which a player must exit within area_timelimit seconds before they are considered to be camping.
z_area_size = 2  -- Z size of sphere which a player must exit within area_timelimit seconds before they are considered to be camping.
area_timelimit = 30  -- Amount of time in seconds a player is allowed to be within the same area before he/she is considered to be camping.
camp_warning = 20  -- Amount of time in seconds before a player receives a warning that the server is about to consider them to be camping.
camp_penalty = 0.1  -- Percentage of maximum health in damage done to player per second they are considered to be camping.  Use 1 to kill the player.

warning_message = "**Warning**: You will be considered to be camping in " .. area_timelimit - camp_warning .. " seconds!"

camping_message = "**Warning**: The server will now apply " .. camp_penalty * 100 .. "% damage per second while you are camping!"

function GetRequiredVersion()

    return 200
end

function OnScriptLoad(processId, game, persistent)


end

--[[
function OnScriptUnload()


end
--]]

--[[
function OnNewGame(map)


end
--]]

--[[
function OnGameEnd(stage)


end
--]]

function OnServerChat(player, type, message)

    if player and type < 4 then
        afk[player].time = -1
        afk[player].boolean = false
    end
end

--[[
function OnServerCommandAttempt(player, command, password)

    --return true
end
--]]

--[[
function OnServerCommand(admin, command)

    --return true
end
--]]

--[[
function OnNameRequest(hash, name)

    --return true, name
end
--]]

--[[
function OnBanCheck(hash, ip)

    --return true
end
--]]

timers = {}
location = {}
camping = {}

function OnPlayerJoin(player)

    afk[player] = {}
    afk[player].orientation = {}
    afk[player].response = true
    afk[player].time = 0
    afk[player].boolean = false
    afk[player].timerid = registertimer(1000, "AFKTimer", player)

    location[player] = {}
    camping[player] = false
    timers[player] = registertimer(1000, "CampingTimer", player)
end

function AFKTimer(id, count, player)

    local m_player = getplayer(player)
    if m_player then
        local objId = readdword(m_player, 0x34)
        local m_object = getobject(objId)
        if m_object then
            local x_aim = readfloat(m_object, 0x230)
            local y_aim = readfloat(m_object, 0x234)
            local z_aim = readfloat(m_object, 0x238)
            local bool = true

            if x_aim == (afk[player].orientation.x or x_aim) and y_aim == (afk[player].orientation.y or y_aim) and z_aim == (afk[player].orientation.z or z_aim) then
                local walking = readbyte(m_object, 0x4D2)
                if walking == 0 then
                    bool = false
                end
            end

            afk[player].orientation.x = x_aim
            afk[player].orientation.y = y_aim
            afk[player].orientation.z = z_aim
            afk[player].response = bool

            if afk[player].response == false then
                afk[player].time = afk[player].time + 1
            else
                afk[player].time = 0
            end

            if afk[player].time == 0 then
                afk[player].boolean = false
            elseif afk[player].time == afk_time then
                afk[player].boolean = true
            elseif afk[player].time == afk_warn_time then
                privatesay(player, afk_warn_message, false)
            elseif afk[player].time == afk_kick_time then
                say(getname(player) .. afk_kick_message, false)
                svcmd("sv_kick " .. resolveplayer(player))
            end
        else
            afk[player].orientation.x = nil
            afk[player].orientation.y = nil
            afk[player].orientation.z = nil
        end
    end

    return true
end

function CampingTimer(id, count, player)

    local m_player = getplayer(player)
    if m_player then
        local objId = readdword(m_player, 0x34)
        local m_object = getobject(objId)
        if m_object then
            if not isafk(player) then
                local x, y, z = getobjectcoords(objId)
                location[player][count] = {x, y, z}
                local seconds = 0
                for i = count, count - area_timelimit, -1 do
                    if location[player][i] then
                        local inside = inellipse(location[player][i], location[player][count])
                        if inside then
                            seconds = seconds + 1
                        else
                            for x = 1,i do
                                location[player][x] = nil
                            end

                            break
                        end
                    else
                        break
                    end
                end

                if seconds == camp_warning then
                    privatesay(player, warning_message, false)
                elseif seconds == area_timelimit then
                    privatesay(player, camping_message, false)
                    camping[player] = true
                end

                if seconds >= area_timelimit then
                    -- 1 dmg = 4 / 300 health
                    local total_damage = 1 / (4 / 300)
                    local damage = camp_penalty * total_damage * 2
                    local shields = readfloat(m_object, 0xE4)
                    local health = readfloat(m_object, 0xE0)
                    if shields == 0 and health < camp_penalty then
                        kill(player)
                    else
                        applydmg(objId, damage)
                    end
                else
                    camping[player] = false
                end
            end
        end
    end

    return true
end

function inellipse(t1, t2)

    local x1, y1, z1 = table.unpack(t1)
    local x2, y2, z2 = table.unpack(t2)

    local xdist = x2 - x1
    local ydist = y2 - y1
    local zdist = z2 - z1

    if zdist / 2 <= z_area_size then
        local xy_dist = math.sqrt(xdist ^ 2 + ydist ^ 2)
        if xy_dist <= xy_area_size then
            return true
        end
    end

    return false
end

function OnPlayerLeave(player)

    removetimer(timers[player])
    location[player] = nil
    camping[player] = nil

    removetimer(afk[player].timerid)
    afk[player] = nil
end

function OnPlayerKill(killer, victim, mode)

    if mode == 0 then
        if camping[victim] then
            say(getname(victim) .. " was killed for camping!", false)
            camping[victim] = false
            return false
        end
    end
end

--[[
function OnKillMultiplier(player, multiplier)

    -- Multipliers:
    -- 7: Double Kill
    -- 9: Triple Kill
    -- 10: Killtacular
    -- 11: Killing Spree
    -- 12: Running Riot
    -- 16: Double Kill w/ Score
    -- 17: Triple Kill w/ Score
    -- 14: Killtacular w/ Score
    -- 18: Killing Spree w/ Score
    -- 17: Running Riot w/ Score
end
--]]

--[[
function OnPlayerSpawn(player)


end
--]]

--[[
function OnPlayerSpawnEnd(player)


end
--]]

--[[
function OnWeaponAssignment(player, objId, slot, weapId)

    --return mapId
end
--]]

function OnWeaponReload(player, weapId)

    afk[player].time = -1
    afk[player].boolean = false
end

function OnObjectCreationAttempt(mapId, parentId, player)

    if player then
        local tagname, tagtype = gettaginfo(mapId)
        if tagtype == "proj" then
            if afk[player] then
                afk[player].time = -1
                afk[player].boolean = false
            end
        end
    end
end

--[[
function OnObjectCreation(objId)


end
--]]

--[[
function OnObjectInteraction(player, objId, mapId)


end
--]]

--[[
function OnTeamDecision(team)

    --return team
end
--]]

--[[
function OnTeamChange(player, old_team, new_team, voluntary)

    --return true
end
--]]

--[[
function OnDamageLookup(receiver, causer, mapId)

    --return true
end
--]]

--[[
function OnDamageApplication(receiver, causer, mapId, location, backtap)

    --return true
end
--]]

function OnVehicleEntry(player, vehiId, seat, mapId, voluntary)

    afk[player].time = -1
    afk[player].boolean = false
end

function OnVehicleEject(player, voluntary)

    afk[player].time = -1
    afk[player].boolean = false
end

function OnClientUpdate(player)

    local m_player = getplayer(player)
    if m_player then
        local objId = readdword(m_player, 0x34)
        local m_object = getobject(objId)
        if m_object then
            local melee_key = readbit(m_object, 0x208, 0)
            local action_key = readbit(m_object, 0x208, 1)
            local flashlight_key = readbit(m_object, 0x208, 3)
            local jump_key = readbit(m_object, 0x208, 6)
            local crouch_key = readbit(m_object, 0x208, 7)
            local right_mouse = readbit(m_object, 0x209, 3)
            if melee_key or action_key or flashlight_key or jump_key or crouch_key or right_mouse then
                afk[player].time = -1
                afk[player].boolean = false
            end
        end
    end
end

function isafk(player)

    if player then
        if afk[player] then
            return afk[player].boolean
        end
    end
end