Pues bien tengo la siguiente macro.
Código:
initevents
chooseskill tink
set %skillini #skill
set %confp 1
configurar:
if %confp = 1
{
Event sysmessage Abre el cofre en el que tienes los lingotes y manten el cursor en el.
event sysmessage Y presiona la tecla ESC
setuotitle Abre el contenedor que contiene los lingotes y luego manten el cursor en el y presiona ESC
set %conf 1
set %confp 2
goto TESC
}
if %confp = 2
{
setuotitle Pon el cursor donde quieras poner los lingotes en tu mochila y presiona ESC
event sysmessage Pon el cursor donde quieras dejar los lingotes (en la mochila)
event sysmessage Y presiona la tecla ESC
set %conf 2
set %confp 3
goto TESC
}
if %confp = 3
{
setuotitle Pon el cursor donde quieras dejar las manillas y presiona ESC
event sysmessage Pon el cursor donde quieras dejar las manillas
event sysmessage Y presiona la tecla ESC
set %conf 3
goto TESC
}
TESC:
onHotKey ESC
{
if %conf = 1
{
set %cofre #LOBJECTID
set %cofrex #CURSORX
set %cofrey #CURSORY
goto configurar
}
if %conf = 2
{
set %dejarx #CURSORX
set %dejary #CURSORY
goto configurar
}
if %conf = 3
{
set %dejar_manillax #CURSORX
set %dejar_manillay #CURSORY
goto lingotes
}
}
goto TESC
; Coger lingotes
lingotes:
finditem RMK c_ , #BACKPACKID ; Mira los lingotes de la mochila, si se han acabado, coge 50
set %l_mochila #FINDSTACK
if %l_mochila < 5
{
findItem RMK C_ , %cofre
event drag #FINDID
wait 10
msg 50 $ ; Aquí se configura el nº de lingotes que va a coger
click %dejarx %dejary p
wait 10
}
goto manillas
manillas:
findItem GTL C_ , #BACKPACKID
set %tools #findcnt
if %tools < 2
{
finditem RMK c_ , #BACKPACKID ; Mira los lingotes de la mochila, si se han acabado, va a lingotes
set %l_mochila #FINDSTACK
if %l_mochila < 5
goto lingotes
;Creamos tinker tools
finditem GTL
set #LOBJECTID #FINDID
event macro 17
wait 1s
click 241 63 d
wait 1s
click 270 67 d ;**************************
wait 1s ;******************
click 270 67 d
wait 1s
click 270 67 d
wait 1s
click 270 67 d
wait 1s
click 237 68 d
wait 4s
}
; Creamos las manillas
finditem GTL C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 10
click 179 63 d
wait 10
click 104 63 d
wait 3s
finditem RMK c_ , #BACKPACKID
set %l_mochila #FINDSTACK
set %skillinc #SKILL - %skillini
setuotitle -Macro: Artesania -|- Lingotes en la mochila: %l_mochila -|- S. Inicial: %skillini -|- Actual: #SKILL -|- Incremento: %skillinc
goto guardar
; Dejar manillas en el sitio configurado
guardar:
finditem RCG C_ , #BACKPACKID
if #FINDSTACK > 50
{
wait 4s
event drag #findid
wait 10
msg $
wait 10
click %dejar_manillax %dejar_manillay p
wait 10
}
; Una vez guardemos las manillas en el cofre configurado al inicio del script
; Volvemos a empezar
goto lingotes
; Cuando se acaben los lingotes del cofre, termina la macro
finditem RMK c_ , %cofre
if #findstack = 0
{
setuotitle No quedan más lingotes, script finalizado
halt
}
El fallo que me da es el siguiente, empieza bien, pero cuando tiene un tinker tools, no se por que me salta con "You Can't Use this where it is", y la macro comienza a ir mal, no hace herramientas de tinker, y al quedarse sin cargas, se para...alguien podria mirarlo, y adaptarla al nuevo emulador?
Gracias