Macro Alquimia... ¿?

**Sand** · 19-May-2008

Gracias mira como quedó:

Código PHP:


; Macro by Charlie (Ultima Alianza) 
; Modificada por Karmelot y Badboy 
; Para hacer la pocion que queramos hasta 5 kegs 
; RECUERDA: NO PUEDES TENER NINGUN REGS Y SOLO UN FRASCO VACIO EN LA MOCHILA 
; Necesitamos un cofre/bolsa/contenedor donde tengamos los materiales (mucha cantidad de regs y morteros) 
; En la mochila necesitamos tener un o dos morteros (cuando se acaben cogera mas morteros del cofre) 
; Al empezar habrá que configurar el cofre/bolsa/contenedor donde se tiene los materiales dichos arriba 
; Después donde queremos que deje los materiales en nuestra mochila, e indicar la mochila del parpedoll y kegs que usaremos 
; RECUERDA: NO PUEDES TENER NINGUN REGS Y SOLO UN FRASCO VACIO EN LA MOCHILA 
; RECUERDA: HACER DOS CLICKS SOBRE EL PARPEDOLL. 
; RECUERDA: MARCAR LA NIGHTSHADE EN EL PRIMER INTENTO CUANDO PREGUNTE "WHAT REAGENT YOU LIKE TO MAKE A POTION OUT OF? 
; CONFIGURACIóN : 
;-------------------------- 
; Indica que pocion quieres hacer: 
; 1- Veneno Menor 
; 2- Veneno 
; 3- Veneno Mejorado 
; 4- Veneno Mortal 
; 5- Curación Menor 
; 6- Curación 
; 7- Curación Mejorada 
; 8- Antidoto Menor 
; 9- Antidoto 
; 10- Antidoto Mejorada 
; 11- Agilidad 
; 12- Agilidad Mejorada 
; 13- Resistencia 
; 14- Resistencia Mejorada 
; 15- Fuerza 
; 16- Fuerza Mejorada 
; 17- Explosion Menor 
; 18- Explosion 
; 19- Explosion Mejorada 
; 20- Visión Nocturna 
; 21- Encoger 
; 22- Mana 
; 23- Mana Total 
; 24- Piel de Piedra 
; 25- Invisibilidad 
; 26- Disipar 
; 27- Bendecir 
; 28- Armor Reactive 
; 29- Sustento 
; 30- Cambio de Sexo 
;-------------------------- 
set %pocion 1 
;-------------------------- 
 
; Indica cuanta cantidad quieres hacer ( 999 son 1000 pociones, 499 son 500 pociones, etc...): 
; Si falla una poción no contara como una vez hecha 
;-------------------------- 
set %veces 999 
;-------------------------- 
 
; Indica cuantos kegs vas a usar para meter las pociones: 
; 0- Mete las pociones en un solo keg 
; 1- Mete las pociones en DOS kegs 
; 2- Mete las pociones en TRES kegs 
; 3- Mete las pociones en CUATRO kegs 
; 4- Mete las pociones en CINCO kegs 
; Los kegs hay que tenerlo bloqueados en el suelo de la casa 
;-------------------------- 
set %kegs 0 
;-------------------------- 
 
 
 
 
initevents 
set %confp 1 
set %conf 0 
set %confx 0 
 
set %menu1x 61 
set %menu1y 64 
set %menu2x 101 
set %menu2y 66 
set %menu3x 146 
set %menu3y 65 
 
; ---- Pociones ---- 
 
set %pocionblanco WUF 
 
; ---- Materiales ---- 
 
set %mortero RQF 
set %ss RZF 
set %sa SZF 
set %ns WZF 
set %mr MZF 
set %gs JZF 
set %gl KZF 
set %bm JUF 
set %bp KUF 
set %am IUF 
set %on LZF 
set %bt FUF 
set %sd QZF 
 
