From ed78d442b39510ed9a67249811914e92a18360cf Mon Sep 17 00:00:00 2001
From: Auke Kok <auke-jan.h.kok@intel.com>
Date: Thu, 15 Jan 2015 00:18:56 -0800
Subject: Allow changing of blocks.

---
 init.lua | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/init.lua b/init.lua
index 4720d0b..0917861 100644
--- a/init.lua
+++ b/init.lua
@@ -449,12 +449,21 @@ local function sedimentology()
 end
 
 local function sedcmd(name, param)
-	if param == "stats" then
+	local paramlist = string.split(param, " ")
+	if paramlist[1] == "stats" then
 		local output = "Sedimentology mod statistics:" ..
 			"\nconsidered: " .. stat_considered ..
 			"\ndisplaced: " .. stat_displaced ..
 			"\ndegraded: " .. stat_degraded
 		return true, output
+	elseif paramlist[1] == "blocks" then
+		if tonumber(paramlist[2]) then
+			count = tonumber(paramlist[2])
+			return true, "Set blocks to " .. count
+		else
+			return true, "Blocks: " .. count
+		end
+
 	end
 	return true, "Command completed succesfully"
 end
-- 
cgit v1.2.3