Can't find the bug, is it in one of the systems I use?

function ABuffApply takes aBuffType id, unit u, unit caster, real duration, integer level, integer data returns boolean

//===========================================================================
//This ability gives the caster bonus armor depending on the number of 
//allied ChaosOrc units and Undead units nearby. It gains 1 armor per each unit
//and can get a maximum armor bonus of 5.
//
//Requires:
// - Abuff
// - UnitProperties
//
//@author Flame_Phoenix 
//
//@version 1.1
//===========================================================================
scope ChaoticDetermination initializer Init 
//===========================================================================
//=============================SETUP START===================================
//===========================================================================
    globals
        private constant integer AID = 'A052'
        private constant integer AURA_ID = 'A03O'
        private constant integer BUFF_ID = 'B00B'
        private constant string EFF = "Abilities\\Spells\\NightElf\\Taunt\\TauntCaster.mdl"
    endglobals
    
    private constant function MaxBonus takes integer level returns integer 
    //the maximum amount of armor the caster can receive
        return 5
    endfunction
    
    private constant function Radius takes integer level returns real
    //the AOE of the spell
        return 300.
    endfunction
    
    private constant function Duration takes integer level returns real
    //the duration of the spell
        return 10.
    endfunction
    
    private function CountUnits takes unit caster, unit helper returns boolean
    //the units that will add the bonus to the caster
        return IsUnitAlly(helper, GetOwningPlayer(caster)) and (IsUnitType(helper, UNIT_TYPE_STRUCTURE) == false) and (IsUnitType(helper, UNIT_TYPE_MECHANICAL) == false) and (GetWidgetLife(helper) > 0.405) and (caster != helper) and (IsUnitType(helper, UNIT_TYPE_UNDEAD) or (Race[GetPlayerId(GetOwningPlayer(helper))+1] == "Chaos_Orc"))
    endfunction
//===========================================================================
//=============================SETUP END=====================================
//=========================================================================== 
    globals
        private group helpers
        private boolexpr chooseHelpers
        private unit tmpCaster
        public aBuffType id = 0
    endglobals
    
    private struct aCaster
        unit caster
        integer bonus
        
        method onDestroy takes nothing returns nothing
            call BJDebugMsg(I2S(.bonus))
        endmethod
    endstruct
//===========================================================================
    private function ChooseHelpers takes nothing returns boolean
        return CountUnits(tmpCaster, GetFilterUnit())
    endfunction
//===========================================================================
    private function Cleanup takes aBuff eventBuff returns nothing
        local aCaster data = eventBuff.data
        
        call UnitModifyArmor(data.caster, -data.bonus)
        call data.destroy()
        
        call UnitRemoveAbility(eventBuff.target.u, AURA_ID)
        
        //so we don't wait 2 seconds because of the aura
        call UnitRemoveAbility(eventBuff.target.u, BUFF_ID) 
    endfunction
//===========================================================================
    private function Create takes aBuff eventBuff returns nothing
        local aCaster data = aCaster.create()
        set data.caster = eventBuff.target.u
        
        call DestroyEffect(AddSpecialEffect(EFF, GetUnitX(data.caster), GetUnitY(data.caster)))
        
        //here we count the bonus we will add and clear the group
        set tmpCaster = data.caster
        call GroupEnumUnitsInRange(helpers, GetUnitX(data.caster), GetUnitY(data.caster), Radius(eventBuff.level), chooseHelpers)
        set data.bonus = CountUnitsInGroup(helpers)
        call GroupClear(helpers)
        
        //if we have more then 0 units, then we add the ability, else we don't
        if data.bonus > 0 then
            //now we add the ability to the caster and set it's level
            if data.bonus > MaxBonus(eventBuff.level) then
                set data.bonus = MaxBonus(eventBuff.level)
                call UnitModifyArmor(data.caster, data.bonus)
            else
                call UnitModifyArmor(data.caster, data.bonus)
            endif
        endif
        
        //now we add the buff, we always add the buff xD
        call UnitAddAbility(data.caster, AURA_ID)
        
        //prevent morphing from removing the ability
        call UnitMakeAbilityPermanent(data.caster, true, AURA_ID) 
        
        set eventBuff.data = integer(data)
    endfunction
//===========================================================================
    private function Conditions takes nothing returns boolean
        local integer level
        local real duration 
        local unit caster
        
        if GetSpellAbilityId() == AID then
            set caster = GetTriggerUnit()
            set level = GetUnitAbilityLevel(caster, AID)
            set duration = Duration(level) 
            call ABuffApply(id, caster, caster, duration, level, 0)
        endif
        
        set caster = null
        
        return false
    endfunction
