ENTREGUE ALGUEM EDITA - Auto Armor

ESSA MACRO EQUIPA SOMENTE ARMADURA DE DIMA PODERIA ADCIONAR DO NETHER TBM




$${

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;

}$$