local function veh_create(v)
--    outputDebugString("Tworzenie " .. v.id)
    v.loc=split(v.loc,",")
    v.rot=split(v.rot,",")
    local pojazd=createVehicle(v.model, v.loc[1],v.loc[2],v.loc[3],v.rot[1],v.rot[2],v.rot[3],v.tablica .. string.format("%06s",v.id)) -- tablica nie dziala?

    if getElementModel(pojazd)==439 then setVehicleVariant(pojazd, 1, 255) end
    if getElementModel(pojazd)==555 then setVehicleVariant(pojazd, 0, 255) end

    if (tonumber(v.d)>0) then
      setElementDimension(pojazd, tonumber(v.d))
    end
    if (tonumber(v.i)>0) then
      setElementInterior(pojazd, tonumber(v.i))
    end

    if (v.special and type(v.special)=="string" and string.len(v.special)>1) then
        setElementData(pojazd,"special",v.special)
    end

    if (tonumber(v.variant)) then
        setVehicleVariant(pojazd, v.variant, 255)
    end

    if (tonumber(v.pj)) then
        setVehiclePaintjob(pojazd, v.pj, 255)
    end


    setVehicleDamageProof(pojazd, true)
    v.hp=tonumber(v.hp)
    if (v.hp<301) then v.hp=301 end
    setElementHealth(pojazd,v.hp)
    setElementData(pojazd,"dbid",v.id)



    setElementData(pojazd,"paliwo", { tonumber(v.paliwo) or 25, tonumber(v.bak) or 25})

    if (tonumber(v.hp)>0 and tonumber(v.model)~=510 and tonumber(v.model)~=509 and tonumber(v.model)~=481) then
        setVehicleLocked(pojazd, tonumber(v.locked)>0)
        setElementFrozen(pojazd, tonumber(v.frozen)>0)
    end

    if (v.headlightcolor and type(v.headlightcolor)=="string") then
        v.headlightcolor=split(v.headlightcolor,",")
--        srun setVehicleHeadLightColor(getPedOccupiedVehicle(getPlayerFromName("Shawn_Hanks")), 100,255,255)
        setVehicleHeadLightColor(pojazd, tonumber(v.headlightcolor[1]) or 255, tonumber(v.headlightcolor[2]) or 255 , tonumber(v.headlightcolor[3]) or 255)
    end

    if (v.owning_faction and (type(v.owning_faction)=="string" or type(v.owning_faction)=="number")) then
        setElementData(pojazd, "owning_faction", tonumber(v.owning_faction))
    end
    if (v.owning_co and (type(v.owning_co)=="string" or type(v.owning_co)=="number")) then
        setElementData(pojazd, "owning_co", tonumber(v.owning_co))
    end

    if (v.fprint1) then    setElementData(pojazd,"fingerprint:1", v.fprint1 or "-")    end
    if (v.fprint2) then    setElementData(pojazd,"fingerprint:2", v.fprint2 or "-")    end
    if (v.fprint3) then    setElementData(pojazd,"fingerprint:3", v.fprint3 or "-")    end
    if (v.fprint4) then    setElementData(pojazd,"fingerprint:4", v.fprint4 or "-")    end
    if (v.fprint5) then    setElementData(pojazd,"fingerprint:5", v.fprint5 or "-")    end
    if (v.cb and tonumber(v.cb)>0) then
        setElementData(pojazd,"cb", true)
    end
    if (v.kogut and tonumber(v.kogut)>0) then
        setElementData(pojazd,"kogut", true)
    end

    if (v.neony and tonumber(v.neony)>0) then
        setElementData(pojazd,"neony", tonumber(v.neony))
    end


    if (v.damageproof and tonumber(v.damageproof)==1) then
        setElementData(pojazd,"damageproof", true)
    end


    if (v.gps and tonumber(v.gps)>0) then
        setElementData(pojazd,"gps", true, false)
    end

    setElementData(pojazd,"przebieg", tonumber(v.przebieg) or 0)
    v.wheelstates=split(v.wheelstates,",")
    setVehicleWheelStates(pojazd, unpack(v.wheelstates))
    if (v.panelstates~="0,0,0,0,0,0,0") then
        v.panelstates=split(v.panelstates,",")
        for i,v in ipairs(v.panelstates) do
          setVehiclePanelState(pojazd,i-1, tonumber(v))
        end
    else
        v.panelstates=split(v.panelstates,",")
    end
    if (v.upgrades and type(v.upgrades)=="string") then
        v.upgrades=split(v.upgrades,",")
        for i,v in ipairs(v.upgrades) do
            addVehicleUpgrade(pojazd, tonumber(v))
        end
    end

    if (v.opis and type(v.opis)=="string") then
        setElementData(pojazd,"opis", v.opis)
    end

    setVehicleColor ( pojazd, math.floor(v.c1/65536), math.floor(v.c1/256%256), v.c1%256, math.floor(v.c2/65536), math.floor(v.c2/256%256), v.c2%256, math.floor(v.c3/65536), math.floor(v.c3/256%256), v.c3%256, math.floor(v.c4/65536), math.floor(v.c4/256%256), v.c4%256)
    setVehicleEngineState ( pojazd, false )
