Added a function to register tubes.

Added the mese pipe.

1 files changed, 133 insertions, 33 deletions

diff --git a/tubes.lua b/tubes.lua
index a22c8a9..d788493 100644
--- a/tubes.lua
+++ b/tubes.lua
@@ -17,6 +17,8 @@ minetest.register_node("pipeworks:testobject", {
 	end,
 })
 
+tubenodes={}
+
 -- tables
 
 minetest.register_alias("pipeworks:tube", "pipeworks:tube_000000")
@@ -64,7 +66,7 @@ function tube_addbox(t, b)
 end
 
 -- now define the nodes!
-
+function register_tube(name,desc,plain_textures,noctr_textures,end_textures,short_texture,inv_texture,special)
 for xm = 0, 1 do
 for xp = 0, 1 do
 for ym = 0, 1 do
@@ -78,44 +80,44 @@ for zp = 0, 1 do
 	if yp==1 then
 		tube_addbox(outboxes, tube_topstub)
 		table.insert(outsel, tube_selectboxes[4])
-		table.insert(outimgs, "pipeworks_tube_noctr.png")
+		table.insert(outimgs, noctr_textures[4])
 	else
-		table.insert(outimgs, "pipeworks_tube_plain.png")
+		table.insert(outimgs, plain_textures[4])
 	end
 	if ym==1 then
 		tube_addbox(outboxes, tube_bottomstub)
 		table.insert(outsel, tube_selectboxes[3])
-		table.insert(outimgs, "pipeworks_tube_noctr.png")
+		table.insert(outimgs, noctr_textures[3])
 	else
-		table.insert(outimgs, "pipeworks_tube_plain.png")
+		table.insert(outimgs, plain_textures[3])
 	end
 	if xp==1 then
 		tube_addbox(outboxes, tube_rightstub)
 		table.insert(outsel, tube_selectboxes[2])
-		table.insert(outimgs, "pipeworks_tube_noctr.png")
+		table.insert(outimgs, noctr_textures[2])
 	else
-		table.insert(outimgs, "pipeworks_tube_plain.png")
+		table.insert(outimgs, plain_textures[2])
 	end
 	if xm==1 then
 		tube_addbox(outboxes, tube_leftstub)
 		table.insert(outsel, tube_selectboxes[1])
-		table.insert(outimgs, "pipeworks_tube_noctr.png")
+		table.insert(outimgs, noctr_textures[1])
 	else
-		table.insert(outimgs, "pipeworks_tube_plain.png")
+		table.insert(outimgs, plain_textures[1])
 	end
 	if zp==1 then
 		tube_addbox(outboxes, tube_backstub)
 		table.insert(outsel, tube_selectboxes[6])
-		table.insert(outimgs, "pipeworks_tube_noctr.png")
+		table.insert(outimgs, noctr_textures[6])
 	else
-		table.insert(outimgs, "pipeworks_tube_plain.png")
+		table.insert(outimgs, plain_textures[6])
 	end
 	if zm==1 then
 		tube_addbox(outboxes, tube_frontstub)
 		table.insert(outsel, tube_selectboxes[5])
-		table.insert(outimgs, "pipeworks_tube_noctr.png")
+		table.insert(outimgs, noctr_textures[5])
 	else
-		table.insert(outimgs, "pipeworks_tube_plain.png")
+		table.insert(outimgs, plain_textures[5])
 	end
 
 	local jx = xp+xm
@@ -125,27 +127,27 @@ for zp = 0, 1 do
 	if (jx+jy+jz) == 1 then
 		if xm == 1 then 
 			table.remove(outimgs, 3)
-			table.insert(outimgs, 3, "pipeworks_tube_end.png")
+			table.insert(outimgs, 3, end_textures[3])
 		end
 		if xp == 1 then 
 			table.remove(outimgs, 4)
-			table.insert(outimgs, 4, "pipeworks_tube_end.png")
+			table.insert(outimgs, 4, end_textures[4])
 		end
 		if ym == 1 then 
 			table.remove(outimgs, 1)
-			table.insert(outimgs, 1, "pipeworks_tube_end.png")
+			table.insert(outimgs, 1, end_textures[1])
 		end
 		if xp == 1 then 
 			table.remove(outimgs, 2)
-			table.insert(outimgs, 2, "pipeworks_tube_end.png")
+			table.insert(outimgs, 2, end_textures[2])
 		end
 		if zm == 1 then 
 			table.remove(outimgs, 5)
-			table.insert(outimgs, 5, "pipeworks_tube_end.png")
+			table.insert(outimgs, 5, end_textures[5])
 		end
 		if zp == 1 then 
 			table.remove(outimgs, 6)
-			table.insert(outimgs, 6, "pipeworks_tube_end.png")
+			table.insert(outimgs, 6, end_textures[6])
 		end
 	end
 
@@ -154,27 +156,26 @@ for zp = 0, 1 do
 
 	if tname ~= "000000" then
 		tgroups = {snappy=3, tube=1, not_in_creative_inventory=1}
-		tubedesc = "Pneumatic tube segment ("..tname..")... You hacker, you."
+		tubedesc = desc.." ("..tname..")... You hacker, you."
 		iimg=nil
 		wscale = {x=1,y=1,z=1}
 	else
 		tgroups = {snappy=3, tube=1}
-		tubedesc = "Pneumatic tube segment"
-		iimg="pipeworks_tube_inv.png"
+		tubedesc = desc
+		iimg=inv_texture
 		outimgs = {
-			"pipeworks_tube_short.png",
-			"pipeworks_tube_short.png",
-			"pipeworks_tube_end.png",
-			"pipeworks_tube_end.png",
-			"pipeworks_tube_short.png",
-			"pipeworks_tube_short.png"
+			short_texture,short_texture,
+			end_textures[3],end_textures[4],
+			short_texture,short_texture
 		}
 		outboxes = { -24/64, -9/64, -9/64, 24/64, 9/64, 9/64 }
 		outsel = { -24/64, -10/64, -10/64, 24/64, 10/64, 10/64 }
 		wscale = {x=1,y=1,z=0.01}
 	end
 	
-	minetest.register_node("pipeworks:tube_"..tname, {
+	table.insert(tubenodes,name.."_"..tname)
+	
+	nodedef={
 		description = tubedesc,
 		drawtype = "nodebox",
 		tiles = outimgs,
@@ -194,19 +195,39 @@ for zp = 0, 1 do
 		sounds = default.node_sound_wood_defaults(),
 		walkable = true,
 		stack_max = 99,
-		drop = "pipeworks:tube_000000",
+		drop = name.."_000000",
 		tubelike=1,
 		on_construct = function(pos)
-		local meta = minetest.env:get_meta(pos)
-		meta:set_int("tubelike",1)
+			local meta = minetest.env:get_meta(pos)
+			meta:set_int("tubelike",1)
+			if minetest.registered_nodes[name.."_"..tname].on_construct_ then
+				minetest.registered_nodes[name.."_"..tname].on_construct_(pos)
+			end
 		end,
 		after_place_node = function(pos)
 			tube_scanforobjects(pos)
+			if minetest.registered_nodes[name.."_"..tname].after_place_node_ then
+				minetest.registered_nodes[name.."_"..tname].after_place_node_(pos)
+			end
 		end,
 		after_dig_node = function(pos)
 			tube_scanforobjects(pos)
+			if minetest.registered_nodes[name.."_"..tname].after_dig_node_ then
+				minetest.registered_nodes[name.."_"..tname].after_dig_node_(pos)
+			end
 		end
-	})
+	}
+	
+	if special==nil then special={} end
+
+	for key,value in pairs(special) do
+		if key=="on_construct" or key=="after_dig_node" or key=="after_place_node" then
+			key=key.."_"
+		end
+		nodedef[key]=value
+	end
+	
+	minetest.register_node(name.."_"..tname, nodedef)
 
 end
 end
@@ -214,4 +235,83 @@ end
 end
 end
 end
+end
+
+noctr_textures={"pipeworks_tube_noctr.png","pipeworks_tube_noctr.png","pipeworks_tube_noctr.png",
+		"pipeworks_tube_noctr.png","pipeworks_tube_noctr.png","pipeworks_tube_noctr.png"}
+plain_textures={"pipeworks_tube_plain.png","pipeworks_tube_plain.png","pipeworks_tube_plain.png",
+		"pipeworks_tube_plain.png","pipeworks_tube_plain.png","pipeworks_tube_plain.png"}
+end_textures={"pipeworks_tube_end.png","pipeworks_tube_end.png","pipeworks_tube_end.png",
+		"pipeworks_tube_end.png","pipeworks_tube_end.png","pipeworks_tube_end.png"}
+short_texture="pipeworks_tube_short.png"
+inv_texture="pipeworks_tube_inv.png"
 
