| commit | author | age | ||
| ee5c6c | 1 | -- LV Battery box and some other nodes... |
| K | 2 | technic.register_LV_power_tool("technic:battery",10000) |
| 3 | technic.register_MV_power_tool("technic:red_energy_crystal",100000) | |
| 4 | technic.register_HV_power_tool("technic:green_energy_crystal",250000) | |
| 5 | technic.register_HV_power_tool("technic:blue_energy_crystal",500000) | |
| 82cba9 | 6 | |
| R | 7 | minetest.register_craft({ |
| 19c9a0 | 8 | output = 'technic:battery 1', |
| S | 9 | recipe = { |
| 10 | {'default:wood', 'default:copper_ingot', 'default:wood'}, | |
| 11 | {'default:wood', 'moreores:tin_ingot', 'default:wood'}, | |
| 12 | {'default:wood', 'default:copper_ingot', 'default:wood'}, | |
| 13 | } | |
| 14 | }) | |
| 82cba9 | 15 | |
| 19c9a0 | 16 | minetest.register_tool("technic:battery", { |
| S | 17 | description = "RE Battery", |
| 18 | inventory_image = "technic_battery.png", | |
| 19 | tool_capabilities = { | |
| 20 | load=0, | |
| 21 | max_drop_level=0, | |
| 22 | groupcaps={ | |
| 23 | fleshy={times={}, uses=10000, maxlevel=0} | |
| 24 | } | |
| 25 | } | |
| 26 | }) | |
| 82cba9 | 27 | |
| ee5c6c | 28 | -------------------------------------------- |
| K | 29 | -- The Battery box |
| 30 | -------------------------------------------- | |
| 82cba9 | 31 | minetest.register_craftitem("technic:battery_box", { |
| 19c9a0 | 32 | description = "Battery box", |
| S | 33 | stack_max = 99, |
| 34 | }) | |
| 82cba9 | 35 | |
| 19c9a0 | 36 | minetest.register_craft({ |
| S | 37 | output = 'technic:battery_box 1', |
| 38 | recipe = { | |
| 39 | {'technic:battery', 'default:wood', 'technic:battery'}, | |
| 40 | {'technic:battery', 'default:copper_ingot', 'technic:battery'}, | |
| 41 | {'default:steel_ingot', 'default:steel_ingot', 'default:steel_ingot'}, | |
| 42 | } | |
| 43 | }) | |
| 82cba9 | 44 | |
| ee5c6c | 45 | local battery_box_formspec = |
| 3a3700 | 46 | "invsize[8,9;]".. |
| R | 47 | "image[1,1;1,2;technic_power_meter_bg.png]".. |
| 48 | "list[current_name;src;3,1;1,1;]".. | |
| 19c9a0 | 49 | "image[4,1;1,1;technic_battery_reload.png]".. |
| 3a3700 | 50 | "list[current_name;dst;5,1;1,1;]".. |
| 19c9a0 | 51 | "label[0,0;Battery box]".. |
| 3a3700 | 52 | "label[3,0;Charge]".. |
| R | 53 | "label[5,0;Discharge]".. |
| 54 | "label[1,3;Power level]".. | |
| 19c9a0 | 55 | "list[current_player;main;0,5;8,4;]" |
| 82cba9 | 56 | |
| 19c9a0 | 57 | minetest.register_node("technic:battery_box", { |
| S | 58 | description = "LV Battery Box", |
| 59 | tiles = {"technic_battery_box_top.png", "technic_battery_box_bottom.png", | |
| 60 | "technic_battery_box_side0.png", "technic_battery_box_side0.png", | |
| 61 | "technic_battery_box_side0.png", "technic_battery_box_side0.png"}, | |
| 62 | groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2}, | |
| 63 | sounds = default.node_sound_wood_defaults(), | |
| 64 | drop="technic:battery_box", | |
| 65 | on_construct = function(pos) | |
| 66 | local meta = minetest.env:get_meta(pos) | |
| 67 | local inv = meta:get_inventory() | |
| 68 | meta:set_string("infotext", "Battery box") | |
| 69 | meta:set_float("technic_power_machine", 1) | |
| 70 | meta:set_string("formspec", battery_box_formspec) | |
| 71 | meta:set_int("LV_EU_demand", 0) -- How much can this node charge | |
| 72 | meta:set_int("LV_EU_supply", 0) -- How much can this node discharge | |
| 73 | meta:set_int("LV_EU_input", 0) -- How much power is this machine getting. | |
| 74 | meta:set_float("internal_EU_charge", 0) | |
| 75 | inv:set_size("src", 1) | |
| 76 | inv:set_size("dst", 1) | |
| 77 | end, | |
| 78 | can_dig = function(pos,player) | |
| 79 | local meta = minetest.env:get_meta(pos); | |
| 80 | local inv = meta:get_inventory() | |
| 81 | if not inv:is_empty("src") or not inv:is_empty("dst") then | |
| 82 | minetest.chat_send_player(player:get_player_name(), | |
| 83 | "Machine cannot be removed because it is not empty"); | |
| 84 | return false | |
| 85 | else | |
| 8e03d7 | 86 | return true |
| 19c9a0 | 87 | end |
| S | 88 | end, |
| 89 | }) | |
| 82cba9 | 90 | |
| R | 91 | |
| 92 | for i=1,8,1 do | |
| 8e03d7 | 93 | minetest.register_node( |
| R | 94 | "technic:battery_box"..i, { |
| 95 | description = "LV Battery Box", | |
| 19c9a0 | 96 | tiles = {"technic_battery_box_top.png", "technic_battery_box_bottom.png", |
| S | 97 | "technic_battery_box_side0.png^technic_power_meter"..i..".png", |
| 98 | "technic_battery_box_side0.png^technic_power_meter"..i..".png", | |
| 99 | "technic_battery_box_side0.png^technic_power_meter"..i..".png", | |
| 100 | "technic_battery_box_side0.png^technic_power_meter"..i..".png"}, | |
| 8e03d7 | 101 | groups = {snappy=2,choppy=2,oddly_breakable_by_hand=2,not_in_creative_inventory=1}, |
| R | 102 | sounds = default.node_sound_wood_defaults(), |
| 103 | drop="technic:battery_box", | |
| 104 | can_dig = function(pos,player) | |
| ee5c6c | 105 | local meta = minetest.env:get_meta(pos); |
| K | 106 | local inv = meta:get_inventory() |
| 107 | if not inv:is_empty("src") or not inv:is_empty("dst") then | |
| 108 | minetest.chat_send_player(player:get_player_name(), "Machine cannot be removed because it is not empty"); | |
| 109 | return false | |
| 110 | else | |
| 111 | return true | |
| 112 | end | |
| 113 | end, | |
| 8e03d7 | 114 | }) |
| 82cba9 | 115 | end |
| R | 116 | |
| ee5c6c | 117 | local power_tools = technic.LV_power_tools |
| 82cba9 | 118 | |
| ee5c6c | 119 | local charge_LV_tools = function(meta, charge) |
| K | 120 | --charge registered power tools |
| 121 | local inv = meta:get_inventory() | |
| 122 | if inv:is_empty("src")==false then | |
| 123 | local srcstack = inv:get_stack("src", 1) | |
| 124 | local src_item=srcstack:to_table() | |
| 125 | local src_meta=get_item_meta(src_item["metadata"]) | |
| 126 | ||
| 127 | local toolname = src_item["name"] | |
| 128 | if power_tools[toolname] ~= nil then | |
| 129 | -- Set meta data for the tool if it didn't do it itself :-( | |
| 130 | src_meta=get_item_meta(src_item["metadata"]) | |
| 131 | if src_meta==nil then | |
| 132 | src_meta={} | |
| 133 | src_meta["technic_power_tool"]=true | |
| 134 | src_meta["charge"]=0 | |
| 135 | else | |
| 136 | if src_meta["technic_power_tool"]==nil then | |
| 137 | src_meta["technic_power_tool"]=true | |
| 138 | src_meta["charge"]=0 | |
| 139 | end | |
| 140 | end | |
| 141 | -- Do the charging | |
| 142 | local item_max_charge = power_tools[toolname] | |
| 143 | local load = src_meta["charge"] | |
| 144 | local load_step = 1000 -- how much to charge per tick | |
| 145 | if load<item_max_charge and charge>0 then | |
| 146 | if charge-load_step<0 then load_step=charge end | |
| 147 | if load+load_step>item_max_charge then load_step=item_max_charge-load end | |
| 148 | load=load+load_step | |
| 149 | charge=charge-load_step | |
| 150 | technic.set_RE_wear(src_item,load,item_max_charge) | |
| 151 | src_meta["charge"] = load | |
| 152 | src_item["metadata"] = set_item_meta(src_meta) | |
| 153 | inv:set_stack("src", 1, src_item) | |
| 154 | end | |
| 155 | end | |
| 156 | end | |
| 157 | return charge -- return the remaining charge in the battery | |
| 158 | end | |
| 82cba9 | 159 | |
| ee5c6c | 160 | local discharge_LV_tools = function(meta, charge, max_charge) |
| K | 161 | -- discharging registered power tools |
| 162 | local inv = meta:get_inventory() | |
| 163 | if inv:is_empty("dst") == false then | |
| 164 | srcstack = inv:get_stack("dst", 1) | |
| 165 | src_item=srcstack:to_table() | |
| 166 | local src_meta=get_item_meta(src_item["metadata"]) | |
| 167 | local toolname = src_item["name"] | |
| 168 | if power_tools[toolname] ~= nil then | |
| 169 | -- Set meta data for the tool if it didn't do it itself :-( | |
| 170 | src_meta=get_item_meta(src_item["metadata"]) | |
| 171 | if src_meta==nil then | |
| 172 | src_meta={} | |
| 173 | src_meta["technic_power_tool"]=true | |
| 174 | src_meta["charge"]=0 | |
| 175 | else | |
| 176 | if src_meta["technic_power_tool"]==nil then | |
| 177 | src_meta["technic_power_tool"]=true | |
| 178 | src_meta["charge"]=0 | |
| 179 | end | |
| 180 | end | |
| 181 | -- Do the discharging | |
| 182 | local item_max_charge = power_tools[toolname] | |
| 183 | local load = src_meta["charge"] | |
| 184 | local load_step = 4000 -- how much to discharge per tick | |
| 185 | if load>0 and charge<max_charge then | |
| 186 | if charge+load_step>max_charge then load_step=max_charge-charge end | |
| 187 | if load-load_step<0 then load_step=load end | |
| 188 | load=load-load_step | |
| 189 | charge=charge+load_step | |
| 190 | technic.set_RE_wear(src_item,load,item_max_charge) | |
| 191 | src_meta["charge"]=load | |
| 192 | src_item["metadata"]=set_item_meta(src_meta) | |
| 193 | inv:set_stack("dst", 1, src_item) | |
| 194 | end | |
| 195 | end | |
| 196 | end | |
| 197 | return charge -- return the remaining charge in the battery | |
| 198 | end | |
| 82cba9 | 199 | |
| 8e03d7 | 200 | minetest.register_abm( |
| R | 201 | {nodenames = {"technic:battery_box","technic:battery_box1","technic:battery_box2","technic:battery_box3","technic:battery_box4", |
| 202 | "technic:battery_box5","technic:battery_box6","technic:battery_box7","technic:battery_box8"}, | |
| 203 | interval = 1, | |
| 204 | chance = 1, | |
| 205 | action = function(pos, node, active_object_count, active_object_count_wider) | |
| ee5c6c | 206 | local meta = minetest.env:get_meta(pos) |
| K | 207 | local max_charge = 60000 -- Set maximum charge for the device here |
| 208 | local max_charge_rate = 1000 -- Set maximum rate of charging | |
| 209 | local max_discharge_rate = 2000 -- Set maximum rate of discharging | |
| 210 | local eu_input = meta:get_int("LV_EU_input") | |
| 211 | local current_charge = meta:get_int("internal_EU_charge") -- Battery charge right now | |
| 212 | ||
| 213 | -- Power off automatically if no longer connected to a switching station | |
| 214 | technic.switching_station_timeout_count(pos, "LV") | |
| 215 | ||
| 216 | -- Charge/discharge the battery with the input EUs | |
| 217 | if eu_input >=0 then | |
| 218 | current_charge = math.min(current_charge+eu_input, max_charge) | |
| 219 | else | |
| 220 | current_charge = math.max(current_charge+eu_input, 0) | |
| 221 | end | |
| 222 | ||
| 223 | -- Charging/discharging tools here | |
| 224 | current_charge = charge_LV_tools(meta, current_charge) | |
| 225 | current_charge = discharge_LV_tools(meta, current_charge, max_charge) | |
| 226 | ||
| 227 | -- Set a demand (we allow batteries to charge on less than the demand though) | |
| 228 | meta:set_int("LV_EU_demand", math.min(max_charge_rate, max_charge-current_charge)) | |
| 229 | --print("BA:"..max_charge_rate.."|"..max_charge-current_charge.."|"..math.min(max_charge_rate, max_charge-current_charge)) | |
| 230 | ||
| 231 | -- Set how much we can supply | |
| 232 | meta:set_int("LV_EU_supply", math.min(max_discharge_rate, current_charge)) | |
| 233 | ||
| 234 | meta:set_int("internal_EU_charge", current_charge) | |
| 235 | --dprint("BA: input:"..eu_input.." supply="..meta:get_int("LV_EU_supply").." demand="..meta:get_int("LV_EU_demand").." current:"..current_charge) | |
| 82cba9 | 236 | |
| 8e03d7 | 237 | -- Select node textures |
| ee5c6c | 238 | local i=math.ceil((current_charge/max_charge)*8) |
| 8e03d7 | 239 | if i > 8 then i = 8 end |
| R | 240 | local j = meta:get_float("last_side_shown") |
| 241 | if i~=j then | |
| 242 | if i>0 then hacky_swap_node(pos,"technic:battery_box"..i) | |
| 243 | elseif i==0 then hacky_swap_node(pos,"technic:battery_box") end | |
| 244 | meta:set_float("last_side_shown",i) | |
| 82cba9 | 245 | end |
| R | 246 | |
| ee5c6c | 247 | local load = math.floor(current_charge/max_charge * 100) |
| 8e03d7 | 248 | meta:set_string("formspec", |
| e23f87 | 249 | battery_box_formspec.. |
| 8e03d7 | 250 | "image[1,1;1,2;technic_power_meter_bg.png^[lowpart:".. |
| R | 251 | (load)..":technic_power_meter_fg.png]" |
| 252 | ) | |
| e23f87 | 253 | |
| ee5c6c | 254 | if eu_input == 0 then |
| K | 255 | meta:set_string("infotext", "LV Battery box: "..current_charge.."/"..max_charge.." (idle)") |
| 256 | else | |
| 257 | meta:set_string("infotext", "LV Battery box: "..current_charge.."/"..max_charge) | |
| 8e03d7 | 258 | end |
| 82cba9 | 259 | |
| 8e03d7 | 260 | end |
| R | 261 | }) |
| 82cba9 | 262 | |
| 8e03d7 | 263 | -- Register as a battery type |
| R | 264 | -- Battery type machines function as power reservoirs and can both receive and give back power |
| ee5c6c | 265 | technic.register_LV_machine("technic:battery_box","BA") |
| 8e03d7 | 266 | for i=1,8,1 do |
| ee5c6c | 267 | technic.register_LV_machine("technic:battery_box"..i,"BA") |
| 82cba9 | 268 | end |
| R | 269 | |
