Macro de achar tesouro

    $${
    if(tesouro);
    unset(tesouro);
    log("");
    log(&d[&3MACRO&d] &5Pega &1Livro &4Desligado);
    log(&d[&3MACRO&d] &6Obrigado por usar!!!);
    log("");
    KEYUP(FORWARD);
    KEYUP(BACK);
    KEYUP(RIGHT);
    KEYUP(LEFT);
    keyup(jump);
    stop;
    else;
    set(tesouro);
    log("");
    log(&d[&3MACRO&d] &5Pega &1Livro &2Ligado);
    log(&d[&3MACRO&d] &fDesenvolvido por Marini (Region 2.0));
    log("");
        wait(200ms);

        #timepot = 0;

        prompt(#xpost,$$?,Qual a coordenada no X?);
        prompt(#zpost,$$?,Qual a coordenada no Z?);
        prompt(&pot8,$$?,Voce ira tomar POT de velocidade I de 8 minutos? (S p/sim | N p/nao));

        if(%HUNGER%<8);
            slot(9);
            wait(100ms);
            do(45);
            key(use);
            wait(0.00000001ms);
            loop;
        endif;

        if((%&pot8%="S")||(%&pot8%="s"));
            slot(8);
do(45);
            wait(0.00000001ms);
            key(use);
loop;
        endif;
if((%&pot8%="S")||(%&pot8%="s"));
CALCYAWTO(%#xpost%,%#zpost%,#yaw,#distance);
#ab=%#distance%*100;
#t=%#ab%/720;
log("");
log(&6O tempo previsto para chegar a coordenada é: &3%#t% &4Segundos);
log("");
else;
CALCYAWTO(%#xpost%,%#zpost%,#yaw,#distance);
#ab=%#distance%*100;
#t=%#ab%/695;
log("");
log(&6O tempo previsto para chegar a coordenada é: &3%#t% &4Segundos);
log("");
endif;

            do;
CALCYAWTO(%#xpost%,%#zpost%,#yaw,#distance)
#h=%#yaw%+180;
look(%#h%,60);
            inc(#timepot);
keydown(jump);
            keydown(sprint);
            keydown(forward);
            if((%&pot8%="S")||(%&pot8%="s"));
                if(%#timepot%=9600);
                    slot(8);
                    do(45);
wait(0.00000001ms);
key(use);
loop;
                    #timepot = 0;
                endif;
            endif;
            if(%HUNGER%<8);
                slot(9);
                wait(100ms);
                do(45);
                key(use);
                wait(0.00000001ms);
                loop;
            endif;
if(%HITID%="fence");
keydown(left);
wait(2500ms);
keyup(left);
endif;
            until(%#distance%=0);
            keyup(forward);
            keyup(sprint);
keyup(jump);

        CALCYAWTO(%#xpost%,%#zpost%,#yaw,#distance)
#h=%#yaw%+180;
look(%#h%,60);
            keydown(forward);
until(%#distance%=0);
            keyup(forward);
    endif;
}$$