Ultima Online Antares

sub mineone() 
var x,y,z, n
VAR LastTimer 
UO.Set('finddistance','2')
n=0
z=UO.GetZ("self") 
  for x=-2 to 2 
  for y=-2 to 2 
  if x== 0 && y== 0 then
  next
  endif
  UO.Print(str(x)+" "+str(y))
  Repeat 
  UO.DeleteJournal()
  UO.Warmode("0")
  UO.WaitTargetTile("1341",STR(UO.GetX()+x),STR(UO.GetY()+Y),str(z)) 
  UO.UseType('0x0E85')
  LastTimer=UO.Timer() 
  Repeat
  wait(500)
  Until UO.InJournal("You put") or UO.InJournal("can't see") or UO.InJournal("heavy") or UO.InJournal("location") or UO.InJournal("no ore") or UO.InJournal("but fail") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("must wait") or UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("where it")
  if UO.InJournal("You put") then 
  n=0
  else
  n=n+1
  endif
  Until UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("no ore here") or UO.InJournal("location") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("where it") or n>=5
  next 
  next
end sub