function Delete_Destructable takes nothing returns nothing
    local timer t = GetExpiredTimer()                  //Наш таймер - истёкший
    local integer h = GetHandleId(t)                   //Узнаём id таймера
    local integer i = 1
   
   loop
        exitwhen i > 10
        call KillDestructable(LoadDestructableHandle(hash,h,i))
        set i = i + 1
    endloop
    
    call DestroyTimer(t) //Уничтожаем таймер
    //Очищаем хеш-таблицу, чтобы избежать утечек и наложений
    call FlushChildHashtable(hash,h) //Очищаем ключ по id
    
    //Не забываем устранять утечки
    set t = null
endfunction
 
function Hashtable_Actions takes nothing returns nothing
    local unit Caster = GetSpellAbilityUnit()
    local real cx 
    local real cy
    local timer t = CreateTimer()
    local integer id = GetHandleId(t)
    local integer i = 1
    local destructable d
    
    if GetSpellTargetUnit() == null then
        set cx = GetSpellTargetX()
        set cy = GetSpellTargetY()
    else
        set cx = GetUnitX(GetSpellTargetUnit())
        set cy = GetUnitY(GetSpellTargetUnit())
    endif
    loop
        exitwhen i > 1
            set d = CreateDeadDestructable('LTlt',cx + 200.00 * Cos( i * 0.6285708 ), cy + 200.00 * Sin( i * 0.6285708 ), 36.00 * i, 1.00, GetRandomInt(1, 10))
            call SetDestructableAnimation(d,"birth")
            call SaveDestructableHandle(hash, id, i, d )
            call SetDestructableLife( d, I2R(GetHeroStatBJ(bj_HEROSTAT_INT, Caster, true)) )
        set i = i + 1
    endloop

    call TimerStart(t, 10.00, false, function  Delete_Destructable)
    set Caster = null
    set t = null
    set d = null
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 = 0
    loop
        exitwhen index > 12
        call TriggerRegisterPlayerUnitEvent(ForestKeeperTrees,Player(index),EVENT_PLAYER_UNIT_SPELL_CAST,null)
        set index = index + 1
    endloop
    call TriggerAddCondition( ForestKeeperTrees, Condition(function Hashtable_Cond) )
    call TriggerAddAction( ForestKeeperTrees, function Hashtable_Actions )
    set ForestKeeperTrees = null
endfunction

/pointer to 'Amov' is located at offset 123 of unit object, Aatk is at offset 122, and AInv is offset 124

//Hides all command buttons and sets the Ward flag. Unit will keep its current order, and player can’t give new orders
//Notice the the unit can’t be ordered with triggers as well. To issue an order you need to temporarily reenable control
function DisableUnitControl takes unit u returns nothing
	local integer pUnit = ConvertHandle(u)
	local integer flags
	local integer Amov
	local integer Aatk
	local integer AInv
	if pUnit > 0 then
		set flags = RMem(pUnit+0x248)
		set Amov = RMem(pUnit+0x1EC)
		set Aatk = RMem(pUnit+0x1E8)
		set AInv = RMem(pUnit+0x1F8)
	//	call echo("disabled on "+GetUnitName(u))
		if not IsFlagBitSet(flags,512) then
			call WMem(pUnit+0x248, flags + 512)
		endif
		if Amov >0 then
			call WMem(Amov+0x40, RMem(Amov+0x40) + 1)
		endif
		if Aatk >0 then
			call WMem(Aatk+0x40, RMem(Aatk+0x40) + 1)
		endif
		if AInv >0 then
			call WMem(AInv+0x3C, RMem(AInv+0x3C) + 1)
		endif
		
	endif
endfunction