addCommandHandler("usun", function(plr,vehicle)
    local accName = getAccountName ( getPlayerAccount ( plr ) )
    if isObjectInACLGroup ("user."..accName, aclGetGroup ( "event" ) ) then
    outputChatBox(">> Uwaga..",root,255,0,0,true)
    for i,v in ipairs(getElementsByType("vehicle", resourceRoot)) do
                if ( getElementDimension ( v ) == 1 ) then
                if not getPlayerOccupiedVehicle(plr)==v then
                destroyElement(vehicle[v])
                end
            end
        end
    end
end)

local alto = {
    {444, 3825.13,-74.65,18.23,359.8,360.0,242.5}, 
    {444, 3829.95,-67.62,18.23,0.1,0.1,228.1}, 
    {444, 3835.90,-61.39,18.23,0.0,360.0,218.3},
    --
    {444, 3821.83,-81.41,18.23,0.0,0.0,240.3},
    {444, 3819.99,-88.61,18.23,359.7,0.0,262.8},
    {444, 3820.42,-95.59,18.23,0.0,360.0,273.3},
    {444, 3821.04,-101.31,18.23,0.1,359.9,278.0},
    {444, 3823.51,-107.52,18.23,0.0,360.0,292.9},
    {444, 3827.77,-114.80,18.23,0.1,359.9,300.9},
    {444, 3832.03,-120.56,18.23,0.0,360.0,318.2},
    {444, 3837.36,-124.35,18.23,360.0,0.0,318.3},
    {444, 3843.86,-127.54,18.23,0.1,0.1,333.7},
    {444, 3851.71,-129.49,18.23,360.0,0.0,342.6},
    {444, 3858.25,-130.78,18.23,0.1,0.1,5.1},
    {444, 3867.64,-129.26,18.23,359.9,0.1,16.6},
    {444, 3872.71,-126.74,18.23,0.4,0.1,24.8},
    {444, 3862.75,-129.84,18.23,360.0,0.0,14.6},
    --
    {444, 3842.03,-57.47,18.23,0.1,359.9,210.6},
    {444, 3847.66,-57.83,18.23,360.0,0.2,209.8},
    {444, 3853.36,-56.30,18.23,0.0,0.0,205.1},
    {444, 3858.70,-55.43,18.23,0.0,360.0,184.4},
    {444, 3865.26,-56.84,18.23,360.0,0.1,167.6},
    {444, 3870.46,-58.55,18.23,0.0,360.0,162.9},
    {444, 3875.01,-59.81,18.23,0.0,0.0,161.7},
    {444, 3880.39,-63.29,18.23,359.5,359.9,150.3}
}

local alto = {
    {444, 3825.13,-74.65,18.23,359.8,360.0,242.5}, 
    {444, 3829.95,-67.62,18.23,0.1,0.1,228.1}, 
    {444, 3835.90,-61.39,18.23,0.0,360.0,218.3},
    --
    {444, 3821.83,-81.41,18.23,0.0,0.0,240.3},
    {444, 3819.99,-88.61,18.23,359.7,0.0,262.8},
    {444, 3820.42,-95.59,18.23,0.0,360.0,273.3},
    {444, 3821.04,-101.31,18.23,0.1,359.9,278.0},
    {444, 3823.51,-107.52,18.23,0.0,360.0,292.9},
    {444, 3827.77,-114.80,18.23,0.1,359.9,300.9},
    {444, 3832.03,-120.56,18.23,0.0,360.0,318.2},
    {444, 3837.36,-124.35,18.23,360.0,0.0,318.3},
    {444, 3843.86,-127.54,18.23,0.1,0.1,333.7},
    {444, 3851.71,-129.49,18.23,360.0,0.0,342.6},
    {444, 3858.25,-130.78,18.23,0.1,0.1,5.1},
    {444, 3867.64,-129.26,18.23,359.9,0.1,16.6},
    {444, 3872.71,-126.74,18.23,0.4,0.1,24.8},
    {444, 3862.75,-129.84,18.23,360.0,0.0,14.6},
    --
    {444, 3842.03,-57.47,18.23,0.1,359.9,210.6},
    {444, 3847.66,-57.83,18.23,360.0,0.2,209.8},
    {444, 3853.36,-56.30,18.23,0.0,0.0,205.1},
    {444, 3858.70,-55.43,18.23,0.0,360.0,184.4},
    {444, 3865.26,-56.84,18.23,360.0,0.1,167.6},
    {444, 3870.46,-58.55,18.23,0.0,360.0,162.9},
    {444, 3875.01,-59.81,18.23,0.0,0.0,161.7},
    {444, 3880.39,-63.29,18.23,359.5,359.9,150.3}
}

for i,v in ipairs(alto) do
    local pojazd = createVehicle(v[1], v[2], v[3], v[4], v[5], v[6], v[7])
    setElementDimension ( pojazd, 1 )    
    setElementFrozen(pojazd, true)
    setElementData(pojazd, "pojazd_opis", "Event: Derby")
end

addCommandHandler("respawnderby", function(plr)
    local accName = getAccountName ( getPlayerAccount ( plr ) )
    if isObjectInACLGroup ("user."..accName, aclGetGroup ( "event" ) ) then
    for i,v in ipairs(getElementsByType("vehicle", resourceRoot)) do
            respawnVehicle(v)
            setElementFrozen(v, true)
            setVehicleEngineState ( v, false )
    end
    end
end)

addCommandHandler("derbykoniec", function(thePlayer)
    local accName = getAccountName ( getPlayerAccount ( thePlayer ) )
    if isObjectInACLGroup ("user."..accName, aclGetGroup ( "event" ) ) then
    outputChatBox(">> Koniec derb?w!",root,255,0,0,true)
    for k,v in ipairs ( getElementsByType ( "player" )) do
    if ( getElementDimension ( v ) == 1 ) then
    setElementDimension ( v, 0 ) 
    setElementPosition ( v, 1477.61, -1704.15, 14.05 )
    end
    for i,v in ipairs(getElementsByType("vehicle", resourceRoot)) do
            respawnVehicle(v)
            setElementFrozen(v, true)
            setVehicleEngineState ( v, false )
    end    
    end
    end
end)

addCommandHandler("startderby", function(plr,vehicle)
    local accName = getAccountName ( getPlayerAccount ( plr ) )
    if isObjectInACLGroup ("user."..accName, aclGetGroup ( "event" ) ) then
    outputChatBox(">> Derby START!",root,255,0,0,true)
    for i,v in ipairs(getElementsByType("vehicle", resourceRoot)) do
            setElementFrozen(v, false)
    end
    end
end)


addCommandHandler("usun", function(plr,vehicle)
    local accName = getAccountName ( getPlayerAccount ( plr ) )
    if isObjectInACLGroup ("user."..accName, aclGetGroup ( "event" ) ) then
    outputChatBox(">> Uwaga..",root,255,0,0,true)
    for i,v in ipairs(getElementsByType("vehicle", resourceRoot)) do
                if ( getElementDimension ( v ) == 1 ) then
                if not getPlayerOccupiedVehicle(plr)==v then
                destroyElement(vehicle[v])
                end
            end
        end
    end
end)


addCommandHandler("telederby", function(plr)
    local accName = getAccountName ( getPlayerAccount ( plr ) )
    if isObjectInACLGroup ("user."..accName, aclGetGroup ( "event" ) ) then
    setElementPosition ( plr, 3859.21, -51.60, 23.20 )
    setElementDimension ( plr, 1 ) 
end
end)

    addCommandHandler("usun", function(plr,vehicle)
    local accName = getAccountName ( getPlayerAccount ( plr ) )
    if isObjectInACLGroup ("user."..accName, aclGetGroup ( "event" ) ) then
    outputChatBox(">> Uwaga..",root,255,0,0,true)
    for i,v in ipairs(getElementsByType("vehicle",resourceRoot)) do
                if ( getElementDimension ( v ) == 1 ) then
                destroyElement(v)
                end
            end
        end
    end)