setblocks.txt 925 B

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253
  1. %setVar edge1 games:-934:105:4070;
  2. %setVar edge2 games:-928:105:4064;
  3. %setVar art STONE;
  4. %setVar world %coords $edge1 w;;
  5. %setVar x1 %coords $edge1 x;;
  6. %setVar y1 %coords $edge1 y;;
  7. %setVar z1 %coords $edge1 z;;
  8. %setVar x2 %coords $edge2 x;;
  9. %setVar y2 %coords $edge2 y;;
  10. %setVar z2 %coords $edge2 z;;
  11. %if $x1 < $x2 goto override1;
  12. %setVar helper $x2;
  13. %setVar x2 $x1;
  14. %setVar x1 $helper;
  15. @override1
  16. %if $y1 < $y2 goto override2;
  17. %setVar helper $y2;
  18. %setVar y2 $y1;
  19. %setVar y1 $helper;
  20. @override2
  21. %if $z1 < $z2 goto override3;
  22. %setVar helper $z2;
  23. %setVar z2 $z1;
  24. %setVar z1 $helper;
  25. @override3
  26. %setVar helper null;
  27. %setVar x $x1;
  28. @start_x
  29. %setVar y $y1;
  30. @start_y
  31. %setVar z $z1;
  32. @start_z
  33. %setVar loc %concat $world : $x : $y : $z;;
  34. %setBlock $loc $art;
  35. @override4
  36. %setVar z %add $z 1;;
  37. %if $z <= $z2 goto start_z;
  38. %setVar y %add $y 1;;
  39. %if $y <= $y2 goto start_y;
  40. %setVar x %add $x 1;;
  41. %if $x <= $x2 goto start_x;