# правильно вбей все переменные!!!
# чар идет строго вверх и вниз!!!!!!!!!!!!!!!
var Kirka='0x0F39' #тип кирки
var vx=123#координата х вверху 
var vy=123#координата у вверху
var nx=123# х внизу
var ny=123# у внизу
var m,n

sub main()
while not uo.dead()
while uo.getx()<>vx and uo.gety()<>vy
 minround() 
 m=uo.getx()
 n=uo.gety()
 while uo.getx()<>m-1 and uo.gety()<>n-1
  uo.press(38)
  wait(500)
 wend
wend
while uo.getx()<>nx and uo.gety()<>ny
 minround() 
 m=uo.getx()
 n=uo.gety()
 while uo.getx()<>m+1 and uo.gety()<>n+1
  uo.press(40)
  wait(500)
 wend
wend
wend
endsub

Sub minround() 
VAR TileNum = '1339' 
VAR x, y, t, k 
VAR MaxTime = 100  
VAR ms1 = "There is no ore here to mine" 
VAR ms2 = "You can't use" 
VAR ms3 = "You put the" 
VAR ms4 = "You loosen some rocks" 
VAR ms5 = "You are too far away" 
VAR ms6 = "Try mining in rock" 
VAR ms7 = "You can't see that" 
uo.useobject('backpack') 
for y=-1 to 1 
for x=-1 to 1  
  k = 0 
  repeat 
    UO.DeleteJournal() 
    t = UO.Timer() 
    k = k + 1 
    wait(300) 
    UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0) 
    UO.UseType( Kirka ) 
    uo.deletejournal() 
    repeat 
     wait(100) 
    until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t + MaxTime) < UO.Timer()) 
  until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) ) 
 next 
next 
endsub 

-Вам какого хлеба : черного или белого?
-Черного.
-А его нету.