Va te pongo la mia espero te sirva si no sabes algo postea por aqui, otra cosa solo hace pergas en blanco no se cuanta carpinteria tendras pero vamos si no puedes usa la de trokolo hasta que puedas usar esta:
Código PHP:
;Macro mineritis carpinteria
;----------------------------
set %cantidad 4
;----------------------------
initevents
set %idserrucho AGG
set %idtroncos ZLK
set %idperga MMF
set %lotex 204
set %lotey 75
set %lotexx 58
set %loteyy 63
;----------------------------------
set %confp 1
;----------------------------------
configurar:
if %confp = 1
{
setuotitle Abre el cofre donde tengas los troncos y los serruchos, manten el cursor y pulsa ESC
event sysmessage Abre el cofre donde tengas los troncos y los serruchos, manten el cursor en el
event sysmessage Y pulsa ESC
set %conf 1
set %confp 2
goto TESC
}
if %confp = 2
{
setuotitle Pon el cursor donde quieres dejar los troncos en tu mochila y pulsa ESC
event sysmessage Pon el cursor donde quieres dejar los troncos
event sysmessage Y pulsa ESC
set %conf 2
goto TESC
}
TESC:
onHotKey ESC
{
if %conf = 1
{
set %cofre #LOBJECTID
set %cofrex #CURSORX
set %cofrey #CURSORY
goto configurar
}
if %conf = 2
{
set %dejarlx #CURSORX
set %dejarly #CURSORY
set %fin 0
goto empezar
}
}
goto TESC
empezar:
scanJournal
if Comienza_la_grabacion in #journal
{
gosub esperar
}
findItem %idperga C_ , #BACKPACKID
if #FINDSTACK > 1
{
event drag #FINDID
wait 20
msg $
wait 20
click %cofrex %cofrey p
wait 20
}
if #WEIGHT > 400
{
set %fin 7
gosub finalizar
}
if #WEIGHT > 320
{
gosub putopeso
}
findItem %idserrucho C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub serruchos
}
findItem %idtroncos C_ , #BACKPACKID
if #FINDSTACK = 3
{
event drag #FINDID
wait 10
msg $
click %cofrex %cofrey p
wait 20
{
goto empezar
}
}
findItem %idtroncos C_ , #BACKPACKID
if #FINDSTACK > 3
{
goto hacerlotes
}
findItem %idtroncos C_ , %cofre
if #FINDSTACK < 4
{
set %fin 1
gosub finalizar
}
event drag #FINDID
wait 10
msg %cantidad
msg $
click %dejarlx %dejarly p
wait 20
hacerlotes:
scanJournal
if Comienza_la_grabacion in #journal
{
gosub esperar
}
findItem %idperga C_ , #BACKPACKID
if #FINDSTACK > 1
{
event drag #FINDID
wait 20
msg $
wait 20
click %cofrex %cofrey p
wait 20
}
if #WEIGHT > 400
{
set %fin 7
gosub finalizar
}
if #WEIGHT > 320
{
gosub putopeso
}
findItem %idserrucho C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub serruchos
}
findItem %idtroncos C_ , %cofre
if #FINDSTACK < 4
{
set %fin 1
gosub finalizar
}
findItem %idtroncos C_ , #BACKPACKID
if #FINDSTACK = 3
{
event drag #FINDID
wait 10
msg $
click %cofrex %cofrey p
wait 20
{
goto empezar
}
}
findItem %idserrucho C_ , #BACKPACKID
set #LOBJECTID #FINDID
event macro 17
wait 20
click %lotex %lotey d
wait 20
click %lotexx %loteyy d
wait 13s
findItem %idperga C_ , #BACKPACKID
if #FINDSTACK = 0
{
goto hacerlotes
}
else
{
goto guardarlotes
}
guardarlotes:
scanJournal
if Comienza_la_grabacion in #journal
{
gosub esperar
}
findItem %idserrucho C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub serruchos
}
else
{
findItem %idperga C_ , #BACKPACKID
if #FINDSTACK > 0
{
event drag #FINDID
wait 20
click %cofrex %cofrey p
wait 20
}
goto empezar
}
sub serruchos
scanJournal
if Comienza_la_grabacion in #journal
{
gosub esperar
}
findItem %idserrucho C_ , %cofre
if #FINDSTACK = 0
{
set %fin 2
gosub finalizar
}
event drag #FINDID
wait 20
set %dejar2lx %dejarlx + 15
set %dejar2ly %dejarly + 15
click %dejar2lx %dejar2ly p
findItem %idserrucho C_ , #BACKPACKID
if #FINDSTACK = 0
{
gosub serruchos
}
return
}
sub esperar
{
{
wait 600
goto empezar
}
return
}
sub putopeso
{
if #WEIGHT > 400
{
set %fin 7
gosub finalizar
}
if #WEIGHT > 320
{
findItem %idperga C_ , #BACKPACKID
if #FINDSTACK > 0
{
event drag #FINDID
wait 20
msg $
wait 3s
click %cofrex %cofrey p
wait 20
}
}
goto empezar
}
{
return
}
sub finalizar
{
if %fin = 1 || %fin = N/A
{
display Macro terminada!$No se han encontrado troncos!
}
if %fin = 2 || %fin = N/A
{
display Macro terminada!$No se han encontrado serruchos!
}
halt
return
}