end

function veh_reload(id)
    if (not id) then return end
    -- reload bez save!
    for i,v in ipairs(getElementsByType("vehicle")) do
    local dbid=getElementData(v,"dbid")
    if dbid and tonumber(dbid)==tonumber(id) then

            local zneony=getElementData(v,"zneony")
            if (zneony and type(zneony)=="table") then
                destroyElement(zneony[1])
                destroyElement(zneony[2])
            end


        destroyElement(v)
    end
    end
    veh_load(id)
end

function veh_load(id)
    local pojazd=exports.DB:pobierzWyniki("select id,przebieg,model,loc,d,i,rot,locked,frozen,tablica,hp,fprint1,fprint2,fprint3,fprint4,fprint5,owning_faction,owning_co,c1,c2,c3,c4,headlightcolor,cb,gps,kogut,neony,upgrades,wheelstates,panelstates,opis,paliwo,bak,special,damageproof from lss_vehicles WHERE przechowalnia=0 AND id="..tonumber(id))
    if pojazd and pojazd.id then
        veh_create(pojazd)
    end
end

function veh_init()
    local pojazdy=exports.DB:pobierzTabeleWynikow("select id,przebieg,model,loc,d,i,rot,locked,frozen,tablica,hp,fprint1,fprint2,fprint3,fprint4,fprint5,owning_faction,owning_co,c1,c2,c3,c4,headlightcolor,cb,gps,kogut,neony,upgrades,wheelstates,panelstates,opis,paliwo,bak,special,damageproof,variant,paintjob from lss_vehicles WHERE przechowalnia=0")
    for i,v in ipairs(pojazdy) do
    veh_create(v)
--[[
    if (tonumber(v.model)==578) then
        createSpecialVehicle(pojazd)
    end
]]--
    end
end

