 ; 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

    if %mochilapr = #Contid
      {
       set #contposx 610
       set #contposy 360
      }


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
        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