function Trig_spell_Conditions takes nothing returns boolean
    return GetSpellAbilityId() == 'A004'
endfunction

function dc takes real xa, real ya, real xb, real yb returns real
    local real dx = xb - xa
    local real dy = yb - ya
    return SquareRoot(dx * dx + dy * dy)
endfunction

function timerg takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local integer ID = GetHandleId(t)
    local group g = LoadGroupHandle(udg_Hash, ID, 1)
    local unit dummy = LoadUnitHandle(udg_Hash, ID,0)
    local integer level = LoadInteger(udg_Hash, ID, 2)
    local unit f = null
    local integer i = LoadInteger(udg_Hash, ID, 3)
    local unit caster = LoadUnitHandle(udg_Hash, ID, 4)
    local real xd = GetUnitX(dummy)
    local real yd = GetUnitY(dummy)
    loop
        set f = FirstOfGroup(g)
        exitwhen f == null
        if i < 10 then
            if dc(xd, yd, GetUnitX(f), GetUnitY(f)) <= 1000 then
                call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl​", f, "origin"))
                call UnitDamageTarget(caster, f, 40 * level, true, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_MAGIC, null)
            endif
            call SaveInteger(udg_Hash, ID, 3, i + 1)
        else
            call DestroyTimer(t)
            call GroupRemoveUnit(g, f)
            call FlushChildHashtable(udg_Hash, ID)
            set t = null
            set g= null
            set dummy = null
            set f = null
            set caster = null
        endif
    endloop
endfunction

function Shout_banshee_Dmg_Filter1 takes nothing returns boolean
    local unit f=GetFilterUnit()
    return IsPlayerEnemy(GetOwningPlayer(GetTriggerUnit()),GetOwningPlayer(f)) and !IsUnitType(f, UNIT_TYPE_DEAD) and !IsUnitType(f,UNIT_TYPE_STRUCTURE)
endfunction

globals
    boolexpr FILTER
endglobals

function Trig_spell_Actions takes nothing returns nothing
    local timer t = CreateTimer()
    local unit dummy
    local integer ID = GetHandleId(t)
    local group g = CreateGroup()
    local integer i = 1
    local unit caster = GetSpellAbilityUnit()
    local integer level = GetUnitAbilityLevel(GetSpellAbilityUnit(),'A004')
    local real tx = GetSpellTargetX()
    local real ty = GetSpellTargetY()
    call CreateUnit(GetOwningPlayer(caster), 'hfoo', tx, ty, 0 )
    call GroupEnumUnitsInRange(g, tx, ty, 1000, FILTER)
    call SaveUnitHandle(udg_Hash, ID, 0, dummy)
    call SaveGroupHandle(udg_Hash, ID, 1, g)
    call SaveInteger(udg_Hash, ID,2 ,level)
    call DestroyEffect(AddSpecialEffect("Abilities\\Spells\\Undead\\FrostNova\\FrostNovaTarget.mdl"​, tx, ty))
    call TimerStart(t, 1, true, function timerg)
    call SaveInteger(udg_Hash, ID, 3, i)
    call SaveUnitHandle(udg_Hash, ID, 4, caster)
    set t = null
    set dummy = null
    set g = null
    set caster = null
endfunction

//===========================================================================
function InitTrig_spell takes nothing returns nothing
    set gg_trg_spell = CreateTrigger(  )
    set FILTER = Condition(function Shout_banshee_Dmg_Filter1)
    call TriggerRegisterAnyUnitEventBJ( gg_trg_spell, EVENT_PLAYER_UNIT_SPELL_CHANNEL )
    call TriggerAddCondition( gg_trg_spell, Condition( function Trig_spell_Conditions ) )
    call TriggerAddAction( gg_trg_spell, function Trig_spell_Actions )
endfunction