$${
if(x);
    log(&d[MACRO] &fHerbalismo desligada!! &4[OFF]);
    unset(x);
    stop();
else;
    log(&d[MACRO] &fHerbalismo ligada!! &a[ON]);
    set(x);
    &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;
    look(WEST);

    look(0,90);
    do;
        look(WEST);
        look(0,90);
        log(&d[MACRO] &fAguarde!);
        wait(3);
        do;
            if( (%HITID%="reeds") | (%HITID%="dirt") | (%HITID%="sand"));
                PICK(338, "reeds");
                getslotitem(8,#iid,#qtdslot8);
                //wait(10ms);
                key(use);
                //wait(10ms);
                key(attack);
                //log(%#qtdslot8%);
            else;
                }$$/home plantar$${
                wait(5000ms);
            endif;

        while(%#qtdslot8%>=32);

        wait(500ms);
        look(WEST);
        look(90,-35);
        wait(500ms);
        wait(2);
        look(WEST);
        look(90,-28);

        wait(2);
        keydown(jump);
        wait(200ms);
        keyup(jump);
        wait(500ms);
        key(use);
        wait(2);
        //coloca os itens diferentes da cana no bau superior
        log(sobe Livro);
        for(#nslot,54,89);
            getslotitem(%#nslot%,&item,#qtditens);
            if(%&item%!="reeds");
                slotclick(%#nslot%,l,true);
                wait(150ms);
            endif;
            wait(10ms);
        next;
        gui();

        //sobe as canas para o bau
        wait(2);
        log(Sobe cana);
        look(WEST);
        look(90,5);
        keydown(jump);
        wait(200ms);
        keyup(jump);
        wait(2);
        key(use);
        wait(2);
        for(#nslot,54,89);
            getslotitem(%#nslot%,&item,#qtditens);
            //if(%&item%!="reeds");
                slotclick(%#nslot%,l,true);
                wait(150ms);
            //endif;
            wait(10ms);
        next;
        wait(1);
        //desce todas as canas
        log(desce cana);
        for(#nslot,0,53);
            getslotitem(%#nslot%,&item,#qtditens);
            if(%&item%="reeds");
                slotclick(%#nslot%,l,true);
                wait(150ms);
            endif;
            wait(10ms);
        next;
        wait(1);
        //deixa apenas canas na hot bar
        log(sobe excesso);
        for(#nslot,54,80);
            getslotitem(%#nslot%,&item,#qtditens);
            if(%&item%="reeds");
                slotclick(%#nslot%,l,true);
                wait(150ms);
            endif;
            wait(10ms);
        next;
        gui();
    loop;


endif;
    log();
    unset(x);
    stop();
}$$