ENTREGUE [Macro] tesourar coguvacas eclipse [48 baús]

* introdução:

Spoiler

Meu macro de matar coguvacas para o servidor de eclipse. Ele armazena em uma home com 48 baús, e eu recomendo fazer a trap de baús perto de onde irá matar as coguvacas para evitar mal funcionamento devido ao lag!

Spoiler

Pergunta se é vip ou não para ajustar o delay quando for dar /home para armazenar itens/voltar ao mob.

*Local onde irá matar as coguvacas:

Spoiler

/sethome cogu em cima do bloco de ferro (olhando pra grama onde nasce a coguvaca!).

* Trap de baús:

Spoiler

/sethome cogubau em cima da glowstone. Esse lugar vai ser onde a macro ira armazenar os cogumelos coletados.
A trap deve possuir 4 lados de 4 baús de altura e 3 de larguda. no total de 48 baus.

*Inventário:

Spoiler

Deixe a tesoura no slot 9 e as barras de ferro do slot 2 até o 8. Deixe o slot 1 vazio.

* Código upgrade:0 atualizado: 01/06/17

Spoiler

$${
if(cogu);
log("&6[&4&lMacro&6] &bTesourar &ccoguvacas &4OFF);
ACHIEVEMENTGET(Tesourar coguvacas OFF,brown_mushroom);
echo(/g &cdesligando &amacro de tesourar coguvacas do @galo &c)
unset(cogu);
stop;
else;
set(cogu);
log("&6[&4&lMacro&6] &bTesourar &ccoguvacas &2ON");
ACHIEVEMENTGET(Tesourar coguvacas ON,red_mushroom);
#dr=0;
&espada="^shears|iron_ingot$";
//..............................Pergunda se é vip
&r=SIM,NAO;
prompt(&time,$$[[%&r%]],"Vc é vip?");
ifmatches(%&time%,"^SIM|sim$");
#time=3;
else;
#time=6;
endif;

//..............................verefica pra onde esta olhando
ifmatches(%DIRECTION%,N);
&dir=NORTH;
endif;
ifmatches(%DIRECTION%,S);
&dir=SOUTH;
endif;
ifmatches(%DIRECTION%,W);
&dir=WEST;
endif;
ifmatches(%DIRECTION%,E);
&dir=EAST;
endif;
}$$
/pvp off
$${
#bau=1;
#ver=1;
do;

//..............................Olhando e batendo
look(%&dir%);
look(,0);
pick(shears);
if(%HIT%="ENTITY");
key(use);
endif;
inc(#ver);

//..............................Verefica a Durability
if(%DURABILITY%<40);
ACHIEVEMENTGET(Reparando,shears);
look(&dir,90);
wait(100ms);
do(3);
key(use);
loop;
wait(500ms);
endif;

// verificando inventario
#stack=0;
if(%#ver%=10);
gui(inventory);
getslotitem(35,#id,#stack);
wait(200ms);
#ver=1;
gui();
endif;

//..............................Guardando em baus
if((%#stack%!=0)&&(%#bau%<49));
ACHIEVEMENTGET(Guardando,trapped_chest);
}$$/home cogubau$${
wait(%#time%);

//.............................Olhando para os baus
if(%#bau%=1);
look(-28,32);
endif;
if(%#bau%=2);
look(-28,4);
endif;
if(%#bau%=3);
look(-29,-21);
endif;
if(%#bau%=4);
look(-29,-43);
endif;
if(%#bau%=5);
look(-1,32);
endif;
if(%#bau%=6);
look(0,4);
endif;
if(%#bau%=7);
look(0,-24);
endif;
if(%#bau%=8);
look(0,-45);
endif;
if(%#bau%=9);
look(30,30);
endif;
if(%#bau%=10);
look(31,4);
endif;
if(%#bau%=11);
look(30,-20);
endif;
if(%#bau%=12);
look(32,-41);
endif;
if(%#bau%=13);
look(58,30);
endif;
if(%#bau%=14);
look(60,9);
endif;
if(%#bau%=15);
look(63,-18);
endif;
if(%#bau%=16);
look(60,-45);
endif;
if(%#bau%=17);
look(90,33);
endif;
if(%#bau%=18);
look(90,0);
endif;
if(%#bau%=19);
look(90,-27);
endif;
if(%#bau%=20);
look(90,-44);
endif;
if(%#bau%=21);
look(116,32);
endif;
if(%#bau%=22);
look(116,0);
endif;
if(%#bau%=23);
look(116,-27);
endif;
if(%#bau%=24);
look(116,-44);
endif;
if(%#bau%=25);
look(150,28);
endif;
if(%#bau%=26);
look(150,0);
endif;
if(%#bau%=27);
look(150,-27);
endif;
if(%#bau%=28);
look(150,-44);
endif;
if(%#bau%=29);
look(-180,32);
endif;
if(%#bau%=30);
look(-180,0);
endif;
if(%#bau%=31);
look(-180,-27);
endif;
if(%#bau%=32);
look(-180,-44);
endif;
if(%#bau%=33);
look(-150,27);
endif;
if(%#bau%=34);
look(-150,0);
endif;
if(%#bau%=35);
look(-150,-27);
endif;
if(%#bau%=36);
look(-150,-44);
endif;
if(%#bau%=37);
look(-120,32);
endif;
if(%#bau%=38);
look(-120,0);
endif;
if(%#bau%=39);
look(-120,-27);
endif;
if(%#bau%=40);
look(-120,-44);
endif;
if(%#bau%=41);
look(-90,32);
endif;
if(%#bau%=42);
look(-90,0);
endif;
if(%#bau%=43);
look(-90,-27);
endif;
if(%#bau%=44);
look(-90,-44);
endif;
if(%#bau%=45);
look(-60,30);
endif;
if(%#bau%=46);
look(-60,0);
endif;
if(%#bau%=47);
look(-60,-30);
endif;
if(%#bau%=48);
look(-60,-44);
endif;
if(%#bau%=49);
log("&6[&4&lMacro&6]&4 Baus cheios!!!");
endif;

wait(1);
key(use);
do;
wait(10ms);
until(%GUI%="GUICHEST");
wait(1);
for(#slot,54,81);
slotclick(%#slot%,l,true);
wait(50ms);
next;
getslotitem(53,#id,#stack);
gui();

if(%#stack%!=0);
inc(#bau);
if(%#bau%=49);
log("&6[&4&lMacro&6]&bVoltando as coguvacas... Baus cheios");
endif;
endif;}$$
/home cogu
$${endif;
wait(1t);
loop;
endif;
}$$