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