function FilterUnit takes nothing returns boolean
    local unit u = GetFilterUnit ()
    local unit v = GetSpellAbilityUnit ()
    local player p = GetOwningPlayer (v)
    if IsUnitAlly(u, p) and GetWidgetLife (u) > 0.405 and not IsUnitType (u,UNIT_TYPE_STRUCTURE) and not IsUnitType (u,UNIT_TYPE_MAGIC_IMMUNE) then
        call SetUnitState(u, UNIT_STATE_LIFE, RMaxBJ (0., (GetUnitState (u, UNIT_STATE_LIFE) + GetHeroLevel (v) * 750.)))
    endif
    set u = null
    set v = null
    set p = null
    return false
endfunction

function Actions takes nothing returns boolean
    local unit u
    local group g
    local boolexpr b
    if GetSpellAbilityId() == 'A007' then
        set u = GetSpellAbilityUnit ()
        set g = CreateGroup ()
        set b = Condition (function FilterUnit) 
        call SetUnitState(u, UNIT_STATE_MANA, RMaxBJ (0., (GetUnitState (u, UNIT_STATE_MANA) - GetHeroLevel (u) * 200.)))
        call GroupEnumUnitsInRange (g, GetUnitX (u), GetUnitY (u), 600. + 25. * GetHeroLevel (u), b) 
        call DestroyGroup (g)
        call DestroyBoolExpr (b)
        set u = null
        set g = null
        set b = null
    endif
    return false
endfunction

function InitTrig_VH takes nothing returns nothing
    local integer i = 0
    local trigger t = CreateTrigger ()
    local player p 
    loop
        set p = Player (i) 
        call TriggerRegisterPlayerUnitEvent (t, p, EVENT_PLAYER_UNIT_SPELL_EFFECT, null)
        set i = i + 1
        exitwhen i == bj_MAX_PLAYER_SLOTS
    endloop
    call TriggerAddCondition (t, Condition (function Actions))
    set t = null
    set p = null
endfunction