globals
    unit SDU = null
    group SDG = null
    timer SDT = null
    integer SDI = 0
    real SDX = 0
    real SDY = 0
endglobals

function StoneDecay_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == 'A000'
endfunction

function StoneDecayFilter takes nothing returns boolean
    return IsUnitAlly(GetFilterUnit(),GetOwningPlayer(SDU)) == false and GetUnitState(GetFilterUnit(),UNIT_STATE_LIFE)>0
endfunction

function StoneDecayDamage takes nothing returns nothing
    local real r = Atan2(GetUnitY(GetEnumUnit()-GetUnitY(SDU),GetUnitX(GetEnumUnit())-GetUnitX(SDU)))
    //Нахождение угла между пикнутыми юнитами
    local effect e = AddSpecialEffect("abilities\\weapons\\catapult\\catapultmissile.mdl",GetUnitX(GetEnumUnit(​)),GetUnitY(GetEnumUnit()))
    call Damage(9*GetUnitAbilityLevel(SDU,'A000'),SDU,GetEnumUnit())
    //Функция обычная DamageTarget только с меньшим кол-вом параметоров
    if IsTerrainPathable(AX(GetUnitX(GetEnumUnit()),r,20),AY(GetUnitY(GetEnumUnit()),r,20),PATHING_TYPE_WAL​KABILITY) == false then
    // отталкивание и првоерка на проходимость
    call SetUnitX(GetEnumUnit(),AX(GetUnitX(GetEnumUnit()),r,20))
    call SetUnitY(GetEnumUnit(),AY(GetUnitY(GetEnumUnit()),r,20))
    endif
    call DestroyEffect(e)
endfunction

function StoneDecayTimer takes nothing returns nothing
    if SDI <= 10 then
    set SDG = CreateGroup()
    call GroupEnumUnitsInRange(SDG,SDX,SDY,300,Condition(function StoneDecayFilter))
    call ForGroup(SDG,function StoneDecayDamage)
    call DestroyGroup(SDG)
    set SDG = null
    set SDI = SDI + 1
    else
    call DestroyTimer(SDT)
    set SDU = null
    set SDT = null
    // Функция Check к спеллу не относится просто првоеряю утечки
    call Check()
    endif
endfunction

function StoneDecay_Actions takes nothing returns nothing
    //----------------------------------------------------------------
    set SDI = 0
    set SDX = GetSpellTargetX()
    set SDY = GetSpellTargetY()
    set SDU = GetTriggerUnit()
    set SDT = CreateTimer()
    call SetUnitX(SDU,SDX)
    call SetUnitY(SDU,SDY)
    call SetUnitAnimationByIndex(SDU,9)
    call TimerStart(SDT,0.05,true,function StoneDecayTimer)
endfunction

//===========================================================================
function InitTrig_StoneDecay takes nothing returns nothing
    local trigger t = CreateTrigger()
    call EventUnit(t,EVENT_PLAYER_UNIT_SPELL_EFFECT)
    call TriggerAddCondition(t,Condition(function StoneDecay_Conditions))
    call TriggerAddAction(t,function StoneDecay_Actions)
    set t = null
endfunction

function StoneDecay_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == 'A000'
endfunction

function StoneDecayFilter takes nothing returns boolean
    local timer t = GetExpiredTimer()
    local unit u = LoadUnitHandle(h,GetHandleId(t),4)
    local boolean b = IsUnitAlly(GetFilterUnit(),GetOwningPlayer(u)) == false and GetUnitState(GetFilterUnit(),UNIT_STATE_LIFE)>0
    set t = null
    set u = null
    return b
endfunction

function StoneDecayDamage takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local unit u = LoadUnitHandle(h,GetHandleId(t),4)
    local real r = Atan2(GetUnitY(GetEnumUnit())-GetUnitY(u),GetUnitX(GetEnumUnit())-GetUnitX(u))
    local effect e = AddSpecialEffect("abilities\\weapons\\catapult\\catapultmissile.mdl",GetUnitX(GetEnumUnit(​)),GetUnitY(GetEnumUnit()))
    call Damage(9*GetUnitAbilityLevel(u,'A000'),u,GetEnumUnit())
    if IsTerrainPathable(AX(GetUnitX(GetEnumUnit()),r,20),AY(GetUnitY(GetEnumUnit()),r,20),PATHING_TYPE_WAL​KABILITY) == false then
    call SetUnitX(GetEnumUnit(),AX(GetUnitX(GetEnumUnit()),r,20))
    call SetUnitY(GetEnumUnit(),AY(GetUnitY(GetEnumUnit()),r,20))
    endif
    call DestroyEffect(e)
    set u = null
    set t = null
endfunction

function StoneDecayTimer takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local group g = null
    local real x = LoadReal(h,GetHandleId(t),2)
    local real y = LoadReal(h,GetHandleId(t),3)
    local integer i = LoadInteger(h,GetHandleId(t),1)
    if i <= 10 then
    set g = CreateGroup()
    call GroupEnumUnitsInRange(g,x,y,300,Condition(function StoneDecayFilter))
    call ForGroup(g,function StoneDecayDamage)
    call DestroyGroup(g)
    set g = null
    set i = i + 1
    call SaveInteger(h,GetHandleId(t),1,i)
    else
    call FlushChildHashtable(h,GetHandleId(t))
    call DestroyTimer(t)
    set t = null
    call Check()
    endif
endfunction

function StoneDecay_Actions takes nothing returns nothing
    //----------------------------------------------------------------
    local timer t = CreateTimer()
    call SaveInteger(h,GetHandleId(t),1,0)
    call SaveReal(h,GetHandleId(t),2,GetSpellTargetX())
    call SaveReal(h,GetHandleId(t),3,GetSpellTargetY())
    call SaveUnitHandle(h,GetHandleId(t),4,GetTriggerUnit())
    call SetUnitX(GetTriggerUnit(),GetSpellTargetX())
    call SetUnitY(GetTriggerUnit(),GetSpellTargetY())
    call SetUnitAnimationByIndex(GetTriggerUnit(),9)
    call TimerStart(t,0.05,true,function StoneDecayTimer)
endfunction

//===========================================================================
function InitTrig_StoneDecay takes nothing returns nothing
    local trigger t = CreateTrigger()
    call EventUnit(t,EVENT_PLAYER_UNIT_SPELL_EFFECT)
    call TriggerAddCondition(t,Condition(function StoneDecay_Conditions))
    call TriggerAddAction(t,function StoneDecay_Actions)
    set t = null
endfunction

Local group g = CreateGroup()
set g = CreateGroup()