globals
private real X
private real Y
endglobals

    {int h = 0
    int c = 0
    real a = 0.00
    real x = GetRectCenterX(r)
    real y = GetRectCenterY(r)
    real x1 = 0.00
    real y1 = 0.00
    int i = 0
    loop
    exitwhen a >= 4.71
        h=0
        c=1
        loop
        exitwhen h > leight-1
            x1=x+128.00*h*Cos(a+1.57)
            y1=y+128.00*h*Sin(a+1.57)
            c=1
            loop
            exitwhen c > leight-h
                i=0
                X = x1+128.00*c*Cos(a)
                Y = y1+128.00*c*Sin(a)
                loop
                exitwhen i>400
                i=i+1
                endloop
                DestroyEffect(AddSpecialEffect("Abilities\\Spells\\NightElf\\Blink\\BlinkCaster.mdl",X,Y))​
            c=c+1
            endloop
        h=h+1
        endloop
    a+=1.57
    endloop}

scope Create

globals
private real X
private real Y
endglobals

private struct Data
static int c = 0
static Data array d
static timer t = CreateTimer()
real x
real y

static void Looping() {
    int k = 0
    int i = 0
    whilenot (k >= .c) {
    i=0
    whilenot (i > 400) {BJDebugMsg(I2S(i)); i++}
    DestroyEffect(AddSpecialEffect("Abilities\\Spells\\NightElf\\Blink\\BlinkCaster.mdl",.d[k]​.x,.d[k].y))
    .d[k].destroy()
    .c--    
    .d[k]=.d[.c]
    k-- //забыл это :), снизило чуток лаги, но фпс не больше 5ти не торт ._.
    if .c <= 0 then
        PauseTimer(.t)
    endif
    k++ }}

static void Check_XY (real x,real y) {
Data D = Data.create()
D.x=x
D.y=y
if .c <= 0 then
    TimerStart(.t,0.1,true,function Data.Looping)
endif
.d[.c]=D
.c++ }

endstruct
    
void Range_Create(rect r,int leight,int red,int gre,int blu) {
    int h = 0
    int c = 0
    real a = 0.00
    real x = GetRectCenterX(r)
    real y = GetRectCenterY(r)
    real x1 = 0.00
    real y1 = 0.00
    if red == 0 then
        BoolMove = true
    else
        BoolMove = false
    endif
    loop
    exitwhen a >= 4.71
        h=0
        c=1
        loop
        exitwhen h > leight-1
            x1=x+128.00*h*Cos(a+1.57)
            y1=y+128.00*h*Sin(a+1.57)
            c=1
            loop
            exitwhen c > leight-h
                X = x1+128.00*c*Cos(a)
                Y = y1+128.00*c*Sin(a)
                Data.Check_XY(X,Y)
            c=c+1
            endloop
        h=h+1
        endloop
    a+=1.57
    endloop }

endscope