carrot

#starty = %YPOS%;
#startz=%ZPOS%;
#startx=%XPOS%;
#lastx=%XPOS%;
#count=0;
SET(reseting, false);
SET(side, false);
LOOK(180,90,1);
KEYDOWN(forward);
wait(120ms);
do;
    if(%#count%=99);
        keyup(forward);
        #count=0;
        LOOK(270, 90, 1);
        keydown(forward);
        SET(reseting);
    endif;
    if(reseting);
        if(%XPOS%=-12932); // change to the x of the very last row.
            keyup(forward);
            wait(1t);
            SET(reseting, false);
            EXEC("CFarm.txt", "new_farm");
            STOP();

        endif;
        next;
    endif;
    if(%YPOS%!=%#starty%);
        if(checky=true);
            checky=false;
            #lastz=%ZPOS%;
        endif;
        if(%ZPOS%!=%#lastz%);
            pick("diamond_pickaxe");
            key(attack);
            wait(1t);
            pick("carrot");
            wait(1t);
            key(use);
            #lastz=%ZPOS%;
        endif;
    endif;
    if((%YPOS%=%#starty%)&&(checky=false));
        checky=true;
        KEYUP(forward);
        keyup(back);
        wait(1t);
        look(+0,-90,.5);
        key(use);
        wait(1t);
        for(#g,20,53);
            GETSLOTITEM(%#g%,&k);
            if(%&k%=="carrot");
                 SLOTCLICK(%#g%,"l",true);
                 wait(2t);
            endif;
        next;
        press(e);
        wait(1t);
        IF(side);
            do;
                keydown(right);
            until(%#lastx%!=%XPOS%);
            keyup(right);
            #lastx=%XPOS%;
            look(SOUTH);
            wait(1t);
            LOOK(+0,90,1);
            wait(1t);
            SET(SIDE, FALSE);
            INC(#count, 1);
        ELSE;
            do;
                keydown(left);
            until(%#lastx%!=%XPOS%);
            keyup(left);
            #lastx=%XPOS%;
            look(NORTH);
            wait(1t);
            LOOK(+0,90,1);
            wait(1t);
            SET(SIDE);
            INC(#count, 1);
        endif;
        keydown(forward);
    endif;
loop