-- zapisujemy stan pojazdu do bazy danych
function veh_save(vehicle)
    local dbid=getElementData(vehicle, "dbid")
    if (not dbid) then
    return
    end
    local x,y,z=getElementPosition(vehicle)
    local rx,ry,rz=getElementRotation(vehicle)
    local hp=getElementHealth(vehicle)
    local fp1=getElementData(vehicle,"fingerprint:1")        if (not fp1 or type(fp1)~="string") then fp1="-" end
    local fp2=getElementData(vehicle,"fingerprint:2")        if (not fp1 or type(fp2)~="string") then fp2="-" end
    local fp3=getElementData(vehicle,"fingerprint:3")        if (not fp1 or type(fp3)~="string") then fp3="-" end
    local fp4=getElementData(vehicle,"fingerprint:4")        if (not fp1 or type(fp4)~="string") then fp4="-" end
    local fp5=getElementData(vehicle,"fingerprint:5")        if (not fp1 or type(fp5)~="string") then fp5="-" end
    local pp=getElementData(vehicle,"paliwo")
    local paliwo=25
    local bak=25
    if (pp) then
        paliwo=tonumber(pp[1]) or 25
        bak=tonumber(pp[2]) or 25
    end
    local wheelstates=table.concat({getVehicleWheelStates(vehicle)},",")
    local panelstates={}
    for i=0,6 do
      table.insert(panelstates, getVehiclePanelState(vehicle,i))
    end
    panelstates=table.concat(panelstates,",")
    local przebieg=getElementData(vehicle,"przebieg") or 0
    local locked=isVehicleLocked(vehicle) and 1 or 0
    local frozen= isElementFrozen(vehicle) and 1 or 0
    local vm=getElementModel(vehicle)
    if (vm==510 or vm==509 or vm==481) then    -- rowery
        locked=0
        frozen=0
    end
    local c11,c12,c13, c21,c22,c23, c31,c32,c33, c41,c42,c43 = getVehicleColor(vehicle,true)
    local opis=getElementData(vehicle,"opis")
    if (opis and string.len(opis)>=3) then
        opis='"' .. exports.DB:esc(opis) .. '"'
    else
        opis="NULL"
    end
    local vehUpgrades=getVehicleUpgrades(vehicle)
    if not vehUpgrades then vehUpgrades={} end
    local upgrades=exports.DB:esc(table.concat(vehUpgrades,","))

    local query=string.format("UPDATE lss_vehicles SET przebieg='%.2f',upgrades='%s',loc='%.2f,%.2f,%.2f',rot='%.2f,%.2f,%.2f',hp=%d,locked=%d,frozen=%d,fprint1='%s',fprint2='%s',fprint3='%s',fprint4='%s',fprint5='%s',c1=%d,c2=%d,c3=%d,c4=%d,wheelstates='%s',panelstates='%s',opis=%s,paliwo=%.3f,bak=%d WHERE id=%d LIMIT 1",
    przebieg,upgrades,x,y,z,rx,ry,rz,hp,locked, frozen,
    exports.DB:esc(fp1), exports.DB:esc(fp2), exports.DB:esc(fp3), exports.DB:esc(fp4), exports.DB:esc(fp5),
    c13+c12*256+c11*256*256, c23+c22*256+c21*256*256, c33+c32*256+c31*256*256, c43+c42*256+c41*256*256,
    exports.DB:esc(wheelstates), exports.DB:esc(panelstates),
    opis,
    paliwo,bak,
    dbid)
    exports.DB:zapytanie(query)
end

function veh_saveall()
    local pojazdy=getElementsByType("vehicle",resourceRoot)
    for i,v in ipairs(pojazdy) do
    veh_save(v)
    end
end

function createVehicleEx(model,x,y,z,rx,ry,rz)
    local pojazd=createVehicle(model, x,y,z,rx,ry,rz) -- tablica nie dziala?
    setVehicleDamageProof(pojazd, true)
    local query=string.format("INSERT INTO lss_vehicles SET created=NOW(),model=%d,loc='%.2f,%.2f,%.2f',rot='%.2f,%.2f,%.2f',locked=1", model, x,y,z,rx,ry,rz)
    exports.DB:zapytanie(query)
    local dbid=exports.DB:insertID()
    setVehicleLocked(pojazd,true)
    if (dbid and dbid>0) then
    setElementData(pojazd,"dbid",dbid)
    setElementData(pojazd,"paliwo", { 0.5, 25})
    setElementData(pojazd,"przebieg", math.random(1,50)/10)
    return dbid,pojazd
    else
    return false
    end
end

function unregisterVehicle(dbid)
    if not dbid then return false end
    local query=string.format("DELETE FROM lss_vehicles WHERE id=%d LIMIT 1", dbid)
    exports.DB:zapytanie(query)
    return true
