init.lua

dofile(minetest.get_modpath(minetest.get_current_modname()) .. "/chatcmdbuilder.lua")
local inflate = dofile(minetest.get_modpath(minetest.get_current_modname()) .. "/inflate_nocrc.lua")

irc_builder = {
	version = "0.0.8",
}

irc_builder.get_ground_level = function(x, z)
	local y = 101
	local node
	local unground = {
		ignore=true, 
		air=true, 
		["default:tree"]=true, 
		["default:leaves"]=true,
	}
	repeat
		y = y - 1
		local pos = {x=x,y=y,z=z}
		node = minetest.get_node_or_nil(pos)
		if not node then
			-- Load the map at pos and try again
			minetest.get_voxel_manip():read_from_map(pos, pos)
			node = minetest.get_node(pos)
		end
		-- if map not loaded or generated yet node.name == 'ignore'
		--print(y, node.name)
	until y < 0 or not unground[node.name]
	return y
end  

minetest.register_privilege("irc_builder", {
    description = "Can use irc_builder chat commands to set nodes from python/irc",
    give_to_singleplayer = true
})

ChatCmdBuilder.new("get_node", function(cmd)
	cmd:sub(":pos1:pos", function(name, pos)
		local item = minetest.get_node_or_nil(pos)
		if not item then 
			-- Load the map at pos and try again
			minetest.get_voxel_manip():read_from_map(pos, pos)
			item = minetest.get_node(pos)
		end
		-- if map not loaded or generated yet item.name == 'ignore'
		return true, item.name
	end)
end, {
	description = 'pos, eg: "/get_node (1,8,1)". Should return something like "default:wood"',
	privs = {}
})

ChatCmdBuilder.new("get_node_table", function(cmd)
	cmd:sub(":pos1:pos", function(name, pos)
		local item = minetest.get_node_or_nil(pos)
		if not item then 
			-- Load the map at pos and try again
			minetest.get_voxel_manip():read_from_map(pos, pos)
			item = minetest.get_node(pos)
		end
		-- if map not loaded or generated yet item.name == 'ignore'
		return true, minetest.write_json(item)
	end)
end, {
	description = 'pos, eg: "/get_node_table (1,8,1)". Should return something like {"name":"default:wood",param1:0, param2:0}',
	privs = {}
})

ChatCmdBuilder.new("get_ground_level", function(cmd)
	cmd:sub(":x:int :z:int", function(name, x, z)
		return true, ""..irc_builder.get_ground_level(x, z)
	end)
end, {
	description = 'x z, eg: "/get_ground_level 1 5". Returns max value of y that is not air leaves or tree',
	privs = {}
})

ChatCmdBuilder.new("get_connected_players", function(cmd)
	cmd:sub("", function(name, x, z)
		local response = ""
		local space = ""
		for _,player in ipairs(minetest.get_connected_players()) do
			response = response..space..player:get_player_name()
			space = " "
		end
		return true, response
	end)
end, {
	description = 'Returns list of connected players',
	privs = {}
})

ChatCmdBuilder.new("get_infotext", function(cmd)
	cmd:sub(":pos1:pos", function(name, pos1)
		local infotext = minetest.get_meta(pos1):get_string("infotext")
		return true, infotext
	end)
end, {
	description = "pos, eg: '/get_infotext (1,8,1)'. Returns text which displays when pointing at ",
	privs = {}
})

ChatCmdBuilder.new("get_meta", function(cmd)
	cmd:sub(":pos1:pos", function(name, pos1)
		local meta = minetest.get_meta(pos1)
		local metatable = meta:to_table()
		return true, minetest.write_json(metatable)
	end)
end, {
	description = "pos, eg: '/get_meta (1,8,1)'. Returns JSON object",
	privs = {}
})