+register_tube("pipeworks:tube","Pneumatic tube segment",plain_textures,noctr_textures,end_textures,short_texture,inv_texture)
+
+mese_noctr_textures={"pipeworks_mese_tube_noctr_1.png","pipeworks_mese_tube_noctr_2.png","pipeworks_mese_tube_noctr_3.png",
+		"pipeworks_mese_tube_noctr_4.png","pipeworks_mese_tube_noctr_5.png","pipeworks_mese_tube_noctr_6.png"}
+
+mese_plain_textures={"pipeworks_mese_tube_plain_1.png","pipeworks_mese_tube_plain_2.png","pipeworks_mese_tube_plain_3.png",
+		"pipeworks_mese_tube_plain_4.png","pipeworks_mese_tube_plain_5.png","pipeworks_mese_tube_plain_6.png"}
+mese_end_textures={"pipeworks_mese_tube_end.png","pipeworks_mese_tube_end.png","pipeworks_mese_tube_end.png",
+		"pipeworks_mese_tube_end.png","pipeworks_mese_tube_end.png","pipeworks_mese_tube_end.png"}
+mese_short_texture="pipeworks_mese_tube_short.png"
+mese_inv_texture="pipeworks_mese_tube_inv.png"
+
+
+meseadjlist={{x=0,y=0,z=1},{x=0,y=0,z=-1},{x=0,y=1,z=0},{x=0,y=-1,z=0},{x=1,y=0,z=0},{x=-1,y=0,z=0}}
+
+register_tube("pipeworks:mese_tube","Mese pneumatic tube segment",mese_plain_textures,mese_noctr_textures,
+	mese_end_textures,mese_short_texture,mese_inv_texture,
+	{tube={can_go=function(pos,node,velocity,stack)
+		tbl={}
+		local meta=minetest.env:get_meta(pos)
+		local inv=meta:get_inventory()
+		local found=false
+		local name=stack:get_name()
+		for i,vect in ipairs(meseadjlist) do
+			for _,st in ipairs(inv:get_list("line"..tostring(i))) do
+				if st:get_name()==name then
+					found=true
+					table.insert(tbl,vect)
+				end
+			end
+		end
+		if found==false then
+			for i,vect in ipairs(meseadjlist) do
+				if inv:is_empty("line"..tostring(i)) then
+					table.insert(tbl,vect)
+				end
+			end
+		end
+		return tbl
+	end},
+	on_construct = function(pos)
+		local meta = minetest.env:get_meta(pos)
+		meta:set_string("formspec",
+				"size[8,11]"..
+				"list[current_name;line1;1,0;7,1;]"..
+				"list[current_name;line2;1,1;7,1;]"..
+				"list[current_name;line3;1,2;7,1;]"..
+				"list[current_name;line4;1,3;7,1;]"..
+				"list[current_name;line5;1,4;7,1;]"..
+				"list[current_name;line6;1,5;7,1;]"..
+				"image[0,0;1,1;white.png]"..
+				"image[0,1;1,1;black.png]"..
+				"image[0,2;1,1;green.png]"..
+				"image[0,3;1,1;yellow.png]"..
+				"image[0,4;1,1;blue.png]"..
+				"image[0,5;1,1;red.png]"..
+				"list[current_player;main;0,7;8,4;]")
+		meta:set_string("infotext", "Mese pneumatic tube")
+		local inv = meta:get_inventory()
+		for i=1,6 do
+			inv:set_size("line"..tostring(i), 7*1)
+		end
+	end,
+	can_dig = function(pos,player)
+		local meta = minetest.env:get_meta(pos);
+		local inv = meta:get_inventory()
+		return (inv:is_empty("line1") and inv:is_empty("line2") and inv:is_empty("line3") and
+			inv:is_empty("line4") and inv:is_empty("line5") and inv:is_empty("line6"))
+	end})