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

;*************************************************
;            PARÁMETROS (NO EDITAR)
;*************************************************
set %comida QQD_YSD
set %Bolsa ONABKPD


Inicio:

;*************************************************
;                    COMER
;*************************************************
findItem %comida C_ , #BACKPACKID
If #FINDSTACK < 10
{
msg $ bank $
wait 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

;*************************************************
;                    EVALUAR
;*************************************************
event macro 13 16
wait 5
event macro 23
wait 2s
If #INT = 100
Halt
chooseskill eval real
 if ( #SKILL >= 648 ) && ( #skillLock <> locked )
 {
   Exevent skilllock mini locked
   if #skillLock <> locked
   {
      event SysMessage La habilidad de evaluar no pudo ser bloqueada, macro detenida
   }
   event SysMessage La habilidad de evaluar ha sido bloqueada
 }

GoTo Inicio: