Ultima Online Antares

sub Mining()
  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
  UO.Print(str(x)+" "+str(y))
  Repeat
  if UO.InJournal('TORMOZ') then
  pause()
  endif
  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") OR UO.Timer()>LastTimer+200
  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