--- a/share/hedgewars/Data/Scripts/Utils.lua	Thu Mar 15 02:59:37 2018 +0100
+++ b/share/hedgewars/Data/Scripts/Utils.lua	Thu Mar 15 03:29:31 2018 +0100
@@ -20,3 +20,27 @@
     end
     return false
 end
+
+local function drawFullMap(erase, flush)
+	for x = 200,4000,600 do
+		for y = 100,2000,150 do
+			AddPoint(x, y, 63, erase)
+		end
+	end
+	if flush ~= false then
+		FlushPoints()
+	end
+end
+
+-- Completely fill the map with land. Requires MapGen=mgDrawn.
+-- If flush is false, FlushPoints() is not called.
+function fillMap(flush)
+	drawFullMap(false, flush)
+end
+
+-- Completely erase all land from drawn maps. Requires MapGen=mgDrawn.
+-- If flush is false, FlushPoints() is not called.
+function eraseMap(flush)
+	drawFullMap(true, flush)
+end
+