vehInCol = {}
tuningTable = {}

strefa = createColSphere(2172.07,-2160.24,12.93, 4)
local marker = createMarker( 2177.87,-2164.94,13.03, "cylinder", 1.5, 0, 150, 100, 80)

function sprawdzStrefeTuningu(hitElement)
    if getElementType(hitElement) == "player" then
    local acc = getPlayerAccount(hitElement)
        if acc then
        local login = getAccountName(acc)    
            if isObjectInACLGroup ("user."..login, aclGetGroup ("Everyone")) then
            local veh = getPedOccupiedVehicle(hitElement)
                if not veh then
                local elements = getElementsWithinColShape (strefa, "vehicle")
                    if #elements == 1 then
                        if not tuningTable[hitElement] then
                        local veh = elements[1]
                        local aktualnyTuning = getVehicleUpgrades(veh)
                    
                        tuningTable[hitElement] = {veh, aktualnyTuning}
                        triggerClientEvent(hitElement, "pokazGUITuningu", root, veh, upgradesVeh)
                        setElementData(hitElement, "warsztat", true)
                        
                        vehInCol = {}
                        vehInCol[veh] = hitElement
                        end
                    else
                        if #elements == 0 then
                        outputChatBox("W strefie tuningu nie ma pojazdu.", hitElement, 255, 255, 255, true)
                        else
                        outputChatBox("W strefie tuningu jest wi?cej ni? jeden pojazd.", hitElement, 255, 255, 255, true)
                        end
                    end
                end
            end
        end
    end
end
addEventHandler("onMarkerHit", marker, sprawdzStrefeTuningu)

function onColLeave(hitElement)
    if getElementType (hitElement) == "pojazd" then
    local player = vehInCol[hitElement]
        if player then
            if isElement(player) then
            removeUpgradeOnClose(player)
            addUpgradeOnClose(player)
            clearData(player)
            triggerClientEvent(player, "zamknijGUITuninguTune", root)
            end
        end
    vehInCol[hitElement] = nil
   end
end
addEventHandler("onColShapeLeave", strefa, onColLeave)

addEvent("zabierzPieniadzeZaTuning", true)
addEventHandler("zabierzPieniadzeZaTuning", getRootElement(),
function(cena)
takePlayerMoney(source, tonumber(cena))
outputChatBox("Zainstalowa?e? nowe cze?ci w poje?dzie, cena "..cena.." PLN.", source, 255, 255, 255, true)
end)

--[[
dodaje czesc do pojazdu
--]]
function addUpgrade(czesc)
local veh = tuningTable[source][1]

    if not isElement(veh) then
    return false
    end
    
addVehicleUpgrade(veh, czesc)
end
addEvent("addUpgrade", true)
addEventHandler("addUpgrade", getRootElement(), addUpgrade)

--[[
usuwa dana czesc z pojazdu
--]]
function removeUpgrade(czesc)
local veh = tuningTable[source][1]

    if not isElement(veh) then
    return false
    end

removeVehicleUpgrade(veh, czesc)
end
addEvent("removeUpgrade", true)
addEventHandler("removeUpgrade", getRootElement(), removeUpgrade)

--[[
usuwa wszystkie zainstalowane przy tym tuningu czesci
--]]
function removeUpgradeOnClose(player)
local source = player or source
    if getElementData(source, "warsztat") then
    local veh = tuningTable[source][1]
    local upgrades = getVehicleUpgrades(veh)
        for k,v in ipairs (upgrades) do
        removeVehicleUpgrade(veh, v)
        end
    end
end
addEvent("removeUpgradeOnClose", true)
addEventHandler("removeUpgradeOnClose", getRootElement(), removeUpgradeOnClose)

--[[
dodaje stare czesci do pojazdu
--]]
function addUpgradeOnClose(player)
local source = player or source
    if getElementData(source, "warsztat") then
    local veh = tuningTable[source][1]
    local tuning = tuningTable[source][2]
        for i,v in pairs(tuning) do
        addVehicleUpgrade(veh, v)
        end
    end
end
addEvent("addUpgradeOnClose", true)
addEventHandler("addUpgradeOnClose", getRootElement(), addUpgradeOnClose)

--[[
usuwa dane, przywraca tuning przy wyjsciu z serwera / wyjsciu z gui
--]]
function clearData(player)
local player = source or player
tuningTable[player] = nil
removeElementData(player, "warsztat")
end
addEvent("clearDataTuning", true)
addEventHandler("clearDataTuning", getRootElement(), clearData)

function przywrocDane()
removeUpgradeOnClose(source)
addUpgradeOnClose(source)
clearData(source)
resetLight(source)
end
addEventHandler("onPlayerQuit", getRootElement(), przywrocDane)


--laduje itemy do tablicy po stronie serwera, potem to przenosze do klienta
upgradesVeh = {}

function loadItems()
local file_root = xmlLoadFile("moditems.xml")
local sub_node = xmlFindChild(file_root, "item", 0)
i = 0
    while sub_node do
    item = xmlNodeGetAttribute(sub_node, "itemid")
    name = xmlNodeGetAttribute(sub_node, "name")
    price = xmlNodeGetAttribute(sub_node, "price")
    upgradesVeh[i] = {item, name, price}
    
    i = i + 1
    sub_node = xmlFindChild(file_root, "item", i)
    end
i = nil
sub_node = nil
end
addEventHandler("onResourceStart", getResourceRootElement(getThisResource()), loadItems)
--Blip

createBlip ( -84.92,1130.82,19.84, 27 )

if getElementModel(hitElement) == 50 then

ddEventHandler("onClientMarkerHit", resourceRoot, function(el,md)
    if not md or el~=localPlayer then return end
    if getElementModel(hitElement) == 50 then
    if not cs then return end
    if job ~= ljob then
        outputChatBox(" Nie jeste?› zatrudniony w tym warsztacie.", 255, 0, 0)
        return
    end
    local vehicles=getElementsWithinColShape(cs,"vehicle")
    if #vehicles < 1 then
        outputChatBox("Na stanowisku monta??u nie ma ??adnego pojazdu.", 255, 0, 0)
        return
    end
    if #vehicles > 1 then
        outputChatBox(" Na stanowisku monta??u jest zbyt du??o pojazd??w.", 255, 0, 0)
        return
    end
    if getElementHealth(vehicles[1]) < 900 then
        outputChatBox(" Pojazd jest zbyt uszkodzony aby zamontowa?&#8225; ?&#8250;wiat?&#8218;a.", 255, 0, 0)
        return
    end
    isVehicles=vehicles[1]
    showCursor(true,false)
    guiGridListClear(wn.grid)
    guiSetVisible(wn.window, true)
    for i,v in ipairs(isCzesci) do
        local row=guiGridListAddRow(wn.grid)
        guiGridListSetItemText(wn.grid, row, 1, v[1].."("..v[2]..")", false, false)
        guiGridListSetItemData(wn.grid, row, 1, v[2], false, false)
        guiGridListSetItemText(wn.grid, row, 2, v[3].." PLN", false, false)
        guiGridListSetItemData(wn.grid, row, 2, v[3], false, false)
    end
end)

ddEventHandler("onClientMarkerHit", resourceRoot, function(el,md)