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