kpoppel
2013-08-27 ec9f92d98b88b13adada6250622b9a51f3705026
commit | author | age
acc7f7 1 charge_tools = function(meta, charge, step)
R 2     --charge registered power tools
3     local inv = meta:get_inventory()
4     if inv:is_empty("src")==false  then
5         local srcstack = inv:get_stack("src", 1)
6         local src_item=srcstack:to_table()
7         local src_meta=get_item_meta(src_item["metadata"])
8
9         local toolname = src_item["name"]
10         if technic.power_tools[toolname] ~= nil then
11            -- Set meta data for the tool if it didn't do it itself :-(
12            src_meta=get_item_meta(src_item["metadata"])
13         if src_meta==nil then
14             src_meta={}
15             src_meta["technic_power_tool"]=true
16             src_meta["charge"]=0
17         else
18             if src_meta["technic_power_tool"]==nil then
19                 src_meta["technic_power_tool"]=true
20                 src_meta["charge"]=0
21             end
22         end
23         -- Do the charging
24         local item_max_charge = technic.power_tools[toolname]
25         local load            = src_meta["charge"]
26         local load_step       = step -- how much to charge per tick
27         if load<item_max_charge and charge>0 then
28             if charge-load_step<0 then load_step=charge end
29             if load+load_step>item_max_charge then load_step=item_max_charge-load end
30                 load=load+load_step
31                 charge=charge-load_step
32                 technic.set_RE_wear(src_item,load,item_max_charge)
33                 src_meta["charge"]   = load
34                 src_item["metadata"] = set_item_meta(src_meta)
35                 inv:set_stack("src", 1, src_item)
36             end
37         end
38     end
39     return charge -- return the remaining charge in the battery
40 end
41
42 discharge_tools = function(meta, charge, max_charge, step)
43     -- discharging registered power tools
44     local inv = meta:get_inventory()
45     if inv:is_empty("dst") == false then
46        srcstack = inv:get_stack("dst", 1)
47        src_item=srcstack:to_table()
48        local src_meta=get_item_meta(src_item["metadata"])
49        local toolname = src_item["name"]
50        if technic.power_tools[toolname] ~= nil then
51           -- Set meta data for the tool if it didn't do it itself :-(
52           src_meta=get_item_meta(src_item["metadata"])
53           if src_meta==nil then
54              src_meta={}
55              src_meta["technic_power_tool"]=true
56              src_meta["charge"]=0
57           else
58              if src_meta["technic_power_tool"]==nil then
59                 src_meta["technic_power_tool"]=true
60                 src_meta["charge"]=0
61              end
62           end
63         -- Do the discharging
64             local item_max_charge = technic.power_tools[toolname]
65             local load            = src_meta["charge"]
66             local load_step       = step -- how much to discharge per tick
67             if load>0 and charge<max_charge then
68                 if charge+load_step>max_charge then load_step=max_charge-charge end
69                 if load-load_step<0 then load_step=load end
70                 load=load-load_step
71                 charge=charge+load_step
72                 technic.set_RE_wear(src_item,load,item_max_charge)
73                 src_meta["charge"]=load
74                 src_item["metadata"]=set_item_meta(src_meta)
75                 inv:set_stack("dst", 1, src_item)
76             end
77         end
78     end
79     return charge -- return the remaining charge in the battery
80 end