VehiColl Fixed

-- For vehicle collision off -inspired Eliteprime, wizard, shaft and bugs's works --

--vehicle_dmgmodifier = 0.1
playerRunoverCounter = {}
playerIsHit = {}

function GetRequiredVersion()
    return 200
end


function OnScriptLoad(processid, game, persistent) end

function OnDamageLookup(receiving, causing, mapId, tagdata)
    if causing then
        local c_player = objectidtoplayer(causing)
        if c_player and isinvehicle(c_player) then
            local m_vehicleId = getplayervehicleid(c_player)
            if m_vehicleId then
                local m_vehicle = getobject(m_vehicleId)
                local driver = readdword(m_vehicle + 0x324)
                if driver == causing then
                    if not playerIsHit[c_player] then
                        if not playerRunoverCounter[c_player] then playerRunoverCounter[c_player] = 0 end
                        playerRunoverCounter[c_player] = playerRunoverCounter[c_player] + 1
                        local name = tostring(getname(c_player))
                        say("Player " .. name .. " has been ran over " .. tostring(playerRunoverCounter[c_player]) .. " times!")
                        if playerRunoverCounter[c_player] == 5 then
                            say("Player " .. name .. " has been ran over 5 times and will now die!")
                            return true
                        else
                            playerIsHit[c_player] = true
                            registertimer(1000, "Alrdycrashed", c_player)
                            return false
                        end
                    end

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