set %kegx 
set %kegy 
set %keg1x 
set %keg1y 
set %keg2x 
set %keg2y 
set %keg3x 
set %keg3y 
set %keg4x 
set %keg4y 
set %keg5x 
set %keg5y 
 
configurar: 
if %confp = 1 
{ 
Event sysmessage Macro de Charly. Ultima modificacion por los nobs en easyUO karmelot y badboy para que solo haga veneno menor. 
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 tengas un keg bloqueado en el suelo 
event sysmessage Y presiona la tecla ESC 
setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC 
set %conf 4 
set %confp 5 
goto TESC 
} 
 
if %confp = 5 
{ 
if %kegs = 1 
{ 
Event sysmessage Pon el cursor donde tengas un segundo keg bloqueado en el suelo 
event sysmessage Y presiona la tecla ESC 
setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC 
set %conf 5 
set %confp 6 
goto TESC 
} 
set %confp 6 
goto configurar 
} 
if %confp = 6 
{ 
if %kegs = 2 
{ 
if %confx = 0 
{ 
Event sysmessage Pon el cursor donde tengas un segundo keg bloqueado en el suelo 
event sysmessage Y presiona la tecla ESC 
setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC 
set %conf 6 
goto TESC 
} 
if %confx = 1 
{ 
Event sysmessage Pon el cursor donde tengas un tercero keg bloqueado en el suelo 
event sysmessage Y presiona la tecla ESC 
setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC 
set %conf 6 
goto TESC 
} 
if %confx = 2 
{ 
goto start 
} 
} 
set %confp 7 
goto configurar 
} 
if %confp = 7 
{ 
if %kegs = 3 
{ 
if %confx = 0 
{ 
Event sysmessage Pon el cursor donde tengas un segundo keg bloqueado en el suelo 
event sysmessage Y presiona la tecla ESC 
setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC 
set %conf 7 
goto TESC 
} 
if %confx = 1 
{ 
Event sysmessage Pon el cursor donde tengas un tercero keg bloqueado en el suelo 
event sysmessage Y presiona la tecla ESC 
setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC 
set %conf 7 
goto TESC 
} 
if %confx = 2 
{ 
Event sysmessage Pon el cursor donde tengas un cuarto keg bloqueado en el suelo 
event sysmessage Y presiona la tecla ESC 
setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC 
set %conf 7 
goto TESC 
} 
if %confx = 3 
{ 
goto start 
} 
} 
set %confp 8 
goto configurar 
} 
if %confp = 8 
{ 
if %kegs = 4 
{ 
if %confx = 0 
{ 
Event sysmessage Pon el cursor donde tengas un segundo keg bloqueado en el suelo 
event sysmessage Y presiona la tecla ESC 
setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC 
set %conf 8 
goto TESC 
} 
if %confx = 1 
{ 
Event sysmessage Pon el cursor donde tengas un tercero keg bloqueado en el suelo 
event sysmessage Y presiona la tecla ESC 
setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC 
set %conf 8 
goto TESC 
} 
if %confx = 2 
{ 
Event sysmessage Pon el cursor donde tengas un cuarto keg bloqueado en el suelo 
event sysmessage Y presiona la tecla ESC 
setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC 
set %conf 8 
goto TESC 
} 
if %confx = 3 
{ 
Event sysmessage Pon el cursor donde tengas un quinto keg bloqueado en el suelo 
event sysmessage Y presiona la tecla ESC 
setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC 
set %conf 8 
goto TESC 
} 
if %confx = 4 
{ 
goto start 
} 
} 
} 
goto start 
 
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 %kegx #CURSORX 
set %kegy #CURSORY 
goto configurar 
} 
if %conf = 5 
{ 
set %keg1x #CURSORX 
set %keg1y #CURSORY 
goto configurar 
} 
if %conf = 6 
{ 
if %confx = 0 
{ 
set %keg1x #CURSORX 
set %keg1y #CURSORY 
set %confx 1 
goto configurar 
} 
if %confx = 1 
{ 
set %keg2x #CURSORX 
set %keg2y #CURSORY 
set %confx 2 
goto configurar 
} 
} 
if %conf = 7 
{ 
if %confx = 0 
{ 
set %keg1x #CURSORX 
set %keg1y #CURSORY 
set %confx 1 
goto configurar 
} 
if %confx = 1 
{ 
set %keg2x #CURSORX 
set %keg2y #CURSORY 
set %confx 2 
goto configurar 
} 
if %confx = 2 
{ 
set %keg3x #CURSORX 
set %keg3y #CURSORY 
set %confx 3 
goto configurar 
} 
if %confx = 3 
{ 
set %keg4x #CURSORX 
set %keg4y #CURSORY 
set %confx 4 
goto configurar 
} 
} 
if %conf = 8 
{ 
if %confx = 0 
{ 
set %keg1x #CURSORX 
set %keg1y #CURSORY 
set %confx 1 
goto configurar 
} 
if %confx = 1 
{ 
set %keg2x #CURSORX 
set %keg2y #CURSORY 
set %confx 2 
goto configurar 
} 
if %confx = 2 
{ 
set %keg3x #CURSORX 
set %keg3y #CURSORY 
set %confx 3 
goto configurar 
} 
if %confx = 3 
{ 
set %keg4x #CURSORX 
set %keg4y #CURSORY 
set %confx 4 
goto configurar 
} 
if %confx = 4 
{ 
set %keg5x #CURSORX 
set %keg5y #CURSORY 
set %confx 5 
goto configurar 
} 
} 
} 
goto TESC 
 
start: 
setuotitle Macro de Alchemy Full - UA Sphere EasyUO Project - http://uasphere-euo.ath.cx 
if %pocion = 1 
{ 
goto venenomenor 
} 
if %pocion = 2 
{ 
goto veneno 
} 
if %pocion = 3 
{ 
goto venenomejorado 
} 
if %pocion = 4 
{ 
goto venenomortal 
} 
if %pocion = 5 
{ 
goto curacionmenor 
} 
if %pocion = 6 
{ 
goto curacion 
} 
if %pocion = 7 
{ 
goto curacionmejorada 
} 
if %pocion = 8 
{ 
goto antidotomenor 
} 
if %pocion = 9 
{ 
goto antidoto 
} 
if %pocion = 10 
{ 
goto antidotomejorada 
} 
if %pocion = 11 
{ 
goto agilidad 
} 
if %pocion = 12 
{ 
goto agilidadmejorada 
} 
if %pocion = 13 
{ 
goto resistencia 
} 
if %pocion = 14 
{ 
goto resistenciamejorada 
} 
if %pocion = 15 
{ 
goto fuerza 
} 
if %pocion = 16 
{ 
goto fuerzamejorada 
} 
if %pocion = 17 
{ 
goto explosionmenor 
} 
if %pocion = 18 
{ 
goto explosion 
} 
if %pocion = 19 
{ 
goto explosionmejorada 
} 
if %pocion = 20 
{ 
goto visionnocturna 
} 
if %pocion = 21 
{ 
goto encoger 
} 
if %pocion = 22 
{ 
goto mana 
} 
if %pocion = 23 
{ 
goto manatotal 
} 
if %pocion = 24 
{ 
goto pieldepiedra 
} 
if %pocion = 25 
{ 
goto invisibilidad 
} 
if %pocion = 26 
{ 
goto disipar 
} 
if %pocion = 27 
{ 
goto bendecir 
 
 
} 
if %pocion = 28 
{ 
goto armorreactive 
} 
if %pocion = 29 
{ 
goto sustento 
} 
if %pocion = 30 
{ 
goto cambiosexo 
} 
 
 
 
 
 
 
 
 
 
 
 
 
venenomenor: 
for %x 0 %veces 
{ 
findItem %mortero C_ , %mochila 
 
if #FINDSTACK = 0 
{ 
goto morteros 
} 
findItem %ns C_ , %cofre 
if #FINDSTACK = 0 
{ 
set %fin 1 
gosub finalizar 
} 
event Drag #findID 
wait 1s 
msg 1 
msg $ 
click %dejarx %dejary p 
finditem %mortero c_ , #backpackid 
set #LOBJECTID #FINDID 
event macro 17 
wait 2s 
deletejournal 
scanjournal 1 
if aviso:_dentro_de in #journal 
{ 
wait 120s 
} 
finditem %ns c_ , #backpackid 
set #LTARGETID #findid 
event macro 22 
wait 2s 
click %menu1x %menu1y d 
wait 8s 
click %kegx %kegy d 
findItem %pocionblanco C_ , %mochila 
click %kegx %kegy d 
wait 3s 
set #LTARGETID #FINDID 
event macro 22 0 
deleteJournal 
goto cargar 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
keg: 
if %kegs = 0 
{ 
set %fin 2 
gosub finalizar 
} 
if %kegs = 1 
set %kegx %keg1x 
set %kegy %keg1y 
 
set %kegs 0 
goto start 
} 
if %kegs = 2 
set kegs 1 
set %kegx %keg2x 
set %kegy %keg2y 
set %kegs 1 
goto start 
} 
if %kegs = 3 
set kegs 2 
set %kegx %keg3x 
set %kegy %keg3y 
set %kegs 2 
goto start 
} 
if %kegs = 4 
set kegs 3 
set %kegx %keg4x 
set %kegy %keg4y 
set% kegs 3 
goto start 
} 
goto start 
 
 
 
 
 
 
 
 
 
 
 
 
cargar: 
findItem %pocionblanco C_ , %mochila 
if #FINDCOL <> 0 
{ 
scanjournal 1 
if You_put in #journal || Your in #journal 
{ 
wait 3s 
findItem %pocionblanco C_ , %mochila 
click %kegx %kegy d 
wait 3s 
set #LTARGETID #FINDID 
event macro 22 0 
wait 3s 
goto cargar 
} 
if You_toss_the_failed in #journal 
{ 
set %veces 1 + %veces 
} 
} 
goto start 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
morteros: 
findItem %mortero C_ , %cofre 
if #FINDSTACK = 0 
{ 
set %fin 1 
gosub finalizar 
} 
event drag #FINDID 
wait 1s 
msg 1 
msg $ 
click %dejarx %dejary p 
goto start 
 
