From aa8af0c8715a4492f43da3834e4f324c72b90b71 Mon Sep 17 00:00:00 2001
From: Novatux <nathanael.courant@laposte.net>
Date: Wed, 02 Jul 2014 22:24:38 +0200
Subject: [PATCH] Refactor a lot of code: make only one registration function for grinder, extractor and electric furnace (compressor will follow soon)

---
 technic/machines/register/extractor.lua |  155 +--------------------------------------------------
 1 files changed, 5 insertions(+), 150 deletions(-)

diff --git a/technic/machines/register/extractor.lua b/technic/machines/register/extractor.lua
index e79d32c..eeef9ff 100644
--- a/technic/machines/register/extractor.lua
+++ b/technic/machines/register/extractor.lua
@@ -1,154 +1,9 @@
 
 local S = technic.getter
 
-local extractor_formspec =
-   "invsize[8,9;]"..
-   "label[0,0;"..S("%s Extractor"):format("LV").."]"..
-   "list[current_name;src;3,1;1,1;]"..
-   "list[current_name;dst;5,1;2,2;]"..
-   "list[current_player;main;0,5;8,4;]"
-
 function technic.register_extractor(data)
-	local tier = data.tier
-	local ltier = string.lower(tier)
-
-	local groups = {cracky = 2}
-	local active_groups = {cracky = 2, not_in_creative_inventory = 1}
-	if data.tube then
-		groups.tubedevice = 1
-		groups.tubedevice_receiver = 1
-		active_groups.tubedevice = 1
-		active_groups.tubedevice_receiver = 1
-	end
-
-
-	local formspec =
-		"invsize[8,9;]"..
-		"list[current_name;src;3,1;1,1;]"..
-		"list[current_name;dst;5,1;2,2;]"..
-		"list[current_player;main;0,5;8,4;]"..
-		"label[0,0;"..S("%s Extractor"):format(tier).."]"
-	
-	if data.upgrade then
-		formspec = formspec..
-			"list[current_name;upgrade1;1,4;1,1;]"..
-			"list[current_name;upgrade2;2,4;1,1;]"..
-			"label[1,5;"..S("Upgrade Slots").."]"
-	end
-
-	minetest.register_node("technic:"..ltier.."_extractor", {
-		description = S("%s Extractor"):format(tier),
-		tiles = {"technic_"..ltier.."_extractor_top.png",  "technic_"..ltier.."_extractor_bottom.png",
-			 "technic_"..ltier.."_extractor_side.png", "technic_"..ltier.."_extractor_side.png",
-			 "technic_"..ltier.."_extractor_side.png", "technic_"..ltier.."_extractor_front.png"},
-		paramtype2 = "facedir",
-		groups = groups,
-		tube = data.tube and tube or nil,
-		legacy_facedir_simple = true,
-		sounds = default.node_sound_wood_defaults(),
-		on_construct = function(pos)
-			local node = minetest.get_node(pos)
-			local meta = minetest.get_meta(pos)
-			meta:set_string("infotext", S("%s Extractor"):format(tier))
-			meta:set_int("tube_time",  0)
-			meta:set_string("formspec", formspec)
-			local inv = meta:get_inventory()
-			inv:set_size("src", 1)
-			inv:set_size("dst", 4)
-			inv:set_size("upgrade1", 1)
-			inv:set_size("upgrade2", 1)
-		end,
-		can_dig = technic.machine_can_dig,
-		allow_metadata_inventory_put = technic.machine_inventory_put,
-		allow_metadata_inventory_take = technic.machine_inventory_take,
-		allow_metadata_inventory_move = technic.machine_inventory_move,
-	})
-
-	minetest.register_node("technic:"..ltier.."_extractor_active",{
-		description = S("%s Grinder"):format(tier),
-		tiles = {"technic_"..ltier.."_extractor_top.png",  "technic_"..ltier.."_extractor_bottom.png",
-			 "technic_"..ltier.."_extractor_side.png", "technic_"..ltier.."_extractor_side.png",
-			 "technic_"..ltier.."_extractor_side.png", "technic_"..ltier.."_extractor_front_active.png"},
-		paramtype2 = "facedir",
-		drop = "technic:"..ltier.."_extractor",
-		groups = active_groups,
-		legacy_facedir_simple = true,
-		sounds = default.node_sound_wood_defaults(),
-		tube = data.tube and tube or nil,
-		can_dig = technic.machine_can_dig,
-		allow_metadata_inventory_put = technic.machine_inventory_put,
-		allow_metadata_inventory_take = technic.machine_inventory_take,
-		allow_metadata_inventory_move = technic.machine_inventory_move,
-	})
-
-	minetest.register_abm({
-		nodenames = {"technic:"..ltier.."_extractor","technic:"..ltier.."_extractor_active"},
-		interval = 1,
-		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 eu_input = meta:get_int(tier.."_EU_input")
-
-			local machine_name   = S("%s Extractor"):format(tier)
-			local machine_node   = "technic:"..ltier.."_extractor"
-			local machine_demand = data.demand
-
-			-- Setup meta data if it does not exist.
-			if not eu_input then
-				meta:set_int(tier.."_EU_demand", machine_demand[1])
-				meta:set_int(tier.."_EU_input", 0)
-				return
-			end
-		
-			-- Power off automatically if no longer connected to a switching station
-			technic.switching_station_timeout_count(pos, tier)
-
-			local EU_upgrade, tube_upgrade = 0, 0
-			if data.upgrade then
-				EU_upgrade, tube_upgrade = technic.handle_machine_upgrades(meta)
-			end
-			if data.tube then
-				technic.handle_machine_pipeworks(pos, tube_upgrade)
-			end
-
-			local srcstack = inv:get_stack("src", 1)
-			local result = technic.get_extractor_recipe(inv:get_stack("src", 1))
-
-			if not result then
-				technic.swap_node(pos, machine_node)
-				meta:set_string("infotext", S("%s Idle"):format(machine_name))
-				meta:set_int(tier.."_EU_demand", 0)
-				return
-			end
-		
-			if eu_input < machine_demand[EU_upgrade+1] then
-				-- Unpowered - go idle
-				technic.swap_node(pos, machine_node)
-				meta:set_string("infotext", S("%s Unpowered"):format(machine_name))
-			elseif eu_input >= machine_demand[EU_upgrade+1] then
-				-- Powered	
-				technic.swap_node(pos, machine_node.."_active")
-				meta:set_string("infotext", S("%s Active"):format(machine_name))
-
-				meta:set_int("src_time", meta:get_int("src_time") + 1)
-				if meta:get_int("src_time") >= result.time / data.speed then
-					meta:set_int("src_time", 0)
-					local result_stack = ItemStack(result.output)
-					if inv:room_for_item("dst", result_stack) then
-						srcstack = inv:get_stack("src", 1)
-						srcstack:take_item(ItemStack(result.input):get_count())
-						inv:set_stack("src", 1, srcstack)
-						inv:add_item("dst", result_stack)
-					end
-				end
-			end
-			meta:set_int(tier.."_EU_demand", machine_demand[EU_upgrade+1])
-		end
-	})
-
-	technic.register_machine(tier, "technic:"..ltier.."_extractor",        technic.receiver)
-	technic.register_machine(tier, "technic:"..ltier.."_extractor_active", technic.receiver)
-
-end -- End registration
-
+	data.typename = "extracting"
+	data.machine_name = "extractor"
+	data.machine_desc = S("%s Extractor")
+	technic.register_base_machine(data)
+end

--
Gitblit v1.8.0