globals
real minx,maxx,miny,maxy,minx2,maxx2,miny2,maxy2
endglobals

function DistToEnd takes unit c,real r returns real
real x=GetUnitX(c),y=GetUnitY(c),dist=0.00,x2=x,y2=y
real d1=SquareRoot((minx-x)*(minx-x)+(miny-y)*(miny-y))
real d2=SquareRoot((maxx-x)*(maxx-x)+(maxy-y)*(maxy-y))
real d3=SquareRoot((minx2-x)*(minx2-x)+(miny2-y)*(miny2-y))
real d4=SquareRoot((maxx2-x)*(maxx2-x)+(maxy2-y)*(maxy2-y))
integer i=0
if d1<d2 and d1<d3 and d1<d4 {
   dist=d1
}elseif d2<d1 and d2<d3 and d2<d4 {
   dist=d2
}elseif d3<d1 and d3<d2 and d3<d4 {
   dist=d3
}elseif d4<d1 and d4<d2 and d4<d3 {
   dist=d4
}

loop {
i++
   x=x+5.00*r
   y=y+5.00*r
   
   if(x2<minx){i=R2I(dist)}elseif(x2>maxx){i=R2I(dist)}
   if(y2<miny){i=R2I(dist)}elseif(y2>maxy){i=R2I(dist)}
exitwhen i>=R2I(dist) 
}
   x=x+5.00*(180.00+r)
   y=y+5.00*(180.00+r)
return SquareRoot((x2-x)*(x2-x)+(y2-y)*(y2-y))
endfunction

function F takes unit c returns nothing
local real X = GetSpellTargetX()
local real Y = GetSpellTargetY()
local real x = GetUnitX(c)
local real y = GetUnitY(c)
local real r = Atan2(Y-y,X-x)
set x=x+DistToEnd(c,r)*Cos(r)
set y=y+DistToEnd(c,r)*Sin(r)
endfunction

//Функцию ниже вызывать только после инициализации
function Init takes nothing returns nothing
real x=0.00
real y=0.00
real d=0.00
    minx=GetRectMinX(bj_mapInitialPlayableArea)
    maxx=GetRectMaxX(bj_mapInitialPlayableArea)
    miny=GetRectMinY(bj_mapInitialPlayableArea)
    maxy=GetRectMaxY(bj_mapInitialPlayableArea)
   d=SquareRoot((minx-maxx)*(minx-maxx)+(miny-maxy)*(miny-maxy))/1.5
   minx2=minx+d*Cos(90.00*bj_DEGTORAD)
   miny2=miny+d*Sin(90.00*bj_DEGTORAD)
   maxx2=maxx+d*Cos(270.00*bj_DEGTORAD)
   maxy2=maxy+d*Sin(270.00*bj_DEGTORAD)
endfunction