sub finalizar 
{ 
if %fin = 1 
{ 
display OK Macro terminada!$No se han encontrado los materiales necesarios! 
} 
if %fin = 2 
{ 
display OK Macro terminada!$Ya tienes hecho el keg! 
} 
halt 
return 
}

LE PUSE NUESTROS NOMBRES POR LA MODIFICACION XDD.
AUN QUEDAN UNOS PROBLEMAS POR ARREGLAR PERO CREO QUE VA PERFECTA POR LO MENOS PARA HACER EL VENENO MENOR SIN PREOCUPARSE POR METERLOS AL KEG
Y QUE TOME MORTEROS DEL BAUL.

ACLARO QUE EN MI CASO TENIA QUE MARCAR LA NIGHTSHADE EN EL PRIMER INTENTO CUANDO PREGUNTA "WHAT REAGENT YOU LIKE TO MAKE A POTION OUT OF? LUEGO VA SOLA.
A Y TAMBIEN LE SAQUE LA PARTE DE LAS OTRAS POCIONES, SOLO HACE VENENO MENOR, PERO ES FACIL CONFIGURARLA PARA QUE HAGA LAS OTRAS.
ACLARO Q A MI ME VA PERFECT NO SE EN OTROS CASOS.DEW.

**Hate** · 19-May-2008

Lo de llenar varios barriles no funciona, por todo lo demas funciona perfectamente.

OJO solo he probado a fabricar Veneno Menor.
Gracias.

**Sand** · 19-May-2008

