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