Add "Tags Sorting Pneumatic Tube Segment".

Signed-off-by: Slava Zanko <slavazanko@gmail.com>

crafts.lua

@@ -223,6 +223,17 @@ if pipeworks.enable_mese_tube then
 	})
 end
 
+if pipeworks.enable_item_tags and pipeworks.enable_tags_tube then
+	local book_item = "default:book"
+	minetest.register_craft({
+		output = "pipeworks:tags_tube_000000",
+		recipe = {
+			{ book_item, book_item,                    book_item },
+			{ book_item, "pipeworks:mese_tube_000000", book_item },
+			{ book_item, book_item,                    book_item },
+		}
+	})
+end
 if pipeworks.enable_sand_tube then
 	minetest.register_craft( {
 		output = "pipeworks:sand_tube_1 2",

default_settings.lua

@@ -5,6 +5,7 @@ local prefix = "pipeworks_"
 local settings = {
 	enable_pipes = true,
 	enable_item_tags = true,
+	enable_tags_tube = true,
 	enable_lowpoly = false,
 	enable_autocrafter = true,
 	enable_deployer = true,

init.lua

@@ -70,6 +70,7 @@ dofile(pipeworks.modpath.."/tubes/sorting.lua")
 dofile(pipeworks.modpath.."/tubes/signal.lua")
 loadfile(pipeworks.modpath.."/tubes/embedded_tube.lua")(materials)
 dofile(pipeworks.modpath.."/tubes/pane_embedded_tube.lua")
+dofile(pipeworks.modpath.."/tubes/tags.lua")
 
 if pipeworks.enable_teleport_tube then
 	dofile(pipeworks.modpath.."/tubes/teleport.lua")

tubes/tags.lua

@@ -0,0 +1,146 @@
+local S = minetest.get_translator("pipeworks")
+local fs_helpers = pipeworks.fs_helpers
+
+if not pipeworks.enable_tags_tube then return end
+
+local notag_name = "<<notag>>"
+local tube_name = "pipeworks:tags_tube"
+local tube_description = S("Tags Sorting Pneumatic Tube Segment")
+
+local safe_tags = function(tags)
+    local length_limit = tonumber(minetest.settings:get("pipeworks_item_tag_name_limit") or "30")
+    return tags:sub(1, length_limit * 6)
+end
+
+local update_formspec = function(pos)
+    local meta = minetest.get_meta(pos)
+    local buttons_formspec = ""
+    for i = 0, 5 do
+        buttons_formspec = buttons_formspec .. fs_helpers.cycling_button(meta,
+            "image_button[9," .. (i + (i * 0.25) + 1.5) .. ";1,0.6", "l" .. (i + 1) .. "s",
+            {
+                pipeworks.button_off,
+                pipeworks.button_on
+            }
+        )
+    end
+    local size = "10.2,10"
+    meta:set_string("formspec",
+        "formspec_version[2]" ..
+        "size[" .. size .. "]" ..
+        "item_image[0.2,0.2;1,1;  " .. tube_name .. "]" ..
+        "label[1.5,0.75;" .. minetest.formspec_escape(tube_description) .. "]" ..
+        pipeworks.fs_helpers.get_prepends(size) ..
+        "field[1.5,1.25;7.25,1;tags1;;${tags1}]" ..
+        "field[1.5,2.5;7.25,1;tags2;;${tags2}]" ..
+        "field[1.5,3.75;7.25,1;tags3;;${tags3}]" ..
+        "field[1.5,5.0;7.25,1;tags4;;${tags4}]" ..
+        "field[1.5,6.25;7.25,1;tags5;;${tags5}]" ..
+        "field[1.5,7.5;7.25,1;tags6;;${tags6}]" ..
+
+        "image[0.22,1.25;1,1;pipeworks_white.png]" ..
+        "image[0.22,2.50;1,1;pipeworks_black.png]" ..
+        "image[0.22,3.75;1,1;pipeworks_green.png]" ..
+        "image[0.22,5.00;1,1;pipeworks_yellow.png]" ..
+        "image[0.22,6.25;1,1;pipeworks_blue.png]" ..
+        "image[0.22,7.50;1,1;pipeworks_red.png]" ..
+        buttons_formspec ..
+        "button[6,8.75;1.5,1;set_items_tags;" .. S("Set") .. "]" ..
+        "button_exit[7.75,8.75;2,1;close;" .. S("Close") .. "]"
+    )
+end
+
+pipeworks.register_tube(tube_name, {
+    description = tube_description,
+    inventory_image = "pipeworks_tag_tube_inv.png",
+    noctr = { "pipeworks_tag_tube_noctr_1.png", "pipeworks_tag_tube_noctr_2.png", "pipeworks_tag_tube_noctr_3.png",
+        "pipeworks_tag_tube_noctr_4.png", "pipeworks_tag_tube_noctr_5.png", "pipeworks_tag_tube_noctr_6.png" },
+    plain = { "pipeworks_tag_tube_plain_1.png", "pipeworks_tag_tube_plain_2.png", "pipeworks_tag_tube_plain_3.png",
+        "pipeworks_tag_tube_plain_4.png", "pipeworks_tag_tube_plain_5.png", "pipeworks_tag_tube_plain_6.png" },
+    ends = { "pipeworks_tag_tube_end.png" },
+    short = "pipeworks_tag_tube_short.png",
+    no_facedir = true, -- Must use old tubes, since the textures are rotated with 6d ones
+    node_def = {
+        tube = {
+            can_go = function(pos, node, velocity, stack)
+                local tbl, tbln = {}, 0
+                local found, foundn = {}, 0
+                local meta = minetest.get_meta(pos)
+                local stack_tag = pipeworks.get_item_tag(stack)
+                if not stack_tag or stack_tag == "" then
+                    stack_tag = notag_name
+                end
+                stack_tag = pipeworks.safe_tag(stack_tag)
+                for i, vect in ipairs(pipeworks.meseadjlist) do
+                    local npos = vector.add(pos, vect)
+                    local node = minetest.get_node(npos)
+                    local reg_node = minetest.registered_nodes[node.name]
+                    if meta:get_int("l" .. i .. "s") == 1 and reg_node then
+                        local tube_def = reg_node.tube
+                        if not tube_def or not tube_def.can_insert or
+                            tube_def.can_insert(npos, node, stack, vect) then
+                            local tags_name = "tags" .. i
+                            local tags = meta:get_string(tags_name)
+                            local is_empty = tags == nil or tags == ""
+                            if not is_empty then
+                                for tag in string.gmatch(tags, "[^,]+") do
+                                    tag = pipeworks.safe_tag(tag)
+                                    if tag and tag == stack_tag then
+                                        foundn = foundn + 1
+                                        found[foundn] = vect
+                                    end
+                                end
+                            end
+                            if is_empty then
+                                tbln = tbln + 1
+                                tbl[tbln] = vect
+                            end
+                        end
+                    end
+                end
+                return (foundn > 0) and found or tbl
+            end
+        },
+        on_construct = function(pos)
+            local meta = minetest.get_meta(pos)
+            local inv = meta:get_inventory()
+            for i = 1, 6 do
+                meta:set_int("l" .. tostring(i) .. "s", 1)
+                inv:set_size("line" .. tostring(i), 6 * 1)
+            end
+            update_formspec(pos)
+            meta:set_string("infotext", S("Tags Sorting pneumatic tube"))
+        end,
+        after_place_node = function(pos, placer, itemstack, pointed_thing)
+            if placer and placer:is_player() and placer:get_player_control().aux1 then
+                local meta = minetest.get_meta(pos)
+                for i = 1, 6 do
+                    meta:set_int("l" .. tostring(i) .. "s", 0)
+                end
+                update_formspec(pos)
+            end
+            return pipeworks.after_place(pos, placer, itemstack, pointed_thing)
+        end,
+        on_receive_fields = function(pos, formname, fields, sender)
+            if (fields.quit and not fields.key_enter_field)
+                or not pipeworks.may_configure(pos, sender) then
+                return
+            end
+
+            local meta = minetest.get_meta(pos)
+            for i = 1, 6 do
+                local field_name = "tags" .. tostring(i)
+                if fields[field_name] then
+                    local safe_tags = safe_tags(fields[field_name])
+                    meta:set_string(field_name, safe_tags)
+                end
+            end
+
+            fs_helpers.on_receive_fields(pos, fields)
+            update_formspec(pos)
+        end,
+        can_dig = function(pos, player)
+            return true
+        end,
+    },
+})