| commit | author | age | ||
| ee0765 | 1 | |
| be2f30 | 2 | local S = technic.getter |
| ee0765 | 3 | |
| 354ee6 | 4 | technic.register_power_tool("technic:battery", 10000) |
| S | 5 | technic.register_power_tool("technic:red_energy_crystal", 100000) |
| 6 | technic.register_power_tool("technic:green_energy_crystal", 250000) | |
| 7 | technic.register_power_tool("technic:blue_energy_crystal", 500000) | |
| 8 | ||
| 9 | minetest.register_craft({ | |
| 10 | output = 'technic:battery', | |
| 11 | recipe = { | |
| 12 | {'group:wood', 'default:copper_ingot', 'group:wood'}, | |
| 13 | {'group:wood', 'moreores:tin_ingot', 'group:wood'}, | |
| 14 | {'group:wood', 'default:copper_ingot', 'group:wood'}, | |
| 15 | } | |
| 16 | }) | |
| 17 | ||
| 18 | minetest.register_tool("technic:battery", { | |
| 19 | description = S("RE Battery"), | |
| 20 | inventory_image = "technic_battery.png", | |
| 21 | tool_capabilities = { | |
| 22 | charge = 0, | |
| 23 | max_drop_level = 0, | |
| 24 | groupcaps = { | |
| 25 | fleshy = {times={}, uses=10000, maxlevel=0} | |
| 26 | } | |
| 27 | } | |
| 28 | }) | |
| 29 | ||
| 30 | ||
| ee0765 | 31 | function technic.register_battery_box(data) |
| S | 32 | local tier = data.tier |
| 33 | local ltier = string.lower(tier) | |
| be2f30 | 34 | |
| 76a8ac | 35 | local formspec = |
| be2f30 | 36 | "invsize[8,9;]".. |
| S | 37 | "image[1,1;1,2;technic_power_meter_bg.png]".. |
| 38 | "list[current_name;src;3,1;1,1;]".. | |
| 39 | "image[4,1;1,1;technic_battery_reload.png]".. | |
| 40 | "list[current_name;dst;5,1;1,1;]".. | |
| 41 | "label[0,0;"..S("%s Battery Box"):format(tier).."]".. | |
| 42 | "label[3,0;"..S("Charge").."]".. | |
| 43 | "label[5,0;"..S("Discharge").."]".. | |
| 44 | "label[1,3;"..S("Power level").."]".. | |
| 45 | "list[current_player;main;0,5;8,4;]" | |
| ee0765 | 46 | |
| S | 47 | for i = 0, 8 do |
| 48 | local groups = {snappy=2, choppy=2, oddly_breakable_by_hand=2} | |
| 49 | if i ~= 0 then | |
| 50 | groups.not_in_creative_inventory = 1 | |
| 51 | end | |
| 52 | minetest.register_node("technic:"..ltier.."_battery_box"..i, { | |
| be2f30 | 53 | description = S("%s Battery Box"):format(tier), |
| ee0765 | 54 | tiles = {"technic_"..ltier.."_battery_box_top.png", |
| S | 55 | "technic_"..ltier.."_battery_box_bottom.png", |
| 56 | "technic_"..ltier.."_battery_box_side.png^technic_power_meter"..i..".png", | |
| 57 | "technic_"..ltier.."_battery_box_side.png^technic_power_meter"..i..".png", | |
| 58 | "technic_"..ltier.."_battery_box_side.png^technic_power_meter"..i..".png", | |
| 59 | "technic_"..ltier.."_battery_box_side.png^technic_power_meter"..i..".png"}, | |
| 60 | groups = groups, | |
| 61 | sounds = default.node_sound_wood_defaults(), | |
| 62 | drop = "technic:"..ltier.."_battery_box0", | |
| 63 | on_construct = function(pos) | |
| 64 | local meta = minetest.get_meta(pos) | |
| 65 | local inv = meta:get_inventory() | |
| 66 | local node = minetest.get_node(pos) | |
| 67 | ||
| 76a8ac | 68 | meta:set_string("infotext", S("%s Battery Box"):format(tier)) |
| S | 69 | meta:set_string("formspec", formspec) |
| 70 | meta:set_int(tier.."_EU_demand", 0) | |
| 71 | meta:set_int(tier.."_EU_supply", 0) | |
| 72 | meta:set_int(tier.."_EU_input", 0) | |
| ee0765 | 73 | meta:set_float("internal_EU_charge", 0) |
| S | 74 | inv:set_size("src", 1) |
| 75 | inv:set_size("dst", 1) | |
| 76 | end, | |
| 0809dd | 77 | can_dig = technic.machine_can_dig, |
| S | 78 | allow_metadata_inventory_put = technic.machine_inventory_put, |
| 79 | allow_metadata_inventory_take = technic.machine_inventory_take, | |
| 80 | allow_metadata_inventory_move = technic.machine_inventory_move, | |
| ee0765 | 81 | }) |
| S | 82 | end |
| 83 | ||
| 84 | ||
| 85 | minetest.register_abm({ | |
| 86 | nodenames = {"technic:"..ltier.."_battery_box0", "technic:"..ltier.."_battery_box1", | |
| 87 | "technic:"..ltier.."_battery_box2", "technic:"..ltier.."_battery_box3", | |
| 88 | "technic:"..ltier.."_battery_box4", "technic:"..ltier.."_battery_box5", | |
| 89 | "technic:"..ltier.."_battery_box6", "technic:"..ltier.."_battery_box7", | |
| 90 | "technic:"..ltier.."_battery_box8"}, | |
| 91 | interval = 1, | |
| 92 | chance = 1, | |
| 93 | action = function(pos, node, active_object_count, active_object_count_wider) | |
| 94 | local meta = minetest.get_meta(pos) | |
| 76a8ac | 95 | local eu_input = meta:get_int(tier.."_EU_input") |
| ee0765 | 96 | local current_charge = meta:get_int("internal_EU_charge") |
| S | 97 | |
| 98 | -- Power off automatically if no longer connected to a switching station | |
| 76a8ac | 99 | technic.switching_station_timeout_count(pos, tier) |
| ee0765 | 100 | |
| S | 101 | -- Charge/discharge the battery with the input EUs |
| 102 | if eu_input >= 0 then | |
| 76a8ac | 103 | current_charge = math.min(current_charge + eu_input, data.max_charge) |
| ee0765 | 104 | else |
| S | 105 | current_charge = math.max(current_charge + eu_input, 0) |
| 106 | end | |
| 107 | ||
| 108 | -- Charging/discharging tools here | |
| 109 | current_charge = technic.charge_tools(meta, | |
| 110 | current_charge, data.charge_step) | |
| 111 | current_charge = technic.discharge_tools(meta, | |
| 76a8ac | 112 | current_charge, data.discharge_step, |
| S | 113 | data.max_charge) |
| ee0765 | 114 | |
| S | 115 | -- We allow batteries to charge on less than the demand |
| 76a8ac | 116 | meta:set_int(tier.."_EU_demand", |
| S | 117 | math.min(data.charge_rate, data.max_charge - current_charge)) |
| 118 | meta:set_int(tier.."_EU_supply", | |
| 119 | math.min(data.discharge_rate, current_charge)) | |
| ee0765 | 120 | |
| S | 121 | meta:set_int("internal_EU_charge", current_charge) |
| 122 | ||
| 123 | -- Select node textures | |
| 76a8ac | 124 | local charge_count = math.ceil((current_charge / data.max_charge) * 8) |
| ee0765 | 125 | charge_count = math.min(charge_count, 8) |
| S | 126 | charge_count = math.max(charge_count, 0) |
| 127 | local last_count = meta:get_float("last_side_shown") | |
| 128 | if charge_count ~= last_count then | |
| f3d8b4 | 129 | technic.swap_node(pos,"technic:"..ltier.."_battery_box"..charge_count) |
| ee0765 | 130 | meta:set_float("last_side_shown", charge_count) |
| S | 131 | end |
| 132 | ||
| 76a8ac | 133 | local charge_percent = math.floor(current_charge / data.max_charge * 100) |
| ee0765 | 134 | meta:set_string("formspec", |
| 76a8ac | 135 | formspec.. |
| be2f30 | 136 | "image[1,1;1,2;technic_power_meter_bg.png" |
| S | 137 | .."^[lowpart:"..charge_percent |
| 138 | ..":technic_power_meter_fg.png]") | |
| ee0765 | 139 | |
| 76a8ac | 140 | local infotext = S("%s Battery Box: %d/%d"):format(tier, |
| S | 141 | current_charge, data.max_charge) |
| ee0765 | 142 | if eu_input == 0 then |
| be2f30 | 143 | infotext = S("%s Idle"):format(infotext) |
| ee0765 | 144 | end |
| S | 145 | meta:set_string("infotext", infotext) |
| 146 | end | |
| 147 | }) | |
| 148 | ||
| 149 | -- Register as a battery type | |
| 150 | -- Battery type machines function as power reservoirs and can both receive and give back power | |
| 151 | for i = 0, 8 do | |
| 152 | technic.register_machine(tier, "technic:"..ltier.."_battery_box"..i, technic.battery) | |
| 153 | end | |
| 154 | ||
| 155 | end -- End registration | |
| 156 | ||
| 157 | ||
| eac484 | 158 | function technic.charge_tools(meta, batt_charge, charge_step) |
| ee0765 | 159 | local inv = meta:get_inventory() |
| eac484 | 160 | if inv:is_empty("src") then |
| S | 161 | return batt_charge |
| ee0765 | 162 | end |
| eac484 | 163 | local srcstack = inv:get_stack("src", 1) |
| 5cf765 | 164 | local src_meta = minetest.deserialize(srcstack:get_metadata()) |
| eac484 | 165 | |
| S | 166 | local toolname = srcstack:get_name() |
| 167 | if not technic.power_tools[toolname] then | |
| 168 | return batt_charge | |
| 169 | end | |
| 170 | -- Set meta data for the tool if it didn't do it itself | |
| 5cf765 | 171 | src_meta = minetest.deserialize(srcstack:get_metadata()) |
| eac484 | 172 | src_meta = src_meta or {} |
| S | 173 | if not src_meta.charge then |
| 174 | src_meta.charge = 0 | |
| 175 | end | |
| 176 | -- Do the charging | |
| 177 | local item_max_charge = technic.power_tools[toolname] | |
| 178 | local tool_charge = src_meta.charge | |
| 179 | if tool_charge >= item_max_charge or batt_charge <= 0 then | |
| 180 | return batt_charge | |
| 181 | end | |
| 182 | charge_step = math.min(charge_step, batt_charge) | |
| 183 | charge_step = math.min(charge_step, item_max_charge - tool_charge) | |
| 184 | tool_charge = tool_charge + charge_step | |
| 185 | batt_charge = batt_charge - charge_step | |
| 186 | technic.set_RE_wear(srcstack, tool_charge, item_max_charge) | |
| 187 | src_meta.charge = tool_charge | |
| 5cf765 | 188 | srcstack:set_metadata(minetest.serialize(src_meta)) |
| eac484 | 189 | inv:set_stack("src", 1, srcstack) |
| S | 190 | return batt_charge |
| ee0765 | 191 | end |
| S | 192 | |
| 193 | ||
| eac484 | 194 | function technic.discharge_tools(meta, batt_charge, charge_step, max_charge) |
| ee0765 | 195 | local inv = meta:get_inventory() |
| eac484 | 196 | if inv:is_empty("dst") then |
| S | 197 | return batt_charge |
| ee0765 | 198 | end |
| eac484 | 199 | srcstack = inv:get_stack("dst", 1) |
| S | 200 | local toolname = srcstack:get_name() |
| 201 | if technic.power_tools[toolname] == nil then | |
| 202 | return batt_charge | |
| 203 | end | |
| 204 | -- Set meta data for the tool if it didn't do it itself :-( | |
| 5cf765 | 205 | local src_meta = minetest.deserialize(srcstack:get_metadata()) |
| eac484 | 206 | src_meta = src_meta or {} |
| S | 207 | if not src_meta.charge then |
| 208 | src_meta.charge = 0 | |
| 209 | end | |
| 210 | ||
| 211 | -- Do the discharging | |
| 212 | local item_max_charge = technic.power_tools[toolname] | |
| 213 | local tool_charge = src_meta.charge | |
| 214 | if tool_charge <= 0 or batt_charge >= max_charge then | |
| 215 | return batt_charge | |
| 216 | end | |
| 217 | charge_step = math.min(charge_step, max_charge - batt_charge) | |
| 218 | charge_step = math.min(charge_step, tool_charge) | |
| 219 | tool_charge = tool_charge - charge_step | |
| 220 | batt_charge = batt_charge + charge_step | |
| 221 | technic.set_RE_wear(srcstack, tool_charge, item_max_charge) | |
| 222 | src_meta.charge = tool_charge | |
| 5cf765 | 223 | srcstack:set_metadata(minetest.serialize(src_meta)) |
| eac484 | 224 | inv:set_stack("dst", 1, srcstack) |
| S | 225 | return batt_charge |
| ee0765 | 226 | end |
| S | 227 | |
