Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- $${
- TOGGLE(mkb_macro);
- IF(mkb_macro);
- LOG("&6(&fMacro&6) &aTroca de Itens entre MKBs &6(&2ON&6) &bby Chavez.");
- WAIT(1);
- ELSE;
- LOG("&6(&fMacro&6) &cTroca de Itens entre MKBs &6(&4OFF&6) &bby Chavez.");
- KEYUP(right);
- KEYUP(sneak);
- STOP;
- ENDIF;
- IF(config);
- LOG("&6(&fMacro&6) &bPressione &fCtrl &bse deseja &fReconfigurar &ba &fMacro&6.");
- SET(#cont,6);
- DO(7);
- ACHIEVEMENTGET("%#cont% segundos...","diamond");
- WAIT(500ms);
- IF(KEY_LCONTROL);
- WAIT(500ms);
- IF(KEY_LCONTROL);
- UNSET(config);
- SET(reset_baus);
- SET(homes);
- BREAK;
- ENDIF;
- WAIT(500ms);
- ENDIF;
- WAIT(500ms);
- DEC(#cont,1);
- LOOP;
- IF(config);
- LOG("&6(&fMacro&6) &bVocê não desejou &fReconfigurar &ba &fMacro &6!");
- ENDIF;
- ENDIF;
- IF(!config);
- UNSET(log);
- UNSET(marcar_pegar);
- UNSET(marcar_levar);
- IF(!config_padrao);
- SET(&pegar,"pegar"); //Coloque o Nome da home para pegar itens aqui;
- SET(&pegar_temp,"pegar_temp"); //Coloque o Nome da home temporária para pegar itens aqui;
- SET(&levar,"levar"); //Coloque o Nome da home para levar itens entre as áspas;
- SET(&levar_temp,"levar_temp"); //Coloque o Nome da home temporária para levar itens entre as áspas;
- SET(config_padrao);
- UNSET(reset_id);
- SET(pegar_cord_levar);
- SET(pegar_cord_pegar);
- ENDIF;
- IF((quest_baus)||(quest_homes)||(quest_temp)||(quest_id));
- LOG("");
- LOG("&6(&fMacro&6) &bDeseja Continuar &fconfigurando &ba &fMacro &6?");
- LOG("&6(&fMacro&6) &6[&f1&6] &bSim&6.");
- LOG("&6(&fMacro&6) &6[&f2&6] &bNão&6.");
- LOG("");
- PROMPT(#quest_continuar,$$?,"Se não desejar continuar configurando ,a configuração sera iniciada novamente.");
- IF(%#quest_continuar%=1);
- LOG("&6[&f1&6] &bSim&6.");
- SET(log);
- ELSEIF(%#quest_continuar%=2);
- LOG("&6[&f2&6] &bNão&6.");
- UNSET(log);
- UNSET(quest_baus);
- UNSET(quest_temp);
- UNSET(quest_homes);
- UNSET(quest_id);
- ELSE;
- LOG("&6(&fMacro&6) &cResposta Inválida &6!");
- WAIT(200ms);
- LOG("&6(&fMacro&6) &cTroca de Itens entre MKBs &6(&4OFF&6) &bby Chavez.");
- UNSET(mkb_macro);
- STOP;
- ENDIF;
- ENDIF;
- IF(!log);
- LOG("&6(&fMacro&6) &bIniciando &fConfiguração&6...");
- SET(log);
- WAIT(1);
- ENDIF;
- IF((reset_baus)&&(!quest_baus));
- LOG("");
- LOG("&6(&fMacro&6) &bDeseja &fResetar &bos &fBáus &6?");
- LOG("&6(&fMacro&6) &6[&f1&6] &bSim&6.");
- LOG("&6(&fMacro&6) &6[&f2&6] &bNão&6.");
- LOG("");
- PROMPT(#quest_baus,$$?,"Coloque 1 para sim ou 2 para não.");
- IF(%#quest_baus%=1);
- LOG("&6[&f1&6] &bSim&6.");
- SET(#bau,0);
- SET(#baus,0);
- SET(pegar_cord_levar);
- SET(pegar_cord_pegar);
- UNSET(pegar);
- ELSEIF(%#quest_baus%=2);
- LOG("&6[&f2&6] &bNão&6.");
- ELSE;
- LOG("&6(&fMacro&6) &cResposta Inválida &6!");
- WAIT(200ms);
- LOG("&6(&fMacro&6) &cTroca de Itens entre MKBs &6(&4OFF&6) &bby Chavez.");
- UNSET(mkb_macro);
- STOP;
- ENDIF;
- DO();
- UNTIL((!KEY_RETURN)&&(!KEY_NUMPADENTER));
- SET(quest_baus);
- ENDIF;
- IF(!quest_temp);
- LOG("");
- LOG("&6(&fMacro&6) &bDeseja utilizar &fHomes &btemporárias &6?");
- LOG("&6(&fMacro&6) &6[&f1&6] &bSim&6.");
- LOG("&6(&fMacro&6) &6[&f2&6] &bNão&6.");
- LOG("");
- PROMPT(#quest_temp,$$?,"Coloque 1 para sim ou 2 para não.");
- IF(%#quest_temp%=1);
- LOG("&6[&f1&6] &bSim&6.");
- SET(temp);
- ELSEIF(%#quest_temp%=2);
- LOG("&6[&f2&6] &bNão&6.");
- UNSET(temp);
- ELSE;
- LOG("&6(&fMacro&6) &cResposta Inválida &6!");
- WAIT(200ms);
- LOG("&6(&fMacro&6) &cTroca de Itens entre MKBs &6(&4OFF&6) &bby Chavez.");
- UNSET(mkb_macro);
- STOP;
- ENDIF;
- DO();
- UNTIL((!KEY_RETURN)&&(!KEY_NUMPADENTER));
- SET(quest_temp);
- ENDIF;
- IF(!quest_homes);
- DO();
- LOG("");
- LOG("&6(&fMacro&6) &bDeseja alterar alguma &fHome &6?");
- LOG("&6(&fMacro&6) &6[&f1&6] &bPara pegar &fItens &6(&f%&pegar%&6)");
- LOG("&6(&fMacro&6) &6[&f2&6] &bPara levar &fitens &6(&f%&levar%&6)");
- IF(temp);
- LOG("&6(&fMacro&6) &6[&f3&6] &fTemporária &bpara pegar &fItens &6(&f%&pegar_temp%&6)");
- LOG("&6(&fMacro&6) &6[&f4&6] &fTemporária &bpara levar &fitens &6(&f%&levar_temp%&6)");
- ENDIF;
- LOG("");
- PROMPT(#quest_homes,$$?,"Coloque 5 se você ja configurou ou se não deseja alterar nada!");
- IF(%#quest_homes%=1);
- LOG("&6[&f1&6] &fHome &bpara pegar &fItens&6.");
- WAIT(200ms);
- PROMPT(&pegar_p,$$?,"Coloque o Nome da Home para pegar Itens aqui (caso não queira mais alterar pressione ESC) !");
- IF(%&pegar_p%!="");
- LOG("&6[&f1&6] &f%&pegar_p%&6.");
- SET(&pegar,%&pegar_p%);
- ENDIF;
- DO();
- UNTIL((!KEY_RETURN)&&(!KEY_NUMPADENTER));
- WAIT(1);
- ELSEIF(%#quest_homes%=2);
- LOG("&6[&f2&6] &fHome &bpara levar &fitens&6.");
- WAIT(200ms);
- PROMPT(&levar_p,$$?,"Coloque o Nome da Home para levar Itens aqui (caso não queira mais alterar pressione ESC) !");
- IF(%&levar_p%!="");
- LOG("&6[&f2&6] &f%&levar_p%&6.");
- SET(&levar,%&levar_p%);
- ENDIF;
- DO();
- UNTIL((!KEY_RETURN)&&(!KEY_NUMPADENTER));
- WAIT(1);
- ELSEIF((%#quest_homes%=3)&&(temp));
- LOG("&6[&f3&6] &fHome temporária &bpara pegar &fItens&6.");
- WAIT(200ms);
- PROMPT(&pegar_temp_p,$$?,"Coloque o Nome da Home temporária para pegar Itens aqui (caso não queira mais alterar pressione ESC) !");
- IF(%&pegar_temp_p%!="");
- LOG("&6[&f1&6] &f%&pegar_temp_p%&6.");
- SET(&pegar_temp,%&pegar_temp_p%);
- ENDIF;
- DO();
- UNTIL((!KEY_RETURN)&&(!KEY_NUMPADENTER));
- WAIT(1);
- ELSEIF((%#quest_homes%=4)&&(temp));
- LOG("&6[&f3&6] &fHome temporária &bpara levar &fItens&6.");
- WAIT(200ms);
- PROMPT(&levar_temp_p,$$?,"Coloque o Nome da Home temporária para levar Itens aqui (caso não queira mais alterar pressione ESC) !");
- IF(%&levar_temp_p%!="");
- LOG("&6[&f1&6] &f%&levar_temp_p%&6.");
- SET(&levar_temp,%&levar_temp_p%);
- ENDIF;
- DO();
- UNTIL((!KEY_RETURN)&&(!KEY_NUMPADENTER));
- WAIT(1);
- ELSEIF(%#quest_homes%=5);
- LOG("&6(&fMacro&6) &bNome das &fHomes &bsalvas &6!");
- SET(quest_homes);
- BREAK;
- ELSE;
- LOG("&6(&fMacro&6) &cResposta Inválida &6!");
- WAIT(200ms);
- UNSET(mkb_macro);
- LOG("&6(&fMacro&6) &cTroca de Itens entre MKBs &6(&4OFF&6) &bby Chavez.");
- STOP;
- ENDIF;
- LOOP;
- ENDIF;
- IF(!quest_id);
- LOG("");
- LOG("&6(&fMacro&6) &bSobre o&6(&bs&6) &fItens&6(&bs&6) &bque deseja transportar entre as &fMKBs&6.");
- LOG("&6(&fMacro&6) &6[&f1&6] &fItem &bespecifico&6.");
- LOG("&6(&fMacro&6) &6[&f2&6] &bTodos os &fItens &bque estiverem nos &fBáus&6.");
- IF(reset_id);
- LOG("&6(&fMacro&6) &6[&f3&6] &bContinuar com o antigo &fID&6.");
- ENDIF;
- LOG("");
- PROMPT(#itens_transport,$$?,"Coloque 1 caso queira transportar um Item em especifico ,2 caso queira transportar todos Itens que estiverem nos Báus ou 3 para continuar com o mesmo ID.");
- IF(%#itens_transport%=1);
- LOG("&6[&f1&6] &fItem &bespecifico&6.");
- UNSET(pegar_tudo);
- WAIT(200ms);
- LOG("&6(&fMacro&6) &bPressione &fEnter &bcom o &fItem &bdesejado na mão &6!");
- WAIT(1);
- DO();
- ACHIEVEMENTGET("Pegue o ID do Item.","diamond");
- WAIT(500ms);
- IF((KEY_RETURN)||(KEY_NUMPADENTER));
- WAIT(500ms);
- IF((KEY_RETURN)||(KEY_NUMPADENTER));
- IF(%ITEM%!="air");
- SET(reset_id);
- SET(&item,"%ITEM%");
- ACHIEVEMENTGET("%ITEMNAME%","%&item%");
- LOG("&6(&fMacro&6) &fID &bsalvo &6!");
- WAIT(1);
- BREAK;
- ELSE;
- LOG("&6(&fMacro&6) &cVocê precisa estar com um &fItem na mão &6!");
- ACHIEVEMENTGET("Error...","skull");
- WAIT(1);
- ENDIF;
- ENDIF;
- WAIT(500ms);
- ENDIF;
- WAIT(500ms);
- UNTIL(KEY_LCONTROL);
- ELSEIF(%#itens_transport%=2);
- LOG("&6[&f2&6] &bTodos os &fItens &bque estiverem nos &fBáus&6.");
- SET(pegar_tudo);
- ELSEIF(%#itens_transport%=3);
- LOG("&6[&f3&6] &bContinuar com o antigo &fID&6.");
- ELSE;
- LOG("&6(&fMacro&6) &cResposta Inválida &6!");
- WAIT(200ms);
- LOG("&6(&fMacro&6) &cTroca de Itens entre MKBs &6(&4OFF&6) &bby Chavez.");
- UNSET(mkb_macro);
- STOP;
- ENDIF;
- SET(quest_id);
- ENDIF;
- UNSET(quest_baus);
- UNSET(quest_temp);
- UNSET(quest_homes);
- UNSET(quest_id);
- SET(config);
- WAIT(1);
- ENDIF;
- LOG("&6(&fMacro&6) &bTudo certo para iniciar &6!");
- WAIT(200ms);
- UNSET(fist);
- DO();
- ECHO("/spawn");
- DO(30);
- WAIT(270ms);
- IF((%XPOS%=0)&&(%ZPOS%=25));
- SET(fim);
- ENDIF;
- UNTIL(fim);
- UNTIL(fim);
- WAIT(500ms);
- UNSET(pegar);
- DO();
- IF(!pegar);
- SET(#x_pos,%XPOS%);
- SET(#z_pos,%ZPOS%);
- SET(#y_pos,%YPOS%);
- SET(#cont,0);
- UNSET(fim);
- ECHO("/home %&pegar%");
- DO();
- WAIT(200ms);
- GETIDREL(0,-1,-2,&bau);
- GETIDREL(0,0,-2,&bau2);
- GETIDREL(0,1,-2,&bau3);
- GETIDREL(0,2,-2,&bau4);
- GETIDREL(0,3,-2,&bau5);
- SET(&all_chest,"%&bau%-%&bau2%-%&bau3%-%&bau4%-%&bau5%");
- IF((%XPOS%!=%#x_pos%)||(%YPOS%!=%#z_pos%)||(%YPOS%!=%#y_pos%)&&(%XPOS%=%x_pos%)&&(%ZPOS%=%#z_pos%));
- IFMATCHES("%&all_chest%","(chest|trapped_chest)-(chest|trapped_chest)-(chest|trapped_chest)-(chest|trapped_chest)-(chest|trapped_chest));
- SET(fim);
- ELSE;
- INC(#cont,1);
- ENDIF;
- ENDIF;
- IF(%#cont%=5);
- LOG("&6(&fMacro&6) &cAlgo aconteceu de errado &6!");
- WAIT(200ms);
- LOG("&6(&fMacro&6) &cTroca de Itens entre MKBs &6(&4OFF&6) &bby Chavez.");
- UNSET(mkb_macro);
- STOP;
- ENDIF;
- UNTIL(fim);
- WAIT(300ms);
- SET(#slots,0);
- DO();
- IF(pegar_cord_pegar);
- SET(#x_pegar,%XPOS%);
- UNSET(pegar_cord_pegar);
- ENDIF;
- IF((%#bau%>4)||(%XPOS%<%#x_pegar%));
- IF(%#bau%>4);
- SET(#bau,0);
- #final_pegar = %XPOS% + 1;
- #penult_pegar = %#final_pegar% - 1;
- ELSE;
- #final_pegar = %#x_pegar%;
- #penult_pegar = %#final_pegar% - 1;
- ENDIF;
- DO();
- LOOK(north);
- KEYDOWN(right);
- IF(%XPOS%=%#penult_pegar%);
- KEYDOWN(sneak);
- ENDIF;
- GETIDREL(0,1,-2,&verif);
- GETIDREL(0,-1,0,&verif2);
- IF((%&verif%!="chest")&&(%&verif%!="trapped_chest")||(%&verif2%="air"));
- LOG("&6(&fMacro&6) &cSua trap de báus chegou ao Fim&6!");
- WAIT(200ms);
- LOG("&6(&fMacro&6) &cTroca de Itens entre MKBs &6(&4OFF&6) &bby Chavez.");
- KEYUP(right);
- KEYUP(sneak);
- UNSET(mkb_macro);
- STOP;
- ENDIF;
- UNTIL((%XPOS%=%#final_pegar%)&&(%HITID%="chest")||(%HITID%="trapped_chest"));
- KEYUP(sneak);
- KEYUP(right);
- SET(marcar_pegar);
- SET(#x_pegar,%XPOS%);
- ENDIF;
- IF(%#bau%=0);
- LOOK(0,311);
- ENDIF;
- IF(%#bau%=1);
- LOOK(0,333);
- ENDIF;
- IF(%#bau%=2);
- LOOK(0,5);
- ENDIF;
- IF(%#bau%=3);
- LOOK(0,36);
- ENDIF;
- IF(%#bau%=4);
- LOOK(0,53);
- ENDIF;
- WAIT(300ms);
- UNSET(erro);
- UNSET(cheio);
- KEY(USE);
- WAIT(500ms);
- IF(%GUI%!="GUICHEST");
- DO(3);
- KEY(use);
- WAIT(500ms);
- UNTIL(%GUI%="GUICHEST");
- ENDIF;
- UNSAFE();
- FOR(#slot,0,53);
- GETSLOTITEM(%#slot%,&id);
- IF((%&id%=%&item%)||(pegar_tudo)&&(%&id%!="air"));
- SLOTCLICK(%#slot%,l,true);
- GETSLOTITEM(%#slot%,&id,#stack);
- WAIT(2t);
- INC(#slots,1);
- IF((%#stack%>0)||(%#slots%=36));
- SET(cheio);
- BREAK;
- ENDIF;
- ENDIF;
- NEXT;
- ENDUNSAFE;
- IF(!cheio);
- INC(#bau,1);
- ENDIF;
- IF(%GUI%!="GUICHEST");
- LOG("&6(&fMacro&6) &cAlgo aconteceu de &4errado &6!");
- WAIT(200ms);
- LOG("&6(&fMacro&6) &cTentando novamente&6...");
- ELSE;
- GUI();
- ENDIF;
- UNTIL(cheio);
- IF(temp);
- IF(marcar_pegar);
- WAIT(500ms);
- DO(2);
- LOOK(north);
- ECHO("/sethome %&pegar_temp%");
- WAIT(500ms);
- LOOP;
- UNSET(marcar_pegar);
- SET(&pegar,%&pegar_temp%);
- ENDIF;
- ENDIF;
- ELSE;
- SET(#x_pos,%XPOS%);
- SET(#z_pos,%ZPOS%);
- SET(#y_pos,%YPOS%);
- SET(#cont,0);
- UNSET(fim);
- ECHO("/home %&levar%");
- DO();
- WAIT(150ms);
- GETIDREL(0,-1,-2,&bau);
- GETIDREL(0,0,-2,&bau2);
- GETIDREL(0,1,-2,&bau3);
- GETIDREL(0,2,-2,&bau4);
- GETIDREL(0,3,-2,&bau5);
- SET(&all_chest,"%&bau%-%&bau2%-%&bau3%-%&bau4%-%&bau5%");
- IF((%XPOS%!=%#x_pos%)||(%YPOS%!=%#z_pos%)||(%YPOS%!=%#y_pos%)&&(%XPOS%=%x_pos%)&&(%ZPOS%=%#z_pos%));
- IFMATCHES("%&all_chest%","(chest|trapped_chest)-(chest|trapped_chest)-(chest|trapped_chest)-(chest|trapped_chest)-(chest|trapped_chest));
- SET(fim);
- ELSE;
- INC(#cont,1);
- ENDIF;
- ENDIF;
- IF(%#cont%=3);
- LOG("&6(&fMacro&6) &cAlgo aconteceu de errado &6!");
- WAIT(200ms);
- LOG("&6(&fMacro&6) &cTroca de Itens entre MKBs &6(&4OFF&6) &bby Chavez.");
- UNSET(mkb_macro);
- STOP;
- ENDIF;
- UNTIL(fim);
- WAIT(300ms);
- DO();
- IF(pegar_cord_levar);
- SET(#x_levar,%XPOS%);
- UNSET(pegar_cord_levar);
- ENDIF;
- IF((%#baus%>4)||(%XPOS%<%#x_levar%));
- IF(%#baus%>4);
- SET(#baus,0);
- #final_levar = %XPOS% + 1;
- #penult_levar = %#final_levar% - 1;
- ELSE;
- #final_levar = %#x_levar%;
- #penult_levar = %#final_levar% - 1;
- ENDIF;
- DO();
- LOOK(north);
- KEYDOWN(right);
- IF(%XPOS%=%#penult_levar%);
- KEYDOWN(sneak);
- ENDIF;
- GETIDREL(0,1,-2,&verif);
- GETIDREL(0,-1,0,&verif2);
- IF((%&verif%!="chest")&&(%&verif%!="trapped_chest")||(%&verif2%="air"));
- LOG("&6(&fMacro&6) &cSua trap de báus chegou ao Fim&6!");
- WAIT(200ms);
- LOG("&6(&fMacro&6) &cTroca de Itens entre MKBs &6(&4OFF&6) &bby Chavez.");
- KEYUP(right);
- KEYUP(sneak);
- UNSET(mkb_macro);
- STOP;
- ENDIF;
- UNTIL((%XPOS%=%#final_levar%)&&(%HITID%="chest")||(%HITID%="trapped_chest"));
- KEYUP(sneak);
- KEYUP(right);
- SET(#x_levar,%XPOS%);
- SET(marcar_levar);
- ENDIF;
- IF(%#baus%=0);
- LOOK(0,311);
- ENDIF;
- IF(%#baus%=1);
- LOOK(0,333);
- ENDIF;
- IF(%#baus%=2);
- LOOK(0,5);
- ENDIF;
- IF(%#baus%=3);
- LOOK(0,36);
- ENDIF;
- IF(%#baus%=4);
- LOOK(0,53);
- ENDIF;
- WAIT(200ms);
- SET(vazio);
- KEY(USE);
- WAIT(500ms);
- IF(%GUI%!="GUICHEST");
- DO(3);
- KEY(use);
- WAIT(500ms);
- UNTIL(%GUI%="GUICHEST");
- ENDIF;
- UNSAFE();
- FOR(#slot,54,89);
- GETSLOTITEM(%#slot%,&id);
- IF((%&id%=%&item%)||(pegar_tudo)&&(%&id%!="air"));
- SLOTCLICK(%#slot%,l,true);
- GETSLOTITEM(%#slot%,&id,#stack);
- WAIT(2t);
- IF(%#stack%>0);
- UNSET(vazio);
- BREAK;
- ENDIF;
- ELSEIF(%&id%!="air");
- SLOTCLICK(%#slot%);
- WAIT(1t);
- SLOTCLICK(-999);
- WAIT(2t);
- ENDIF;
- NEXT;
- ENDUNSAFE;
- IF(!vazio);
- INC(#baus,1);
- ENDIF;
- IF(%GUI%!="GUICHEST");
- LOG("&6(&fMacro&6) &cAlgo aconteceu de &4errado &6!");
- WAIT(200ms);
- LOG("&6(&fMacro&6) &cTentando novamente&...6");
- UNSET(vazio);
- ELSE;
- GUI();
- ENDIF;
- UNTIL(vazio);
- IF(temp);
- IF(marcar_levar);
- WAIT(500ms);
- DO(2);
- LOOK(north);
- ECHO("/sethome %&levar_temp%");
- WAIT(500ms);
- LOOP;
- UNSET(marcar_levar);
- SET(&levar,%&levar_temp%);
- ENDIF;
- ENDIF;
- ENDIF;
- TOGGLE(pegar);
- LOOP;
- IF(error);
- LOG("&6(&fMacro&6) &cTroca de Itens entre MKBs &6(&4OFF&6) &bby Chavez.");
- UNSET(mkb_macro);
- STOP;
- ENDIF;
- }$$
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement