set #LtargetID YC
set #ltargetkind 3
SigoPescando:
  for %px -5 5
   {
     for %py -5 5
      {
       if %maxpeso <= #weight
          goto EmpiezoACortar:

       call keepalive
       set %picarx #charposx + %px
       set %picary #charposy + %py
       set #LOBJECTID %PicoID
       set #ltargetx %picarx
       set #ltargety %picary
       set #LTARGETKIND 2
       EVENT Macro %LastObject
       target 4s
       EVENT Macro %LastTarget
       set %Timeout #SCNT + 2
       finditem %t_pescaos
       if #FINDKIND = 0
         ignoreitem #FINDID
       if #findkind = 1
          {
            if #finddist < 2
             {
              Call drag #FINDID 687 228 ALL
             }
          }    

       if %Timeout > #SCNT
          {
            set %Espera %Timeout - #SCNT
            set %espera %Espera * 20
            wait %espera
          }
       if WRDSV_A_EN in #SYSMSG
           wait 20s
     }
   }

goto SigoPescando:

EmpiezoACortar:
ignoreitem reset
wait 1s
cortomas:
       call keepalive
 finditem %t_pescaos
 if #findkind = -1 
    exit

 if #findkind = 1
   {
    ignoreitem #FINDID
    goto cortomas
   }
 
     set #LOBJECTID %dagaID
     set #LtargetID #FINDID
     set #ltargetkind 1

     event macro %LastObject
     target 4s
     event macro %LastTarget
     wait 8
     goto cortomas


