Se ponen al lado de un vendor, y le dan play.
NO es necesario empezar con kits de costura, si no hay, los compra.
Código:
;Macro de Sastrería por Mordor/Asuma.
;********************************Configuracion********************************
set %bandanas_vender 50 ;Cuando llegue a esta cantidad, se venderan.
;********************************Macro********************************
set %rollo ZZF
set %tela RTI
set %kit HAG
set %bandana TDI
set %menu1_x 192
set %menu1_y 63
set %bandana_x 59
set %bandana_y 66
chooseskill tail real
set %skill_ini #skill
display ok Macro by Asuma/Mordor
ciclo:
FINDITEM %rollo C_ , #BACKPACKID
IF #FINDCNT > 0
{
set #LOBJECTID #FINDID
event macro 17 0
wait 20
}
IF #HITS < 90
msg guards$
goSub CompraKit
goSub CompraTela
goSub Bandanas
goSub Renovar_Titulo
goto ciclo
;********************************Subs********************************
sub Bandanas
FINDITEM %bandana C_ , #BACKPACKID
IF #FINDCNT < %bandanas_vender
{
FINDITEM %kit C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
target
FINDITEM %tela C_ , #BACKPACKID
set #LTARGETID #FINDID
event macro 22 0
wait 17
IF #SYSMSG = NO_TIENES_NI_IDEA_DE_COMO_UTILIZAR_ESTO.
{
wait 20
event sysmessage Arreglando bug...
goSub Fix
wait 20
event sysmessage Arreglado
}
;Ahora selecciono la bandana
click %menu1_x %menu1_y d
wait 17
click %bandana_x %bandana_y d
wait 15
}
IF #FINDCNT >= %bandanas_vender
{
msg Vendor sell$
wait 2s
click 329 580
wait 2s
click 376 151
wait 2s
click 601 537
wait 2s
}
return
sub Fix
set #LOBJECTID #BACKPACKID
event macro 17 0
contpos 655 390
wait 20
FINDITEM %kit C_ , #BACKPACKID
event drag #FINDID
wait 20
click 838 429 p
wait 20
FINDITEM %tela C_ , #BACKPACKID
event drag #FINDID
wait 20
key Enter
wait 20
click 707 430 p
wait 20
click 824 464 d
wait 20
click 710 462 mc
wait 20
click 710 462
wait 2s
click 100 70 r
wait 2s
click 354 252 mc
return
sub CompraTela
FINDITEM %tela C_ , #BACKPACKID
IF #FINDSTACK < 10
{
event sysmessage -----Reponiendo tela...-----
msg Vendor buy$
wait 2s
click 397 258
wait 2s
click 601 537
wait 3s
FINDITEM %rollo C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
wait 20
}
return
sub CompraKit
FINDITEM %kit C_ , #BACKPACKID
IF #FINDCNT = 1
{
event sysmessage -----Reponiendo kit de costura...-----
msg Vendor buy$
wait 2s
click 398 138
wait 2s
click 601 537
wait 2s
goSub Comer
}
IF #FINDCNT = 0
{
event sysmessage -----Reponiendo kit de costura...-----
msg Vendor buy$
wait 2s
click 398 138
wait 2s
click 398 138
wait 2s
click 601 537
wait 2s
goSub Comer
}
return
sub Comer
FINDITEM YSD C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17 0
return
sub Renovar_Titulo
set %skill_gain #skill - %skill_ini
FINDITEM %tela C_ , #BACKPACKID
set %c_tela #FINDSTACK
FINDITEM %bandana C_ , #BACKPACKID
set %c_bandanas #FINDCNT
SetUoTitle Sastre | Skill Inicial : %skill_ini | Skill Actual : #skill | Puntos Ganados : %skill_gain | Telas : %c_tela | Bandanas : %c_bandanas
return
IMPORTANTE : Para que la macro funcione correctamente sin parar dejar el UO como la ventana activa de windows, es decir, como la ventana principal.
Probada con EasyUO 1.5 y Funcionando.