v2+ Anti Camp 1.11 - Halonet.net

LUA 337

V2+ Anti Camp 1.11 By xdedeone on 26th February 2019 04:11:58 PM

-- 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

Recent Pastes

Zombies One 057[...]

V2+ Commands[...]

MAC address code[...]

V1+ 3 Weapons 2.0

V1+ Death Kill[...]

V1+ Afk Detect 1.0

V1+ Killing Spree[...]

V1+ Tea bag Loving[...]

V1+ Blank Script[...]

V1+ Stock Pile 1.0

Raw Paste

-- 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