%setVar edge1 rpg:-25:66:21;
%setVar edge2 rpg:-21:66:17;
%setVar art CROPS;

%setVar x1 %coords $edge1 x;;
%setVar y1 %coords $edge1 y;;
%setVar z1 %coords $edge1 z;;

%setVar x2 %coords $edge2 x;;
%setVar y2 %coords $edge2 y;;
%setVar z2 %coords $edge2 z;;

%if $x1 < $x2 goto override1;
%setVar helper $x2;
%setVar x2 $x1;
%setVar x1 $helper;
@override1

%if $y1 < $y2 goto  override2;
%setVar helper $y2;
%setVar y2 $y1;
%setVar y1 $helper;
@override2

%if $z1 < $z2 goto  override3;
%setVar helper $z2;
%setVar z2 $z1;
%setVar z1 $helper;
@override3

%setVar helper null;

%setVar x $x1;
@start_x
%setVar y $y1;
@start_y
%setVar z $z1;
@start_z

%setVar loc2 %concat rpg: $x : $y : $z;;
%setVar loc %modLoc $loc2 0 -1 0;;

%setVar type %blockType $loc;;

%if $type == SOIL goto setArt;
%goto override4;

@setArt
%setBlock $loc2 %concat $art :7;;

@override4
%setVar z %add $z 1;;
%if $z <= $z2 goto start_z;

%setVar y %add $y 1;;
%if $y <= $y2 goto start_y;

%setVar x %add $x 1;;
%if $x <= $x2 goto start_x;