libarary FireBall initializer Init
    globals
        private constant integer Id = 'A000' //константа Id спелла
        private constant integer Unit_Id = 'u000'// Id юнита
        private constant real dist = 1000
        private constant real speed = 600
        private constant real dmg  = 100
        private constant real tp = 0.04// период таймера
        
        private group g = CreateGroup()
        private timer t = CreateTimer()
    endglobals

    private struct ball
        unit u
        real x
        real y
        real d = dist
    endstruct

    private function Move takes nothing returns nothing
        local ball a = GetUnitUserData(GetEnumUnit())
        local group gr = CreateGroup()
        call SetUnitX(a.u,GetUnitX(a.u)+a.x)
        call SetUnitY(a.u,GetUnitY(a.u)+a.y)
        set a.d = a.d - speed * tp
        call GroupEnumUnitsInRange(gr,GetUnitX(a.u),GetUnitY(a.u),75,null)
        if FirstOfGroup(gr) != null or a.d <= 0  then
            call UnitDamageTarget(a.u,FirstOfGroup(g),dgm,false,false,ATTACK_TYPE_CHAOS,DAMAGE_TY  PE_FIRE,WEAPON_TYPE_WHOKNOWS)
            call GroupRemoveUnit(g,a.u)
            if FirstOfGroup(g) == null then
                call PauseTimer()
            endif
            call KillUnit(a.u)
            set a.u = null
            call a.destroy()
        endif
        call DestroyGroup(gr)
        set gr = null
    endfunction

    private function GroupAction takes nothing returns nothing
        call ForGroup(g, function Move)
    endfunction

    private function AddUnit takes nothing returns nothing
        local ball a = ball.create()
        local unit u = GetSpellTargetUnit()
        local real an = Atan2(GetUnitY(u)-GetUnitY(GetTriggerUnit()),GetUnitX(u)-GetUnitX(GetTriggerUnit()),an*bj_RADTODEG)
        set a.u = CreateUnit(GetTriggerPlayer(),Unit_Id,GetUnitX(GetTriggerUnit())+50*Cos(an)
        if FirstOfGroup(g) == null then
            call TimerStart(t, tp, true, function GroupAction)
        endif
        call GroupAddUnit(g,a.u)
        call SetUnitUserData(a.u,a) //сохраняем номер структуры в дату дамика
        set a.x = speed * Cos(an) * tp // вектор смещения снаряда по оси x
        set a.y = speed * Sin(an) * tp// y
        set u = null
    endfunction

    private function Cond takes nothing returns boolean
        return GetSpellAbilityId == Id
    endfunction

    private function Init
        local trigger t = CreateTrigger()
        call TriggerRegisterAnyUnitEventBJ(t,EVENT_PLAYER_UNIT_ENDCAST)
        call TriggerAddCondition(t,Condition(function Cond))
        call TriggerAddAction(t,function AddUnit)
        set t = null
    endfunction

endlibrary