event SysMessage Macro Editada Por Berraco
wait 2s
; ==================================
Set %Comida RUD_FUD_HND_RGG_FWI_YSD_YWI_QQD_SQD_PQD_AXI_QRD ;esto se agrega al comienzo de la macro
set %managastado #MAXMANA - 110 ; Este número simboliza el maná gastado máximo antes de meditar
set %numeroregs 200 ; Número de regs que cogerá para reponerse cada vez.
; ==================================

chooseskill mage real
set %skillinimagia #skill
chooseskill medi real
set %skillinimedit #skill
set #sysmsgcol 0000
event sysmessage Iniciando Macro...
event sysmessage
set #targCurs 0

configurar:
if %confp = 1 || %confp = N/A
{
set #sysmsgcol 1264
setuotitle Abre el contenedor donde estan los Regs.
event sysmessage ================
event sysmessage Abre el contenedor de Regs
event sysmessage Presiona la tecla ESC.
event sysmessage ================
set %confp 2
goto TESC
}
if %confp = 2
{
set #sysmsgcol 1264
setuotitle Selecciona tu objetivo
event sysmessage ================
event sysmessage Selecciona tu objetivo
event sysmessage ================
set #sysmsgcol 0000
set #targCurs 1
wait 1s
goto CURSOR
}

CURSOR:
if #TARGCURS = 1
{
goto CURSOR
}
if #TARGCURS = 0
{
set %objetivo #LTARGETID
gosub uotitle
goto loop
}
goto CURSOR


TESC:
onHotKey ESC
{
set %idcaja #LOBJECTID
goto configurar
}
goto TESC

scanjournal 1

loop:
wait 40
repeat
{
gosub check
set #LTARGETID %objetivo
event macro 15 4
wait 05
event macro 22 0
gosub uotitle
}
until #mana <= %managastado
repeat
{
gosub meditar
}
until #mana = #int
goto loop

sub uotitle
wait 10
chooseskill mage real
set %skillmagiaahora #SKILL
chooseskill medi real
set %skillmeditahora #SKILL
finditem SZF C_ , #BACKPACKID
set %cuansulfurous #FINDSTACK
setuotitle || Magia | Ini: %skillinimagia | Actual: %skillmagiaahora || Medit | Ini: %skillinimedit | Actual: %skillmeditahora || Regs | Sulfurous: %cuansulfurous ||
return

sub meditar
event macro 13 46
if pierdes in #journal
{
gosub meditar ; Meditamos hasta que no perdamos la concentración
}
if trance in #journal
repeat
{
wait 40
event macro 13 46 ; Aseguramos que mientras meditemos no perdamos la concentración. Así que cada 2 segundos meditará.
}
until #mana = #int
if You_are_at_peace in #journal
{
goto comida ; Vamos a comer
return

sub check
finditem SZF C_ , #BACKPACKID
if #FINDCNT = 0
{
gosub abrircaja
wait 5
set %reg SZF
gosub coger
}
return

sub abrircaja
set #LOBJECTID %idcaja
event macro 17 0
wait 10
return

sub coger
finditem %reg C_ , %idcaja
exevent drag #FINDID %numeroregs
wait 10
exevent dropc #BACKPACKID
wait 10
return

;Esto se agrega en cualquier lugar de la macro separado de cualquier otro codigo dejando un espacio arriba y abajo
comida:
finditem %Comida
if #findkind = -1
{
ignoreitem reset
event sysmessage Comida nao encontrada!
}

if #findkind = 1
{
ignoreitem #findid
goto comida
}

set #lobjectid #findid
event macro 17 0

Set %Chance 0
return