$${
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