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
ну мне надо чтоб он ходил по квадрату, а то если по этим он у меня идет по премой и потом реска в низ и не останавливается
