;Lo de abajo no necesitas tocarlo
;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

initevents
msg $,unsetcatchbag$
;Esto es el objeto que tenemos que hacer doble click
Set %Creador XVH

;++++++++++++++++++++++++++++++++++++++++++++++++++++

display yesno  $Macreador de Cartografo$$Necesitas mapas como pa cubrir toda Sosaria$y una mochila en la eskina izq sup. de tu backpack$   Seguimos?
if #dispres = no
  halt

event macro 31 0
call AbrirStatus
call AbrirMochilas
call AbrirCofres
ignoreitem reset
Bucle:
 Set %TotalMaps 0
    MoviendoMapas:
     ;Se esta haciendo un savegame
     if WRDSV_A_EN in #SYSMSG
        wait 20s

              call Buscar %Creador -1
              If %1 = -1
                {
                    if %TotalMaps = 0
                      goto Seacabo:
                  goto UsarSkill:
                 }
             Set %TotalMaps %totalmaps + 1
             if #FINDcol = 48
                Set %TotalMaps %totalmaps + 3
             call drag #FINDID 759 103 Simple
             If %TotalMaps > 15
                  goto UsarSkill:
    goto  MoviendoMapas:

usarSkill:
 Call SKILL

;ignoreitem reset
;avaciar:
;;Ahora vaciamos la mochila de mapas
; call apuntar %Creador -1
; if %1 = -1
;  {
;    goto finddevaciado
;  }
;call drag #FINDID 759 103 Simple
;ignoreitem #FINDID
;goto avaciar

;finddevaciado:
msg $,unsetcatchbag$
wait 1s
msg $,unsetcatchbag$
wait 1s
 Call SacarTickets
goto Bucle:

seacabo:
  msg $/ Se acabaron los recursos.........
  halt

