Add basic dispensers (don't dispense most stuff)

mods/redstone/mcl_dispensers/depends.txt

@@ -0,0 +1,6 @@
+mesecons
+mcl_core
+mcl_sounds
+mcl_fire
+mcl_tnt
+mcl_heads

mods/redstone/mcl_dispensers/init.lua

@@ -0,0 +1,177 @@
+--[[ This mod registers 3 nodes:
+- One node for the horizontal-facing dispensers (mcl_dispensers:dispenser)
+- One node for the upwards-facing dispensers (mcl_dispenser:dispenser_up)
+- One node for the downwards-facing dispensers (mcl_dispenser:dispenser_down)
+
+3 node definitions are needed because of the way the textures are defined.
+All node definitions share a lot of code, so this is the reason why there
+are so many weird tables below.
+]]
+
+-- For after_place_node
+local setup_dispenser = function(pos)
+	-- Set formspec and inventory
+	local form = "size[9,8.75]"..
+	"background[-0.19,-0.25;9.41,9.49;crafting_inventory_9_slots.png]"..
+	mcl_core.inventory_header..
+	"image[3,-0.2;5,0.75;mcl_dispensers_fnt_dispenser.png]"..
+	"list[current_player;main;0,4.5;9,3;9]"..
+	"list[current_player;main;0,7.74;9,1;]"..
+	"list[current_name;main;3,0.5;3,3;]"..
+	"listring[current_name;main]"..
+	"listring[current_player;main]"
+	local meta = minetest.get_meta(pos)
+	meta:set_string("formspec", form)
+	local inv = meta:get_inventory()
+	inv:set_size("main", 9)
+end
+
+-- Shared core definition table
+local dispenserdef = {
+	is_ground_content = false,
+	sounds = mcl_sounds.node_sound_stone_defaults(),
+	after_dig_node = function(pos, oldnode, oldmetadata, digger)
+		local meta = minetest.get_meta(pos)
+		local meta2 = meta
+		meta:from_table(oldmetadata)
+		local inv = meta:get_inventory()
+		for i=1, inv:get_size("main") do
+			local stack = inv:get_stack("main", i)
+			if not stack:is_empty() then
+				local p = {x=pos.x+math.random(0, 10)/10-0.5, y=pos.y, z=pos.z+math.random(0, 10)/10-0.5}
+				minetest.add_item(p, stack)
+			end
+		end
+		meta:from_table(meta2:to_table())
+	end,
+	mesecons = {effector = {
+		-- Dispense random item when triggered
+		action_on = function (pos, node)
+			local meta = minetest.get_meta(pos)
+			local inv = meta:get_inventory()
+			local droppos
+			if node.name == "mcl_dispensers:dispenser" then
+				droppos  = vector.subtract(pos, minetest.facedir_to_dir(node.param2))
+			elseif node.name == "mcl_dispensers:dispenser_up" then
+				droppos  = {x=pos.x, y=pos.y+1, z=pos.z}
+			elseif node.name == "mcl_dispensers:dispenser_down" then
+				droppos  = {x=pos.x, y=pos.y-1, z=pos.z}
+			end
+			local dropnode = minetest.get_node(droppos)
+			-- Do not dispense into solid nodes
+			local dropnodedef = minetest.registered_nodes[dropnode.name]
+			if dropnodedef.walkable then
+				return
+			end
+			local stacks = {}
+			for i=1,inv:get_size("main") do
+				local stack = inv:get_stack("main", i)
+				if not stack:is_empty() then
+					table.insert(stacks, {stack = stack, stackpos = i})
+				end
+			end
+			if #stacks >= 1 then
+				local r = math.random(1, #stacks)
+				local stack = stacks[r].stack
+				local dropitem = ItemStack(stack:get_name())
+				local stack_id = stacks[r].stackpos
+				local iname = stack:get_name()
+				local igroups = minetest.registered_items[iname].groups
+
+				--[===[ Dispense item ]===]
+				if iname == "mcl_fire:flint_and_steel" then
+					-- Ignite air or fire
+					if dropnode.name == "air" then
+						minetest.add_node(droppos, {name="mcl_fire:basic_flame"})
+						if not minetest.setting_getbool("creative_mode") then
+							stack:add_wear(65535/65) -- 65 uses
+						end
+					elseif dropnode.name == "mcl_tnt:tnt" then
+						tnt.ignite(droppos)
+						if not minetest.setting_getbool("creative_mode") then
+							stack:add_wear(65535/65) -- 65 uses
+						end
+					end
+
+					inv:set_stack("main", stack_id, stack)
+				elseif igroups.head or igroups.shulker_box or iname == "mcl_farming:pumpkin_face" then
+					-- Place head, shulker box, or pumpkin
+					if dropnodedef.buildable_to then
+						minetest.set_node(droppos, {name = iname, param2 = node.param2})
+						stack:take_item()
+						inv:set_stack("main", stack_id, stack)
+					end
+
+				-- TODO: Many other dispenser actions
+				else
+					-- Drop item
+					minetest.add_item(droppos, dropitem)
+	
+					stack:take_item()
+					inv:set_stack("main", stack_id, stack)
+				end
+			end
+		end
+	}}
+}
+
+-- Horizontal dispenser
+
+local horizontal_def = table.copy(dispenserdef)
+horizontal_def.description = "Dispenser"
+horizontal_def.after_place_node = function(pos, placer, itemstack, pointed_thing)
+	setup_dispenser(pos)
+
+	-- When placed up and down, convert node to up/down dispenser
+	if pointed_thing.above.y < pointed_thing.under.y then
+		minetest.swap_node(pos, {name = "mcl_dispensers:dispenser_down"})
+	elseif pointed_thing.above.y > pointed_thing.under.y then
+		minetest.swap_node(pos, {name = "mcl_dispensers:dispenser_up"})
+	end
+
+	-- Else, the normal facedir logic applies
+end
+horizontal_def.tiles = {
+	"default_furnace_top.png", "default_furnace_bottom.png",
+	"default_furnace_side.png", "default_furnace_side.png",
+	"default_furnace_side.png", "mcl_dispensers_dispenser_front_horizontal.png"
+}
+horizontal_def.paramtype2 = "facedir"
+horizontal_def.groups = {cracky=2,container=2}
+
+minetest.register_node("mcl_dispensers:dispenser", horizontal_def)
+
+-- Down dispenser
+local down_def = table.copy(dispenserdef)
+down_def.description = "Downwards-Facing Dispenser"
+down_def.after_place_node = setup_dispenser
+down_def.tiles = {
+	"default_furnace_top.png", "mcl_dispensers_dispenser_front_vertical.png",
+	"default_furnace_side.png", "default_furnace_side.png",
+	"default_furnace_side.png", "default_furnace_side.png"
+}
+down_def.groups = {cracky=2,container=2,not_in_creative_inventory=1}
+down_def.drop = "mcl_dispensers:dispenser"
+minetest.register_node("mcl_dispensers:dispenser_down", down_def)
+
+-- Up dispenser
+-- The up dispenser is almost identical to the down dispenser , it only differs in textures
+up_def = table.copy(down_def)
+up_def.description = "Upwards-Facing Dispenser"
+up_def.tiles = {
+	"mcl_dispensers_dispenser_front_vertical.png", "default_furnace_bottom.png",
+	"default_furnace_side.png", "default_furnace_side.png",
+	"default_furnace_side.png", "default_furnace_side.png"
+}
+minetest.register_node("mcl_dispensers:dispenser_up", up_def)
+
+
+
+minetest.register_craft({
+	output = 'mcl_dispensers:dispenser',
+	recipe = {
+		{"mcl_core:cobble", "mcl_core:cobble", "mcl_core:cobble",},
+		{"mcl_core:cobble", "mcl_throwing:bow", "mcl_core:cobble",},
+		{"mcl_core:cobble", "mesecons:redstone", "mcl_core:cobble",},
+	}
+})