pipeworks/autocrafter.lua

local autocrafterCache = {}

function addCacheEntry(pos, recipe, result, new)
	if autocrafterCache[pos.x] == nil then autocrafterCache[pos.x] = {} end
	if autocrafterCache[pos.x][pos.y] == nil then autocrafterCache[pos.x][pos.y] = {} end
	if autocrafterCache[pos.x][pos.y][pos.z] == nil then autocrafterCache[pos.x][pos.z] = {} end
	autocrafterCache[pos.x][pos.y][pos.z] = {["recipe"] = recipe, ["result"] = result, ["new"] = new}
end

function getCacheEntry(pos)
	if autocrafterCache[pos.x] == nil then return nil, nil, nil end
	if autocrafterCache[pos.x][pos.y] == nil then return nil, nil, nil end
	if autocrafterCache[pos.x][pos.y][pos.z] == nil then return nil, nil, nil end
	return autocrafterCache[pos.x][pos.y][pos.z]["recipe"], autocrafterCache[pos.x][pos.y][pos.z]["result"], autocrafterCache[pos.x][pos.y][pos.z]["new"]
end

function autocraft(inventory, pos)
	local recipe = inventory:get_list("recipe")
		local recipe_last
		local result
		local new

		recipe_last, result, new = getCacheEntry(pos)
		if recipe_last ~= nil then
			local recipeUnchanged = true
			for i = 1, 9 do
				--print ("recipe_base"..i.." ")
				--print (recipe[i]:get_name())
				--print (recipe[i]:get_count())
				--print (recipe_last[i]:get_name())
				--print (recipe_last[i]:get_count())
				if recipe[i]:get_name() ~= recipe_last[i]:get_name() then
					recipeUnchanged = False
					break
				end
				if recipe[i]:get_count() ~= recipe_last[i]:get_count() then
					recipeUnchanged = False
					break
				end
			end
			if recipeUnchanged then
				-- print("autocrafter recipe unchanged")
			else
				print("autocrafter recipe changed at pos("..pos.x..","..pos.y..","..pos.z..")")
				for i = 1, 9 do
						recipe_last[i] = recipe[i]
						recipe[i] = ItemStack({name = recipe[i]:get_name(), count = 1})
				end
				result, new = minetest.get_craft_result({method = "normal", width = 3, items = recipe})
				addCacheEntry(pos, recipe_last, result, new)
			end
		else
			print("first call for this autocrafter at pos("..pos.x..","..pos.y..","..pos.z..")")
			recipe_last = {}
			for i = 1, 9 do
				recipe_last[i] = recipe[i]
				--print (recipe_last[i]:get_name())
				recipe[i] = ItemStack({name = recipe[i]:get_name(), count = 1})
			end
			result, new = minetest.get_craft_result({method = "normal", width = 3, items = recipe})
			addCacheEntry(pos, recipe_last, result, new)
		end

		local input = inventory:get_list("input")
	if result.item:is_empty() then return end
	result = result.item
	if not inventory:room_for_item("dst", result) then return end
	local to_use = {}
	for _, item in ipairs(recipe) do
		if item~= nil and not item:is_empty() then
			if to_use[item:get_name()] == nil then
				to_use[item:get_name()] = 1
			else
				to_use[item:get_name()] = to_use[item:get_name()]+1
			end
		end
	end
	local stack
	for itemname, number in pairs(to_use) do
		stack = ItemStack({name = itemname, count = number})
		if not inventory:contains_item("src", stack) then return end
	end
	for itemname, number in pairs(to_use) do
		stack = ItemStack({name = itemname, count = number})
		inventory:remove_item("src", stack)
	end
	inventory:add_item("dst", result)
	for i = 1, 9 do
		inventory:add_item("dst", new.items[i])
	end
end

minetest.register_node("pipeworks:autocrafter", {
	description = "Autocrafter", 
	drawtype = "normal", 
	tiles = {"pipeworks_autocrafter.png"}, 
	groups = {snappy = 3, tubedevice = 1, tubedevice_receiver = 1}, 
	tube = {insert_object = function(pos, node, stack, direction)
			local meta = minetest.get_meta(pos)
			local inv = meta:get_inventory()
			return inv:add_item("src", stack)
		end, 
		can_insert = function(pos, node, stack, direction)
			local meta = minetest.get_meta(pos)
			local inv = meta:get_inventory()
			return inv:room_for_item("src", stack)
		end, 
		input_inventory = "dst", 
		connect_sides = {left = 1, right = 1, front = 1, back = 1, top = 1, bottom = 1}}, 
	on_construct = function(pos)
		local meta = minetest.get_meta(pos)
		meta:set_string("formspec",
				"size[8,11]"..
				"list[current_name;recipe;0,0;3,3;]"..
				"list[current_name;src;0,3.5;8,3;]"..
				"list[current_name;dst;4,0;4,3;]"..
				"list[current_player;main;0,7;8,4;]")
		meta:set_string("infotext", "Autocrafter")
		local inv = meta:get_inventory()
		inv:set_size("src", 3*8)
		inv:set_size("recipe", 3*3)
		inv:set_size("dst", 4*3)
	end, 
	can_dig = function(pos, player)
		local meta = minetest.get_meta(pos); 
		local inv = meta:get_inventory()
		return (inv:is_empty("src") and inv:is_empty("recipe") and inv:is_empty("dst"))
	end, 
	after_place_node = tube_scanforobjects, 
	after_dig_node = tube_scanforobjects, 
})

minetest.register_abm({nodenames = {"pipeworks:autocrafter"}, interval = 1, chance = 1, 
			action = function(pos, node)
				local meta = minetest.get_meta(pos)
				local inv = meta:get_inventory()
				autocraft(inv, pos)
			end
})