Начальные первые числа переделал, а вот вторых 2 числа я нензаю откуда взять
sub go(x,y,k,m)
while UO.GetX()<>x or UO.GetY()<>y
UO.Press(k)
CheckLag()
wend
if m==1 then
Dig()
end if
end sub
sub main()
while Not UO.Dead()
FollowMine()
UnLoad()
ToEat()
GoBeg()
wend
end sub
sub FollowMine()
dig()
go(1376,2778,33,1) #ok
go(1376,2780,35,0) #ok
go(1378,2780,34,1) #ok
go(1378,2782,35,0) #ok
go(1380,2782,34,1) #ok
go(1380,2784,35,0) #ok
go(1381,2784,34,1) #ok
go(1381,2786,35,0) #ok
go(1384,2786,34,1) #ok
go(1384,2789,35,0) #ok
go(1385,2789,34,1) #ok
go(1385,2790,35,0) #ok
go(1387,2790,34,1) #ok
go(1387,2791,35,0) #ok
go(1389,2791,34,1) #ok
go(1389,2792,35,0) #ok
go(1391,2792,34,1) #ok
go(1391,2793,35,0) #ok
go(1393,2793,34,1) #ok
go(1393,2795,35,0) #ok
go(1396,2795,34,1) #ok
go(1396,2796,35,0) #ok
go(1399,2796,34,1) #ok
go(1399,2798,35,0) #ok
go(1403,2798,34,1) #ok
go(1405,2798,34,1) #ok
go(1405,2799,35,0) #ok
go(1408,2799,34,1) #ok
go(1408,2802,35,0) #ok
go(1410,2802,34,1) #ok
go(1410,2804,35,0) #ok
go(1412,2804,34,1) #ok
go(1394,2804,36,0) #ok
go(1394,2794,33,0) #ok?
go(1378,2794,36,0) #ok?
go(1378,2781,33,0)
go(1376,2781,36,0)