worldedit_pp/init.lua

local wpp = {}
wpp.run_player = {}
wpp.data = {}
-- - playername
--     - p1
--     - p2
--     - p3: for /move only
--     - node
--     - action: nil if status = ""
--     - status ("wating", "running", "paused", "")
--     - p: pos or number (in /load)
--     - replace
--     - punch_1
--     - punch_2
--     - punch_3
--     - p1object
--     - p2object
--     - p3object
--     - marker
--     - nodes: for /load, /save and /move
--     - unkown: for /load
--     - file: for /save
--     - count

local NODES_PER_STEP = 512
local NODES_PER_STEP_SLOW = 64

local function minmaxp(p1, p2)
	return 
		{x=math.min(p1.x,p2.x), y=math.min(p1.y,p2.y), z=math.min(p1.z,p2.z)},
		{x=math.max(p1.x,p2.x), y=math.max(p1.y,p2.y), z=math.max(p1.z,p2.z)}
end

local function send_player(playername, text)
	minetest.chat_send_player(playername, "Wordledit++ -!- "..text, false)
end

minetest.register_globalstep(function(dtime)
	if not wpp.dtime then
		wpp.dtime = dtime
	else
		wpp.dtime = (wpp.dtime + dtime) / 2
	end
		
	local playername = wpp.run_player[1]
	if playername then
		if playername == "" then
			table.remove(wpp.run_player, 1)
		end
		
		if wpp.data[playername].action == "setarea" then
			local minp, maxp = minmaxp(wpp.data[playername].p1, wpp.data[playername].p2)
			if wpp.data[playername].status ~= "running" then
				local eta = (maxp.x-minp.x)*(maxp.y-minp.y)*(maxp.z-minp.z)/NODES_PER_STEP * wpp.dtime
				eta = math.floor(eta)
				send_player(playername, "Starting your command \"setarea\"; ETA: "..eta.." seconds (based on average server speed)")
				wpp.data[playername].status = "running"
			end
			if not wpp.data[playername].p then
				wpp.data[playername].p = {x=minp.x, y=minp.y, z=minp.z}
			end
			
			local i = 0
			while
				wpp.data[playername].p.x <= maxp.x or
				wpp.data[playername].p.y <= maxp.y or
				wpp.data[playername].p.z <= maxp.z
			do
				minetest.env:set_node(wpp.data[playername].p, {name=wpp.data[playername].node})
				wpp.data[playername].count = wpp.data[playername].count + 1
				
				wpp.data[playername].p.z = wpp.data[playername].p.z+1
				if wpp.data[playername].p.z > maxp.z then
					wpp.data[playername].p.z = minp.z
					wpp.data[playername].p.y = wpp.data[playername].p.y+1
					if wpp.data[playername].p.y > maxp.y then
						wpp.data[playername].p.y = minp.y
						wpp.data[playername].p.x = wpp.data[playername].p.x+1
						if wpp.data[playername].p.x > maxp.x then
							break
						end
					end
				end
				
				i = i+1
				if i >= NODES_PER_STEP then
					return
				end
			end
			send_player(playername, "Command \"setarea\" finished")
			send_player(playername, wpp.data[playername].count.." nodes set")
			wpp.data[playername].count = 0
			wpp.data[playername].status = ""
			wpp.data[playername].p = nil
			table.remove(wpp.run_player, 1)
		elseif wpp.data[playername].action == "dig" then
			local minp, maxp = minmaxp(wpp.data[playername].p1, wpp.data[playername].p2)
			if wpp.data[playername].status ~= "running" then
				local eta = (maxp.x-minp.x)*(maxp.y-minp.y)*(maxp.z-minp.z)/NODES_PER_STEP_SLOW * wpp.dtime
				eta = math.floor(eta)
				send_player(playername, "Starting your command \"dig\"; ETA: "..eta.." seconds (based on average server speed)")
				wpp.data[playername].status = "running"
			end
			if not wpp.data[playername].p then
				wpp.data[playername].p = {x=minp.x, y=minp.y, z=minp.z}
			end
			
			local i = 0
			while
				wpp.data[playername].p.x <= maxp.x or
				wpp.data[playername].p.y <= maxp.y or
				wpp.data[playername].p.z <= maxp.z
			do
				minetest.env:dig_node(wpp.data[playername].p)
				wpp.data[playername].count = wpp.data[playername].count + 1
				
				wpp.data[playername].p.z = wpp.data[playername].p.z+1
				if wpp.data[playername].p.z > maxp.z then
					wpp.data[playername].p.z = minp.z
					wpp.data[playername].p.y = wpp.data[playername].p.y+1
					if wpp.data[playername].p.y > maxp.y then
						wpp.data[playername].p.y = minp.y
						wpp.data[playername].p.x = wpp.data[playername].p.x+1
						if wpp.data[playername].p.x > maxp.x then
							break
						end
					end
				end
				
				i = i+1
				if i >= NODES_PER_STEP_SLOW then
					return
				end
			end
			send_player(playername, "Command \"dig\" finished")
			send_player(playername, wpp.data[playername].count.." nodes dug")
			wpp.data[playername].count = 0
			wpp.data[playername].status = ""
			wpp.data[playername].p = nil
			table.remove(wpp.run_player, 1)
		elseif wpp.data[playername].action == "replace" then
			local minp, maxp = minmaxp(wpp.data[playername].p1, wpp.data[playername].p2)
			if wpp.data[playername].status ~= "running" then
				local eta = (maxp.x-minp.x)*(maxp.y-minp.y)*(maxp.z-minp.z)/NODES_PER_STEP * wpp.dtime
				eta = math.floor(eta)
				send_player(playername, "Starting your command \"replace\"; ETA: "..eta.." seconds (based on average server speed)")
				wpp.data[playername].status = "running"
			end
			if not wpp.data[playername].p then
				wpp.data[playername].p = {x=minp.x, y=minp.y, z=minp.z}
			end
			
			local i = 0
			while
				wpp.data[playername].p.x <= maxp.x or
				wpp.data[playername].p.y <= maxp.y or
				wpp.data[playername].p.z <= maxp.z
			do
				if minetest.env:get_node(wpp.data[playername].p).name == wpp.data[playername].replace then
					minetest.env:set_node(wpp.data[playername].p, {name=wpp.data[playername].node})
					wpp.data[playername].count = wpp.data[playername].count +1
				end
				
				wpp.data[playername].p.z = wpp.data[playername].p.z+1
				if wpp.data[playername].p.z > maxp.z then
					wpp.data[playername].p.z = minp.z
					wpp.data[playername].p.y = wpp.data[playername].p.y+1
					if wpp.data[playername].p.y > maxp.y then
						wpp.data[playername].p.y = minp.y
						wpp.data[playername].p.x = wpp.data[playername].p.x+1
						if wpp.data[playername].p.x > maxp.x then
							break
						end
					end
				end
				
				i = i+1
				if i >= NODES_PER_STEP then
					return
				end
			end
			send_player(playername, "Command \"replace\" finished")
			send_player(playername, wpp.data[playername].count.." nodes replaced")
			wpp.data[playername].count = 0
			wpp.data[playername].status = ""
			wpp.data[playername].p = nil
			table.remove(wpp.run_player, 1)
		elseif wpp.data[playername].action == "fixlight" then
			local minp, maxp = minmaxp(wpp.data[playername].p1, wpp.data[playername].p2)
			if wpp.data[playername].status ~= "running" then
				local eta = (maxp.x-minp.x)*(maxp.y-minp.y)*(maxp.z-minp.z)/NODES_PER_STEP_SLOW * wpp.dtime
				eta = math.floor(eta)
				send_player(playername, "Starting your command \"fixlight\"; ETA: "..eta.." seconds (based on average server speed)")
				wpp.data[playername].status = "running"
			end
			if not wpp.data[playername].p then
				wpp.data[playername].p = {x=minp.x, y=minp.y, z=minp.z}
			end
			
			local i = 0
			while
				wpp.data[playername].p.x <= maxp.x or
				wpp.data[playername].p.y <= maxp.y or
				wpp.data[playername].p.z <= maxp.z
			do
				if minetest.env:get_node(wpp.data[playername].p).name == "air" then
					minetest.env:dig_node(wpp.data[playername].p)
					wpp.data[playername].count = wpp.data[playername].count + 1
				end
				
				wpp.data[playername].p.z = wpp.data[playername].p.z+1
				if wpp.data[playername].p.z > maxp.z then
					wpp.data[playername].p.z = minp.z
					wpp.data[playername].p.y = wpp.data[playername].p.y+1
					if wpp.data[playername].p.y > maxp.y then
						wpp.data[playername].p.y = minp.y
						wpp.data[playername].p.x = wpp.data[playername].p.x+1
						if wpp.data[playername].p.x > maxp.x then
							break
						end
					end
				end
				
				i = i+1
				if i >= NODES_PER_STEP_SLOW then
					return
				end
			end
			send_player(playername, "Command \"fixlight\" finished")
			send_player(playername, wpp.data[playername].count.." air nodes dug")
			wpp.data[playername].count = 0
			wpp.data[playername].status = ""
			wpp.data[playername].p = nil
			table.remove(wpp.run_player, 1)
		elseif wpp.data[playername].action == "load" then
			if wpp.data[playername].status ~= "running" then
				send_player(playername, "Starting your command \"load\"")
				wpp.data[playername].status = "running"
			end
			if not wpp.data[playername].p then
				wpp.data[playername].p = 1
			end
			
			local i = 0
			while wpp.data[playername].p <= #wpp.data[playername].nodes do
				local current = wpp.data[playername].nodes[wpp.data[playername].p]
				current.x = current.x + wpp.data[playername].p1.x
				current.y = current.y + wpp.data[playername].p1.y
				current.z = current.z + wpp.data[playername].p1.z
				if minetest.registered_nodes[current.name] then
					minetest.env:set_node(current, current)
					minetest.env:get_meta(current):from_table(current.meta)
					wpp.data[playername].count = wpp.data[playername].count + 1
				else
					local function contains(table, string)
						for i=1,#table do
							if string == table[i] then
								return true
							end
						end
						return false
					end
					if not wpp.data[playername].unkown then
						wpp.data[playername].unkown = {current.name}
					else
						if not contains(wpp.data[playername].unkown, current.name) then
							table.insert(wpp.data[playername].unkown, current.name)
						end
					end
				end
				wpp.data[playername].p = wpp.data[playername].p + 1
				
				i = i+1
				if i >= NODES_PER_STEP then
					return
				end
			end
			send_player(playername, "Command \"load\" finished")
			send_player(playername, wpp.data[playername].count.." nodes loaded")
			wpp.data[playername].count = 0
			if wpp.data[playername].unkown then
				local unknown = wpp.data[playername].unkown[1]
				if #wpp.data[playername].unkown > 1 then
					for i=2,#wpp.data[playername].unkown do
						unknown = unknown..", "..wpp.data[playername].unkown[i]
					end
				end
				send_player(playername, "Following nodes are unknown and not placed: "..unknown)
				wpp.data[playername].unkown = nil
			end
			wpp.data[playername].status = ""
			wpp.data[playername].nodes = nil
			wpp.data[playername].p = nil
			table.remove(wpp.run_player, 1)
		elseif wpp.data[playername].action == "save" then
			local minp, maxp = minmaxp(wpp.data[playername].p1, wpp.data[playername].p2)
			if wpp.data[playername].status ~= "running" then
				local eta = (maxp.x-minp.x)*(maxp.y-minp.y)*(maxp.z-minp.z)/NODES_PER_STEP * wpp.dtime
				eta = math.floor(eta)
				send_player(playername, "Starting your command \"save\"; ETA: "..eta.." seconds (based on average server speed)")
				wpp.data[playername].status = "running"
			end
			if not wpp.data[playername].p then
				wpp.data[playername].p = {x=minp.x, y=minp.y, z=minp.z}
			end
			if not wpp.data[playername].nodes then
				wpp.data[playername].nodes = {}
			end
			
			local i = 0
			while
				wpp.data[playername].p.x <= maxp.x or
				wpp.data[playername].p.y <= maxp.y or
				wpp.data[playername].p.z <= maxp.z
			do
				local n = minetest.env:get_node(wpp.data[playername].p)
				if n.name ~= "air" and n.name ~= "ignore" then
					local meta = minetest.env:get_meta(wpp.data[playername].p):to_table()
					--convert metadata itemstacks to itemstrings
					for name, inventory in pairs(meta.inventory) do
						for index, stack in ipairs(inventory) do
							inventory[index] = stack:to_string()
						end
					end
					n.meta = meta
					n.x = wpp.data[playername].p.x - minp.x
					n.y = wpp.data[playername].p.y - minp.y
					n.z = wpp.data[playername].p.z - minp.z
					table.insert(wpp.data[playername].nodes, n)
					wpp.data[playername].count = wpp.data[playername].count + 1
				end
				
				wpp.data[playername].p.z = wpp.data[playername].p.z+1
				if wpp.data[playername].p.z > maxp.z then
					wpp.data[playername].p.z = minp.z
					wpp.data[playername].p.y = wpp.data[playername].p.y+1
					if wpp.data[playername].p.y > maxp.y then
						wpp.data[playername].p.y = minp.y
						wpp.data[playername].p.x = wpp.data[playername].p.x+1
						if wpp.data[playername].p.x > maxp.x then
							break
						end
					end
				end
				
				i = i+1
				if i >= NODES_PER_STEP then
					return
				end
			end
			
			local file = io.open(minetest.get_worldpath().."/schems/"..wpp.data[playername].file..".we", "w")
			if not file then
				send_player(playername, "Can't create file \""..wpp.data[playername].file..".we\"")
				return
			end
			send_player(playername, "Writing file \""..wpp.data[playername].file..".we\"")
			file:write(minetest.serialize(wpp.data[playername].nodes))
			file:flush()
			file:close()
			
			send_player(playername, "Command \"save\" finished")
			send_player(playername, wpp.data[playername].count.." nodes saved")
			wpp.data[playername].count = 0
			wpp.data[playername].status = ""
			wpp.data[playername].p = nil
			wpp.data[playername].nodes = nil
			table.remove(wpp.run_player, 1)
		elseif wpp.data[playername].action == "move_read" or wpp.data[playername].action == "copy_read" then
			local minp, maxp = minmaxp(wpp.data[playername].p1, wpp.data[playername].p2)
			if wpp.data[playername].status ~= "running" then
				local eta = (maxp.x-minp.x)*(maxp.y-minp.y)*(maxp.z-minp.z)/NODES_PER_STEP * wpp.dtime
				eta = math.floor(eta)*2
				if wpp.data[playername].action == "move_read" then
					send_player(playername, "Starting your command \"move\"; ETA: "..eta.." seconds (based on average server speed)")
				else
					send_player(playername, "Starting your command \"copy\"; ETA: "..eta.." seconds (based on average server speed)")
				end
				wpp.data[playername].status = "running"
			end
			if not wpp.data[playername].p then
				wpp.data[playername].p = {x=minp.x, y=minp.y, z=minp.z}
			end
			if not wpp.data[playername].nodes then
				wpp.data[playername].nodes = {}
			end
			
			local i = 0
			while
				wpp.data[playername].p.x <= maxp.x or
				wpp.data[playername].p.y <= maxp.y or
				wpp.data[playername].p.z <= maxp.z
			do
				local n = minetest.env:get_node(wpp.data[playername].p)
				if n.name ~= "air" and n.name ~= "ignore" then
					local meta = minetest.env:get_meta(wpp.data[playername].p):to_table()
					--convert metadata itemstacks to itemstrings
					for name, inventory in pairs(meta.inventory) do
						for index, stack in ipairs(inventory) do
							inventory[index] = stack:to_string()
						end
					end
					n.meta = meta
					n.x = wpp.data[playername].p.x - wpp.data[playername].p1.x
					n.y = wpp.data[playername].p.y - wpp.data[playername].p1.y
					n.z = wpp.data[playername].p.z - wpp.data[playername].p1.z
					table.insert(wpp.data[playername].nodes, n)
					if wpp.data[playername].action == "move_read" then
						minetest.env:remove_node(wpp.data[playername].p)
					end
					wpp.data[playername].count = wpp.data[playername].count + 1
				end
				
				wpp.data[playername].p.z = wpp.data[playername].p.z+1
				if wpp.data[playername].p.z > maxp.z then
					wpp.data[playername].p.z = minp.z
					wpp.data[playername].p.y = wpp.data[playername].p.y+1
					if wpp.data[playername].p.y > maxp.y then
						wpp.data[playername].p.y = minp.y
						wpp.data[playername].p.x = wpp.data[playername].p.x+1
						if wpp.data[playername].p.x > maxp.x then
							break
						end
					end
				end
				
				i = i+1
				if i >= NODES_PER_STEP then
					return
				end
			end
			if wpp.data[playername].action == "move_read" then
				wpp.data[playername].action = "move_write"
			else
				wpp.data[playername].action = "copy_write"
			end
			wpp.data[playername].p = nil
		elseif wpp.data[playername].action == "move_write" or wpp.data[playername].action == "copy_write" then
			local i = 0
			while #wpp.data[playername].nodes > 0 do
				local num = #wpp.data[playername].nodes
				local current = wpp.data[playername].nodes[num]
				current.x = current.x + wpp.data[playername].p3.x
				current.y = current.y + wpp.data[playername].p3.y
				current.z = current.z + wpp.data[playername].p3.z
				
				minetest.env:set_node(current, current)
				minetest.env:get_meta(current):from_table(current.meta)
				table.remove(wpp.data[playername].nodes, num)
				
				i = i+1
				if i >= NODES_PER_STEP then
					return
				end
			end
			if wpp.data[playername].action == "move_write" then
				send_player(playername, "Command \"move\" finished")
				send_player(playername, wpp.data[playername].count.." nodes moved")
			else
				send_player(playername, "Command \"copy\" finished")
				send_player(playername, wpp.data[playername].count.." nodes copied")
			end
			wpp.data[playername].count = 0
			wpp.data[playername].status = ""
			wpp.data[playername].p = nil
			wpp.data[playername].nodes = nil
			table.remove(wpp.run_player, 1)
		else
			wpp.data[playername].status = ""
			send_player(playername, "Error occured: Unknonw action")
			table.remove(wpp.run_player, 1)
			wpp.data[playername].p = nil
			wpp.data[playername].nodes = nil
		end
	end
end)

