function remove takes nothing returns nothing
       local timer t = GetExpiredTimer()    
       local integer h = GetHandleId(t)    
       local unit caster = LoadUnitHandle(udg_hash,h,1)    
       local unit target = LoadUnitHandle(udg_hash,h,2)    
       local integer counter = LoadInteger(udg_hash,h,3)    

       if counter>0 or ( UnitHasBuffBJ(target, 'B000') == true ) then
       call SaveInteger(udg_hash,h,3,counter-1)    
       else
       call DestroyTimer(t)
       call UnitRemoveAbility( target, 'A003' )
       call FlushChildHashtable(udg_hash,h)    
       endif    
          
       set caster = null    
       set target = null    
       set t = null    
endfunction

function Trig_VisZem_Actions takes nothing returns nothing
       local unit caster = GetSpellAbilityUnit()    
       local unit target = GetSpellTargetUnit()    
       local timer t = CreateTimer()    
       local integer h = GetHandleId(t)
       local integer lvl = GetUnitAbilityLevel(caster,'A004')
       local real X=GetUnitX(caster)
       local real Y=GetUnitY(caster)
       local integer i = 1*(3+lvl)
       local integer counter = 0
       local unit b = CreateUnit(GetOwningPlayer(caster),'e00C',X,Y,0)

       call UnitApplyTimedLife(b,'BTLF', 0.2)
       call UnitAddAbility(b, 'A002')
       call SetUnitAbilityLevel(b, 'A002', lvl)
       call IssueTargetOrder(b, "slow", target)
          
       call SaveUnitHandle(udg_hash,h,1,caster)    
       call SaveUnitHandle(udg_hash,h,2,target)    
       call SaveInteger(udg_hash,h,3,25*i)

       call UnitAddAbility( target, 'A003' )
       call SetUnitAbilityLevel(target, 'A003', lvl)

       call TimerStart(t,0.04,true,function remove)    

       set caster = null    
       set target = null
       set b = null
       set t = null    
endfunction