Мининг хелп(юзал поиск не помогло)

[Adrenalinium]

Если у каво то есть скрипт на мининг на примере такова

Code: Select all

sub kopanie(x,y) 
uo.exec("usetype '0x0e85'") 
wait(500) 
UO.LClick(x,y) 
wait(5000) 
end sub 
sub main() 
var x1, y1, x2, y2, xp, x, y, z1 
repeat1: 
if y1==420 then 
y1=300 
y2=180 
z1= -1 
x1=300 
x2=520 
else 
y1=300 
y2=420 
z1= 1 
x1=300 
x2=520 
endif 
while y1 <> y2 
xp=x1 
while xp <> x2 
x=xp 
y=y1 
kopanie(x,y) 
xp=xp+20 
wend 
y1=y1+z1*20 
x1=x1+20 
x2=x2-20 
wend 
goto repeat1 
end sub

только когда выкопал всё вокруг себя делал 3-4 шага вперёд, а когда там всё выкопал шол 3-4 шага назад+ чтоб хавку ел.
Юзнул поиск не помогло. Ув. скриптёры помогите.сервер
[url=fof.od.ua]FOF[url]
Спасибо.[/url]