Macro Hacer Pergas

[BurY]

Buenas:

Pues busco 1 macro de hacer pergas de explo y flame y que medite cuando haga cada perga. Aver si poneis alguna.

[alfredo1992]

toma te pego la mia espero k os sirva a masde uno


;Macro By Broly

initevents

; ---- Tipo de Pergamino -----
; Aqui pondremos entre los tres tipos de pergaminos que queremos hacer.
; Para llamarada : 1 . Para Explosion : 2. Para Cor por : 3 .
; --------------------------------------------------------------
set %macro 1
; --------------------------------------------------------------

set %confp 1
set %fin 0
set %cofre GYLQZPD
set %mochila RSHTJQD
set %cantidad 1
set %dejarx 556
set %dejary 403

; ---- Circulos -----
set %circu2x 150
set %circu2y 64
set %circu3x 194
set %circu3y 66

set %explosion FUL

set %energybolt GUL

set %flamestrike NUL

; ---- Materiales ----

set %blank MMF
set %ss RZF
set %sa SZF
set %ns WZF
set %mr MZF
set %gs JZF
set %gl KZF
set %bm JUF
set %bp KUF

configurar:
if %confp = 1
{
Event sysmessage Abre el cofre en el que tienes los materiales, manten el cursor sobre el.
event sysmessage Y presiona la tecla ESC
setuotitle Abre el contenedor que contiene los materiales y luego manten el curso en el y presiona ESC
set %conf 1
set %confp 2
goto TESC
}
if %confp = 2
{
Event sysmessage Pon el cursor donde desees dejar los materiales en tu mochila
event sysmessage Y presiona la tecla ESC
setuotitle Pon el cursor donde quieras llevar los materiales en tu mochila y presiona ESC
set %conf 2
set %confp 3
goto TESC
}
if %confp = 3
{
Event sysmessage Haz doble click a la mochila de tu parpedoll
event sysmessage Y presiona la tecla ESC
setuotitle Haz doble click a la mochila de tu parpedoll y presiona ESC
set %conf 3
set %confp 4
goto TESC
}
if %confp = 4
{
Event sysmessage Pon El cursor donde quieras dejar los pergaminos
event sysmessage Y presiona la tecla ESC
setuotitle Pon El cursor donde quieras dejar los pergaminos y presiona ESC
set %conf 4
goto TESC
}

TESC:
onHotKey ESC
{
if %conf = 1
{
set %cofre #LOBJECTID
goto configurar
}
if %conf = 2
{
set %dejarx #CURSORX
set %dejary #CURSORY
goto configurar
}
if %conf = 3
{
set %mochila #LOBJECTID
goto configurar
}
if %conf = 4
{
set %baulx #CURSORX
set %bauly #CURSORY
goto empezar
}
}
goto TESC

empezar:

if %macro = 1
{
flamestrike:
findItem %ss C_ , %cofre
if #FINDSTACK < 1
{
set %fin 1
gosub finalizar
}
event Drag #findID
wait 15
msg %cantidad
msg $
click %dejarx %dejary p
wait 15
findItem %sa C_ , %cofre
if #FINDSTACK < 1
{
set %fin 1
gosub finalizar
}
event Drag #findID
wait 15
msg %cantidad
msg $
click %dejarx %dejary p
wait 15
findItem %blank C_ , %cofre
if #FINDSTACK < 1
{
set %fin 1
gosub finalizar
}
event Drag #findID
wait 15
msg %cantidad
msg $
click %dejarx %dejary p
wait 15
findItem %blank C_ , %mochila
set #LOBJECTID #FINDID
wait 15
event macro 17
wait 15
click %circu2x %circu2y d
wait 15
click 57 66 d
wait 5s
findItem %flamestrike C_ , %mochila
if #FINDSTACK < 1
{
wait 2s
gosub blanco
}
else
{
wait 3s
findItem %flamestrike C_ , %mochila
event Drag #findID
wait 3s
click 375x 308y p
gosub meditar
}
}

if %macro = 2
{
explosion:
findItem %bp C_ , %cofre
if #FINDSTACK < 1
{
set %fin 1
gosub finalizar
}
event Drag #findID
wait 15
msg %cantidad
msg $
click %dejarx %dejary p
wait 15
findItem %mr C_ , %cofre
if #FINDSTACK < 1
{
set %fin 1
gosub finalizar
}
event Drag #findID
wait 15
msg %cantidad
msg $
click %dejarx %dejary p
wait 15
findItem %sa C_ , %cofre
if #FINDSTACK < 1
{
set %fin 1
gosub finalizar
}
event Drag #findID
wait 15
msg %cantidad
msg $
click %dejarx %dejary p
wait 15
findItem %blank C_ , %cofre
if #FINDSTACK < 1
{
set %fin 1
gosub finalizar
}
event Drag #findID
wait 15
msg %cantidad
msg $
click %dejarx %dejary p
wait 15
findItem %blank C_ , %mochila
set #LOBJECTID #FINDID
wait 15
event macro 17
wait 15
click %circu3x %circu3y d
wait 15
click 57 66 d
wait 5
findItem %explosion C_ , %mochila
if #FINDSTACK < 1
{
wait 2s
gosub blanco
}
else
{
wait 3s
findItem %explosion C_ , %mochila
event Drag #findID
wait 3s
click 375x 308y p
gosub meditar
}
}

if %macro = 3
{
energybolt:
findItem %bp C_ , %cofre
if #FINDSTACK < 1
{
set %fin 1
gosub finalizar
}
event Drag #findID
wait 15
msg %cantidad
msg $
click %dejarx %dejary p
wait 15
findItem %ns C_ , %cofre
if #FINDSTACK < 1
{
set %fin 1
gosub finalizar
}
event Drag #findID
wait 15
msg %cantidad
msg $
click %dejarx %dejary p
wait 15
findItem %blank C_ , %cofre
if #FINDSTACK < 1
{
set %fin 1
gosub finalizar
}
event Drag #findID
wait 15
msg %cantidad
msg $
click %dejarx %dejary p
wait 15
findItem %blank C_ , %mochila
set #LOBJECTID #FINDID
wait 15
event macro 17
wait 15
click %circu3x %circu3y d
wait 15
click 57 66 d
wait 5s
findItem %energybolt C_ , %mochila
if #FINDSTACK < 1
{
wait 2s
gosub blanco
}
else
{
wait 3s
findItem %energy_bolt C_ , %mochila
event Drag #findID
wait 3s
click 375x 308y p
gosub meditar
}
}

sub meditar
wait 2s
event macro 13 46
wait 40
scanjournal 1
if Pierdes_la in #journal
{
gosub meditar
}
if You_are_at in #journal
{
goto empezar
}
gosub meditar

sub blanco
findItem %blank C_ , %cofre
if #FINDSTACK < 1
{
set %fin 1
gosub finalizar
}
event Drag #findID
wait 1s
msg %cantidad
msg $
click %dejarx %dejary p
gosub meditar


sub finalizar
{
if %fin = 1
{
display OK Macro terminada!$
}
halt
return
}

[BurY]

Mil gracias!!!

[BurY]

Cuando termino de configurar todo con ESC me dice macro terminada y se para. ¿Que version de easy usas? yo uso la 1.5 139

[BurY]

UP!