sub main()
   var x,y
   while not uo.dead()    
    for x=0 to 6
     for y=0 to 6
      UO.Exec("waittargettile 0 "+STR(UO.GetX()+x)+" "+STR(UO.GetY()+y)+" 0") 
      zabros()      
         UO.Exec("waittargettile 0 "+STR(UO.GetX()-x)+" "+STR(UO.GetY()-y)+" 0") 
      zabros()
     next 
    next
   wend
end sub

sub zabros()
 uo.findtype('0x0dbf',-1,'my')
 if uo.findcount()==0 then
  uo.usefromground('0x3eae') ## открываем трюм
  uo.findtype('0x0dbf', -1,'lastcontainer')
  uo.grab('finditem')
  uo.euip('Rhand', 'finditem')
 endif
 uo.usetype(0x0dbf)
 while not (uo.injournal("You catch a nice fish!") or uo.injournal("seem to be") or uo.injournal("fish there!"))
  wait(100)
 wend
 uo.deletejournal()
end sub