1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859 |
- %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;
|