summaryrefslogtreecommitdiff
path: root/autoplace_tubes.lua
blob: 385458c7de94a934b5e5cf698dee8ebddec1caf5 (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
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
-- autorouting for pneumatic tubes

local function in_table(table,element)
	for _,el in ipairs(table) do
		if el==element then return true end
	end
	return false
end

local function is_tube(nodename)
	return in_table(pipeworks.tubenodes,nodename)
end

if pipeworks == nil then
	pipeworks = {}
end

--a function for determining which side of the node we are on
local function nodeside(node, tubedir)
	if node and (node.param2 < 0 or node.param2 > 23) then node.param2 = 0 end

	--get a vector pointing back
	local backdir = minetest.facedir_to_dir(node.param2)

	--check whether the vector is equivalent to the tube direction; if it is, the tube's on the backside
	if backdir.x == tubedir.x and backdir.y == tubedir.y and backdir.z == tubedir.z then
		return "back"
	end

	--check whether the vector is antiparallel with the tube direction; that indicates the front
	if backdir.x == -tubedir.x and backdir.y == -tubedir.y and backdir.z == -tubedir.z then
		return "front"
	end

	--facedir is defined in terms of the top-bottom axis of the node; we'll take advantage of that
	local topdir = ({[0]={x=0, y=1, z=0},
	{x=0, y=0, z=1},
	{x=0, y=0, z=-1},
	{x=1, y=0, z=0},
	{x=-1, y=0, z=0},
	{x=0, y=-1, z=0}})[math.floor(node.param2/4)]

	--is this the top?
	if topdir.x == tubedir.x and topdir.y == tubedir.y and topdir.z == tubedir.z then
		return "top"
	end

	--or the bottom?
	if topdir.x == -tubedir.x and topdir.y == -tubedir.y and topdir.z == -tubedir.z then
		return "bottom"
	end

	--we shall apply some maths to obtain the right-facing vector
	local rightdir = {x=topdir.y*backdir.z - backdir.y*topdir.z,
	y=topdir.z*backdir.x - backdir.z*topdir.x,
	z=topdir.x*backdir.y - backdir.x*topdir.y}

	--is this the right side?
	if rightdir.x == tubedir.x and rightdir.y == tubedir.y and rightdir.z == tubedir.z then
		return "right"
	end

	--or the left?
	if rightdir.x == -tubedir.x and rightdir.y == -tubedir.y and rightdir.z == -tubedir.z then
		return "left"
	end

	--we should be done by now; initiate panic mode
	minetest.log("error", "nodeside has been confused by its parameters; see pipeworks autoplace_tubes.lua, line 78")
end

local vts = {0, 3, 1, 4, 2, 5}
local tube_table = {[0] = 1, 2, 2, 4, 2, 4, 4, 5, 2, 3, 4, 6, 4, 6, 5, 7, 2, 4, 3, 6, 4, 5, 6, 7, 4, 6, 6, 8, 5, 7, 7, 9, 2, 4, 4, 5, 3, 6, 6, 7, 4, 6, 5, 7, 6, 8, 7, 9, 4, 5, 6, 7, 6, 7, 8, 9, 5, 7, 7, 9, 7, 9, 9, 10}
local tube_table_facedirs = {[0] = 0, 0, 5, 0, 3, 4, 3, 0, 2, 0, 2, 0, 6, 4, 3, 0, 7, 12, 5, 12, 7, 4, 5, 5, 18, 20, 16, 0, 7, 4, 7, 0, 1, 8, 1, 1, 1, 13, 1, 1, 10, 8, 2, 2, 17, 4, 3, 6, 9, 9, 9, 9, 21, 13, 1, 1, 10, 10, 11, 2, 19, 4, 3, 0}
local function tube_autoroute(pos)
	local active = {0, 0, 0, 0, 0, 0}
	local nctr = minetest.get_node(pos)
	if not is_tube(nctr.name) then return end

	local adjustments = {
		{ x=-1, y=0, z=0 },
		{ x=1, y=0, z=0  },
		{ x=0, y=-1, z=0 },
		{ x=0, y=1, z=0  },
		{ x=0, y=0, z=-1 },
		{ x=0, y=0, z=1 }
	}
	-- xm = 1, xp = 2, ym = 3, yp = 4, zm = 5, zp = 6

	local positions = {}
	local nodes = {}
	for i,adj in ipairs(adjustments) do
		positions[i] = {x=pos.x+adj.x, y=pos.y+adj.y, z=pos.z+adj.z}
		nodes[i] = minetest.get_node(positions[i])
	end

	for i,node in ipairs(nodes) do
		local idef = minetest.registered_nodes[node.name]
		-- handle the tubes themselves
		if is_tube(node.name) then
			active[i] = 1
		-- handle new style connectors
		elseif idef and idef.tube and idef.tube.connect_sides then
			local dir = adjustments[i]
			if idef.tube.connect_sides[nodeside(node, {x=-dir.x, y=-dir.y, z=-dir.z})] then active[i] = 1 end
		end
	end

	-- all sides checked, now figure which tube to use.

	local nodedef = minetest.registered_nodes[nctr.name]
	local basename = nodedef.basename
	local newname
	if nodedef.style == "old" then
		local nsurround = ""
		for i,n in ipairs(active) do
			nsurround = nsurround .. n
		end
		nctr.name = basename.."_"..nsurround
	elseif nodedef.style == "6d" then
		local s = 0
		for i,n in ipairs(active) do
			if n == 1 then
				s = s+2^vts[i]
			end
		end
		nctr.name = basename.."_"..tube_table[s]
		nctr.param2 = tube_table_facedirs[s]
	end
	minetest.swap_node(pos, nctr)
end

function pipeworks.scan_for_tube_objects(pos)
	if pos == nil then return end
	tube_autoroute({ x=pos.x-1, y=pos.y  , z=pos.z   })
	tube_autoroute({ x=pos.x+1, y=pos.y  , z=pos.z   })
	tube_autoroute({ x=pos.x  , y=pos.y-1, z=pos.z   })
	tube_autoroute({ x=pos.x  , y=pos.y+1, z=pos.z   })
	tube_autoroute({ x=pos.x  , y=pos.y  , z=pos.z-1 })
	tube_autoroute({ x=pos.x  , y=pos.y  , z=pos.z+1 })
	tube_autoroute(pos)
end

minetest.register_on_placenode(function(pos, newnode, placer, oldnode, itemstack)
	if minetest.registered_items[newnode.name]
	  and minetest.registered_items[newnode.name].tube
	  and minetest.registered_items[newnode.name].tube.connect_sides then
		pipeworks.scan_for_tube_objects(pos)
	end
end)

minetest.register_on_dignode(function(pos, oldnode, digger)
	if minetest.registered_items[oldnode.name]
	  and minetest.registered_items[oldnode.name].tube
	  and minetest.registered_items[oldnode.name].tube.connect_sides then
		pipeworks.scan_for_tube_objects(pos)
	end
end)

if minetest.get_modpath("mesecons_mvps") ~= nil then
	mesecon:register_on_mvps_move(function(moved_nodes)
		for _, n in ipairs(moved_nodes) do
			pipeworks.scan_for_tube_objects(n.pos)
			pipeworks.scan_for_tube_objects(n.oldpos)
		end
	end)
end