ma_pops_furniture/microwave.lua

--microwave code by Wizzerine
--item_percent code by Noodlemire

local microwave_fs = 
	"size[9,9.5]"
	.."background[0,0;9,4.5;mp_microwave_GUI.png]"
	.."image_button[6.88,3.45;.85,.84;mp_microwave_start.png;btn_start;start]"
	.."image[7.05,.05;2,.4;mp_mw_bar.png^[transformR270]"
	.."list[current_player;main;.5,5;8,1;]"
	.."list[current_player;main;.5,6.5;8,3;8]"
	.."list[context;cook_slot;3.3,3;1,1;]"
	.."label[1.5,0.4;Microwave]"
 -- possibly add "fire" image?

local function get_active_microwave_fs(item_percent)
	return "size[9,9.5]"
		.."background[0,0;9,4.5;mp_microwave_GUI.png]"
		.."image_button[6.88,3.45;.85,.84;mp_microwave_start.png;btn_start;start]"
		.."image[7.05,.05;2,.4;mp_mw_bar.png^[lowpart:"
		..(item_percent)..":mp_mw_bar_on.png^[transformR270]"
		.."list[current_player;main;.5,5;8,1;]"
		.."list[current_player;main;.5,6.5;8,3;8]"
		.."list[context;cook_slot;3.3,3;1,1;]"
		.."label[1.5,0.4;Microwave]"
		-- possibly add "fire" image?
end

--x,y;w,h

-- Adding recipe API so we don't end up hardcoding items
ma_pops_furniture.microwave = {}
local microwave = ma_pops_furniture.microwave
microwave.recipes = {}
function microwave.register_recipe(input, output) microwave.recipes[input] = output end

local function update_formspec(progress, goal, meta)
	local formspec

	if progress > 0 and progress <= goal then
		local item_percent = math.floor(progress / goal * 100)
		formspec = get_active_microwave_fs(item_percent)
	else
		formspec = microwave_fs
	end

	meta:set_string("formspec", formspec)
end

local function recalculate(pos)
	local meta, timer = minetest.get_meta(pos), minetest.get_node_timer(pos)
	local inv = meta:get_inventory()
	local stack = inv:get_stack("cook_slot", 1)
	local goal = 3 * stack:get_count()

	local k = microwave.recipes[stack:get_name()]
	if not k then return end

	timer:stop()
	update_formspec(0, goal, meta)
	timer:start(1)
end

local function do_cook_all(pos)
	local meta = minetest.get_meta(pos)
	local inv = meta:get_inventory()
	local stack = meta:get_inventory():get_stack("cook_slot", 1)
	local food_uncooked = inv:remove_item("cook_slot", inv:get_stack("cook_slot", 1)) -- Clear the slot
	local food_cooked = microwave.recipes[food_uncooked:get_name()] .. " " .. tostring(food_uncooked:get_count()) -- Get the cooked food
	inv:add_item("cook_slot", food_cooked) -- Put the cooked food in the slot
end

minetest.register_node("ma_pops_furniture:microwave", {
	description = "Microwave",
	tiles = {"mp_mw_top.png", "mp_mw_bottom.png", "mp_mw_right.png", "mp_mw_left.png", "mp_mw_back.png", "mp_mw_front.png"},
	paramtype2 = "facedir",
	groups = {cracky = 2}, -- currently no pipeworks compat as I don't know how it works
	sounds = moditems.STONE_SOUNDS,
	drawtype = "nodebox",
	node_box = {
		type = "fixed",
		fixed = {
			{-0.4375, -0.4375, -0.3125, 0.4375, 0.0625, 0.3125},
			{-0.375, -0.5, -0.25, 0.375, -0.4375, 0.25},
		},
	},
	can_dig = function(pos, player)
		local meta = minetest.get_meta(pos)
		local inv = meta:get_inventory()
		return inv:is_empty("cook_slot")
	end,

	on_timer = function(pos, elapsed)
		local meta = minetest.get_meta(pos)
		local stack = meta:get_inventory():get_stack("cook_slot", 1)
		local goal = 3 * stack:get_count()
		local cooking_time = meta:get_int("cooking_time") or 0
		cooking_time = cooking_time + 1

		update_formspec(cooking_time, goal, meta)
		meta:set_int("cooking_time", cooking_time)

		--Keep cooking until there is nothing left to cook.
		if cooking_time <= goal then
			return true
		else
			do_cook_all(pos)
			meta:set_int("cooking_time", 0)
			update_formspec(0, goal, meta)
			return false
		end
	end,
	
	--on_metadata_inventory_put = recalculate,
	--on_metadata_inventory_take = recalculate,

	on_construct = function(pos)
		local meta = minetest.get_meta(pos)
		meta:set_string("formspec", microwave_fs)
		local inv = meta:get_inventory()
		inv:set_size("cook_slot", 1)
	end,

	on_receive_fields = function(pos, _, fields)
		if fields.quit then return end
		if fields.btn_start then
			recalculate(pos)
		end
	end,

	on_blast = function(pos)
		local drops = {}
		default.get_inventory_drops(pos, "cook_slot", drops)
		table.insert(drops, "ma_pops_furniture:microwave")
		minetest.remove_node(pos)
		return drops
	end,

	allow_metadata_inventory_put = function(pos, list, index, stack, player)
		return microwave.recipes[stack:get_name()] and stack:get_count() or 0
	end,

	--Only allow items to be taken if the microwave hasn't started yet
	allow_metadata_inventory_take = function(pos, listname, index, stack, player)
		if not minetest.get_node_timer(pos):is_started() then
			return stack:get_count()
		else
			return 0
		end
	end
})

-- Recipe Registration
microwave.register_recipe("default:ice", "default:water_source")
-- No milk bucket as this doesn't support substitutes for now
microwave.register_recipe("mobs_mc:chicken_raw", "mobs_mc:chicken_cooked")
--[[ We don't need to check mod existance when registering recipe
Recipe won't even be executed if there is no raw chicken in input ]]--
microwave.register_recipe("mobs_mc:beef_raw", "mobs_mc:beef_cooked")
microwave.register_recipe("mobs:meat_raw", "mobs:meat")
microwave.register_recipe("farming:coffee_cup", "farming:coffee_cup_hot") -- What a crutch there was...
microwave.register_recipe("farming:corn", "farming:corn_cob")
-- Add needed recipes as you go, note that other mods can add more recipes too