Hola , Macro Magia y a la vez Meditar?

[whostheboss]

Hola muy buenas, me gustaria si alguien me hace un favor y me pasase alguna macro basica la cual el uso de la magia sea torpeza y al quedarse con 2 o 3 de mana, Empieze a meditar si falla que volviese.. asta que llegase a llenarse el mana.

Creeo recorar antes de formatear tener una de esas, pero he vuelto al uo hace 5 meses.. y me borraron la cuenta tal..

pues si alguien me ayuda se lo agradeceria bastante.. y si puede ser por privado gracias!

[Arkanon]

hola, mira a ver si te sirve esta macro, no la he probado por lo que no se si quema todo el mana como tu kieres, pero algo es algo

display ok Macro by Asuma/Mordor.
set %nightshade WZF
set %garlic KZF
set %c_regs 200
event sysmessage Abra el contenedor de los reagentes y presione ESC.
get_cont:
OnHotKey ESC
{
set %container_id #LOBJECTID
wait 20
event sysmessage Coloque el cursor en la mochila de la foto de su personaje y presione ESC.
goto get_backpack
}
goto get_cont
get_backpack:
OnHotKey ESC
{
set %backpack_x #CURSORX
set %backpack_y #CURSORY
wait 20
event sysmessage Seleccione a la persona y presione ESC.
event macro 15 7
goto get_id
}
goto get_backpack
get_id:
OnHotKey ESC
{
set %pid #LTARGETID
wait 20
goto main
}
goto get_id
main:
if #MANA < 10
{
while #mana <> #maxmana
{
event macro 13 46
wait 1s
}
}
gosub Check_Regs
FINDITEM %nightshade C_ , #BACKPACKID
set %cantidad_n #FINDSTACK
FINDITEM %garlic C_ , #BACKPACKID
set %cantidad_g #FINDSTACK
setuotitle Nightshade actual : %cantidad_n | Garlic actual : %cantidad_g
event macro 15 7
target
set #LTARGETID %pid
event macro 22 0
wait 40
goto main
halt

sub Check_Regs
FINDITEM %nightshade C_ , #BACKPACKID
if #FINDSTACK = 0
{
set #LOBJECTID %container_id
event macro 17 0
wait 5s
FINDITEM %nightshade C_ , %container_id
if #FINDSTACK < %c_regs
{
event sysmessage Se quedo sin reagentes.
halt
}
else
{
event sysmessage Reponiendo nightshade...
event drag #FINDID
wait 1s
key 2
wait 20
key 0
wait 20
key 0
wait 20
key enter
wait 20
click %backpack_x %backpack_y
wait 2s
event sysmessage Reponiendo garlic...
FINDITEM %garlic C_ , %container_id
event drag #FINDID
wait 1s
key 2
wait 20
key 0
wait 20
key 0
wait 20
key enter
wait 20
click %backpack_x %backpack_y
wait 2s
event sysmessage Reagentes renovados.
}
}
return

[whostheboss]

no funciona... pero muchas gracias.. estoy a la espera.. aver si hay suerte!

[Jimmy Jazz]

aki te dejo una wey, cohe regs del cofre y todo, k te parese pendejo?


; Cogerá siempre 100 regs de cada.
; Gastará siempre 20 de maná antes de empezar a meditar
; Para los usuarios más avanzados, dejo las variables a continuación
; por si se quiere poner que gaste más antes de meditar, y por si queréis coger más regs.
;
; ==================================
set %managastado #MAXMANA - 95 ; Este número simboliza el maná gastado máximo antes de meditar
set %numeroregs 500 ; 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 7
wait 8
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 KZF C_ , #BACKPACKID
set %cuantogarlic #FINDSTACK
finditem WZF C_ , #BACKPACKID
set %cuantonight #FINDSTACK
setuotitle || Magia | Ini: %skillinimagia | Actual: %skillmagiaahora || Medit | Ini: %skillinimedit | Actual: %skillmeditahora || Regs | Garlic: %cuantogarlic | Night: %cuantonight ||
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
return


sub check
finditem WZF C_ , #BACKPACKID
if #FINDCNT = 0
{
gosub abrircaja
wait 5
set %reg WZF
gosub coger
}
finditem KZF C_ , #BACKPACKID
if #FINDCNT = 0
{
gosub abrircaja
set %reg KZF
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

[whostheboss]

Muchas gracias jefe.. sabes como puedo hacer que lanze los hechizos mas despacio ? asias.

[Jimmy Jazz]

claro k si makinoteeeeeeeeeeee, si lo k kieres esk tire un hexizo y medite haz lo siguiente, al principio de la macro donde pone #MAXMANA 95, cambia el 95 x 1 y asi al gastar 1 de mana o mas meditara, espero le sirva verga pues ami me va de lujo.

[Mightywolf]

claro k si makinoteeeeeeeeeeee, si lo k kieres esk tire un hexizo y medite haz lo siguiente, al principio de la macro donde pone #MAXMANA 95, cambia el 95 x 1 y asi al gastar 1 de mana o mas meditara, espero le sirva verga pues ami me va de lujo.

¿Es lo único que sabes decir rumano?

[ElCrackDeLa]

¿Es lo único que sabes decir rumano?

Sal a la calle pesao

[Mightywolf]

Sal a la calle pesao

Me niego.

[Jimmy Jazz]

tranqºquilºqºqºqºqºlo mighºqºtywolºqºqºqlf.

[Taan Haku]

Me niego.