sub Mining() 
var mx, my, mz, i, j, z 
for z = 1 to 100 
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
drop()
UO.DeleteJournal() 
hide() 
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)) 
      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 not UO.InJournal("Iron Ore") and not UO.InJournal("Magma Ore") and not UO.InJournal("Mystic Ore") and not UO.InJournal("Sandrock Ore") and not UO.InJournal("Ancient Ore") 
hide()
UO.DeleteJournal() 
         UO.Waittargettile("1341", str(i), str(j), str(mz)) 
         UO.Usetype("0x0e85") 
         while not UO.InJournal("You put") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("where") and not UO.InJournal("no ore here") and not UO.InJournal("far away") and not UO.InJournal("in rock") 
            wait (100) 
         wend 
      wend 
      UO.DeleteJournal() 
   next 
next 
      UO.Press(34) 
         wait(100) 
      UO.Press(34) 
         wait(100) 
      UO.Press(34) 
         wait(100) 
      UO.Press(34) 
         wait(100) 
next 
end sub 

sub hide() 
 while not UO.Hidden() 
   uo.WarMode("0") 
   uo.UseSkill("Hiding") 
     wait(1500) 
 wend 
end sub

sub drop()
   var Iron='0x19B9'
   var i
   for i = 0 to 50
  UO.FindType(0x19B9,0x0000,'backpack') 
  UO.Drop(1, STR(UO.GetX('self')), STR(UO.GetY('self')), STR(UO.GetZ('self')-3), "finditem") 
      UO.DeleteJournal() 
    Next 
    UO.Print("Done.") 
end sub