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