Set %LokeBusco %1
Set %ObjColor %2
set %t_cofres IIF_KIF_IKF_HIF_JIF_BUD_ZJF_
Set %Resultado NoEncontrado
Set %ResultID N/A

ignoreitem reset

BuscoCofre:
FINDITEM %T_Cofres
 IF #FINDKIND = -1
     exit
IF #FINDKIND = 1
 {
  IF #FINDDIST > 3
    {
      ignoreitem #FINDID
      goto BuscoCofre:
    }
  }

 IF #FINDBAGID = %Mochilapr
  {
     ignoreitem #FINDID
     goto BuscoCofre:
  }
 IF #FINDID = %Mochilapr
  {
     ignoreitem #FINDID
     goto BuscoCofre:
  }

;Hemos encontrado un cofre aparentemente valido, veremos si
;contiene lo que buscamos.

IGNOREITEM #FINDID
;Abrimos el cofre
Set #LOBJECTID #FINDID
Set #LOBJECTYPE #FINDTYPE
event macro 17 0
;Esperamos que se abra. Esperamos 100 ticks/20=5 segundos
for %i 1 100
 {
  If #Conttype = #FINDTYPE
    goto abierto
  wait 1

 ;Si se esta haciendo un savegame, esperamos 20 segundos
   if WRDSV_A_EN in #SYSMSG
        wait 20s
 }
 event sysmessage Error, el cofre no se abrio correctamente
Abierto:
;Ponemos el cofre en una posicion determinada, a la izq del backpack.
 wait 5
 IF #FINDID <> %Receptora
  {
    IF #CONTTYPE <> ZJF
       contpos 445 305
    IF #CONTTYPE = ZJF
       contpos 221 352
    }
 IF #FINDID = %Receptora
   {
     ContPos 611 173
     wait 10
    }
 goto BuscoCofre:


