If %PuertoOBarco = Barco
    goto Guardando:
for %i 1 5
   {
                 call keepalive
      msg $bank$
      ;el banco es tipo IKF
       for %contador 1 100
         {
       if #CONTTYPE in IKF
          goto black_salgo  
      wait 1
     ;Se esta haciendo un savegame
      if WRDSV_A_EN in #SYSMSG
       wait 20s
     }
  ;No pudimos abrir el banco. Salimos sin soltar nada
   exit 

  ;Tenemos el banco abierto
 black_salgo:
  ContPos 438 309
  set %mibanco #CONTID

Guardando:
;El pescado cortado primero
gosub guardamos %t_cortao 479 467 ALL MOCHILA
;Guardamos
;El oro
gosub guardamos POF 479 467 ALL 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
; %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
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 > 120
   return
if #findstack = 1
   call drag #findID %a2 %a3 Simple
if #findstack > 1
       call drag #findID %a2 %a3 %a4


yamovido:

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



