 ; Picando

set %fallo 0
set %llevamucho 0
set %max_T 0
set %transcurrido 0
set #LtargetID YC
set #ltargetkind 2
set #ltargetx %picarx
set #ltargety %picary


apicar:

if %maxpeso <= #weight
  goto Journal_End

 msg $/ %Finish_Read $
reintento:
 if %fallo > 6
     goto Journal_End
 set #LOBJECTID %PicoID
 key %LastObject
 target 4s
 key %LastTarget
 set %initpicar #SCNT

  goto clickok

clickok:
                   call keepalive
 for %jkl 1 2
   {
  if %faltanxsep > 0
    {
      cmppix 1 false
        {
         click 681 442 p
         call recbolsa
         call drag 681 442 788 221 1
         call recbolsa
         wait 3
        }
       set %faltanxsep %faltanxsep - 1 
     }
   }

    if %mochilapr = #Contid
      {
       set #contposx 610
       set #contposy 360
      }
    if %bolsa2 = #CONTID
      {
       set #contposx 611
       set #contposy 160               
      }


set %tmp #scnt
set %transcurrido %tmp - %initpicar

  if %transcurrido > 14
     {
     set %fallo %fallo + 2
     wait 2s
      goto apicar
     }

set %i 0
JournalLoop:
 scanjournal %i


if %msg_noore in #journal
   goto Journal_End

if %msg_noview in #journal
   goto Journal_End

if %msg_norock in #journal
   goto Journal_End


if %msg_fail in #journal
  {
     set %llevamucho %llevamucho + 1
     if %llevamucho > 6
               goto Journal_End
     if %transcurrido < 3
          wait 7s
     goto apicar
   }

if %msg_saveworld in #journal 
 {
  msg $/ %Finish_Read $
  wait 20s
  goto clickok
 }

if %msg_getore in #journal
   {
    if %separamos <> 1
        goto apicar        
   for %j 1 %oresdistintos
    {
      call ARRAY GET %j
      if %2 in #journal
         goto MineralEncontrado
     }
 ; No conocemos que mineral es!?    
     goto apicar

    MineralEncontrado:
    set %Codigo  %1
    set %Nombre %2
    set %ColorDeOre %3

    if %Codigo in %evitar
        {
         msg ; $Evitando %extraido $
          goto Journal_End
        }
    if %Codigo in %queseparar
       { 
         call separa2 %ColorDeOre Bueno
         goto apicar
       }
    call separa2 %ColorDeOre Malo
    goto apicar
   }

 if %Finish_Read in #journal
     goto clickok
 
 set %i %i + 1
 if %i > 12
     {  
       msg $/ %Finish_Read $
       goto clickok
     }
goto JournalLoop

Journal_End: 

;msg $Sacabo$
;halt