; INICIALIZACION DEL SISTEMA
set %stand_alone 0 

event sysmessage    Inicializando el sistema
;Tipos de objeto
set %t_mochila   ZJF
set %t_bolsa     ZJF
set %t_cana XHF

set %t_pescaos HQD_GQD_FQD_EQD_DQD_CQD_BQD_AQD
set %t_cortao IND


set %msg_saveworld WORLD_SAVE_HAS_BEEN_INITIATED



set %MacroOpen 8
set %MacroClose 9
set %MacroBackpack   7
set %MacroStatus      2

;Debes crear una macros en UO para estas acciones
set %LastObject      17
set %LastTarget      22


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!Sacalo a mano!
     goto statusopen
    }
   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 540 0


event sysmessage    Abriendo el backpack
princespera:
                   call keepalive
 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


If %PuertoOBarco = Barco
 {
event sysmessage    Abriendo la bodega
FindItem UVX
If #FINDKIND = -1
    {
     event sysmessage       -No encuentro la bodega
     halt
    }
 Set #LOBJECTID #FINDID
set %timeout #SCNT + 8
AbroBodega:
 Event macro %LastObject   
  wait 2s
   if #SCNT >= %timeout
    {
     event sysmessage       -No encuentro la bodega
     halt
    }
 IF #CONTTYPE = UVX
   goto BodegaOpen 
 goto Abrobodega
BodegaOpen:
ContPos 410 303
 }

;Daga
 call apuntar TSF_WSF -1
 if %1 = -1
  {
;Puede ke este en la mano?
    EVENT macro 24 2
    wait 2s
                   call keepalive
    call apuntar TSF -1
    if %1 = -1
     {
       MSG $/ NO ENCONTRE LA DAGA. Debe esta en la mochila!!!!
       halt
      }
  }
 set %DagaID #LOBJECTID

event sysmessage    Buscando la cana
;Usamos el disarm derecho

 call apuntar %t_cana -1
 if %1 = -1
  {
;Puede ke este en la mano?
    set #LOBJECTID %DagaID
    EVENT macro 17 0
    wait 2s
                   call keepalive
    call apuntar %t_pico -1
    if %1 = -1
     {
       msg $/ NO ENCONTRE LA CANA. Debe esta en la mochila!!!!
       halt
      }
  }
 set %PicoID #LOBJECTID

call keepalive

