Ultima Online Antares

sub main()
   var x, y,z
   VAR LastTimer
  
   UO.Set('finddistance','2')
   z=UO.GetZ("self")
   for x=-2 to 2
      for y=-2 to 2
         UO.Print(str(x)+" "+str(y))
         Repeat
            UO.DeleteJournal()
            UO.Exec("warmode 0")
            UO.WaitTargetTile("1341",STR(UO.GetX()+x),STR(UO.GetY()+Y),z)
            UO.UseType('0x0E85')
            LastTimer=UO.Timer()
            Repeat
               If uo.lastgump('replyed') == 0 && uo.lastgump('text') == 'Добыча без присутствия запрещена!' Then
                  While not uo.InJournal("Ответ")
                     wait(100)
                  Wend
               End If
               If UO.InJournal("запрещено копать") Then
                  uo.exec('terminate main')
               End If
               wait(50)
            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.InJournal("decide") or UO.InJournal("You cannot mine") or UO.Timer()>LastTimer+200

         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 UO.InJournal("You cannot mine")
         wait(50)            
      next
   next
end sub

Sub CheckLag()
   UO.DeleteJournal()
   UO.Click('backpack')
   repeat
      wait(100)
   until UO.InJournal("Backpack")
end sub