-- EDYTOWAL http://Rick

Ogien = {
{-2310.35,-119.44,35.32},
{-2024.79,158.14,28.88},
{-1916.93,867.40,35.45},
{-1916.93,867.40,35.45},
{-1916.93,867.40,35.45},
{-1716.72,-94.59,3.57},
{-2088.60,289.56,35.55},
{-2399.59,699.83,35.20},
{-2839.39,457.04,4.60},
{-1072.91,-1153.63,129.24},
{-1068.30,-1153.47,129.26},
{-600.04,-1099.59,23.57},
{-619.23,-475.20,25.55},
{-619.00,-489.55,25.54},
{-427.82,-391.72,16.26},
{-770.05,-159.64,66.26},
{-148.37,1133.05,19.77},
{-2800.01,2328.29,84.74},
{-2472.31,1550.24,36.80},
{-2478.05,1546.59,36.80},
{-2473.31,1537.30,36.80},
{-2409.87,974.64,45.37},
{-2413.21,-559.72,128.77},
{-2793.11,173.55,6.31},
{-2432.85,162.85,35.20},
}




local fireModel = 8501
local fires = {}
addEvent("onFireExtinguished",true)
addEvent("onFireCreate",true)


local function isFireNearby(x,y,z)  -- todo d,i
  local cs=createColSphere(x,y,z,3)
  local obiekty=getElementsWithinColShape(cs, "object")
  destroyElement(cs)
  for i,v in ipairs(obiekty) do
      if (getElementModel(v)==fireModel) then return true end
  end
  return false
end

function createFire(x,y,z,d,i)
    if (isFireNearby(x,y,z,d,i)) then return nil end
    if not(isPlayerFireFighter()) then return nil end
    local fireElem = createObject(fireModel,x,y,z)
    setElementCollisionsEnabled(fireElem,false)
    local col = createColSphere(x,y,z+1,2)
    setElementParent(col, fireElem)
    setElementData(fireElem, "ts", getTickCount(), false)
    setElementData(col,"fire:Endvalue",100) 
    fires[fireElem] = {fireElem,col}
    addEventHandler("onColShapeHit",col,setFire)
    addEventHandler("onColShapeHit",col,FireFunction)
    addEventHandler("onColShapeLeave",col,unFireFunction)   
    if (d) then
      setElementDimension(fireElem, d)
      setElementDimension(col, d)
    end
    if (i) then
      setElementInterior(fireElem, i)
      setElementInterior(col, i)
    end
    return fireElem
end


function FireFunction(elem)
setElementHealth(elem,getElementHealth(elem)-1)
Fired = setTimer ( FireFunction, 1000, 1,elem)
end


function unFireFunction(elem)
if isTimer(Fired) then
killTimer(Fired)
end
    end


function setFire(elem,dim)
    if not dim then return end
    if not elem or not isElement(elem) then return end
    if getElementType(elem) == "player" then
        setPedOnFire(elem,true)
    end
end

function setFire(elem,dim)
    if not dim then return end
    if not elem or not isElement(elem) then return end
    if getElementType(elem) == "vehicle" then
        setVehicleOnFire(elem,true)
    end
end

function fireExtinguished(fireElem) 
    if (not fires[fireElem]) then return end
    local firedValue = getElementData(fires[fireElem][2],"fire:Endvalue")
    setElementData(fires[fireElem][2],"fire:Endvalue",firedValue-math.random(1,5))  
    triggerEvent("onFireExtinguished",source,fireElem)
    if firedValue >= 0 then
    destroyElement(fires[fireElem][1])
    destroyElement(fires[fireElem][2])
    fires[fireElem] = nil
    end
end
addEvent("fireExtinguished",true)
addEventHandler("fireExtinguished",root,fireExtinguished)

addEvent("doCreateFire", true)
addEventHandler("doCreateFire", root, createFire)

-- addEventHandler ( "onVehicleExplode", root, function()
  -- outputDebugString("Wybuch pojazdu")
  -- local x,y,z=getElementPosition(source)
  -- createFire(x+math.random(-2,2),y+math.random(-2,2),z-0.5,getElementDimension(source), getElementInterior(source))
-- end)

local function extinguishExpiredFires()
  for i,v in ipairs(getElementsByType("object", resourceRoot)) do
    local ts=getElementData(v,"ts")
    if (ts and getTickCount()-ts<1000*3600*6) then
      destroyElement(getElementChild(v,0))
      fires[v]=nil
      destroyElement(v)
    end
  end
