A darle play que la macro les va guiando.
Es muy fácil.
Por ahora la probé solo yo, pero me va muy bien.
Deben tener 1 contenedor desde el cual puedan agarrar lingotes. En el mismo
se pondrán las botellas vacías que se vayan creando.
Código:
; Macro de Artesano by Asuma|Mordor.
display ok Macro by Asuma/Mordor.
chooseskill Tink Real
set %skill_ini #SKILL
set %herramienta GTL
set %botella_x 100
set %limite_botellas 20
GoSub GetContenedor
wait 20
GoSub GetMochila
wait 1s
set #SYSMSGCOL 68
event sysmessage Comenzara la macro...
wait 1s
inicio:
goSub CheckHerramientas
goSub HacerBotella
goSub Renovar_Titulo
goto inicio
; ************************ SUBS ************************
sub Renovar_Titulo
set %skill_gain #SKILL - %skill_ini
FINDITEM WUF C_ , %id_cofre
set %botellas_cofre #FINDSTACK
FINDITEM WUF C_ , #BACKPACKID
set %botellas_mochila #FINDSTACK
setuotitle | Skill Inicial : %skill_ini | Skill Actual : #skill | P. Ganados : %skill_gain | Botellas Guardadas : %botellas_cofre | Botellas en mochila : %botellas_mochila
return
sub HacerBotella
goSub Reponer_Lingotes
FINDITEM WUF C_ , #BACKPACKID
IF #FINDSTACK >= %limite_botellas
{
set #SYSMSGCOL 68
event sysmessage Guardando botellas...
event drag #FINDID
wait 20
key Enter
wait 20
click %cont_x %cont_y p
wait 10
event sysmessage Botellas guardadas.
}
FINDITEM %herramienta C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
wait 20
click 195 80 d
wait 20
click %botella_x 80 d
wait 1s
return
sub CheckHerramientas
GoSub Reponer_Lingotes
FINDITEM %herramienta C_ , #BACKPACKID
IF #FINDCNT = 0
{
event sysmessage No tienes ningun instrumento en la mochila.
stop
}
IF #FINDCNT = 1
{
while #FINDCNT < 5
{
set #LOBJECTID #FINDID
event macro 17 0
wait 20
click 195 80 d
wait 20
click 267 67
wait 10
click 267 67
wait 10
click 267 67
wait 10
click 235 80 d
FINDITEM %herramienta C_ , #BACKPACKID
}
}
return
sub Reponer_Lingotes
FINDITEM RMK C_ , #BACKPACKID
IF #FINDSTACK < 30
{
set #SYSMSGCOL 68
event sysmessage Reponiendo lingotes...
FINDITEM RMK C_ , %id_cofre
IF #FINDSTACK < 60
{
event sysmessage No hay mas lingotes.
stop
}
event Drag #FINDID
wait 20
key 6
wait 10
key 0
wait 10
key enter
wait 10
click %mochila_x %mochila_y p
event sysmessage Lingotes repuestos.
wait 1s
}
return
sub GetContenedor
set #SYSMSGCOL 68
event sysmessage Abra el contenedor donde esten los lingotes, mantenga el cursor en ese lugar y presione ESC.
get_conte:
OnHotKey ESC
{
set %id_cofre #LOBJECTID
set %cont_x #CURSORX
set %cont_y #CURSORY
return
}
goto get_conte:
return
sub GetMochila
set #SYSMSGCOL 68
event sysmessage Coloque el cursor sobre la mochila de la foto de su personaje y presione ESC.
get_mochi:
OnHotKey ESC
{
set %mochila_x #CURSORX
set %mochila_y #CURSORY
return
}
goto get_mochi:
return
IMPORTANTE : Esta macro fue probada con EasyUO 1.5