local function init_player(playername)
	if not wpp.data[playername] then
		wpp.data[playername] = {
			status = "",
			marker = true,
			count = 0,
		}
	end
end

local function check_running(playername)
	if wpp.data[playername].status == "waiting" then
		send_player(playername, "Your last command is waiting for execution; use /stop to abort")
		return true
	end
	if wpp.data[playername].status == "running" then
		send_player(playername, "Your last command is executing; use /stop to abort or /pause to pause")
		return true
	end
	if wpp.data[playername].status == "paused" then
		send_player(playername, "Your last command is stopped; use /stop to abort or /continue to finish")
		return true
	end
	return false
end

minetest.register_privilege("worldedit", "Can use worldedit++")

minetest.register_chatcommand("wpp", {
	params = "<none>",
	description = "Prints the status of Worldedit++ for the player",
	privs = {worldedit = true},
	func = function(playername, param)
		init_player(playername)
		
		--send_player(playername, dump(wpp.data[playername]))
		if wpp.data[playername].p1 then
			send_player(playername, "Position 1: "..minetest.pos_to_string(wpp.data[playername].p1))
		else
			send_player(playername, "Position 1 not set")
		end
		if wpp.data[playername].p2 then
			send_player(playername, "Position 2: "..minetest.pos_to_string(wpp.data[playername].p2))
		else
			send_player(playername, "Position 2 not set")
		end
		if wpp.data[playername].p3 then
			send_player(playername, "Position 3: "..minetest.pos_to_string(wpp.data[playername].p3))
		else
			send_player(playername, "Position 3 not set")
		end
		if wpp.data[playername].node then
			send_player(playername, "Selected node: "..wpp.data[playername].node)
		else
			send_player(playername, "No node slected")
		end
		if wpp.data[playername].status == "running" then
			send_player(playername, "Running command "..wpp.data[playername].action)
			--TODO
		elseif wpp.data[playername].status == "paused" then
			send_player(playername, "Command "..wpp.data[playername].action.." paused")
		elseif wpp.data[playername].status == "waiting" then
			send_player(playername, "Command "..wpp.data[playername].action.." waiting in serverqueue")
		else
			send_player(playername, "No command running/waiting/paused")
		end
	end,
})

minetest.register_entity("worldedit_pp:positionmarker", {
	physical = false,
	collisionbox = {0,0,0, 0,0,0},
	visual_size = {x=1.1, y=1.1},
	visual = "cube",
	set_texture = function(self, texture)
		local textures = {}
		for i=1,6 do
			textures[i] = texture
		end
		self.object:set_properties({
			textures = textures,
		})
	end,
	playername = nil,
	timer = 0,
	get_statictada = function(self)
		return self.playername
	end,
	on_activate = function(self, staticdata)
		self.playername = staticdata
	end,
	on_step = function(self, dtime)
		self.timer = self.timer+dtime
		if self.timer < 1 then
			return
		end
		self.timer = 0
		
		if
			not self.playername or
			not wpp.data[self.playername] or
			( wpp.data[self.playername].p1object ~= self.object and
			  wpp.data[self.playername].p2object ~= self.object and
			  wpp.data[self.playername].p3object ~= self.object ) or
			not wpp.data[self.playername].marker
		then
			self.object:remove()
		end
	end,
})

local function set_p1(playername, pos)
	wpp.data[playername].p1 = {
		x = math.floor(pos.x + 0.5),
		y = math.floor(pos.y + 0.5),
		z = math.floor(pos.z + 0.5),
	}
	if wpp.data[playername].marker then
		if wpp.data[playername].p1object and wpp.data[playername].p1object:getpos() then
			wpp.data[playername].p1object:setpos(wpp.data[playername].p1)
		else
			wpp.data[playername].p1object = minetest.env:add_entity(wpp.data[playername].p1, "worldedit_pp:positionmarker")
			wpp.data[playername].p1object:get_luaentity():set_texture("worldedit_pp_p1.png")
			wpp.data[playername].p1object:get_luaentity().playername = playername
		end
	end
