globals
hashtable Hash=InitHashtable()
endglobals
function Trig_spell_Timer takes nothing returns nothing
local timer t = GetExpiredTimer()
local integer ID = GetHandleId(t)
local unit u = LoadUnitHandle(Hash, ID, 0)
call UnitRemoveAbility(u,'AEev')
call FlushChildHashtable(Hash, ID)
set u=null
call PauseTimer(t)
call DestroyTimer(t)
set t=null
endfunction
function Trig_spell_Actions takes nothing returns nothing
local timer t
local integer ID
if  GetSpellAbilityId() == 'AHav' then
  set t = CreateTimer()
  set ID = GetHandleId(t)
  call SaveUnitHandle(Hash, ID, 0, GetTriggerUnit())
call UnitAddAbility(GetTriggerUnit(),'AEev')
call TimerStart(t, 10., true, function Trig_spell_Timer)
endif
set t = null
endfunction

//===========================================================================
function InitTrig_spell takes nothing returns nothing
  local integer index=0
local trigger trig=CreateTrigger()
  loop
         call TriggerRegisterPlayerUnitEvent(trig, Player(index),EVENT_PLAYER_UNIT_SPELL_EFFECT, null)

         set index = index + 1
         exitwhen index == 15
     endloop
     call TriggerAddAction(trig, function Trig_spell_Actions )
endfunction