Yoko

что я совсем замучался,мне вот надо сделать ходилку чтоб допустим при слове bla чар шол на координату ещо раз bla на другую координату и так после каздова слова на другую координату,всего 4 координаты

sub bla()
if UO.InJournal("bla") then
wait(500)
Uo.GoToXY(4448,3194,"") ##тут вставь координаты куда идти
UO.DeleteJournal()
wait(500)
end if
end sub

sub GotoXY(x,y,prec)
var myX,myY,LastX=0,LastY=0,i,halt=0,z,r=0
for i=1 to 60
myX=uo.GetX()
myY=uo.GetY()
if LastX==myX and LastY==myY then
halt=halt+1
else
halt=0
end if
if halt>=10 then
if uo.GetDir()==1 then
for z=0 to 8
uo.Press(40)
next
end if
if uo.GetDir()==3 then
for z=0 to 8
uo.Press(37)
next
end if
if uo.GetDir()==5 then
for z=0 to 8
uo.Press(38)
next
end if
if uo.GetDir()==7 then
for z=0 to 8
uo.Press(39)
next
end if
halt=15
end if
if Numb(x-myX)<=1 and Numb(y-myY)<=2 then
return 1
end if
if x<=myX then
if y<=myY then
for z=0 to 3
uo.Press(38)
next
else
for z=0 to 3
uo.Press(37)
next
end if
else
if y<=myY then
for z=0 to 3
uo.Press(39)
next
else
for z=0 to 3
uo.Press(40)
next
end if
end if
LastX=myX
LastY=myY
wait(200)
next
return 0
end sub

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

вот я тут чтото начал но тока запутался немного как зделать чтоб он шол по 4 рeм коодинатам и после 4 возвращался к 1?

sub bla()
UO.DeleteJournal()  
while 1
while not UO.InJournal("bla")
 wait(500)
wend 
GoToXY(4448,3194,"") ##тут вставь координаты куда идти 
UO.DeleteJournal()  
while not UO.InJournal("bla")
 wait(500)
wend 
GoToXY(4448,3194,"") ##тут вставь координаты куда идти 
UO.DeleteJournal()  
while not UO.InJournal("bla")
 wait(500)
wend 
GoToXY(4448,3194,"") ##тут вставь координаты куда идти 
UO.DeleteJournal()  
while not UO.InJournal("bla")
 wait(500)
wend 
GoToXY(4448,3194,"") ##тут вставь координаты куда идти 
UO.DeleteJournal()  
wend
end sub

что-то в этом роде

Спасибо всё работает