end

local function set_p2(playername, pos)
	wpp.data[playername].p2 = {
		x = math.floor(pos.x + 0.5),
		y = math.floor(pos.y + 0.5),
		z = math.floor(pos.z + 0.5),
	}
	if wpp.data[playername].marker then
		if wpp.data[playername].p2object and wpp.data[playername].p2object:getpos() then
			wpp.data[playername].p2object:setpos(wpp.data[playername].p2)
		else
			wpp.data[playername].p2object = minetest.env:add_entity(wpp.data[playername].p2, "worldedit_pp:positionmarker")
			wpp.data[playername].p2object:get_luaentity():set_texture("worldedit_pp_p2.png")
			wpp.data[playername].p2object:get_luaentity().playername = playername
		end
	end
end

local function set_p3(playername, pos)
	wpp.data[playername].p3 = {
		x = math.floor(pos.x + 0.5),
		y = math.floor(pos.y + 0.5),
		z = math.floor(pos.z + 0.5),
	}
	if wpp.data[playername].marker then
		if wpp.data[playername].p3object and wpp.data[playername].p3object:getpos() then
			wpp.data[playername].p3object:setpos(wpp.data[playername].p3)
		else
			wpp.data[playername].p3object = minetest.env:add_entity(wpp.data[playername].p3, "worldedit_pp:positionmarker")
			wpp.data[playername].p3object:get_luaentity():set_texture("worldedit_pp_p3.png")
			wpp.data[playername].p3object:get_luaentity().playername = playername
		end
	end