Uy claro, q tonto copié y pegue la macro sin modificar, era esta:

Código HTML:

; Macro by Charlie (Ultima Alianza) Modificada por Karmelot y Badboy.
; Para hacer la pocion que queramos hasta 5 kegs
; RECUERDA: NO PUEDES TENER NINGUN REGS Y SOLO UN FRASCO VACIO EN LA MOCHILA
; Necesitamos un cofre/bolsa/contenedor donde tengamos los materiales (mucha cantidad de regs y morteros)
; En la mochila necesitamos tener un o dos morteros (cuando se acaben cogera mas morteros del cofre)
; Al empezar habrá que configurar el cofre/bolsa/contenedor donde se tiene los materiales dichos arriba
; Después donde queremos que deje los materiales en nuestra mochila, e indicar la mochila del parpedoll y kegs que usaremos
; RECUERDA: NO PUEDES TENER NINGUN REGS Y SOLO UN FRASCO VACIO EN LA MOCHILA
; RECUERDA: HACER DOS CLICKS SOBRE EL PARPEDOLL.
; RECUERDA: MARCAR LA NIGHTSHADE EN EL PRIMER INTENTO CUANDO PREGUNTE "WHAT REAGENT YOU LIKE TO MAKE A POTION OUT OF?
; CONFIGURACIóN :
;--------------------------
; Indica que pocion quieres hacer:
; 1- Veneno Menor
; 2- Veneno
; 3- Veneno Mejorado
; 4- Veneno Mortal
; 5- Curación Menor
; 6- Curación
; 7- Curación Mejorada
; 8- Antidoto Menor
; 9- Antidoto
; 10- Antidoto Mejorada
; 11- Agilidad
; 12- Agilidad Mejorada
; 13- Resistencia
; 14- Resistencia Mejorada
; 15- Fuerza
; 16- Fuerza Mejorada
; 17- Explosion Menor
; 18- Explosion
; 19- Explosion Mejorada
; 20- Visión Nocturna
; 21- Encoger
; 22- Mana
; 23- Mana Total
; 24- Piel de Piedra
; 25- Invisibilidad
; 26- Disipar
; 27- Bendecir
; 28- Armor Reactive
; 29- Sustento
; 30- Cambio de Sexo
;--------------------------
set %pocion 1
;--------------------------

; Indica cuanta cantidad quieres hacer ( 999 son 1000 pociones, 499 son 500 pociones, etc...):
; Si falla una poción no contara como una vez hecha
;--------------------------
set %veces 999
;--------------------------

; Indica cuantos kegs vas a usar para meter las pociones:
; 0- Mete las pociones en un solo keg
; 1- Mete las pociones en DOS kegs
; 2- Mete las pociones en TRES kegs
; 3- Mete las pociones en CUATRO kegs
; 4- Mete las pociones en CINCO kegs
; Los kegs hay que tenerlo bloqueados en el suelo de la casa
;--------------------------
set %kegs 0
;--------------------------




initevents
set %confp 1
set %conf 0
set %confx 0

set %menu1x 61
set %menu1y 64
set %menu2x 101
set %menu2y 66
set %menu3x 146
set %menu3y 65

; ---- Pociones ----

set %pocionblanco WUF

; ---- Materiales ----

set %mortero RQF
set %ss RZF
set %sa SZF
set %ns WZF
set %mr MZF
set %gs JZF
set %gl KZF
set %bm JUF
set %bp KUF
set %am IUF
set %on LZF
set %bt FUF
set %sd QZF

set %kegx
set %kegy
set %keg1x
set %keg1y
set %keg2x
set %keg2y
set %keg3x
set %keg3y
set %keg4x
set %keg4y
set %keg5x
set %keg5y

configurar:
if %confp = 1
{
Event sysmessage Macro de Charly. Ultima modificacion por los nobs en easyUO karmelot y Badboy para que solo haga veneno menor.
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 tengas un keg bloqueado en el suelo
event sysmessage Y presiona la tecla ESC
setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
set %conf 4
set %confp 5
goto TESC
}

