Ultima Online Antares

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