Page 1 of 1

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

Posted: 2006-07-01 15:02:03
by 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]

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

Posted: 2006-07-01 15:14:04
by ДРВ
Harpoon wrote:

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]
а смысл какой?

Posted: 2006-07-01 15:17:12
by qwerty123
ну мне надо чтоб он ходил по квадрату, а то если по этим он у меня идет по премой и потом реска в низ и не останавливается :(