end

minetest.register_chatcommand("p1", {
	params = "<none> | <X>,<Y>,<Z>",
	description = "Sets position 1",
	privs = {worldedit = true},
	func = function(playername, param)
		init_player(playername)
		if check_running(playername) then return end
		
		local p = minetest.env:get_player_by_name(playername):getpos()
		if param ~= "" then
			p.x, p.y, p.z = string.match(param, "^([%d.-]+)[, ] *([%d.-]+)[, ] *([%d.-]+)$")
			if not p.x or not p.y or not p.z then
				send_player(playername, "Invalid parameters (\""..param.."\") (see /help p1)")
				return
			end
		end
		set_p1(playername, p)
		send_player(playername, "Position 1 set to "..minetest.pos_to_string(wpp.data[playername].p1))
	end,
})

minetest.register_chatcommand("p1a", {
	params = "<X>,<Y>,<Z>",
	description = "Adds given vector to position 1",
	privs = {worldedit = true},
	func = function(playername, param)
		init_player(playername)
		if check_running(playername) then return end
		
		if param == "" then
			send_player(playername, "Invalid parameters (\""..param.."\") (see /help p1a)")
		end
		local x, y, z = string.match(param, "^([%d.-]+)[, ] *([%d.-]+)[, ] *([%d.-]+)$")
		if not x or not y or not z then
			send_player(playername, "Invalid parameters (\""..param.."\") (see /help p1a)")
			return
		end
		set_p1(playername, {x=x+wpp.data[playername].p1.x, y=y+wpp.data[playername].p1.y, z=z+wpp.data[playername].p1.z})
		send_player(playername, "Position 1 set to "..minetest.pos_to_string(wpp.data[playername].p1))
	end,
})

minetest.register_chatcommand("p1p", {
	params = "<none>",
	description = "Sets position 1 to the next punched node",
	privs = {worldedit = true},
	func = function(playername, param)
		init_player(playername)
		if check_running(playername) then return end
		
		if wpp.data[playername].punch_1 then
			wpp.data[playername].punch_1 = false
			send_player(playername, "Position 1 will not be set to next punched node")
		else
			wpp.data[playername].punch_1 = true
			send_player(playername, "Position 1 will be set to next punched node")
		end
	end,
})

minetest.register_chatcommand("p2", {
	params = "<none> | <X>,<Y>,<Z>",
	description = "Sets position 2",
	privs = {worldedit = true},
	func = function(playername, param)
		init_player(playername)
		if check_running(playername) then return end
		
		local p = minetest.env:get_player_by_name(playername):getpos()
		if param ~= "" then
			p.x, p.y, p.z = string.match(param, "^([%d.-]+)[, ] *([%d.-]+)[, ] *([%d.-]+)$")
			if not p.x or not p.y or not p.z then
				send_player(playername, "Invalid parameters (\""..param.."\") (see /help p2)")
				return
			end
		end
		set_p2(playername, p)
		send_player(playername, "Position 2 set to "..minetest.pos_to_string(wpp.data[playername].p2))
	end,
})

