; 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 2
;--------------------------
; 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 2
;--------------------------
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
}
Citar
