antiVehiCamp.lua

-- Warn players camping on vehicle for 140 seconds
-- if the players are still on vehicle another 14O seconds after the warning
-- then players are punished as to say killed

-- I miss phasor.

api_version = "1.12.0.0"

local warningCampTime = 140000

function OnScriptLoad()
    register_callback(cb['EVENT_VEHICLE_ENTER'], "OnVehicleEnter")
end

function OnScriptUnload()
end

function OnVehicleEnter(PlayerIndex, Seat)
    timer(warningCampTime, "IsCampingVehiWarning", PlayerIndex)
end

function IsCampingVehiWarning(PlayerIndex)
    if(IsInVehi(PlayerIndex)) then
        say(PlayerIndex, "Stop camping vehicle")
        timer(warningCampTime, "IsCampingVehiPunishment", PlayerIndex)
    end
    return false
end

function IsCampingVehiPunishment(PlayerIndex)
    if(IsInVehi(PlayerIndex)) then
        say(PlayerIndex, "You have been warned...")
        kill(PlayerIndex)
    end
    return false
end

function IsInVehi(PlayerIndex)
    local PlayerObj = get_dynamic_player(PlayerIndex)
    local VehicleObjID = read_dword(PlayerObj + 0x11C)
    local vehicle = get_object_memory(VehicleObjID)
    if (vehicle ~= 0 and vehicle ~= nil) then
            return true
    end
    return false
end