;*************************************************
;Macro MAGIA + MEDIT by OverQueen
;*************************************************
set #SYSMSGCOL 10
event sysmessage Macro para subir magia y meditar by OverQueen

;*************************************************
;            CONFIGURACIONES (EDITAR)
;*************************************************
set %contenedor KRCBPOD ; (1 (verde) = UHWHOQD | 2 (azul) =  UXJPIOD | 3 (rojo) = AJZTUNDD)
set %manasingastar 05 ; Mana gastado antes de meditar (consume 4 por cast con regs y 2 por cast con pergas)
set %numeroregs 100 ; Cantidad de regs que coge al reponer (gasta 1 por cast)
set %cast CYL_SZF ; ID del perga: CYL - ID del reg: SZF
set %comida YSD_QQD

;*************************************************
;                 SELECCIONAR TARGET
;*************************************************
set #sysmsgcol 15
event sysmessage Selecciona a tu objetivo
set #targCurs 1
wait 1s
set %objetivo #LTARGETID
wait 40

Inicio:
gosub abrircontenedor
gosub comer
gosub reponer
gosub castear
gosub meditar
goto inicio:

;*************************************************
;                  ABRIR CONTENEDOR
;*************************************************
sub abrircontenedor
set #LOBJECTID %contenedor
wait 20
event macro 17 0
wait 20
return

;*************************************************
;                     COMER
;*************************************************
sub comer
findItem %comida C_ , #BACKPACKID
if #findstack = 0
{
finditem %comida C_ , %contenedor
exevent drag #FINDID 20
exevent dropc #BACKPACKID
wait 10
gosub comer
}
set #LOBJECTID #FINDID
event macro 17
return

;*************************************************
;                   REPONER
;*************************************************
sub reponer
finditem %cast C_ , #BACKPACKID
if #FINDSTACK = 0
{
finditem %cast C_ , %contenedor
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 20
}
return

;*************************************************
;                    CASTEAR
;*************************************************
sub castear
finditem SZF c_ , #backpackid
if #findstack > 0
{
set #LOBJECTID #FINDID
event macro 15 4
target
event macro 22 0
wait 1s
}
finditem CYL c_ , #backpackid
if #findstack > 0
{
set #LOBJECTID #FINDID
event macro 17 0
target
event macro 22 0
wait 1s
}
if #findstack = 0
gosub reponer
if #mana >= %manasingastar
gosub castear
return

;*************************************************
;                   MEDITAR
;*************************************************
sub meditar
event macro 13 46
if pierdes in #journal
{
gosub meditar
}
if trance in #journal
repeat
{
wait 40
event macro 13 46
}
until #mana = #int
goto Inicio: