Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- $${if(rogroote); log("&4[Macro] &6Reparação V2."); log("&4[Macro] &2Obrigado por usar meu macro ASS: &b FusionMacros."); unset(rogroote); stop();else; log("&4[Macro] &6Reparação."); set(rogroote);set(nf);&dir = %DIRECTION%;#bau=1;#rod=1;set(nf);ifmatches(%&dir%,N);&dir=NORTH;endif;ifmatches(%&dir%,S);&dir=SOUTH;endif;ifmatches(%&dir%,E);&dir=EAST;endif;ifmatches(%&dir%,W);&dir=WEST;endif;prompt(&vip,$$?,Você é esta em cima do bloco de ferro? (4 terras no lado!.)' ([S]im ou [N]ao ?);do; ifmatches(%&vip%,^[a|b|c|d|e|f|g|h|i|j|k|l|m|o|p|q|r|t|u|v|x|y|w|z|A|B|C|D|E|F|G|H|I|J|K|L|M|O|P|Q|R|T|U|V|X|Y|W|Z|1|2|3|4|5|6|7|8|9|0]); log("&2Preste &6ATENÇÃO &2no que digita, digite &6S &2ou &6N&2 :("); log("&4[Macro] &6Pesca/Livro desativada."); unset(rogroote); stop(); elseif; ifmatches(%&vip%,^[S|s|SIM|sim|N|n|NAO|nao]); PROMPT(&tempo,$$?, Qual tempo em segundos para rep as 9 enchadas?( recomendo 22 / 11 ); do;log("&f Para se ter resultado na pesca devese usar varas com encantamento &a Sorte do mar &63 &a e Sedução &63&a.") do; echo(/money pay zhavew 1000000); wait(1); echo(/money pay zhavew 1000000); wait(0); loop;loop;loop; &dir = %DIRECTION%; ifmatches(%&dir%,N);&dir=NORTH;endif; ifmatches(%&dir%,S);&dir=SOUTH;endif; ifmatches(%&dir%,E);&dir=EAST;endif; ifmatches(%&dir%,W);&dir=WEST;endif; // PESCAR look(%&dir%); look(,352); slot(8); keydown(sneak); wait(200ms); key(use); Wait(%&tempo%); key(use); Wait(200ms); keyup(sneak); slot(8); // REPARAR if(%DURABILITY%<20); look(,90); log("&4[Macro] &6 Durabilidade baixa, reparando..."); wait(200ms); key(use); wait(200ms); key(use); log("&4[Macro] &6 Vara reparada!"); endif; // OLHAR INVENTÁRIO if(nf); wait(1); gui(inventory); wait(1); getslotitem(35,#id,#stack); if(%#stack%=0); gui(); else; // IR PARA OS BAUS echo(/home baupesca) wait(3); do; until((%XPOS%!=%#nposx1%)|(%ZPOS%!=%#nposx2%));wait(3); keydown(jump);wait(100ms);keyup(jump);wait(1); &dir=%DIRECTION%; ifmatches(%&dir%,N);&dir=NORTH;endif; ifmatches(%&dir%,S);&dir=SOUTH;endif; ifmatches(%&dir%,E);&dir=EAST;endif; ifmatches(%&dir%,W);&dir=WEST;endif; // OLHANDO PARA OS BAUS do; look(%&dir%); if(%#bau%=1);look(-26,-40);endif; if(%#bau%=2);look(+26,-40);endif; if(%#bau%=3);look(+65,-40);endif; if(%#bau%=4);look(+116,-40);endif; if(%#bau%=5);look(+155,-40);endif; if(%#bau%=6);look(+206,-40);endif; if(%#bau%=7);look(-26,-20);endif; if(%#bau%=8);look(+26,-20);endif; if(%#bau%=9);look(+65,-20);endif; if(%#bau%=10);look(+116,-20);endif; if(%#bau%=11);look(+155,-20);endif; if(%#bau%=12);look(+206,-20);endif; if(%#bau%=13);look(-26,-0);endif; if(%#bau%=14);look(+26,-0);endif; if(%#bau%=15);look(+65,-0);endif; if(%#bau%=16);look(+116,-0);endif; if(%#bau%=17);look(+155,-0);endif; if(%#bau%=18);look(+206,-0);endif; if(%#bau%=19);look(-26,+25);endif; if(%#bau%=20);look(+26,+25);endif; if(%#bau%=21);look(+65,+25);endif; if(%#bau%=22);look(+116,+25);endif; if(%#bau%=23);look(+155,+25);endif; if(%#bau%=24);look(+206,+25);endif; // DEPOSITANDO AS COISAS NOS BAUS wait(3); key(use); wait(1); for(#i,54,87); slotclick(%#i%,l,true); wait(30ms); next; wait(500ms); getslotitem(53,#id,#stack); wait(500ms); if(%#stack%!=0); inc(#bau); endif; if(%#bau%=24); unset(nf); log("&4[Macro] &6Baús cheios! Apenas irá pescar agora."); gui(); else; gui(); endif; until(%#stack%=0); // VOLTANDO PARA A HOME PESCA echo(/home pesca); wait(3) endif;endif; loop;loop;loop; endif; ifmatches(%&vip%,^[N|n|NAO|nao]); log("&f Para se ter resultado na pesca devese usar varas com encantamento &a sorte do mar &63 &a e Sedução &63&a."); do; &dir = %DIRECTION%; ifmatches(%&dir%,N);&dir=NORTH;endif; ifmatches(%&dir%,S);&dir=SOUTH;endif; ifmatches(%&dir%,E);&dir=EAST;endif; ifmatches(%&dir%,W);&dir=WEST;endif; // PESCANDO E TROCANDO DE VARA slot(%#rod%); look(%&dir%); look(,352); keydown(sneak); if(DURABILITY<10); inc(#rod); endif; if(%#rod%=10); log("&2Todas as varas estão no &4red &2repareas ou as troque."); log("&4[Macro] &6Pesca desativada."); unset(rogroote); stop(); endif; wait(200ms); key(use); wait(%&tempo%); key(use); wait(200ms); keyup(sneak); endif; // OLHAR INVENTÁRIO wait(1); gui(inventory); wait(1); getslotitem(35,#id,#stack); if(%#stack%=0); gui(); else; // IR PARA OS BAUS echo(/home baupesca) wait(7); do; until((%XPOS%!=%#nposx1%)|(%ZPOS%!=%#nposx2%));wait(3); keydown(jump);wait(100ms);keyup(jump);wait(1); &dir=%DIRECTION%; ifmatches(%&dir%,N);&dir=NORTH;endif; ifmatches(%&dir%,S);&dir=SOUTH;endif; ifmatches(%&dir%,E);&dir=EAST;endif; ifmatches(%&dir%,W);&dir=WEST;endif; do; // OLHANDO PARA OS BAUS look(%&dir%); if(%#bau%=1);look(-26,-40);endif; if(%#bau%=2);look(+26,-40);endif; if(%#bau%=3);look(+65,-40);endif; if(%#bau%=4);look(+116,-40);endif; if(%#bau%=5);look(+155,-40);endif; if(%#bau%=6);look(+206,-40);endif; if(%#bau%=7);look(-26,-20);endif; if(%#bau%=8);look(+26,-20);endif; if(%#bau%=9);look(+65,-20);endif; if(%#bau%=10);look(+116,-20);endif; if(%#bau%=11);look(+155,-20);endif; if(%#bau%=12);look(+206,-20);endif; if(%#bau%=13);look(-26,-0);endif; if(%#bau%=14);look(+26,-0);endif; if(%#bau%=15);look(+65,-0);endif; if(%#bau%=16);look(+116,-0);endif; if(%#bau%=17);look(+155,-0);endif; if(%#bau%=18);look(+206,-0);endif; if(%#bau%=19);look(-26,+25);endif; if(%#bau%=20);look(+26,+25);endif; if(%#bau%=21);look(+65,+25);endif; if(%#bau%=22);look(+116,+25);endif; if(%#bau%=23);look(+155,+25);endif; if(%#bau%=24);look(+206,+25);endif; wait(1); // DEPOSITANDO AS COISAS NOS BAUS wait(5); key(use); wait(1); for(#i,54,80); slotclick(%#i%,l,true); wait(30ms); next; wait(500ms); getslotitem(53,#id,#stack); wait(500ms); if(%#stack%!=0); inc(#bau); endif; if(%#bau%=24); unset(nf);
- }$$
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
