[MACRO] Troca armadura antes de quebrar!

Discussão em 'Macros Prontas' iniciado por Oregonl, 30 Abril 2021.

Status do Tópico:
Não esta aberto para novas mensagens.
  1. Oregonl

    Oregonl Craftlandiano
    VIP

    Afiliado:
    3 Fevereiro 2013
    Mensagens:
    2,526
    Curtidas Recebidas:
    945
    Curtiu:
    109
    Sexo:
    Masculino
    Localização:
    ''Onde a...
    Cubos:
    661.00
    Nick:
    Oregonl
    Clan:
    SIM
    Discord:
    Oregonl#4321
    #1 Oregonl, 30 Abril 2021
    Última edição: 4 Junho 2021
    Olá nubs :p

    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 ?

    * 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
    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.
    :p

     
  2. KronosHD

    KronosHD Craftlandiano
    VIP

    Afiliado:
    18 Março 2013
    Mensagens:
    2,855
    Curtidas Recebidas:
    1,091
    Curtiu:
    43
    Sexo:
    Masculino
    Cubos:
    86.00
    Nick:
    _KronosHD_
    Clan:
    RuD
    Eita... tem como mudar a durabilidade pra uma menor?
     
    Chavez curtiu isso.
  3. Oregonl

    Oregonl Craftlandiano
    VIP

    Afiliado:
    3 Fevereiro 2013
    Mensagens:
    2,526
    Curtidas Recebidas:
    945
    Curtiu:
    109
    Sexo:
    Masculino
    Localização:
    ''Onde a...
    Cubos:
    661.00
    Nick:
    Oregonl
    Clan:
    SIM
    Discord:
    Oregonl#4321
    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.
     
    Chavez curtiu isso.
  4. SonicZL

    SonicZL Craftlandiano
    VIP

    Afiliado:
    16 Janeiro 2014
    Mensagens:
    4,970
    Curtidas Recebidas:
    1,241
    Curtiu:
    1,105
    Sexo:
    Masculino
    Cubos:
    2,280.00
    Nick:
    SonicZL
    Clan:
    QZL
    Funciona na 1.8?
     
    Chavez curtiu isso.
  5. Oregonl

    Oregonl Craftlandiano
    VIP

    Afiliado:
    3 Fevereiro 2013
    Mensagens:
    2,526
    Curtidas Recebidas:
    945
    Curtiu:
    109
    Sexo:
    Masculino
    Localização:
    ''Onde a...
    Cubos:
    661.00
    Nick:
    Oregonl
    Clan:
    SIM
    Discord:
    Oregonl#4321
    Não cheguei a testar na 1.8
     
    Chavez curtiu isso.
  6. ShiroHime

    ShiroHime Craftlandiano
    VIP

    Afiliado:
    5 Dezembro 2019
    Mensagens:
    2,502
    Curtidas Recebidas:
    1,343
    Curtiu:
    768
    Sexo:
    Feminino
    Cubos:
    4,938.00
    Nick:
    ShiroHime
    Ótima macro. Vai ajudar muito
     
    Chavez curtiu isso.
  7. KilluaXD

    KilluaXD Craftlandiano
    VIP

    Afiliado:
    30 Janeiro 2018
    Mensagens:
    10,086
    Curtidas Recebidas:
    1,977
    Curtiu:
    350
    Cubos:
    959.00
    Nick:
      
    Ótima Macro!
     
    Oregonl e Chavez curtiram isso.
  8. Chavez

    Chavez Razoavel

    Afiliado:
    27 Abril 2020
    Mensagens:
    47
    Curtidas Recebidas:
    70
    Curtiu:
    160
    Sexo:
    Masculino
    Cubos:
    115.00
    Nick:
    Chavez
    Clan:
    Ns7
    Macro top
     
    Oregonl curtiu isso.
  9. PhoeniX9

    PhoeniX9 Neutro
    VIP

    Afiliado:
    23 Julho 2015
    Mensagens:
    101
    Curtidas Recebidas:
    34
    Curtiu:
    24
    Sexo:
    Masculino
    Localização:
    Joao_pessoa
    Cubos:
    239.00
    Nick:
    PhoeniX9
    EU TAVA PRECISANDO MUITO DE UMA MACRO ASSIM CARA, SENSACIONAL!!!
     
  10. dark1304

    dark1304 Hardcore
    VIP

    Afiliado:
    6 Novembro 2017
    Mensagens:
    8,356
    Curtidas Recebidas:
    3,964
    Curtiu:
    100
    Cubos:
    3,164.00
    Nick:
    Ótima macro!
     
  11. Oregonl

    Oregonl Craftlandiano
    VIP

    Afiliado:
    3 Fevereiro 2013
    Mensagens:
    2,526
    Curtidas Recebidas:
    945
    Curtiu:
    109
    Sexo:
    Masculino
    Localização:
    ''Onde a...
    Cubos:
    661.00
    Nick:
    Oregonl
    Clan:
    SIM
    Discord:
    Oregonl#4321
    *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.
     
    lomexicano curtiu isso.
Status do Tópico:
Não esta aberto para novas mensagens.