summaryrefslogtreecommitdiff
path: root/mesecons_gates/init.lua
blob: 089d608607fd803f4d961f477e76864dc3396897 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
gates = {"diode", "not", "nand", "and", "xor"}
out = {x=1, y=0, z=0}
inonerules = {{x=-1, y=0, z=0}}
intworules = {{x=0, y=0, z=1},{x=0, y=0, z=-1}}
onerules = inonerules
table.insert(onerules, out)
tworules = intworules
table.insert(tworules, out)
outrules = {}
outrules = table.insert(outrules, out)
for g in ipairs(gates) do gate = gates[g]
	if g < 3 then
		inrules = inonerules
		rules = onerules
	else
		inrules = intworules
		rules = tworules
	end
	for on=0,1 do
		if on == 1 then
			onoff = "on"
			groups = {dig_immediate=2, not_in_creative_inventory=1, mesecon = 3}
			drop = "mesecons_gates:"..gate.."_off"
			description = "You hacker you!"
		else
			onoff = "off"
			groups = {dig_immediate=2, mesecon = 3}
			drop = nodename
			description = gate.." Gate"
		end

		nodename = "mesecons_gates:"..gate.."_"..onoff

		node_box = {
			type = "fixed",
			fixed = { -8/16, -8/16, -8/16, 8/16, -7/16, 8/16 },
		}

		minetest.register_node(nodename, {
			description = description,
			paramtype = "light",
			drawtype = "nodebox",
			tiles = {
				"jeija_microcontroller_bottom.png^"..
				"jeija_gate_"..onoff..".png^"..
				"jeija_gate_"..gate..".png",
			},
			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, inrules)
	end
end

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

function gate_state(pos)
	name = minetest.env:get_node(pos).name
	return string.find(name, "off") == 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)
	local rules = {{x=1, y=0, z=0}}
	if on then
		if not 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")
				minetest.env:add_node(pos, {name="mesecons_gates:"..gate.."_on"})
				local meta2 = minetest.env:get_meta(pos)
				meta2:set_int("heat", heat)
				mesecon:receptor_on(pos, rules)
			end
		end
	else
		if 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")
				minetest.env:add_node(pos, {name="mesecons_gates:"..gate.."_off"})
				local meta2 = minetest.env:get_meta(pos)
				meta2:set_int("heat", heat)
				mesecon:receptor_off(pos, rules)
			end
		end
	end
end

function update_gate(pos)
	gate = get_gate(pos)
	L = yc_get_real_portstates(pos)
	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)