Macro de alkimia

[Sir Persifal]

Buenos dias , quisiera una macro de alkimia .

Gracias

[Coolforehand]

Yo 10.000kks.

Gracias.

[Sir Persifal]

y eso es todo lo ke saves decir siempre?
pues mejor es ke te calles

[freddydy]

Tienes varias creo, a ver si te funcionan;

5 - Alquimia--->http://ultima-alianza.com/foro/macro...e-asuma-37304/

Descripción : Depende lo que elija el usuario (modificando %Veneno por 1 o 0) se crearán pociones de veneneno/veneno menor y se guardarán en un contenedor.
Se necesita : Un contenedor que tenga Morteros, Nightshade, y Botellas Vacías, otro contenedor para guardar las pociones hechas y una bolsita en la mochila.

Código:

;Macro de Alquimia by Asuma/Mordor.
set %Veneno 1
;Cambiar a 0 si se quiere hacer pociones de veneno comun.
if %Veneno = 1
{
display ok Va a macrear con pociones de veneno menor gracias a Asuma/Mordor.
}
else
{
display ok Va a macrear con pociones de veneno gracias a Asuma/Mordor.
}
set %frasco WUF
set %mortero RQF
set %nightshade WZF
event sysmessage 1) Haga doble click en el contenedor donde esten las pociones, los reagentes y morteros.
set #SYSMSGCOL 68
event sysmessage Al tener esto listo, presionar ESC (Escape).
set #SYSMSGCOL 0
GetContainer:
OnHotKey ESC
{
set %container #LOBJECTID
wait 20
event sysmessage 2) Mantenga el cursor en el contenedor donde dejara sus pociones de veneno menor.
set #SYSMSGCOL 68
event sysmessage Al tener esto listo, presionar ESC (Escape).
set #SYSMSGCOL 0
goto next_container
}
goto GetContainer
next_container:
OnHotKey ESC
{
set %pot_cont_x #CURSORX
set %pot_cont_y #CURSORY
wait 20
event sysmessage 3) Mantenga el cursor en la mochila de la foto de su personaje.
set #SYSMSGCOL 68
event sysmessage Al tener esto listo, presionar ESC (Escape).
set #SYSMSGCOL 0
goto get_backpack
}
goto next_container
get_backpack:
OnHotKey ESC
{
set %backpack_x #CURSORX
set %backpack_y #CURSORY
wait 20
event sysmessage 4) Haga doble click en la bolsa ubicada en su mochila y mantenga la posicion del cursor.
set #SYSMSGCOL 68
event sysmessage Al tener esto listo, presionar ESC (Escape).
set #SYSMSGCOL 0
goto get_bolsita
}
goto get_backpack
get_bolsita:
OnHotKey ESC
{
set %bolsita_x #CURSORX
set %bolsita_y #CURSORY
set %bolsita #LOBJECTID
wait 2s
event sysmessage Datos guardados.
wait 20
goto main
}
goto get_bolsita
main:
key ESC
gosub Renovar_Titulo
gosub CheckRegs
gosub CheckMortero
gosub CheckFrasco
FINDITEM %mortero C_ , #BACKPACKID
if #FINDCNT = 0
{
goto main
}
set #LOBJECTID #FINDID
event macro 17 0
target
FINDITEM %nightshade C_ , %bolsita
if #FINDSTACK = 0
{
goto main
}
set #LTARGETID #FINDID
event macro 22 0
wait 1s
if %Veneno = 1
{
click 58 67 d
}
else
{
click 102 67 d
}
wait 12s
FINDITEM WUF C_ , #BACKPACKID
wait 1s
if #FINDSTACK > 9
{
event drag #FINDID
wait 20
key enter
wait 20
click %pot_cont_x %pot_cont_y
wait 20
event sysmessage Pociones guardadas.
}
goto main

sub CheckFrasco
FINDITEM %frasco C_ , %bolsita
if #FINDSTACK = 0
{
FINDITEM %frasco C_ , %container
if #FINDSTACK = 0
{
event sysmessage Se quedo sin frascos vacios.
halt
}
else
[
event drag #FINDID
wait 20
key 1
wait 20
key enter
wait 10
click %bolsita_x %bolsita_y
wait 20
event sysmessage Se tomo un frasco vacio.
}
}
return

sub CheckMortero
FINDITEM %mortero C_ , #BACKPACKID
if #FINDCNT = 0
{
FINDITEM %mortero C_ , %container
if #FINDCNT = 0
{
event sysmessage Se quedo sin morteros.
halt
}
else
{
event drag #FINDID
wait 10
click %backpack_x %backpack_y
wait 20
event sysmessage Se repuso un mortero.
}
}
return


sub CheckRegs
FINDITEM %nightshade C_ , %bolsita
if #FINDSTACK < 2
{
FINDITEM %nightshade C_ , %container
if #FINDSTACK < 50
{
event sysmessage Debe tener minimo 50 reagentes nightshade.
halt
}
else
{
event drag #FINDID
wait 20
key 5
wait 10
key 0
wait 10
key enter
wait 10
click %bolsita_x %bolsita_y
wait 20
event sysmessage Nightshade repuesto.
}
}
return

sub Renovar_Titulo
FINDITEM %frasco C_ , #BACKPACKID
setuotitle Pociones en mochila : #FINDSTACK | Macro by Asuma/Mordor.
return

Otras;
-http://ultima-alianza.com/foro/macros-f41/varias-macros-27404/
-http://ultima-alianza.com/foro/macros-f41/macro-alquimia-23636/ Bastante buena

Espero que te sirva de algo.

Un saludo

[Sir Persifal]

muchas gracias