ENTREGUE Macro guarda/pega itens predeterminados no bau

[AmaurikJunior]

Esse macro tem a função de pegar/guardar itens dentro de um bau.
Você escolhe os itens que ele irá pegar ou guardar.
Depois se você estiver pegando os itens no bau, ele irá te pergunta se deseja guardar no /bau.
Ele também tem a função de salvar os dados (itens que determino pela ultima vez) e utilizar ele, isso evita ter que seleciona os itens
toda vez que usar o macro.
Pode ser escolhido até 10 itens diferentes para ele pegar/guardar no bau ou /bau
Código:

Spoiler

$${
If(x);unset(x);stop();log("&6&lDesligado");else;set(x);log("&8&lLigando");
-----
prompt(#sa,$$?,"Desejar usar ultimos dados de itens?" 1=Sim);
if(%#sa%=1);
&item1=%&is1%;
&item2=%&is2%;
&item3=%&is3%;
&item4=%&is4%;
&item5=%&is5%;
&item6=%&is6%;
&item7=%&is7%;
&item8=%&is8%;
&item9=%&is9%;
&item10=%&is10%;
else;

prompt(&item1,$$i,"Item a ser recolhido");&chest=chest;
prompt(&item2,$$i,"Item a ser recolhido");&chest=chest;
prompt(&item3,$$i,"Item a ser recolhido");&chest=chest;
prompt(&item4,$$i,"Item a ser recolhido");&chest=chest;
prompt(&item5,$$i,"Item a ser recolhido");&chest=chest;
prompt(&item6,$$i,"Item a ser recolhido");&chest=chest;
prompt(&item7,$$i,"Item a ser recolhido");&chest=chest;
prompt(&item8,$$i,"Item a ser recolhido");&chest=chest;
prompt(&item9,$$i,"Item a ser recolhido");&chest=chest;
prompt(&item10,$$i,"Item a ser recolhido");&chest=chest;

prompt(#estado,$$?,"1=Guardar no bau 2=Pegar do bau");
endif;

&is1=%&item1%;
&is2=%&item2%;
&is3=%&item3%;
&is4=%&item4%;
&is5=%&item5%;
&is6=%&item6%;
&is7=%&item7%;
&is8=%&item8%;
&is9=%&item9%;
&is10=%&item10%;




If(%HITID%=%&chest%);log("&3&lAbrindo");wait(500ms);key(use);
else;Log("&4&lBau não localizado");unset(x);stop();endif;

wait(1);

if(%#estado%=2);
for(#slots,0,53);
getslotitem(%#slots%,&i,#a,#z);
wait(10ms);
If(%&item1%=%&i%);slotclick(%#slots%,l,true);endif;
If(%&item2%=%&i%);slotclick(%#slots%,l,true);endif;
If(%&item3%=%&i%);slotclick(%#slots%,l,true);endif;
If(%&item4%=%&i%);slotclick(%#slots%,l,true);endif;
If(%&item5%=%&i%);slotclick(%#slots%,l,true);endif;
If(%&item6%=%&i%);slotclick(%#slots%,l,true);endif;
If(%&item7%=%&i%);slotclick(%#slots%,l,true);endif;
If(%&item8%=%&i%);slotclick(%#slots%,l,true);endif;
If(%&item9%=%&i%);slotclick(%#slots%,l,true);endif;
If(%&item10%=%&i%);slotclick(%#slots%,l,true);endif;
wait(10ms);
next;
endif;

if(%#estado%=1);
for(#sloti,54,89);
getslotitem(%#sloti%,&i,#a,#z);
wait(10ms);
If(%&item1%=%&i%);slotclick(%#slots%,l,true);endif;
If(%&item2%=%&i%);slotclick(%#slots%,l,true);endif;
If(%&item3%=%&i%);slotclick(%#slots%,l,true);endif;
If(%&item4%=%&i%);slotclick(%#slots%,l,true);endif;
If(%&item5%=%&i%);slotclick(%#slots%,l,true);endif;
If(%&item6%=%&i%);slotclick(%#slots%,l,true);endif;
If(%&item7%=%&i%);slotclick(%#slots%,l,true);endif;
If(%&item8%=%&i%);slotclick(%#slots%,l,true);endif;
If(%&item9%=%&i%);slotclick(%#slots%,l,true);endif;
If(%&item10%=%&i%);slotclick(%#slots%,l,true);endif;
wait(10ms);
next;
endif;
wait(100ms);
gui();
if(%#estado%=1);endif;else;
prompt(#est,$$?,"Deseja guardar no /bau? 1=Sim - 2=Não");
if(%#est%=2);log("&5&lOk,Finalizado");else;
}$$
/chest
$${
for(#slotg,54,89);
getslotitem(%#slotg%,&i,#a,#z);
wait(10ms);
If(%&item1%=%&i%);slotclick(%#slots%,l,true);endif;
If(%&item2%=%&i%);slotclick(%#slots%,l,true);endif;
If(%&item3%=%&i%);slotclick(%#slots%,l,true);endif;
If(%&item4%=%&i%);slotclick(%#slots%,l,true);endif;
If(%&item5%=%&i%);slotclick(%#slots%,l,true);endif;
If(%&item6%=%&i%);slotclick(%#slots%,l,true);endif;
If(%&item7%=%&i%);slotclick(%#slots%,l,true);endif
If(%&item8%=%&i%);slotclick(%#slots%,l,true);endif
If(%&item9%=%&i%);slotclick(%#slots%,l,true);endif
If(%&item10%=%&i%);slotclick(%#slots%,l,true);endif
wait(10ms);
next;
gui();
log("&6&lFinalizando");
endif;
endif;
endif;
endif;
}$$

Deixo credito a todos programadores cujo seus códigos/scripts me ajudaram a entender o mod macro
Macro testado apenas na versão 1.8