Código:
$${
if(rogroote);
log("&4[Macro] &6Pesca desativada.");
log("&4[Macro] &2Obrigado por usar meu macro ASS: &bROGROOTE - REGION 2.0.");
unset(rogroote);
stop();
else;
log("&4[Macro] &6Pesca ativado.");
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ê é vip? (pesque somente com varas encantadas.)' ([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 desativada.");
unset(rogroote);
stop();
elseif;
ifmatches(%&vip%,^[S|s|SIM|sim|N|n|NAO|nao]);
PROMPT(&tempo,$$?, Qual tempo em segundos de espera para fisgar?( recomendo de dia 22 e a noite 15 segundos );
do;
ifmatches(%&vip%,^[S|s|SIM|sim]);
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;
// 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;
// VOLTANDO PARA O HOME PESCA
echo(/home pesca);
wait(8);
loop;loop;loop;
endif;
loop;
loop;
endif;
}$$
