globals
    gamecache cache
endglobals

struct str
    unit Target
    unit Caster
    integer Hit
endstruct

function H2I takes handle h returns integer
    return h
    return 0
endfunction

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

function SpellTimer takes nothing returns nothing
    local timer t = GetExpiredTimer()
    local str s = GetStoredInteger(cache,I2S(H2I(t)),"myStr")
    if s.Hit != 0 then
        call UnitDamageTargetBJ(s.Caster,s.Target,20,ATTACK_TYPE_MAGIC,DAMAGE_TYPE_MAGIC)
        set s.Hit = s.Hit - 1
    else
        call s.destroy()
        call FlushStoredMission(cache,I2S(H2I(t)))
        call DestroyTimer(t)
    endif
    set t = null
endfunction

function Trig_Spell_Actions takes nothing returns nothing
    local str s = str.create()
    local timer t = CreateTimer()
    set s.Caster = GetTriggerUnit()
    set s.Target = GetSpellTargetUnit()
    set s.Hit = 5
    call StoreInteger(cache,I2S(H2I(t)),"myStr",s)
    call TimerStart(t,.5,true,function SpellTimer)
endfunction

//===========================================================================
function InitTrig_Spell takes nothing returns nothing
    set gg_trg_Spell = CreateTrigger(  )
    set cache = InitGameCache("mymap")
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Spell, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddCondition( gg_trg_Spell, Condition( function Trig_Spell_Conditions ) )
    call TriggerAddAction( gg_trg_Spell, function Trig_Spell_Actions )
endfunction