AntiVehicleCamp

-- Anti vehicles Camp - inspired from Eliteprime, Wizard, Shaft and Bugs's works --
                        -- Whith the great help of A§H»Wizard --

playerRunoverCounter = {}
playerGbCounter = {}
playerBbCounter = {}
playerTbCounter = {}
playerBfCounter = {}
playerTsCounter = {}

playerIsHit = {}
playerIsHita = {}
playerIsHitb = {}
playerIsHitc = {}
playerIsHitd = {}
playerIsHite = {}

survivesro = 3  -- The player will die twice before surviving by runovers
survivesgb = 5  -- The player will die four times before surviving by ghost bolts
survivesbb = 5  -- The player will die four times before surviving by banshee bolts
survivestb = 5  -- The player will die four times before surviving by tank bullets
survivesbf = 3  -- The player will die twice before surviving by banshee fuel rod
survivests = 3  -- The player will die twice before surviving by tank shell

function GetRequiredVersion()
    return 200
end


function OnScriptLoad(processid, game, persistent)end

function OnNewGame(map)
        -- Vehicles
    banshee_tag_id = gettagid("vehi", "vehicles\\banshee\\banshee_mp")
    turret_tag_id = gettagid("vehi", "vehicles\\c gun turret\\c gun turret_mp")
    ghost_tag_id = gettagid("vehi", "vehicles\\ghost\\ghost_mp")
    rwarthog_tag_id = gettagid("vehi", "vehicles\\rwarthog\\rwarthog")
    tank_tag_id = gettagid("vehi", "vehicles\\scorpion\\scorpion_mp")
    warthog_tag_id = gettagid("vehi", "vehicles\\warthog\\mp_warthog")

        -- Weapons
    assaultrifle_tag_id = gettagid("weap", "weapons\\assault rifle\\assault rifle")
    oddball_tag_id = gettagid("weap", "weapons\\ball\\ball")
    flag_tag_id = gettagid("flag", "weap", "weapons\\flag\\flag")
    flamethrower_tag_id = gettagid("weap", "weapons\\flamethrower\\flamethrower")
    needler_tag_id = gettagid("weap", "weapons\\needler\\mp_needler")
    pistol_tag_id = gettagid("weap", "weapons\\pistol\\pistol")
    plasmapistol_tag_id = gettagid("weap", "weapons\\plasma pistol\\plasma pistol")
    plasmarifle_tag_id = gettagid("weap", "weapons\\plasma rifle\\plasma rifle")
    plasmacannon_tag_id = gettagid("weap", "weapons\\plasma_cannon\\plasma_cannon")
    rocketlauncher_tag_id = gettagid("weap", "weapons\\rocket launcher\\rocket launcher")
    shotgun_tag_id = gettagid("weap", "weapons\\shotgun\\shotgun")
    sniper_tag_id = gettagid("weap", "weapons\\sniper rifle\\sniper rifle")

        -- Projectiles
    bansheebolt_tag_id = gettagid("proj", "vehicles\\banshee\\banshee bolt")
    bansheeblast_tag_id = gettagid("proj", "vehicles\\banshee\\mp_banshee fuel rod")
    turretfire_tag_id = gettagid("proj", "vehicles\\c gun turret\\mp gun turret")
    ghostbolt_tag_id = gettagid("proj", "vehicles\\ghost\\ghost bolt")
    tankshot_tag_id = gettagid("proj", "vehicles\\scorpion\\bullet")
    tankblast_tag_id = gettagid("proj", "vehicles\\scorpion\\shell shock wave")
    warthogshot_tag_id = gettagid("proj", "vehicles\\warthog\\bullet")
    rifleshot_tag_id = gettagid("proj", "weapons\\assault rifle\\bullet")
    flame_tag_id = gettagid("proj", "weapons\\flamethrower\\flame")
    needlerfire_tag_id = gettagid("proj", "weapons\\needler\\mp_needle")
    pistolshot_tag_id = gettagid("proj", "weapons\\pistol\\bullet")
    plasmapistolbolt_tag_id = gettagid("proj", "weapons\\plasma pistol\\bolt")
    plasmariflebolt_tag_id = gettagid("proj", "weapons\\plasma rifle\\bolt")
    plasmarifleblast_tag_id = gettagid("proj", "weapons\\plasma rifle\\charged bolt")
    rocket_tag_id = gettagid("proj", "weapons\\rocket launcher\\rocket")
    shotgunshot_tag_id = gettagid("proj", "weapons\\shotgun\\pellet")
    snipershot_tag_id = gettagid("proj", "weapons\\sniper rifle\\sniper bullet")
        -- Globals
    global_distanceId = gettagid("jpt!", "globals\\distance")
    global_fallingId = gettagid("jpt!", "globals\\falling")
    global_vehiCollId = gettagid("jpt!", "globals\\vehicle_collision")
