; Indica si vamos a subir Blacksmithing o tinker. Son incompatibles entre si.
; Opciones posibles: BLACK  TINKER o NADA
set %subir NADA

set %quefundir %ninguno


; 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


 call apuntar %t_pico -1
 if %1 = -1
  {
    msg $/ NO ENCONTRE EL PICO!
    halt
  }
 set %PicoID #LOBJECTID




                   call keepalive

