v2+ Afk Beast Script 1.01

LUA 200

V2+ Afk Beast Script 1.01 By xdedeone on 25th February 2019 09:19:44 PM

--Ultimate AFK-Handling Script
--Created by Wizard, in 2012/2013
--This script completely revamps AFK-handling in a revolutionary new way.
--Version 1.01 (released July 30th 2014)
--This is how many minutes before a player will get set to the AFK mode.
--The AFK mode means they're hidden, and put under the map so no one will see them.
timeafkbeforeset = 0.75 -- minutes
--This is how many minutes before an afk player will be kicked from the server
--REMINDER: This will ONLY kick if maxplayersbeforekick is reached.
timeafkbeforekick = 2 -- minutes
--This determines how many people need to be in the server before the script will kick an afk.
--The script will kick 1 afk, and it will kick the player with the LONGEST AFK TIME.
maxplayersbeforekick = 16
--Set this to true if you're using zombies, false if not.
zombies = false
--Admins can still be set to the AFK mode even if this is true.
dont_kick_admins = true
--General messages, set to nil to disable them.
afkkick_msg = "%s is afk and is now being kicked from the server!"
afkset_msg = "%s is now afk!"
afkunset_msg = "%s is no longer afk!"
--this was never finished, expect this in a later release!
afk_portal_to_teamhog_race = true -- Set this to true to allow afks to be put into hogs of their teammates (RACE ONLY)
--don't touch anything below this point -> .
CurrentAim = {}
playerWasKilled = {}
afk = {}
afktime = {}
currentplayers = 0
isKicked = {}
justSpawned = {}
afkSpot = {}
pdeaths = {}
randomNames = {"Butcher", "Caboose", "Crazy", "Cupid", "Darling", "Dasher", "Disco", "Donut", "Dopey", "Ghost", "Goat", "Grumpy",
"Hambone", "Hollywood", "Howard", "Jack", "Killer", "King", "Mopey", "Noodle", "Penguin", "Pirate", "Prancer", "Saucy", "Shadow",
"Sleepy", "Snake", "Sneak", "Stompy", "Stumpy", "The Bear", "The Big L", "Tooth", "Walla Walla", "Weasel", "Wheezy", "Whicker",
"Whisp", "Wilshire"}
sharedhashes = {
"f443106bd82fd6f3c22ba2df7c5e4094",
"c702226e783ea7e091c0bb44c2d0ec64",
"d72b3f33bfb7266a8d0f13b37c62fddb",
"55d368354b5021e7dd5d3d1525a4ab82",
"3d5cd27b3fa487b040043273fa00f51b",
"b661a51d4ccf44f5da2869b0055563cb",
"740da6bafb23c2fbdc5140b5d320edb1",
"10440b462f6cbc3160c6280c2734f184",
"7503dad2a08026fc4b6cfb32a940cfe0",
"4486253cba68da6786359e7ff2c7b467",
"f1d7c0018e1648d7d48f257dc35e9660",
"40da66d41e9c79172a84eef745739521",
"2863ab7e0e7371f9a6b3f0440c06c560",
"34146dc35d583f2b34693a83469fac2a",
"b315d022891afedf2e6bc7e5aaf2d357",
"81f9c914b3402c2702a12dc1405247ee",
"63bf3d5a51b292cd0702135f6f566bd1",
"6891d0a75336a75f9d03bb5e51a53095",
"325a53c37324e4adb484d7a9c6741314",
"0e3c41078d06f7f502e4bb5bd886772a",
"fc65cda372eeb75fc1a2e7d19e91a86f",
"f35309a653ae6243dab90c203fa50000",
"50bbef5ebf4e0393016d129a545bd09d",
"a77ee0be91bd38a0635b65991bc4b686",
"3126fab3615a94119d5fe9eead1e88c1",
}
function GetRequiredVersion()
return 200
end
function OnScriptLoad(processid, game, persistent)
if zombies then
zombie_team = getZombieTeam()
end
for i = 0,15 do
if getplayer(i) then
local index = getname(i)
afktime[index] = 0
currentplayers = currentplayers + 1
afkSpot[index] = {}
end
end
GetGameAddresses(game)
registertimer(500, "gameStartedCheck")
gametype = readbyte(gametype_base + 0x30)
if gametype == 1 then
gametype = "CTF"
elseif gametype == 2 then
gametype = "Slayer"
elseif gametype == 4 then
gametype = "KOTH"
end
afktimer = registertimer(500, "afkTimer")
handleafks = registertimer(1000, "handleAfks")
--using the hide method seemed to crash the server occasionally
--hiddentimer = registertimer(20, "hiddenTimer")
end
function gameStartedCheck(id, count)
if not game_started then
setGameVariables()
end
return false
end
function GetGameAddresses(game)
if game == "PC" then
ctf_globals = 0x639B98 -- Confirmed.
oddball_globals = 0x639E18 -- Confirmed.
slayer_globals = 0x63A0E8
name_base = 0x745D4A
flag_respawn_addr = 0x488A7E
specs_addr = 0x662D04
map_addr = 0x698F21
hashcheck_addr = 0x59c280
versioncheck_addr = 0x5152E7
map_pointer = 0x63525c
gametype_base = 0x671340
gametime_base = 0x671420
network_server_globals = 0x69B934 -- Confirmed.
machine_pointer = 0x745BA0
version_address = 0x5DF840
timelimit_address = 0x626630
profilepath = 0x6A0A99
special_chars = 0x517D6B -- special chars in svname patch
gametype_patch = 0x481F3C -- gametype patch
devmode_patch1 = 0x4A4DBF -- devmode
devmode_patch2 = 0x4A4E7F -- devmode
network_base = 0x745BA8
else
ctf_globals = 0x5BDBB8 -- Confirmed.
oddball_globals = 0x5BDE78 -- Confirmed.
slayer_globals = 0x5BE108
name_base = 0x6C7B6A
specs_addr = 0x5E6E63
map_addr = 0x61D151
hashcheck_addr = 0x530130
versioncheck_addr = 0x4CB587
map_pointer = 0x5B927C
gametype_base = 0x5F5498
gametime_base = 0x5F55BC
network_server_globals = 0x61FB64 -- Confirmed.
machine_pointer = 0x6C7980
version_address = 0x564B34
gametype_patch = 0x45E50C
devmode_patch1 = 0x47DF0C
devmode_patch2 = 0x47DFBC -- devmode
network_base = 0x6C7988
end
end
function setGameVariables()
LoadTags()
teamplay = readbyte(gametype_base + 0x34)
if teamplay == 1 then
teamplay = true
else
teamplay = false
end
gametype_lives = readbyte(gametype_base + 0x50)
if gametype_lives == 0 then
gametype_lives = false
end
gametype_game = readdword(gametype_base + 0x30)
if gametype_game == 1 then
func = CtfClientUpdate
registertimer(200, "CtfTimer")
gametype = "CTF"
elseif gametype_game == 2 then
killinorder = readbyte(gametype_base + 0x7E)
if killinorder == 1 then
killinorder = true
else
killinorder = false
end
gametype = "Slayer"
elseif gametype_game == 3 then
--func = OddballClientUpdate
gametype = "Oddball"
elseif gametype_game == 4 then
--registertimer(200, "KothTimer")
gametype = "King"
elseif gametype_game == 5 then
race_type = readbyte(gametype_base + 0x7C)
if race_type == 1 or race_type == 2 then
--func = RaceClientUpdate
registertimer(200, "RaceTimer")
elseif race_type == 3 then
--func = RallyClientUpdate
end
gametype = "Race"
total_checkpoints = readdword(race_globals)
end
end
function OnScriptUnload()
removetimer(afktimer)
removetimer(handleafks)
end
function LoadTags()
-- Globals
global_distanceId = gettagid("jpt!", "globals\\distance")
global_fallingId = gettagid("jpt!", "globals\\falling")
end
function OnNewGame(map)
if not afktimer then
afktimer = registertimer(500, "afkTimer")
end
game_started = true
setGameVariables()
ongameend = false
end
function OnGameEnd(stage)
if stage == 1 then
removetimer(afktimer)
ongameend = true
end
end
function OnServerChat(player, mode, message)
if message:find("!afkstatus") then
player = tonumber(message:sub(12, 13))
privatesay(player, tostring(getname(player)) .. ": " .. tostring(playerIsAfk(player)))
return false
end
if tonumber(player) then
if player >= 0 and player <= 15 then
if getplayer(player) then
local index = getname(player)
afktime[index] = 0
end
end
end
end
--[[
function OnServerCommandAttempt(player, command, password)
--return true
end
--]]
--[[
function OnServerCommand(player, command)
--return true
end
--]]
--[[
function OnNameRequest(hash, name)
--return true, name
end
--]]
--[[
function OnTeamDecision(team)
--return team
end
--]]
function OnPlayerJoin(player)
if not ongameend then
local index = getname(player)
currentplayers = currentplayers + 1
afktime[index] = 0
CurrentAim[index] = {}
afkSpot[index] = {}
else
sayWizard("WTF! ONGAMEEND IS TRUE BRO")
end
end
function OnPlayerLeave(player)
if not ongameend then
local index = getname(player)
currentplayers = currentplayers - 1
afktime[index] = 0
afk[index] = nil
CurrentAim[index] = nil
isKicked[player] = nil
afkSpot[index] = {}
playerWasKilled[player] = nil
justSpawned[player] = nil
local hash = gethash(player)
local name = getname(player)
local ip = getip(player)
local ipport = getip(player) .. ":" .. getport(player)
for i = 1,#indexes do
if indexes[i] == hash or indexes[i] == name or indexes[i] == ip or indexes[i] == ipport then
indexes[i] = nil
end
end
end
end
function OnPlayerKill(killer, victim, mode)
if tonumber(victim) then
playerWasKilled[victim] = true
if justSpawned[victim] then
removetimer(justSpawned[victim])
justSpawned[victim] = nil
end
end
end
--[[
function OnKillMultiplier(player, multiplier)
end
--]]
--[[
function OnPlayerSpawn(player)
end
--]]
function OnPlayerSpawnEnd(player)
justSpawned[player] = registertimer(800, "JustSpawned", player)
playerWasKilled[player] = nil
end
function JustSpawned(id, count, player)
updatePlayerAim(player)
--if getname(player) then sayWizard(tostring(getname(player)) .. " has spawned! Possibly no longer afk!") end
if getplayer(player) then
local index = getname(player)
if afk[index] then
local m_objectId = getplayerobjectid(player)
if m_objectId and m_objectId ~= 0xFFFFFFFF then
local m_object = getobject(m_objectId)
if m_object then
--comment all of below for hide method (remember to uncomment hidetimer at top)
writebit(m_object + 0x10, 7, 0)
local x,y,z = getobjectcoords(m_objectId)
z = z or 69
movobjectcoords(m_objectId, x, y, z-100)
local m_object = getobject(m_objectId)
afkSpot[index] = {x, y, z}
end
end
end
end
justSpawned[player] = nil
return false
end
function OnTeamChange(player, old_team, new_team, voluntary)
playerWasKilled[player] = true
--return true
end
--[[
function OnClientUpdate(player)
end
--]]
--[[
function OnObjectInteraction(player, objId, mapId)
--return true
end
--]]
--[[
function OnWeaponReload(player, weapId)
--return true
end
--]]
--[[
function OnVehicleEntry(player, vehiId, seat, mapId, voluntary)
--return true
end
--]]
--[[
function OnVehicleEject(player, voluntary)
--return true
end
--]]
function OnDamageLookup(receiving_obj, causing_obj, mapId, tagdata)
if mapId == global_distanceId or mapId == global_fallingId then
odl_multiplier(0.00001)
end
--return true
end
--[[
function OnDamageApplication(receiver, causer, mapId, location, backtap)
--return true
end
--]]
--[[
function OnWeaponAssignment(player, objId, slot, weapId)
return true
end
--]]
--[[
function OnObjectCreationAttempt(mapId, parentId, player)
--return mapId
end
--]]
--[[
function OnObjectCreation(objId)
end
--]]
--This timer will add the AFK times of all the players to a table
--so it can be used by the other timers. This timer also unsets afk players.
function afkTimer(id, count)
for i = 0,15 do
if getplayer(i) then
local index = getname(i)
if not playerWasKilled[i] and not justSpawned[i] then
if playerIsAfk(i) then
afktime[index] = afktime[index] + (1/120)
--sayWizard(tostring(getname(i)) .. ": is not moving! AFKTIME: " .. tostring(afktime[index]))
else
--check if the player is set as afk
--if they are, unafk them.
--REM: THIS NEEDS TO BE IN AFKTIMER AND NOT HANDLEAFKS
if afk[index] then
afk[index] = nil
unsetAfkPlayer(i)
end
afktime[index] = 0
--sayWizard(tostring(getname(i)) .. " is moving!")
end
end
end
end
return true
end
--this timer is responsible for handling AFK players if they're AFK for a set amount of time
function handleAfks(id, count)
local player = getLongestAfkPlayer()
if player[2] >= timeafkbeforekick then
if currentplayers >= maxplayersbeforekick and not kickingHappening then
if (not isadmin(player[1]) and dont_kick_admins) or not dont_kick_admins then
if afkkick_msg then
say(string.format(afkkick_msg, getname(player[1])))
end
svcmd("sv_kick " .. resolveplayer(player[1]))
log_msg(3, "AFKBEAST IS NOW KICKING " .. tostring(resolveplayer(player[1])) .. " NAME: " .. tostring(getname(player[1])) .. ", DEBUG INFO FOLLOWS: Currentplayers: " .. currentplayers .. " Maxplayersbeforekick: " .. maxplayersbeforekick .. "KickHappening: " .. tostring(kickingHappening) .. "isKickedTable: " .. tostring(isKicked[player[1]]) .. " AFKTime: " .. tostring(player[2]))
isKicked[player[1]] = true
kickingHappening = true
end
end
end
for i = 0,15 do
if getplayer(i) then
if not playerWasKilled[i] and not justSpawned[i] then
local index = getname(i)
if afktime[index] >= timeafkbeforeset and not afk[index] then
if gametype ~= "CTF" or (gametype == "CTF" and not isHoldingFlag(i)) then
setAfkPlayer(i)
--sayWizard("SETTING AFK PLAYER: " .. i .. " NOW")
if afkset_msg then
say(string.format(afkset_msg, getname(i)))
end
end
else
--say(tostring(afktime[index]) .. " NOT ENOUGH AFK TO SET")
end
end
end
end
if zombies then checkIfAllZombiesAfk() end
return true
end
function isHoldingFlag(player)
local redflag = readdword(ctf_globals)
local blueflag = readdword(ctf_globals + 0x4)
local m_objectId = getplayerobjectid(player)
if m_objectId and m_objectId ~= 0xFFFFFFFF then
local m_object = getobject(m_objectId)
if m_object then
local weapId = readdword(m_object + 0x118)
if weapId == redflag or weapId == blueflag then
return true
end
end
end
return false
end
--this timer is responsible for hiding afk players.
--sometimes causes crash, therefore not used.
function hiddenTimer(id, count)
if afk ~= {} then
for k,v in pairs(afk) do
local m_player = getplayer(k)
if m_player then
--say("HIDING: " .. tostring(getname(k))) .. " Player #: " .. k)
writefloat(m_player + 0xF8, 999)
writefloat(m_player + 0xFC, 999)
writefloat(m_player + 0x100, 999)
end
end
end
return true
end
--this function will loop through all the players and return the player
--that has been AFK the longest.
function getLongestAfkPlayer()
local max = {0,0}
for k,v in pairs(afktime) do
if max[2] < afktime[k] and not afk[k] then
max = {k, v}
end
end
return max
end
--This function will update the player's aim in the currentaim table.
function updatePlayerAim(player)
local m_player = getplayer(player)
if m_player then
local index = getname(player)
local m_objectId = getplayerobjectid(player)
if m_objectId and m_objectId ~= 0xFFFFFFFF then
local m_object = getobject(m_objectId)
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)
CurrentAim[index] = {x_aim, y_aim, z_aim}
end
end
end
end
--This function will determine if the passed player is AFK
function playerIsAfk(player)
local m_player = getplayer(player)
if m_player then
if not justSpawned[player] then
--if getname(player) then sayWizard("PLAYERISAFK") end
local index = getname(player)
local m_objectId = getplayerobjectid(player)
if m_objectId and m_objectId ~= 0xFFFFFFFF then
local m_object = getobject(m_objectId)
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)
if not CurrentAim[index] then
CurrentAim[index] = {x_aim, y_aim, z_aim}
--if getname(player) then sayWizard(getname(player) .. " this shouldn't be called when killed") end
--if getname(player) then sayWizard(getname(player) .. ": CURRENT AIM CREATED") end
return false
else
if (x_aim ~= CurrentAim[index][1]) or (y_aim ~= CurrentAim[index][2]) or (z_aim ~= CurrentAim[index][3]) then
CurrentAim[index] = {x_aim, y_aim, z_aim}
--if getname(player) then sayWizard(tostring(getname(player)) .. ": CURRENT AIM UPDATED IN PLAYERISAFK") end
return false
else
--if getname(player) then sayWizard(tostring(getname(player)) .. " is afk (towiz)") end
return true
end
end
end
else
--if getname(player) then sayWizard("M_OBJECTID IS NIL") end
return false
end
else
--if getname(player) then sayWizard("JustSpawned") end
return true
end
else
--if getname(player) then sayWizard("M_PLAYER IS NIL IN PLAYERISAFK") end
return true
end
return false
end
function checkIfAfk(player)
local m_player = getplayer(player)
if m_player then
local index = getname(player)
if afk[index] then
return true
end
end
return false
end
--This function will check if all the zombies are afk, if they are
--then this function will change a random person's team
function checkIfAllZombiesAfk()
local zombies = getZombies()
if #zombies >= 1 then
--this next section will determine if all the zombies are afk or not
local bool = true
for i = 1,#zombies do
if not checkIfAfk(zombies[i]) then
bool = false
break
end
end
--now we change a random person to zombie cuz all the zombies are currently afk
if bool then
local player = ChooseRandomPlayer(1)
--if getname(player) then say(tostring(getname(player)) .. " will be changed to zombie because all the zombies are afk!") end
--if getname(player) then sayWizard(tostring(#zombies)) end
changeteam(player, false)
kill(player)
else
--if getname(player) then sayWizard("NO ZOMBIES ARE AFK") end
end
end
end
function sayWizard(message)
for i = 0,15 do
if getplayer(i) then
if gethash(i):find("56d5f") then
privatesay(i, message)
break
end
end
end
end
-- this function searches through current players and selects a random one
function ChooseRandomPlayer(excludeTeam)
local t = {}
-- loop through all 16 possible spots and add to table
for i = 0,15 do
-- check if the player exists
if getplayer(i) then
local team = getteam(i)
if team and team ~= excludeTeam then
table.insert(t, i)
end
end
end
if #t > 0 then
-- generate a random number that we will use to select a player
local tableCount = #t
local r = math.random(1, tableCount)
return t[r]
else
return nil
end
end
--This function will set the player as AFK. It will put them under the map, and turn fall damage off for the player.
function setAfkPlayer(player)
local index = getname(player)
updatePlayerAim(player)
local m_objectId = getplayerobjectid(player) or 0xFFFFFFFF
local m_object = getobject(m_objectId)
if m_object then
local killplayer
if gametype_lives then
local m_player = getplayer(player)
if m_player then
local deaths = readshort(m_player+0xAE)
pdeaths[player] = deaths
writeshort(m_player+0xAE, gametype_lives-1)
writeshort(stat_globals+player*0x30+0x14, gametype_lives-1)
killplayer = true
end
end
if zombies then
if getteam(player) ~= zombie_team then
--sayWizard("CHANGING TEAM")
changeteam(player, false)
killplayer = true
end
end
if not killplayer then
local x,y,z = getobjectcoords(m_objectId)
if tonumber(z) then
movobjectcoords(m_objectId, x, y, z-100)
end
afkSpot[index] = {x, y, z}
writebit(m_object + 0x10, 0, 1)
else
kill(player)
afkSpot[index] = {}
end
end
afk[index] = true
end
--This function unsets an AFK player so they can return to the game.
function unsetAfkPlayer(player)
local index = getname(player)
if afkunset_msg then
say(string.format(afkunset_msg, getname(player)))
end
afk[index] = nil
local m_objectId = getplayerobjectid(player)
if m_objectId and m_objectId ~= 0xFFFFFFFF then
local m_object = getobject(m_objectId)
if m_object then
movobjectcoords(m_objectId, afkSpot[index][1], afkSpot[index][2], afkSpot[index][3] + 2)
writebit(m_object + 0x10, 0, 0)
afkSpot[index] = {}
end
end
if gametype_lives then
local m_player = getplayer(player)
if m_player then
writeshort(m_player+0xAE, pdeaths[player]-1)
writeshort(stat_globals+player*0x30+0x14, pdeaths[player]-1)
writedword(m_player+0x2C, 0)
kill(player)
end
end
end
function getZombies()
local zombies = {}
for i = 0,15 do
local m_player = getplayer(i)
if m_player then
local team = readbyte(m_player + 0x20)
if team == zombie_team then
table.insert(zombies, i)
end
end
end
--[[local msgz = ""
for i = 1,#zombies do
local name = getname(zombies[i])
if name then
msgz = msgz .. name .. " "
end
end
sayWizard(msgz)--]]
return zombies
end
function getZombieTeam()
return 1
end
function hashtoplayer(hash)
for i = 0,15 do
local m_player = getplayer(i)
if m_player then
if gethash(i) == hash then return i end
end
end
end
--REM: fix this function... doesn't seem to uniquely index right.. shame.. :/
indexes = {}
function getindex(player, method)
local m_player = getplayer(player)
if m_player then
local name = getname(player)
local ip = getip(player)
local hash = gethash(player)
local ipport = getip(player) .. ":" .. getport(player)
for i = 1,#indexes do
if indexes[i] == ip then
for k,v in pairs(_G) do
if type(v) == "table" then
for k2,v2 in pairs(v) do
if k2 == ip then
indexes[i] = nil
v[k2] = nil
indexes[i] = v2
v[getindex(player, "hash")] = v2
end
end
end
end
break
elseif indexes[i] == name or indexes[i] == hash or indexes[i] == ipport then
return indexes[i]
end
end
if not method then
method = "name"
end
if method == "hash" then
for i = 1,#sharedhashes do
if sharedhashes[i] == hash then
--log_msg(2, "UNABLE TO FIND UNIQUE INDEX FOR PLAYER " .. resolveplayer(player) .. ". NAME: " .. name .. " IP: " .. ip .. " Hash: " .. hash)
table.insert(indexes, ipport)
return ipport
end
end
table.insert(indexes, hash)
return hash
elseif method == "ip" then
for i = 0,15 do
if getplayer(i) then
local ip2 = getip(i)
if ip2 == ip then
return getindex(player, "hash")
end
end
end
table.insert(indexes, ip)
return ip
elseif method == "name" then
for i = 1,#randomNames do
if randomNames[i] == name then
return getindex(player, "ip")
end
end
table.insert(indexes, name)
return name
end
end
end
--Phasor's getrandomnumber and lua's math.random really suck.
math.randomseed(os.time())
getsuckyrand = math.random
--Low and High are INCLUSIVE.
function math.random(low, high)
low = tonumber(low) or raiseerror("Bad argument #1 to 'math.random' (number expected, got " .. tostring(type(low)) .. ")")
high = tonumber(high) or raiseerror("Bad argument #2 to 'math.random' (number expected, got " .. tostring(type(high)) .. ")")
getsuckyrand(low, high) getsuckyrand(low, high) getsuckyrand(low, high) -- I really don't trust it... haha
return getsuckyrand(low, high)
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

--Ultimate AFK-Handling Script
--Created by Wizard, in 2012/2013
--This script completely revamps AFK-handling in a revolutionary new way.
--Version 1.01 (released July 30th 2014)

--This is how many minutes before a player will get set to the AFK mode.
--The AFK mode means they're hidden, and put under the map so no one will see them.
timeafkbeforeset = 0.75 -- minutes

--This is how many minutes before an afk player will be kicked from the server
--REMINDER: This will ONLY kick if maxplayersbeforekick is reached.
timeafkbeforekick = 2 -- minutes

--This determines how many people need to be in the server before the script will kick an afk.
--The script will kick 1 afk, and it will kick the player with the LONGEST AFK TIME.
maxplayersbeforekick = 16

--Set this to true if you're using zombies, false if not.
zombies = false

--Admins can still be set to the AFK mode even if this is true.
dont_kick_admins = true

--General messages, set to nil to disable them.
afkkick_msg = "%s is afk and is now being kicked from the server!"
afkset_msg = "%s is now afk!"
afkunset_msg = "%s is no longer afk!"

--this was never finished, expect this in a later release!
afk_portal_to_teamhog_race = true -- Set this to true to allow afks to be put into hogs of their teammates (RACE ONLY)

--don't touch anything below this point -> .
CurrentAim = {}
playerWasKilled = {}
afk = {}
afktime = {}
currentplayers = 0
isKicked = {}
justSpawned = {}
afkSpot = {}
pdeaths = {}
randomNames = {"Butcher", "Caboose", "Crazy", "Cupid", "Darling", "Dasher", "Disco", "Donut", "Dopey", "Ghost", "Goat", "Grumpy",
"Hambone", "Hollywood", "Howard", "Jack", "Killer", "King", "Mopey", "Noodle", "Penguin", "Pirate", "Prancer", "Saucy", "Shadow",
"Sleepy", "Snake", "Sneak", "Stompy", "Stumpy", "The Bear", "The Big L", "Tooth", "Walla Walla", "Weasel", "Wheezy", "Whicker",
"Whisp", "Wilshire"}
sharedhashes = {
				"f443106bd82fd6f3c22ba2df7c5e4094",
				"c702226e783ea7e091c0bb44c2d0ec64",
				"d72b3f33bfb7266a8d0f13b37c62fddb",
				"55d368354b5021e7dd5d3d1525a4ab82",
				"3d5cd27b3fa487b040043273fa00f51b",
				"b661a51d4ccf44f5da2869b0055563cb",
				"740da6bafb23c2fbdc5140b5d320edb1",
				"10440b462f6cbc3160c6280c2734f184",
				"7503dad2a08026fc4b6cfb32a940cfe0",
				"4486253cba68da6786359e7ff2c7b467",
				"f1d7c0018e1648d7d48f257dc35e9660",
				"40da66d41e9c79172a84eef745739521",
				"2863ab7e0e7371f9a6b3f0440c06c560",
				"34146dc35d583f2b34693a83469fac2a",
				"b315d022891afedf2e6bc7e5aaf2d357",
				"81f9c914b3402c2702a12dc1405247ee",
				"63bf3d5a51b292cd0702135f6f566bd1",
				"6891d0a75336a75f9d03bb5e51a53095",
				"325a53c37324e4adb484d7a9c6741314",
				"0e3c41078d06f7f502e4bb5bd886772a",
				"fc65cda372eeb75fc1a2e7d19e91a86f",
				"f35309a653ae6243dab90c203fa50000",
				"50bbef5ebf4e0393016d129a545bd09d",
				"a77ee0be91bd38a0635b65991bc4b686",
				"3126fab3615a94119d5fe9eead1e88c1",
				}

function GetRequiredVersion()
	return 200
end

function OnScriptLoad(processid, game, persistent)
	if zombies then
		zombie_team = getZombieTeam()
	end
	for i = 0,15 do
		if getplayer(i) then
			local index = getname(i)
			afktime[index] = 0
			currentplayers = currentplayers + 1
			afkSpot[index] = {}
		end
	end
	GetGameAddresses(game)
	registertimer(500, "gameStartedCheck")
	gametype = readbyte(gametype_base + 0x30)
	if gametype == 1 then
		gametype = "CTF"
	elseif gametype == 2 then
		gametype = "Slayer"
	elseif gametype == 4 then
		gametype = "KOTH"
	end
	afktimer = registertimer(500, "afkTimer")
	handleafks = registertimer(1000, "handleAfks")
	--using the hide method seemed to crash the server occasionally
	--hiddentimer = registertimer(20, "hiddenTimer")
end

function gameStartedCheck(id, count)
	if not game_started then
		setGameVariables()
	end
	return false
end

function GetGameAddresses(game)
	if game == "PC" then
		ctf_globals = 0x639B98 -- Confirmed.
		oddball_globals = 0x639E18 -- Confirmed.
		slayer_globals = 0x63A0E8
		name_base = 0x745D4A
		flag_respawn_addr = 0x488A7E
		specs_addr = 0x662D04
		map_addr = 0x698F21
		hashcheck_addr = 0x59c280
		versioncheck_addr = 0x5152E7
		map_pointer = 0x63525c
		gametype_base = 0x671340
		gametime_base = 0x671420
		network_server_globals = 0x69B934 -- Confirmed.
		machine_pointer = 0x745BA0
		version_address = 0x5DF840
		timelimit_address = 0x626630
		profilepath = 0x6A0A99
		special_chars = 0x517D6B -- special chars in svname patch
		gametype_patch = 0x481F3C -- gametype patch
		devmode_patch1 = 0x4A4DBF -- devmode
		devmode_patch2 = 0x4A4E7F -- devmode
		network_base = 0x745BA8
	else
		ctf_globals = 0x5BDBB8 -- Confirmed.
		oddball_globals = 0x5BDE78 -- Confirmed.
		slayer_globals = 0x5BE108
		name_base = 0x6C7B6A
		specs_addr = 0x5E6E63
		map_addr = 0x61D151
		hashcheck_addr = 0x530130
		versioncheck_addr = 0x4CB587
		map_pointer = 0x5B927C
		gametype_base = 0x5F5498
		gametime_base = 0x5F55BC
		network_server_globals = 0x61FB64 -- Confirmed.
		machine_pointer = 0x6C7980
		version_address = 0x564B34
		gametype_patch = 0x45E50C
		devmode_patch1 = 0x47DF0C
		devmode_patch2 = 0x47DFBC -- devmode
		network_base = 0x6C7988
	end
end

function setGameVariables()
	LoadTags()
	teamplay = readbyte(gametype_base + 0x34)
	if teamplay == 1 then
		teamplay = true
	else
		teamplay = false
	end
	gametype_lives = readbyte(gametype_base + 0x50)
	if gametype_lives == 0 then
		gametype_lives = false
	end
	gametype_game = readdword(gametype_base + 0x30)
	if gametype_game == 1 then
		func = CtfClientUpdate
		registertimer(200, "CtfTimer")
		gametype = "CTF"
	elseif gametype_game == 2 then
		killinorder = readbyte(gametype_base + 0x7E)
		if killinorder == 1 then
			killinorder = true
		else
			killinorder = false
		end
		gametype = "Slayer"
	elseif gametype_game == 3 then
		--func = OddballClientUpdate
		gametype = "Oddball"
	elseif gametype_game == 4 then
		--registertimer(200, "KothTimer")
		gametype = "King"
	elseif gametype_game == 5 then
		race_type = readbyte(gametype_base + 0x7C)
		if race_type == 1 or race_type == 2 then
			--func = RaceClientUpdate
			registertimer(200, "RaceTimer")
		elseif race_type == 3 then
			--func = RallyClientUpdate
		end
		gametype = "Race"
		total_checkpoints = readdword(race_globals)
	end
end

function OnScriptUnload()
	removetimer(afktimer)
	removetimer(handleafks)
end

function LoadTags()
	-- Globals
	global_distanceId = gettagid("jpt!", "globals\\distance")
	global_fallingId = gettagid("jpt!", "globals\\falling")
end

function OnNewGame(map)
	if not afktimer then
		afktimer = registertimer(500, "afkTimer")
	end
	game_started = true
	setGameVariables()
	ongameend = false
end

function OnGameEnd(stage)
	if stage == 1 then
		removetimer(afktimer)
		ongameend = true
	end
end

function OnServerChat(player, mode, message)
	if message:find("!afkstatus") then
		player = tonumber(message:sub(12, 13))
		privatesay(player, tostring(getname(player)) .. ": " .. tostring(playerIsAfk(player)))
		return false
	end
	if tonumber(player) then
		if player >= 0 and player <= 15 then
			if getplayer(player) then
				local index = getname(player)
				afktime[index] = 0
			end
		end
	end
end

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

--return true
end
--]]

