Ходилка по кругу

[qwerty123]

Code: Select all

st == 0 then
 posit=UO.GetX()
 posit=posit+5
 while UO.GetX() < posit
  UO.Press (39, 1, 500)
 wend 
 st=1
 goto start
endif

if st == 1 then
 posit=UO.GetY()
 posit=posit+5
 while UO.GetY() < posit
  UO.Press (40, 1, 500)
 wend 
 st=2
 goto start
endif

if st == 2 then
 posit=UO.GetX()
 posit=posit-5
 while UO.GetX() > posit
  UO.Press (37, 1, 500)
 wend 
 st=3
 goto start
endif

if st == 3 then
 posit=UO.GetY()
 posit=posit-5
 while UO.GetY() > posit
  UO.Press (38, 1, 500)
 wend 
 st=0
 goto start
endif 

Как мне сделать чтоб он ходил по кругу? плиз помагите[/code]

[ДРВ]

Code: Select all

st == 0 then
 posit=UO.GetX()
 posit=posit+5
 while UO.GetX() < posit
  UO.Press (39, 1, 500)
 wend 
 st=1
 goto start
endif

if st == 1 then
 posit=UO.GetY()
 posit=posit+5
 while UO.GetY() < posit
  UO.Press (40, 1, 500)
 wend 
 st=2
 goto start
endif

if st == 2 then
 posit=UO.GetX()
 posit=posit-5
 while UO.GetX() > posit
  UO.Press (37, 1, 500)
 wend 
 st=3
 goto start
endif

if st == 3 then
 posit=UO.GetY()
 posit=posit-5
 while UO.GetY() > posit
  UO.Press (38, 1, 500)
 wend 
 st=0
 goto start
endif 

Как мне сделать чтоб он ходил по кругу? плиз помагите[/code]

а смысл какой?

[qwerty123]

ну мне надо чтоб он ходил по квадрату, а то если по этим он у меня идет по премой и потом реска в низ и не останавливается