Ultima Online Antares

sub fish()
uo.deletejournal()
var mx, my, mz, i, j
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
for i = mx+2 to mx+6
for j = my-3 to my+3
UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j))
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype("0x0DBF")
uo.deletejournal()
while not UO.InJournal("You pull") and not UO.InJournal("location") and not UO.InJournal("no fish") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in water")
wait(500)
wend
next
next
uo.say("forward")
wait(7000)
uo.say("stop")
uo.exec("exec fish")
end sub

var MaxFailure=8
sub FishingAround()
   var iX,iY
   for var iStep=0 to 1000
      for iX=-6 to 6
         for iY=-6 to 6
            GetAllFish(UO.GetX()+iX,UO.GetY()+iY)
         next
      next
   next
end sub

Sub GetAllFish(iX,iY)
   var counter=0
   repeat
      counter=counter+1
      UO.DeleteJournal()
      UO.WaitTargetTile(0,iX,iY,251)
      UO.UseType('0x0DBF')
      while not UO.InJournal('You pull out a') and not UO.InJournal('You fish a while, but fail to catch anything') and not UO.InJournal('There are no fish here.') and not UO.InJournal('Try fishing in water') and not UO.InJournal('Try fishing elsewhere') and not UO.InJournal('That is too far away') and not UO.InJournal('You cannot fish so close to yourself') and not uo.InJournal('*Your Fishing Pole destroyed!*')
         wait(100)
      wend
      if UO.InJournal('You pull out a') then
         counter=0
         GetFish()
      end if
   until UO.Injournal('There are no fish here.') OR UO.InJournal('Try fishing elsewhere') OR UO.InJournal('That is too far away') OR UO.InJournal('You cannot fish so close to yourself') OR UO.InJournal('Try fishing in water') OR uo.InJournal('*Your Fishing Pole destroyed!*') OR counter>MaxFailure
end sub

Sub GetFish()
   UO.set('finddistance',0)
   UO.IgnoreReset()
   UO.Ignore('self')
   UO.FindType(-1,-1,'ground')
   while UO.FindCount()>0
      UO.WaitTargetObject('finditem')
      UO.UseType('0x0F51')
      UO.Ignore('finditem')
      wait(500)
      UO.FindType(-1,-1,'ground')
   wend
   UO.Ignorereset()
   UO.Ignore('self')
   UO.FindType(-1,-1,'ground')
   while UO.FindCount()>0
      UO.Grab(0,'finditem')
      wait(100)
      UO.FindType(-1,-1,'ground')
   wend
   UO.Ignorereset()
  
end sub