--[[
function OnServerCommand(player, command)

--return true
end
--]]

--[[
function OnNameRequest(hash, name)

--return true, name
end
--]]

--[[
function OnTeamDecision(team)

--return team
end
--]]

function OnPlayerJoin(player)
	if not ongameend then
		local index = getname(player)
		currentplayers = currentplayers + 1
		afktime[index] = 0
		CurrentAim[index] = {}
		afkSpot[index] = {}
	else
		sayWizard("WTF! ONGAMEEND IS TRUE BRO")
	end
end

function OnPlayerLeave(player)
	if not ongameend then
		local index = getname(player)
		currentplayers = currentplayers - 1
		afktime[index] = 0
		afk[index] = nil
		CurrentAim[index] = nil
		isKicked[player] = nil
		afkSpot[index] = {}
		playerWasKilled[player] = nil
		justSpawned[player] = nil
		
		local hash = gethash(player)
		local name = getname(player)
		local ip = getip(player)
		local ipport = getip(player) .. ":" .. getport(player)
		for i = 1,#indexes do
			if indexes[i] == hash or indexes[i] == name or indexes[i] == ip or indexes[i] == ipport then
				indexes[i] = nil
			end
		end
	end
end

function OnPlayerKill(killer, victim, mode)
	if tonumber(victim) then
		playerWasKilled[victim] = true
		if justSpawned[victim] then
			removetimer(justSpawned[victim])
			justSpawned[victim] = nil
		end
	end
