digtron/nodes/node_builder.lua

local S = digtron.S


-- Note: builders go in group 4

-- TODO make this global
local player_interacting_with_builder_pos = {}

local get_formspec = function(meta_fields)
	local period = tonumber(meta_fields.period)
	if period < 1 then period = 1 end
	local offset = tonumber(meta_fields.offset)
	local extrusion = tonumber(meta_fields.extrusion)
	local facing = tonumber(meta_fields.facing)
	local item_name = meta_fields.item

	return "size[8,5.2]" ..
	"item_image[0,0;1,1;" .. item_name .. "]"..
	"listcolors[#00000069;#5A5A5A00;#141318;#30434C;#FFF]" ..
	"list[detached:digtron:builder_item;main;0,0;1,1;]" ..
	"field[1.3,0.8;1,0.1;extrusion;" .. S("Extrusion") .. ";" ..extrusion .. "]" ..
	"field_close_on_enter[extrusion;false]" ..
	"tooltip[extrusion;" .. S("Builder will extrude this many blocks in the direction it is facing.\nCan be set from 1 to @1.\nNote that Digtron won't build into unloaded map regions.", digtron.config.maximum_extrusion) .. "]" ..
	"field[2.3,0.8;1,0.1;period;" .. S("Periodicity") .. ";".. period .. "]" ..
	"field_close_on_enter[period;false]" ..
	"tooltip[period;" .. S("Builder will build once every n steps.\nThese steps are globally aligned, so all builders with the\nsame period and offset will build on the same location.") .. "]" ..
	"field[3.3,0.8;1,0.1;offset;" .. S("Offset") .. ";" .. offset .. "]" ..
	"field_close_on_enter[offset;false]" ..
	"tooltip[offset;" .. S("Offsets the start of periodicity counting by this amount.\nFor example, a builder with period 2 and offset 0 builds\nevery even-numbered block and one with period 2 and\noffset 1 builds every odd-numbered block.") .. "]" ..
	"button[4.0,0.5;1,0.1;set;" .. S("Save &\nShow") .. "]" ..
	"tooltip[set;" .. S("Saves settings, closes interface, and shows the locations this builder will build to in-world.") .. "]" ..
	"field[5.3,0.8;1,0.1;facing;" .. S("Facing") .. ";" .. facing .. "]" ..
	"field_close_on_enter[facing;false]" ..
	"tooltip[facing;" .. S("Value from 0-23. Not all block types make use of this.\nUse the 'Read & Save' button to copy the facing of the block\ncurrently in the builder output location.") .. "]" ..
	"button[6.0,0.5;1,0.1;read;" .. S("Read") .. "]" ..
	"tooltip[read;" .. S("Reads the facing of the block currently in the build location.") .. "]" ..
	"list[current_player;main;0,1.3;8,1;]" ..
	default.get_hotbar_bg(0,1.3) ..
	"list[current_player;main;0,2.5;8,3;8]" ..
	"listring[current_player;main]" ..
	"listring[detached:digtron:builder_item;main]"
end

----------------------------------------------------------------------
-- Detached inventory for setting the builder item

local is_item_allowed = function(item)
	-- Ignore unknown items
	if minetest.registered_items[item] == nil then return false end

	local stack_def = minetest.registered_nodes[item]
	if not stack_def and not digtron.whitelisted_on_place(item) then
		return false -- don't allow craft items unless their on_place is whitelisted.
	end
	
	return true
end


local inv = minetest.create_detached_inventory("digtron:builder_item", {
	allow_move = function(inv, from_list, from_index, to_list, to_index, count, player)
		return 0
	end,
	allow_put = function(inv, listname, index, stack, player)
		-- Always disallow put, but use this to read what the player *tried* adding and set the builder appropriately
		local item = stack:get_name()
		
		if not is_item_allowed(item) then
			return 0
		end

		local player_name = player:get_player_name()
		local pos = player_interacting_with_builder_pos[player_name]
		if pos == nil then
			return 0
		end
		
		local node = minetest.get_node(pos)
		if node.name ~= "digtron:builder" then
			minetest.log("warning", "[Digtron] builder detached inventory had player " .. player_name
				.. " attempt to set " .. item .. " at " .. minetest.pos_to_string(pos) ..
				" but the node at that location was a " .. node.name)
			return 0
		end
		
		local meta = minetest.get_meta(pos)
		local digtron_id = meta:get_string("digtron_id")
		local digtron_layout_id = meta:get_int("digtron_layout_node_id")
		
		local layout
		local layout_fields
		minetest.chat_send_all(digtron_id)
		minetest.chat_send_all(digtron_layout_id)
		if digtron_id ~= "" and digtron_layout_id ~= 0 then
			layout = digtron.get_layout(digtron_id)
			layout_fields = layout[digtron_layout_id].meta.fields
		end
		
		-- If we're adding a wallmounted item and the build facing is greater than 5, reset it to 0
		if stack_def ~= nil and stack_def.paramtype2 == "wallmounted" and tonumber(meta:get_int("facing")) > 5 then
			meta:set_int("facing", 0)
			if layout_fields then
				layout_fields.facing = 0
			end
		end
		
		meta:set_string("item", item)
		if layout_fields then
			layout_fields.item = item
		end
		
		if layout_fields then
			minetest.chat_send_all("setting layout")
			digtron.set_layout(digtron_id, layout)
		else
			layout_fields = meta:to_table().fields
		end
		
		digtron.update_builder_item(pos)
		
		minetest.show_formspec(player_name, "digtron:builder", get_formspec(layout_fields))
		return 0
	end,
	allow_take = function(inv, listname, index, stack, player)
		return 0
	end,
})
inv:set_size("main", 1)

local builder_on_rightclick = function(pos, node, clicker, itemstack, pointed_thing)
	local returnstack, success = digtron.on_rightclick(pos, node, clicker, itemstack, pointed_thing)
	if returnstack then
		return returnstack, success
	end

	if clicker == nil then return end
	local player_name = clicker:get_player_name()

	local meta = minetest.get_meta(pos)	
	
	local digtron_id = meta:get_string("digtron_id")
	local digtron_node_id = meta:get_int("digtron_layout_node_id")
	if digtron_id ~= "" and digtron_node_id ~= 0 then
		player_interacting_with_builder_pos[player_name] = pos
		local layout = digtron.get_layout(digtron_id)
		local data = layout[digtron_node_id]
		if data then
			minetest.show_formspec(player_name, "digtron:builder", get_formspec(data.meta.fields))
		end
		return
	end
	
	player_interacting_with_builder_pos[player_name] = pos
	minetest.show_formspec(player_name, "digtron:builder", get_formspec(meta:to_table().fields))
end

minetest.register_on_player_receive_fields(function(sender, formname, fields)
	if formname ~= "digtron:builder" then
		return
	end
	
	local player_name = sender:get_player_name()
	local pos = player_interacting_with_builder_pos[player_name]
	if pos == nil then
		minetest.log("error", "[Digtron] ".. player_name .. " tried interacting with a Digtron builder but"
			.. " no position was recorded.")
		return
	end
	
    local meta = minetest.get_meta(pos)
	local meta_table

	local digtron_id = meta:get_string("digtron_id")
	local digtron_layout_id = meta:get_int("digtron_layout_node_id")

	local layout
	if digtron_id ~= "" and digtron_layout_id ~= 0 then
		-- If this builder is part of an assembled Digtron, then the persisted Digtron
		-- layout will have primacy over any other metadata this node might have.
		layout = digtron.get_layout(digtron_id)
		meta_table = layout[digtron_layout_id].meta
	else
		meta_table = meta:to_table()
	end
	local meta_fields = meta_table.fields

	local item = meta_fields.item
	
	local period = tonumber(fields.period)
	if period and period > 0 then
		meta_fields.period = math.floor(period)
	else
		period = tonumber(meta_fields.period) or 1
	end
	
	local offset = tonumber(fields.offset)
	if offset then
		meta_fields.offset = math.floor(offset)
	else
		offset = tonumber(meta_fields.offset) or 0
	end
	
	local facing = tonumber(fields.facing)
	if facing and facing >= 0 and facing < 24 then
		local target_item = ItemStack(item)
		if target_item:get_definition().paramtype2 == "wallmounted" then
			-- wallmounted facings only run from 0-5
			if facing < 6 then
				meta_fields.facing = math.floor(facing)
			end
		else
			meta_fields.facing = math.floor(facing)
		end
	else
		facing = tonumber(meta_fields.facing) or 0
	end
	
	local extrusion = tonumber(fields.extrusion)
	if extrusion and extrusion > 0 and extrusion <= digtron.config.maximum_extrusion then
		meta_fields.extrusion = math.floor(extrusion)
	else
		extrusion = tonumber(meta_fields.extrusion) or 1
	end
	
	if fields.set then
		--TODO digtron.show_offset_markers(pos, offset, period)
	end

	if fields.read then
		local builder_facing = minetest.get_node(pos).param2
		local buildpos = vector.add(minetest.facedir_to_dir(builder_facing), pos)
		local target_node = minetest.get_node(buildpos)
		local target_name = target_node.name
		if digtron.builder_read_item_substitutions[target_name] then
			target_name = digtron.builder_read_item_substitutions[target_name]
		end
		if target_name ~= "air" and is_item_allowed(target_name) then
			item = target_name
			meta_fields.item = item
			meta_fields.facing = target_node.param2
		end
	end
	
	if fields.help then
		minetest.after(0.5, doc.show_entry, sender:get_player_name(), "nodes", "digtron:builder", true)
	end
	
	local item_def = minetest.registered_items[item]
	local item_desc = S("Nothing")
	if item_def then
		item_desc = item_def.description
	end
	
	meta_fields.infotext = S("Builder for @1\nperiod @2, offset @3, extrusion @4", item_desc, period, offset, extrusion)
	if layout then
		digtron.set_layout(digtron_id, layout)
	end
	meta_fields.digtron_id = digtron_id
	meta_fields.digtron_layout_node_id = digtron_layout_id
	meta:from_table(meta_table)
	
	digtron.update_builder_item(pos)
	minetest.show_formspec(player_name, "digtron:builder", get_formspec(meta_fields))

end)


-- Builds objects in the targeted node.
minetest.register_node("digtron:builder", {
	description = S("Digtron Builder Module"),
	_doc_items_longdesc = digtron.doc.builder_longdesc,
    _doc_items_usagehelp = digtron.doc.builder_usagehelp,
	groups = {cracky = 3,  oddly_breakable_by_hand=3, digtron = 4},
	drop = "digtron:builder",
	sounds = default.node_sound_metal_defaults(),
	paramtype = "light",
	paramtype2= "facedir",
	is_ground_content = false,
	tiles = {
		"digtron_plate.png^[transformR90",
		"digtron_plate.png^[transformR270",
		"digtron_plate.png",
		"digtron_plate.png^[transformR180",
		"digtron_plate.png^digtron_builder.png",
		"digtron_plate.png",
	},
	
	drawtype = "nodebox",
	node_box = {
		type = "fixed",
		fixed = {
			{-0.25, 0.3125, 0.3125, 0.25, 0.5, 0.5}, -- FrontFrame_top
			{-0.25, -0.5, 0.3125, 0.25, -0.3125, 0.5}, -- FrontFrame_bottom
			{0.3125, -0.25, 0.3125, 0.5, 0.25, 0.5}, -- FrontFrame_right
			{-0.5, -0.25, 0.3125, -0.3125, 0.25, 0.5}, -- FrontFrame_left
			{-0.5, 0.25, -0.5, -0.25, 0.5, 0.5}, -- edge_topright
			{-0.5, -0.5, -0.5, -0.25, -0.25, 0.5}, -- edge_bottomright
			{0.25, 0.25, -0.5, 0.5, 0.5, 0.5}, -- edge_topleft
			{0.25, -0.5, -0.5, 0.5, -0.25, 0.5}, -- edge_bottomleft
			{-0.25, 0.4375, -0.5, 0.25, 0.5, -0.4375}, -- backframe_top
			{-0.25, -0.5, -0.5, 0.25, -0.4375, -0.4375}, -- backframe_bottom
			{-0.5, -0.25, -0.5, -0.4375, 0.25, -0.4375}, -- backframe_left
			{0.4375, -0.25, -0.5, 0.5, 0.25, -0.4375}, -- Backframe_right
			{-0.0625, -0.3125, 0.3125, 0.0625, 0.3125, 0.375}, -- frontcross_vertical
			{-0.3125, -0.0625, 0.3125, 0.3125, 0.0625, 0.375}, -- frontcross_horizontal
		}
	},
	
	on_construct = function(pos)
        local meta = minetest.get_meta(pos)
		meta:set_int("period", 1)
		meta:set_int("offset", 0)
		meta:set_int("facing", 0)
		meta:set_int("extrusion", 1)
    end,
	
	on_rightclick = builder_on_rightclick,
	
	on_destruct = function(pos)
		local node = minetest.get_node(pos)
		local target_pos = vector.add(pos, minetest.facedir_to_dir(node.param2))
		digtron.remove_builder_item(target_pos)
	end,
	
	after_place_node = function(pos)
		digtron.update_builder_item(pos)
	end,
	
	can_dig = digtron.can_dig,
	on_blast = digtron.on_blast,
})