Yoko

Code: Select all

sub Fishing()
   VAR tUdochka  = '0x0DBF'  #удочка
   VAR MaxWeigth = UO.STR*3  #максимальный вес
   VAR NumTile   = '6040'    #тайл воды
   VAR myX = UO.GetX()
   VAR myY = UO.GetY()
   VAR myZ = -5
   VAR x, y, k = 0

   for x = -6 to 6
      for y = -6 to 6
         UO.DeleteJournal()
         UO.Print("Рыбачим в точке: " + str(x) + " " + str(y))
         #Рыбачим ...
         while not UO.Dead() and not UO.InJournal("Это слишком далеко|Вы не можете рыбачить здесь|Это место отсюда не видно|Похоже здесь нет рыбы|Вы сломали|Этот предмет поломан")
            if UO.Waiting() then
               UO.CancelTarget()
            endif
            CheckLag()
            UO.DeleteJournal()
            UO.WaitTargetTile(NumTile, str(myX+x), str(myY+y), str(myZ))
            UO.UseType(tUdochka)
            #Забросили удочку. Ждем результат лова.
            k = 0
            while not UO.InJournal("Это слишком далеко|Вы не можете рыбачить здесь|Это место отсюда не видно|Похоже здесь нет рыбы|Кажется сегодня не клюёт|Вы поймали|Вы сломали|Этот предмет поломан") and (k < 50)
               wait(100)
               k = k + 1
            wend
            if UO.Weight > MaxWeigth or UO.InJournal("Вы сломали|Этот предмет поломан") then
               UO.Print("Удочка сломана.")
               UO.Print("-= РЫБАЛКА ЗАКОНЧЕНА =-")
               return
            endif
            if UO.Weight > MaxWeigth then
               UO.Print("Набран максимальный вес.")
               UO.Print("-= РЫБАЛКА ЗАКОНЧЕНА =-")
               return
            endif
         wend
      next
   next
   UO.Print("-= РЫБАЛКА ЗАКОНЧЕНА =-")
endsub

Sub CheckLag()
   DelJournal("сумка")
   UO.Click('backpack')
   repeat
      wait(10)
   until UO.InJournal("сумка")
endsub

Sub DelJournal(mesg)
   while UO.InJournal(mesg)
      UO.SetJournalLine(UO.InJournal(mesg) - 1, "")
   wend
endsub