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

scope ChainRockfall/*SPELL CREATED by Jumper aka YouTube
 */ initializer Init
    globals
        //НАСТОЙКА
        define private periodic=0.035//период
        define private duration=2.//время замедления
        define private SPELL='A000'//id скила герой
        define private DUMMY='h000'//id даммика
        define private DUMMY_SPELL='A001'//id замедления
        define private EFFECT_OF_DUMMY="Abilities\\Weapons\\AncientProtectorMissile\\AncientProtectorMissile.mdl"​
        //модель даммика
        define private EFFECT_OF_TARGET="abilities\\weapons\\DemolisherMissile\\DemolisherMissile.mdl"
        //эффект при падении
        define private SPEED=20.//скорость падения
        define private MAX_HEIGHT=800//максимальная высота
        define private RADIUS=400.//радиус
        define private DAMAGE=70.//урон
        define private DAMAGE_INC=30.//повышение урона за уровень
        define private CHANCE=5.//шанс на скилл
        define private CHANCE_INC=2.5//повышение за уровень
        define private NUM=1.//кол-во камнепадов
        define private NUM_INC=1.//повышение за уровень
        private constant attacktype AttackType= ATTACK_TYPE_CHAOS//вид урона
        private constant damagetype DamageType=DAMAGE_TYPE_UNIVERSAL
        private constant weapontype WeaponType=WEAPON_TYPE_WHOKNOWS
        //КОНЕЦ НAСТРОЙКИ
        private hashtable hash=InitHashtable()
        private group GROUP=CreateGroup()
    endglobals
    //=================================================
    
    private function Cond takes nothing returns boolean
        return GetUnitAbilityLevel(GetAttacker(), SPELL) > 0
    endfunction
    //===================================================
    private function UAA takes nothing returns nothing
        timer t=GetExpiredTimer()
        unit u=LoadUnitHandle(hash,GetHandleId(t),0)
        UnitRemoveAbility(u,DUMMY_SPELL)
        FlushChildHashtable(hash,GetHandleId(t))
        DestroyTimer(t)
        set u=null
        set t=null
    endfunction
    
    function UnitsInGroup takes group g returns integer
        local boolean wantDestroy = bj_wantDestroyGroup
        set bj_wantDestroyGroup = false
        set bj_groupCountUnits = 0
        ForGroup(g, function CountUnitsInGroupEnum)
        if (wantDestroy) then
            DestroyGroup(g)
        endif
        return bj_groupCountUnits
    endfunction
    
    private function a takes nothing returns nothing
        unit u=GetEnumUnit(), cast=LoadUnitHandle(hash,GetHandleId(u),0), targ=LoadUnitHandle(hash,GetHandleId(u),1),next
        integer num=LoadInteger(hash,GetHandleId(u),2)
        group g
        real h1=GetUnitFlyHeight(u),h2=GetUnitFlyHeight(targ),x=GetUnitX(targ),y=GetUnitY(targ)
        timer t
        if(h1>h2+SPEED)then
            SetUnitFlyHeight(u,h1-SPEED,0)
            SetUnitX(u,x)
            SetUnitY(u,y)
        else
            set num -= 1
            if GetUnitAbilityLevel(targ,DUMMY_SPELL)==0 then
                set t=CreateTimer()
                UnitAddAbility(targ,DUMMY_SPELL)
                SaveUnitHandle(hash,GetHandleId(t),0,targ)
                TimerStart(t,duration,false,function UAA)
            endif
            UnitDamageTarget (cast, targ, DAMAGE+(DAMAGE_INC*GetUnitAbilityLevel(cast,SPELL)), true, false, AttackType, DamageType, WeaponType)
            DestroyEffect(AddSpecialEffect(EFFECT_OF_TARGET,x,y))
            GroupRemoveUnit(GROUP,u)
            SaveInteger(hash, GetHandleId(u), 2, num)
            if num>0 then
                set g=CreateGroup()
                GroupEnumUnitsInRange( g, x, y, RADIUS, null)
                GroupRemoveUnit(g, targ)
                loop
                    set next=FirstOfGroup(g)
                    exitwhen UnitsInGroup(g)==null
                    if IsPlayerEnemy(GetOwningPlayer(next), GetOwningPlayer(u)) == true and IsUnitDeadBJ(next) == false and IsUnitType(next, UNIT_TYPE_STRUCTURE) == false then
                        set bj_lastCreatedUnit=CreateUnit(GetOwningPlayer(cast),DUMMY, GetUnitX(next),GetUnitY(next),0)
                        AddSpecialEffectTarget(EFFECT_OF_DUMMY,bj_lastCreatedUnit,"origin") 
                        SetUnitFlyHeight(bj_lastCreatedUnit,MAX_HEIGHT,0)
                        SaveUnitHandle(hash, GetHandleId(bj_lastCreatedUnit), 0, cast)
                        SaveUnitHandle(hash, GetHandleId(bj_lastCreatedUnit), 1, next)
                        SaveInteger(hash, GetHandleId(bj_lastCreatedUnit), 2, num)
                        GroupAddUnit(GROUP,bj_lastCreatedUnit)
                    endif
                    GroupRemoveUnit(g, next)
                endloop
            endif
            FlushChildHashtable(hash,GetHandleId(u))
            RemoveUnit(u)
        endif
        set u=null
        set cast=null
        set targ=null
        set next=null
        set g=null
    endfunction
    
    private function fg takes nothing returns nothing
        ForGroup(GROUP,function a)
    endfunction
    
    private function main takes nothing returns nothing
        unit cast=GetAttacker(),targ=GetTriggerUnit()
        integer i=GetUnitAbilityLevel(cast,SPELL)
        integer number=1+i
        
        if CHANCE+CHANCE_INC>GetRandomReal(0,100) then
            set bj_lastCreatedUnit=CreateUnit(GetOwningPlayer(cast),DUMMY, GetUnitX(targ),GetUnitY(targ),0)
            AddSpecialEffectTarget(EFFECT_OF_DUMMY,bj_lastCreatedUnit,"origin") 
            SetUnitFlyHeight(bj_lastCreatedUnit,MAX_HEIGHT,0)
            SaveUnitHandle(hash, GetHandleId(bj_lastCreatedUnit), 0, cast)
            SaveUnitHandle(hash, GetHandleId(bj_lastCreatedUnit), 1, targ)
            SaveInteger(hash, GetHandleId(bj_lastCreatedUnit), 2, number)
            GroupAddUnit(GROUP,bj_lastCreatedUnit)
        endif
        set cast=null
        set targ=null
    endfunction

    private function Init takes nothing returns nothing
        local trigger t = CreateTrigger()
        local timer time=CreateTimer()
        local integer index=0
        GroupClear(GROUP)
        TimerStart(time,periodic,true,function fg)
        loop
            TriggerRegisterPlayerUnitEvent(t, Player(index), EVENT_PLAYER_UNIT_ATTACKED, null)
            set index += 1
            exitwhen index == bj_MAX_PLAYER_SLOTS
        endloop
        TriggerAddCondition(t, Condition( function Cond))
        TriggerAddAction(t,function main)
        set t = null
    endfunction
endscope