if %confp = 5
{
if %kegs = 1
{
Event sysmessage Pon el cursor donde tengas un segundo keg bloqueado en el suelo
event sysmessage Y presiona la tecla ESC
setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
set %conf 5
set %confp 6
goto TESC
}
set %confp 6
goto configurar
}
if %confp = 6
{
if %kegs = 2
{
if %confx = 0
{
Event sysmessage Pon el cursor donde tengas un segundo keg bloqueado en el suelo
event sysmessage Y presiona la tecla ESC
setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
set %conf 6
goto TESC
}
if %confx = 1
{
Event sysmessage Pon el cursor donde tengas un tercero keg bloqueado en el suelo
event sysmessage Y presiona la tecla ESC
setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
set %conf 6
goto TESC
}
if %confx = 2
{
goto start
}
}
set %confp 7
goto configurar
}
if %confp = 7
{
if %kegs = 3
{
if %confx = 0
{
Event sysmessage Pon el cursor donde tengas un segundo keg bloqueado en el suelo
event sysmessage Y presiona la tecla ESC
setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
set %conf 7
goto TESC
}
if %confx = 1
{
Event sysmessage Pon el cursor donde tengas un tercero keg bloqueado en el suelo
event sysmessage Y presiona la tecla ESC
setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
set %conf 7
goto TESC
}
if %confx = 2
{
Event sysmessage Pon el cursor donde tengas un cuarto keg bloqueado en el suelo
event sysmessage Y presiona la tecla ESC
setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
set %conf 7
goto TESC
}
if %confx = 3
{
goto start
}
}
set %confp 8
goto configurar
}
if %confp = 8
{
if %kegs = 4
{
if %confx = 0
{
Event sysmessage Pon el cursor donde tengas un segundo keg bloqueado en el suelo
event sysmessage Y presiona la tecla ESC
setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
set %conf 8
goto TESC
}
if %confx = 1
{
Event sysmessage Pon el cursor donde tengas un tercero keg bloqueado en el suelo
event sysmessage Y presiona la tecla ESC
setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
set %conf 8
goto TESC
}
if %confx = 2
{
Event sysmessage Pon el cursor donde tengas un cuarto keg bloqueado en el suelo
event sysmessage Y presiona la tecla ESC
setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
set %conf 8
goto TESC
}
if %confx = 3
{
Event sysmessage Pon el cursor donde tengas un quinto keg bloqueado en el suelo
event sysmessage Y presiona la tecla ESC
setuotitle Pon el cursor donde tengas un keg bloqueado en el suelo y presiona ESC
set %conf 8
goto TESC
}
if %confx = 4
{
goto start
}
}
}
goto start

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 %kegx #CURSORX
set %kegy #CURSORY
goto configurar
}
if %conf = 5
{
set %keg1x #CURSORX
set %keg1y #CURSORY
goto configurar
}
if %conf = 6
{
if %confx = 0
{
set %keg1x #CURSORX
set %keg1y #CURSORY
set %confx 1
goto configurar
}
if %confx = 1
{
set %keg2x #CURSORX
set %keg2y #CURSORY
set %confx 2
goto configurar
}
}
if %conf = 7
{
if %confx = 0
{
set %keg1x #CURSORX
set %keg1y #CURSORY
set %confx 1
goto configurar
}
if %confx = 1
{
set %keg2x #CURSORX
set %keg2y #CURSORY
set %confx 2
goto configurar
}
if %confx = 2
{
set %keg3x #CURSORX
set %keg3y #CURSORY
set %confx 3
goto configurar
}
if %confx = 3
{
set %keg4x #CURSORX
set %keg4y #CURSORY
set %confx 4
goto configurar
}
}
if %conf = 8
{
if %confx = 0
{
set %keg1x #CURSORX
set %keg1y #CURSORY
set %confx 1
goto configurar
}
if %confx = 1
{
set %keg2x #CURSORX
set %keg2y #CURSORY
set %confx 2
goto configurar
}
if %confx = 2
{
set %keg3x #CURSORX
set %keg3y #CURSORY
set %confx 3
goto configurar
}
if %confx = 3
{
set %keg4x #CURSORX
set %keg4y #CURSORY
set %confx 4
goto configurar
}
if %confx = 4
{
set %keg5x #CURSORX
set %keg5y #CURSORY
set %confx 5
goto configurar
}
}
}
goto TESC

