$${
if(tp);
log(&6[Macro]&b Teste de baus pesca encantada &4[OFF]);
chatopacity(100);
unset(tp);
unset(fish);
unset(dis);
unset(fer);
unset(arm);
unset(min);
stop;
else;
set(tp);
log(&6[Macro]&b Teste de baus pesca encantada &2[ON]);
getidrel(0,0,-3,#f1n);getidrel(0,-1,-3,#f2n);getidrel(0,+1,-3,#f3n);
getidrel(0,0,+3,#f1s);getidrel(0,-1,+3,#f2s);getidrel(0,+1,+3,#f3s);
getidrel(-3,0,0,#f1w);getidrel(-3,-1,0,#f2w);getidrel(-3,+1,0,#f3w);
getidrel(+3,0,0,#f1e);getidrel(+3,-1,0,#f2e);getidrel(+3,+1,0,#f3e);
wait(100ms);
if((%#f1n%!=54)&&(%#f1n%!=146)|(%#f2n%!=54)&&(%#f2n%!=146)|(%#f3n%!=54)&&(%#f3n%!=146));
&dir1=NORTH;&dir2=EAST;&dir3=SOUTH;&dir4=WEST;
log(&6[Macro]&b Localização salva com sucesso !);
log(&6[Macro]&b Localização: &6%&dir1%);
break;
elseif((%#f1s%!=54)&&(%#f1s%!=146)|(%#f2s%!=54)&&(%#f2s%!=146)|(%#f3s%!=54)&&(%#f3s%!=146));
&dir1=SOUTH;&dir2=WEST;&dir3=NORTH;&dir4=EAST;
log(&6[Macro]&b Localização salva com sucesso !);
log(&6[Macro]&b Localização: &6%&dir1%);
break;
elseif((%#f1w%!=54)&&(%#f1w%!=146)|(%#f2w%!=54)&&(%#f2w%!=146)|(%#f3w%!=54)&&(%#f3w%!=146));
&dir1=WEST;&dir2=SOUTH;&dir3=EAST;&dir4=NORTH;
log(&6[Macro]&b Localização salva com sucesso !);
log(&6[Macro]&b Localização: &6%&dir1%);
break;
elseif((%#f1e%!=54)&&(%#f1e%!=146)|(%#f2e%!=54)&&(%#f2e%!=146)|(%#f3e%!=54)&&(%#f3e%!=146));
&dir1=EAST;&dir2=NORTH;&dir3=WEST;&dir4=SOUTH;
log(&6[Macro]&b Localização salva com sucesso !);
log(&6[Macro]&b Localização: &6%&dir1%);
break;
else;
log(&6[Macro]&b Algo errado com o local !!!);
log(&6[Macro]&b Visite o forum se necessitar de ajuda);
prompt(&nov,$$?,Deseja pegar a localização manualmente ?);
ifmatches(%&nov%,^[S|s]);
log(&6[Macro]&b Aperte o número 1 para confirma a localização);
do;
if(KEY_1);
getidrel(0,0,+3,#loc1);getidrel(0,-1,+3,#loc2);getidrel(0,+1,+3,#loc3);
if((%#loc1%!=54)&&(%#loc1%!=146)|(%#loc2%!=54)&&(%#loc2%!=156)|(%#loc3%!=54)&&(%#loc3%!=156));
ifmatches(%DIRECTION%,N);&dir1=NORTH;&dir2=WEST;&dir3=SOUTH;&dir4=EAST;endif;
ifmatches(%DIRECTION%,S);&dir1=SOUTH;&dir2=EAST;&dir3=NORTH;&dir4=WEST;endif;
ifmatches(%DIRECTION%,E);&dir1=EAST;&dir2=NORTH;&dir3=WEST;&dir4=SOUTH;endif;
ifmatches(%DIRECTION%,W);&dir1=WEST;&dir2=SOUTH;&dir3=EAST;&dir4=NORTH;endif;
log(&6[Macro]&b Localização salva com sucesso !);
log(&6[Macro]&b Localização: &6%&dir1%);
break;
else;
log(&6[Macro]&b Falha ao pegar localização !);
log(&6[Macro]&b Olhe para a coluna e &6tente novamente !!!);
endif;
endif;
loop;
endif;
endif;
chatopacity(0);
prompt(&pp,$$?,Verificar quais baus?(t = todos / p = peixe / d = disco / m = minerio / f = ferramenta / a = armadura));
ifmatches(%&pp%,^[T|t]);set(fish);set(dis);set(fer);set(arm);set(min);endif;
ifmatches(%&pp%,^[P|p]);set(fish);endif;
ifmatches(%&pp%,^[D|d]);set(dis);endif;
ifmatches(%&pp%,^[M|m]);set(min);endif;
ifmatches(%&pp%,^[F|f]);set(fer);endif;
ifmatches(%&pp%,^[A|a]);set(arm);endif;
chatopacity(100);
#baum=1;
#baup=1;
#bauf=1;
#baua=1;
#baud=1;
if(min);
log(&6[Macro]&b Baús de Minerios );
do;
look(%&dir1%);
if(%#baum%=1);look(-40,+0);endif;
if(%#baum%=2);look(-25,+0);endif;
if(%#baum%=3);look(-40,+20);endif;
if(%#baum%=4);look(-20,+20);endif;
if(%#baum%=5);look(-40,+33);endif;
if(%#baum%=6);look(-20,+38);endif;
inc(#baum);
wait(500ms);
until(%#baum%=7);
endif;
if(dis);
log(&6[Macro]&b Baús de Disco );
do;
look(%&dir1%);
if(%#baud%=1);look(+20,+0);endif;
if(%#baud%=2);look(+38,+0);endif;
if(%#baud%=3);look(+20,+20);endif;
if(%#baud%=4);look(+38,+20);endif;
if(%#baud%=5);look(+20,+40);endif;
if(%#baud%=6);look(+38,+35);endif;
inc(#baud);
wait(500ms);
until(%#baud%=7);
endif;
if(fer);
log(&6[Macro]&b Baús de Ferramentas );
do;
look(%&dir2%);
if(%#bauf%=1);look(-40,+0);endif;
if(%#bauf%=2);look(-20,+0);endif;
if(%#bauf%=3);look(+0,+0);endif;
if(%#bauf%=4);look(+20,+0);endif;
if(%#bauf%=5);look(+40,+0);endif;
if(%#bauf%=6);look(-38,+20);endif;
if(%#bauf%=7);look(-20,+20);endif;
if(%#bauf%=8);look(0,+23);endif;
if(%#bauf%=9);look(+20,+20);endif;
if(%#bauf%=10);look(+38,+20);endif;
if(%#bauf%=11);look(-38,+32);endif;
if(%#bauf%=12);look(-22,+38);endif;
if(%#bauf%=13);look(0,+40);endif;
if(%#bauf%=14);look(+22,+38);endif;
if(%#bauf%=15);look(+38,+32);endif;
inc(#bauf);
wait(500ms);
until(%#bauf%=16);
endif;
if(fish);
log(&6[Macro]&b Baús de Peixes );
do;
look(%&dir3%);
if(%#baup%=1);look(-40,+0);endif;
if(%#baup%=2);look(-20,+0);endif;
if(%#baup%=3);look(+0,+0);endif;
if(%#baup%=4);look(+20,+0);endif;
if(%#baup%=5);look(+40,+0);endif;
if(%#baup%=6);look(-38,+20);endif;
if(%#baup%=7);look(-20,+20);endif;
if(%#baup%=8);look(0,+23);endif;
if(%#baup%=9);look(+20,+20);endif;
if(%#baup%=10);look(+38,+20);endif;
if(%#baup%=11);look(-38,+32);endif;
if(%#baup%=12);look(-22,+38);endif;
if(%#baup%=13);look(0,+40);endif;
if(%#baup%=14);look(+22,+38);endif;
if(%#baup%=15);look(+38,+32);endif;
inc(#baup);
wait(500ms);
until(%#baup%=16);
endif;
if(arm);
log(&6[Macro]&b Baús de Armaduras);
do;
look(%&dir4%);
if(%#baua%=1);look(-40,+0);endif;
if(%#baua%=2);look(-20,+0);endif;
if(%#baua%=3);look(+0,+0);endif;
if(%#baua%=4);look(+20,+0);endif;
if(%#baua%=5);look(+40,+0);endif;
if(%#baua%=6);look(-38,+20);endif;
if(%#baua%=7);look(-20,+20);endif;
if(%#baua%=8);look(0,+23);endif;
if(%#baua%=9);look(+20,+20);endif;
if(%#baua%=10);look(+38,+20);endif;
if(%#baua%=11);look(-38,+32);endif;
if(%#baua%=12);look(-22,+38);endif;
if(%#baua%=13);look(0,+40);endif;
if(%#baua%=14);look(+22,+38);endif;
if(%#baua%=15);look(+38,+32);endif;
inc(#baua);
wait(500ms);
until(%#baua%=16);
endif;
log(&6[Macro]&b Finalizada a verificação !!!);
log(&6[Macro]&b Finalizando Macro...);
unset(tp);
unset(fish);
unset(dis);
unset(fer);
unset(arm);
unset(min);
stop;
endif;
}$$
