Способность фуры из Доты

function Delete_Destructable takes nothing returns nothing
    local timer t = GetExpiredTimer()                  //Наш таймер - истёкший
    local integer h = GetHandleId(t)                   //Узнаём id таймера
    local destructable tree  //Достаём цель из значения 2
    local integer i = 1
   
   loop
        exitwhen i > 10
        set tree = LoadDestructableHandle(hash,h,i)
        call KillDestructable(tree)
        set i = i + 1
    endloop
    call DestroyTimer(t) //Уничтожаем таймер
    //Очищаем хеш-таблицу, чтобы избежать утечек и наложений
    call FlushChildHashtable(hash,h) //Очищаем ключ по id
    
    //Не забываем устранять утечки
    set tree = null
    set t = null
endfunction
 
function Hashtable_Actions takes nothing returns nothing
    local unit Caster = GetSpellAbilityUnit()
    local destructable Tree
    local location Target = GetSpellTargetLoc()
    local timer t = CreateTimer()
    local integer h = GetHandleId(t)
    
    //Сохраняем объекты с ключом - id таймера

    //Создаём деревья 
    local integer i = 1
    loop
        exitwhen i > 10
        call CreateDestructableLoc( 'LTlt', PolarProjectionBJ(GetSpellTargetLoc(), 200.00, ( I2R(i) * 36.00 )), GetRandomDirectionDeg(), 1.00, GetRandomInt(1, 10) )
        call SaveDestructableHandle(hash,h,bj_forLoopAIndex,GetLastCreatedDestructable()) 
        call SetDestructableAnimationBJ( GetLastCreatedDestructable(), "birth" )
        call SetDestructableLife( GetLastCreatedDestructable(), I2R(GetHeroStatBJ(bj_HEROSTAT_INT, GetTriggerUnit(), true)) )
        set i = i + 1
    endloop
    
//    call TimerStart(t,10,true,function Delete_Destructable)
endfunction

function Hashtable_Cond takes nothing returns boolean
    return GetSpellAbilityId() == 'A014'
endfunction

//===========================================================================
function InitTrig_Hashtable takes nothing returns nothing
    local trigger ForestKeeperTrees = CreateTrigger()
    local integer index
    set index = 0
    loop
        call TriggerRegisterPlayerUnitEvent(ForestKeeperTrees,Player(index),EVENT_PLAYER_UNIT_SPELL_CAST,null)
        index = index + 1
        exitwhen index >= 16
    endloop
    call TriggerAddCondition( ForestKeeperTrees, Condition(function Hashtable_Cond) )
    call TriggerAddAction( ForestKeeperTrees, function Hashtable_Actions )
endfunction