minetest.register_chatcommand("p2a", {
	params = "<X>,<Y>,<Z>",
	description = "Adds given vector to position 2",
	privs = {worldedit = true},
	func = function(playername, param)
		init_player(playername)
		if check_running(playername) then return end
		
		if param == "" then
			send_player(playername, "Invalid parameters (\""..param.."\") (see /help p2a)")
		end
		local x, y, z = string.match(param, "^([%d.-]+)[, ] *([%d.-]+)[, ] *([%d.-]+)$")
		if not x or not y or not z then
			send_player(playername, "Invalid parameters (\""..param.."\") (see /help p2a)")
			return
		end
		set_p2(playername, {x=x+wpp.data[playername].p2.x, y=y+wpp.data[playername].p2.y, z=z+wpp.data[playername].p2.z})
		send_player(playername, "Position 2 set to "..minetest.pos_to_string(wpp.data[playername].p2))
	end,
})

minetest.register_chatcommand("p2p", {
	params = "<none>",
	description = "Sets position 2 to the next punched node",
	privs = {worldedit = true},
	func = function(playername, param)
		init_player(playername)
		if check_running(playername) then return end
		
		if wpp.data[playername].punch_2 then
			wpp.data[playername].punch_2 = false
			send_player(playername, "Position 2 will not be set to next punched node")
		else
			wpp.data[playername].punch_2 = true
			send_player(playername, "Position 2 will be set to next punched node")
		end
	end,
})

minetest.register_chatcommand("p3", {
	params = "<none> | <X>,<Y>,<Z>",
	description = "Sets position 3",
	privs = {worldedit = true},
	func = function(playername, param)
		init_player(playername)
		if check_running(playername) then return end
		
		local p = minetest.env:get_player_by_name(playername):getpos()
		if param ~= "" then
			p.x, p.y, p.z = string.match(param, "^([%d.-]+)[, ] *([%d.-]+)[, ] *([%d.-]+)$")
			if not p.x or not p.y or not p.z then
				send_player(playername, "Invalid parameters (\""..param.."\") (see /help p3)")
				return
			end
		end
		set_p3(playername, p)
		send_player(playername, "Position 3 set to "..minetest.pos_to_string(wpp.data[playername].p3))
	end,
})

minetest.register_chatcommand("p3a", {
	params = "<X>,<Y>,<Z>",
	description = "Adds given vector to position 3",
	privs = {worldedit = true},
	func = function(playername, param)
		init_player(playername)
		if check_running(playername) then return end
		
		if param == "" then
			send_player(playername, "Invalid parameters (\""..param.."\") (see /help p3a)")
		end
		local x, y, z = string.match(param, "^([%d.-]+)[, ] *([%d.-]+)[, ] *([%d.-]+)$")
		if not x or not y or not z then
			send_player(playername, "Invalid parameters (\""..param.."\") (see /help p3a)")
			return
		end
		set_p3(playername, {x=x+wpp.data[playername].p3.x, y=y+wpp.data[playername].p3.y, z=z+wpp.data[playername].p3.z})
		send_player(playername, "Position 3 set to "..minetest.pos_to_string(wpp.data[playername].p3))
	end,
})

minetest.register_chatcommand("p3p", {
	params = "<none>",
	description = "Sets position 3 to the next punched node",
	privs = {worldedit = true},
	func = function(playername, param)
		init_player(playername)
		if check_running(playername) then return end
		
		if wpp.data[playername].punch_3 then
			wpp.data[playername].punch_3 = false
			send_player(playername, "Position 3 will not be set to next punched node")
		else
			wpp.data[playername].punch_3 = true
			send_player(playername, "Position 3 will be set to next punched node")
		end
	end,
})

minetest.register_on_punchnode(function(pos, node, puncher)
	local playername = puncher:get_player_name()
	if not wpp.data[playername] then
		return
	end
	if wpp.data[playername].punch_1 then
		set_p1(playername, pos)
		wpp.data[playername].punch_1 = false
		send_player(playername, "Position 1 set to "..minetest.pos_to_string(wpp.data[playername].p1))
	end
	if wpp.data[playername].punch_2 then
		set_p2(playername, pos)
		wpp.data[playername].punch_2 = false
		send_player(playername, "Position 2 set to "..minetest.pos_to_string(wpp.data[playername].p2))
	end
	if wpp.data[playername].punch_3 then
		set_p3(playername, pos)
		wpp.data[playername].punch_3 = false
		send_player(playername, "Position 3 set to "..minetest.pos_to_string(wpp.data[playername].p3))
	end
end)

minetest.register_chatcommand("select", {
	params = "<none> | <nodename>",
	description = "Selects node",
	privs = {worldedit = true},
	func = function(playername, param)
		init_player(playername)
		if check_running(playername) then return end
		
		if param ~= "" then
			if not minetest.registered_nodes[param] then
				send_player(playername, "Unknonwn node: \""..param.."\"")
				return
			end
			wpp.data[playername].node = param
		else
			local item = minetest.env:get_player_by_name(playername):get_wielded_item():get_name()
			if minetest.registered_nodes[item] then
				wpp.data[playername].node = item
			else
				send_player(playername, "Wielditem is not a node")
				return
			end
		end
		send_player(playername, "Node selected: "..wpp.data[playername].node)
	end,
})

