; Añadir IDs de los items que quieras lotear.
set %items POF_OQE_IUF_LZF_OWS_GUF_HUF_OZF_SZF_CKF_IUD_EAG_VTO_QZF

;Escribe MOCHILA si quieres que deje lo loteado en la mochila principal.
;Sino, escribe la ID de la bolsa donde lo quieras guardar.
set %destino XIQWJMD ; MOCHILA

;==========================================
;======NO TOCAR NADA A PARTIR DE AQUI======
;==========================================
tecla:
onhotkey q alt ; Cambiar la combinación de teclas para que empiece a lotear.
{
Comienzo:
set %altMAX #CHARPOSZ + 15
set %altMIN #CHARPOSZ - 15
finditem YFM_KNF g_2 ; buscar cuerpo
if #FINDZ <= %altMIN || #FINDZ >= %altMAX
   {
   ignoreitem #FINDID
   goto tecla
   }
if #FINDKIND <> -1
   {
   scanjournal 1
   if #findrep = 1 || #findrep = 2 || Tus_manos_espectrales in #journal ;No lotear a azules.
      {
      ignoreitem #findid
      goto tecla
      }
   else
      {
      ; if Tus_manos_espectrales_atraviesan_el_objeto. in #JOURNAL
      set #lobjectid #findid
      event macro     17 0 ; abrir cuerpo
      wait 5
      set %cuerpovaciarid #contid ;-------- Añadido -----------------------------
      gosub lotear
      }
   }
else
   {
   goto tecla
   }
goto tecla
;------------------------------------------------
sub lotear
   {
   Loteando:
   scanjournal
   if You_can_not_pick in #JOURNAL
      {
      ignoreitem %cuerpovaciarid
      set %cuerpovaciarid N/A
      return
      }
   finditem %items C_ , %cuerpovaciarid
   if ( #findkind <> -1 && %cuerpovaciarid <> N/A && %cuerpovaciarid <> #BACKPACKID && #CHARGHOST = no )
      {
      exevent Drag #findid #findstack
      wait 5
      if %destino <> MOCHILA
         {
         exevent Dropc %destino
         wait 5
         goto Loteando
         }
      exevent Dropc #BACKPACKID
      wait 5
      goto Loteando
      }
   else
      {
      ignoreitem %cuerpovaciarid
      set %cuerpovaciarid N/A
      return
      }
   return
   }
}
goto tecla