start:
setuotitle Macro de Alchemy Full - UA Sphere EasyUO Project - http://uasphere-euo.ath.cx
if %pocion = 1
{
goto venenomenor
}
if %pocion = 2
{
goto veneno
}
if %pocion = 3
{
goto venenomejorado
}
if %pocion = 4
{
goto venenomortal
}
if %pocion = 5
{
goto curacionmenor
}
if %pocion = 6
{
goto curacion
}
if %pocion = 7
{
goto curacionmejorada
}
if %pocion = 8
{
goto antidotomenor
}
if %pocion = 9
{
goto antidoto
}
if %pocion = 10
{
goto antidotomejorada
}
if %pocion = 11
{
goto agilidad
}
if %pocion = 12
{
goto agilidadmejorada
}
if %pocion = 13
{
goto resistencia
}
if %pocion = 14
{
goto resistenciamejorada
}
if %pocion = 15
{
goto fuerza
}
if %pocion = 16
{
goto fuerzamejorada
}
if %pocion = 17
{
goto explosionmenor
}
if %pocion = 18
{
goto explosion
}
if %pocion = 19
{
goto explosionmejorada
}
if %pocion = 20
{
goto visionnocturna
}
if %pocion = 21
{
goto encoger
}
if %pocion = 22
{
goto mana
}
if %pocion = 23
{
goto manatotal
}
if %pocion = 24
{
goto pieldepiedra
}
if %pocion = 25
{
goto invisibilidad
}
if %pocion = 26
{
goto disipar
}
if %pocion = 27
{
goto bendecir


}
if %pocion = 28
{
goto armorreactive
}
if %pocion = 29
{
goto sustento
}
if %pocion = 30
{
goto cambiosexo
}












venenomenor:
for %x 0 %veces
{
findItem %mortero C_ , %mochila

if #FINDSTACK = 0
{
goto morteros
}
scanjournal 1
if No_tienes_frascos in #journal
{
click %kegx %kegy d
findItem %pocionblanco C_ , %mochila
click %kegx %kegy d
wait 3s
set #LTARGETID #FINDID
event macro 22 0
}
findItem %ns C_ , %cofre
if #FINDSTACK = 0
{
set %fin 1
gosub finalizar
}
event Drag #findID
wait 1s
msg 1
msg $
click %dejarx %dejary p
finditem %mortero c_ , #backpackid
set #LOBJECTID #FINDID
event macro 17
wait 2s
deletejournal
scanjournal 1
if aviso:_dentro_de in #journal
{
wait 120s
}
finditem %ns c_ , #backpackid
set #LTARGETID #findid
event macro 22
wait 2s
click %menu1x %menu1y d
wait 8s
deleteJournal
goto cargar

















keg:
if %kegs = 0
{
set %fin 2
gosub finalizar
}
if %kegs = 1
set %kegx %keg1x
set %kegy %keg1y

set %kegs 0
goto start
}
if %kegs = 2
set kegs 1
set %kegx %keg2x
set %kegy %keg2y
set %kegs 1
goto start
}
if %kegs = 3
set kegs 2
set %kegx %keg3x
set %kegy %keg3y
set %kegs 2
goto start
}
if %kegs = 4
set kegs 3
set %kegx %keg4x
set %kegy %keg4y
set% kegs 3
goto start
}
goto start












