function SpellDamageCond takes nothing returns boolean
    
    local unit pr = LoadUnitHandle(udg_hash,h,3)
    return ( IsUnitEnemy(GetFilterUnit(), GetOwningPlayer(pr)) == true )
    set pr = null
    
endfunction


function SpellDamage1 takes nothing returns nothing

    local unit p = LoadUnitHandle(udg_hash,h,2)
    call ForGroupBJ( GetUnitsInRangeOfLocMatching(100.00, GetUnitLoc(p), Condition(function SpellDamageCond)), function SpellDamage )
    set p = null
    
endfunction


function SpellDamage takes nothing returns nothing

    local timer t = GetExpiredTimer()
    local integer h = GetHandleId(t)
    local location l = LoadLocationHandle(udg_hash,h,1)
    local unit p = LoadUnitHandle(udg_hash,h,2)
    local unit pr = LoadUnitHandle(udg_hash,h,3)
    local integer counter = LoadInteger(udg_hash,h,4)
    
        if counter>0 then

    call UnitDamageTarget( pr, GetEnumUnit(), ( 0.10 + ( I2R(GetHeroStatBJ(bj_HEROSTAT_AGI, pr, true)) * 0.05 ) ), ATTACK_TYPE_MELEE, DAMAGE_TYPE_NORMAL )
    call SaveInteger(udg_hash,h,4,counter-1)
    
        else 
        
    call DestroyTimer(t)
    call FlushChildHashtable(udg_hash,h)
    
        endif
    
    set p = null
    set pr = null
    set t = null
    call RemoveLocation(l)
    set l = null
    
endfunction


function spellAct takes nothing returns nothing
    local unit p
    local unit pr = GetSpellAbilityUnit()
    local location l
    local timer t = CreateTimer()
    local integer h = GetHandleId(t)
    
    call CreateNUnitsAtLocFacingLocBJ( 1, 'u000', GetOwningPlayer(pr), GetUnitLoc(pr), GetSpellTargetLoc() )
    
    set p = GetLastCreatedUnit()
    set l = PolarProjectionBJ(GetUnitLoc(p), 8.00, GetUnitFacing(p))
    
    call SaveLocationHandle(udg_hash,h,1,l)
    call SaveUnitHandle(udg_hash,h,2,p)
    call SaveUnitHandle(udg_hash,h,3,pr)
    call SaveInteger(udg_hash,h,4,100)
    
    call TimerStart(t,0.04,true,function SpellDamage1)
    
    set p = null
    set pr = null
    set t = null
    call RemoveLocation(l)
    set l = null

endfunction

function spellCond takes nothing returns boolean
    return GetSpellAbilityId() == 'A001'
endfunction

//===========================================================================
function InitTrig_spell takes nothing returns nothing
    set gg_trg_spell = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ( gg_trg_spell, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( gg_trg_spell, Condition( function spellCond ) )
    call TriggerAddAction( gg_trg_spell, function spellAct )
    
    set udg_hash = InitHashtable()
endfunction