minetest.register_chatcommand("setarea", {
	params = "<none> | <nodename>",
	description = "Sets nodes in area",
	privs = {worldedit = true},
	func = function(playername, param)
		init_player(playername)
		if check_running(playername) then return end
		
		if param ~= "" then
			if not minetest.registered_nodes[param] then
				send_player(playername, "Unknonwn node: "..param)
				return
			end
			wpp.data[playername].node = param
		else
			if not wpp.data[playername].node then
				local item = minetest.env:get_player_by_name(playername):get_wielded_item():get_name()
				if minetest.registered_nodes[item] then
					wpp.data[playername].node = item
					send_player(playername, "Selecting wielditem")
				else
					send_player(playername, "No node selected and wielditem is not a node")
					return
				end
			end
		end
		if not wpp.data[playername].p1 then
			send_player(playername, "Position 1 not set")
			return
		end
		if not wpp.data[playername].p2 then
			send_player(playername, "Position 2 not set")
			return
		end
		wpp.data[playername].action = "setarea"
		wpp.data[playername].status = "waiting"
		table.insert(wpp.run_player, playername)
		send_player(playername, "Command \"setarea\" enqueued")
	end,
})

minetest.register_chatcommand("dig", {
	params = "<none>",
	description = "Digs nodes in area",
	privs = {worldedit = true},
	func = function(playername, param)
		init_player(playername)
		if check_running(playername) then return end
		
		if not wpp.data[playername].p1 then
			send_player(playername, "Position 1 not set")
			return
		end
		if not wpp.data[playername].p2 then
			send_player(playername, "Position 2 not set")
			return
		end
		wpp.data[playername].action = "dig"
		wpp.data[playername].status = "waiting"
		table.insert(wpp.run_player, playername)
		send_player(playername, "Command \"dig\" enqueued")
	end,
})

minetest.register_chatcommand("replace", {
	params = "<none> | <nodename> | <nodename> <nodename>",
	description = "Replaces node with selected node",
	privs = {worldedit = true},
	func = function(playername, param)
		init_player(playername)
		if check_running(playername) then return end
		
		if not wpp.data[playername].p1 then
			send_player(playername, "No position 1 set")
			return
		end
		if not wpp.data[playername].p2 then
			send_player(playername, "No position 2 set")
			return
		end
		if param ~= "" then
			local n1, n2 = string.match(param, "^([a-zA-Z0-9_:]*) ([a-zA-Z0-9_:]*)$")
			local node = n1 or param
			if not minetest.registered_nodes[node] then
				send_player(playername, "Unknonwn node: "..node)
				return
			end
			wpp.data[playername].replace = node
			if n2 then
				if not minetest.registered_nodes[n2] then
					send_player(playername, "Unknonwn node: "..n2)
					return
				end
				send_player(playername, "Node selected: "..n2)
				wpp.data[playername].node = n2
			end
		else
			local item = minetest.env:get_player_by_name(playername):get_wielded_item():get_name()
			if minetest.registered_nodes[item] then
				wpp.data[playername].replace = item
			else
				send_player(playername, "No node to replace given and wielditem is not a node")
				return
			end
		end
		if not wpp.data[playername].node then
			send_player(playername, "No node selected")
			return
		end
		if wpp.data[playername].replace == wpp.data[playername].node then
			send_player(playername, "Nodes don't differ")
			return
		end
		wpp.data[playername].action = "replace"
		wpp.data[playername].status = "waiting"
		table.insert(wpp.run_player, playername)
		send_player(playername, "Command \"replace\" enqueued")
	end,
})

minetest.register_chatcommand("fixlight", {
	params = "<none>",
	description = "Fixes the light",
	privs = {worldedit = true},
	func = function(playername, param)
		init_player(playername)
		if check_running(playername) then return end
		
		if not wpp.data[playername].p1 then
			send_player(playername, "No position 1 set")
			return
		end
		if not wpp.data[playername].p2 then
			send_player(playername, "No position 2 set")
			return
		end
		wpp.data[playername].action = "fixlight"
		wpp.data[playername].status = "waiting"
		table.insert(wpp.run_player, playername)
		send_player(playername, "Command \"fixlight\" enqueued")
	end,
})

minetest.register_chatcommand("stop", {
	params = "<none>",
	description = "Stops running command or removes it from server queue",
	privs = {worldedit = true},
	func = function(playername, param)
		init_player(playername)
		
		if wpp.data[playername].status == "paused" then
			wpp.data[playername].status = ""
			table.remove(wpp.run_player, 1)
			wpp.data[playername].p = nil
			send_player(playername, "Paused command aborted")
		elseif wpp.data[playername].status == "waiting" then
			wpp.data[playername].status = ""
			table.remove(wpp.run_player, 1)
			wpp.data[playername].p = nil
			send_player(playername, "Command from serverqueue removed")
		elseif wpp.data[playername].status == "running" then
			wpp.data[playername].status = ""
			table.remove(wpp.run_player, 1)
			wpp.data[playername].p = nil
			send_player(playername, "Command aborted")
		else
			send_player(playername, "No command for you found")
		end
	end,
})

minetest.register_chatcommand("pause", {
	params = "<none>",
	description = "Pauses a running command",
	privs = {worldedit = true},
	func = function(playername, param)
		init_player(playername)
		
		if wpp.data[playername].status == "paused" then
			send_player(playername, "Command is already paused")
		elseif wpp.data[playername].status == "running" then
			wpp.data[playername].status = "paused"
			table.remove(wpp.run_player, 1)
			send_player(playername, "Command paused")
		else
			send_player(playername, "No running command for you found")
		end
	end,
})

minetest.register_chatcommand("continue", {
	params = "<none>",
	description = "Continues a paused command",
	privs = {worldedit = true},
	func = function(playername, param)
		init_player(playername)
		
		if wpp.data[playername].status == "paused" then
			wpp.data[playername].status = "waiting"
			table.insert(wpp.run_player, playername)
			send_player(playername, "Command enqueued")
		else
			send_player(playername, "No paused command for you found")
		end
	end,
})

