globals
    timer et=CreateTimer()
    lightning array lg
    integer count=0
endglobals

function CastFilter takes nothing returns boolean
    return GetSpellAbilityId() == 'A007'
endfunction
    
function FilterUnit takes nothing returns boolean
    return IsUnitAlly(GetFilterUnit(), GetOwningPlayer(GetSpellAbilityUnit())) and GetWidgetLife(GetFilterUnit())>0.405 and not IsUnitType(GetFilterUnit(),UNIT_TYPE_STRUCTURE) and not IsUnitType(GetFilterUnit(),UNIT_TYPE_MAGIC_IMMUNE)
endfunction

function DestLig takes nothing returns nothing
    local timer tm=GetExpiredTimer()
    loop
        exitwhen count<0
        call DestroyLightning(lg[count])
        set count=count-1
    endloop
    call DestroyTimer(tm)
    set tm=null
endfunction

function Action takes nothing returns nothing 
    local unit cu = GetSpellAbilityUnit()
    local group gr = CreateGroup()
    local boolexpr b = Condition(function FilterUnit)
    call SetUnitState(cu,UNIT_STATE_MANA,(GetUnitState(cu,UNIT_STATE_MANA)- (GetHeroLevel(cu)*200)))    
    call GroupEnumUnitsInRange(gr, GetUnitX(cu), GetUnitY(cu), 600+25*GetHeroLevel(cu), b)
    loop
        exitwhen FirstOfGroup(gr)==null
        set lg[count]=AddLightning("SPLK",true,GetUnitX(cu),GetUnitY(cu),GetUnitX(FirstOfGroup(gr)),GetUnitY(FirstOfGroup  (gr)))
        call SetUnitLifeBJ(FirstOfGroup(gr),(GetUnitStateSwap(UNIT_STATE_LIFE, FirstOfGroup(gr))+(GetHeroLevel(cu)*750)))
        call GroupRemoveUnit(gr,FirstOfGroup(gr))
        set count=count+1
    endloop
    call TimerStart(et,2.,false, function DestLig)
    set cu=null
    set gr=null
    set b=null
endfunction
    
//==== Init Trigger VH ====
function InitTrig_VH2 takes nothing returns nothing
    set gg_trg_VH2 = CreateTrigger()
    call TriggerRegisterAnyUnitEventBJ(gg_trg_VH2 ,EVENT_PLAYER_UNIT_SPELL_EFFECT)
    call TriggerAddCondition(gg_trg_VH2 , Condition(function CastFilter))
    call TriggerAddAction(gg_trg_VH2 , function Action)
endfunction