mesecons/mesecons_receiver/init.lua

rcvboxes = {
	{ -3/16, -3/16,  -8/16, 3/16, 3/16, -13/32 },
	{ -5/32, -5/32, -13/32, 5/32, 5/32, -12/32 },
	{-1/16, -.5, -8/16, 1/16, -.5+1/16, 8/16},
	{-1/16, -.5+1/16, -.5, 1/16, 0, -.5+1/16}
}

minetest.register_node("mesecons_receiver:receiver_on", {
	drawtype = "nodebox",
	tiles = {
		"wires_on.png",
		"wires_on.png",
		"wires_vertical_on.png",
		"wires_vertical_on.png",
		"wires_bump_on.png",
		"wires_bump_on.png",
	},
	paramtype = "light",
	paramtype2 = "facedir",
	selection_box = {
             	type = "fixed",
		fixed = { -3/16, -8/16, -8/16, 3/16, 2/16, 8/16 }
	},
	node_box = {
		type = "fixed",
		fixed = rcvboxes
	},
	groups = {dig_immediate = 3, mesecon = 3, not_in_creative_inventory = 1},
	drop = "mesecons:wire_00000000_off",

})

minetest.register_node("mesecons_receiver:receiver_off", {
	drawtype = "nodebox",
	description = "You hacker you",
	tiles = {
		"wires_off.png",
		"wires_off.png",
		"wires_vertical_off.png",
		"wires_vertical_off.png",
		"wires_bump_off.png",
		"wires_bump_off.png",
	},
	paramtype = "light",
	paramtype2 = "facedir",
	selection_box = {
             	type = "fixed",
		fixed = { -3/16, -8/16, -8/16, 3/16, 2/16, 8/16 }
	},
	node_box = {
		type = "fixed",
		fixed = rcvboxes
	},
	groups = {dig_immediate = 3, mesecon = 3},
	drop = "mesecons:wire_00000000_off",
})

mesecon:add_rules("receiver_pos", {{x = 2,  y = 0, z = 0}})

mesecon:add_rules("receiver_pos_all", {
{x = 2,  y = 0, z = 0},
{x =-2,  y = 0, z = 0},
{x = 0,  y = 0, z = 2},
{x = 0,  y = 0, z =-2}})

mesecon:add_rules("mesecon_receiver", {
{x = 1, y = 0, z = 0},
{x = -2, y = 0, z = 0},})

mesecon:add_rules("mesecon_receiver_all", {
{x = 1, y = 0, z = 0},
{x =-2, y = 0, z = 0},
{x =-1, y = 0, z = 0},
{x = 2, y = 0, z = 0},
{x = 0, y = 0, z = 1},
{x = 0, y = 0, z =-2},
{x = 1, y = 0, z =-1},
{x =-2, y = 0, z = 2},})

function receiver_get_rules(param2)
	local rules = mesecon:get_rules("mesecon_receiver")
	if param2 == 2 then
		rules = mesecon:rotate_rules_left(rules)
	elseif param2 == 3 then
		rules = mesecon:rotate_rules_right(mesecon:rotate_rules_right(rules))
	elseif param2 == 0 then
		rules = mesecon:rotate_rules_right(rules)
	end
	return rules
end

mesecon:register_conductor("mesecons_receiver:receiver_on", "mesecons_receiver:receiver_off", mesecon:get_rules("mesecon_receiver_all"), receiver_get_rules)

function mesecon:receiver_get_pos_from_rcpt(pos, param2)
	local rules = mesecon:get_rules("receiver_pos")
	if param2 == nil then param2 = minetest.env:get_node(pos).param2 end
	if param2 == 2 then
		rules = mesecon:rotate_rules_left(rules)
	elseif param2 == 3 then
		rules = mesecon:rotate_rules_right(mesecon:rotate_rules_right(rules))
	elseif param2 == 0 then
		rules = mesecon:rotate_rules_right(rules)
	end
	np = {
	x = pos.x + rules[1].x,
	y = pos.y + rules[1].y,
	z = pos.z + rules[1].z}
	return np
end

function mesecon:receiver_place(rcpt_pos)
	local node = minetest.env:get_node(rcpt_pos)
	local pos = mesecon:receiver_get_pos_from_rcpt(rcpt_pos, node.param2)
	local nn = minetest.env:get_node(pos)

	if string.find(nn.name, "mesecons:wire_") ~= nil then
		minetest.env:dig_node(pos)
		if mesecon:is_power_on(rcpt_pos) then
			minetest.env:add_node(pos, {name = "mesecons_receiver:receiver_on", param2 = node.param2})
			mesecon:receptor_on(pos, receiver_get_rules(node.param2))
		else
			minetest.env:add_node(pos, {name = "mesecons_receiver:receiver_off", param2 = node.param2})
		end
		mesecon:update_autoconnect(pos)
	end
end

function mesecon:receiver_remove(rcpt_pos, dugnode)
	local pos = mesecon:receiver_get_pos_from_rcpt(rcpt_pos, dugnode.param2)
	local nn = minetest.env:get_node(pos)
	if string.find(nn.name, "mesecons_receiver:receiver_") ~=nil then
		minetest.env:dig_node(pos)
		minetest.env:place_node(pos, {name = "mesecons:wire_00000000_off"})
		mesecon:update_autoconnect(pos)
	end
end

minetest.register_on_placenode(function (pos, node)
	if minetest.get_item_group(node.name, "mesecon_needs_receiver") == 1 then
		mesecon:receiver_place(pos)
	end
end)

minetest.register_on_dignode(function(pos, node)
	if minetest.get_item_group(node.name, "mesecon_needs_receiver") == 1 then
		mesecon:receiver_remove(pos, node)
	end
end)

minetest.register_on_placenode(function (pos, node)
	if string.find(node.name, "mesecons:wire_") ~=nil then
		rules = mesecon:get_rules("receiver_pos_all")
		local i = 1
		while rules[i] ~= nil do
			np = {
			x = pos.x + rules[i].x,
			y = pos.y + rules[i].y,
			z = pos.z + rules[i].z}
			if minetest.get_item_group(minetest.env:get_node(np).name, "mesecon_needs_receiver") == 1 then
				mesecon:receiver_place(np)
			end
			i = i + 1
		end
	end
end)