ExchangeClone/exchangeclone/emc_link.lua

local S = minetest.get_translator()

local formspec = table.concat({
    "size[",(exchangeclone.mcl and 9 or 8),",9]",
    "label[1,2;",S("Input"),"]",
    "list[context;src;2,2;1,1;]",
    "label[4,1;",S("Target"),"]",
    "list[context;target;3,1;1,1;]",
    "label[4,2;",S("Star"),"]",
    "list[context;fuel;3,2;1,1;]",
    "label[4,3;",S("Output"),"]",
    "list[context;dst;3,3;1,1;]",
    exchangeclone.inventory_formspec(0,5),
    "listring[current_player;main]",
    "listring[context;src]",
    "listring[current_player;main]",
    "listring[context;fuel]",
    "listring[current_player;main]",
    "listring[context;target]",
    "listring[current_player;main]",
    "listring[context;dst]",
})
if exchangeclone.mcl then
    formspec = formspec..
    mcl_formspec.get_itemslot_bg(3,1,1,3)..
    mcl_formspec.get_itemslot_bg(2,2,1,1)
end

local function link_action(pos)
    local player
    local meta = minetest.get_meta(pos)
    local inv = meta:get_inventory()
    local limit
    local using_star
    local input_stack = inv:get_stack("src", 1)
    local stored_emc
    local target = inv:get_stack("target", 1):get_name()
    local output_stack = inv:get_stack("dst", 1)
    local in_indiv_emc = exchangeclone.get_item_emc(input_stack:peek_item(1)) or 0
    local target_emc = exchangeclone.get_item_emc(target)
    local stack_max = ItemStack(target):get_stack_max()

    local star_stack = inv:get_stack("fuel", 1)
    if minetest.get_item_group(star_stack:get_name(), "klein_star") > 0 then
        using_star = true
        limit = exchangeclone.get_star_max(star_stack)
        stored_emc = exchangeclone.get_star_itemstack_emc(star_stack)
    else
        using_star = false
        limit = exchangeclone.limit
        player = minetest.get_player_by_name(meta:get_string("exchangeclone_placer"))
        stored_emc = exchangeclone.get_player_emc(player)
    end
    -- Construct
    if target ~= "" and (output_stack:is_empty() or exchangeclone.handle_alias(output_stack) == target) then
        local out_count = math.min(stack_max - output_stack:get_count(), math.floor(stored_emc/target_emc))
        if out_count > 0 then
            inv:add_item("dst", ItemStack(target.." "..out_count))
            if using_star then
                minetest.log(dump({out_count = out_count, target_emc = target_emc}))
                exchangeclone.add_star_emc(inv, "fuel", 1, -out_count*target_emc)
            else
                exchangeclone.add_player_emc(player, -out_count*target_emc)
            end
        end
    end

    -- Deconstruct
    if not input_stack:is_empty() and stored_emc < limit then
        local max_count = math.min(math.floor((limit - stored_emc)/in_indiv_emc), input_stack:get_count())
        if max_count > 0 then
            inv:remove_item("src", ItemStack(input_stack:get_name().." "..max_count))
            if using_star then
                exchangeclone.add_star_emc(inv, "fuel", 1, max_count*in_indiv_emc)
            else
                exchangeclone.add_player_emc(player, max_count*in_indiv_emc)
            end
        end
    end

    local timer = minetest.get_node_timer(pos)
    if inv:get_stack("src", 1):is_empty() and inv:get_stack("target", 1):is_empty() then
        timer:stop()
    else
        if not timer:is_started() then
            timer:start(1)
        end
    end
end

local function allow_metadata_inventory_put(pos, listname, index, stack, player)
    if player and player.get_player_name and minetest.is_protected(pos, player:get_player_name()) then
        return 0
    end
    if listname == "fuel" then
        if minetest.get_item_group(stack:get_name(), "klein_star") > 0 then
            return stack:get_count()
        end
    elseif listname == "src" then
        local emc = exchangeclone.get_item_emc(stack)
        if emc and emc > 0 then
            return stack:get_count()
        end
    elseif listname == "target" then
        local single_item = stack:peek_item(1)
        local emc = exchangeclone.get_item_emc(single_item)
        if emc and emc > 0 then
            minetest.get_meta(pos):get_inventory():set_stack("target", 1, ItemStack(exchangeclone.handle_alias(single_item)))
            link_action(pos)
        end
    end
    return 0
