; INICIALIZACION DEL SISTEMA
set %stand_alone 0 

;Tipos de objeto. Cogemos un arma de sword
; He metido varios tipos por si acaso.
set %t_hacha FSF_ROH_NSF_MPH_LSF_BSF_ZRF_JOH_KTF_ASF

; tipo del runebook
set %t_runebook MPF
; color del runebook
set %c_runebook 0x455
set %t_mochila  ZJF_CKF
set %t_bolsa      ZJF_CKF
set %t_log         ZLK
set %t_tronco    ZLK

;Reagentes
set %T_bloodmoss  JUF
set %T_blackpearl   KUF
set %T_mandrake   MZF

set %Finish_Read     _____________________
set %msg_saveworld WORLD_SAVE_HAS_BEEN_INITIATED


set %LastObject      17
set %LastTarget      22
set %MacroOpen 8
set %MacroClose 9
set %MacroBackpack   7
set %MacroStatus      2



;Temporal, pasamos de dirx 2 a dirx 1. A ver si mejoramos el rendimiento
set %dirx %Pasos
set %diry -6


;Primer pico 2317 1215
;   x1<x2 y1>y2
;segundo 2335 1199


event sysmessage    Sacando el cartel de Status
SacoStatus:
                   call keepalive
 EVENT macro %MacroOpen %MacroStatus
set %timeout #SCNT + 6
;Como en 6 segundos no lo coloque, seguimos palante
 for %i 1 60
  { 
                   call keepalive

   if #SCNT >= %timeout
    {
     event sysmessage       -No consegui coger el status!
     halt
    }
   wait 2
   if  #Contkind in  MST_OBH
    goto statusopen
  }
 goto SacoStatus
statusopen:
wait 10
ContPos 729 21


event sysmessage    Sacando el PaperDoll
SacoPaper:
 EVENT macro %MacroOpen 1
set %timeout #SCNT + 6
;Como en 6 segundos no lo coloque, seguimos palante
 for %i 1 60
  { 
                   call keepalive

   if #SCNT >= %timeout
    {
     event sysmessage       -No consegui coger el Paperdoll!
     halt
    }
   wait 2
   if  #Contkind in  ODT_
    goto Paperopen
  }
 goto SacoPaper
PAperopen:
wait 10
ContPos 623 0



event sysmessage    Abriendo el backpack
princespera:
                   call keepalive
; EVENT macro %MacroClose %MacroBackpack
 EVENT macro %MacroOpen %MacroBackpack
set %timeout #SCNT + 6
 for %i 1 60
  { 
                   call keepalive

   if #SCNT >= %timeout
    {
     event sysmessage       -No consegui abrir el Backpack!
     halt
;     goto mochilaopen
    }

   wait 2
   if ZJF = #ContType
     goto mochilaopen
  }
 goto princespera
mochilaopen:
wait 10
ContPos 610 360
set %mochilapr #Contid


event sysmessage    Buscando el Runebook
if %TiraLogs <> SI
 {
   call apuntar %t_runebook %c_runebook
   if %1 = -1
       {
        msg $/ Error fatal! No encontre el RuneBook!$
        halt         
       }              
  set %MiRuneBook #LObjectId
 }


event sysmessage    Buscando el hacha
 call apuntar %t_hacha -1
 if %1 = -1
  {
;Puede ke este en la mano? Usamos el disarm derecho
    EVENT macro 24 2
    wait 2s
                   call keepalive
    call apuntar %t_pico -1
    if %1 = -1
     {
       msg $/ NO ENCONTRE EL HACHA. Debe esta en la mochila!!!!
       halt
      }
  }
 set %Mihacha #LOBJECTID

event sysmessage Acuerdate del don't move cursor, del circle of transp
wait 9
event sysmessage y de to esa tralla
