Ultima Online Antares

; it's no Creature script    работает
################### Рыболов ####################
sub FishingAround()
  VAR X, Y, i, MaxRange = 6, MaxVes = 620
  VAR knife = '0x0F51'  ; нож
  VAR Steak = '0x097A'
  VAR Bag = '0x40205DFE'

DIM Fish[5]
  Fish[1]  = '0x09CC'  ; тип рыбы 1
  Fish[2]  = '0x09CD'  ; тип рыбы 2
  Fish[3]  = '0x09CE'  ; тип рыбы 3
  Fish[4]  = '0x09CF'  ; тип рыбы 4

for Y = -MaxRange to MaxRange
for X = -MaxRange to MaxRange
if FishTiles(UO.GetX()+X, UO.GetY()+Y) then
   repeat
  UO.DeleteJournal('anything|pull out|поймали|You can|не получилось|no fish|нету рыбы|месте|далеко|вытащили удочку')
    UO.Warmode(0)
         wait(100)
    UO.WaitTargetTile(FishTiles(UO.GetX()+X, UO.GetY()+Y), UO.GetX()+X, UO.GetY()+Y, UO.GetZ())
;Hide()
; ********************************
; Auto Tools
    if UO.Count(0x0DBF) || UO.Count(0x0DC0) then
     if UO.Count(0x0DBF) then
      UO.UseType(0x0DBF); <-- удочка
     else
      UO.UseType(0x0DC0); <-- удочка
    endif
    else
     return 1
    endif
; ********************************
      repeat
     wait(100)
    until UO.InJournal('pull out|anything|поймали|You can|не получилось|no fish|нету рыбы|месте|далеко|вытащили удочку')
  For i=1 To 4
     UO.FindType( Fish[i], -1, 'ground' )
wait(200)  ; tit
     If UO.FindCount() > 0 Then
        UO.Grab( 0, 'finditem' )
        Wait( 100 )
     Endif
  Next
   If UO.Weight > MaxVes Then
    UO.Print('Перегруз!')
     return 0
   endif
  until UO.InJournal("no fish|нету рыбы|anything|в другом месте|далеко|вытащили удочку") || UO.Dead()
For i=1 To 4
     UO.FindType( Fish[i] )
wait(200)  ; tit
     If UO.FindCount() > 0 Then
           UO.WaitTargetObject( 'finditem' )
           UO.UseType( knife )
           Wait( 500 )
           UO.FindType( Steak )
wait(200)  ; tit
           If UO.FindCount() > 0 Then
              UO.MoveItem( 'finditem', '0' , Bag )
              wait( 500 )
          Endif
       Endif
   Next
endif
   next
     next
UO.Print(" = Вся рыба в квадрате поймана = ")
UO.Sound(100)
return 0
end sub

Sub FishTiles(X,Y)
var j
if UO.PrivateGetTile(X, Y, -1, 6038, 6066) then
for j=6038 to 6066
  if UO.PrivateGetTile(X, Y, -1, j, j) then
   return j
  end if
next
end if
return 0
end sub