function Trig_dead_units_Conditions takes nothing returns boolean
    if ( not ( IsUnitType(GetTriggerUnit(), UNIT_TYPE_HERO) == false ) ) then
        return false
    endif
    return true
endfunction

function DeleteEffect takes nothing returns nothing
   local timer t = GetExpiredTimer()

   call DestroyEffectBJ( get_object_eparam(t , "timer_for_effect"))
   call DestroyTimer(t)
   call flush_object(t)
endfunction

function NextsActions takes nothing returns nothing
   local timer t = GetExpiredTimer()
   local timer t2 = CreateTimer()
   local unit u
   local location p

   set u = get_object_uparam(t, "timer_for_unit" )
   set p = GetUnitLoc(u)

   call AddSpecialEffectLocBJ( p , "Doodads\\LordaeronSummer\\Props\\Flies\\Flies.mdl" )
   call DestroyTimer(t)
   call flush_object(t)
   call RemoveLocation(p)

   call TimerStart(t2, 60.000 , false, function DeleteEffect)
   call set_object_iparam(t2, "timer_for_effect1", H2I(GetLastCreatedEffectBJ()))

   set u = null
   set p = null
endfunction

function Trig_dead_units_Actions takes nothing returns nothing
    local unit u = GetTriggerUnit()
    local timer t = CreateTimer()
    call TimerStart(t, 40.000 , false, function NextsActions)
    call set_object_iparam(t, "timer_for_unit", H2I(u))
    set u = null    
endfunction

//===========================================================================
function InitTrig_dead_units takes nothing returns nothing
    set gg_trg_dead_units = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_dead_units, EVENT_PLAYER_UNIT_DEATH )
    call TriggerAddCondition( gg_trg_dead_units, Condition( function Trig_dead_units_Conditions ) )
    call TriggerAddAction( gg_trg_dead_units, function Trig_dead_units_Actions )
endfunction