Ultima Online Antares

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') and not uo.InJournal('*Your Fishing Pole destroyed!*')
            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') OR uo.InJournal('*Your Fishing Pole destroyed!*') 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 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

        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') OR uo.InJournal('*Your Fishing Pole destroyed!*') then
            return
        end if

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

sub FishingAround()
   VAR Ms0 = "You can't see"       ; ?? ????? ????? ?????
   VAR Ms1 = "You can't fish under the ship" ; ?? ????? ?????? ?????
   VAR Ms2 = "You are too far away"    ; ??????
   VAR Ms3 = "There are no fish here"    ; ????????? ???
   VAR Ms4 = "You fish a while, but fail to catch anything" ; ????
   VAR Ms5 = "You pull out"       ; ?????? ???-??
   VAR Ms6 = "Try fishing"    ; ?? ????? ?????? ?????
   VAR k, t, v, x, y
   VAR MaxTime = 800
   For y = -4 To 4
      For x = -4 To 4
         k = 0
         repeat
            If UO.Dead() Then
               return
            Endif
            DeleteJournal(ms0)
            DeleteJournal(ms1)
            DeleteJournal(ms2)
            DeleteJournal(ms3)
            DeleteJournal(ms4)
            DeleteJournal(ms5)
            DeleteJournal(ms6)
            t = UO.Timer()
            If UO.Waiting() Then
               UO.CancelTarget()
            Endif
            UO.WaitTargetTile( '0', STR( UO.GetX() + x ), STR( UO.GetY() + y ), '251')
            UO.UseObject( UO.GetSerial( UO.ObjAtLayer( 'Lhand' ) ) )
            repeat
               wait(100)
            until UO.InJournal(ms0) OR UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR ((t + MaxTime) < UO.Timer())
            k = k + 1
            If UO.InJournal(ms5) Then
               k = 0
            Endif
            If UO.Dead() Then
               return
            Endif
            If UO.InJournal( ms5 ) Then
               GetResultFish()
            Endif
         until UO.InJournal(ms0) OR UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR (k > 6)
         If UO.Dead() Then
            return
         Endif
      Next
   Next
endsub

Sub GetResultFish()
; ------- ???? -------
   DIM Fish[18]
   Fish[0]  = '0x170B' ; ??????
   Fish[1]  = '0x170F' ; ?????
   Fish[2]  = '0x170D' ; ????????
   Fish[3]  = '0x1711' ; ??????
   Fish[4]  = '0x09CC' ; ??? ???? 1
   Fish[5]  = '0x09CD' ; ??? ???? 2
   Fish[6]  = '0x09CE' ; ??? ???? 3
   Fish[7]  = '0x09CF' ; ??? ???? 4
   Fish[8]  = '0x0FC4' ; ???????, ??? 1
   Fish[9]  = '0x0FC5' ; ???????, ??? 2
   Fish[10] = '0x0FC6' ; ???????, ??? 3
   Fish[11] = '0x0FC7' ; ???????, ??? 4
   Fish[12] = '0x0FC8' ; ???????, ??? 5
   Fish[13] = '0x0FC9' ; ???????, ??? 6
   Fish[14] = '0x0FCA' ; ???????, ??? 7
   Fish[15] = '0x0FCB' ; ???????, ??? 8
   Fish[16] = '0x0FCC' ; ???????, ??? 9
   Fish[17] = '0x14ED' ; ?????
   VAR Razmer = 17    ; ?????? ??????? - 1
   VAR Scissor = '0x0F9E' ; ??? ??????
   VAR Bandag = '0x0E21'    ; ??? ??????
   VAR i
; ???? ??? ? ??? ???????? ??? ??????, ???? ???? ??????????????
; ? ?????????? ? ????. ????? ?????? ?????? ??????? ?????? ? ??????.
   For i = 0 To Razmer
      UO.FindType( Fish[i], '-1', 'ground' )
      If UO.FindCount() > 0 Then
         If i < 4 Then
          ; ?????
            UO.WaitTargetObject( 'finditem' )
            UO.UseType( Scissor )
            Wait( 3000 )
            UO.FindType( Bandag )
         Endif
         UO.Grab( '0', 'finditem' )
         Wait( 2000 )
         If i > 7 AND i < 17 Then
          ; ???????
            UO.UseObject( 'finditem' )
            wait(1000)
         Endif
      Endif
   Next
endsub

sub Food()
VAR food = '0x097A'
    while NOT UO.Dead()
    UO.DeleteJournal()
    UO.WaitTargetObject(0x40002877)
    UO.UseType(food)
    repeat
        wait(500)
    until UO.InJournal('You burn') OR UO.InJournal('You put')

    wend
end sub

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



Sub DeleteJournal( string1 )
   VAR nom = UO.InJournal( string1 )
   If nom > 0 Then
      UO.SetJournalLine( Nom - 1, 'string replaced' )
      DeleteJournal( string1 )
   Endif
endsub