Bueno pues seguramente no la vereis muy util, pero hablando con rafa mora me comento que le daba pereza hacer las armor de colores para reponer su vendor jeje, y bueno me puesto y le hecho una macro que va cojiendo lingotes de color de un contenedor en el que solo puede haber lingotes de 1 clase de mineral por que sino haria mezclas jeje. Bueno eso coje lingotes de un contenedor o bolsa vamos, y va haciendo armaduras completas y las va guardando en en el mismo contenedor, y va haciendo armaduras hasta que se gasten los minerales. Bueno lo unico a tener en cuenta es que se deben tener mas de 1 martillo en la mochila por si se rompe solo eso. Y bueno comparto la macro por si le vale alguien mas.


; ------------------------------------------------------
; Macro de hacer armor completas de colores
; Creado por: Tonono
; Ultima edición: 05/03/2012 por Tonono
;
; ------------------------------------------------------

configurar:
set #sysmsgcol 1264
set %martillo TLH_OLH_GBG_CGG
setuotitle MACRO HACER ARMOR DE TONONO
event sysmessage Copyright @Tonono
event sysmessage ================
event sysmessage Abre el contenedor donde cojer
event sysmessage los Lingotes y dejar armor
event sysmessage Presiona la tecla ESC.
event sysmessage ================
;set %cofre MIBKWMD
TESC:
onHotKey ESC
{
set %cofre #LOBJECTID
goto empezar
}
goto TESC

empezar:
gosub comprobar_lingotes
gosub cuello
gosub comprobar_lingotes
gosub guantes
gosub comprobar_lingotes
gosub casco
gosub comprobar_lingotes
gosub hombros
gosub comprobar_lingotes
gosub piernas
gosub comprobar_lingotes
gosub peto
goto empezar

sub peto
{
gosub comprobar_martillo
findItem RMK_NMK_XMK_TMK C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 10
click 179 69 d
wait 10
click 254 66 d
wait 10s
finditem HSH C_ , #BACKPACKID
if #FINDKIND = -1
{
gosub comprobar_lingotes
gosub peto
}
guardar_peto:
exevent drag #FINDID 1
wait 10
exevent dropc %cofre
wait 20
finditem HSH C_ , #BACKPACKID
if #FINDKIND <> -1
{
goto guardar_peto
}
return
}

sub piernas
{
gosub comprobar_martillo
findItem RMK_NMK_XMK_TMK C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 10
click 179 69 d
wait 10
click 228 60 d
wait 10s
finditem LSH C_ , #BACKPACKID
if #FINDKIND = -1
{
gosub comprobar_lingotes
gosub piernas
}
guardar_piernas:
exevent drag #FINDID 1
wait 10
exevent dropc %cofre
wait 20
finditem LSH C_ , #BACKPACKID
if #FINDKIND <> -1
{
goto guardar_piernas
}
return
}

sub hombros
{
gosub comprobar_martillo
findItem RMK_NMK_XMK_TMK C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 10
click 179 69 d
wait 10
click 179 60 d
wait 10s
finditem MSH C_ , #BACKPACKID
if #FINDKIND = -1
{
gosub comprobar_lingotes
gosub hombros
}
guardar_hombros:
exevent drag #FINDID 1
wait 10
exevent dropc %cofre
wait 20
finditem MSH C_ , #BACKPACKID
if #FINDKIND <> -1
{
goto guardar_hombros
}
return
}

sub casco
{
gosub comprobar_martillo
findItem RMK_NMK_XMK_TMK C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 10
click 179 69 d
wait 10
click 131 59 d
wait 10s
finditem OSH C_ , #BACKPACKID
if #FINDKIND = -1
{
gosub comprobar_lingotes
gosub casco
}
guardar_casco:
exevent drag #FINDID 1
wait 10
exevent dropc %cofre
wait 20
finditem OSH C_ , #BACKPACKID
if #FINDKIND <> -1
{
goto guardar_casco
}
return
}

sub guantes
{
gosub comprobar_martillo
findItem RMK_NMK_XMK_TMK C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 10
click 179 69 d
wait 10
click 89 62 d
wait 10s
finditem ISH C_ , #BACKPACKID
wait 10
if #FINDKIND = -1
{
gosub comprobar_lingotes
gosub guantes
}
guardar_guantes:
exevent drag #FINDID 1
wait 10
exevent dropc %cofre
wait 20
finditem ISH C_ , #BACKPACKID
if #FINDKIND <> -1
{
goto guardar_guantes
}
return
}

sub cuello
{
gosub comprobar_martillo
findItem RMK_NMK_XMK_TMK C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 10
click 179 69 d
wait 10
click 54 60 d
wait 10s
finditem NSH C_ , #BACKPACKID
if #FINDKIND = -1
{
gosub comprobar_lingotes
gosub cuello
}
guardar_cuello:
exevent drag #FINDID 1
wait 10
exevent dropc %cofre
wait 20
finditem NSH C_ , #BACKPACKID
if #FINDKIND <> -1
{
goto guardar_cuello
}
return
}

sub comprobar_martillo
{
gosub comprobar_martillo
finditem %martillo C_ , #BACKPACKID
if #FINDKIND = -1
{
display No quedan martillos
halt
}
set #LOBJECTID #FINDID
event macro 17
}

sub comprobar_lingotes
{
gosub comprobar_martillo
findItem RMK_NMK_XMK_TMK C_ , #BACKPACKID
if #FINDSTACK < 25
{
findItem RMK_NMK_XMK_TMK C_ , %cofre
if #FINDKIND <> -1
{
exevent drag #FINDID 25
wait 10
exevent dropc #BACKPACKID
wait 20
findItem RMK_NMK_XMK_TMK C_ , #BACKPACKID
if #FINDSTACK < 25
{
display no queda material suficiente
halt
}
}
else
{
display No quedan lingotes
halt
}
}
return
}