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

// vJass
scope PotionofLife initializer Init
    //================================================================================  ====
    globals
        private constant integer abi_id='AOwk'
        private constant integer dummy_id='hfoo'
        private constant real height=900.
        private constant real dist=200.
        private constant real sp=10.
        private constant real period=.025
        private constant string final="Abilities\\Spells\\Other\\Incinerate\\FireLordDeathExplode.mdl"
        private constant string attach="origin"
        //private constant real sec_dur=1.
        private constant integer number=3
    endglobals
    private constant function sec_dur takes integer lvl returns real
        return 4.-lvl
    endfunction
    //================================================================================  ====
    private struct str
        unit c
        unit array d[number]
        real array a[number]
        real h
        real r
        real p
        real x
        boolean b
    endstruct
    globals
        private str array data[8190]
        private integer count=0
        private timer tim=CreateTimer()
    endglobals
    private function cb takes nothing returns nothing
        local integer i=0
        local integer in
        
        loop
            exitwhen i>=count
            
            if data[i].b then
                set data[i].r=data[i].r-((period/data[i].x)*dist)
                set data[i].h=data[i].h-((period/data[i].x)*height)
                set in=0
                
                loop
                    set in=in+1
                    exitwhen in>number
                    set data[i].a[in]=data[i].a[in]+sp
                    call SetUnitX(data[i].d[in],GetUnitX(data[i].c)+data[i].r*Cos(bj_DEGTORAD*(data[i].a[in])))
                    call SetUnitY(data[i].d[in],GetUnitY(data[i].c)+data[i].r*Sin(bj_DEGTORAD*(data[i].a[in])))
                    call SetUnitFlyHeight(data[i].d[in],data[i].h,0.)
                endloop
                
                if data[i].r<=0. or data[i].h<=0. then
                    set data[i].b=false
                endif
            else
                call DestroyEffect(AddSpecialEffectTarget(final,data[i].c,attach))
                call SetWidgetLife(data[i].c,GetWidgetLife(data[i].c)+data[i].p)
                
                set in=0
                
                loop
                    set in=in+1
                    exitwhen in>number
                    call RemoveUnit(data[i].d[in])
                endloop
                
                call data[i].destroy()
                set count=count-1
                set data[i]=data[count]
                set i=i-1
                
                if count==0 then
                    call PauseTimer(tim)
                endif
            endif
            
            set i=i+1
        endloop
    endfunction
    private function Act takes nothing returns nothing
        local str this=str.create()
        local integer i=0
        local player p
        local real cx
        local real cy
        
        set this.c=GetTriggerUnit()
        set p=GetOwningPlayer(this.c)
        set cx=GetUnitX(this.c)
        set cy=GetUnitY(this.c)
        set this.h=height
        set this.r=dist
        set this.p=GetUnitState(this.c,UNIT_STATE_MAX_LIFE)*(0.05+(0.05*GetUnitAbilityLevel(  this.c,abi_id)))
        set this.b=true
        set this.x=sec_dur(GetUnitAbilityLevel(this.c,abi_id))
        
        loop
            set i=i+1
            exitwhen i>number
            set this.d[i]=CreateUnit(p,dummy_id,cx+this.r*Cos(bj_DEGTORAD*( (360./number)*i)),cy+this.r*Sin(bj_DEGTORAD*((360./number)*i)),0.)
            set this.a[i]=i*(360./number)
            call SetUnitFlyHeight(this.d[i],this.h,0.)
        endloop
        
        if count==0 then
            call TimerStart(tim,period,true,function cb)
        endif
        
        set data[count]=this
        set count=count+1
        
        set p=null
    endfunction
    private function Cond takes nothing returns boolean
        return GetSpellAbilityId()==abi_id
    endfunction
    private function Init takes nothing returns nothing
        local trigger t=CreateTrigger()
        local integer i=0
        loop
            call TriggerRegisterPlayerUnitEvent(t,Player(i),EVENT_PLAYER_UNIT_SPELL_EFFECT,null)
            set i=i+1
            exitwhen i>11
        endloop
        call TriggerAddCondition(t,Condition(function Cond))
        call TriggerAddAction(t,function Act)
        set t=null
    endfunction
endscope