$${

//farm parimeters 10029 -6468 11296 -5937
#west = 11296
#east = 11375
#nort = -6016
#toolslot = 1
#shear = 1
#wait = 100
#forthrow = 0
#junkslot = 81
look(north);
exec("autoshear.txt","autoshear");
do;
do;
                                          do;
                                                 #xcoord = %XPOS%
                                                 #zcoord = %ZPOS%

                                                 do;
                                                       keydown(left);
                                                 until((%#zcoord% != %ZPOS%) || (%#xcoord% != %XPOS%));
                                                 pick(shears);
                                                 keyup(left);
                                                 look(%#forward%,55);
                                                 wait(330ms)
                                                 look(%#forward%,340,1.8);
                                                 look(%#forward%,297,1.5);
                                          until((%XPOS% = (#west))
wait(1500ms);
                                           // drop vines
//
                look(north);
                for(#count,1,550);
                pick(vine);
                key(drop);
                next;
                                            // move back to right
                                            do;
                                                 keydown(right);
                                            until((%XPOS% = (#east))
                                            keyup(right);
                                            #nextlane = %ZPOS% - 3

                                                  do;
                                                         keydown(forward);
                                                  until((%ZPOS% = (#nextlane))
                                                  keyup(forward);

while((%#nort% =! %ZPOS%))
until((%#nort% = %ZPOS%))

    unset(@autoshear);
    stop("autoshear");
}$$