Ultima Online Antares

Sub mine()
   var x, y, i, t, tmp, inside, goto_x, st, first
   VAR ms1 = "There is nothing here to mine for"
   VAR ms2 = "You can't use"
   VAR ms3 = "You put "
   VAR ms4 = "You loosen some rocks"
   VAR ms5 = "location"
   VAR ms6 = "Try mining"
   VAR ms7 = "You can't see that"
   VAR ms8 = "You stop"
   VAR ms9 = "That is too"
   first=UO.GetX()
   start:
   inside=0
   for y=-1 to 1
      for x=-1 to 1
         repeat
            uo.deletejournal()
            t = UO.Timer()
            UO.Exec ("waittargettile "+" 1340 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0")
            UO.exec ("usetype 0x0E85")
            repeat
               wait(300)
            until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR UO.InJournal(ms9) OR ((t + 100) < UO.Timer())
         until not UO.InJournal(ms8)
      next
   next
end sub

sub main()
   var i
   While UO.Life>0
      for i=1 to 7
         mine()
         uo.press(34)
         wait(500)
         uo.press(34)
         wait(500)
         uo.press(34)
      next
      uo.press(33)
      wait(500)
      uo.press(33)
      wait(500)
      uo.press(33)
      mine()
      for i=1 to 7
         uo.press(36)
         wait(500)
         uo.press(36)
         wait(500)
         uo.press(36)
      next
      uo.press(33)
      wait(500)
      uo.press(33)
      wait(500)
      uo.press(33)
   wend
end sub