Библиотека заклинаний

function SpellActionStormLS takes nothing returns nothing
    local timer t=GetExpiredTimer()
    local unit u=LoadUnitHandle(udg_Hash, GetHandleId(t),0)
    local group g=CreateGroup()
    local unit ga
    local real r=.25*GetHeroInt(u,true)*GetUnitAbilityLevel(u,'A000') //Укажите raw-code способности
    
    
    if GetUnitAbilityLevel(u,'B000')>0 then
        call GroupEnumUnitsInRange(g,GetUnitX(u),GetUnitY(u),300,null)
        loop
            set ga=FirstOfGroup(g)
        exitwhen ga==null
            if IsUnitType(ga,UNIT_TYPE_STRUCTURE)==false and GetWidgetLife(ga)>0.405 and IsPlayerAlly(GetOwningPlayer(u),GetOwningPlayer(ga))==false then
                if IsUnitType(ga,UNIT_TYPE_HERO) then
                    call UnitDamageTarget(u,ga,r,true,false,ATTACK_TYPE_CHAOS,DAMAGE_TYPE_NORMAL,WEAPON_TYPE_WHOKNOWS)
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\ManaFlare\\ManaFlareBoltImpact.​mdl",ga,"origin"))
                else
                    call UnitDamageTarget(u,ga,.5*r,true,false,ATTACK_TYPE_CHAOS,DAMAGE_TYPE_NORMAL,WEAPON_TYPE_WHOKNOWS)
                    call DestroyEffect(AddSpecialEffectTarget("Abilities\\Spells\\Human\\ManaFlare\\ManaFlareMissile.mdl​",ga,"origin"))
                endif
                
            endif
            call GroupRemoveUnit(g,ga)
        endloop
    else
        call FlushChildHashtable(udg_Hash, GetHandleId(t))
        call DestroyTimer(t)
    endif
    call DestroyGroup(g)
endfunction

function Trig_Spell_ActionsStormLS takes nothing returns nothing
    local unit u=GetTriggerUnit()
    local timer t=CreateTimer()
    if udg_Hash==null then
        set udg_Hash = InitHashtable()
    endif
    call SaveUnitHandle(udg_Hash,GetHandleId(t),0,u)
    call TimerStart(t,0.5,true, function SpellActionStormLS)
endfunction

function Trig_Spell_CondStormLS takes nothing returns boolean
    return GetSpellAbilityId()=='A000'
endfunction

//===========================================================================
function InitTrig_Spell takes nothing returns nothing
    set gg_trg_Spell = CreateTrigger(  )
    call TriggerRegisterAnyUnitEventBJ( gg_trg_Spell, EVENT_PLAYER_UNIT_SPELL_EFFECT )
    call TriggerAddAction( gg_trg_Spell, function Trig_Spell_ActionsStormLS )
    call TriggerAddCondition(gg_trg_Spell,Condition(function Trig_Spell_CondStormLS))
endfunction