$${
do;
    look(north);
    look(,66);
    if(%DURABILITY% < 15);
        do(3);
            look(,90);
            key(use);
            wait(100ms);
        until(%DURABILITY% > 20);
    endif;
    pick(gravel);key(use);wait(1ms);
    pick(diamond_shovel);key(attack);
    if(@limpando);
            do(6);
                look(north);
                look(,66);
                key(attack);
                wait(1);
            loop;
        unset(@limpando);
    endif;
loop;
}$$