[MACRO] Troca armadura antes de quebrar!

Olá nubs

Hoje trago uma macro que vai trocando cada parte do seu set quando ele fica no vermelho. Você pode colocar seus sets em qualquer lugar do inventário que a macro vai procurar e equipá-lo. A função é parecida com a dos Autoarmor que já existem, mas a diferença é que ela troca o set antes de quebrar!

O que a macro faz até o momento ?

Spoiler: Funções

* Sistema liga e desliga;
* Funciona apenas com Armadura de Diamante;
* Localiza sets novos em qualquer slot;
* Caso você não tenha alguma parte com durabilidade boa no inventário a macro entende, avisa e desliga.
*Caso queira alterar a durabilidade para guardar as armaduras basta iniciar a macro apertando Control.

Instalação

Spoiler: Instalação

Primeira vez instalando macros ? Aprenda a instalar aqui

Código da macro:

Código:

$${

IF(first);
ELSE
SET(#durabilidade == 50);
LOG("");
LOG("&a&oA durabilidade padrão para guardar o SET é de &450&a.");
LOG("");
LOG("&a&oCaso queira alterar a durabilidade basta iniciar a MACRO apertando &4CONTROL&a.");  
LOG("");
SET(first);
ENDIF;

IF(KEY_LCONTROL);
    PROMPT(#durabilidade,$$?,"Quer guardar o set com qual durabilidade?");
        ifmatches("%#durabilidade%","^(\d+)$");
        LOG("&0&l[&9&lMACRO&0&l] &9O SET será guardado com &4%#durabilidade%&9.");
        ELSE
        SET(#durabilidade,50);
        LOG("&0&l[&9&lMACRO&0&l] &9Resposta &cinválida&9, durabilidade padrão setada como &450&9.");
        ENDIF;
ENDIF;

IF(trocaarmadura);
    LOG("&0&l[&9&lMACRO&0&l] &9Troca Armadura &4&lDESLIGADO&9.");  
    UNSET(trocaarmadura);
    STOP;
ELSE
    LOG("&0&l[&9&lMACRO&0&l] &9Troca Armadura &2&lLIGADO&9.");
    SET(trocaarmadura);
ENDIF;

#cap = 363;
#pei = 528;
#cal = 495;
#bot = 429;
UNSET(#idx);


DO;

IF((%HELMID%!=0)&&(%HELMDURABILITY%<=%#durabilidade%));
SET(swaparmor);
SET(#slot,5);
SET(#part,310);
SET(verificacao);
ELSEIF((%CHESTPLATEID%!=0)&&(%CHESTPLATEDURABILITY%<=%#durabilidade%));
SET(swaparmor);
SET(verificacao);
SET(#slot,6);
SET(#part,311);
ELSEIF((%LEGGINGSID%!=0)&&(%LEGGINGSDURABILITY%<=%#durabilidade%));
SET(swaparmor);
SET(verificacao);
SET(#slot,7);
SET(#part,312);
ELSEIF((%BOOTSID%!=0)&&(%BOOTSDURABILITY%<=%#durabilidade%));
SET(swaparmor);
SET(verificacao);
SET(#slot,8);
SET(#part,313);

ENDIF;

IF(%HELMID%=0);
SET(autoarmor);
SET(verificacao);
SET(&parte,Capacete);
SET(#idx,"310");
DEC(#cap,%#durabilidade%);
SET(#durabilidadetrocar,%#cap%);
ELSEIF(%CHESTPLATEID%=0);
SET(autoarmor);
SET(verificacao);
SET(&parte,Peitoral);
SET(#idx,"311");
DEC(#pei,%#durabilidade%);
SET(#durabilidadetrocar,%#pei%);
ELSEIF(%LEGGINGSID%=0);
SET(autoarmor);
SET(verificacao);
SET(&parte,Calça);
SET(#idx,"312");
DEC(#cal,%#durabilidade%);
SET(#durabilidadetrocar,%#cal%);
ELSEIF(%BOOTSID%=0);
SET(autoarmor);
SET(verificacao);
SET(&parte,Bota);
SET(#idx,"313");
DEC(#bot,%#durabilidade%);
SET(#durabilidadetrocar,%#bot%);

ENDIF;

IF(swaparmor);
GUI(INVENTORY);
IF(KEY_W);
KEYDOWN(FORWARD);
ELSEIF(KEY_S);
KEYDOWN(BACK);
ELSEIF(KEY_A);
KEYDOWN(LEFT);
ELSEIF(KEY_D);
KEYDOWN(RIGHT);
ELSEIF(SHIFT);
KEYDOWN(SNEAK);
ELSEIF(KEY_SPACE);
KEYDOWN(JUMP);
ELSEIF(RMOUSE);
KEY(USE);
ENDIF;

SLOTCLICK(%#slot%,L,TRUE);
GUI;
UNSET(swaparmor);
ENDIF;

IF(verificacao);

unsafe(1000);
    gui(inventory);
    for(#for,9,44);
       GETSLOTITEM(%#for%,#ifr,#stack,#data);
            IF((%#ifr%=%#idx%)&&(%#data%<%#durabilidadetrocar%));
            SET(#trocar,"%#for%");
            SET(noarmor)
            ENDIF;
    next;
    gui();
    IF(noarmor);
        UNSET(noarmor);
    ELSE
        LOG("&7&l>>&9Você está sem &4&l%&parte%, &9encerrando macro.");
        LOG("&0&l[&9&lMACRO&0&l] &9Troca Armadura &4&lDESLIGADO&9.");  
        UNSET(trocaarmadura);
        STOP;
    ENDIF;
endunsafe;

UNSET(verificacao);
ENDIF;

IF(autoarmor);
GUI(INVENTORY);
IF(KEY_W);
KEYDOWN(FORWARD);
ELSEIF(KEY_S);
KEYDOWN(BACK);
ELSEIF(KEY_A);
KEYDOWN(LEFT);
ELSEIF(KEY_D);
KEYDOWN(RIGHT);
ELSEIF(SHIFT);
KEYDOWN(SNEAK);
ELSEIF(KEY_SPACE);
KEYDOWN(JUMP);
ELSEIF(RMOUSE);
KEY(USE);
ENDIF;

LOG("&7&l>>&9%&parte% &7substituído&9!");
SLOTCLICK(%#trocar%,L,TRUE);
GUI;
ENDIF;

#cap = 363;
#pei = 528;
#cal = 495;
#bot = 429;
UNSET(#idx);
UNSET(autoarmor);

LOOP;

}$$

Caso encontre algum bug basta me manda uma MP aqui no fórum.

​

 

Tem sim, copia e cola o código em um bloco de notas, da ctrl + f depois digita 100, onde tiver 100 você coloca a durabilidade que quiser.

 

Não cheguei a testar na 1.8

 

*Código da macro praticamente refeito, agora funciona de forma mais eficiente além de muitos bugs corrigidos, agradeço a quem me deu um feedback por MP.

Novidade: Agora você pode editar e escolher a durabilidade que quiser para guardar as armaduras, basta iniciar a macro apertando Control.