end

function assignVehicleToOwner(vehicle,owning_player,owning_faction)
    if (not vehicle or not isElement(vehicle)) then return end
    local dbid=getElementData(vehicle,"dbid")
    if (not dbid) then return end

    if (owning_faction) then
    exports.DB:zapytanie(string.format("UPDATE lss_vehicles SET owning_faction=%d WHERE id=%d LIMIT 1", owning_faction, dbid))
    setElementData(vehicle,"owning_faction", tonumber(owning_faction))
    elseif (getElementData(vehicle,"owning_faction")) then
        exports.DB:zapytanie(string.format("UPDATE lss_vehicles SET owning_faction=NULL WHERE id=%d LIMIT 1", dbid))
    removeElementData(vehicle,"owning_faction")
    end
    if (owning_player) then
    exports.DB:zapytanie(string.format("UPDATE lss_vehicles SET owning_player=%d WHERE id=%d LIMIT 1", owning_player, dbid))
    else
        exports.DB:zapytanie(string.format("UPDATE lss_vehicles SET owning_player=NULL WHERE id=%d LIMIT 1", dbid))
    end

end

addEventHandler("onResourceStart",resourceRoot, veh_init)
addEventHandler("onResourceStop",resourceRoot, veh_saveall)

addEventHandler("onVehicleEnter", resourceRoot, function(plr,seat)
    local vm=getElementModel(source)
    if (vm==481 or vm==509 or vm==510) then return end    -- rowery
    if (seat~=0) then return end
    setVehicleEngineState ( source, false )
    end)

addEventHandler("onVehicleExit", resourceRoot, function(plr,seat)
    if (seat==0) then
        setVehicleEngineState ( source, false )
        setVehicleOverrideLights(source, 1)
    end



    veh_save(source)
    end)

function e_setVehicleLocked(state)
    setVehicleLocked(source,state)
    if (state) then
    for i=0,5 do
        setVehicleDoorOpenRatio(source,i,0,1000)
    end
    end
    veh_save(source)
end
addEvent("setVehicleLocked", true)
addEventHandler("setVehicleLocked", resourceRoot, e_setVehicleLocked)


function e_setVehicleDoorOpenRatio(door, ratio, time)
    setVehicleDoorOpenRatio(source,door,ratio, time or 1000)
end
addEvent("setVehicleDoorOpenRatio", true)
addEventHandler("setVehicleDoorOpenRatio", resourceRoot, e_setVehicleDoorOpenRatio)

addEvent("setVehicleEngineState", true)
addEventHandler("setVehicleEngineState", resourceRoot, function(state)
    if (state) then
        local pp=getElementData(source,"paliwo")
        if (pp and pp[2] and pp[2]>0) then
            local paliwo,bak=unpack(pp)
            if (paliwo<0.01) then
                local kierowca=getVehicleController(source)
                if (kierowca) then
                  setTimer(    triggerEvent, 500, 1, "broadcastCaptionedEvent", kierowca, "Silnik pojazdu nie mo?e odpali?.", 5, 5, true)
                end
                return false
            end
        end

    end
    setVehicleEngineState(source,state)
end)

addEvent("setVehicleFrozen", true)
addEventHandler("setVehicleFrozen", resourceRoot, function(state)
    -- jezeli pojazd ma przyczepe, to najpierw zamrazamy tylko j?!
    local przyczepa=getVehicleTowedByVehicle(source)
    if przyczepa and state then
        detachTrailerFromVehicle(source, przyczepa)
        setElementFrozen(przyczepa,state)
        return
    end

    -- w przeciwnym wypadku wszystko normalnie
    setElementFrozen(source,state)
end)

-- todo spedycja
--[[
addEventHandler("onTrailerAttach", resourceRoot, function(pojazd)
--     setElementFrozen(source, false)
    local kierowca=getVehicleController(pojazd)
    if kierowca then
        setElementSyncer( source, kierowca)    nie dziala
    end
end)
]]--

