set index = istanceBetweenCord(X1, Y1, X2, Y2)*2/size

function SpellDamage takes unit u, unit u2, real damage returns nothing
    call UnitDamageTarget(u, u2, damage, true, false, ATTACK_TYPE_MAGIC, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS)
    set u = null
    set u2 = null
endfunction
//###########################################################################
function FireWave takes nothing returns nothing
    local unit u = GetSpellAbilityUnit()
    local location p = GetSpellTargetLoc()
    local location p2 = GetUnitLoc(u)
    local group gr = CreateGroup()
    local unit un
    local real n = AngleBetweenCord(GetLocationX(p2), GetLocationY(p2), GetLocationX(p), GetLocationY(p))
    call MoveLocation(p, GetUnitX(u) + 1000 * CosBJ(n), GetUnitY(u) + 1000 * SinBJ(n))//двигает точку p на 1000(дальность действия спелла) от кастера.
    //Без этой строки всех добавляет в группу, а с ней - нет! Но без нее спелл действует только до локации, куда было скастовано заклинание, а нужно на все 1000! Может сдесь что не так?
//===========================================================================
    call UnitAddGroupOnLine(gr, GetLocationX(p2), GetLocationY(p2), GetLocationX(p), GetLocationY(p), 175)//дальность ставил вначале на 150 - никого не добавляет, теперь 175 - тоже самое
//===========================================================================
    loop
        set un = FirstOfGroup(gr)
        exitwhen un == null
        call SpellDamage(u, un, 350)//сейчас сделал без таймера, чтобы проверить, а так потом на таймере сделаю
        call GroupRemoveUnit(gr, un)
    endloop
//===========================================================================
    set u = null
    set un = null
    call RemoveLocation(p)
    call RemoveLocation(p2)
    set p = null
    set p2 = null
    call DestroyGroup(gr)
    set gr = null
endfunction

function SpellDamage takes unit u, unit u2, real damage returns nothing
    call UnitDamageTarget(u, u2, damage, true, false, ATTACK_TYPE_MAGIC, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS)
endfunction

function FireWave takes nothing returns nothing
    local unit Caster = GetSpellAbilityUnit()
    local location Loc = GetSpellTargetLoc()
    local real X1 = GetUnitX(Caster)
    local real Y1 = GetUnitY(Caster)
    local real Angle = AngleBetweenCord(X1, Y1, GetLocationX(Loc), GetLocationY(Loc))*bj_DEGTORAD
    local group gr = UnitAddGroupOnLine(CreateGroup(), X1, Y1, X1+1000*Cos(Angle), Y1+1000*Sin(Angle), 150)
    local unit u
    call RemoveLocation(Loc)
    loop
        set u = FirstOfGroup(gr)
        exitwhen u == null
        call SpellDamage(Caster, u, 350)
        call GroupRemoveUnit(gr, u)
    endloop
    call DestroyGroup(gr)
    set gr  = null
    set Loc = null
endfunction

call echo(I2S(Count))