sub mining() 
var mx, my, mz, i, j 
var ismining, ixx, isheavy 
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 

uo.setcatchbag('0x4046A0D5') 

While not UO.Dead() 
UO.DeleteJournal() 
for i = mx-4 to mx+4 
for j = my -4 to my+4 
UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j)) 
ismining = 1 
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock") and ismining 

UO.DeleteJournal() 
hide() 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Usetype('0x0E85') 
#UO.Usetype('0x0F39')
ixx = 0 
ismining=1 
while not UO.InJournal("You put") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("far away") and not UO.InJournal("in rock") and ixx <= 100 
wait (100) 
ixx = ixx + 1 
wend 
while UO.InJournal("but fail") 
Wait (100) 
UO.DeleteJournal() 
wend 



if uo.injournal("Rusty") then 
ismining = 0 
endif 
if uo.injournal("Old Copper") then 
ismining = 0 
endif 
if uo.injournal("Dull Copper") then 
ismining = 0 
endif 
if uo.injournal("the Copper") then 
ismining = 0 
endif 
if uo.injournal("Iron") then 
ismining = 0 
endif 
if not ismining then 
uo.print("Not mining here") 
endif 
wend 
UO.DeleteJournal() 
next 
next 
wend 
end sub 

sub hide() 
while not UO.Hidden() 
UO.Warmode("0") 
UO.UseSkill("Hiding") 
wait(4000) 
wend 
end sub 


sub CheckLag() 
UO.DeleteJournal() 
UO.Click('backpack') 

repeat 
wait(50) 
until UO.InJournal('backpack') 
end sub