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") 
      UO.DeleteJournal() 
      for i = mx-2 to mx+2 
         for j = my -2 to my +2 
            UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j)) 
            while not UO.InJournal("nothing here to mine") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("cannot mine so close") and not UO.InJournal("in rock") and not UO.InJournal("iron") 
               UO.DeleteJournal() 
               UO.Waittargettile("1341", str(i), str(j), str(mz)) 
               UO.Usetype("0x0e85") 
               while not UO.InJournal("Вы положили") and not UO.InJournal("location") and not UO.InJournal("nothing here to mine") and not UO.InJournal("but fail") and not UO.InJournal("cannot mine so close") and not UO.InJournal("nothing here to mine") and not UO.InJournal("far away") and not UO.InJournal("in rock") 
                  wait (100) 
               wend 
            wend 
            UO.DeleteJournal() 
         next 
      next 
   next 
end sub