cols = createColSphere(2485,-1661,13,5)
pojazdy={[592]="powietrzny",[472]="morski",[602]="ladowy",[482]="ladowy",[411]="ladowy"}
Pojazdy_Powietrzne=0
Pojazdy_Morskie=0
Pojazdy_Naziemne=0
function sprawdz(id)
    local result = pojazdy[id]
    if result=="powietrzny" then Pojazdy_Powietrzne=Pojazdy_Powietrzne+1 end
    if result=="morski" then Pojazdy_Morskie=Pojazdy_Morskie+1 end
    if result=="ladowy" then Pojazdy_Naziemne=Pojazdy_Naziemne+1 end
end

function PojazdyCOL(plr,cmd)
    local pojazdyWCol = getElementsWithinColShape(cols,"vehicle")
    if #pojazdyWCol>0 then else outputChatBox("Brak pojazdow w colShape.",plr) end
        for i,v in ipairs(pojazdyWCol) do
            local id = getElementModel(v)
            sprawdz(id)
        end
        outputChatBox("Pojazdy naziemne: "..Pojazdy_Naziemne..", pojazdy morskie: "..Pojazdy_Morskie..", pojazdy powietrzne: "..Pojazdy_Powietrzne,plr)
    Pojazdy_Powietrzne=0
    Pojazdy_Morskie=0
    Pojazdy_Naziemne=0
end
addCommandHandler("spr",PojazdyCOL)