      tirandologs:  
     finditem ZLK
      if #findkind = -1
        goto PesoCorrecto
      if #findkind > 0
          {
            ignoreitem #findid
            goto tirandologs
          }
       ;Si teniamos lea, soltamos todo menos dos troncos
       set %kuantomuevo #FINDSTACK - 2
       if %1 <> -1 
          call drag #findID  321 246 %kuantomuevo
       wait 1

      difpeso:  
     finditem ZLK
      if #findkind = -1
        exit
      if #findkind > 0
          {
            ignoreitem #findid
            goto difpeso
          }

      set %tmp %kuantomuevo - #FINDSTACK
      set %tirados %tirados + %tmp
      set %tirados %tirados + 2
