sub Mining() 
var mx, my, mz, i, j 
repeat 
uo.addobject("PickAxe",0x4195A2D8) ;ID кирки 
na4: 
; gotoxy(5136,1181) ; 
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
UO.DeleteJournal() 
for i = mx-4 to mx+4 
for j = my-4 to my+4 
while not UO.Hidden() 
UO.Warmode("0") 
UO.UseSkill("Hiding") 
wait(400) 
wend 
UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j)) 
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock") 
UO.DeleteJournal() 
if uo.waiting() then 
uo.canceltarget() 
endif 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Useobject("PickAxe") 
while not UO.InJournal("You put") and not UO.InJournal("heavy") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock") 
wait(500) 
endif 
wend 
UO.DeleteJournal() 
if uo.Weight>820 then ; 
end sub 
goto na4 
endif 
next 
next 
until uo.dead() 
end sub