addEventHandler("onTrailerDetach", resourceRoot, function()
--    setElementData(source,"lastDetach", math.floor(getTickCount()/1000),false) todo
    veh_save(source)
end)




addEvent("setVehicleOverrideLights", true)
addEventHandler("setVehicleOverrideLights", resourceRoot, function(state)
    setVehicleOverrideLights(source, state)
    local przyczepa=getVehicleTowedByVehicle(source)
    if przyczepa then
        setVehicleOverrideLights(przyczepa,state)
    end

end)


addEventHandler("onVehicleDamage", resourceRoot, function(loss)
    local hp=getElementHealth(source)
    if (hp<5) then
        setElementFrozen(source,false)
    end
end)

local function silaGraczyWPoblizuPojazdu(element)
    local x,y,z=getElementPosition(element)
    local sumaSily=0
    local cs=createColSphere(x,y,z,7)
    local gracze=getElementsWithinColShape(cs)
    destroyElement(cs)
    for i,gracz in ipairs(gracze) do
    local c=getElementData(gracz,"character")
    if (c and c.energy) then
        sumaSily=sumaSily+tonumber(c.energy)
    end
    end
    return sumaSily
end

addEvent("flipVehicle", true)
addEventHandler("flipVehicle", root, function(plr)
    if (getElementType(source)~="vehicle") then return end

    sila=silaGraczyWPoblizuPojazdu(source)
    if (sila<200) then
    outputChatBox("(( Osoby w pobli?u pojazdu nie posiadaj? odpowiednio du?ej si?y aby go obr?ci?. ))", plr)
    outputChatBox("(( Dostepne: " .. sila .. ", wymagane: 200 ))", plr)
    triggerEvent("broadcastCaptionedEvent", plr, "Osoby w pobli?u bezskutecznie pr?buj? odwr?ci? pojazd na ko?a.", 5, 15, true)
    return
    end

    local _,_,z = getElementRotation(source)
    setElementRotation(source, 0,0,z)
    triggerEvent("broadcastCaptionedEvent", plr, "Osoby w pobli?u pojazdu odwracaj? go na ko?a.", 5, 15, true)
end)


local plOffsets={
  [405]={-0.5,-0.1,0.76},    -- sentinel
  [426]={-0.5, -0.1, 0.88},    -- premier
  [525]={0, -0.5, 1.3},    -- holownik
  [554]={0, 0, 1.1},    -- yosemite
  [560]={-0.5, 0, 0.85},    -- sultan
  [426]={-0.5, 0, 0.85},    -- premier
  [574]={0, 0.45, 1.27},    -- sweeper
--  [578]={-0.7, 3.5, 1.4},    -- laweta
  [602]={-0.4, -0.3, 0.73},    -- alpha
  [552]={0, 0.6, 1.39},    -- Utility Van
  [579]={-0.4, -0.1, 1.28},    -- huntley
  [408]={-0.4, 2.7, 1.05},    -- smieciarka
  [486]={0, -1.45, 1.45},    -- dozer
  [411]={-0.5, 0, 1.2}, -- Infek
  [541]={-0.4, -0.2, 0.66},    -- bullet
  [482]={0.35, 0.3, 1}, --Burek

}