end

function OnDamageLookup(receiving, causing, mapId, tagdata)
    if causing and receiving then
        local c_player = objectidtoplayer(causing)
        local r_player = objectidtoplayer(receiving)
        if c_player and r_player and isinvehicle(c_player) then
            if not isinvehicle(r_player) then
                local mapId == global_vehiCollId then
                    if not playerIsHit[r_player] then
                        if not playerRunoverCounter[r_player] then playerRunoverCounter[r_player] = 0 end
                        playerRunoverCounter[r_player] = playerRunoverCounter[r_player] + 1
                        if playerRunoverCounter[r_player] >= survivesro then
                            return false
                        else
                            playerIsHit[r_player] = true
                            registertimer(1000, "Alrdycrashed", r_player)
                        end
                    end
                elseif dmg == ghostbolt_tag_id then
                    if not playerIsHita[r_player] then
                        if not playerGbCounter[r_player] then playerGbCounter[r_player] = 0 end
                        playerGb[r_player] = playerGbCounter[r_player] + 1
                        if playerGb[r_player] >= survivesgb then
                            return false
                        else
                            playerIsHita[r_player] = true
                            registertimer(1000, "Alrdyghostbolted", r_player)
                        end
                    end
                elseif dmg == bansheebolt_tag_id then
                    if not playerIsHitb[r_player] then
                        if not playerBbCounter[r_player] then playerBbCounter[r_player] = 0 end
                        playerBbCounter[r_player] = playerBbCounter[r_player] + 1
                        if playerBbCounter[r_player] >= survivesbb then
                            return false
                        else
                            playerIsHitb[r_player] = true
                            registertimer(1000, "Alrdybansheebolted", r_player)
                        end
                    end
                elseif dmg == tankshot_tag_id then
                    if not playerIsHitc[r_player] then
                        if not playerTbCounter[r_player] then playerTbCounter[r_player] = 0 end
                        playerTbCounter[r_player] = playerTbCounter[r_player] + 1
                        if playerTbCounter[r_player] >= survivestb then
                            return false
                        else
                            playerIsHitc[r_player] = true
                            registertimer(1000, "Alrdytankbulleted", r_player)
                        end
                    end
                elseif dmg == bansheeblast_tag_id then
                    if not playerIsHitd[r_player] then
                        if not playerBfCounter[r_player] then playerBfCounter[r_player] = 0 end
                        playerBfCounter[r_player] = playerBfCounter[r_player] + 1
                        if playerBfCounter[r_player] >= survivesbf then
                            return false
                        else
                            playerIsHitd[r_player] = true
                            registertimer(1000, "Alrdybansheefueled", r_player)
                        end
                    end
                elseif dmg == bansheeblast_tag_idthen
                    if not playerIsHite[r_player] then
                        if not playerTsCounter[r_player] then playerTsCounter[r_player] = 0 end
                        playerTsCounter[r_player] = playerTsCounter[r_player] + 1
                        if playerTsCounter[r_player] >= survivests then
                            return false
                        else
                            playerIsHite[r_player] = true
                            registertimer(1000, "Alrdytankshelled", r_player)
                        end
                    end
                end
            end
        end
    end
    return true
end

function getplayervehicleid(player)
    local m_objectId = getplayerobjectid(player)
    if m_objectId then return readdword(getobject(m_objectId) + 0x11C) end
end


function Alrdycrashed(id, count, player)
    playerIsHit[player] = nil
    return false
end

function Alrdyghostbolted(id, count, player)
    playerIsHita[player] = nil
    return false
end

function Alrdybansheebolted(id, count, player)
    playerIsHitb[player] = nil
    return false
end

function Alrdytankbulleted(id, count, player)
    playerIsHitc[player] = nil
    return false
end

function Alrdybansheefueled(id, count, player)
    playerIsHitd[player] = nil
    return false
end

function Alrdytankshelled(id, count, player)
    playerIsHite[player] = nil
    return false
end