sub Step(x,y,mx,my,forstep) 
  if uo.GetX('self') <> x then 
    if uo.GetY('self') <> y then 
      if mx<0 then 
        if my<0 then 
          uo.Press(40) 
          wait(forstep) 
        else 
          uo.Press(39) 
          wait(forstep) 
        end if 
      else 
        if my<0 then 
          uo.Press(37) 
          wait(forstep) 
        else 
          uo.Press(38) 
          wait(forstep) 
        end if 
      end if 
    else 
      if mx<0 then 
        uo.Press(34) 
        wait(forstep) 
      else 
        uo.Press(36) 
        wait(forstep) 
      end if 
    end if 
  else 
    if my<0 then 
      uo.Press(35) 
      wait(forstep) 
    else 
      uo.Press(33) 
      wait(forstep) 
    end if 
  end if 
end sub 

sub Go_To(x,y) 
var mx,my,fx,fy 
  var xx=x 
  var yy=y 
  var DistX=0 
  var DistY=0 
  var forstep=300 
  
  repeat 
    mx=uo.GetX('self')-x 
    my=uo.GetY('self')-y 
    fx=mx+x 
    fy=my+y 
    Step(xx,yy,mx,my,forstep) 
  until x==fx+DistX && y==fy+DistY || x==fx-DistX && y==fy+DistY || x==fx+DistX && y==fy-DistY || x==fx-DistX && y==fy-DistY || x==fx && y==fy 
end sub

Go_To(твоя координата по Х,твоя координата по Y)

 ,infotile

sub go(x,y)
var myX,myY,i,z
for i=1 to 90
MyX=uo.getX()
MyY=uo.getY()
if abs(x-myX)==0 AND abs(y-myY)==0 then
return
end if
if x<=MyX then
if y<=MyY then
for z=0 to 1
uo.press( 38 )
next
else
for z=0 to 1
uo.press(37)
next
end if
else
if y<=MyY then
for z=0 to 1
uo.press(39)
next
else
for z=0 to 1
uo.press(40)
next
end if
end if
wait(200)
next
end sub

Sub abs(num)
if num>=0 then
return num
else
return num*(-1)
end if
end sub