sub fishing()
 var x
 var y
 var mx
 var fishtype
 var fishpack
 var i
 var j
 var pole=uo.ObjAtLayer("Lhand")
 var fw=0
 var mc=0;
 var dir='Left';
   uo.print(pole)
  uo.set('injectecho','1')
  uo.print('Выбери пак для мана-рыбы')
  uo.deleteJournal()
  uo.addObject('fishmanapack')
  i=0
  repeat
   wait(100)
   i=i+1
  until uo.inJournal('Object updated') or i>100

  uo.print('Выбери пак для трэш-рыбы')
  uo.deleteJournal()
  uo.addObject('fishbadpack')
  i=0
  repeat
   wait(100)
   i=i+1
  until uo.inJournal('Object updated') or i>100

  uo.print(uo.GetSerial('fishmanapack')+','+uo.GetSerial('fishbadpack'))
 fishst:
  y=-6  
  repeat
    x=-6
    repeat
     fw=0
     fishl1:
      if uo.injournal("He-he") then
        wait(7000)
      end if  
      uo.DeleteJournal()
      uo.exec('waittargettile tile '+Str(uo.GetX()+x)+' '+Str(uo.GetY()+y)+' 251')
      uo.useObject(pole)
      j=0
      repeat
        wait(200)
        j=j+1
      until uo.InJournal("You pull") or uo.InJournal("You fish a while") or uo.InJournal("There are no fish") or uo.InJournal("That is too far") or j>100
      if uo.InJournal("There are no fish") or uo.InJournal("That is too far") then
        uo.print("fishln1")
        goto fishln1
      end if
      if uo.InJournal("You fish a while") then
        fw=fw+1
        uo.print("Попытка "+str(fw))
        if fw>9 then
          goto fishlnl
        end if  
      end if
      if uo.InJournal("You pull") then
        fw=0
        goto fishln1
      end if
      goto fishl1
  fishln1:
      x=x+1
    until x>6
####### разбор рыбы начинается
    grabtype('gr_fish',-1,'gr_fish_pack',0)
    wait(100)
    grabtype('kor_fish',-1,'kor_fish_pack',0)
    wait(100)
    grabtype('yel_fish',-1,'yel_fish_pack',0)
    wait(100)
    grabtype('blu_fish',-1,'blu_fish_pack',0)
    wait(100)
    uo.ignorereset()
   fishgr:
    repeat
      uo.findtype('sm_fish',0,'ground')
      if uo.findcount()==0 then
        goto fishl2
      end if
     ;brunex
      uo.useobject('finditem') 
     ;blondex
     ;  grabtype('sm_fish',0,'fishbadpack',1)      
     ;  uo.findtype(-1,-1,'fishbadpack')
     ;  if uo.findcount()>=254 then
     ;    fishnewpack(1)
     ;  end if
     ;/blond
      uo.ignore('finditem')
      wait(500)
    until uo.findcount()==0  
    if uo.injournal("He-he") then
        wait(7000)
    end if  

   fishl2:
    uo.ignorereset()
    repeat
      uo.findtype('sm_fish',0,'ground')
      if uo.findcount()<>0 then
        goto fishgr
      end if
      grabtype('sm_fish',0x078B,'fishbadpack',1)
      uo.findtype(-1,-1,'fishbadpack')
      if uo.findcount()>=255 then
        fishnewpack(1)
      end if
      grabtype('sm_fish',0x0798,'fishbadpack',1)
      uo.findtype(-1,-1,'fishbadpack')
      if uo.findcount()>=255 then
        fishnewpack(1)
      end if
      grabtype('sm_fish',0x0791,'fishmanapack',1)
      uo.findtype(-1,-1,'fishmanapack')
      if uo.findcount()>=255 then
         fishnewpack(0)
      end if
      uo.findtype('sm_fish',-1,'ground')      
    until uo.findcount()==0  
######## разбор рыбы закончен
   fishl3:
    uo.ignorereset()
    y=y+1
  until y>6
 fishex:
 mx=uo.GetX()
 mc=0;
 while (uo.GetX()-mx)*(uo.GetX()-mx)<169
  uo.say(dir)
  wait(2000)
  uo.say('Stop')  
  wait(1000)
  mc=mc+1
  if mc>40 then
   if dir=='Right' then
      dir='Left'
      mc=0
   else
      dir='Right'
      mc=0
   end if
  end if
 Wend
 goto fishst
end sub

sub grabtype(tp,col,pck,bool)
    uo.ignorereset()
    uo.set('finddistance','4')
    repeat
      uo.findtype(tp,col,'ground')
      if uo.findcount()==0 then
        goto grabtypeex
      end if
      if bool==0 then
        uo.moveitem('finditem','all',pck) 
      else
        uo.exec('moveitem finditem all '+pck+' 100 100 0') 
      end if
      uo.ignore('finditem')
      wait(600)
    until uo.findcount()==0  
    grabtypeex:
    wait(400)
end sub

sub fishnewpack(ch)
var fpack
 uo.ignorereset()
 uo.ignore('fishmanapack')
 uo.ignore('fishbadpack')
 fnpst:
  uo.findtype(0x0E75,-1,'myShipHatch')
  if uo.findcount()==0 then
    uo.print('Не хватает паков')
    uo.closeuo()
  end if
   uo.print('>paks>'+str(uo.findcount()))
   wait(500)
  if ch==0 then
    uo.addobject('fishmanapack','finditem')
    fpack='fishmanapack'
  else
    uo.addobject('fishbadpack','finditem')
    fpack='fishbadpack'
  end if
  uo.useobject(uo.GetSerial(fpack))
  wait(2000)
  uo.findtype(-1,-1,fpack)
   uo.print('>>>>>'+str(uo.findcount()))
   uo.print('>fpack>'+fpack)
   uo.print('>Mana>>'+uo.GetSerial('fishmanapack'))
   uo.print('>Bad>>>'+uo.GetSerial('fishbadpack'))
   wait(500)
  if uo.findcount()==1 then
    goto fnpex
  else
    uo.ignore('fishmanapack')
    uo.ignore('fishbadpack')
    goto fnpst
  end if
  goto fnpst
 fnpex:
 uo.ignorereset()
 wait(400)
end sub