-- function get_nodes is no longer used as response too long for irc
local get_nodes = function(name, pos1, pos2)
	local stepx = (pos1.x > pos2.x) and -1 or 1
	local stepy = (pos1.y > pos2.y) and -1 or 1
	local stepz = (pos1.z > pos2.z) and -1 or 1
	local response = "["
	local comma = ""
	for x = pos1.x,pos2.x,stepx do
		for y = pos1.y,pos2.y,stepy do
			for z = pos1.z,pos2.z,stepz do
				local pos = {x=x,y=y,z=z}
				local item=minetest.get_node(pos)
				local str_node = minetest.write_json({pos=pos,item=item})
				response = response..comma..str_node
				comma=","
			end
		end
	end
	return true, response.."]"
end
	
ChatCmdBuilder.new("compare_nodes", function(cmd)
	cmd:sub(":pos1:pos :pos2:pos :item:text", function(name, pos1, pos2, itemtext)
		local item
		if itemtext:sub(1,1) == "{" then
			item = json.decode(itemtext)
		else
			item = {name=itemtext}
		end
		minetest.get_voxel_manip():read_from_map(pos1, pos2)
		local stepx = (pos1.x > pos2.x) and -1 or 1
		local stepy = (pos1.y > pos2.y) and -1 or 1
		local stepz = (pos1.z > pos2.z) and -1 or 1
		local count = 0
		for x = pos1.x,pos2.x,stepx do
			for y = pos1.y,pos2.y,stepy do
				for z = pos1.z,pos2.z,stepz do
					local pos = {x=x,y=y,z=z}
					local i=minetest.get_node(pos)
					local same = true
					for k,v in pairs(item) do
						if v ~= i[k] then
							same = false
						end
					end
					if not same then
						count = count + 1
					end
				end
			end
		end
		return true, ""..count
	end)
end, {
	description = [[pos1 pos2 item
	eg: 
	/compare_nodes (1,8,1) (2,9,2) "wool:orange"
	/compare_nodes (1,8,1) (2,9,2) {"name":"wool:orange", "param2":"0"}
	Returns count of nodes which differ from specified item attributes
	Unspecified attributes are not differences]],
	privs = {}
})

local item_from_itemtext = function(itemtext)
	local item
	if itemtext:sub(1,1) == "{" then
		item = minetest.parse_json(itemtext)
	elseif itemtext == "default:torch" then
		item = {name=itemtext, param2=1}
	else
		item = {name=itemtext}
	end
	local d=item.direction
	if d then 
		local reg=minetest.registered_nodes[item.name]
		if reg then
			d = d:lower()
			local dir = nil
			if d=="+x" then dir={x=1,y=0,z=0}
			elseif d=="-x" then dir={x=-1,y=0,z=0}
			elseif d=="+y" then dir={x=0,y=1,z=0}
			elseif d=="-y" then dir={x=0,y=-1,z=0}
			elseif d=="+z" then dir={x=0,y=0,z=1}
			elseif d=="-z" then dir={x=0,y=0,z=-1}
			end
			if reg.paramtype2=="wallmounted" then
				item.param2=minetest.dir_to_wallmounted(dir)
			elseif reg.paramtype2=="facedir" then 
				item.param2=minetest.dir_to_facedir(dir)
			end
		end
	end
	return item
end

ChatCmdBuilder.new("set_node", function(cmd)
	cmd:sub(":pos1:pos :item:text", function(name, pos1, itemtext)
		minetest.get_voxel_manip():read_from_map(pos1, pos1)
		if minetest.is_protected(pos1, name) then
			return false, "protected 0"
		else
			minetest.set_node(pos1, item_from_itemtext(itemtext))
			return true, itemtext .." 1"
		end
	end)
end, {
	description = "pos item, eg: /set_node (1,8,1) default:stone",
	privs = {irc_builder = true}
})

