mesecons/mesecons_gates/init.lua

outrules = {
	{x=1, y=0, z=0},
}
oneinput = {
	{x=-1, y=0, z=0},
	{x=1, y=0, z=0},
}
twoinputs = {
	{x=0, y=0, z=1},
	{x=0, y=0, z=-1},
	{x=1, y=0, z=0},
}
function get_gate_rules(param2, onlyout, singleinput)
	if onlyout then
		rules = outrules
	else
		if singleinput then
			rules = oneinput
		else
			rules = twoinputs
		end
	end
	for rotations=0, param2-1 do
		rules = mesecon:rotate_rules_left(rules)
	end
	return rules
end

function get_gate_rules_one(param2) return get_gate_rules(param2, false, true) end
function get_gate_rules_two(param2) return get_gate_rules(param2, false, false) end
function get_gate_rules_out(param2) return get_gate_rules(param2, true) end
gates = {"diode", "not", "nand", "and", "xor"}
for g in ipairs(gates) do gate = gates[g]
	if g < 3 then
		get_rules = get_gate_rules_one
		node_box = {
			type = "fixed",
			fixed = {
				{-6/16, -8/16, -6/16, 6/16, -7/16, 6/16 },
				{6/16, -8/16, -2/16, 8/16, -7/16, 2/16 },
				{-8/16, -8/16, -2/16, -6/16, -7/16, 2/16 },
			},
		}
	else
		get_rules = get_gate_rules_two
		node_box = {
			type = "fixed",
			fixed = {
				{-6/16, -8/16, -6/16, 6/16, -7/16, 6/16 },
				{6/16, -8/16, -2/16, 8/16, -7/16, 2/16 },
				{-2/16, -8/16, 6/16, 2/16, -7/16, 8/16 },
				{-2/16, -8/16, -8/16, 2/16, -7/16, -6/16 },
			},
		}
	end
	for on=0,1 do
		nodename = "mesecons_gates:"..gate
		if on == 1 then
			onoff = "on"
			drop = nodename.."_off"
			nodename = nodename.."_"..onoff
			description = "You hacker you!"
			groups = {dig_immediate=2, not_in_creative_inventory=1, mesecon = 3}
			mesecon:add_receptor_node(nodename, get_rules, get_gate_rules_out)
			--mesecon:add_receptor_node(nodename, mesecon:get_rules("insulated_all"))
		else
			onoff = "off"
			nodename = nodename.."_"..onoff
			description = gate.." Gate"
			groups = {dig_immediate=2, mesecon = 3}
			--mesecon:add_receptor_node_off(nodename, get_gate_rules_out)
		end

		tiles = "jeija_microcontroller_bottom.png^"..
			"jeija_gate_"..onoff..".png^"..
			"jeija_gate_"..gate..".png"

		minetest.register_node(nodename, {
			description = description,
			paramtype = "light",
			paramtype2 = "facedir",
			drawtype = "nodebox",
			tiles = {tiles},
			inventory_image = tiles,
			selection_box = node_box,
			node_box = node_box,
			walkable = true,
			on_construct = function(pos)
				local meta = minetest.env:get_meta(pos)
				meta:set_int("heat", 0)
				update_gate(pos)
			end,
			groups = groups,
			drop = drop,

		})

		mesecon:register_effector(nodename, nodename, mesecon:get_rules("insulated_all"), get_rules)
	end
end

function get_gate(pos)
	return
	string.gsub( 
	string.gsub(
	string.gsub(
	minetest.env:get_node(pos).name
	, "mesecons_gates:", "") --gate
	,"_on", "")
	,"_off", "")
end

function gate_state(pos)
	name = minetest.env:get_node(pos).name
	return string.find(name, "_on") ~= nil
end

function pop_gate(pos)
	gate = get_gate(pos)
	minetest.env:remove_node(pos)
	minetest.after(0.2, yc_overheat_off, pos)
	minetest.env:add_item(pos, "mesecons_gates:"..gate.."_off")
end

function set_gate(pos, on)
	gate = get_gate(pos)
	local meta = minetest.env:get_meta(pos)
	if on ~= gate_state(pos) then
		yc_heat(meta)
		minetest.after(0.5, yc_cool, meta)
		if yc_overheat(meta) then
			pop_gate(pos)
		else
			heat = meta:get_int("heat")
			if on then
				onoff = "_on"
			else
				onoff = "_off"
			end
			param2 = minetest.env:get_node(pos).param2
			minetest.env:add_node(pos, {
				name = "mesecons_gates:"..gate..onoff,
				param2 = param2,
			})
			local meta2 = minetest.env:get_meta(pos)
			meta2:set_int("heat", heat)
			if on then
				mesecon:receptor_on(pos, get_gate_rules(param2, true))
			else
				mesecon:receptor_off(pos, mesecon:get_rules("insulated_all"))
			end
		end
	end
end

function rotate_ports(L, param2)
	for rotations=0, param2-1 do
		port = L.a
		L.a = L.b
		L.b = L.c
		L.c = L.d
		L.d = port
	end
	return L
end

function update_gate(pos)
	gate = get_gate(pos)
	L = rotate_ports(
		yc_get_real_portstates(pos),
		minetest.env:get_node(pos).param2
	)
	if gate == "diode" then
		set_gate(pos, L.a)	
	elseif gate == "not" then
		set_gate(pos, not L.a)
	elseif gate == "nand" then
		set_gate(pos, not(L.b and L.d))
	elseif gate == "and" then
		set_gate(pos, L.b and L.d)
	else--if gate == "xor" then
		set_gate(pos, (L.b and not L.d) or (not L.b and L.d))
	end
end

mesecon:register_on_signal_change(function(pos,node)
	if string.find(node.name, "mesecons_gates:")~=nil then
		update_gate(pos)
	end
end)

minetest.register_craft({
	output = 'mesecons_gates:diode_off',
	recipe = {
		{'', '', ''},
		{'mesecons:mesecon', 'mesecons_torch:mesecon_torch_on', 'mesecons_torch:mesecon_torch_on'},
		{'', '', ''},
	},
})

minetest.register_craft({
	output = 'mesecons_gates:not_off',
	recipe = {
		{'', '', ''},
		{'mesecons:mesecon', 'mesecons_torch:mesecon_torch_on', 'mesecons:mesecon'},
		{'', '', ''},
	},
})

minetest.register_craft({
	output = 'mesecons_gates:and_off',
	recipe = {
		{'mesecons:mesecon', '', ''},
		{'', 'mesecons_materials:silicon', 'mesecons:mesecon'},
		{'mesecons:mesecon', '', ''},
	},
})

minetest.register_craft({
	output = 'mesecons_gates:nand_off',
	recipe = {
		{'mesecons:mesecon', '', ''},
		{'', 'mesecons_materials:silicon', 'mesecons_torch:mesecon_torch_on'},
		{'mesecons:mesecon', '', ''},
	},
})

minetest.register_craft({
	output = 'mesecons_gates:xor_off',
	recipe = {
		{'mesecons:mesecon', '', ''},
		{'', 'mesecons_materials:silicon', 'mesecons_materials:silicon'},
		{'mesecons:mesecon', '', ''},
	},
})