mod technic
view | history | commit | commitdiff
ShadowNinja
2013-07-13 187015e0733e5e0bfa5efba215319c7d9d86f072
commit | author | age
ee5c6c 1 -- MV Battery box
8e03d7 2 minetest.register_craft(
13e885 3    {output = 'technic:mv_battery_box 1',
K 4     recipe = {
5        {'technic:battery_box', 'technic:battery_box', 'technic:battery_box'},
6        {'technic:battery_box', 'technic:mv_transformer', 'technic:battery_box'},
7        {'', 'technic:mv_cable', ''},
8     }
9  })
82cba9 10
ee5c6c 11 local battery_box_formspec =
8e03d7 12    "invsize[8,9;]"..
R 13    "image[1,1;1,2;technic_power_meter_bg.png]"..
14    "list[current_name;src;3,1;1,1;]"..
15    "image[4,1;1,1;technic_battery_reload.png]"..
16    "list[current_name;dst;5,1;1,1;]"..
17    "label[0,0;MV_Battery box]"..
18    "label[3,0;Charge]"..
19    "label[5,0;Discharge]"..
20    "label[1,3;Power level]"..
21    "list[current_player;main;0,5;8,4;]"
82cba9 22
8e03d7 23 minetest.register_node(
R 24    "technic:mv_battery_box", {
25       description = "MV Battery Box",
26       tiles  = {"technic_mv_battery_box_top.png", "technic_mv_battery_box_bottom.png", "technic_mv_battery_box_side0.png",
27             "technic_mv_battery_box_side0.png", "technic_mv_battery_box_side0.png", "technic_mv_battery_box_side0.png"},
28       groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2},
29       sounds = default.node_sound_wood_defaults(),
30       drop   = "technic:mv_battery_box",
31       on_construct = function(pos)
32             if pos==nil then return end
33             local meta = minetest.env:get_meta(pos);
34             local inv = meta:get_inventory()
35             meta:set_string("infotext", "MV Battery box")
36             meta:set_float("technic_mv_power_machine", 1)
37             meta:set_string("formspec", battery_box_formspec)
ee5c6c 38             meta:set_int("MV_EU_demand", 0) -- How much can this node charge
K 39             meta:set_int("MV_EU_supply", 0) -- How much can this node discharge
40             meta:set_int("MV_EU_input",  0) -- How much power is this machine getting.
41             meta:set_float("internal_EU_charge", 0)
8e03d7 42             inv:set_size("src", 1)
R 43             inv:set_size("dst", 1)
44              end,
45       can_dig = function(pos,player)
46            local meta = minetest.env:get_meta(pos);
47            local inv = meta:get_inventory()
ee5c6c 48            if not inv:is_empty("src") or not inv:is_empty("dst") then
K 49               minetest.chat_send_player(player:get_player_name(), "Machine cannot be removed because it is not empty");
8e03d7 50               return false
ee5c6c 51            else
K 52               return true
8e03d7 53            end
ee5c6c 54         end,
8e03d7 55    })
82cba9 56
R 57
58 for i=1,8,1 do
8e03d7 59    minetest.register_node(
ee5c6c 60       "technic:mv_battery_box"..i,
K 61       {
8e03d7 62      description = "MV Battery Box",
R 63      tiles  = {"technic_mv_battery_box_top.png", "technic_mv_battery_box_bottom.png", "technic_mv_battery_box_side0.png^technic_power_meter"..i..".png",
64            "technic_mv_battery_box_side0.png^technic_power_meter"..i..".png", "technic_mv_battery_box_side0.png^technic_power_meter"..i..".png", "technic_mv_battery_box_side0.png^technic_power_meter"..i..".png"},
65      groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2,not_in_creative_inventory=1},
66      sounds = default.node_sound_wood_defaults(),
67      drop   = "technic:mv_battery_box",
68      can_dig = function(pos,player)
69               local meta = minetest.env:get_meta(pos);
70               local inv = meta:get_inventory()
ee5c6c 71               if not inv:is_empty("src") or not inv:is_empty("dst") then
K 72              minetest.chat_send_player(player:get_player_name(), "Machine cannot be removed because it is not empty");
8e03d7 73              return false
ee5c6c 74               else
K 75              return true
8e03d7 76               end
ee5c6c 77            end,
8e03d7 78       })
82cba9 79 end
R 80
ee5c6c 81 local power_tools = technic.MV_power_tools
K 82
83 local charge_MV_tools = function(meta, charge)
84              --charge registered power tools
85              local inv = meta:get_inventory()
86              if inv:is_empty("src")==false  then
87             local srcstack = inv:get_stack("src", 1)
88             local src_item=srcstack:to_table()
89             local src_meta=get_item_meta(src_item["metadata"])
90             
91             local toolname = src_item["name"]
92             if power_tools[toolname] ~= nil then
93                -- Set meta data for the tool if it didn't do it itself :-(
94                src_meta=get_item_meta(src_item["metadata"])
95                if src_meta==nil then
96                   src_meta={}
97                   src_meta["technic_mv_power_tool"]=true
98                   src_meta["charge"]=0
99                else
100                   if src_meta["technic_mv_power_tool"]==nil then
101                  src_meta["technic_mv_power_tool"]=true
102                  src_meta["charge"]=0
103                   end
104                end
105                -- Do the charging
106                local item_max_charge = power_tools[toolname]
107                local load            = src_meta["charge"]
108                local load_step       = 1000 -- how much to charge per tick
109                if load<item_max_charge and charge>0 then
110                   if charge-load_step<0 then load_step=charge end
111                   if load+load_step>item_max_charge then load_step=item_max_charge-load end
112                   load=load+load_step
113                   charge=charge-load_step
114                   technic.set_RE_wear(src_item,load,item_max_charge)
115                   src_meta["charge"]   = load
116                   src_item["metadata"] = set_item_meta(src_meta)
117                   inv:set_stack("src", 1, src_item)
118                end
119             end
120              end
121              return charge -- return the remaining charge in the battery
122           end
123
124 local discharge_MV_tools = function(meta, charge, max_charge)
125             -- discharging registered power tools
126             local inv = meta:get_inventory()
127             if inv:is_empty("dst") == false then
128                srcstack = inv:get_stack("dst", 1)
129                src_item=srcstack:to_table()
130                local src_meta=get_item_meta(src_item["metadata"])
131                local toolname = src_item["name"]
132                if power_tools[toolname] ~= nil then
133                   -- Set meta data for the tool if it didn't do it itself :-(
134                   src_meta=get_item_meta(src_item["metadata"])
135                   if src_meta==nil then
136                  src_meta={}
137                  src_meta["technic_mv_power_tool"]=true
138                  src_meta["charge"]=0
139                   else
140                  if src_meta["technic_mv_power_tool"]==nil then
141                     src_meta["technic_mv_power_tool"]=true
142                     src_meta["charge"]=0
143                  end
144                   end
145                   -- Do the discharging
146                   local item_max_charge = power_tools[toolname]
147                   local load            = src_meta["charge"]
148                   local load_step       = 4000 -- how much to discharge per tick
149                   if load>0 and charge<max_charge then
150                  if charge+load_step>max_charge then load_step=max_charge-charge end
151                  if load-load_step<0 then load_step=load end
152                  load=load-load_step
153                  charge=charge+load_step
154                  technic.set_RE_wear(src_item,load,item_max_charge)
155                  src_meta["charge"]=load
156                  src_item["metadata"]=set_item_meta(src_meta)
157                  inv:set_stack("dst", 1, src_item)
158                   end
159                end
160             end
161             return charge -- return the remaining charge in the battery
162              end
163
8e03d7 164 minetest.register_abm(
ee5c6c 165    {
K 166       nodenames = {"technic:mv_battery_box","technic:mv_battery_box1","technic:mv_battery_box2","technic:mv_battery_box3","technic:mv_battery_box4",
167            "technic:mv_battery_box5","technic:mv_battery_box6","technic:mv_battery_box7","technic:mv_battery_box8"
168         },
169       interval = 1,
170       chance   = 1,
171       action = function(pos, node, active_object_count, active_object_count_wider)
172         local meta               = minetest.env:get_meta(pos)
173         local max_charge         = 300000 -- Set maximum charge for the device here
174         local max_charge_rate    = 2000   -- Set maximum rate of charging (4000)
175         local max_discharge_rate = 3000   -- Set maximum rate of discharging
176         local eu_input           = meta:get_int("MV_EU_input")
177         local current_charge     = meta:get_int("internal_EU_charge") -- Battery charge right now
178
179         -- Power off automatically if no longer connected to a switching station
180         technic.switching_station_timeout_count(pos, "MV")
181
182         -- Charge/discharge the battery with the input EUs
183         if eu_input >=0 then
184            current_charge = math.min(current_charge+eu_input, max_charge)
185         else
186            current_charge = math.max(current_charge+eu_input, 0)
187         end
188
189         -- Charging/discharging tools here
190         current_charge = charge_MV_tools(meta, current_charge)
191         current_charge = discharge_MV_tools(meta, current_charge, max_charge)
192
193         -- Set a demand (we allow batteries to charge on less than the demand though)
194         meta:set_int("MV_EU_demand", math.min(max_charge_rate, max_charge-current_charge))
195
196         -- Set how much we can supply
197         meta:set_int("MV_EU_supply", math.min(max_discharge_rate, current_charge))
198
199         meta:set_int("internal_EU_charge", current_charge)
200         --dprint("BA: input:"..eu_input.." supply="..meta:get_int("MV_EU_supply").." demand="..meta:get_int("MV_EU_demand").." current:"..current_charge)
82cba9 201
8e03d7 202         -- Select node textures
ee5c6c 203         local i=math.ceil((current_charge/max_charge)*8)
8e03d7 204         if i > 8 then i = 8 end
R 205         local j = meta:get_float("last_side_shown")
206         if i~=j then
207            if i>0 then hacky_swap_node(pos,"technic:mv_battery_box"..i)
208            elseif i==0 then hacky_swap_node(pos,"technic:mv_battery_box") end
209            meta:set_float("last_side_shown",i)
82cba9 210         end
e23f87 211
ee5c6c 212         local load = math.floor(current_charge/max_charge * 100)
8e03d7 213         meta:set_string("formspec",
ee5c6c 214                 battery_box_formspec..
8e03d7 215                    "image[1,1;1,2;technic_power_meter_bg.png^[lowpart:"..
R 216                    (load)..":technic_power_meter_fg.png]"
217                  )
82cba9 218
ee5c6c 219         if eu_input == 0 then
K 220            meta:set_string("infotext", "MV Battery box: "..current_charge.."/"..max_charge.." (idle)")
221         else
222            meta:set_string("infotext", "MV Battery box: "..current_charge.."/"..max_charge)
8e03d7 223         end
R 224          end
ee5c6c 225    })
82cba9 226
8e03d7 227 -- Register as a battery type
R 228 -- Battery type machines function as power reservoirs and can both receive and give back power
ee5c6c 229 technic.register_MV_machine("technic:mv_battery_box","BA")
8e03d7 230 for i=1,8,1 do
ee5c6c 231    technic.register_MV_machine("technic:mv_battery_box"..i,"BA")
82cba9 232 end
R 233