; INICIALIZACION DEL SISTEMA
set %oresdistintos %InternalIndex - 1

set %stand_alone 0 

;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 %Finish_Read     _____________________
set %msg_saveworld WORLD_SAVE_HAS_BEEN_INITIATED



princespera:
                   call keepalive
 key %OpenBackpack
 wait 2s
 if OZOC <> #ContKind
   goto princespera
set #contposx 610
set #contposy 360
set %mochilapr #Contid

msg $/ No lleves el pico en la mano$
msg $/ Y deja la esquina sup izq del backpack sin objetos!$
wait 15
msg $/ SISTEMA PREPARADO, PULSA CTRL+V PARA SEGUIR$
waitpix:
  wait 1
   onhotkey V Ctrl
      goto takepix
  goto waitpix
takepix:
savepix 681 442 1

 call apuntar %t_pico -1
 if %1 = -1
  {
    msg $/ NO ENCONTRE EL PICO!
    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
   {
     msg $/ NO ENCONTRE EL martillo!
     halt
   }
  set %MartilloID #LOBJECTID
 }


If %subir = TINKER
 {
   call apuntar GTL -1
   if %1 = -1
    {
       msg $/ NO ENCONTRE LAS HERRAMIENTAS DE TINKER!
       halt
     }
   set %HerramTinker #LOBJECTID
  }



                   call keepalive