end

setTimer(extinguishExpiredFires, 1000*3600, 0)


function FromDestroyBlip(name)
for i,v in ipairs(getElementsByType("Blip")) do
if getElementData("name:index") == name then
destroyElement(v)
end
    end
        end

function isPlayerFireFighter(x,y,z)
local result = false
local accname = getAccountName ( getPlayerAccount ( element ) )
for i,element in ipairs(getElementsByType("Player")) do
if isObjectInACLGroup("user."..accname, aclGetGroup("SAFD") ) then
blips = createBlip( tonumber(x),  tonumber(y),  tonumber(z), 16, 2, 255, 0, 255,156,0)

setTimer ( function()
destroyElement(blips)
end, 60000*5, 1 )

result = true
end
    end
    return result
        end

function LoadFireTable()
local a = math.random(1,10)

if a > 0 then

for i,v in ipairs(Ogien) do
if isPlayerFireFighter(v[1],v[2],v[3]) then
createFire(v[1],v[2],v[3],0,0)
end
    end
    end
        end
        setTimer(LoadFireTable,60000,0)

local fireModel = 8501
function applyFire()
    local fire = engineLoadDFF("fire.dff",8501)
    engineReplaceModel(fire,fireModel)
end

addEventHandler("onClientResourceStart",resourceRoot,applyFire)

function createExtinguisher(wep,_,_,hitX,hitY,hitZ)
    if wep == 42 and math.random(1,10)==1 then
    for k, v in ipairs(getElementsByType("object",resourceRoot)) do
        if getElementModel(v) == fireModel then
            local fX,fY,fZ = getElementPosition(v)
            local dist = getDistanceBetweenPoints2D(hitX,hitY,fX,fY)
            if dist < 1 then
                triggerServerEvent("fireExtinguished",localPlayer,v)
            end
        end
    end
    end
    -- if wep == 37 and math.random(1,5)==1 then    -- tworzymy ogien!
      -- triggerServerEvent("doCreateFire", root, hitX, hitY, hitZ, getElementDimension(localPlayer), getElementInterior(localPlayer))
    -- end
end
addEventHandler("onClientPlayerWeaponFire",localPlayer,createExtinguisher)

function enterTruck(veh,seat)
    if getElementModel(veh) ~= 407 or seat > 0 then return end
    if not rendering then       
      addEventHandler("onClientRender",root,checkTurret)    
    end
end

addEventHandler("onClientPlayerVehicleEnter",localPlayer,enterTruck)

function exitTruck()    
if rendering then       
  removeEventHandler("onClientRender",root,checkTurret) 
end
end

addEventHandler("onClientPlayerVehicleExit",localPlayer,exitTruck)
addEventHandler("onClientPlayerWasted",localPlayer,exitTruck)
function checkTurret()  
  if not getControlState("vehicle_fire") and not getControlState("vehicle_secondary_fire") then return end  

  local veh = getPedOccupiedVehicle(localPlayer)
  if not veh then return end
  local fX,fY,fZ = getElementPosition(veh)
  local turretPosX,turretPosY = getVehicleTurretPosition(veh)
  local turretPosX = math.deg(turretPosX)   
  if turretPosX < 0 then turretPosX = turretPosX+360 end
  local rotX,rotY,rotZ = getVehicleRotation(veh)
  local turretPosX = turretPosX+rotZ-360
  if turretPosX < 0 then turretPosX = turretPosX+360 end    
  local burningVehicles=getElementsByType("object", resourceRoot, true)
  for k, v in pairs(burningVehicles) do     
      local bX,bY,bZ = getElementPosition(v)
      if getDistanceBetweenPoints2D(bX,bY,fX, fY)<30 then 
        local neededRot = findRotation(fX,fY,bX,bY)
        if turretPosX > neededRot-10 and turretPosX < neededRot+10 and math.random(1,25)==1 then
          triggerServerEvent("fireExtinguished",localPlayer,v)          
          break     
        end 
      end                                                          
  end
  end

  function findRotation(x1,y1,x2,y2)  local t = -math.deg(math.atan2(x2-x1,y2-y1))    if t < 0 then t = t+360 end return tend
end

local rnd = math.random(1,#Ogien)
local fireElem = createObject(fireModel,Ogien[rnd][1],Ogien[rnd][2],Ogien[rnd][3])