; macro creada por f.nandoco para subir magia y meditacion
; solo hay que darle a play, y seguimos las instrucciones que da la macro
; a disfrutarla....


set %managastado 4 ; Este número simboliza el maná que tiene el pj antes de meditar
set %numeroregs 300 ; Número de regs que cogerá para reponerse cada vez.
set %hechizo 2 ;1.-Envenenar, 2.-Debilitar. 3-magic arrow

; a partir de aqui no tocar....

set %a 15
set %c 22
set %d 0
set %confp 1

chooseskill mage real
set %skillinimagia #skill
chooseskill medi real
set %skillinimedit #skill

configurar:
if %confp = 1
{
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 #targCurs 1
wait 3s
set %objetivo #LTARGETID
goto loop:
}
goto configurar:

TESC:
onHotKey ESC
{
wait 5
set %idcaja #LOBJECTID
gosub check
goto configurar:
}
goto TESC:

loop:
if %hechizo = 1
{
gosub check
set %b 5
goto magias:
}
if %hechizo = 2
{
gosub check
set %b 7
goto magias:
}
if %hechizo = 3
{
gosub check
set %b 4
goto magias:
}

magias:
set #LTARGETID %objetivo
event macro %a %b
wait 10
event macro 22 0
wait 10
if #MANA <= %managastado
{
gosub meditar
}
gosub uotitle
goto loop:

sub uotitle
wait 10
chooseskill mage real
set %skillmagiaahora #SKILL
chooseskill medi real
set %skillmeditahora #SKILL
setuotitle || Magia | Ini: %skillinimagia | Actual: %skillmagiaahora || Medit | Ini: %skillinimedit | Actual: %skillmeditahora ||
return

sub meditar
scanjournal %i

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á.
}
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
return


sub check
if %hechizo = 1
{
finditem WZF C_ , #BACKPACKID
if #FINDSTACK <= 2
{
gosub abrircaja
wait 5
set %reg WZF
gosub coger
return
}
}
if %hechizo = 2
{
finditem WZF C_ , #BACKPACKID
if #FINDSTACK <= 2
{
gosub abrircaja
wait 5
set %reg WZF
gosub coger
}
finditem KZF C_ , #BACKPACKID
if #FINDSTACK <= 2
{
gosub abrircaja
set %reg KZF
gosub coger
return
}
}
if %hechizo = 3
{
finditem SZF C_ , #BACKPACKID
if #FINDSTACK <= 2
{
gosub abrircaja
wait 5
set %reg SZF
gosub coger
return
}
}
return

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