Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- $${
- if(vip);
- log(&6[Macro]&b Pescador Vip Propano &4[Off]);
- unset(vip);
- unset(@pv);
- unset(@rec);
- unset(@des);
- set(reload);
- stop;
- else;
- set(vip);
- set(@rec);
- set(@pv);
- set(@pergunta);
- @&chave[%@#idp%]=%KEYNAME%;
- if(!@des);
- if(reload);
- unset(reset);set(&cor[1],&6&l»);set(&cor[2],&0);set(p1);
- do;
- clearchat;
- log(&b====&6Continuar de onde paro?&b====);
- log( &61 &b- %&cor[1]%Sim &f--- %&cor[2]%Não );
- log( &60 &b- &fContinuar);
- if(KEY_1);wait(1ms);if(!p1);set(&cor[1],&6&l»);set(&cor[2],&0);unset(reset);set(p1);set(reload);else;set(&cor[1],&0);set(&cor[2],&6&l»);unset(p1);unset(reload);set(reset);endif;endif;
- if(KEY_0);break;endif;
- loop;
- else;
- set(reset);
- endif;
- if(reset);
- &guar=none;
- &guarda=written_book;
- do;
- prompt(&guar,$$i,Selecione os itens para guardar! (Digite 0 para sair));
- ifmatches(%&guar%,air|0|none);
- break;
- else;
- &guarda=%&guarda%|%&guar%;
- endif;
- loop;
- ifmatches(%DIRECTION%,N);&dir=north;endif;
- ifmatches(%DIRECTION%,S);&dir=south;endif;
- ifmatches(%DIRECTION%,W);&dir=west;endif;
- ifmatches(%DIRECTION%,E);&dir=east;endif;
- #xp=%XPOS%;
- #zp=%ZPOS%;
- #yaw=%YAW% + 180;
- #pitch=%PITCH%;
- endif;
- #temp=0;
- #bau=4;
- #fil=1;
- endif;
- log(&6[Macro]&b Pescador Vip Propano &2[On]);
- log(&6[Macro]&b Coordenadas Gravadas:);
- log(&6&lX: &b%#xp%);
- log(&6&lZ: &b%#zp%);
- set(jog);
- do;
- do;
- look(%&dir%);
- look(%#yaw%,%#pitch%);
- inc(#temp);
- if(%#temp%>=50);
- #vazio = 0;
- do;gui(inventory);wait(1);until(%GUI%="GUIINVENTORY");
- #temp=0;
- for(#i,9,44);
- look(%&dir%);
- look(%#yaw%,%#pitch%);
- slot(1);
- if(jog);unset(jog);wait(1);slot(1);key(use);endif;
- getslotitem(%#i%,&id);
- ifmatches(%&id%,air);
- inc(#vazio);
- endif;
- if(%GUI%="NONE");#vazio=4;break;endif;
- next;
- if(%#vazio%<=3);
- break;
- gui();
- endif;
- gui();
- endif;
- if((%XPOS%!=%#xp%)|(%ZPOS%!=%#zp%));
- set(repos);
- unset(reparar);
- unset(guarda);
- #vazio=4;
- gui();
- break;
- endif;
- if(%DURABILITY%<20);
- #vazio=4;
- set(reparar);
- gui();
- break;
- endif;
- loop;
- if(%#vazio%<=3);
- look(%#yaw%,%#pitch%);
- do;gui(inventory);wait(1);until(%GUI%="GUIINVENTORY");
- for(#i,9,44);
- getslotitem(%#i%,&id);
- ifmatches(%&id%,%&guarda%|string);else;
- if(%#i%!=36);slotclick(%#i%);endif;
- slotclick(-999);
- wait(100ms);
- endif;
- next;
- #vazio = 0;
- for(#i,9,44);
- getslotitem(%#i%,&id);
- ifmatches(%&id%,air);
- inc(#vazio);
- endif;
- next;
- if(%#vazio%<=3);
- set(guarda);
- endif;
- endif;
- if(reparar);
- unset(reparar);
- #x=%XPOS%;#z=%ZPOS%;
- do;
- }$$/home pescabau$${
- wait(10);
- until((%XPOS%!=%#x%)|(%ZPOS%!=%#z%));
- keydown(jump);wait(1);keyup(jump);wait(1);
- look(,90);
- do(3);slot(1);key(use);key(attack);loop;
- set(repos);
- endif;
- if(guarda);
- unset(guarda);
- gui();
- #x=%XPOS%;#z=%ZPOS%;
- do;
- }$$/home pescabau$${
- wait(10);
- until((%XPOS%!=%#x%)|(%ZPOS%!=%#z%));
- keydown(jump);wait(1);keyup(jump);wait(1);
- #x = %XPOS%;
- #z = %ZPOS%;
- do;
- #exit = 0;
- do;
- ifmatches(%DIRECTION%,N);getidrel(0,%#bau%,-2,&vbau);&dir_bau=North;#pos = %XPOS%;#posf = %#x% + (%#fil% - 1);endif;
- ifmatches(%DIRECTION%,S);getidrel(0,%#bau%,2,&vbau);&dir_bau=South;#pos = %XPOS%;#posf = %#x% - (%#fil% - 1);endif;
- ifmatches(%DIRECTION%,W);getidrel(-2,%#bau%,0,&vbau);&dir_bau=West;#pos = %ZPOS%;#posf = %#z% - (%#fil% - 1);endif;
- ifmatches(%DIRECTION%,E);getidrel(2,%#bau%,0,&vbau);&dir_bau=East;#pos = %ZPOS%;#posf = %#z% + (%#fil% - 1);endif;
- look(%&dir_bau%);
- if(%#bau% = 4);look(,-62);endif;
- if(%#bau% = 3);look(,-50);endif;
- if(%#bau% = 2);look(,-25);endif;
- if(%#bau% = 1);look(,0);endif;
- if(%#bau% = 0);look(,35);endif;
- if(%#pos% != %#posf%);keydown(right);keydown(sneak);endif;
- until(%#pos% = %#posf%);
- wait(100ms);
- keyup(right);
- keyup(sneak);
- wait(1);
- if((%&vbau%="chest")|(%&vbau%="trapped_chest"));
- do;key(use);wait(5);until(%GUI% = "GUICHEST");
- wait(1);
- #sbv = 0;
- for(#i,0,53);
- getslotitem(%#i%,&id);
- if(%&id% = "air");
- #sbv = 1;
- break;
- endif;
- next;
- if(%#sbv% = 1);
- for(#i,54,89);
- getslotitem(%#i%,&id);
- ifmatches(%&id%,%&guarda%);
- if(%#i%!=81);slotclick(%#i%,l,true);endif;
- wait(150ms);
- endif;
- next;
- #exit = 0;
- for(#i,0,53);
- getslotitem(%#i%,&id);
- if(%&id% = "air");
- #exit = 1;
- break;
- endif;
- next;
- if(%#exit% = 0);
- dec(#bau);
- gui();
- if(%#bau% = -1);
- #bau = 4;
- inc(#fil);
- endif;
- endif;
- gui();
- else;
- dec(#bau);
- if(%#bau% = -1);
- #bau = 4;
- inc(#fil);
- endif;
- gui();
- endif;
- else;
- log(&6[Macro]&b Acabo os baus!!!);
- log(&6[Macro]&b Pesca Vip &4[Off]);
- unset(vip);
- stop;
- endif;
- until(%#exit% = 1);
- set(repos);
- endif;
- if(repos);
- unset(repos);
- log(&6[Macro]&b Voltando para o pesqueiro....);
- wait(1);
- #x=%XPOS%;#z=%ZPOS%;
- do;
- }$$/warp vip$${
- wait(10);
- if(@home);
- unset(@home);
- do(5);
- }$$/spawn$${
- wait(5);
- until((%XPOS%!=%#x%)|(%ZPOS%!=%#z%));
- wait(10);
- endif;
- until((%XPOS%=702)&&(%ZPOS%=656));
- keydown(jump);wait(1);keyup(jump);
- do;
- sprint;
- keydown(forward);
- look(south);
- getidrel(0,0,1,&bl);if(%&bl%!="air");keydown(jump);else;keyup(jump);endif;
- if(%ZPOS%>=892);keydown(sneak);else;keyup(sneak);endif;
- until(%ZPOS%=895);
- unsprint;keyup(forward);keyup(sneak);keyup(jump);
- do;
- calcyawto(%#xp%,%#zp%,#vist);#vist=%#vist%+180;
- look(%#vist%,0);
- keydown(forward);
- keydown(jump);
- getidrel(0,0,1,&bl1);getidrel(0,1,1,&bl2);if((%&bl1%="log")|(%&bl2%="log"));keydown(right);else;keyup(right);endif;
- until((%XPOS%=%#xp%)&&(%ZPOS%=%#zp%));
- keyup(forward);keyup(sneak);keyup(jump);
- gui(inventory);
- slot(1);
- set(jog);
- endif;
- loop;
- endif;
- }$$
Add Comment
Please, Sign In to add comment