function Trig_Engine_Copy_Func001001002001 takes nothing returns boolean
    return ( UnitHasItemOfTypeBJ(GetFilterUnit(), 'I008') == true )
endfunction

function Trig_Engine_Copy_Func001001002002 takes nothing returns boolean
    return ( IsUnitAliveBJ(GetFilterUnit()) == true )
endfunction

function Trig_Engine_Copy_Func001001002 takes nothing returns boolean
    return GetBooleanAnd( Trig_Engine_Copy_Func001001002001(), Trig_Engine_Copy_Func001001002002() )
endfunction

function Firing takes location n returns nothing
    local effect e
    local integer a
    call AddSpecialEffectLocBJ( n, "Abilities\\Spells\\Undead\\PlagueCloud\\PlagueCloudCaster.mdl" )
    set e = (GetLastCreatedEffectBJ())
    call TriggerSleepAction( 2.00 )
    call DestroyEffectBJ( e )
endfunction

function Trig_Engine_Copy_Func001A takes nothing returns nothing
    local location pos = (GetUnitLoc(GetEnumUnit()))
    call Firing(pos)
    set pos = null
endfunction

function Trig_Engine_Copy_Actions takes nothing returns nothing
    call ForGroupBJ( GetUnitsInRectMatching(GetPlayableMapRect(), Condition(function Trig_Engine_Copy_Func001001002)), function Trig_Engine_Copy_Func001A )
endfunction

//===========================================================================
function InitTrig_Engine_Copy takes nothing returns nothing
    set gg_trg_Engine_Copy = CreateTrigger(  )
    call TriggerRegisterTimerEventPeriodic( gg_trg_Engine_Copy, 0.10 )
    call TriggerAddAction( gg_trg_Engine_Copy, function Trig_Engine_Copy_Actions )
endfunction

function Engine_Filter takes nothing returns nothing
    local unit u = GetFilterUnit()
    if (GetInventoryIndexOfItemTypeBJ(u, 'I008') > 0) and (GetUnitState(u, UNIT_STATE_LIFE) > 0) then
        call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Undead\\PlagueCloud\\PlagueCloudCaster.mdl", GetUnitX(u), GetUnitY(u)))
    endif
    set u = null
endfunction

function Engine_Actions takes nothing returns nothing
    local group g = CreateGroup()
    call GroupEnumUnitsInRect(g, bj_mapInitialPlayableArea, Condition(function Engine_Filter))
    call DestroyGroup()
    set g = null
endfunction

function InitTrig_Engine_Copy takes nothing returns nothing
    set gg_trg_Engine_Copy = CreateTrigger()
    call TriggerRegisterTimerEvent(gg_trg_Engine_Copy, 0.1, true)
    call TriggerAddAction(gg_trg_Engine_Copy, function Engine_Actions)
endfunction

globals
    group    gr = CreateGroup()
    boolexpr bx = null
endglobals

function Engine_Filter takes nothing returns boolean
    local unit u = GetFilterUnit()
    local unit d = null
    if GetInventoryIndexOfItemTypeBJ(u, 'I008') > 0 and GetWidgetLife(u) > .405 then
        set d = CreateUnit(GetOwningPlayer(u), 'e000', GetUnitX(u), GetUnitY(u), 0) // dummy-unit
        call UnitApplyTimedLife(d, 0, .01)
        call AddSpecialEffectTarget("Abilities\\Spells\\Undead\\PlagueCloud\\PlagueCloudCaster.mdl", d, "chest")
        set d = null
    endif
    set u = null
    return false
endfunction

function Engine_Actions takes nothing returns nothing
    call GroupEnumUnitsInRect(gr, bj_mapInitialPlayableArea, bx)
endfunction

function InitTrig_Engine_Copy takes nothing returns nothing
    local timer t = CreateTimer()
    set bx = Condition(Engine_Filter)
    call TimerStart(t, .1, true, function Engine_Actions)
    set t = null
endfunction

// выделяем переменные под хранение дескрипторов
local unit     u = GetSpellAbilityUnit() // функция возвращает ссылку на юнит
local location l = GetSpellTargetLoc()   // функция возвращает ссылку на точку и создает ее копию
// ...
// удаляем точку, т.к. в дальнейшем (если не удалим) она останется в памяти
call RemoveLocation(l)
// очищаем переменные
set l = null
set u = null