Acá dejo una macro hecha por mí para entrenar conocimiento de armas.
Código:
;Macro de Conocimiento de armas by Asuma/Zocrates.
;Debe tener 1 martillo de herrero EN LA MOCHILA.
;Debe tener 1 arma con la cual practicar EN LA MOCHILA.
;Debe tener 1 lingote solo EN LA MOCHILA.
;Debe estar al lado de una forja.
chooseskill Arms real
set %skill_inicial #SKILL
set %martillo TLH
set %repair_x 60
set %repair_y 81
event sysmessage Haga doble click sobre el arma que utilizara para practicar y presione ESC.
goSub Guarda_Arma
wait 5
goSub GetIronID
wait 5
event sysmessage Practicaras Conocimiento de Armas gracias a Zocrates/Asuma.
wait 5
FINDITEM %martillo C_ , #BACKPACKID
IF #FINDKIND = -1
{
event sysmessage No tienes ningun martillo de herrero en la mochila.
stop
}
ELSE
{
set #LOBJECTID #FINDID
wait 5
event macro 17
wait 10
key ESC
}
loop_repair:
set #LOBJECTID %lingotes
wait 5
event macro 17
wait 20
CLICK %repair_x %repair_y d
wait 10
set #LTARGETID %arma
wait 5
event macro 22
wait 10
goSub Renovar_Titulo
goto loop_repair
sub GetIronID
FINDITEM RMK C_ , #BACKPACKID
IF #FINDKIND = -1
{
event sysmessage No posees lingotes de hierro, se abortara la macro.
wait 5
stop
}
ELSE
{
set %lingotes #FINDID
return
}
sub Renovar_Titulo
set %skillgain #SKILL - %skill_inicial
setuotitle | Skill de Conocimiento de Armas | Inicial : %skill_inicial | Actual : #SKILL | Puntos Ganados : %skillgain
return
sub Guarda_Arma
arma_loop:
OnHotKey ESC
{
set %arma #LOBJECTID
return
}
goto arma_loop
Espero que les sirva. Yo macreé de 0 a 75 con esto en una noche y un poco más.
Un saludo.