ENTREGUE [Macro] Auto Troca de Set

Bom, hoje venho postar um macro que tem as seguintes funções:

> Detecta quando o set está no "vermelho" e Troca ele por um novo que esteja no inventário.
> Porém o macro para usar na craftlandia é LIMITADO, ele só troca de set 3 vezes no máximo, ou seja, 3 sets reservas mais o que você ta usando...
> Quando chega na terceira troca de set ele é desligado AUTOMATICAMENTE, os sets podem ficar em qualquer lugar, mas tem que ser nos slots com uma linha AMARELA:



> Na linha vermelha vai ficar os sets que você for tirando, não necessariamente, mas de preferência!

Um video do macro funcionando:
[media]
http://www.youtube.com/watch?v=BxbkPN3MPCM&feature
[/media]

ATUALIZADO 03/08/2014 A PEDIDOS:

Código:

$${
if(x);
log("&3Macro Desligado");
unset(x);stop;else;
log("&3Macro Ligado");
set(x);
&capacete="^310$|^314$|^298$|^306$|^302$";
&peitoral="^311$|^315$|^299$|^307$|^303$";
&calca="^312$|^316$|^300$|^308$|^304$";
&bota="^313$|^317$|^301$|^309$|^305$";
#first=21;#firsta=22;#firstb=22;#firstc=21;
#capacete=5;
#peitoral=6;
#calca=7;
#bota=8;
do;
if(%HELMDURABILITY%<30);
gui(inventory);wait(1ms);
slotclick(%#capacete%,l,true);
do;
getslotitem(%#first%,#id,#stack);
ifmatches(%#id%,%&capacete%);slotclick(%#first%,l,true);wait(1ms);gui;BREAK;else;inc(#first,1);endif;
if(%#first%=44);log("&3Seus Capacetes Acabaram!!");log("&4MACRO DESLIGADO");GUI;endif;
wait(10ms);
loop;
endif;
 
if(%CHESTPLATEDURABILITY%<30);
gui(inventory);wait(1ms);
slotclick(%#peitoral%,l,true);
do;
getslotitem(%#firsta%,#id,#stack);
ifmatches(%#id%,%&peitoral%);slotclick(%#firsta%,l,true);wait(1ms);gui;BREAK;else;inc(#firsta,1);endif;
if(%#firsta%=44);log("&aSeus Peitorais Acabaram!!");log("&4MACRO DESLIGADO");GUI;STOP;endif;
wait(10ms);
loop;
endif;
 
if(%LEGGINGSDURABILITY%<30);
gui(inventory);wait(1ms);
slotclick(%#calca%,l,true);
do;
getslotitem(%#firstb%,#id,#stack);
ifmatches(%#id%,%&calca%);slotclick(%#firstb%,l,true);wait(1ms);gui;BREAK;else;inc(#firstb,1);endif;
if(%#firstb%=44);log("&aSuas Calças Acabaram!!");log("&4MACRO DESLIGADO");GUI;STOP;endif;
wait(10ms);
loop;
endif;
 
if(%BOOTSDURABILITY%<30);
gui(inventory);wait(1ms);
slotclick(%#bota%,l,true);
do;
getslotitem(%#firstc%,#id,#stack);
ifmatches(%#id%,%&bota%);slotclick(%#firstc%,l,true);wait(1ms);gui;BREAK;else;inc(#firstc,1);endif;
if(%#firstc%=44);log("&aSuas Botas Acabaram!!");log("&4MACRO DESLIGADO");GUI;STOP;endif;
wait(10ms);
loop;
endif;
loop;
}$$