Ultima Online Antares

sub FISHING()
   DIM ULOVtype[7]
       ULOVtype[0] = '0x09CC'      #fish1
       ULOVtype[1] = '0x09CD'      #fish2
       ULOVtype[2] = '0x09CE'      #fish3
       ULOVtype[3] = '0x09CF'      #fish4
       ULOVtype[4] = '0x0f51'      #Prize Fish
       ULOVtype[5] = '0x0DD6'      #Truly Rare Fish
       ULOVtype[6] = '0x14EB'      #Tattered Treasure map
   VAR udochka   = '0x0DBF'
   VAR nozh      = '0x0F51'
   VAR NumTile   = '6043'
   VAR MaxWeigth = UO.STR*4
   VAR i, x, y, k
   wait(500)
   UO.Equipt('Rhand', udochka)
start:
   for x=-6 to 6
      for y=-6 to 6
         UO.Print("Рыбачим в точке: " + str(x) + " " + str(y))
         UO.DeleteJournal()
         while not UO.InJournal("no fish here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in water")
            k = 0
            if UO.Weight > MaxWeigth then
               goto finish
            endif
            UO.DeleteJournal()
            UO.WaitTargetTile(NumTile, str(UO.GetX()+x), str(UO.GetY()+y), str(UO.GetZ()))
            UO.UseType(udochka)
            while not (UO.InJournal("in water") or UO.InJournal("far away") or UO.InJournal("but fail") or UO.InJournal("You pull") or UO.InJournal("no fish here") or UO.InJournal("location") or k==50)
               k = k + 1
               wait(200)
               if UO.InJournal("Targeting Cancelled") then
                  goto start
               endif
            wend
            #собираем улов
            if UO.InJournal("You pull") then
               for i=0 to 6
                  UO.FindType(ULOVtype[i], '-1', 'ground')
                  UO.moveitem('finditem')
                  wait(50)
               next
            endif
         wend
      next
   next
finish:
   UO.Print("Набран максимальный вес улова")
   wait(1000)
   #режем рыбу
   UO.Print("Режем рыбу на фиш стейки")
   for i=0 to 3
      UO.WaitTargetType(ULOVtype[i])
      UO.UseType(nozh)
      wait(1000)
   next
   if UO.Weight < MaxWeigth-5 then
      goto start
   endif
   UO.Print("Рыбалка закончилась")
endsub

var MaxFailure=8
sub FishingAround()
    var iX,iY
    for var iStep=0 to 1000
        for iX=-6 to 6
            for iY=-6 to 6
                if iX==0 and iY==0    then
                next
                end if
              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')
            wait(100)
        wend
        if 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') then
            return
        end if
        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 counter>MaxFailure
end sub

Sub GetFish()
    UO.set('finddistance',0)
    UO.IgnoreReset()
    UO.Ignore('self')
    UO.FindType('0x352D',-1,'ground')
    UO.Ignore('finditem')
    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('0x352D',-1,'ground')
    UO.Ignore('finditem')
    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

var MaxFailure=8
sub FishingAround()
    var iX,iY
    for var iStep=0 to 1000
        for iX=-6 to 6
            for iY=-6 to 6
                if iX==0 and iY==0    then
                next
                end if
              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 fish!') 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 elsewhere') and not UO.InJournal('That is too far away') and not UO.InJournal('You cannot fish so close to yourself')
            wait(100)
        wend
        if 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') then
            return
        end if
        if UO.InJournal('You pull out a fish!') 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 counter>MaxFailure
end sub

Sub GetFish()
    UO.set('finddistance',0)
    UO.IgnoreReset()
    UO.Ignore('self')
    UO.FindType('0x352D',-1,'ground')
    UO.Ignore('finditem')
    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('0x352D',-1,'ground')
    UO.Ignore('finditem')
    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