Código:
$${
toggle(reab)
if(reab)
LOG("&3&l[ReabString] &9Reabastecimento de &fLinha &aLIGADO")
echo("/g &3inicianto a macro de &9reabastecimento de &flinha &aReab&fString by &6zmatheus22")
////////////////////////
////////////////////////
////////////////////////
SET(#naovip,1); //// altere aqui o delay entre homes 1 = 1 segundo não vip coloque 5
////////////////////////
////////////////////////
////////////////////////
SET(#bau1,0)
SET(#bau12,67)
SET(#bau2,50)
SET(#bau22,63)
SET(#bau3,125)
SET(#bau32,63)
SET(#bau4,220)
SET(#bau42,60)
SET(&stringh,"linha") //mude aqui se quiser, a home de comprar linha.
SET(&pesqueiro,"sleeppesca") //mude aqui se quiser, a home do pesqueiro.
echo(/home %&stringh%)
wait(%#naovip%)
echo(/esconder)
wait(80ms)
echo(/menuloja on)
wait(200ms)
do(3)
key(use)
wait(200ms)
loop
do
getslotitem(35,#slot35)
if(#slot35 != 0)
break
else
slotclick(2,l,false)
wait(10ms)
key(use)
endif
loop
wait(100ms)
echo(/home %&pesqueiro%)
wait(%#naovip%)
look(%#bau1%,%#bau12%)
wait(500ms)
key(use)
wait(500ms)
key(use)
wait(1)
do
getslotitem(34,#slot34)
if(#slot34 != 0)
gui()
wait(5ms)
break
else
for(#guardar,54,89);
slotclick(%#guardar%,l,true);
next
endif
loop
wait(1)
echo(/home %&stringh%)
wait(%#naovip%)
do(3)
key(use)
wait(200ms)
loop
do
getslotitem(35,#slot35)
if(#slot35 != 0)
break
else
slotclick(2,l,false)
wait(10ms)
key(use)
endif
loop
wait(100ms)
echo(/home %&pesqueiro%)
wait(%#naovip%)
look(%#bau2%,%#bau22%)
wait(250ms)
key(use)
wait(250ms)
key(use)
wait(1)
do
getslotitem(34,#slot34)
if(#slot34 != 0)
gui()
wait(5ms)
break
else
for(#guardar,54,89);
slotclick(%#guardar%,l,true);
next
endif
loop
echo(/home %&stringh%)
wait(%#naovip%)
do(3)
key(use)
wait(200ms)
loop
do
getslotitem(35,#slot35)
if(#slot35 != 0)
break
else
slotclick(2,l,false)
wait(10ms)
key(use)
endif
loop
wait(100ms)
echo(/home %&pesqueiro%)
wait(%#naovip%)
look(%#bau3%,%#bau32%)
wait(250ms)
key(use)
wait(250ms)
key(use)
wait(1)
do
getslotitem(34,#slot34)
if(#slot34 != 0)
gui()
wait(5ms)
break
else
for(#guardar,54,89);
slotclick(%#guardar%,l,true);
next
endif
loop
echo(/home %&stringh%)
wait(1)
do(3)
key(use)
wait(200ms)
loop
do
getslotitem(35,#slot35)
if(#slot35 != 0)
break
else
slotclick(2,l,false)
wait(10ms)
key(use)
endif
loop
wait(100ms)
echo(/home %&pesqueiro%)
wait(%#naovip%)
look(%#bau4%,%#bau42%)
wait(250ms)
key(use)
wait(250ms)
key(use)
wait(1)
do
getslotitem(34,#slot34)
if(#slot34 != 0)
gui()
wait(5ms)
break
else
for(#guardar,54,89);
slotclick(%#guardar%,l,true);
next
endif
loop
//////////parte de baixo baus
echo(/home %&stringh%)
wait(%#naovip%)
do(3)
key(use)
wait(200ms)
loop
do
getslotitem(35,#slot35)
if(#slot35 != 0)
break
else
slotclick(2,l,false)
wait(10ms)
key(use)
endif
loop
wait(100ms)
echo(/home %&pesqueiro%)
wait(%#naovip%)
look(%#bau1%,%#bau12%)
wait(250ms)
key(use)
wait(250ms)
key(use)
wait(1)
do
getslotitem(45,#slot45)
if(#slot45 != 0)
gui()
wait(5ms)
break
else
for(#guardar,54,89);
slotclick(%#guardar%,l,true);
next
endif
loop
echo(/home %&stringh%)
wait(%#naovip%)
do(3)
key(use)
wait(200ms)
loop
do
getslotitem(35,#slot35)
if(#slot35 != 0)
break
else
slotclick(2,l,false)
wait(10ms)
key(use)
endif
loop
wait(100ms)
echo(/home %&pesqueiro%)
wait(%#naovip%)
look(%#bau2%,%#bau22%)
wait(250ms)
key(use)
wait(250ms)
key(use)
wait(1)
do
getslotitem(45,#slot45)
if(#slot45 != 0)
gui()
wait(5ms)
break
else
for(#guardar,54,89);
slotclick(%#guardar%,l,true);
next
endif
loop
echo(/home %&stringh%)
wait(%#naovip%)
do(3)
key(use)
wait(200ms)
loop
do
getslotitem(35,#slot35)
if(#slot35 != 0)
break
else
slotclick(2,l,false)
wait(10ms)
key(use)
endif
loop
wait(100ms)
echo(/home %&pesqueiro%)
wait(%#naovip%)
look(%#bau3%,%#bau32%)
wait(250ms)
key(use)
wait(250ms)
key(use)
wait(1)
do
getslotitem(45,#slot45)
if(#slot45 != 0)
gui()
wait(5ms)
break
else
for(#guardar,54,89);
slotclick(%#guardar%,l,true);
next
endif
loop
echo(/home %&stringh%)
wait(%#naovip%)
do(3)
key(use)
wait(200ms)
loop
do
getslotitem(35,#slot35)
if(#slot35 != 0)
break
else
slotclick(2,l,false)
wait(10ms)
key(use)
endif
loop
wait(100ms)
echo(/home %&pesqueiro%)
wait(%#naovip%)
look(%#bau4%,%#bau42%)
wait(250ms)
key(use)
wait(250ms)
key(use)
wait(1)
do
getslotitem(45,#slot45)
if(#slot45 != 0)
gui()
wait(5ms)
break
else
for(#guardar,54,89);
slotclick(%#guardar%,l,true);
next
endif
loop
Loop
else
LOG("&3&l[ReabString] &9Reabastecimento de &fLinha &cDESLIGADO")
stop
endif
}$$