;*************************************************
;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: