RealBadAngel
2013-07-25 d8ec3f8bbee5c3c489e4c5740fc8c84449eb86c3
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
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