minetest.register_chatcommand("marker", {
	params = "on/off",
	description = "Switch markers on/off",
	privs = {worldedit = true},
	func = function(playername, param)
		init_player(playername)
		
		if param == "on" then
			wpp.data[playername].marker = true
			send_player(playername, "Using markers")
			set_p1(playername, wpp.data[playername].p1)
			set_p2(playername, wpp.data[playername].p2)
		elseif param == "off" then
			wpp.data[playername].marker = false
			send_player(playername, "Don't use markers")
		else
			send_player(playername, "Invalid parameters (\""..param.."\") (see /help marker)")
		end
	end,
})

local function schemversion(content)
	if content:find("([+-]?%d+)%s+([+-]?%d+)%s+([+-]?%d+)") and not content:find("%{") then
		return 3
	elseif content:find("^[^\"']+%{%d+%}") then
		if content:find("%[\"meta\"%]") then
			return 2
		end
		return 1
	elseif content:find("%{") then
		return 4
	end
	return 0
end

minetest.register_chatcommand("load", {
	params = "<filename>",
	description = "Loads the .wem file into the world",
	privs = {worldedit = true},
	func = function(playername, param)
		init_player(playername)
		if check_running(playername) then return end
		
		if not wpp.data[playername].p1 then
			send_player(playername, "No position 1 set")
			return
		end
		if param == "" then
			send_player(playername, "No filename given")
			return
		end
		
		local file = io.open(minetest.get_worldpath().."/schems/"..param..".we")
		if not file then
			file = io.open(minetest.get_worldpath().."/schems/"..param..".wem")
			if not file then
				send_player(playername, "Can't open file "..param..".we or "..param..".wem")
				return
			end
		end
		local content = file:read("*a")
		if schemversion(content) ~= 4 then
			send_player(playername, "File format not supported")
			return
		end
		--wpp.data[playername].nodes = minetest.deserialize(content)
		
		--HACK by Uberi
		-- License: AGPL 3.0
		content = content:gsub("return%s*{", "", 1):gsub("}%s*$", "", 1)
		local escaped = content:gsub("\\\\", "@@"):gsub("\\\"", "@@"):gsub("(\"[^\"]+\")", function(s) return string.rep("@", #s) end)
		wpp.data[playername].nodes = {}
		local startpos, startpos1, endpos = 1, 1
		while true do
			startpos, endpos = escaped:find("},%s*{", startpos)
			if not startpos then
				break
			end
			local current = content:sub(startpos1, startpos)
			table.insert(wpp.data[playername].nodes, minetest.deserialize("return " .. current))
			startpos, startpos1 = endpos, endpos
		end
		-- END HACK by Uberi
		
		file:close()
		if not wpp.data[playername].nodes then
			send_player(playername, "File corrupted (possibly too big)")
			return
		end
		wpp.data[playername].action = "load"
		wpp.data[playername].status = "waiting"
		table.insert(wpp.run_player, playername)
		send_player(playername, "Command \"load\" enqueued")
	end,
})

minetest.register_chatcommand("save", {
	params = "<filename>",
	description = "Saves nodes to a .we file",
	privs = {worldedit = true},
	func = function(playername, param)
		init_player(playername)
		if check_running(playername) then return end
		
		if not wpp.data[playername].p1 then
			send_player(playername, "No position 1 set")
			return
		end
		if not wpp.data[playername].p2 then
			send_player(playername, "No position 2 set")
			return
		end
		if param == "" then
			send_player(playername, "No filename given")
			return
		end
		
		local file = io.open(minetest.get_worldpath().."/schems/"..param..".we")
		if file then
			file:close()
			send_player(playername, "File \""..param..".we\" already exists")
			return
		end
		
		wpp.data[playername].file = param
		wpp.data[playername].action = "save"
		wpp.data[playername].status = "waiting"
		table.insert(wpp.run_player, playername)
		send_player(playername, "Command \"save\" enqueued")
	end,
})

minetest.register_chatcommand("move", {
	params = "<none>",
	description = "Moves nodes to position 3",
	privs = {worldedit = true},
	func = function(playername, param)
		init_player(playername)
		if check_running(playername) then return end
		
		if not wpp.data[playername].p1 then
			send_player(playername, "No position 1 set")
			return
		end
		if not wpp.data[playername].p2 then
			send_player(playername, "No position 2 set")
			return
		end
		if not wpp.data[playername].p3 then
			send_player(playername, "No position 3 set")
			return
		end
		
		wpp.data[playername].action = "move_read"
		wpp.data[playername].status = "waiting"
		table.insert(wpp.run_player, playername)
		send_player(playername, "Command \"move\" enqueued")
	end,
})

minetest.register_chatcommand("copy", {
	params = "<none>",
	description = "Copies nodes to position 3",
	privs = {worldedit = true},
	func = function(playername, param)
		init_player(playername)
		if check_running(playername) then return end
		
		if not wpp.data[playername].p1 then
			send_player(playername, "No position 1 set")
			return
		end
		if not wpp.data[playername].p2 then
			send_player(playername, "No position 2 set")
			return
		end
		if not wpp.data[playername].p3 then
			send_player(playername, "No position 3 set")
			return
		end
		
		wpp.data[playername].action = "copy_read"
		wpp.data[playername].status = "waiting"
		table.insert(wpp.run_player, playername)
		send_player(playername, "Command \"copy\" enqueued")
	end,
})