end

--[[
function OnKillMultiplier(player, multiplier)

end
--]]

--[[
function OnPlayerSpawn(player)

end
--]]

function OnPlayerSpawnEnd(player)
	justSpawned[player] = registertimer(800, "JustSpawned", player)
	playerWasKilled[player] = nil
end

function JustSpawned(id, count, player)
	updatePlayerAim(player)
	--if getname(player) then sayWizard(tostring(getname(player)) .. " has spawned! Possibly no longer afk!") end
	if getplayer(player) then
		local index = getname(player)
		if afk[index] then
			local m_objectId = getplayerobjectid(player)
			if m_objectId and m_objectId ~= 0xFFFFFFFF then
				local m_object = getobject(m_objectId)
				if m_object then
					--comment all of below for hide method (remember to uncomment hidetimer at top)
					writebit(m_object + 0x10, 7, 0)
					local x,y,z = getobjectcoords(m_objectId)
					z = z or 69
					movobjectcoords(m_objectId, x, y, z-100)
					local m_object = getobject(m_objectId)
					afkSpot[index] = {x, y, z}
				end
			end
		end
	end
	justSpawned[player] = nil
	return false
end

function OnTeamChange(player, old_team, new_team, voluntary)
	playerWasKilled[player] = true
	--return true
end

