; INICIALIZACION DEL SISTEMA
set %stand_alone 0 

set %oresdistintos %InternalIndex - 1

event sysmessage    Inicializando el sistema

;Tipos de objeto
set %t_mochila   ZJF
set %t_bolsa     ZJF
set %t_pico      NPF_QPF
;Aqui el martillo y el magico
set %t_martillo GBG_TLH_OLH

set %t_ores     TVJ_GWJ_EWJ_DWJ
set %t_bigores  GWJ_EWJ_DWJ
set %t_ore1     TVJ
set %t_ore2     GWJ
set %t_ore3     EWJ
set %t_ore4     DWJ
set %t_lingote  RMK_NMK_TMK_XMK

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
; Esta tiene 2 acciones: Close Backpack y luego Open BackPack

;Por defecto suponemos que estamos en una mina
set %city mina
set %ZonaAPicar Mina
;Veamos donde nos encontramos
 gosub DetectCity 1118 1197 2200 2226 COVE
 gosub DetectCity 1198 1245 2208 2285 COVE

 gosub DetectCity 3933 3968 5162 5300 DELUCIA
 gosub DetectCity 4058 4085 5151 5265 SouthPAPUA

 set %moviendose %city . \moviendose
 set %alafaena   %city . \alafaena
 set %alaforja   %city . \alaforja
 set %albanco    %city . \albanco
 set %avender    %city . \avender
 If %GoldOrTickets = TICKETS
    set %avender    %city . \portickets

event sysmessage    Sacando el cartel de Status
SacoStatus:
                   call keepalive
; EVENT macro %MacroClose %MacroStatus
 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
;     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 8 1
set %timeout #SCNT + 6
;Como en 6 segundos no lo coloque, seguimos palante
 for %i 1 60
  { 
          call Terminador
   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 622 -131


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

ignoreitem reset

event sysmessage    Abriendo la mochila secundaria
set %timeout #SCNT + 6
 esperaunrato:
                   call keepalive
 call apuntar %t_mochila -1
 Event macro 17 0
 for %i 1 80
  {

   if #SCNT >= %timeout
    {
     event sysmessage       -No consegui abrir la Mochila 2!
     halt
;     goto bolsa2open
    }

   wait 2
   if %mochilapr <> #contid
     goto bolsa2open
  }
 goto esperaunrato
bolsa2open:
wait 10
ContPos 611 160
set %bolsa2 #Contid

ignoreitem reset

event sysmessage    Buscando el pico
;Usamos el disarm derecho

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

;Esto es para buscar un martillo. No se necesita para picar. 
If %subir = BLACK
 {
  call apuntar %t_martillo -1
  if %1 = -1
   {
;Puede ke este en la mano?
    EVENT macro 24 2
    wait 2s
                   call keepalive
    call apuntar %t_martillo -1
    if %1 = -1
     {
       msg $/ NO ENCONTRE EL MARTILLO. Debe esta en la mochila!!!!
       halt
      }
   }
  set %MartilloID #LOBJECTID
 }


If %subir = TINKER
 {
   call apuntar GTL -1
   if %1 = -1
    {
;Puede ke este en la mano?
    EVENT macro 24 2
    wait 2s
                   call keepalive
    call apuntar GTL -1
    if %1 = -1
     {
       msg $/ NO ENCONTRE LAs cosas de tinker. Debe esta en la mochila!!!!
       halt
      }
     }
   set %HerramTinker #LOBJECTID
  }

                   call keepalive
exit


sub DetectCity
 if #charposy >= %1
  {
     if #charposy <= %2
      {
        if #charposx >= %3
    {
            if #charposx <= %4
    {
                Set %city %5
 }
}
}
}
return