irc_builder.set_nodes = function(name, pos1, pos2, item)
	local stepx = (pos1.x > pos2.x) and -1 or 1
	local stepy = (pos1.y > pos2.y) and -1 or 1
	local stepz = (pos1.z > pos2.z) and -1 or 1
	local count = 0
	local buildable = true
	for x = pos1.x,pos2.x,stepx do
		for y = pos1.y,pos2.y,stepy do
			for z = pos1.z,pos2.z,stepz do
				local pos = {x=x, y=y, z=z}
				if minetest.is_protected(pos, name) then
					buildable = false
				else
					minetest.set_node(pos, item)
					count = count + 1
				end
			end
		end
	end
	return buildable, count
end

ChatCmdBuilder.new("set_nodes", function(cmd)
	cmd:sub(":pos1:pos :pos2:pos :item:text", function(name, pos1, pos2, itemtext)
		minetest.get_voxel_manip():read_from_map(pos1, pos2)
		local item = item_from_itemtext(itemtext)
		local buildable, count = irc_builder.set_nodes(name, pos1, pos2, item)
		return buildable, itemtext.." "..count
	end)
end, {
	description = "pos1 pos2 item, eg: /set_nodes (1,8,1) (2,9,2) wool:orange",
	privs = {irc_builder = true}
})

local pos_from_str=function(s, pmin, pmax)
	local str_x, str_y, str_z = s:match("(%-?[%d.]+),(%-?[%d.]+),(%-?[%d.]+)")
	local x = tonumber(str_x)
	local y = tonumber(str_y)
	local z = tonumber(str_z)
	if pmin then 
		if pmin.x > x then pmin.x = x end
		if pmin.y > y then pmin.y = y end
		if pmin.z > z then pmin.z = z end
	else
		pmin = {x=x, y=y, z=z}
	end
	if pmax then 
		if pmax.x < x then pmax.x = x end
		if pmax.y < y then pmax.y = y end
		if pmax.z < z then pmax.z = z end
	else
		pmax = {x=x, y=y, z=z}
	end
	local pos = {x=x, y=y, z=z}	
	return pos, pmin, pmax
end

ChatCmdBuilder.new("set_node_list", function(cmd)
	cmd:sub(":b64:word :item:text", function(name, b64, itemtext)
		local count = 0
		local item = item_from_itemtext(itemtext)
		local strposs = inflate.b64dec_inflate_zlib_ascii(b64)
		local buildable = true
		local pos, pos1, pos2, pmin, pmax
		local pos_list = {}
		for strpos in strposs:gmatch("([^%|]+)") do
			if strpos:find(" ") then
				local str1, str2 = strpos:match('([%S]+)%s+([%S]+)')
				pos1, pmin, pmax = pos_from_str(str1, pmin, pmax)
				pos2, pmin, pmax = pos_from_str(str2, pmin, pmax)
				table.insert(pos_list, {pos1=pos1, pos2=pos2})
			else
				pos, pmin, pmax = pos_from_str(strpos, pmin, pmax)
				table.insert(pos_list, {pos1=pos, pos2=pos})
			end
			local str_x, str_y, str_z = strpos:match("(%-?[%d.]+),(%-?[%d.]+),(%-?[%d.]+)")
		end
		--print('set_node_list pmin='..minetest.write_json(pmin)..', pmax='..minetest.write_json(pmax))
		minetest.get_voxel_manip():read_from_map(pmin, pmax)
		for _,pos_pair in ipairs(pos_list) do
			local bld, cnt = irc_builder.set_nodes(name, pos_pair.pos1, pos_pair.pos2, item)
			if not bld then
				buildable = false
			end
			count = count + cnt
		end	
		return buildable, itemtext.." "..count
	end)
end, {
	description = "zipb64 item, eg: /set_node_list Axdeqweqw wool:orange",
	privs = {irc_builder = true}
})

