Tea-Bag Lovin v1 for Phasor v2

--[[ ###      Tea-Bag Lovin v1      ###]]--
--[[ ### for Phasor v2 by H® Shaft  ###]]--

-- Detects victim location. You must be near the victims death to be able to tea-bag them.
-- derived from AelitePrime's t-bag script, but with fixes, he had errors on lines 52 and 56 (receiver_id) which caused it not to work.
-- added some stanky lovin to it: When a player tea-bags their victim, it announces various phrases:
-- "H® Shaft is makin sweet love with Oxide's corpse!" or "H® Shaft is doin the funky chicken with Oxide's corpse!"
-- 10 Different variations, add your own! (add a quoted sex act to the sexsayin table at the bottom, separated by a comma)
-- yes, you can now tea-bag your own corpse, you sick self-lovin bastard.

-- don't edit --
crouch = {}
victim_coords = {}
tbag = {}

function GetRequiredVersion()
    return 200
end

function OnScriptLoad(process, game, persistent)

end

function OnClientUpdate(player)
    local m_player = getplayer(player)
    local id = resolveplayer(player)
    local m_objectId = getplayerobjectid(player)
    local m_object = getobject(m_objectId)
    if tbag[player] == nil then
        tbag[player] = {}
    end
    if m_objectId then
        if tbag[player].name and tbag[player].x then
            if check_sphere(m_objectId, tbag[player].x, tbag[player].y, tbag[player].z, 10) then
                if m_object then
                    if getobject(readdword(m_object + 0x11C)) == nil then
                        local obj_crouch = readbyte(m_object + 0x2A0)
                        if obj_crouch == 3 and crouch[id] == nil then
                            crouch[id] = OnPlayerCrouch(player)
                        elseif obj_crouch ~= 3 then
                            crouch[id] = nil
                        end
                    end
                    if crouch[id] == false then
                        writebit(m_object + 0x208, 7, 0)
                    end
                end
            end
        end
    end
end

function OnPlayerKill(killer, victim, mode)
    tbag[victim] = {}
    if mode == 4 then
        tbag[killer].count = 0
        tbag[killer].name = getname(victim)
        if victim_coords[victim] == nil then victim_coords[victim] = {} end
        if victim_coords[victim].x then
            tbag[killer].x = victim_coords[victim].x
            tbag[killer].y = victim_coords[victim].y
            tbag[killer].z = victim_coords[victim].z
        end
    elseif mode == 6 then
        tbag[victim].count = 0
        tbag[victim].name = getname(victim)
        if victim_coords[victim] == nil then victim_coords[victim] = {} end
        if victim_coords[victim].x then
            tbag[victim].x = victim_coords[victim].x
            tbag[victim].y = victim_coords[victim].y
            tbag[victim].z = victim_coords[victim].z
        end
    end
end

function OnDamageLookup(receiving, causing, tagid, tagdata)
    if receiving then
        local r_object = getobject(receiving)
        if r_object then
            local player = objectaddrtoplayer(r_object)
            if player then
                local x,y,z = getobjectcoords(receiving)
                if victim_coords[player] == nil then
                    victim_coords[player] = {}
                end
                if victim_coords[player] then
                    victim_coords[player].x = x
                    victim_coords[player].y = y
                    victim_coords[player].z = z
                end
            end
        end
    end
    return nil
end

function OnPlayerCrouch(player)
    if tbag[player].count == nil then
        tbag[player].count = 0
    end
    tbag[player].count = tbag[player].count + 1
    if tbag[player].count == 4 then
        tbag[player].count = 0
        local sexact = generatesexact(sexslang)
        say(getname(player).. " is " .. sexact .. " with " .. tbag[player].name .. "'s corpse!")
        tbag[player].name = nil
    end
    return true
end

function check_sphere(m_objectId, X, Y, Z, R)
    local Pass = false
    if getobject(m_objectId) then
        local x,y,z = getobjectcoords(m_objectId)
        if (X - x)^2 + (Y - y)^2 + (Z - z)^2 <= R then
            Pass = true
        end
    end
    return Pass
end

function generatesexact(sexslang)
    local sexcount = #sexsayin
    local sex_verb = getrandomnumber(1, sexcount+1)
    local sex_type = string.format("%s",  sexsayin[sex_verb])
    if sex_type then
        return sex_type
    else
        return nil
    end
end

sexsayin = {"makin' sweet love", "bumpin' uglies", "bumpin' fuzzies", "butterin' the muffin", "doin' the funky chicken",
"ridin' the wild pony", "makin' bacon", "doggie-stylin'", "playin' hide the salami", "slappin' bellies", "humpin' the rump"}

-- Created by H® Shaft thank you to Oxide, AelitePrime, Nugget & Wizard.
-- Visit http://halorace.org/forum/index.php?topic=514.0 or
-- Visit http://pastebin.com/u/HR_Shaft for more phasor scripts