function Trig_Glow_Condition takes nothing returns boolean
    return IsSpell('A002')
endfunction

function Glow_Main takes nothing returns nothing
    local integer Slot_I_1 = ForGetSDA(4)

    if GetTriggerExecCount(udg_LH_Events[Slot_I_1]) == 100 then
         call ForCleanSDA(Slot_I_1)
         call SetUnitUserData(udg_LH_Units[Slot_I_1+256],GetUnitUserData(udg_LH_Units[Slot_I_1+256])-1)
         if GetUnitUserData(udg_LH_Units[Slot_I_1+256]) == 0 then
             call UnitRemoveAbility(udg_LH_Units[Slot_I_1+256],'Ahea')
         endif
     endif         
    if GetTriggerEventId() == EVENT_UNIT_DEATH then
         call ForCleanSDA(Slot_I_1)
    else
    if udg_LH_Logic[Slot_I_1] then
         call SetWidgetLife(udg_LH_Units[Slot_I_1+256],GetWidgetLife(udg_LH_Units[Slot_I_1+256])+3)
    else
         call UnitDamageTarget(udg_LH_Units[Slot_I_1],udg_LH_Units[Slot_I_1+256],10,true,true,ATTACK_TYPE_NORMAL,DAMAGE_TYPE_MAGIC,WEAPON_TYPE_WHOKNOWS)
    endif    
    endif
endfunction

function Trig_Glow_Action takes nothing returns nothing
    local integer Slot_I_1 = ForSetSDA(4)
    set udg_LH_Units[Slot_I_1]     = GetTriggerUnit()
    set udg_LH_Units[Slot_I_1+256] = GetSpellTargetUnit()
    if GetUnitUserData(udg_LH_Units[Slot_I_1+256]) == 0 then
        call UnitAddAbility(udg_LH_Units[Slot_I_1+256],'Ahea')
    endif
    call SetUnitUserData(udg_LH_Units[Slot_I_1+256],GetUnitUserData(udg_LH_Units[Slot_I_1+256])+1)
    call Register(Slot_I_1,0.1,function Glow_Main)
    call TriggerRegisterUnitEvent(udg_LH_Events[Slot_I_1],udg_LH_Units[Slot_I_1+256],EVENT_UNIT_DEATH)
    if IsUnitAlly(udg_LH_Units[Slot_I_1+256],GetOwningPlayer(udg_LH_Units[Slot_I_1]))then
        set udg_LH_Effects [Slot_I_1]= AddSpecialEffectTarget("Abilities\\Spells\\Items\\StaffOfSanctuary\\Staff_Sanctuary_Target.mdl",udg_LH_Units[Slot_I_1+256],"chest")
        set udg_LH_Logic[Slot_I_1] = TRUE
    else
        set udg_LH_Effects [Slot_I_1]= AddSpecialEffectTarget("Abilities\\Spells\\Orc\\Voodoo\\VoodooAuraTarget.mdl",udg_LH_Units[Slot_I_1+256],"overhead")
    endif    
endfunction

function InitTrig_Glow takes nothing returns nothing
    set gg_trg_Glow =CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(gg_trg_Glow,EVENT_PLAYER_UNIT_SPELL_EFFECT)
    call TriggerAddCondition(gg_trg_Glow,Condition(function Trig_Glow_Condition))
    call TriggerAddAction( gg_trg_Glow, function Trig_Glow_Action )
    call PreloadSpell('A002')
endfunction