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