irc_builder.set_sign = function(pos, direction, itemname, text)
	local reg=minetest.registered_nodes[itemname]
	if not reg then
		return false,"Sign type not registered: "..itemname
	end
	if not text then
		text = ""
	end
	minetest.get_voxel_manip():read_from_map(pos, pos)
	text=text:gsub("\\n","\n")
	local d=direction:lower()
	local dir
	if d=="+x" then dir={x=1,y=0,z=0}
	elseif d=="-x" then dir={x=-1,y=0,z=0}
	elseif d=="+y" then dir={x=0,y=1,z=0}
	elseif d=="-y" then dir={x=0,y=-1,z=0}
	elseif d=="+z" then dir={x=0,y=0,z=1}
	elseif d=="-z" then dir={x=0,y=0,z=-1}
	else return false,"Unknown direction descriptor: "..d
	end
	local sign={name=itemname}
	if reg.paramtype2=="wallmounted" then
		sign.param2=minetest.dir_to_wallmounted(dir)
	elseif reg.paramtype2=="facedir" then 
		sign.param2=minetest.dir_to_facedir(dir)
	else
		return false,"Unknown paramtype2: "..reg.paramtype2
	end
	local prev_node = minetest.get_node(pos)
	if prev_node.name ~= itemname then
		print("Creating sign at z "..pos.z.." "..itemname)
		minetest.set_node(pos, sign)
	end
	local meta = minetest.get_meta(pos)
	if meta:get_string("infotext") == text and meta:get_string("text") == text then
		-- print("Sign unchanged at z "..pos.z.." "..text)
	else
		print("Sign changed at z "..pos.z.." "..text)
		meta:set_string("infotext",text)
		meta:set_string("text",text)
		meta:set_int("__signslib_new_format",1)
		signs_lib.update_sign(pos)
	end
	return true, itemname.." 1"
end

ChatCmdBuilder.new("set_sign", function(cmd)
	cmd:sub(":pos:pos :direction:word :itemname:word :text:text", function(name, pos, direction, itemname, text)
		if minetest.is_protected(pos, name) then
			return false, "protected 0"
		else
			return irc_builder.set_sign(pos, direction, itemname, text)
		end
	end)
end, {
	description = [[pos direction itemname text
	eg: 
	/set_sign (1,8,1) +x default:sign_wall_wood This is\nmy #4red sign]],
	privs = {irc_builder = true}
})

irc_builder.add_book_to_chest = function(name, pos, texttable)
	minetest.get_voxel_manip():read_from_map(pos, pos)
	local itemname="default:book_written"
	local reg=minetest.registered_craftitems[itemname]
	if not reg then
		return false,"Book type not registered: "..itemname
	end
	local book = ItemStack(itemname)
	local bookmeta = book:get_meta()
	for k,v in pairs(texttable) do
		bookmeta:set_string(k,v)
	end
	bookmeta:set_string('owner',name)
	bookmeta:set_string('text_len',""..texttable.text:len())
	bookmeta:set_string('page_max',"1")
	bookmeta:set_string('description',name.."'s book")
	--local tnew = book:to_table()
	--print(minetest.serialize(tnew))
	
	local chestname="default:chest"
	local currentnode=minetest.get_node(pos)
	if currentnode.name ~= chestname then
		minetest.set_node(pos,{name=chestname})
	end
	local meta=minetest.get_meta(pos)
	local invref = meta:get_inventory()
	invref:add_item("main",book)
	--local list=invref:get_list("main")
	--book=invref:get_stack("main",3)
	--local t = book:to_table()
	--print(minetest.serialize(t))
	return true,itemname
end

ChatCmdBuilder.new("add_book_to_chest", function(cmd)
	cmd:sub(":pos:pos :text:text", function(name, pos, text)
		if minetest.is_protected(pos, name) then
			return false, "protected 0"
		end
		text=text:gsub("\\n","\n")
		local texttable
		if text:sub(1,1) == "{" then
			texttable=minetest.parse_json(text)
		else
			texttable={title=name.."'s book", text=text}
		end
		return irc_builder.add_book_to_chest(name, pos, texttable)
	end)
end, {
	description = [[pos text
	eg: 
	/add_book_to_chest (1,8,1) This is\nmy book text]],
	privs = {irc_builder = true}
})