Código:
$${
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;
}$$
