Ultima Online Antares

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,0)

   UO.UseType('0x0DBF')

   while not UO.InJournal('You pull out') and not UO.InJournal('Try fishing elsewhere') and not UO.InJournal('no fish here') and not UO.InJournal('Try fishing elsewhere') and not UO.InJournal('That is too far away')and not UO.InJournal('You fish a while, but fail to catch anything')


     wait(100)

   wend

   if UO.InJournal('no fish here') OR UO.InJournal('Try fishing elsewhere') OR UO.InJournal('That is too far away') then

     return

   end if

   if UO.InJournal('You pull out a fish!') then

     counter=0

    GetFish()

   end if

until UO.Injournal('no fish here') OR UO.InJournal('Try fishing elsewhere') OR UO.InJournal('That is too far away') OR counter>MaxFailure

end sub

; FishingAround. v.2.07b (c) Edred
;
; Рыбачим вокруг чара
;
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(0x40280C91)
    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 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