-- need:
-- boiler
-- distillation column
-- bottler?

--[[ NEED:


machine defs:
	synth crude upgrader

]]





-- technic.register_extractor_recipe("technic:coal_dust",        1,          "dye:black",      2)
-- technic.register_extractor_recipe("default:cactus",           1,          "dye:green",      2)





local extractor_formspec =
   "invsize[8,9;]"..
   "label[0,0;Extractor]"..
   "list[current_name;src;3,1;1,1;]"..
   "list[current_name;dst;5,1;2,2;]"..
   "list[current_player;main;0,5;8,4;]"


 
--need pipeworks integration
minetest.register_node("bitumen:cracking_column", {
	paramtype = "light",
	description = "Cracking Column Segment",
	tiles = {"bitumen_cracking_column.png",  "bitumen_cracking_column.png", "bitumen_cracking_column.png",
	         "bitumen_cracking_column.png", "bitumen_cracking_column.png",   "bitumen_cracking_column.png"},
	node_box = {
		type = "fixed",
		fixed = {
			--11.25
			{-0.49, -0.5, -0.10, 0.49, 0.5, 0.10},
			{-0.10, -0.5, -0.49, 0.10, 0.5, 0.49},
			--22.5
			{-0.46, -0.5, -0.19, 0.46, 0.5, 0.19},
			{-0.19, -0.5, -0.46, 0.19, 0.5, 0.46},
			-- 33.75
			{-0.416, -0.5, -0.28, 0.416, 0.5, 0.28},
			{-0.28, -0.5, -0.416, 0.28, 0.5, 0.416},
			--45
			{-0.35, -0.5, -0.35, 0.35, 0.5, 0.35},
		},
	},
	selection_box = {
		type = "fixed",
		fixed = {
			{-0.5, -0.5, -0.5, 0.5, 0.5, 0.5},
		},
	},
	drawtype = "nodebox",
	groups = {cracky=3,oddly_breakable_by_hand=3},
	legacy_facedir_simple = true,
	sounds = default.node_sound_wood_defaults(),
	on_construct = function(pos)
		local meta = minetest.get_meta(pos)
		local inv = meta:get_inventory()
		inv:set_size("dst", 1)
	end,
})

bitumen.cracking_stack = {
	"lube_oil",
	"fuel_oil",
	"diesel",
	"gasoline",
	"jet_fuel",
	"lpg",
}
	
local function check_cracking_stack(pos) 
	local ret = { }
	pos.y = pos.y + 1
	local height = 1
	local n
	
	while minetest.get_node(pos).name == "bitumen:cracking_column" and height < 7 do
		ret[bitumen.cracking_stack[height]] = pos
		print("Found stack "..bitumen.cracking_stack[height].." at ".. height)
		height = height+1
		pos.y = pos.y+1
	end
	
	return ret
end

minetest.register_node("bitumen:cracking_boiler", {
	description = "Cracking Column Boiler",
	tiles = {"technic_lv_grinder_top.png",  "technic_lv_grinder_bottom.png", "technic_lv_grinder_side.png",
	         "technic_lv_grinder_side.png", "technic_lv_grinder_side.png",   "technic_lv_grinder_front.png"},
	paramtype2 = "facedir",
	groups = {cracky=2},
	legacy_facedir_simple = true,
	sounds = default.node_sound_wood_defaults(),
	on_construct = function(pos)
		local meta = minetest.get_meta(pos)
		meta:set_string("infotext", "Extractor")
		meta:set_string("formspec", extractor_formspec)
		local inv = meta:get_inventory()
		inv:set_size("src", 4)
	end,
	can_dig = function(pos,player)
		local meta = minetest.get_meta(pos);
		local inv = meta:get_inventory()
		if not inv:is_empty("src") then
			minetest.chat_send_player(player:get_player_name(),
				"Machine cannot be removed because it is not empty");
			return false
		else
			return true
		end
	end,
})

minetest.register_node("bitumen:cracking_boiler_active", {
	description = "Cracking Column Boiler",
	tiles = {"technic_lv_grinder_top.png",  "technic_lv_grinder_bottom.png",
	         "technic_lv_grinder_side.png", "technic_lv_grinder_side.png",
	         "technic_lv_grinder_side.png", "technic_lv_grinder_front_active.png"},
	paramtype2 = "facedir",
	groups = {cracky=2, not_in_creative_inventory=1},
	legacy_facedir_simple = true,
	sounds = default.node_sound_wood_defaults(),
	can_dig = function(pos,player)
		local meta = minetest.get_meta(pos);
		local inv = meta:get_inventory()
		if not inv:is_empty("src") or not inv:is_empty("dst") then
			minetest.chat_send_player(player:get_player_name(),
				"Machine cannot be removed because it is not empty");
			return false
		else
			return true
		end
	end,
})

	




bitumen.cracking_yield_rate = {
	lpg = 5 ,
	jet_fuel = 1 ,
	gasoline = 4 ,
	diesel = 5,
	fuel_oil = 10,
	lube_oil = 9,
}



bitumen.energy_density = {
	lpg = { 33 },
	jet_fuel = { 40 },
	gasoline = { 30 },
	diesel = { 25 },
	fuel_oil = { 18 },
	lube_oil = { 12 },
	synth_crude = { 10 }
}
--temp hack for dev
minetest.register_abm({
	nodenames = {"bitumen:cracking_boiler", "bitumen:cracking_boiler_active"},
	interval = 3,
	chance   = 1,
	action = function(pos, node, active_object_count, active_object_count_wider)
		local meta     = minetest.get_meta(pos)
		local inv      = meta:get_inventory()
		local srcstack = inv:get_stack("src", 1)
		
		local avail = srcstack:get_count()
		
		local columns = check_cracking_stack(pos)
		for otype,colpos in pairs(columns) do
			local cmeta    = minetest.get_meta(colpos)
			local cinv     = cmeta:get_inventory()
			local dststack = cinv:get_stack("dst", 1)
			
			local yield = bitumen.cracking_yield_rate[otype] 
			
		--	cinv:add_item("dst", )
			
			
		end
		
		-- srcstack:take_item(recipe.src_count)
		-- inv:set_stack("src", 1, srcstack)
		-- inv:add_item("dst", result)
		
	end,
})
--[[
minetest.register_abm({
	nodenames = {"bitumen:cracking_boiler", "bitumen:cracking_boiler_active"},
	interval = 1,
	chance   = 1,
	action = function(pos, node, active_object_count, active_object_count_wider)
		-- The machine will automatically shut down if disconnected from power in some fashion.
		local meta     = minetest.get_meta(pos)
		local inv      = meta:get_inventory()
		local srcstack = inv:get_stack("src", 1)
		local eu_input = meta:get_int("LV_EU_input")

		-- Machine information
		local machine_name = "Cracking Boiler"
		local machine_node = "bitumen:cracking_boiler"
		local demand       = 1000

		-- Setup meta data if it does not exist.
		if not eu_input then
			meta:set_int("LV_EU_demand", demand)
			meta:set_int("LV_EU_input", 0)
			return
		end

		-- Power off automatically if no longer connected to a switching station
		technic.switching_station_timeout_count(pos, "LV")

		if srcstack then
			src_item = srcstack:to_table()
		end
		if src_item then
			recipe = technic.get_extractor_recipe(src_item)
		end
		if recipe then
			result = {name=recipe.dst_name, count=recipe.dst_count}
		end 
		if inv:is_empty("src") or (not recipe) or (not result) or
		   (not inv:room_for_item("dst", result)) then
			hacky_swap_node(pos, machine_node)
			meta:set_string("infotext", machine_name.." Idle")
			meta:set_int("LV_EU_demand", 0)
			return
		end

		if eu_input < demand then
			-- unpowered - go idle
			hacky_swap_node(pos, machine_node)
			meta:set_string("infotext", machine_name.." Unpowered")
		elseif eu_input >= demand then
			-- Powered
			hacky_swap_node(pos, machine_node.."_active")
			meta:set_string("infotext", machine_name.." Active")

			meta:set_int("src_time", meta:get_int("src_time") + 1)
			if meta:get_int("src_time") >= 4 then -- 4 ticks per output
				meta:set_int("src_time", 0)
				srcstack:take_item(recipe.src_count)
				inv:set_stack("src", 1, srcstack)
				inv:add_item("dst", result)
			end
		end
		meta:set_int("LV_EU_demand", demand)
	end
})

technic.register_machine("LV", "bitumen:cracking_boiler",        technic.receiver)
technic.register_machine("LV", "bitumen:cracking_boiler_active", technic.receiver)]]