elepower/elepower_machines/machines/bases/crafter.lua

-- This is a crafter type machine base.
-- It accepts a recipe type registered beforehand.

-- Specialized formspec for crafters
function ele.formspec.get_crafter_formspec(craft_type, power, percent, pos, machine_name, state)
	local craftstats = elepm.craft.types[craft_type]
	local craft_reg_path = elepm.craft[craft_type]
	local input_size  = craftstats.inputs
	local material_inputs = {}
	local mat_inputs = "|"
	local formspec_inout_icon_tooltip
	local icon_def_slot_1 = minetest.registered_nodes[machine_name].ele_icon_material_1 or "elepower_gui_icon_crafter_genmat_1.png"
	local icon_def_slot_2 = minetest.registered_nodes[machine_name].ele_icon_material_2 or "elepower_gui_icon_crafter_genmat_2.png"
	local icon_def_slot_3 = minetest.registered_nodes[machine_name].ele_icon_material_3 or "elepower_gui_icon_crafter_genmat_3.png"

	-- Start add icons and tooltips for input slots
	-- setting material name values to keys helps remove duplicates
	-- for cooking we have to retrieve from MT engine	
	if craft_type == "cooking" then	
		local sort_output = {}
		for name,def in pairs(minetest.registered_items) do
			local recipe = minetest.get_all_craft_recipes(name)
			
			if recipe ~= nil then				
				for k,v in pairs(recipe) do
					if v.method == "cooking" and v.output ~= "" then
						local reg_name = v.items[1]
						
						if string.find(reg_name, "group") ~= nil then
							description = string.gsub(reg_name, "group:","All ")							
						else							
							description = minetest.registered_items[reg_name].description
						end	
						material_inputs[description] = 1						 
					end
				end				
			end			
		end		
	else
		for k,v in pairs(craft_reg_path) do		
			for k2,v2 in pairs(v.recipe)do			
				-- have to check all registered items
				if minetest.registered_items[k2] then
					local description = minetest.registered_items[k2].description
					
					-- remove any text on 2nd/3rd line
					if string.find(description,"\n") then
						description = string.split(description,"\n")
						description = description[1]
					end						
					material_inputs[description] = 1
				end
			end
		end
	end	
	
	-- reverse table so we can sort
	local material_in_sort = {}
	for k,v in pairs(material_inputs)do
		table.insert(material_in_sort,k)
	end
		table.sort(material_in_sort)

	for k,mat_desc in pairs(material_in_sort) do		
			mat_inputs = mat_inputs.."\n"..mat_desc
	end	
	mat_inputs = string.gsub(mat_inputs, "|\n","")

	--adjust tooltip and layout depending on if we have 1/2/3 input slots
	if input_size == 1 then					
		formspec_inout_icon_tooltip = "image[1.7,2.45;0.5,0.5;"..icon_def_slot_1.."]"..
		                              "tooltip[1.5,2.0;1,1;"..mat_inputs..";#30434c;#0399c6]"--"tooltip[1.5,2.0;1,1;"..minetest.colorize("#0399c6",mat_inputs).."]"

	elseif input_size == 2 then
		formspec_inout_icon_tooltip = "image[1.2,2.45;0.5,0.5;"..icon_def_slot_1.."]"..
		                              "tooltip[1.0,2.0;1,1;"..mat_inputs..";#30434c;#0399c6]"..
		                              "image[2.2,2.45;0.5,0.5;"..icon_def_slot_2.."]"..
									  "tooltip[2.0,2.0;1,1;"..mat_inputs..";#30434c;#0399c6]"

	else 
		formspec_inout_icon_tooltip = "image[1.2,2.45;0.5,0.5;"..icon_def_slot_1.."]"..
		                              "tooltip[1.0,2.0;1,1;"..mat_inputs..";#30434c;#0399c6]"..
		                              "image[2.2,2.45;0.5,0.5;"..icon_def_slot_2.."]"..
									  "tooltip[2.0,2.0;1,1;"..mat_inputs..";#30434c;#0399c6]"..
									  "image[3.2,2.45;0.5,0.5;"..icon_def_slot_3.."]"..
									  "tooltip[3.0,2.0;1,1;"..mat_inputs..";#30434c;#0399c6]"	
	end
	-- End add icons tooltips for in slots
		
	local gui_name = "gui_furnace_arrow"
	if craftstats.gui_name then
		gui_name = craftstats.gui_name
	end

	local bar = "image[4,1.5;1,1;"..gui_name.."_bg.png^[transformR270]"

	if percent ~= nil then
		bar = "image[4,1.5;1,1;"..gui_name.."_bg.png^[lowpart:"..
			  (percent)..":"..gui_name.."_fg.png^[transformR270]"
	end

	local in_width  = input_size
	local in_height = 1

	for n = 2, 4 do
		if input_size % n == 0 and input_size ~= n then
			in_width  = input_size / n
			in_height = input_size / n
		end
	end

	local y = 1.5
	local x = 1.5
	
	if in_height == 2 then
		y = 1
	elseif in_height >= 3 then
		y = 0.5
	end

	if in_width >= 2 then
		x = 1
	end

	return "size[8,8.5]"..
		default.gui_bg..
		default.gui_bg_img..
		default.gui_slots..
		ele.formspec.power_meter(power)..
		ele.formspec.state_switcher(7, 0, state)..
		"list[context;src;"..x..","..y..";"..in_width..","..in_height..";]"..
		bar..
		formspec_inout_icon_tooltip..	
		"list[context;dst;5,1;2,2;]"..
		"list[current_player;main;0,4.25;8,1;]"..
		"list[current_player;main;0,5.5;8,3;8]"..
		"listring[current_player;main]"..
		"listring[context;src]"..
		"listring[current_player;main]"..
		"listring[context;dst]"..
		"listring[current_player;main]"..
		default.get_hotbar_bg(0, 4.25)
end


-- Don't duplicate function for every single crafter node
function crafter_timer (pos, elapsed)
	local refresh = false
	local meta    = minetest.get_meta(pos)
	local inv     = meta:get_inventory()

	-- Specialized for universal crafter node
	local machine_node = minetest.get_node(pos).name
	local machine_def     = minetest.registered_nodes[machine_node]

	-- If this is an active node, get the inactive version
	if machine_def.groups['ele_active'] == 1 then
		machine_node = machine_def.drop -- Reliable
		machine_def = minetest.registered_nodes[machine_node]
	end

	local capacity = ele.helpers.get_node_property(meta, pos, "capacity")
	local usage    = ele.helpers.get_node_property(meta, pos, "usage")
	local storage  = ele.helpers.get_node_property(meta, pos, "storage")
	local speed    = ele.helpers.get_node_property(meta, pos, "craft_speed")
	local time     = meta:get_int("src_time")
	local state    = meta:get_int("state")
	local status   = "Idle"

	local is_enabled = ele.helpers.state_enabled(meta, pos, state)
	local res_time = 0

	local get_formspec = machine_def.get_formspec or ele.formspec.get_crafter_formspec

	local pow_buffer = {capacity = capacity, storage = storage, usage = 0}

	-- Default craft speed is 1
	if speed == 0 then speed = 1 end

	while true do
		if not is_enabled then
			time = 0
			status = "Off"
			break
		end

		local result = elepm.get_recipe(machine_def.craft_type, inv:get_list("src"))
		local power_operation = false

		-- Determine if there is enough power for this action
		res_time = result.time
		if result.time ~= 0 and pow_buffer.storage >= usage then
			power_operation = true
			pow_buffer.usage = usage
		end

		if result.time == 0 or not power_operation then
			ele.helpers.swap_node(pos, machine_node)
			
			if result.time == 0 then
				time = 0
				status = "Idle"
			else
				status = "Out of Power!"
			end

			break
		end

		refresh = true
		status = "Active"

		-- One step
		pow_buffer.storage = pow_buffer.storage - usage
		time = time + ele.helpers.round(speed * 10)

		if machine_def.ele_active_node then
			local active_node = machine_node.."_active"
			if machine_def.ele_active_node ~= true then
				active_node = machine_def.ele_active_node
			end

			ele.helpers.swap_node(pos, active_node)
		end

		if time <= ele.helpers.round(result.time * 10) then
			break
		end

		local output = result.output
		if type(output) ~= "table" then output = { output } end
		local output_stacks = {}
		for _, o in ipairs(output) do
			table.insert(output_stacks, ItemStack(o))
		end

		local room_for_output = true
		inv:set_size("dst_tmp", inv:get_size("dst"))
		inv:set_list("dst_tmp", inv:get_list("dst"))

		for _, o in ipairs(output_stacks) do
			if not inv:room_for_item("dst_tmp", o) then
				room_for_output = false
				break
			end
			inv:add_item("dst_tmp", o)
		end

		if not room_for_output then
			ele.helpers.swap_node(pos, machine_node)
			time = ele.helpers.round(res_time*10)
			status = "Output Full!"
			break
		end

		time = 0
		inv:set_list("src", result.new_input)
		inv:set_list("dst", inv:get_list("dst_tmp"))
		break
	end

	local pct = 0
	if res_time > 0 and time > 0 then
		pct = math.floor((time / ele.helpers.round(res_time * 10)) * 100)
	end

	meta:set_string("formspec", get_formspec(machine_def.craft_type, pow_buffer, pct, pos ,minetest.get_node(pos).name,state))
	meta:set_string("infotext", ("%s %s"):format(machine_def.description, status) ..
		"\n" .. ele.capacity_text(capacity, storage))

	meta:set_int("src_time", time)
	meta:set_int("storage", pow_buffer.storage)

	return refresh
end

function elepm.register_crafter(nodename, nodedef)
	local craft_type = nodedef.craft_type
	if not craft_type or not elepm.craft.types[craft_type] then
		return nil
	end

	if not nodedef.groups then
		nodedef.groups = {}
	end

	nodedef.groups["ele_machine"] = 1
	nodedef.groups["ele_user"]    = 1
	nodedef.groups["tubedevice"]  = 1
	nodedef.groups["tubedevice_receiver"] = 1

	nodedef.on_timer = crafter_timer

	-- Allow for custom formspec
	local get_formspec = ele.formspec.get_crafter_formspec
	if nodedef.get_formspec then
		get_formspec = nodedef.get_formspec
	end

	local sizes = elepm.craft.types[craft_type]
	nodedef.on_construct = function (pos)
		local meta = minetest.get_meta(pos)
		local inv  = meta:get_inventory()
		inv:set_size("src", sizes.inputs)
		inv:set_size("dst", 4)

		local storage  = ele.helpers.get_node_property(meta, pos, "storage")
		local capacity = ele.helpers.get_node_property(meta, pos, "capacity")
		local pow_buffer = {capacity = capacity, storage = storage, usage = 0}
		meta:set_string("formspec", get_formspec(craft_type, pow_buffer, nil, pos,nodename))
	end

	-- Upgradable
	nodedef.ele_upgrades = {
		machine_chip = {"craft_speed", "usage", "inrush"},
		capacitor    = {"capacity"},
	}

	ele.register_machine(nodename, nodedef)
end