                   call keepalive

FINDITEM KKE
If #FINDKIND = -1
 {
   event sysmessage Mal rollo, no encuentro el cartel de la casa
   exit
 }
 Set #LOBJECTID #FINDID
for %i 1 4 
  {
   event macro %LastObject
   wait 2s 
   if #CONTKIND in MQQD_
      goto loAbri
  }
   event sysmessage Mal rollo, no encuentro el cartel de la casa
   exit
  
loAbri:
Click 567 225
wait 2s
click 264 396
for %i 1 30
 {
    wait 3
    if #CONTTYPE = IKF
      goto AbriBanco:
 }
   event sysmessage Mal rollo, no encuentro el banco de la casa
   exit

AbriBanco:
set %mibanco #CONTID
contpos 438 309

;Guardamos
;Los troncos. Guardamos todos menos 2
   event sysmessage guardamos
gosub guardamos %T_log 478 468 -2 MOCHILA
wait 1s
exit



sub guardamos
ignoreitem reset
; %1: Tipo de objeto
; %2,%3: Posicion a donde lo moveremos
; %4: Cuantos objetos de ese tipo movemos de cada pila. Si es <0 significa todos-%4
; %5: Lugar desde donde movemos el objeto: MOCHILA o BANCO
; Bug al usar las mismas variables %1 %2 %3 %4, se sobreescribian. Arreglao
set %a1 %1
set %a2 %2
set %a3 %3
set %a4 %4
set %a5 %5

set %deberiasalir 0

newguard:
                   call keepalive
finditem %a1
wait 5 

if #findkind = -1
   goto acabo

if #findkind > 0 
 {
  ignoreitem #FINDID
  goto newguard
 }

if %a5 = MOCHILA
  {
    if #findx < 635
       {    
         ignoreitem #FINDID
         goto newguard
       }
  }
if %a5 <> MOCHILA
  {
    if #findx >= 635
       {    
         ignoreitem #FINDID
         goto newguard
       }
  }


;si lleva demasiado tiempo moviendo, seguro que hay un error
set %deberiasalir %deberiasalir + 1
if %deberiasalir > 20
   return

if #findstack = 1
   call drag #findid %a2 %a3 Simple
if #findstack > 1
   {
      if %a4 <> ALL
        {
         if %a4 < 0
           {
            set %cant #Findstack + %a4
            if %cant < 1
              {
                ignoreitem #FINDID
                goto newguard
              }   
            call drag #FINDID %a2 %a3 %cant
            goto yamovido
           }
        }
       call drag #FINDID %a2 %a3 %a4
   }
yamovido:

;Solo movemos una vez desde el banco
if %a5 <> MOCHILA
  return
goto newguard
acabo:
return