//===========================================================================
    private function Init takes nothing returns nothing
        local trigger ChaoticDetermTrg = CreateTrigger(  )
        call TriggerRegisterAnyUnitEventBJ(ChaoticDetermTrg, EVENT_PLAYER_UNIT_SPELL_EFFECT )
        call TriggerAddCondition(ChaoticDetermTrg, Condition(function Conditions))
        
        //setting our globals
        set helpers = CreateGroup()
        set chooseHelpers = Condition(function ChooseHelpers)
        set id = aBuffType.create()
        
        //setting Abuff
        set id.eventCreate = ABuffEvent_Create.Create
        set id.eventCleanup = ABuffEvent_Cleanup.Cleanup
        
        //preloading effects
        call Preload(EFF)
    endfunction
endscope

//===========================================================================
//This ability gives the caster bonus armor depending on the number of 
//allied ChaosOrc units and Undead units nearby. It gains 1 armor per each unit
//and can get a maximum armor bonus of 5.
//
//Requires:
// - Abuff
// - UnitProperties
//
//@author Flame_Phoenix 
//
//@version 1.1
//===========================================================================
scope ChaoticDetermination initializer Init 
//===========================================================================
//=============================SETUP START===================================
//===========================================================================
    globals
        private constant integer AID = 'A052'
        private constant integer AURA_ID = 'A03O'
        private constant integer BUFF_ID = 'B00B'
        private constant string EFF = "Abilities\\Spells\\NightElf\\Taunt\\TauntCaster.mdl"
    endglobals
    
    private constant function MaxBonus takes integer level returns integer 
    //the maximum amount of armor the caster can receive
        return 5
    endfunction
    
    private constant function Radius takes integer level returns real
    //the AOE of the spell
        return 300.
    endfunction
    
    private constant function Duration takes integer level returns real
    //the duration of the spell
        return 10.
    endfunction
    
    private function CountUnits takes unit caster, unit helper returns boolean
    //the units that will add the bonus to the caster
        return true
    endfunction
//===========================================================================
//=============================SETUP END=====================================
//=========================================================================== 
    globals
        private group helpers
        private boolexpr chooseHelpers
        private unit tmpCaster
        public aBuffType id = 0
    endglobals

//===========================================================================
    private function ChooseHelpers takes nothing returns boolean
        return CountUnits(tmpCaster, GetFilterUnit())
    endfunction
//===========================================================================
    private function Cleanup takes aBuff eventBuff returns nothing

        call UnitModifyArmor(eventBuff.target.u, -eventBuff.data)
        
        call UnitRemoveAbility(eventBuff.target.u, AURA_ID)
        
        //so we don't wait 2 seconds because of the aura
        call UnitRemoveAbility(eventBuff.target.u, BUFF_ID) 
    endfunction
//===========================================================================
    private function Create takes aBuff eventBuff returns nothing 
        call DestroyEffect(AddSpecialEffect(EFF, GetUnitX(eventBuff.target.u), GetUnitY(eventBuff.target.u)))
        

                call BJDebugMsg("armor= "+I2S(eventBuff.data))
                call UnitModifyArmor(eventBuff.target.u, eventBuff.data)

        
        //now we add the buff, we always add the buff xD
        call UnitAddAbility(eventBuff.target.u, AURA_ID)
        
        //prevent morphing from removing the ability
        call UnitMakeAbilityPermanent(eventBuff.target.u, true, AURA_ID) 
        
        //set eventBuff.data = integer(data)
    endfunction
//===========================================================================
    private function Conditions takes nothing returns boolean
        local integer level
        local real duration 
        local unit caster
        
        if GetSpellAbilityId() == AID then
            set caster = GetTriggerUnit()
            set level = GetUnitAbilityLevel(caster, AID)
            set duration = Duration(level) 
            call ABuffApply(id, caster, caster, duration, level, 2)
        endif
        
        set caster = null
        
        return false
    endfunction
//===========================================================================
    private function Init takes nothing returns nothing
        local trigger ChaoticDetermTrg = CreateTrigger(  )
        call TriggerRegisterAnyUnitEventBJ(ChaoticDetermTrg, EVENT_PLAYER_UNIT_SPELL_EFFECT )
        call TriggerAddCondition(ChaoticDetermTrg, Condition(function Conditions))
        
        //setting our globals
        set helpers = CreateGroup()
        set chooseHelpers = Condition(function ChooseHelpers)
        set id = aBuffType.create()
        
        //setting Abuff
        set id.eventCreate = ABuffEvent_Create.Create
        set id.eventCleanup = ABuffEvent_Cleanup.Cleanup
        
        //preloading effects
        call Preload(EFF)
    endfunction
endscope