-- triggerServerEvent("toggleVehiclePL", vehicle)
addEvent("toggleVehiclePL", true)
addEventHandler("toggleVehiclePL", root, function(plr)
  local kogut=getElementData(source,"kogut")
  if (type(kogut)=="userdata" and getElementType(kogut)=="object") then
    destroyElement(kogut)
    setElementData(source,"kogut", true)
--    triggerEvent("broadcastCaptionedEvent", plr, getPlayerName(plr) .. " zdejmuje koguta z dachu pojazdu.", 5, 25, true)
    triggerEvent("broadcastCaptionedEvent", plr, getPlayerName(plr) .. " od??cza kogut z pojazdu.", 5, 25, true)
    removeVehicleSirens(source)
  else
    local m = getElementModel(source)
    if not plOffsets[m] then
        outputChatBox("(( zak?adanie koguta na ten model pojazdu nie jest oprogramowane, zglos to administracji ))", plr)
        return
    end
    kogut=createObject(3964,0,0,0)
    setElementData(source,"kogut", kogut)
    attachElements(kogut,source,unpack(plOffsets[m]))
--    triggerEvent("broadcastCaptionedEvent", plr, getPlayerName(plr) .. " zak?ada koguta na dach pojazdu.", 5, 25, true)
    triggerEvent("broadcastCaptionedEvent", plr, getPlayerName(plr) .. " za??cza kogut w poje?dzie.", 5, 25, true)
    addVehicleSirens(source, 1, 2, true, true, true)
  end
end)

local nlOffsets={
    [411]={-1,0,-0.6},    -- infernus
    [470]={-1,0,-0.4},    -- patriot
    [541]={-0.9,0,-0.4},    -- bulelt
    [549]={-0.9,0,-0.4},    -- tampa
    [587]={-1,0,-0.5},    -- euros
}

local nlIDX={
    3962,2113,1784,2054,2428,2352
}

addEvent("toggleVehicleNL", true)
addEventHandler("toggleVehicleNL", root, function(plr)
  local rodzajneonu=tonumber(getElementData(source,"neony"))
  if not rodzajneonu then return end
  local zneony=getElementData(source,"zneony")
  if (zneony and type(zneony)=="table") then
    destroyElement(zneony[1])
    destroyElement(zneony[2])
    removeElementData(source,"zneony")

    triggerEvent("broadcastCaptionedEvent", plr, getPlayerName(plr) .. " wciska przycisk przy kokpicie.", 5, 5, true)

  else
    local m = getElementModel(source)
    local of
    if not nlOffsets[m] then
        of={-1,0,-0.5}
    else
        of=nlOffsets[m]
    end
    neon1=createObject(nlIDX[rodzajneonu] or 3962,0,0,0)
    neon2=createObject(nlIDX[rodzajneonu] or 3962,0,0,0)
    setElementData(source,"zneony", {neon1, neon2})
    attachElements(neon1,source,of[1],of[2],of[3])
    attachElements(neon2,source,-of[1],of[2],of[3])
    triggerEvent("broadcastCaptionedEvent", plr, getPlayerName(plr) .. " wciska przycisk przy kokpicie.", 5, 25, true)
  end
end)

addEvent("toggleVehicleRoof", true)
addEventHandler("toggleVehicleRoof", root, function(plr)
    local v1,v2 = getVehicleVariant(source)
    local engine = getVehicleEngineState(source)
    if getElementModel(source)==555 then --windsor
        if (v1==0) then --jest
            setVehicleVariant(source, 1, 255)
            triggerEvent("broadcastCaptionedEvent", plr, getPlayerName(plr) .. " otwiera dach.", 5, 5, true)
        elseif (v1==1) then --nie ma
            setVehicleVariant(source, 0, 255)
            triggerEvent("broadcastCaptionedEvent", plr, getPlayerName(plr) .. " zamyka dach.", 5, 5, true)
        end
    elseif getElementModel(source)==439 then --stallion
        if (v1==1) then --jest
            setVehicleVariant(source, 2, 255)
            triggerEvent("broadcastCaptionedEvent", plr, getPlayerName(plr) .. " otwiera dach.", 5, 5, true)
        elseif (v1==2) then --nie ma
            setVehicleVariant(source, 1, 255)
            triggerEvent("broadcastCaptionedEvent", plr, getPlayerName(plr) .. " zamyka dach.", 5, 5, true)
        end
    end
    setTimer(function(veh,engine)
        if not engine then
            setVehicleEngineState(veh,false)
        end
    end, 100, 1, source,engine)
end)