Too Slow?

scope Martyr initializer Init

globals
    private constant string EFFECT = "Abilities\\Spells\\Orc\\Voodoo\\VoodooAuraTarget.mdl"
endglobals
    
    //-------------------
    private struct martyr
        effect e
        trigger t
        unit a
        
        //----------------------------------------------------------
        static method create takes effect e, trigger t returns martyr
            local martyr dat = martyr.allocate()
            set dat.e = e
            set dat.t = t
            return dat
        endmethod
        
        //----------------------------------------------------------
        method onDestroy takes nothing returns nothing
            call DestroyEffect(.e)
            call DestroyTrigger(.t)
        endmethod
    endstruct
    
    private struct second
        unit a
        real d
        real l
        
        static method create takes unit a, real l, real d returns second
            local second dat = second.allocate()
            set dat.a = a
            set dat.d = d
            set dat.l = l
            return dat
        endmethod
    endstruct

//===========================================================================
private function Conditions takes nothing returns boolean
    return GetSpellAbilityId() == 'A00D'
endfunction 

//===========================================================================
private function Callback takes nothing returns boolean
    local martyr dat = ABCT_GetData()
    call dat.destroy()
    return true
endfunction

//===========================================================================
private function Stop takes nothing returns boolean
    local second dat = ABCT_GetData()
    if dat.l<dat.d then
        call SetWidgetLife(dat.a, 1.)
    endif
    call BJDebugMsg(R2S(GetWidgetLife(dat.a)))
    call dat.destroy()
    return true
endfunction

private function Block takes nothing returns boolean
    call ABCT_Zero(function Stop, second.create(GetTriggerUnit(), GetWidgetLife(GetTriggerUnit()), GetEventDamage()))
    return true
endfunction

//===========================================================================
private function Actions takes nothing returns nothing
    local unit a = GetTriggerUnit()
    local trigger t = CreateTrigger()
    
    call TriggerAddCondition(t, Condition(function Block))
    call TriggerRegisterUnitEvent(t, a, EVENT_UNIT_DAMAGED)
    call ABCT_Start(function Callback, martyr.create(AddSpecialEffectTarget(EFFECT, a, "head"), t), 5.)
    
    set t = null
    set a = null
endfunction

//===========================================================================
private function Init takes nothing returns nothing
    local trigger t = CreateTrigger()
    local integer i = 0
    
    loop
        call TriggerRegisterPlayerUnitEvent(t, Player(i), EVENT_PLAYER_UNIT_SPELL_EFFECT, BOOLEXPR_TRUE )
        set i=i+1
        exitwhen i >= Eight
    endloop
    
    call TriggerAddCondition( t, Condition( function Conditions ) )
    call TriggerAddAction( t, function Actions )
endfunction

endscope