$${
IF(rxoneto);
Log(&4OFF);setlabel(limpando,"",limpando);keyup(forward);keyup(back);keyup(right);keyup(left);
Unset(rxoneto);
STOP;
Else;
Log(&2ON);set(@pescaon);setlabel(limpando,"",limpando);keyup(forward);keyup(back);keyup(right);keyup(left);
set(inv);
Set(rxoneto);
do;
echo(/warp vip);wait(2);
do;
look(south);
look(-5,);sprint();
keydown(forward);
if(%ZPOS%>697);
    keydown(sneak);
endif;
until(%ZPOS%>=700);
keyup(forward);keyup(sneak);
random(#x,744,706);
do;
look(south);
look(,40);
keydown(left);
until(%XPOS%=%#x%);keyup(left);
do;
keydown(forward);
getidrel(0,-1,1,&bloco);
until(%&bloco%="water");keyup(forward);
wait(1);
&livro="written_book";
look(south);
look(,40);
slot(9);wait(1);slot(8);wait(2);key(use);
do;
#tempo=120;
do(120);
look(south);
look(,40);
    if(%DURABILITY% < 20);keyup(sneak);
    echo(/home rep);wait(3);
    slot(8);do(3);key(use);wait(100ms);until(%DURABILITY%>20);
    wait(1);
    echo(/warp vip);wait(2);
    do;
    look(south);
    look(-5,);sprint();
    keydown(forward);
    if(%ZPOS%>697);
        keydown(sneak);
    endif;
    until(%ZPOS%>=700);
    keyup(forward);keyup(sneak);
    random(#x,744,706);
    do;
    look(south);
    look(,40);
    keydown(left);
    until(%XPOS%=%#x%);keyup(left);
    do;
    keydown(forward);
    getidrel(0,-1,1,&bloco);
    until(%&bloco%="water");keyup(forward);
    wait(1);
    &livro="written_book";
    look(south);
    look(,40);
    slot(9);wait(1);slot(8);wait(2);key(use);
    endif;
    setlabel(limpando,"Limpando inventário em: %#tempo% Segundos",limpando);
    dec(#tempo);
wait(1);
loop;
if(inv);
    gui(inventory);
    for(#oi,9,42);
    getslotitem(%#oi%,&id,#stack);
        if(%&id%!=%&livro%);
            slotclick(%#oi%);wait(100ms);slotclick(-999);
        endif;
    next;
endif;
slot(9);wait(1);slot(8);wait(2);key(use);
loop;
loop;
endif;
}$$