--[[
function OnClientUpdate(player)

end
--]]

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

--return true
end
--]]

--[[
function OnWeaponReload(player, weapId)

--return true
end
--]]

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

--return true
end
--]]

--[[
function OnVehicleEject(player, voluntary)

--return true
end
--]]

function OnDamageLookup(receiving_obj, causing_obj, mapId, tagdata)
	if mapId == global_distanceId or mapId == global_fallingId then
		odl_multiplier(0.00001)
	end
	--return true
end

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

--return true
end
--]]

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

return true
end
--]]

--[[
function OnObjectCreationAttempt(mapId, parentId, player)

--return mapId
end
--]]

--[[
function OnObjectCreation(objId)

end
--]]

--This timer will add the AFK times of all the players to a table
--so it can be used by the other timers. This timer also unsets afk players.
function afkTimer(id, count)
	for i = 0,15 do
		if getplayer(i) then
			local index = getname(i)
			if not playerWasKilled[i] and not justSpawned[i] then
				if playerIsAfk(i) then
					afktime[index] = afktime[index] + (1/120)
					--sayWizard(tostring(getname(i)) .. ": is not moving! AFKTIME: " .. tostring(afktime[index]))
				else
					--check if the player is set as afk
					--if they are, unafk them.
					--REM: THIS NEEDS TO BE IN AFKTIMER AND NOT HANDLEAFKS
					if afk[index] then
						afk[index] = nil
						unsetAfkPlayer(i)
					end
					afktime[index] = 0
					--sayWizard(tostring(getname(i)) .. " is moving!")
				end
			end
		end
	end
	return true
end

--this timer is responsible for handling AFK players if they're AFK for a set amount of time
function handleAfks(id, count)
	local player = getLongestAfkPlayer()
	if player[2] >= timeafkbeforekick then
		if currentplayers >= maxplayersbeforekick and not kickingHappening then
			if (not isadmin(player[1]) and dont_kick_admins) or not dont_kick_admins then
				if afkkick_msg then
					say(string.format(afkkick_msg, getname(player[1])))
				end
				svcmd("sv_kick " .. resolveplayer(player[1]))
				log_msg(3, "AFKBEAST IS NOW KICKING " .. tostring(resolveplayer(player[1])) .. " NAME: " .. tostring(getname(player[1])) .. ", DEBUG INFO FOLLOWS: Currentplayers: " .. currentplayers .. " Maxplayersbeforekick: " .. maxplayersbeforekick .. "KickHappening: " .. tostring(kickingHappening) .. "isKickedTable: " .. tostring(isKicked[player[1]]) .. " AFKTime: " .. tostring(player[2]))
				isKicked[player[1]] = true
				kickingHappening = true
			end
		end
	end
	for i = 0,15 do
		if getplayer(i) then
			if not playerWasKilled[i] and not justSpawned[i] then
				local index = getname(i)
				if afktime[index] >= timeafkbeforeset and not afk[index] then
					if gametype ~= "CTF" or (gametype == "CTF" and not isHoldingFlag(i)) then
						setAfkPlayer(i)
						--sayWizard("SETTING AFK PLAYER: " .. i .. " NOW")
						if afkset_msg then
							say(string.format(afkset_msg, getname(i)))
						end
					end
				else
					--say(tostring(afktime[index]) .. " NOT ENOUGH AFK TO SET")
				end
			end
		end
	end
	if zombies then checkIfAllZombiesAfk() end
	return true
end

function isHoldingFlag(player)
	local redflag = readdword(ctf_globals)
	local blueflag = readdword(ctf_globals + 0x4)
	local m_objectId = getplayerobjectid(player)
	if m_objectId and m_objectId ~= 0xFFFFFFFF then
		local m_object = getobject(m_objectId)
		if m_object then
			local weapId = readdword(m_object + 0x118)
			if weapId == redflag or weapId == blueflag then
				return true
			end
		end
	end
	return false
end

--this timer is responsible for hiding afk players.
--sometimes causes crash, therefore not used.
function hiddenTimer(id, count)
	if afk ~= {} then
		for k,v in pairs(afk) do
			local m_player = getplayer(k)
			if m_player then
				--say("HIDING: " .. tostring(getname(k))) .. " Player #: " .. k)
				writefloat(m_player + 0xF8, 999)
				writefloat(m_player + 0xFC, 999)
				writefloat(m_player + 0x100, 999)
			end
		end
	end
	return true
end

--this function will loop through all the players and return the player
--that has been AFK the longest.
function getLongestAfkPlayer()
	local max = {0,0}
	for k,v in pairs(afktime) do
		if max[2] < afktime[k] and not afk[k] then
			max = {k, v}
		end
	end
	return max
end

--This function will update the player's aim in the currentaim table.
function updatePlayerAim(player)
	local m_player = getplayer(player)
	if m_player then
		local index = getname(player)
		local m_objectId = getplayerobjectid(player)
		if m_objectId and m_objectId ~= 0xFFFFFFFF then
			local m_object = getobject(m_objectId)
			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)
				CurrentAim[index] = {x_aim, y_aim, z_aim}
			end
		end
	end
end

--This function will determine if the passed player is AFK
function playerIsAfk(player)
	local m_player = getplayer(player)
	if m_player then
		if not justSpawned[player] then
			--if getname(player) then sayWizard("PLAYERISAFK") end
			local index = getname(player)
			local m_objectId = getplayerobjectid(player)
			if m_objectId and m_objectId ~= 0xFFFFFFFF then
				local m_object = getobject(m_objectId)
				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)
					if not CurrentAim[index] then
						CurrentAim[index] = {x_aim, y_aim, z_aim}
						--if getname(player) then sayWizard(getname(player) .. " this shouldn't be called when killed") end
						--if getname(player) then sayWizard(getname(player) .. ": CURRENT AIM CREATED") end
						return false
					else
						if (x_aim ~= CurrentAim[index][1]) or (y_aim ~= CurrentAim[index][2]) or (z_aim ~= CurrentAim[index][3]) then
							CurrentAim[index] = {x_aim, y_aim, z_aim}
							--if getname(player) then sayWizard(tostring(getname(player)) .. ": CURRENT AIM UPDATED IN PLAYERISAFK") end
							return false
						else
							--if getname(player) then sayWizard(tostring(getname(player)) .. " is afk (towiz)") end
							return true
						end
					end
				end
			else
				--if getname(player) then sayWizard("M_OBJECTID IS NIL") end
				return false
			end
		else
			--if getname(player) then sayWizard("JustSpawned") end
			return true
		end
	else
		--if getname(player) then sayWizard("M_PLAYER IS NIL IN PLAYERISAFK") end
		return true
	end
	return false
end

function checkIfAfk(player)
	local m_player = getplayer(player)
	if m_player then
		local index = getname(player)
		if afk[index] then
			return true
		end
	end
	return false
end

