;*************************************************
;Macro para subir STR (Heaven) by OverQueen
;*************************************************
set #SYSMSGCOL 10
event sysmessage Macro para subir STR by OverQueen

;*************************************************
; PARÁMETROS (NO EDITAR)
;*************************************************
set %mineral DWJ
set %lingotes RMK_XMK_TMK_NMK
set %cofre JDNFDOD
set %Bolsa ONABKPD
set %comida QQD_YSD

Inicio:
move 2476 75 a
msg $ bank $
wait 20
set #LOBJECTID %Bolsa
wait 20
event macro 17 0
wait 10

Separar&Fundir:

set #LOBJECTID #FINDID
finditem DWJ C_ , %Bolsa
if #findstack < 1
{
msg $ bank $
wait 20
set #LOBJECTID %Bolsa
wait 20
event macro 17 0
wait 10
}

;*************************************************
; COMER
;*************************************************

findItem %comida C_ , #BACKPACKID
If #FINDSTACK < 10
{
set #LOBJECTID %Bolsa
wait 10
event macro 17 0
wait 10
finditem %comida C_ , %Bolsa
wait 20
exevent drag #FINDID 20
wait 20
exevent dropc #BACKPACKID
wait 20
}
set #LOBJECTID #FINDID
wait 10
event macro 17

finditem DWJ C_ , %Bolsa
wait 5
exevent drag #findid 1
wait 5
exevent dropc #BACKPACKID
wait 5
set #LOBJECTID #FINDID
wait 5
event macro 17 0
wait 5
finditem RMK C_ , #BACKPACKID
exevent drag #findid #FINDSTACK
wait 5
exevent dropc %Bolsa
wait 5
If #STR = 100
Halt
chooseskill Mini real
if ( #SKILL >= 648 ) && ( #skillLock <> locked )
{
Exevent skilllock mini locked
if #skillLock <> locked
{
event SysMessage La habilidad de minar no pudo ser bloqueada, macro detenida
}
event SysMessage La habilidad de minar ha sido bloqueada
}
GoTo Separar&Fundir: