ENTREGUE [Chronos] Macro mob de Lula

Compartilhando com vocês minha macro de lula, para ser usada no servidor chronos, porque atualmente
a lula no chronos é super bugada, visto que a agua não tem efeito sobre ela.
Por causa disso, a trap do mob tem que ser diferente, e a propria macro nao pode ser igual ao dos outos mobs, já que não dá para ficar parado esperando o mob vir até você, então a macro precisa ir procurar a lula.
"Mas porque se dar o trabalho de fazer um mob de lula se está bugado?" -a lula na warp vip vale 17c cada, mais da metade do preço da blaze, levando em consideração que o ovo de lula custa menos de 1 décimo que o de blaze, é algo que vale a pena investir.

Como a macro funciona:

Spoiler

-Feito a "trap", é necessario setar homes ao redor do mob (veja a parte de como fazer a trap), homes essas que a macro vai ir de 1 em 1 procurar pela lula, tendo encontrado a lula ela ficará batendo, e então irá vender as tintas (/home wvtinta) e depois voltará para o mob e continuará a bater, caso a lula suma, ou o player mova a mira (ou seja não esteja mais olhando para a lula), a macro inicia o processo de busca novamente.
-Quando a espada fica com durabilidade baixa, uiliza o /reparar.
-Detecta se está sem dima usando o onChat.

Informações importantes:

Spoiler

Versão para Vips:
-Espada no slot 9, bloco de dima no slot 8.
Para não Vips:
-Espadas nos slots de 1-9.
-o delay pra teleporte está 4 segundos, se parece que não é o suficiente altere nas linhas 55 e 82 está "wait(4);" mude o 4 para o numero que desejar!
-A macro foi testada em um x1 de Lula no mundo 1, e rende aproximadamente 2kk800 por dia usando pilhagem 3.
-Pelo modo que a trap tem que ser feita me parece bem improvavel que dê para achar um mob maior q x3 no mundo1.
-Não tive a oportunidade de testar a macro em mobs maiores, mas caso perceba que a macro esteja indo vender com o inventario lotado todas as vezes, recomendo diminir o numero que se encontra na 20º linha, vai testando numeros menores EX: " Do(1700);" porque ir toda hora ir vender com o inventario lotado significa que você está deixando de recolher mais tintas.
-Tem duas versões da macro, 1 que vende e uma que guarda, testei as 2 versões, e a que guarda dá ligeiramente menos lucro que a que vende direto, porem creio que em mobs maiores (como vai ter uma maior area para procurar), talvez a que guarde valha mais a pena, será preciso testar.

A trap:

Spoiler

Trap do mob:
-A trap é basicamente um chao liso, o que importa é onde você seta as homes (/sethome lula1, lula2 etc).
-Nos testes que eu fiz diversas vezes a lula spawnou dentro de blocos, então é importante fazer as paredes do mob á 4 blocos de distancia, e não colocar bloco em cima da gaiola.


-Faça o chão a 3 blocos da gaiola (pode ser mais, porem tenha em mente que quando você estiver na ponta do mob, a gaiola mais distante de você tem que estar ativa (o mob dentro dela girando) e fazer o chao proximo ás gaiolas te ajuda a ganhar uns blocos extras na proximidade de um mob grande)
-Marca as paredes 4 blocos de distancia das gaiolas (parede no 5º bloco) e marca o perimetro do mob.


bloco de lapiz marcando o local da parede, esmeralda marcando o local das homes.

-A partir do canto vc conta 2 blocos na diagonal e seta uma home /sethome lula1 (Caso seja um mob grande, sugiro primeiramente só marcar o local da home com blocos diferentes, e depois voltar e setar as homes do centro pra fora).


-Á 4 blocos de distancia vc marca outra home, e vai fazendo uma grade, com as homes a 4 blocos de distancia uma das outras.


-Seta home tambem em cima das gaiolas.
-Seta home tambem em frente a placa de venda de tinta (/sethome wvtinta)


Veja a area que a macro consegue acertar uma lula:

Onde os circulos indicam á area de cobertura da macro, veja que os circulos cruzam um com o outro porem o canto do mob se encontra bem na borda da area de alcançe. por isso atente-se para que a home nao seja setada a mais de 2 blocos de distancia do canto!


Trap de baus:
-Trap simples de 120 baus, que de preferencia deve ser construida acima ou abaixo do mob (de modo que você ainda fique carregando o mob enquanto guarda as tintas) para a lula não sumir, minha teoria é que num mob com varias homes seja mais rapido uma vez encontrada a lula simplesmente manter ela no mesmo lugar (não deixando ela despawnar) do que ficar procurando ela todas as vezes. (o mesmo se aplica a não vips, dado o delay de teleporte)
-Seta a home (/sethome baulula) bem no meio de 4 blocos, a 2 blocos de distancia coloca os baus em 6 colunas de 5 de altura.

Seta a home no meio dos blocos do meio.


6 fileiras de baus com 5 de altura.

Os codigos.

Spoiler

Pra colocar é a mesma coisa de sempre, escolhe uma tecla cria um arquivo chamado lulabugada cola o cod etc
-Na 15º linha está escrito #maxnum=5; altere o 5 para o numero total de homes que voce setou! (no caso é 5 porque em um x1 vc seta 4 homes no chão + 1 na gaiola).
-Novamente: Caso perceba que a macro esteja indo guardar/vender as tintas sempre com o inventario lotado, altere no numero da 18º/20º linha ,"do(1900);" pra macro de vender ou "do(1600);" pra macro de guardar, para um numeo menor, de forma que a macro não fique matando as lulas com o inventario cheio!!
Macro que vende [VIPS]:

Spoiler

$${
if(@lulab);
unset(@lulab);
log("&d{MACRO} &6Macro lula bugada &4[OFF]");
stop;
else;
set(@lulab);
unset(dd);
unset(@paredup);
unset(@semrep);
log("&d{MACRO} &6Macro lula bugada &2[ON]");
endif;

#num=1;
#maxnum=5;
#look=0;
slot(9);
do;
do(1900);
if(%DURABILITY%<=30);
echo(/reparar);
if(@semrep);
log("&d{MACRO} &6Macro lula bugada &4[OFF]");
unset(@lulab);
unset(@paredup);
volume(100);
stop();
endif;


if(@paredup);
log("&d{MACRO} &6Macro lula bugada &4[OFF]");
unset(@lulab);
unset(@paredup);
volume(100);
stop();
endif;

endif;
if(%HITID%=94);
key(attack);
wait(150ms);
key(attack);
wait(150ms);
else;
log(Não estou olhando pra lula!);
log(procurando lulas!);
do;
echo(/home lula%#num%);
wait(3);
do;
if(dd);
look(%#look%,45);
else;
look(%#look%,30);
endif;
wait(100ms);
if(%HITID%!=94);
inc(#look,15);
endif;
until((%HITID%=94)||(%#look%>=360));

if((%HITID%!=94)&&(%#look%>=360));
#look=0;
inc(#num);
endif;

if(%#num%>%#maxnum%);
#num=1;
log(nenhuma lula encontrada tentando de novo);
toggle(dd);
endif;
until(%HITID%=94);
endif;
loop;
echo(/home wvtinta);
wait(3);
echo(/menuloja off);
wait(100ms);
echo(/esconder);
wait(300ms);
key(attack);
wait(250ms);
key(attack);
wait(500ms);
loop;
}$$

Macro que guarda [VIPS]:

Spoiler

$${
if(@lulab);
unset(@lulab);
log("&d{MACRO} &6Macro lula bugada &4[OFF]");
stop;
else;
set(@lulab);
unset(dd);
unset(@paredup);
unset(@semrep);
log("&d{MACRO} &6Macro lula bugada &2[ON]");
endif;

#num=1;
#maxnum=5;
#look=0;
#bauf=1;
slot(9);
do;
do(1600);
if(%DURABILITY%<=30);
echo(/reparar);
if(@semrep);
log("&d{MACRO} &6Macro lula bugada &4[OFF]");
unset(@lulab);
unset(@paredup);
volume(100);
stop();
endif;

if(@paredup);
log("&d{MACRO} &6Macro lula bugada &4[OFF]");
unset(@lulab);
unset(@paredup);
volume(100);
stop();
endif;
endif;

if(%HITID%=94);
key(attack);
wait(150ms);
key(attack);
wait(150ms);
else;
log(Não estou olhando pra lula!);
log(procurando lulas!);
do;
echo(/home lula%#num%);
wait(3);
do;
if(dd);
look(%#look%,45);
else;
look(%#look%,30);
endif;
wait(50ms);
if(%HITID%!=94);
inc(#look,15);
endif;
until((%HITID%=94)||(%#look%>=360));

if((%HITID%!=94)&&(%#look%>=360));
#look=0;
inc(#num);
endif;

if(%#num%>%#maxnum%);
#num=1;
log(nenhuma lula encontrada tentando de novo);
toggle(dd);
endif;
until(%HITID%=94);
endif;
loop;
echo(/home baulula);
wait(3);
do;
if(%#bauf%=1);look(320,335);wait(200ms);endif;
if(%#bauf%=2);look(320,350);wait(200ms);endif;
if(%#bauf%=3);look(320,0);wait(200ms);endif;
if(%#bauf%=4);look(320,15);wait(200ms);endif;
if(%#bauf%=5);look(320,25);wait(200ms);endif;
if(%#bauf%=6);look(335,335);wait(200ms);endif;
if(%#bauf%=7);look(335,350);wait(200ms);endif;
if(%#bauf%=8);look(335,0);wait(200ms);endif;
if(%#bauf%=9);look(335,20);wait(200ms);endif;
if(%#bauf%=10);look(335,35);wait(200ms);endif;
if(%#bauf%=11);look(350,329);wait(200ms);endif;
if(%#bauf%=12);look(350,350);wait(200ms);endif;
if(%#bauf%=13);look(350,0);wait(200ms);endif;
if(%#bauf%=14);look(350,20);wait(200ms);endif;
if(%#bauf%=15);look(350,35);wait(200ms);endif;
if(%#bauf%=16);look(5,329);wait(200ms);endif;
if(%#bauf%=17);look(5,350);wait(200ms);endif;
if(%#bauf%=18);look(5,0);wait(200ms);endif;
if(%#bauf%=19);look(5,20);wait(200ms);endif;
if(%#bauf%=20);look(5,35);wait(200ms);endif;
if(%#bauf%=21);look(25,335);wait(200ms);endif;
if(%#bauf%=22);look(25,350);wait(200ms);endif;
if(%#bauf%=23);look(25,0);wait(200ms);endif;
if(%#bauf%=24);look(25,15);wait(200ms);endif;
if(%#bauf%=25);look(25,35);wait(200ms);endif;
if(%#bauf%=26);look(38,335);wait(200ms);endif;
if(%#bauf%=27);look(38,350);wait(200ms);endif;
if(%#bauf%=28);look(38,0);wait(200ms);endif;
if(%#bauf%=29);look(38,15);wait(200ms);endif;
if(%#bauf%=30);look(38,25);wait(200ms);endif;
if(%#bauf%=31);look(50,335);wait(200ms);endif;
if(%#bauf%=32);look(50,350);wait(200ms);endif;
if(%#bauf%=33);look(50,0);wait(200ms);endif;
if(%#bauf%=34);look(50,15);wait(200ms);endif;
if(%#bauf%=35);look(50,25);wait(200ms);endif;
if(%#bauf%=36);look(65,335);wait(200ms);endif;
if(%#bauf%=37);look(65,350);wait(200ms);endif;
if(%#bauf%=38);look(65,0);wait(200ms);endif;
if(%#bauf%=39);look(65,20);wait(200ms);endif;
if(%#bauf%=40);look(65,35);wait(200ms);endif;
if(%#bauf%=41);look(80,329);wait(200ms);endif;
if(%#bauf%=42);look(80,350);wait(200ms);endif;
if(%#bauf%=43);look(80,0);wait(200ms);endif;
if(%#bauf%=44);look(80,20);wait(200ms);endif;
if(%#bauf%=45);look(80,35);wait(200ms);endif;
if(%#bauf%=46);look(95,329);wait(200ms);endif;
if(%#bauf%=47);look(95,350);wait(200ms);endif;
if(%#bauf%=48);look(95,0);wait(200ms);endif;
if(%#bauf%=49);look(95,20);wait(200ms);endif;
if(%#bauf%=50);look(95,35);wait(200ms);endif;
if(%#bauf%=51);look(115,335);wait(200ms);endif;
if(%#bauf%=52);look(115,350);wait(200ms);endif;
if(%#bauf%=53);look(115,0);wait(200ms);endif;
if(%#bauf%=54);look(115,15);wait(200ms);endif;
if(%#bauf%=55);look(115,35);wait(200ms);endif;
if(%#bauf%=56);look(128,335);wait(200ms);endif;
if(%#bauf%=57);look(128,350);wait(200ms);endif;
if(%#bauf%=58);look(128,0);wait(200ms);endif;
if(%#bauf%=59);look(128,15);wait(200ms);endif;
if(%#bauf%=60);look(128,25);wait(200ms);endif;
if(%#bauf%=61);look(140,335);wait(200ms);endif;
if(%#bauf%=62);look(140,350);wait(200ms);endif;
if(%#bauf%=63);look(140,0);wait(200ms);endif;
if(%#bauf%=64);look(140,15);wait(200ms);endif;
if(%#bauf%=65);look(140,25);wait(200ms);endif;
if(%#bauf%=66);look(155,335);wait(200ms);endif;
if(%#bauf%=67);look(155,350);wait(200ms);endif;
if(%#bauf%=68);look(155,0);wait(200ms);endif;
if(%#bauf%=69);look(155,20);wait(200ms);endif;
if(%#bauf%=70);look(155,35);wait(200ms);endif;
if(%#bauf%=71);look(170,329);wait(200ms);endif;
if(%#bauf%=72);look(170,350);wait(200ms);endif;
if(%#bauf%=73);look(170,0);wait(200ms);endif;
if(%#bauf%=74);look(170,20);wait(200ms);endif;
if(%#bauf%=75);look(170,35);wait(200ms);endif;
if(%#bauf%=76);look(185,329);wait(200ms);endif;
if(%#bauf%=77);look(185,350);wait(200ms);endif;
if(%#bauf%=78);look(185,0);wait(200ms);endif;
if(%#bauf%=79);look(185,20);wait(200ms);endif;
if(%#bauf%=80);look(185,35);wait(200ms);endif;
if(%#bauf%=81);look(205,335);wait(200ms);endif;
if(%#bauf%=82);look(205,350);wait(200ms);endif;
if(%#bauf%=83);look(205,0);wait(200ms);endif;
if(%#bauf%=84);look(205,15);wait(200ms);endif;
if(%#bauf%=85);look(205,35);wait(200ms);endif;
if(%#bauf%=86);look(218,335);wait(200ms);endif;
if(%#bauf%=87);look(218,350);wait(200ms);endif;
if(%#bauf%=88);look(218,0);wait(200ms);endif;
if(%#bauf%=89);look(218,15);wait(200ms);endif;
if(%#bauf%=90);look(218,25);wait(200ms);endif;
if(%#bauf%=91);look(230,335);wait(200ms);endif;
if(%#bauf%=92);look(230,350);wait(200ms);endif;
if(%#bauf%=93);look(230,0);wait(200ms);endif;
if(%#bauf%=94);look(230,15);wait(200ms);endif;
if(%#bauf%=95);look(230,25);wait(200ms);endif;
if(%#bauf%=96);look(245,335);wait(200ms);endif;
if(%#bauf%=97);look(245,350);wait(200ms);endif;
if(%#bauf%=98);look(245,0);wait(200ms);endif;
if(%#bauf%=99);look(245,20);wait(200ms);endif;
if(%#bauf%=100);look(245,35);wait(200ms);endif;
if(%#bauf%=101);look(260,329);wait(200ms);endif;
if(%#bauf%=102);look(260,350);wait(200ms);endif;
if(%#bauf%=103);look(260,0);wait(200ms);endif;
if(%#bauf%=104);look(260,20);wait(200ms);endif;
if(%#bauf%=105);look(260,35);wait(200ms);endif;
if(%#bauf%=106);look(275,329);wait(200ms);endif;
if(%#bauf%=107);look(275,350);wait(200ms);endif;
if(%#bauf%=108);look(275,0);wait(200ms);endif;
if(%#bauf%=109);look(275,20);wait(200ms);endif;
if(%#bauf%=110);look(275,35);wait(200ms);endif;
if(%#bauf%=111);look(295,335);wait(200ms);endif;
if(%#bauf%=112);look(295,350);wait(200ms);endif;
if(%#bauf%=113);look(295,0);wait(200ms);endif;
if(%#bauf%=114);look(295,15);wait(200ms);endif;
if(%#bauf%=115);look(295,35);wait(200ms);endif;
if(%#bauf%=116);look(308,335);wait(200ms);endif;
if(%#bauf%=117);look(308,350);wait(200ms);endif;
if(%#bauf%=118);look(308,0);wait(200ms);endif;
if(%#bauf%=119);look(308,15);wait(200ms);endif;
if(%#bauf%=120);look(308,25);wait(200ms);endif;
if(%#bauf%>120);unset(@lulab);log("&d{MACRO} &6Macro lula bugada &4[OFF]");
stop;
endif;
wait(300ms);
key(use);
wait(1);
for(#sl,54,89);
getslotitem(%#sl%,&id);
if(%&id%="dye");
slotclick(%#sl%,left,true);
wait(35ms);
endif;
next;
getslotitem(53,&idd);
if(%&idd%!="air");
inc(#bauf);
endif;
gui;
until((%&idd%="air")||(%#bauf%>120));
loop;
}$$

Macro que vende [Não VIPS]:

Spoiler

$${
if(@lulab);
unset(@lulab);
log("&d{MACRO} &6Macro lula bugada &4[OFF]");
stop;
else;
set(@lulab);
unset(dd);
unset(@paredup);
unset(@semrep);
log("&d{MACRO} &6Macro lula bugada &2[ON]");
endif;

#nslot=1;
#num=1;
#maxnum=5;
#look=0;
slot(%#nslot%);
do;
do(1900);

if(%ITEM%!="diamond_sword");
inc(#nslot);
slot(%#nslot%);
endif;
if(%DURABILITY%<45);
if(%#nslot%>=9);
slot(1);
#nslot=1;
log(&d{MACRO} &fparece que todas as espadas acabaram&6=O);
log("&d{MACRO} &6Macro lula bugada &4[OFF]");
unset(@lulab);
volume(100);
stop();
gui();
else;
inc(#nslot,1);
slot(%#nslot%);
endif();
endif;




if(%HITID%=94);
key(attack);
wait(150ms);
key(attack);
wait(150ms);
else;
log(Não estou olhando pra lula!);
log(procurando lulas!);
do;
echo(/home lula%#num%);
wait(4);
do;
if(dd);
look(%#look%,45);
else;
look(%#look%,30);
endif;
wait(100ms);
if(%HITID%!=94);
inc(#look,15);
endif;
until((%HITID%=94)||(%#look%>=360));

if((%HITID%!=94)&&(%#look%>=360));
#look=0;
inc(#num);
endif;

if(%#num%>%#maxnum%);
#num=1;
log(nenhuma lula encontrada tentando de novo);
toggle(dd);
endif;
until(%HITID%=94);
endif;
loop;
echo(/home wvtinta);
wait(4);
echo(/menuloja off);
wait(100ms);
echo(/esconder);
wait(300ms);
key(attack);
wait(250ms);
key(attack);
wait(500ms);
loop;
}$$

Macro que guarda [Não VIPS]:

Spoiler

$${
if(@lulab);
unset(@lulab);
log("&d{MACRO} &6Macro lula bugada &4[OFF]");
stop;
else;
set(@lulab);
unset(dd);
unset(@paredup);
unset(@semrep);
log("&d{MACRO} &6Macro lula bugada &2[ON]");
endif;
#nslot=1;
#num=1;
#maxnum=5;
#look=0;
#bauf=1;
slot(%#nslot%);
do;
do(1600);

if(%ITEM%!="diamond_sword");
inc(#nslot);
slot(%#nslot%);
endif;
if(%DURABILITY%<45);
if(%#nslot%>=9);
slot(1);
#nslot=1;
log(&d{MACRO} &fparece que todas as espadas acabaram&6=O);
log("&d{MACRO} &6Macro lula bugada &4[OFF]");
unset(@lulab);
volume(100);
stop();
gui();
else;
inc(#nslot,1);
slot(%#nslot%);
endif();
endif;



if(%HITID%=94);
key(attack);
wait(150ms);
key(attack);
wait(150ms);
else;
log(Não estou olhando pra lula!);
log(procurando lulas!);
do;
echo(/home lula%#num%);
wait(4);
do;
if(dd);
look(%#look%,45);
else;
look(%#look%,30);
endif;
wait(50ms);
if(%HITID%!=94);
inc(#look,15);
endif;
until((%HITID%=94)||(%#look%>=360));

if((%HITID%!=94)&&(%#look%>=360));
#look=0;
inc(#num);
endif;

if(%#num%>%#maxnum%);
#num=1;
log(nenhuma lula encontrada tentando de novo);
toggle(dd);
endif;
until(%HITID%=94);
endif;
loop;
echo(/home baulula);
wait(4);
do;
if(%#bauf%=1);look(320,335);wait(200ms);endif;
if(%#bauf%=2);look(320,350);wait(200ms);endif;
if(%#bauf%=3);look(320,0);wait(200ms);endif;
if(%#bauf%=4);look(320,15);wait(200ms);endif;
if(%#bauf%=5);look(320,25);wait(200ms);endif;
if(%#bauf%=6);look(335,335);wait(200ms);endif;
if(%#bauf%=7);look(335,350);wait(200ms);endif;
if(%#bauf%=8);look(335,0);wait(200ms);endif;
if(%#bauf%=9);look(335,20);wait(200ms);endif;
if(%#bauf%=10);look(335,35);wait(200ms);endif;
if(%#bauf%=11);look(350,329);wait(200ms);endif;
if(%#bauf%=12);look(350,350);wait(200ms);endif;
if(%#bauf%=13);look(350,0);wait(200ms);endif;
if(%#bauf%=14);look(350,20);wait(200ms);endif;
if(%#bauf%=15);look(350,35);wait(200ms);endif;
if(%#bauf%=16);look(5,329);wait(200ms);endif;
if(%#bauf%=17);look(5,350);wait(200ms);endif;
if(%#bauf%=18);look(5,0);wait(200ms);endif;
if(%#bauf%=19);look(5,20);wait(200ms);endif;
if(%#bauf%=20);look(5,35);wait(200ms);endif;
if(%#bauf%=21);look(25,335);wait(200ms);endif;
if(%#bauf%=22);look(25,350);wait(200ms);endif;
if(%#bauf%=23);look(25,0);wait(200ms);endif;
if(%#bauf%=24);look(25,15);wait(200ms);endif;
if(%#bauf%=25);look(25,35);wait(200ms);endif;
if(%#bauf%=26);look(38,335);wait(200ms);endif;
if(%#bauf%=27);look(38,350);wait(200ms);endif;
if(%#bauf%=28);look(38,0);wait(200ms);endif;
if(%#bauf%=29);look(38,15);wait(200ms);endif;
if(%#bauf%=30);look(38,25);wait(200ms);endif;
if(%#bauf%=31);look(50,335);wait(200ms);endif;
if(%#bauf%=32);look(50,350);wait(200ms);endif;
if(%#bauf%=33);look(50,0);wait(200ms);endif;
if(%#bauf%=34);look(50,15);wait(200ms);endif;
if(%#bauf%=35);look(50,25);wait(200ms);endif;
if(%#bauf%=36);look(65,335);wait(200ms);endif;
if(%#bauf%=37);look(65,350);wait(200ms);endif;
if(%#bauf%=38);look(65,0);wait(200ms);endif;
if(%#bauf%=39);look(65,20);wait(200ms);endif;
if(%#bauf%=40);look(65,35);wait(200ms);endif;
if(%#bauf%=41);look(80,329);wait(200ms);endif;
if(%#bauf%=42);look(80,350);wait(200ms);endif;
if(%#bauf%=43);look(80,0);wait(200ms);endif;
if(%#bauf%=44);look(80,20);wait(200ms);endif;
if(%#bauf%=45);look(80,35);wait(200ms);endif;
if(%#bauf%=46);look(95,329);wait(200ms);endif;
if(%#bauf%=47);look(95,350);wait(200ms);endif;
if(%#bauf%=48);look(95,0);wait(200ms);endif;
if(%#bauf%=49);look(95,20);wait(200ms);endif;
if(%#bauf%=50);look(95,35);wait(200ms);endif;
if(%#bauf%=51);look(115,335);wait(200ms);endif;
if(%#bauf%=52);look(115,350);wait(200ms);endif;
if(%#bauf%=53);look(115,0);wait(200ms);endif;
if(%#bauf%=54);look(115,15);wait(200ms);endif;
if(%#bauf%=55);look(115,35);wait(200ms);endif;
if(%#bauf%=56);look(128,335);wait(200ms);endif;
if(%#bauf%=57);look(128,350);wait(200ms);endif;
if(%#bauf%=58);look(128,0);wait(200ms);endif;
if(%#bauf%=59);look(128,15);wait(200ms);endif;
if(%#bauf%=60);look(128,25);wait(200ms);endif;
if(%#bauf%=61);look(140,335);wait(200ms);endif;
if(%#bauf%=62);look(140,350);wait(200ms);endif;
if(%#bauf%=63);look(140,0);wait(200ms);endif;
if(%#bauf%=64);look(140,15);wait(200ms);endif;
if(%#bauf%=65);look(140,25);wait(200ms);endif;
if(%#bauf%=66);look(155,335);wait(200ms);endif;
if(%#bauf%=67);look(155,350);wait(200ms);endif;
if(%#bauf%=68);look(155,0);wait(200ms);endif;
if(%#bauf%=69);look(155,20);wait(200ms);endif;
if(%#bauf%=70);look(155,35);wait(200ms);endif;
if(%#bauf%=71);look(170,329);wait(200ms);endif;
if(%#bauf%=72);look(170,350);wait(200ms);endif;
if(%#bauf%=73);look(170,0);wait(200ms);endif;
if(%#bauf%=74);look(170,20);wait(200ms);endif;
if(%#bauf%=75);look(170,35);wait(200ms);endif;
if(%#bauf%=76);look(185,329);wait(200ms);endif;
if(%#bauf%=77);look(185,350);wait(200ms);endif;
if(%#bauf%=78);look(185,0);wait(200ms);endif;
if(%#bauf%=79);look(185,20);wait(200ms);endif;
if(%#bauf%=80);look(185,35);wait(200ms);endif;
if(%#bauf%=81);look(205,335);wait(200ms);endif;
if(%#bauf%=82);look(205,350);wait(200ms);endif;
if(%#bauf%=83);look(205,0);wait(200ms);endif;
if(%#bauf%=84);look(205,15);wait(200ms);endif;
if(%#bauf%=85);look(205,35);wait(200ms);endif;
if(%#bauf%=86);look(218,335);wait(200ms);endif;
if(%#bauf%=87);look(218,350);wait(200ms);endif;
if(%#bauf%=88);look(218,0);wait(200ms);endif;
if(%#bauf%=89);look(218,15);wait(200ms);endif;
if(%#bauf%=90);look(218,25);wait(200ms);endif;
if(%#bauf%=91);look(230,335);wait(200ms);endif;
if(%#bauf%=92);look(230,350);wait(200ms);endif;
if(%#bauf%=93);look(230,0);wait(200ms);endif;
if(%#bauf%=94);look(230,15);wait(200ms);endif;
if(%#bauf%=95);look(230,25);wait(200ms);endif;
if(%#bauf%=96);look(245,335);wait(200ms);endif;
if(%#bauf%=97);look(245,350);wait(200ms);endif;
if(%#bauf%=98);look(245,0);wait(200ms);endif;
if(%#bauf%=99);look(245,20);wait(200ms);endif;
if(%#bauf%=100);look(245,35);wait(200ms);endif;
if(%#bauf%=101);look(260,329);wait(200ms);endif;
if(%#bauf%=102);look(260,350);wait(200ms);endif;
if(%#bauf%=103);look(260,0);wait(200ms);endif;
if(%#bauf%=104);look(260,20);wait(200ms);endif;
if(%#bauf%=105);look(260,35);wait(200ms);endif;
if(%#bauf%=106);look(275,329);wait(200ms);endif;
if(%#bauf%=107);look(275,350);wait(200ms);endif;
if(%#bauf%=108);look(275,0);wait(200ms);endif;
if(%#bauf%=109);look(275,20);wait(200ms);endif;
if(%#bauf%=110);look(275,35);wait(200ms);endif;
if(%#bauf%=111);look(295,335);wait(200ms);endif;
if(%#bauf%=112);look(295,350);wait(200ms);endif;
if(%#bauf%=113);look(295,0);wait(200ms);endif;
if(%#bauf%=114);look(295,15);wait(200ms);endif;
if(%#bauf%=115);look(295,35);wait(200ms);endif;
if(%#bauf%=116);look(308,335);wait(200ms);endif;
if(%#bauf%=117);look(308,350);wait(200ms);endif;
if(%#bauf%=118);look(308,0);wait(200ms);endif;
if(%#bauf%=119);look(308,15);wait(200ms);endif;
if(%#bauf%=120);look(308,25);wait(200ms);endif;
if(%#bauf%>120);unset(@lulab);log("&d{MACRO} &6Macro lula bugada &4[OFF]");
stop;
endif;
wait(300ms);
key(use);
wait(1);
for(#sl,54,80);
getslotitem(%#sl%,&id);
if(%&id%="dye");
slotclick(%#sl%,left,true);
wait(35ms);
endif;
next;
getslotitem(53,&idd);
if(%&idd%!="air");
inc(#bauf);
endif;
gui;
until((%&idd%="air")||(%#bauf%>120));
loop;
}$$

Para religar e detectar quando acaba os dimas:
Supondo que já tenha uma macro de login automatico na sua onChat, só colar esses codigos no final antes do }$$

Para religar:

Spoiler

ifmatches(%CHATCLEAN%,"Ranking do servidor: http://bit.ly/craftlandiaranking");
if(@lulab);
log(Macro lulabugada detectada!);
log(começando a macro!);;
unset(@lulab);
wait(5)
exec(lulabugada.txt,LULA);
endif;
endif;

Para detectar que está sem dima [Somente VIPS]:

Spoiler

ifmatches(%CHATCLEAN%,"Você precisa de mais (.+)",&block,1,none);
if(%&block%="Diamond Block");
set(@paredup);
log(sem dima!);
endif();
endif;

Considerações finais:

Spoiler

1º Não tive a ideia para fazer essa macro sozinha, tem um player que já tem uma macro para lula há meses no chonos, eu suponho que a macro dele funcione de uma maneira similar mas não tenho certeza, eu só fiquei curiosa para saber se eu conseguia ou não fazer uma macro dessas!
2º Eu não testei essa macro o tanto quanto eu gostaria (não consegui achar um mob grande o suficiente para testar adequadamente), então se for usar a macro e ela der algum problema, se puder me mandar uma msg, tanto aqui quanto no server explicando o que está acontecendo, isso ajudaria bastante para mim tentar arrumar..(normalmente tem 2 acc minha sempre on, só mandar um tell em qualquer uma delas que eu vejo depois, caso queira que eu responda deixe uma msg dizendo isso!)