From acc7f713021ae50ee5d5ddecef1756edc45747bb Mon Sep 17 00:00:00 2001
From: RealBadAngel <mk@realbadangel.pl>
Date: Wed, 17 Jul 2013 19:14:40 +0200
Subject: [PATCH] Commons for battery boxes

---
 technic/machines/battery_boxes_commons.lua | 80 ++++++++++++++++++++++
 1 file changed, 80 insertions(+)
 create mode 100644 technic/machines/battery_boxes_commons.lua

diff --git a/technic/machines/battery_boxes_commons.lua b/technic/machines/battery_boxes_commons.lua
new file mode 100644
index 0000000..441b39b
--- /dev/null
+++ b/technic/machines/battery_boxes_commons.lua
@@ -0,0 +1,80 @@
+charge_tools = function(meta, charge, step)
+	--charge registered power tools
+	local inv = meta:get_inventory()
+	if inv:is_empty("src")==false  then
+		local srcstack = inv:get_stack("src", 1)
+		local src_item=srcstack:to_table()
+		local src_meta=get_item_meta(src_item["metadata"])
+
+		local toolname = src_item["name"]
+		if technic.power_tools[toolname] ~= nil then
+		   -- Set meta data for the tool if it didn't do it itself :-(
+		   src_meta=get_item_meta(src_item["metadata"])
+		if src_meta==nil then
+			src_meta={}
+			src_meta["technic_power_tool"]=true
+			src_meta["charge"]=0
+		else
+			if src_meta["technic_power_tool"]==nil then
+				src_meta["technic_power_tool"]=true
+				src_meta["charge"]=0
+			end
+		end
+		-- Do the charging
+		local item_max_charge = technic.power_tools[toolname]
+		local load            = src_meta["charge"]
+		local load_step       = step -- how much to charge per tick
+		if load<item_max_charge and charge>0 then
+			if charge-load_step<0 then load_step=charge end
+			if load+load_step>item_max_charge then load_step=item_max_charge-load end
+				load=load+load_step
+				charge=charge-load_step
+				technic.set_RE_wear(src_item,load,item_max_charge)
+				src_meta["charge"]   = load
+				src_item["metadata"] = set_item_meta(src_meta)
+				inv:set_stack("src", 1, src_item)
+			end
+		end
+	end
+	return charge -- return the remaining charge in the battery
+end
+
+discharge_tools = function(meta, charge, max_charge, step)
+	-- discharging registered power tools
+	local inv = meta:get_inventory()
+	if inv:is_empty("dst") == false then
+	   srcstack = inv:get_stack("dst", 1)
+	   src_item=srcstack:to_table()
+	   local src_meta=get_item_meta(src_item["metadata"])
+	   local toolname = src_item["name"]
+	   if technic.power_tools[toolname] ~= nil then
+	      -- Set meta data for the tool if it didn't do it itself :-(
+	      src_meta=get_item_meta(src_item["metadata"])
+	      if src_meta==nil then
+			 src_meta={}
+			 src_meta["technic_power_tool"]=true
+			 src_meta["charge"]=0
+	      else
+			 if src_meta["technic_power_tool"]==nil then
+			    src_meta["technic_power_tool"]=true
+			    src_meta["charge"]=0
+			 end
+	      end
+		-- Do the discharging
+			local item_max_charge = technic.power_tools[toolname]
+			local load            = src_meta["charge"]
+			local load_step       = step -- how much to discharge per tick
+			if load>0 and charge<max_charge then
+				if charge+load_step>max_charge then load_step=max_charge-charge end
+				if load-load_step<0 then load_step=load end
+				load=load-load_step
+				charge=charge+load_step
+				technic.set_RE_wear(src_item,load,item_max_charge)
+				src_meta["charge"]=load
+				src_item["metadata"]=set_item_meta(src_meta)
+				inv:set_stack("dst", 1, src_item)
+			end
+		end
+	end
+	return charge -- return the remaining charge in the battery
+end