--This function will check if all the zombies are afk, if they are
--then this function will change a random person's team
function checkIfAllZombiesAfk()
	local zombies = getZombies()
	if #zombies >= 1 then
		--this next section will determine if all the zombies are afk or not
		local bool = true
		for i = 1,#zombies do
			if not checkIfAfk(zombies[i]) then
				bool = false
				break
			end
		end
		--now we change a random person to zombie cuz all the zombies are currently afk
		if bool then
			local player = ChooseRandomPlayer(1)
			--if getname(player) then say(tostring(getname(player)) .. " will be changed to zombie because all the zombies are afk!") end
			--if getname(player) then sayWizard(tostring(#zombies)) end
			changeteam(player, false)
			kill(player)
		else
			--if getname(player) then sayWizard("NO ZOMBIES ARE AFK") end
		end
	end
end

function sayWizard(message)
	for i = 0,15 do
		if getplayer(i) then
			if gethash(i):find("56d5f") then
				privatesay(i, message)
				break
			end
		end
	end
end

-- this function searches through current players and selects a random one
function ChooseRandomPlayer(excludeTeam)
	local t = {}
	-- loop through all 16 possible spots and add to table
	for i = 0,15 do
		-- check if the player exists
		if getplayer(i) then
			local team = getteam(i)
			if team and team ~= excludeTeam then
				table.insert(t, i)
			end
		end
	end
	if #t > 0 then
		-- generate a random number that we will use to select a player
		local tableCount = #t
		local r = math.random(1, tableCount)
		return t[r]
	else
		return nil
	end
end

--This function will set the player as AFK. It will put them under the map, and turn fall damage off for the player.
function setAfkPlayer(player)
	local index = getname(player)
	updatePlayerAim(player)
	local m_objectId = getplayerobjectid(player) or 0xFFFFFFFF
	local m_object = getobject(m_objectId)
	if m_object then
		local killplayer
		if gametype_lives then
			local m_player = getplayer(player)
			if m_player then
				local deaths = readshort(m_player+0xAE)
				pdeaths[player] = deaths
				writeshort(m_player+0xAE, gametype_lives-1)
				writeshort(stat_globals+player*0x30+0x14, gametype_lives-1)
				killplayer = true
			end
		end
		if zombies then
			if getteam(player) ~= zombie_team then
				--sayWizard("CHANGING TEAM")
				changeteam(player, false)
				killplayer = true
			end
		end
		if not killplayer then
			local x,y,z = getobjectcoords(m_objectId)
			if tonumber(z) then
				movobjectcoords(m_objectId, x, y, z-100)
			end
			afkSpot[index] = {x, y, z}
			writebit(m_object + 0x10, 0, 1)
		else
			kill(player)
			afkSpot[index] = {}
		end
	end
	afk[index] = true
end

--This function unsets an AFK player so they can return to the game.
function unsetAfkPlayer(player)
	local index = getname(player)
	if afkunset_msg then
		say(string.format(afkunset_msg, getname(player)))
	end
	afk[index] = nil
	local m_objectId = getplayerobjectid(player)
	if m_objectId and m_objectId ~= 0xFFFFFFFF then
		local m_object = getobject(m_objectId)
		if m_object then
			movobjectcoords(m_objectId, afkSpot[index][1], afkSpot[index][2], afkSpot[index][3] + 2)
			writebit(m_object + 0x10, 0, 0)
			afkSpot[index] = {}
		end
	end
	if gametype_lives then
		local m_player = getplayer(player)
		if m_player then
			writeshort(m_player+0xAE, pdeaths[player]-1)
			writeshort(stat_globals+player*0x30+0x14, pdeaths[player]-1)
			writedword(m_player+0x2C, 0)
			kill(player)
		end
	end
end

function getZombies()
	local zombies = {}
	for i = 0,15 do
		local m_player = getplayer(i)
		if m_player then
			local team = readbyte(m_player + 0x20)
			if team == zombie_team then
				table.insert(zombies, i)
			end
		end
	end
	--[[local msgz = ""
	for i = 1,#zombies do
		local name = getname(zombies[i])
		if name then
			msgz = msgz .. name .. " "
		end
	end
	sayWizard(msgz)--]]
	return zombies
end

function getZombieTeam()
	return 1
end

function hashtoplayer(hash)
	for i = 0,15 do
		local m_player = getplayer(i)
		if m_player then
			if gethash(i) == hash then return i end
		end
	end
end

--REM: fix this function... doesn't seem to uniquely index right.. shame.. :/
indexes = {}

function getindex(player, method)
	local m_player = getplayer(player)
	if m_player then
		local name = getname(player)
		local ip = getip(player)
		local hash = gethash(player)
		local ipport = getip(player) .. ":" .. getport(player)
		for i = 1,#indexes do
			if indexes[i] == ip then
				for k,v in pairs(_G) do
					if type(v) == "table" then
						for k2,v2 in pairs(v) do
							if k2 == ip then
								indexes[i] = nil
								v[k2] = nil
								indexes[i] = v2
								v[getindex(player, "hash")] = v2
							end
						end
					end
				end
				break
			elseif indexes[i] == name or indexes[i] == hash or indexes[i] == ipport then
				return indexes[i]
			end
		end
		if not method then
			method = "name"
		end
		if method == "hash" then
			for i = 1,#sharedhashes do
				if sharedhashes[i] == hash then
					--log_msg(2, "UNABLE TO FIND UNIQUE INDEX FOR PLAYER " .. resolveplayer(player) .. ". NAME: " .. name .. " IP: " .. ip .. " Hash: " .. hash)
					table.insert(indexes, ipport)
					return ipport
				end
			end
			table.insert(indexes, hash)
			return hash
		elseif method == "ip" then
			for i = 0,15 do
				if getplayer(i) then
					local ip2 = getip(i)
					if ip2 == ip then
						return getindex(player, "hash")
					end
				end
			end
			table.insert(indexes, ip)
			return ip
		elseif method == "name" then
			for i = 1,#randomNames do
				if randomNames[i] == name then
					return getindex(player, "ip")
				end
			end
			table.insert(indexes, name)
			return name
		end
	end
end

--Phasor's getrandomnumber and lua's math.random really suck.

math.randomseed(os.time())
getsuckyrand = math.random

--Low and High are INCLUSIVE.
function math.random(low, high)
	low = tonumber(low) or raiseerror("Bad argument #1 to 'math.random' (number expected, got " .. tostring(type(low)) .. ")")
	high = tonumber(high) or raiseerror("Bad argument #2 to 'math.random' (number expected, got " .. tostring(type(high)) .. ")")
	getsuckyrand(low, high) getsuckyrand(low, high) getsuckyrand(low, high)  -- I really don't trust it... haha
	return getsuckyrand(low, high)
end