end

local function allow_metadata_inventory_move(pos, from_list, from_index, to_list, to_index, count, player)
    local meta = minetest.get_meta(pos)
    local inv = meta:get_inventory()
    local stack = inv:get_stack(from_list, from_index)
    return allow_metadata_inventory_put(pos, to_list, to_index, stack, player)
end

local function allow_metadata_inventory_take(pos, listname, index, stack, player)
    if minetest.is_protected(pos, player:get_player_name()) then
        return 0
    end
    if listname == "target" then
        minetest.get_meta(pos):get_inventory():set_stack("target", 1, ItemStack(""))
        link_action(pos)
        return 0
    else
        return stack:get_count()
    end
end

minetest.register_node("exchangeclone:emc_link", {
    description = "EMC Link\nAllows automation with personal EMC",
    tiles = {"exchangeclone_emc_link.png"},
	groups = {pickaxey=4, material_stone=1, cracky = 2, building_block = 1, level = exchangeclone.mtg and 2 or 0, tubedevice = 1, tubedevice_receiver = 1, container = exchangeclone.mcl2 and 2 or 4},
    on_construct = function(pos)
        local meta = minetest.get_meta(pos)
        local inv = meta:get_inventory()
        inv:set_size("fuel", 1)
        inv:set_size("src", 1)
        inv:set_size("dst", 1)
        inv:set_size("target", 1)
        meta:set_string("infotext", "EMC Link")
        meta:set_string("formspec", formspec)
    end,
    can_dig = exchangeclone.can_dig,
    after_dig_node = exchangeclone.drop_after_dig({"src", "fuel", "dst"}),
    on_blast = exchangeclone.on_blast({"src", "fuel", "dst"}),
    after_place_node = function(pos, player, itemstack, pointed_thing)
        local player_name = player:get_player_name()
        local meta = minetest.get_meta(pos)
        meta:set_string("exchangeclone_placer", player_name)
        meta:set_string("infotext", "EMC Link".."\n".."Owned by "..player_name)
        if exchangeclone.pipeworks then
            pipeworks.after_place(pos, player, itemstack, pointed_thing)
        end
    end,
    on_metadata_inventory_put = link_action,
    on_metadata_inventory_move = link_action,
    on_metadata_inventory_take = link_action,
    on_timer = link_action,
	sounds = exchangeclone.sound_mod.node_sound_stone_defaults(),
	_mcl_blast_resistance = 10,
	_mcl_hardness = 8,
    allow_metadata_inventory_move = allow_metadata_inventory_move,
    allow_metadata_inventory_put = allow_metadata_inventory_put,
    allow_metadata_inventory_take = allow_metadata_inventory_take,
	_mcl_hoppers_on_try_pull = exchangeclone.mcl2_hoppers_on_try_pull(),
	_mcl_hoppers_on_try_push = exchangeclone.mcl2_hoppers_on_try_push(nil, function(stack) return minetest.get_item_group(stack:get_name(), "klein_star") > 0 end),
	_mcl_hoppers_on_after_push = function(pos)
		minetest.get_node_timer(pos):start(1.0)
	end,
	_on_hopper_in = exchangeclone.mcla_on_hopper_in(
        nil,
        function(stack) return minetest.get_item_group(stack:get_name(), "klein_star") > 0 end
    ),
})

if exchangeclone.pipeworks then
    local function get_list(direction)
        return (direction.y == 0 and "src") or "fuel"
    end
    minetest.override_item("exchangeclone:emc_link", {
        tube = {
            input_inventory = "dst",
            connect_sides = {left = 1, right = 1, back = 1, front = 1, bottom = 1, top = 1},
            insert_object = function(pos, node, stack, direction)
                local meta = minetest.get_meta(pos)
                local inv = meta:get_inventory()
                local result = inv:add_item(get_list(direction), stack)
                if result then
                    link_action(pos)
                end
                return result
            end,
            can_insert = function(pos, node, stack, direction)
                local meta = minetest.get_meta(pos)
                local inv = meta:get_inventory()
                if get_list(direction) == "fuel" then
                    if minetest.get_item_group(stack:get_name(), "klein_star") > 0 then
                        return inv:room_for_item("fuel", stack)
                    end
                else
                    return inv:room_for_item("src", stack)
                end
            end,
        },
        on_rotate = pipeworks.on_rotate,
    })
end