globals
real dbl = 50.00
real array pxs
real array pys
integer pmn
boolean pp = true
string es = "Abilities\\Spells\\Orc\\AncestralSpirit\\AncestralSpiritCaster.mdl"
endglobals

//////////////////////////////////////////
function AngleBetweenXY takes real x1, real y1, real x2, real y2 returns real
    return Atan2((y2-y1),(x2-x1)) * 57.295827
endfunction

function echo takes string s returns nothing
    call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,8,s)
endfunction

function PolarX takes real x, real range, real angle returns real
    return x + Cos(angle * 0.017453277)*range
endfunction

function PolarY takes real y, real range, real angle returns real
    return y + Sin(angle * 0.017453277)*range
endfunction

function DistanceBetweenXY takes real x1, real y1, real x2, real y2 returns real
    return SquareRoot((x1-x2)*(x1-x2) + (y1-y2)*(y1-y2))
endfunction
//////////////////////////////////////////

function b2s takes boolean b returns string
if b then
return "True"
else
return "False"
endif
endfunction

function IsPatchPatchable takes real cx,real cy,real xe,real ye,real a returns boolean
local integer in = 0
local real x = cx
local real y = cy
set pp = true
loop
set x = PolarX(x,5.00,a)
set y = PolarY(y,5.00,a)
set pp = not IsTerrainPathable(x,y,ConvertPathingType(1))
set in = in + 1
exitwhen (in >= 10)
endloop
return pp
endfunction

function FindPatch takes real cx,real cy,real xe,real ye returns nothing
local real a = AngleBetweenXY(cx,cy,xe,ye)
local real nx = PolarX(cx,dbl,a)
local real ny = PolarY(cy,dbl,a)
local integer i = 0
local integer i2 = 0
local boolean b = false
local boolean b2 = false
local integer c  ///////////////ВОТТТТТ
local real cha
loop
exitwhen b
call CreateTextTagLocBJ("!",Location(cx,cy),10.00,10.00,10.00,10.00,10.00,10.00)
set i = i + 1
if DistanceBetweenXY(cx,cy,xe,ye) <= 50.00 then
set b = true
endif
if  IsPatchPatchable(cx,cy,nx,ny,a) then
set c = c + 1
set pxs[c] = cx
set pys[c] = cy
set cx = nx
set cy = ny
else
loop
exitwhen b2 == true
set cha = cha + 5.00
set nx = PolarX(cx,dbl,a+cha)
set ny = PolarY(cy,dbl,a+cha)
if IsPatchPatchable(cx,cy,nx,ny,a) then
set c = c + 1
set pxs[c] = nx
set pys[c] = ny
endif
set nx = PolarX(cx,dbl,a-cha)
set ny = PolarY(cy,dbl,a-cha)
if IsPatchPatchable(cx,cy,nx,ny,a) then
set c = c + 1
set pxs[c] = nx
set pys[c] = ny
set b2 = true
endif
endloop
set a = AngleBetweenXY(cx,cy,xe,ye)
endif
endloop
call CreateTextTagLocBJ("!",Location(cx,cy),100.00,100.000,100.00,100.00,100.00,50.00)
set pmn = 0

endfunction

local real cha