cargar:
findItem %pocionblanco C_ , %mochila
if #FINDCOL <> 0
{
scanjournal 1
if You_put in #journal || Your in #journal
{
wait 3s
findItem %pocionblanco C_ , %mochila
click %kegx %kegy d
wait 3s
set #LTARGETID #FINDID
event macro 22 0
wait 3s
goto cargar
}
if You_toss_the_failed in #journal
{
set %veces 1 + %veces
}
}
goto start














morteros:
findItem %mortero C_ , %cofre
if #FINDSTACK = 0
{
set %fin 1
gosub finalizar
}
event drag #FINDID
wait 1s
msg 1
msg $
click %dejarx %dejary p
goto start

sub finalizar
{
if %fin = 1
{
display OK Macro terminada!$No se han encontrado los materiales necesarios!
}
if %fin = 2
{
display OK Macro terminada!$Ya tienes hecho el keg!
}
halt
return
}

Claro no le puse el scanjournal.

**Nex** · 20-May-2008

pues si le pones el scan journal me arias un gran favor, asi lo podria dejar x las noxes sabes? xd

Salu2!

**Sand** · 20-May-2008

El scanjournal esta puesto, en la que no estaba puesto era en la anterior, es que copié y pegué la macro sin modificar por eso volvi a ponerla.sal2.

**Nex** · 20-May-2008

ok muxas gracias ^^

**Trokolo** · 21-May-2008

jum pero solo esta pensada para veneno menor no? xD

**Hate** · 21-May-2008

a mi me sigue fallando en los saves.

**Trokolo** · 21-May-2008

en un par de dias o la semana k viene posteare una buena :P

**ConcodilloDanDic** · 21-May-2008

Iniciado por Hate

a mi me sigue fallando en los saves.

scanJournal nose muy bien como iba pero es la solucion. -.-

**Trokolo** · 21-May-2008

o simplemente una buskeda de finditem XXXXX C_ , BACKPACKID
pero el Finditem vende ser la buskeda de 3 letras k sea la de 5 letras asi no confunde frasco vacio y pocion llena :P

**Sand** · 21-May-2008

Y si, es solo para subir alquimia.
Que pasa si se le borra el sub finalizar, seguiria finalizandose en los saves?

el scanjournal lo tiene pero falla, no se demasiado de macros , solo modifique esta para usarla para mi comodidad si alguien puede correjirla para que quede una buena y definitiva macro de alquimia...

**Coaltar** · 07-Apr-2009

Como hicieron que esto funcione pq a mi no me pone las potis en el keg

**ilendul** · 09-Apr-2009

Hola muy buenas ya veo que la macro esta diseñada para hacer potas de venenor menor y guardarlos en keg, Pero yo nesecito una macro que pueda hacer potas de fuerza mejorada y vida mejorada y que tambien pueda guardarlos en Keg si alguien es an amble de pasar esa macro se lo agradecere

Gracias de antemano.

Tema: Macro Alquimia... ¿?

Herramientas

Buscar tema

Respuesta: Macro Alquimia... ¿?

Respuesta: Macro Alquimia... ¿?

Respuesta: Macro Alquimia... ¿?

Respuesta: Macro Alquimia... ¿?

Respuesta: Macro Alquimia... ¿?

Respuesta: Macro Alquimia... ¿?

Respuesta: Macro Alquimia... ¿?

Respuesta: Macro Alquimia... ¿?

Respuesta: Macro Alquimia... ¿?

Respuesta: Macro Alquimia... ¿?

Respuesta: Macro Alquimia... ¿?

Respuesta: Macro Alquimia... ¿?

Respuesta: Macro Alquimia... ¿?

Respuesta: Macro Alquimia... ¿?

Temas similares

Fallo en macro de alquimia.

Fallo Macro de alquimia

Macro de alquimia por favor...

Ayuda, alguien tiene macro de alquimia!!

Fallo macro Alquimia

Permisos de publicación