Busco Macro Alchemy

[Portgas D Ace]

alguien me prestaria alguna macro de alchemy ke vaya bien? kiero ke aga potas de veneno menor nada mas. un saludo.

[HighLooping]

[code]
; RECUERDA: NO PUEDES TENER REGS EN LA MOCHILA Y SOLO UN FRASCO VACIO EN LA MOCHILA.
; Se necesita un cofre con regs y al menos un keg bloqueado.
; 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- Nacho Vidal
; 22- Mana
; 23- Mana Total
; 24- Piel de Piedra
; 25- Invisibilidad
; 26- Disipar
; 27- Sonia Monroy
; 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
;--------------------------

;------------ A PARTIR DE AQUI NO SE MODIFICA --------------

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 Abre el cofre en el que tienes los crupiers doce melos
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 mokileta de breckindole
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 yayo matameldez
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
}

[HighLooping]

La tenia por ahi , nunca la utilice
Igual era de tierras baldias