Aki dejo una macro para subir alkimia q va perfec, llena 4 kegs de veneno menor a saco.
initevents
set %confp 1
set %contador 0
configurar:
if %confp = 1
{
Event sysmessage Abre el cofre en el que tienes los materiales, manten el cursor sobre el.
set %conf 1
set %confp 2
goto TESC
}
if %confp = 2
{
Event sysmessage Pon el cursor donde quieras dejar los regs en tu mochila y presiona ESC
set %conf 2
set %confp 3
goto TESC
}
if %confp = 3
{
Event sysmessage Barril 1
set %conf 3
set %confp 4
goto TESC
}
if %confp = 4
{
Event sysmessage Barril 2
set %conf 4
set %confp 5
goto TESC
}
if %confp = 5
{
Event sysmessage Barril 3
set %conf 5
set %confp 6
goto TESC
}
if %confp = 6
{
Event sysmessage Barril 4
set %conf 6
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 %barr1x #CURSORX
set %barr1y #CURSORY
goto configurar
}
if %conf = 4
{
set %barr2x #CURSORX
set %barr2y #CURSORY
goto configurar
}
if %conf = 5
{
set %barr3x #CURSORX
set %barr3y #CURSORY
set %barrx %barr1x
set %barry %barr1y
set %contb 1
goto configurar
}
if %conf = 6
{
set %barr4x #CURSORX
set %barr4y #CURSORY
set %contb 1
goto empezar
}
}
goto TESC
empezar:
findItem wzF C_ , #BACKPACKID
set #LOBJECTID #FINDID
if #FINDSTACK < 5
{
findItem wzF C_ , %cofre
event drag #FINDID
wait 20
msg 53 $
click %dejarx %dejary p
wait 10
goto empezar
}
if #FINDSTACK > 4
{
event macro 17
wait 10
click 59 67 d
wait 8s
goto mekeg
}
mekeg:
finditem YSD C
wait 5
set #LOBJECTID #FINDID
event Macro 17 0 0
key ESC
findItem wzF C_ , #BACKPACKID
set #LOBJECTID #FINDID
if #FINDSTACK => 1
{
finditem WUF C_ , #BACKPACKID
click %barrx %barry d
wait 10
set #LTARGETID #FINDID
event macro 22 0
wait 6
Event sysmessage %contador
set %contador %contador + 1
if %contador => 950
{
if %contb = 1
{
set %barrx %barr2x
set %barry %barr2y
set %contador 0
set %contb %contb + 1
Event sysmessage conti1
goto empezar
}
if %contb = 2
{
set %barrx %barr3x
set %barry %barr3y
set %contador 0
set %contb %contb + 1
Event sysmessage conti2
goto empezar
}
if %contb = 3
{
set %barrx %barr4x
set %barry %barr4y
set %contador 0
set %contb %contb + 1
Event sysmessage conti2
goto empezar
}
if %contb = 4
{
Event sysmessage sacabo
halt
}
}
goto empezar
}