Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- $${
- toggle(colher_cana);
- if(colher_cana);
- LOG("&f[&2Bambuzeira&f]&2 ON");
- #change_side = 1;
- #andar = 1;
- #max_floors = 4;
- #home_c = 1;
- set(vip);
- Unsafe(0);
- Gui(inventory);
- GETSLOTITEM(37,&comida_v);
- IF((&comida_v = "air")|(&comida_v = "reeds"));
- LOG("&f[&2Bambuzeira&f]: &cSem comida no &bSLOT 2");toggle(colher_cana);GUI();stop;
- ELSE;
- LOG("&f[&2Bambuzeira&f]: &aComida encontrada no &bSLOT 2 >> &e%&comida_v%");
- ENDIF;
- GUI();
- Endunsafe;
- Do;
- CLEARCHAT;
- log("");
- log("&f[&2Bambuzeira&f]&2: &eSelecione o que deseja:");
- Log("");
- IF(vender);Log("&e[&f1&e] &fGuardar ou vender? &e[&aVender&e] ");ENDIF;
- IF(guardar);Log("&e[&f1&e] &fGuardar ou vender? &e[&aGuardar&e]");ENDIF;
- IF((!guardar)&&(!vender));Log("&e[&f1&e] &fGuardar ou vender? &e[&aEscolha&e]");ENDIF;
- log("");
- Log("&e[&f2&e] &fQuantos Andares? &e[&b%#andar%&e]");
- Log("&e[&f3&e] &fQuantas Fileiras? &e[&b%#fileiras_totais%&e]");
- IF(resetar_baus);Log("&e[&f4&e] &fResetar baus? &e[&aSim&e]");ENDIF;
- IF(!resetar_baus);Log("&e[&f4&e] &fResetar baus? &e[&cNao&e]");ENDIF;
- log("");
- IF(vip);Log("&e[&f5&e] &fVoce é &6VIP? &e[&aSim&e]");ENDIF;
- IF(!vip);Log("&e[&f5&e] &fVoce é &6VIP? &e[&cNao&e]");ENDIF;
- log("");
- log("&fAperte &aENTER &fpara confirmar.");
- IF(KEY_1);
- IF((!guardar)&&(!vender));
- set(vender);
- unset(guardar);
- ELSEIF(guardar);
- set(vender);
- unset(guardar);
- ELSEIF(vender);
- unset(vender);
- set(guardar);
- ENDIF;
- do;wait(30ms);Until(!KEY_1 );
- ENDIF;
- IF(KEY_2);
- Prompt(#andar,$$?,Numero de andares);
- do;wait(70ms);Until(!KEY_2);
- ENDIF;
- IF(KEY_3);
- Prompt(#fileiras_totais,$$?,Numero de Fileiras);
- do;wait(70ms);Until(!KEY_3);
- ENDIF;
- IF(KEY_4);
- IF(resetar_baus);unset(resetar_baus);elseif(!resetar_baus);set(resetar_baus);ENDIF;
- do;wait(70ms);Until(!KEY_4);
- ENDIF;
- IF(KEY_5);
- IF(vip);unset(vip);elseif(!vip);set(vip);ENDIF;
- do;wait(70ms);Until(!KEY_5);
- ENDIF;
- IF(KEY_RETURN);
- LOG("&f[&2Bambuzeira&f]&2: &bConfiguraçao Salva");
- BREAK;
- ENDIF;
- Loop;
- IF(resetar_baus);
- unset(fileira_salva);
- #bau_n = 1;
- ENDIF;
- Echo("//g &fIniciei a macro &cbambuzeira v0.1 &f(colheita de cana) &cby zmatheus22");
- keyup(forward);wait(100ms);
- #xcoord = %XPOS%; #zcoord = %ZPOS%;
- Echo("/home cana%#andar%");#change_side = 1;
- set(home_action);
- Do(20);wait(1);until((%XPOS% != %#xcoord%)|(%ZPOS% != %#zcoord%));
- //
- Do;
- Do;
- Unsafe(0);
- // verifs ---- // ---- // ---- // verifs //
- IF(home_action);BREAK;ENDIF;
- IF(%HUNGER% < 8);
- Gui(inventory);
- GETSLOTITEM(37,&verif_comida);
- Gui();
- IF((&verif_comida = "air")|(&verif_comida = "reeds"));
- LOG("&f[&2Bambuzeira&f]: &cSem comida no &bSLOT 2");keyup(forward);set(fetch_food);BREAK;
- ELSE;
- LOG("&f[&2Bambuzeira&f]: &aComida encontrada no &bSLOT 2 >> &e%&comida_v%");
- ENDIF;
- SLOT(2);
- KEYUP(forward);
- pick(baked_potato,cooked_porkchop,cooked_beef);
- LOG("&aComendo");
- Do;key(use);IF(%ITEM% != %&comida_v%);BREAK;ENDIF;Until(%HUNGER% > 14);
- SLOT(1);
- pick("diamond_pickaxe");pick("diamond_axe");pick("diamond_shovel");
- ENDIF;
- GETIDREL(0,-1,0,&id_down);
- IF(&id_down != "dirt");
- log("parede encontrada");
- set(end_row);
- BREAK;
- ENDIF;
- IF(%DIRECTION% = "N");#z_verif = -1;#x_verif = 0;ELSEIF(%DIRECTION% = "S"); #z_verif = +1;#x_verif = 0;ELSEIF(%DIRECTION% = "E"); #x_verif = +1;#z_verif = 0;ELSEIF(%DIRECTION% = "W");#x_verif = -1;#z_verif = 0; ENDIF; @#x_verif1 = %#x_verif% * 1; @#z_verif1 = %#z_verif% * 1;@#x_verif2 = %#x_verif% * 2; @#z_verif2 = %#z_verif% * 2;@#x_verif3 = %#x_verif% * 3; @#z_verif3 = %#z_verif% * 3; @#x_verif4 = %#x_verif% * 4; @#z_verif4 = %#z_verif% * 4;@#x_verif5 = %#x_verif% * 5; @#z_verif5 = %#z_verif% * 5;@#x_verif6 = %#x_verif% * 6; @#z_verif6 = %#z_verif% * 6; IF(%DIRECTION% = "N");#z_verif_back = +1; #x_verif_back = 0; ELSEIF(%DIRECTION% = "S"); #z_verif_back = -1; #x_verif_back = 0; ELSEIF(%DIRECTION% = "E"); #x_verif_back = -1; #z_verif_back = 0; ELSEIF(%DIRECTION% = "W"); #x_verif_back = +1; #z_verif_back = 0; ENDIF; @#x_verif1_back = %#x_verif_back% * 1; @#z_verif1_back = %#z_verif_back% * 1; @#x_verif2_back = %#x_verif_back% * 2; @#z_verif2_back = %#z_verif_back% * 2; @#x_verif3_back = %#x_verif_back% * 3; @#z_verif3_back = %#z_verif_back% * 3; IF(%DIRECTION% = "N");#z_verif_sides = 0; #x_verif_sides = -1; ELSEIF(%DIRECTION% = "S"); #z_verif_sides = 0; #x_verif_sides = +1; ELSEIF(%DIRECTION% = "E"); #x_verif_sides = 0; #z_verif_sides = +1; ELSEIF(%DIRECTION% = "W"); #x_verif_sides = 0; #z_verif_sides = -1; ENDIF; @#x_verif_sides1 = %#x_verif_sides% * 1; @#z_verif_sides1 = %#z_verif_sides% * 1; @#x_verif_sides2 = %#x_verif_sides% * 2; @#z_verif_sides2 = %#z_verif_sides% * 2; @#x_verif_sides3 = %#x_verif_sides% * 3; @#z_verif_sides3 = %#z_verif_sides% * 3; IF(%DIRECTION% = "N");#z_verif_sides_l = 0; #x_verif_sides_l = +1; ELSEIF(%DIRECTION% = "S"); #z_verif_sides_l = 0;#x_verif_sides_l = -1; ELSEIF(%DIRECTION% = "E"); #x_verif_sides_l = 0; #z_verif_sides_l = -1; ELSEIF(%DIRECTION% = "W"); #x_verif_sides_l = 0; #z_verif_sides_l = +1; ENDIF; @#x_verif_sides1_l = %#x_verif_sides_l% * 1; @#z_verif_sides1_l = %#z_verif_sides_l% * 1;@#x_verif_sides2_l = %#x_verif_sides_l% * 2; @#z_verif_sides2_l = %#z_verif_sides_l% * 2;@#x_verif_sides3_l = %#x_verif_sides_l% * 3; @#z_verif_sides3_l = %#z_verif_sides_l% * 3;
- GETIDREL(%@#x_verif1%,+1,%@#z_verif1%,&id_wall_1);LOG("%&id_wall_1%");
- IF((&id_wall_1 != "air")&&(&id_wall_1 != "reeds"));
- LOG("&cFim do andar.");
- set(change_andar);
- BREAK;
- ENDIF;
- GETIDREL(0,0,0,&water_foot);
- IF(&water_foot = "water");
- LOG("%&water_foot% &aativado");
- keyup(forward);
- #change_side = 1;
- set(reset_floor)
- ENDIF;
- // action ---- // ---- // ---- // action //
- wait(30ms);
- look(+0,0);
- keyup(sneak);
- IF(#change_side = 1);keydown(left);ElseIF(#change_side = 2);keydown(right);ENDIF;
- key(attack);
- Endunsafe;
- Loop;
- // conseq ---- // ---- // ---- // conseq //
- IF(end_row);
- unset(end_row);
- LOG("&cFileira chegou ao fim");
- keyup(right);keyup(left);
- LOG("Sentido atual: &a%#change_side%");
- #xcoord = %XPOS%; #zcoord = %ZPOS%;
- do;
- keydown(sneak);wait(50ms);
- keydown(forward);
- until((%XPOS% = %#xcoord% + 4)|(%ZPOS% = %#zcoord% + 4));wait(295ms);
- keyup(forward);
- keyup(sneak);
- wait(100ms);
- #xcoord = %XPOS%; #zcoord = %ZPOS%;
- Do;
- IF(#change_side = 1);keydown(right);ElseIF(#change_side = 2);keydown(left); = 1;ENDIF;
- LOG("Sentido atual: &a%#change_side%");
- wait(100ms);
- GETIDREL(0,-1,0,&id_down);
- until((%XPOS% != %#xcoord%)|(%ZPOS% != %#zcoord%)|(&id_down = "reeds"));
- keyup(forward);keyup(right);keyup(left);keyup(sneak);
- IF(#change_side = 1);#change_side = 2;ElseIF(#change_side = 2);#change_side = 1;ENDIF;
- ENDIF;
- IF(change_andar);
- unset(change_andar);
- INC(#andar,1);
- IF((#andar >= #max_floors)||(reset_floor));
- unset(reset_floor);
- IF(!reset_floor);LOG("&aTodos os andares foram coletados, resetando");ENDIF;
- IF(reset_floor);LOG("&cAlgum problema aconteceu, &aresetando andar");ENDIF;
- #andar = 1;
- ENDIF;
- #xcoord = %XPOS%; #zcoord = %ZPOS%;
- Echo("/home cana%#andar%");
- #andar = 1;
- set(home_action);
- Do;wait(1500ms);
- until((%XPOS% != %#xcoord%)|(%ZPOS% != %#zcoord%));
- ENDIF;
- IF(home_action);
- unset(home_action);
- keyup(right);keyup(left);
- IF(%DIRECTION% = "N"); @&frente = "north"; @&atras = "south"; @&direita = "east" ; @&esquerda = "west"; ENDIF;IF(%DIRECTION% = "S"); @&frente = "south"; @&atras = "north"; @&direita = "west" ; @&esquerda = "east"; ENDIF;IF(%DIRECTION% = "E"); @&frente = "east"; @&atras = "west" ; @&direita = "south"; @&esquerda = "north"; ENDIF;IF(%DIRECTION% = "W"); @&frente = "west"; @&atras = "east" ; @&direita = "north"; @&esquerda = "south"; ENDIF;
- look(%@&frente%);
- keydown(forward);
- wait(300ms);
- keyup(forward);
- #xcoord = %XPOS%; #zcoord = %ZPOS%;
- Do;
- keydown(sneak);
- keydown(right);
- wait(1);
- until((%XPOS% != %#xcoord%)|(%ZPOS% != %#zcoord%));
- keyup(right);
- #xcoord = %XPOS%; #zcoord = %ZPOS%;
- do;
- keydown(left);wait(50ms);
- until((%XPOS% != %#xcoord%)|(%ZPOS% != %#zcoord%));
- keyup(left);
- look(%@&direita%);look(+0,0);
- ENDIF;
- IF(inv_lotado);
- LOG("&aIn INV_LOTADO");
- IF(guardar);
- LOG("&f[&2Bambuzeira&f]&2: &7Indo guardar os Bambus");
- keyup(forward);wait(100ms);
- #xcoord = %XPOS%; #zcoord = %ZPOS%;
- keyup(forward);keyup(back);keyup(right);keyup(left);keyup(jump);wait(100ms);
- IF(!fileira_salva);
- Echo("/home adv_trapcana"); LOG("&dIndo para home Principal");
- Do(20); wait(1);Until((%XPOS% != %#xcoord%)|(%ZPOS% != %#zcoord%));wait(500ms);
- elseif(fileira_salva);
- Echo("/home tempchest_cana");
- LOG("&dIndo para home temporaria");
- Do(20); wait(1);Until((%XPOS% != %#xcoord%)|(%ZPOS% != %#zcoord%));
- wait(1500ms);
- ENDIF;
- #x_antibug_cl = %XPOS%; #x_antibug_cl_plus = %XPOS% + 1;
- Do;keydown(right);until(%XPOS% = %#x_antibug_cl_plus%);keyup(right);wait(500ms);
- Do;keydown(left);keydown(sneak);until(%XPOS% = %#x_antibug_cl%);wait(295ms);keyup(left);keyup(sneak);
- Do();
- IF(trocar_fileira);
- LOG("&e[Verif]: &eTrocando Fileira");
- Do;Gui();Until(%GUI% = "NONE");wait(100ms);
- Looks(north,1);
- IF(reset_chest);#bau_n = 1;LOG("&e[Verif]: &6&lResetando baus.");unset(reset_chest);ENDIF;wait(800ms);
- if(fileira_salva);
- keyup(forward);wait(100ms);
- #xcoord = %XPOS%; #zcoord = %ZPOS%;
- Echo("/home tempchest_cana");
- Do(20); wait(1);Until((%XPOS% != %#xcoord%)|(%ZPOS% != %#zcoord%));wait(500ms);
- endif;
- wait(1000ms);
- #xcoord = %XPOS%;
- Do;keydown(sneak);keydown(right);Until(%#xcoord% != %XPOS%);wait(295ms);keyup(right);keyup(sneak);wait(2300ms);
- Do(2);Echo("/sethome tempchest_cana");wait(1);Loop;wait(800ms);set(fileira_salva);wait(1);
- unset(trocar_fileira);
- LOG("&1&f[&2Bambuzeira&f]&2: &aFileira trocada com sucesso.");
- ENDIF;
- IF(#bau_n = 1); looks(0,270);wait(%#delay_look%ms); ENDIF;
- IF(#bau_n = 2); looks(0,310);wait(%#delay_look%ms); ENDIF;
- IF(#bau_n = 3); looks(0,335);wait(%#delay_look%ms); ENDIF;
- IF(#bau_n = 4); looks(0,350);wait(%#delay_look%ms); ENDIF;
- IF(#bau_n = 5); looks(0,0); wait(%#delay_look%ms); ENDIF;
- IF(#bau_n = 6); looks(0,15); wait(%#delay_look%ms); ENDIF;
- IF(#bau_n = 7); looks(0,30); wait(%#delay_look%ms); ENDIF;
- IF(#bau_n = 8); looks(0,50); wait(%#delay_look%ms); ENDIF;
- IF(#bau_n = 9); looks(0,70); wait(%#delay_look%ms); ENDIF;
- IF(#bau_n = 10);looks(180,300,1);wait(%#delay_look%ms); ENDIF;
- IF(#bau_n = 11);looks(180,325);wait(%#delay_look%ms); ENDIF;
- IF(#bau_n = 12);looks(180,345);wait(%#delay_look%ms); ENDIF;
- IF(#bau_n = 13);looks(180,0,1);wait(%#delay_look%ms); ENDIF;
- IF(#bau_n = 14);looks(180,20); wait(%#delay_look%ms); ENDIF;
- IF(#bau_n = 15);looks(180,35); wait(%#delay_look%ms); ENDIF;
- IF(#bau_n = 16);looks(180,60); wait(%#delay_look%ms); ENDIF;
- IF(#bau_n = 17);LOG("&cTodos os baus dessa fileira estão lotados, Indo para proxima.");#bau_n = 1;set(trocar_fileira);ENDIF;
- Do;Gui();Until(%GUI% = "NONE");
- IF(!trocar_fileira);wait(400ms);
- #contador_openc = 0;
- Do;
- INC(#contador_openc,1);
- IF(#contador_openc >= 11);
- GUI();keydown(sneak);keydown(right);wait(300ms);keyup(sneak);keyup(right);
- ENDIF;
- KEY(use);
- LOG("&aTentando abrir bau");
- wait(300ms);
- GETIDREL(0,-1,0,&foot_chest);
- IF((&foot_chest != "glass")&&(&foot_chest != "glowstone"));
- keyup(forward);keyup(left);keyup(right);wait(250ms);
- LOG("&f[&2Bambuzeira&f]&2: &cVoce provavelmente esta fora da trap de baus, Reposicionando");
- #xcoord = %XPOS%; #zcoord = %ZPOS%;
- Echo("/home adv_trapcana");wait(300ms);
- Do(20);wait(1);until((%XPOS% != %#xcoord%)|(%ZPOS% != %#zcoord%));
- ENDIF;
- Until(%GUI% = "GUICHEST");
- wait(1);
- FOR(#inv_slotclick,54,89);
- GETSLOTITEM(53,&last_slot);
- IF(&last_slot != "air");
- LOG("&f[&2Bambuzeira&f]&2: &eEste bau esta cheio, Indo para o proximo.");
- INC(#bau_n,1);
- GUI();
- set(next_chest);
- BREAK;
- ENDIF;
- GETSLOTITEM(%#inv_slotclick%,&itemidfor);
- IF(&itemidfor = "reeds");
- Slotclick(%#inv_slotclick%,l,true);
- ENDIF;
- IF(#inv_slotclick = 89);
- set(inventory_cleared);
- unset(next_chest);
- unset(trocar_fileira);
- ENDIF;
- NEXT;
- IF((!next_chest)&&(inventory_cleared));
- unset(inventory_cleared);
- LOG("&f[&2Bambuzeira&f]&2: &aItens guardados com sucesso. voltando a Colher.");
- BREAK;
- ENDIF;
- ENDIF;
- Loop;
- keyup(forward);wait(100ms);
- #xcoord = %XPOS%; #zcoord = %ZPOS%;
- Echo("/home cana%#home_c%"); LOG("/home cana 3");
- #side = 1; //REMOVER QUANDO FIZER SETHOME TEMPORARIA /////
- #fileira = 0; //REMOVER QUANDO FIZER SETHOME TEMPORARIA ////////
- Do(20);wait(1);until((%XPOS% != %#xcoord%)|(%ZPOS% != %#zcoord%));
- ELSEIF(vender);
- GUI();
- keyup(forward);wait(100ms);
- #xcoord = %XPOS%; #zcoord = %ZPOS%;
- IF(vip);Echo("/home zmatheus22 vd_cana");ENDIF;
- IF(!vip);Echo("/home zmatheus22 vd_cananv");ENDIF;
- Do(15);wait(500ms);Until((#xcoord != %XPOS%)|(#zcoord != %ZPOS%));Wait(450ms);
- Keydown(sneak);
- Echo("/menuloja off");Echo("/esconder");wait(200ms);
- Do;
- Do(4);key(attack);keydown(sneak);wait(400ms);Loop;
- keyup(sneak);BREAK;
- Loop;
- keyup(forward);wait(100ms);
- #xcoord = %XPOS%; #zcoord = %ZPOS%;
- Echo("/home cana%#home_c%");
- do(15);wait(500ms);Until((%XPOS% != %#xcoord%)|(%ZPOS% != %#zcoord%));
- ENDIF;
- unset(inv_lotado);
- ENDIF;
- IF(fetch_food);
- #xcoord = %XPOS%; #zcoord = %ZPOS%;
- Echo("/home adv_trapcana");wait(300ms);
- Do(20);wait(1);Until((%XPOS% != %#xcoord%)|(%ZPOS% != #zcoord));
- wait(1);
- IF(%DIRECTION% = "N"); @&frente = "north"; @&atras = "south"; @&direita = "east" ; @&esquerda = "west"; ENDIF;IF(%DIRECTION% = "S"); @&frente = "south"; @&atras = "north"; @&direita = "west" ; @&esquerda = "east"; ENDIF;IF(%DIRECTION% = "E"); @&frente = "east"; @&atras = "west" ; @&direita = "south"; @&esquerda = "north"; ENDIF;IF(%DIRECTION% = "W"); @&frente = "west"; @&atras = "east" ; @&direita = "north"; @&esquerda = "south"; ENDIF;
- looks(%@&frente%,1);
- look(+0,0);wait(300ms);
- Gui(inventory);
- GETSLOTITEM(37,&slot37);
- Slotclick(37,l,true);
- wait(230ms);
- Slotclick(37,l,false);
- wait(230ms);
- Slotclick(-999,l,false);
- wait(300ms);
- Gui();
- Do;
- Looks(270,50,1);
- IF((%HITID% = 54)|(%HITID% = 146)|(%HITID% = "chest")|(%HITID% = "trapped_chest"));
- LOG("&f[&2Bambuzeira&f]&2: &aBau localizado.");
- BREAK;
- Else;
- LOG("&f[&2Bambuzeira&f]&2: &cBau nao localizado, tentando novamente");
- keydown(jump);wait(2);keyup(jump);
- ENDIF;
- Loop;
- Do;key(use);wait(400ms);Until(%GUI% = "GUICHEST");wait(1);
- GETSLOT(%&comida_v%,#slot_comida);
- IF((#slot_comida = -1)|(#slot_comida >= 54));
- Do;playsound(note.harp);log("&f[&2Bambuzeira&f]: &cComida nao encontrada. ");wait(1);Loop;
- ELSEIF((#slot_comida != -1)&&(#slot_comida < 54));
- Slotclick(%#slot_comida%,l,false);wait(300ms);
- Slotclick(82,l,false);wait(100ms);
- ENDIF;
- #xcoord = %XPOS%; #zcoord = %ZPOS%;
- Echo("/home cana%#home_c%");wait(300ms);
- #side = 1; //REMOVER QUANDO FIZER SETHOME TEMPORARIA /////
- #fileira = 0; //REMOVER QUANDO FIZER SETHOME TEMPORARIA ////////
- Do(20);wait(1);Until((%XPOS% != %#xcoord%)|(%ZPOS% != #zcoord));
- unset(fetch_food);
- ENDIF;
- Loop;
- Else;
- LOG("&f[&2Bambuzeira&f]&c OFF");
- KEYUP(forward);
- stop;
- endif;
- }$$
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement