-- IndustrialTest
-- Copyright (C) 2023 mrkubax10

-- This program is free software: you can redistribute it and/or modify
-- it under the terms of the GNU General Public License as published by
-- the Free Software Foundation, either version 3 of the License, or
-- (at your option) any later version.

-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-- GNU General Public License for more details.

-- You should have received a copy of the GNU General Public License
-- along with this program.  If not, see <http://www.gnu.org/licenses/>.

local S=minetest.get_translator("industrialtest")

-- Generators
local function generatorFormspec(fuelPercent,charged)
	local formspec
	if industrialtest.mtgAvailable then
		formspec={
			"formspec_version[4]",
			"size[10.8,12]",
			"label[0.5,0.5;"..S("Generator").."]",
			"list[context;charged;4.9,1.8;1,1]",
			"listring[context;charged]",
			(fuelPercent>0 and "image[4.9,2.8;1,1;default_furnace_fire_bg.png^[lowpart:"..fuelPercent..":default_furnace_fire_fg.png]"
			 or "image[4.9,2.8;1,1;default_furnace_fire_bg.png]"),
			"list[context;fuel;4.9,3.9;1,1]",
			"listring[context;fuel]",
			"box[9,1;0.3,4.8;#202020]",
			(charged>0 and "box[9,"..(1+4.8-(charged*4.8))..";0.3,"..(charged*4.8)..";#FF1010]" or ""),
			"list[current_player;main;0.5,6.25;8,1]list[current_player;main;0.5,7.5;8,3;8]"
		}
	elseif industrialtest.mclAvailable then
		formspec={
			"size[10.04,12]",
			"label[0.25,0.25;"..S("Generator").."]",
			"list[context;charged;4.7,1.8;1,1]",
			mcl_formspec.get_itemslot_bg(4.7,1.8,1,1),
			"listring[context;charged]",
			(fuelPercent>0 and "image[4.7,2.8;1,1;default_furnace_fire_bg.png^[lowpart:"..fuelPercent..":default_furnace_fire_fg.png]"
			 or "image[4.7,2.8;1,1;default_furnace_fire_bg.png]"),
			"list[context;fuel;4.7,3.9;1,1]",
			mcl_formspec.get_itemslot_bg(4.7,3.9,1,1),
			"listring[context;fuel]",
			"box[9,1;0.3,4.8;#202020]",
			(charged>0 and "box[9,"..(1+4.8-(charged*4.8))..";0.3,"..(charged*4.8)..";#FF1010]" or ""),
			"list[current_player;main;0.5,7;9,3;9]",
			mcl_formspec.get_itemslot_bg(0.5,7,9,3),
			"list[current_player;main;0.5,10.24;9,1]",
			mcl_formspec.get_itemslot_bg(0.5,10.24,9,1)
		}
	end
	return table.concat(formspec,"")
end
local function mclAfterDigNode(pos,oldmeta,lists)
	-- Taken from https://git.minetest.land/MineClone2/MineClone2/src/branch/master/mods/ITEMS/mcl_furnaces/init.lua#L538
	local meta=minetest.get_meta(pos)
	local meta2=meta
	meta:from_table(oldmeta)
	local inv=meta:get_inventory()
	for _,listname in ipairs(lists) do
		local stack=inv:get_stack(listname,1)
		if not stack:is_empty() then
			local p = {x=pos.x+math.random(0, 10)/10-0.5, y=pos.y, z=pos.z+math.random(0, 10)/10-0.5}
			minetest.add_item(p, stack)
		end
	end
	meta:from_table(meta2:to_table())
end
local definition={	
	description=S("Generator"),
	tiles={
		"industrialtest_machine_block.png",
		"industrialtest_machine_block.png",
		"industrialtest_machine_block.png",
		"industrialtest_machine_block.png",
		"industrialtest_machine_block.png",
		"industrialtest_machine_block.png^industrialtest_iron_furnace_front.png",
		"industrialtest_machine_block.png"
	},
	paramtype2="facedir",
	legacy_facedir_simple=true,
	on_construct=function(pos,placer)
		local meta=minetest.get_meta(pos)
		local inv=meta:get_inventory()
		inv:set_size("charged",1)
		inv:set_size("fuel",1)
		meta:set_string("formspec",generatorFormspec(0,0))
		meta:set_int("fuelTime",0)
		meta:set_int("maxFuelTime",1)
		industrialtest.api.addPowerStorage(meta,7000,industrialtest.api.lvPowerFlow,"oooooo")
		minetest.get_node_timer(pos):start(industrialtest.updateDelay)
	end,
	on_timer=function(pos,elapsed)
		local meta=minetest.get_meta(pos)
		local powerFlow=meta:get_int("industrialtest.powerFlow")
		local inv=meta:get_inventory()
		local chargedSlot=inv:get_stack("charged",1)
		local fuelSlot=inv:get_stack("fuel",1)
		local afterFlow,flowTransferred=industrialtest.api.powerFlow(pos)
		local shouldUpdateFormspec=flowTransferred
		local shouldRerunTimer=(afterFlow and meta:get_int("industrialtest.powerAmount")>0)

		if chargedSlot:get_count()>0 and not industrialtest.api.isFullyCharged(chargedSlot:get_meta()) and meta:get_int("industrialtest.powerAmount")>0 then
			industrialtest.api.transferPowerToItem(meta,chargedSlot,powerFlow)
			inv:set_stack("charged",1,chargedSlot)
			shouldUpdateFormspec=true
			shouldRerunTimer=true
		end
		if fuelSlot:get_count()>0 and meta:get_int("fuelTime")<=0 and not industrialtest.api.isFullyCharged(meta) then
			local output,after=minetest.get_craft_result({
				method="fuel",
				width=1,
				items={fuelSlot}
			})
			if output.time>0 then
				meta:set_int("fuelTime",output.time)
				meta:set_int("maxFuelTime",output.time)
				inv:set_stack("fuel",1,after.items[1])
			end
		end
		if meta:get_int("fuelTime")>0 then
			meta:set_int("fuelTime",meta:get_int("fuelTime")-elapsed)
			industrialtest.api.addPower(meta,200)
			shouldUpdateFormspec=true
			shouldRerunTimer=true
		end

		if shouldUpdateFormspec then
			meta:set_string("formspec",generatorFormspec(meta:get_int("fuelTime")/meta:get_int("maxFuelTime")*100,meta:get_int("industrialtest.powerAmount")/meta:get_int("industrialtest.powerCapacity")))
		end

		return shouldRerunTimer
	end,
	allow_metadata_inventory_move=function(pos,fromList,fromIndex,toList,toIndex,count,player)
		local meta=minetest.get_meta(pos)
		local inv=meta:get_inventory()
		local movedItemStack=inv:get_list(fromList)[1]
		if toList=="charged" and not industrialtest.api.hasPowerStorage(movedItemStack:get_meta()) then
			return 0
		end
		return count
	end,
	allow_metadata_inventory_put=function(pos,listname,index,stack,player)
		if listname=="charged" and not industrialtest.api.hasPowerStorage(stack:get_meta()) then
			return 0
		end
		return stack:get_count()
	end,
	on_metadata_inventory_put=function(pos,listname,index,stack,player)
		minetest.get_node_timer(pos):start(industrialtest.updateDelay)
	end,
	on_metadata_inventory_take=function(pos,listname,index,stack,player)
		minetest.get_node_timer(pos):start(industrialtest.updateDelay)
	end,
	_industrialtest_updateFormspec=function(meta)
		meta:set_string("formspec",generatorFormspec(meta:get_int("fuelTime")/meta:get_int("maxFuelTime")*100,meta:get_int("industrialtest.powerAmount")/meta:get_int("industrialtest.powerCapacity")))
	end
}
if industrialtest.mtgAvailable then
	definition.groups={cracky=2}
	definition.sounds=default.node_sound_metal_defaults()
	definition.can_dig=function(pos)
		local meta=minetest.get_meta(pos)
		local inv=meta:get_inventory()
		return not (inv:get_list("charged")[1]:get_count()>0 or inv:get_list("fuel")[1]:get_count()>0)
	end
elseif industrialtest.mclAvailable then
	definition.after_dig_node=function(pos,oldnode,oldmeta)
		mclAfterDigNode(pos,oldmeta,{"charged","fuel"})
	end
	definition.groups={pickaxey=1}
	definition.sounds=mcl_sounds.node_sound_metal_defaults()
	definition._mcl_blast_resistance=3.5
	definition._mcl_hardness=3.9
end
definition.groups._industrialtest_hasPowerOutput=1
minetest.register_node("industrialtest:generator",definition)
minetest.register_craft({
	type="shaped",
	output="industrialtest:generator",
	recipe={
		{"industrialtest:re_battery","",""},
		{"industrialtest:machine_block","",""},
		{industrialtest.elementKeys.furnace,"",""}
	}
})
minetest.register_craft({
	type="shaped",
	output="industrialtest:generator",
	recipe={
		{"","industrialtest:re_battery",""},
		{"","industrialtest:machine_block",""},
		{"",industrialtest.elementKeys.furnace,""}
	}
})
minetest.register_craft({
	type="shaped",
	output="industrialtest:generator",
	recipe={
		{"","","industrialtest:re_battery"},
		{"","","industrialtest:machine_block"},
		{"","",industrialtest.elementKeys.furnace}
	}
})
minetest.register_craft({
	type="shaped",
	output="industrialtest:generator",
	recipe={
		{"","industrialtest:re_battery",""},
		{"industrialtest:refined_iron_ingot","industrialtest:refined_iron_ingot","industrialtest:refined_iron_ingot"},
		{"","industrialtest:iron_furnace",""}
	}
})

-- Item processing machines
local function registerSimpleElectricItemProcessor(config)
	local function getFormspec(powerPercent,srcPercent)
		local formspec
		if industrialtest.mtgAvailable then
			formspec={
				"formspec_version[4]",
				"size[10.8,12]",
				"label[0.5,0.5;"..S(config.displayName).."]",
				"list[context;src;3.4,1.8;1,1]",
				"listring[context;src]",
				(powerPercent>0 and "image[3.4,2.8;1,1;industrialtest_gui_electricity_bg.png^[lowpart:"..powerPercent..":industrialtest_gui_electricity_fg.png]"
				 or "image[3.4,2.8;1,1;industrialtest_gui_electricity_bg.png]"),
				"list[context;powerStorage;3.4,3.9;1,1]",
				"listring[context;powerStorage]",
				(srcPercent>0 and "image[4.9,2.8;1,1;gui_furnace_arrow_bg.png^[lowpart:"..srcPercent..":gui_furnace_arrow_fg.png^[transformR270]"
				 or "image[4.9,2.8;1,1;gui_furnace_arrow_bg.png^[transformR270]"),
				"list[context;dst;6.4,2.8;1,1]",
				"listring[context;dst]",
				"list[context;upgrades;9,0.9;1,4]",
				"listring[context;upgrades]",
				"list[current_player;main;0.5,6.25;8,1]",
				"list[current_player;main;0.5,7.5;8,3;8]"
			}
		elseif industrialtest.mclAvailable then
			formspec={
				"size[10.04,12]",
				"label[0.25,0.25;"..S(config.displayName).."]",
				"list[context;src;3.4,1.8;1,1]",
				mcl_formspec.get_itemslot_bg(3.4,1.8,1,1),
				"listring[context;src]",
				(powerPercent>0 and "image[3.4,2.8;1,1;industrialtest_gui_electricity_bg.png^[lowpart:"..powerPercent..":industrialtest_gui_electricity_fg.png]"
				 or "image[3.4,2.8;1,1;industrialtest_gui_electricity_bg.png]"),
				"list[context;powerStorage;3.4,3.9;1,1]",
				mcl_formspec.get_itemslot_bg(3.4,3.9,1,1),
				"listring[context;powerStorage]",
				(srcPercent>0 and "image[4.9,2.8;1,1;gui_furnace_arrow_bg.png^[lowpart:"..srcPercent..":gui_furnace_arrow_fg.png^[transformR270]"
				 or "image[4.9,2.8;1,1;gui_furnace_arrow_bg.png^[transformR270]"),
				"list[context;dst;6.4,2.8;1,1]",
				mcl_formspec.get_itemslot_bg(6.4,2.8,1,1),
				"listring[context;dst]",
				"list[context;upgrades;9,0.9;1,4]",
				mcl_formspec.get_itemslot_bg(9,0.9,1,4),
				"listring[context;upgrades]",
				"list[current_player;main;0.5,7;9,3;9]",
				mcl_formspec.get_itemslot_bg(0.5,7,9,3),
				"list[current_player;main;0.5,10.24;9,1]",
				mcl_formspec.get_itemslot_bg(0.5,10.24,9,1)
			}
		end
		return table.concat(formspec,"")
	end
	local function craftResultProxy(method,item)
		if method=="cooking" then
			local output,after=minetest.get_craft_result({
				method=method,
				width=1,
				items={item}
			})
			return {
				item=output.item,
				time=output.time,
				src=after.items[1]
			}
		elseif method=="industrialtest.macerating" then
			local output=industrialtest.api.getMaceratorRecipeResult(item:get_name())
			if not output then
				return {
					item=ItemStack(),
					time=0,
					src=item
				}
			end
			local srcAfter=ItemStack(item:get_name())
			srcAfter:set_count(item:get_count()-1)
			return {
				item=ItemStack(output.output),
				time=output.time,
				src=srcAfter
			}
		elseif method=="industrialtest.compressing" then
			local output=industrialtest.api.getCompressorRecipeResult(item:get_name())
			if not output or item:get_count()<output.count then
				return {
					item=ItemStack(),
					time=0,
					src=item
				}
			end
			local srcAfter=ItemStack(item:get_name())
			srcAfter:set_count(item:get_count()-output.count)
			return {
				item=ItemStack(output.output),
				time=output.time,
				src=srcAfter
			}
		elseif method=="industrialtest.extracting" then
			local output=industrialtest.api.getExtractorRecipeResult(item:get_name())
			if not output then
				return {
					item=ItemStack(),
					time=0,
					src=item
				}
			end
			local srcAfter=ItemStack(item:get_name())
			srcAfter:set_count(item:get_count()-1)
			return {
				item=ItemStack(output.output),
				time=output.time,
				src=srcAfter
			}
		elseif method=="industrialtest.recycling" then
			local srcAfter=ItemStack(item:get_name())
			srcAfter:set_count(item:get_count()-1)
			return {
				item=ItemStack(industrialtest.random:next(1,8)==1 and "industrialtest:scrap" or ""),
				time=2,
				src=srcAfter
			}
		end
		error("Unknown craft method passed to craftResultProxy")
	end
	definition={
		description=S(config.displayName),
		tiles={
			"industrialtest_machine_block.png",
			"industrialtest_machine_block.png",
			"industrialtest_machine_block.png",
			"industrialtest_machine_block.png",
			"industrialtest_machine_block.png",
			"industrialtest_machine_block.png^industrialtest_"..config.name.."_front.png",
			"industrialtest_machine_block.png"
		},
		paramtype2="facedir",
		legacy_facedir_simple=true,
		on_construct=function(pos)
			local meta=minetest.get_meta(pos)
			local inv=meta:get_inventory()
			inv:set_size("src",1)
			inv:set_size("dst",1)
			inv:set_size("powerStorage",1)
			inv:set_size("upgrades",4)
			meta:set_string("formspec",getFormspec(0,0))
			meta:set_float("srcTime",-1)
			meta:set_float("maxSrcTime",0)
			industrialtest.api.addPowerStorage(meta,config.capacity,config.flow,"iiiiii")
			minetest.get_node_timer(pos):start(industrialtest.updateDelay)
		end,
		on_timer=function(pos,elapsed)
			local meta=minetest.get_meta(pos)
			local inv=meta:get_inventory()
			local srcSlot=inv:get_stack("src",1)
			local powerStorageSlot=inv:get_stack("powerStorage",1)
			local shouldUpdateFormspec=false
			local shouldRerunTimer=false
			local requiredPower=elapsed*config.opPower

			if powerStorageSlot:get_count()>0 then
				local stackMeta=powerStorageSlot:get_meta()
				if industrialtest.api.transferPower(stackMeta,meta,stackMeta:get_int("industrialtest.powerFlow"))>0 then
					shouldUpdateFormspec=true
					shouldRerunTimer=true
					industrialtest.api.updateItemPowerText(powerStorageSlot)
					inv:set_stack("powerStorage",1,powerStorageSlot)
				end
			end
			if srcSlot:get_count()>0 and meta:get_float("maxSrcTime")<=0 and meta:get_int("industrialtest.powerAmount")>=requiredPower then
				local output=craftResultProxy(config.method,srcSlot)
				if output.time>0 and inv:room_for_item("dst",output.item) then
					meta:set_float("srcTime",0)
					meta:set_float("maxSrcTime",output.time*config.efficiency)
				end
			end
			if srcSlot:get_count()==0 and meta:get_float("maxSrcTime")>0 then
				meta:set_float("srcTime",-1)
				meta:set_float("maxSrcTime",0)
				shouldUpdateFormspec=true
			end
			if meta:get_float("maxSrcTime")>0 then
				if meta:get_int("industrialtest.powerAmount")>=requiredPower then
					meta:set_int("industrialtest.powerAmount",meta:get_int("industrialtest.powerAmount")-requiredPower)
					meta:set_float("srcTime",meta:get_float("srcTime")+elapsed)
					shouldRerunTimer=true
				end
				shouldUpdateFormspec=true
			end
			if meta:get_float("srcTime")>=meta:get_float("maxSrcTime") then
				local output=craftResultProxy(config.method,srcSlot)
				if output.item:get_count()>0 then
					inv:add_item("dst",output.item)
					meta:set_float("srcTime",-1)
					meta:set_float("maxSrcTime",0)
				end
				inv:set_stack("src",1,output.src)
			end
			if not industrialtest.api.isFullyCharged(meta) then
				industrialtest.api.triggerNeighbours(pos)
			end

			if shouldUpdateFormspec then
				meta:set_string("formspec",getFormspec(meta:get_int("industrialtest.powerAmount")/meta:get_int("industrialtest.powerCapacity")*100,meta:get_float("srcTime")/meta:get_float("maxSrcTime")*100))
			end

			return shouldRerunTimer
		end,
		allow_metadata_inventory_move=function(pos,fromList,fromIndex,toList,count)
			if toList=="dst" then
				return 0
			elseif toList=="powerStorage" then
				local meta=minetest.get_meta(pos)
				local inv=meta:get_inventory()
				local stack=inv:get_stack(fromList,fromIndex)
				return (industrialtest.api.hasPowerStorage(stack:get_meta()) and count or 0)
			elseif toList=="upgrades" then
				-- TODO: Add support for upgrades when they will be added
				return 0
			end
			return count
		end,
		allow_metadata_inventory_put=function(pos,listname,index,stack)
			if listname=="dst" then
				return 0
			elseif listname=="src" then
				local meta=minetest.get_meta(pos)
				local inv=meta:get_inventory()
				local srcSlot=inv:get_stack("src",1)
				if srcSlot:get_name()~=stack:get_name() then
					meta:set_float("srcTime",-1)
					meta:set_float("maxSrcTime",0)
				end
			elseif listname=="powerStorage" then
				return (industrialtest.api.hasPowerStorage(stack:get_meta()) and stack:get_count() or 0)
			elseif listname=="upgrades" then
				--TODO: See allow_metadata_inventory_move
				return 0
			end
			return stack:get_count()
		end,
		on_metadata_inventory_move=function(pos,fromList,fromIndex,toList,toIndex,count)
			local meta=minetest.get_meta(pos)
			local inv=meta:get_inventory()
			local srcSlot=inv:get_stack("src",1)
			if fromList=="src" and count==srcSlot:get_count() then
				meta:set_float("srcTime",-1)
				meta:set_float("maxSrcTime",0)
				if meta:get_int("industrialtest.powerAmount")>0 then
					meta:set_string("formspec",getFormspec(meta:get_int("industrialtest.powerAmount")/meta:get_int("industrialtest.powerCapacity")*100,meta:get_float("srcTime")/meta:get_float("maxSrcTime")*100))
				end
			end
		end,
		on_metadata_inventory_put=function(pos,listname)
			if listname=="src" or listname=="powerStorage" then
				minetest.get_node_timer(pos):start(industrialtest.updateDelay)
			end
		end,
		on_metadata_inventory_take=function(pos,listname,index,stack)
			local meta=minetest.get_meta(pos)
			local inv=meta:get_inventory()
			local srcSlot=inv:get_stack("src",1)
			if listname=="src" and stack:get_count()==srcSlot:get_count() then
				meta:set_float("srcTime",-1)
				meta:set_float("maxSrcTime",0)
				if meta:get_int("industrialtest.powerAmount")>0 then
					meta:set_string("formspec",getFormspec(meta:get_int("industrialtest.powerAmount")/meta:get_int("industrialtest.powerCapacity")*100,meta:get_float("srcTime")/meta:get_float("maxSrcTime")*100))
				end
			end
		end,
		_industrialtest_updateFormspec=function(meta)
			meta:set_string("formspec",getFormspec(meta:get_int("industrialtest.powerAmount")/meta:get_int("industrialtest.powerCapacity")*100,meta:get_float("srcTime")/meta:get_float("maxSrcTime")*100))
		end
	}
	if industrialtest.mtgAvailable then
		definition.groups={
			cracky=1,
			level=2
		}
		definition.sounds=default.node_sound_metal_defaults()
		definition.can_dig=function(pos)
			local meta=minetest.get_meta(pos)
			local inv=meta:get_inventory()
			return not (inv:get_list("src")[1]:get_count()>0 or inv:get_list("powerStorage")[1]:get_count()>0 or inv:get_list("dst")[1]:get_count()>0)
		end
	elseif industrialtest.mclAvailable then
		definition.after_dig_node=function(pos,oldnode,oldmeta)
			mclAfterDigNode(pos,oldmeta,{"src","powerStorage","dst","upgrades"})
		end
		definition.groups={pickaxey=1}
		definition.sounds=mcl_sounds.node_sound_metal_defaults()
		definition._mcl_blast_resistance=3
		definition._mcl_hardness=3.5
	end
	definition.groups._industrialtest_hasPowerInput=1
	minetest.register_node("industrialtest:"..config.name,definition)
end

local function ironFurnaceFormspec(fuelPercent,srcPercent)
	local formspec
	if industrialtest.mtgAvailable then
		formspec={
			"formspec_version[4]",
			"size[10.8,12]",
			"label[0.5,0.5;"..S("Iron Furnace").."]",
			"list[context;src;3.4,1.8;1,1]",
			"listring[context;src]",
			(fuelPercent>0 and "image[3.4,2.8;1,1;default_furnace_fire_bg.png^[lowpart:"..fuelPercent..":default_furnace_fire_fg.png]"
			 or "image[3.4,2.8;1,1;default_furnace_fire_bg.png]"),
			"list[context;fuel;3.4,3.9;1,1]",
			"listring[context;fuel]",
			(srcPercent>0 and "image[4.9,2.8;1,1;gui_furnace_arrow_bg.png^[lowpart:"..srcPercent..":gui_furnace_arrow_fg.png^[transformR270]"
			 or "image[4.9,2.8;1,1;gui_furnace_arrow_bg.png^[transformR270]"),
			"list[context;dst;6.4,2.8;1,1]",
			"listring[context;dst]",
			"list[current_player;main;0.5,6.25;8,1]",
			"list[current_player;main;0.5,7.5;8,3;8]"
		}
	elseif industrialtest.mclAvailable then
		formspec={
			"size[10.04,12]",
			"label[0.25,0.25;"..S("Iron Furnace").."]",
			"list[context;src;3.4,1.8;1,1]",
			mcl_formspec.get_itemslot_bg(3.4,1.8,1,1),
			"listring[context;src]",
			(fuelPercent>0 and "image[3.4,2.8;1,1;default_furnace_fire_bg.png^[lowpart:"..fuelPercent..":default_furnace_fire_fg.png]"
			 or "image[3.4,2.8;1,1;default_furnace_fire_bg.png]"),
			"list[context;fuel;3.4,3.9;1,1]",
			mcl_formspec.get_itemslot_bg(3.4,3.9,1,1),
			"listring[context;fuel]",
			(srcPercent>0 and "image[4.9,2.8;1,1;gui_furnace_arrow_bg.png^[lowpart:"..srcPercent..":gui_furnace_arrow_fg.png^[transformR270]"
			 or "image[4.9,2.8;1,1;gui_furnace_arrow_bg.png^[transformR270]"),
			"list[context;dst;6.4,2.8;1,1]",
			mcl_formspec.get_itemslot_bg(6.4,2.8,1,1),
			"listring[context;dst]",
			"list[current_player;main;0.5,7;9,3;9]",
			mcl_formspec.get_itemslot_bg(0.5,7,9,3),
			"list[current_player;main;0.5,10.24;9,1]",
			mcl_formspec.get_itemslot_bg(0.5,10.24,9,1)
		}
	end
	return table.concat(formspec,"")
end
definition={
	description=S("Iron Furnace"),
	tiles={
		"industrialtest_machine_block.png",
		"industrialtest_machine_block.png",
		"industrialtest_machine_block.png",
		"industrialtest_machine_block.png",
		"industrialtest_machine_block.png",
		"industrialtest_machine_block.png^industrialtest_iron_furnace_front.png",
		"industrialtest_machine_block.png"
	},
	paramtype2="facedir",
	legacy_facedir_simple=true,
	on_construct=function(pos,placer)
		local meta=minetest.get_meta(pos)
		local inv=meta:get_inventory()
		inv:set_size("src",1)
		inv:set_size("dst",1)
		inv:set_size("fuel",1)
		meta:set_string("formspec",ironFurnaceFormspec(0,0))
		meta:set_float("fuelTime",0)
		meta:set_float("maxFuelTime",1)
		meta:set_float("srcTime",-1)
		meta:set_float("maxSrcTime",0)
		minetest.get_node_timer(pos):start(industrialtest.updateDelay)
	end,
	on_timer=function(pos,elapsed)
		local meta=minetest.get_meta(pos)
		local inv=meta:get_inventory()
		local srcSlot=inv:get_stack("src",1)
		local fuelSlot=inv:get_stack("fuel",1)
		local shouldUpdateFormspec=false
		local shouldRerunTimer=false

		if fuelSlot:get_count()>0 and meta:get_float("fuelTime")<=0 then
			local output,after=minetest.get_craft_result({
				method="cooking",
				width=1,
				items={srcSlot}
			})
			if output.time>0 and inv:room_for_item("dst",output.item) then
				output,after=minetest.get_craft_result({
					method="fuel",
					width=1,
					items={fuelSlot}
				})
				if output.time>0 then
					meta:set_float("fuelTime",output.time)
					meta:set_float("maxFuelTime",output.time)
					inv:set_stack("fuel",1,after.items[1])
				end
			end
		end
		if srcSlot:get_count()>0 and meta:get_float("maxSrcTime")<=0 and meta:get_float("fuelTime")>0 then
			local output,after=minetest.get_craft_result({
				method="cooking",
				width=1,
				items={srcSlot}
			})
			if output.time>0 and inv:room_for_item("dst",output.item) then
				meta:set_float("srcTime",0)
				meta:set_float("maxSrcTime",output.time*0.7)
			end
		end
		if meta:get_float("fuelTime")>0 then
			meta:set_float("fuelTime",meta:get_float("fuelTime")-elapsed)
			shouldUpdateFormspec=true
			shouldRerunTimer=true
		end
		if meta:get_float("maxSrcTime")>0 then
			if meta:get_float("fuelTime")>0 then
				meta:set_float("srcTime",meta:get_float("srcTime")+elapsed)
			else
				meta:set_float("srcTime",0)
			end
			shouldUpdateFormspec=true
			shouldRerunTimer=true
		end
		if meta:get_float("srcTime")>=meta:get_float("maxSrcTime") then
			local output,after=minetest.get_craft_result({
				method="cooking",
				width=1,
				items={srcSlot}
			})
			if output.item:get_count()>0 then
				inv:set_stack("src",1,after.items[1])
				inv:add_item("dst",output.item)
				meta:set_float("srcTime",-1)
				meta:set_float("maxSrcTime",0)
			end
		end

		if shouldUpdateFormspec then
			meta:set_string("formspec",ironFurnaceFormspec(meta:get_float("fuelTime")/meta:get_float("maxFuelTime")*100,meta:get_float("srcTime")/meta:get_float("maxSrcTime")*100))
		end

		return shouldRerunTimer
	end,
	allow_metadata_inventory_move=function(pos,fromList,fromIndex,toList,toIndex,count,player)
		if toList=="dst" then
			return 0
		end
		return count
	end,
	allow_metadata_inventory_put=function(pos,listname,index,stack)
		if listname=="dst" then
			return 0
		elseif listname=="src" then
			local meta=minetest.get_meta(pos)
			local inv=meta:get_inventory()
			local srcSlot=inv:get_stack("src",1)
			if srcSlot:get_name()~=stack:get_name() then
				meta:set_float("srcTime",-1)
				meta:set_float("maxSrcTime",0)
			end
		end
		return stack:get_count()
	end,
	on_metadata_inventory_move=function(pos,fromList,fromIndex,toList,toIndex,count)
		local meta=minetest.get_meta(pos)
		local inv=meta:get_inventory()
		local srcSlot=inv:get_stack("src",1)
		if fromList=="src" and count==srcSlot:get_count() then
			meta:set_float("srcTime",-1)
			meta:set_float("maxSrcTime",0)
			if meta:get_float("maxFuelTime")>0 then
				meta:set_string("formspec",ironFurnaceFormspec(meta:get_float("fuelTime")/meta:get_float("maxFuelTime")*100,0))
			end
		end
	end,
	on_metadata_inventory_put=function(pos,listname,index,stack)
		minetest.get_node_timer(pos):start(industrialtest.updateDelay)
	end,
	on_metadata_inventory_take=function(pos,listname,index,stack)
		local meta=minetest.get_meta(pos)
		local inv=meta:get_inventory()
		local srcSlot=inv:get_stack("src",1)
		if listname=="src" and stack:get_count()==srcSlot:get_count() then
			meta:set_float("srcTime",-1)
			meta:set_float("maxSrcTime",0)
			if meta:get_float("maxFuelTime")>0 then
				meta:set_string("formspec",ironFurnaceFormspec(meta:get_float("fuelTime")/meta:get_float("maxFuelTime")*100,0))
			end
		end
	end
}
if industrialtest.mtgAvailable then
	definition.groups={
		cracky=1,
		level=2
	}
	definition.sounds=default.node_sound_metal_defaults()
	definition.can_dig=function(pos)
		local meta=minetest.get_meta(pos)
		local inv=meta:get_inventory()
		return not (inv:get_list("src")[1]:get_count()>0 or inv:get_list("fuel")[1]:get_count()>0 or inv:get_list("dst")[1]:get_count()>0)
	end
elseif industrialtest.mclAvailable then
	definition.after_dig_node=function(pos,oldnode,oldmeta)
		mclAfterDigNode(pos,oldmeta,{"src","fuel","dst"})
	end
	definition.sounds=mcl_sounds.node_sound_metal_defaults()
	definition._mcl_blast_resistance=3
	definition._mcl_hardness=3.5
end
minetest.register_node("industrialtest:iron_furnace",definition)
minetest.register_craft({
	type="shaped",
	output="industrialtest:iron_furnace",
	recipe={
		{industrialtest.elementKeys.ironIngot,industrialtest.elementKeys.ironIngot,industrialtest.elementKeys.ironIngot},
		{industrialtest.elementKeys.ironIngot,"",industrialtest.elementKeys.ironIngot},
		{industrialtest.elementKeys.ironIngot,industrialtest.elementKeys.ironIngot,industrialtest.elementKeys.ironIngot}
	}
})
minetest.register_craft({
	type="shaped",
	output="industrialtest:iron_furnace",
	recipe={
		{"",industrialtest.elementKeys.ironIngot,""},
		{industrialtest.elementKeys.ironIngot,"",industrialtest.elementKeys.ironIngot},
		{industrialtest.elementKeys.ironIngot,industrialtest.elementKeys.furnace,industrialtest.elementKeys.ironIngot}
	}
})

registerSimpleElectricItemProcessor({
	name="electric_furnace",
	displayName="Electric Furnace",
	capacity=416,
	flow=industrialtest.api.lvPowerFlow,
	opPower=60,
	method="cooking",
	efficiency=0.5
})
minetest.register_craft({
	type="shaped",
	output="industrialtest:electric_furnace",
	recipe={
		{"","industrialtest:electronic_circuit",""},
		{industrialtest.elementKeys.powerCarrier,"industrialtest:iron_furnace",industrialtest.elementKeys.powerCarrier},
		{"","",""}
	}
})
minetest.register_craft({
	type="shaped",
	output="industrialtest:electric_furnace",
	recipe={
		{"","",""},
		{"","industrialtest:electronic_circuit",""},
		{industrialtest.elementKeys.powerCarrier,"industrialtest:iron_furnace",industrialtest.elementKeys.powerCarrier}
	}
})

registerSimpleElectricItemProcessor({
	name="macerator",
	displayName="Macerator",
	capacity=1200,
	flow=industrialtest.api.lvPowerFlow,
	opPower=100,
	method="industrialtest.macerating",
	efficiency=1
})
minetest.register_craft({
	type="shaped",
	output="industrialtest:macerator",
	recipe={
		{industrialtest.elementKeys.flint,industrialtest.elementKeys.flint,industrialtest.elementKeys.flint},
		{industrialtest.elementKeys.cobble,"industrialtest:machine_block",industrialtest.elementKeys.cobble},
		{"","industrialtest:electronic_circuit",""}
	}
})

registerSimpleElectricItemProcessor({
	name="compressor",
	displayName="Compressor",
	capacity=1400,
	flow=industrialtest.api.lvPowerFlow,
	opPower=120,
	method="industrialtest.compressing",
	efficiency=1
})
minetest.register_craft({
	type="shaped",
	output="industrialtest:compressor",
	recipe={
		{industrialtest.elementKeys.stone,"",industrialtest.elementKeys.stone},
		{industrialtest.elementKeys.stone,"industrialtest:machine_block",industrialtest.elementKeys.stone},
		{industrialtest.elementKeys.stone,"industrialtest:electronic_circuit",industrialtest.elementKeys.stone}
	}
})

registerSimpleElectricItemProcessor({
	name="extractor",
	displayName="Extractor",
	capacity=900,
	flow=industrialtest.api.lvPowerFlow,
	opPower=100,
	method="industrialtest.extracting",
	efficiency=1
})
minetest.register_craft({
	type="shaped",
	output="industrialtest:extractor",
	recipe={
		{"industrialtest:treetap","industrialtest:machine_block","industrialtest:treetap"},
		{"industrialtest:treetap","industrialtest:electronic_circuit","industrialtest:treetap"}
	}
})

registerSimpleElectricItemProcessor({
	name="recycler",
	displayName="Recycler",
	capacity=80,
	flow=industrialtest.api.lvPowerFlow,
	opPower=40,
	method="industrialtest.recycling",
	efficiency=1
})
minetest.register_craft({
	type="shaped",
	output="industrialtest:recycler",
	recipe={
		{"",industrialtest.elementKeys.glowstone,""},
		{industrialtest.elementKeys.dirt,"industrialtest:compressor",industrialtest.elementKeys.dirt},
		{"industrialtest:refined_iron_ingot",industrialtest.elementKeys.dirt,"industrialtest:refined_iron_ingot"}
	}
})