first working version

.github/workflows/luacheck.yml

@@ -0,0 +1,13 @@
+name: luacheck
+on: [push, pull_request]
+jobs:
+  build:
+    runs-on: ubuntu-latest
+    steps:
+    - uses: actions/checkout@master
+    - name: apt
+      run: sudo apt-get install -y luarocks
+    - name: luacheck install
+      run: luarocks install --local luacheck
+    - name: luacheck run
+      run: $HOME/.luarocks/bin/luacheck ./

.luacheckrc

@@ -0,0 +1,8 @@
+
+read_globals = {
+	"minetest",
+	
+	table = {fields = {"copy"}},
+	
+	"armor", "technic",
+}

init.lua

@@ -0,0 +1,206 @@
+
+local has_technic = minetest.get_modpath("technic")
+
+local drain_inv = minetest.settings:get_bool("headlamp_check_inventory", false)
+local battery_life = tonumber(minetest.settings:get("headlamp_battery_life")) or 1
+local battery_drain = math.floor(65535 / (battery_life * 60)) * 5
+
+-- Helper function to make code neater
+local function merge(t1, t2)
+	local t = table.copy(t1)
+	for k, v in pairs(t2) do
+		t[k] = v
+	end
+	return t
+end
+
+-- Battery draining logic
+--------------------------------------------------
+
+local function use_battery(stack)
+	if stack:get_wear() >= (65535 - battery_drain) then
+		stack:set_name("headlamp:headlamp_off")
+		return false
+	end
+	stack:add_wear(battery_drain)
+	return true
+end
+
+local function update_wielded(player)
+	local stack = player:get_wielded_item()
+	if stack:get_name() == "headlamp:headlamp_on" then
+		use_battery(stack)
+		player:set_wielded_item(stack)
+	end
+end
+
+local function update_inventory(player)
+	local inv = player:get_inventory()
+	if not inv:contains_item("main", "headlamp:headlamp_on") then
+		return  -- Skip checking every stack
+	end
+	for i=1, inv:get_size("main") do
+		local stack = inv:get_stack("main", i)
+		if stack:get_name() == "headlamp:headlamp_on" then
+			use_battery(stack)
+			inv:set_stack("main", i, stack)
+		end
+	end
+end
+
+local function update_armor(player)
+	local name, inv = armor:get_valid_player(player)
+	if not name then
+		return  -- Armor not initialized yet
+	end
+	if not inv:contains_item("armor", "headlamp:headlamp_on") then
+		return  -- Skip checking every stack
+	end
+	for i=1, inv:get_size("armor") do
+		local stack = inv:get_stack("armor", i)
+		if stack:get_name() == "headlamp:headlamp_on" then
+			local success = use_battery(stack)
+			inv:set_stack("armor", i, stack)
+			armor:save_armor_inventory(player)
+			if not success then
+				armor:set_player_armor(player)
+			end
+			return  -- There can only be one
+		end
+	end
+end
+
+local timer = 0
+
+minetest.register_globalstep(function(dtime)
+	timer = timer + dtime
+	if timer < 5 then return end -- Doesn't need a fast update, every 5 seconds is enough
+	timer = 0
+	for _, player in pairs(minetest.get_connected_players()) do
+		if not minetest.is_creative_enabled(player:get_player_name()) then
+			update_armor(player)
+			if drain_inv then
+				update_inventory(player)
+			else
+				update_wielded(player)
+			end
+		end
+	end
+end)
+
+-- Item registration
+--------------------------------------------------
+
+local base_def = {
+	groups = {armor_head = 1, armor_heal = 0, armor_use = 0},
+	armor_groups = {fleshy = 2},  -- Headlamp is terrible armor, but it's better than nothing
+	on_secondary_use = function(stack, player)
+		return armor:equip(player, stack)
+	end,
+	on_place = function(stack, player, pointed)
+		if pointed.type == "node" and player and not player:get_player_control().sneak then
+			local node = minetest.get_node(pointed.under)
+			local ndef = minetest.registered_nodes[node.name]
+			if ndef and ndef.on_rightclick then
+				return ndef.on_rightclick(pointed.under, node, player, stack, pointed)
+			end
+		end
+		return armor:equip(player, stack)
+	end,
+}
+
+if has_technic then
+	-- Battery values are now charge values instead of wear
+	battery_life = battery_life * 60
+	battery_drain = 5
+	-- Different code for different APIs
+	if technic.plus then
+		use_battery = function(stack)
+			local charge = technic.get_RE_charge(stack)
+			if charge <= battery_drain then
+				stack:set_name("headlamp:headlamp_off")
+				return false
+			end
+			technic.set_RE_charge(stack, charge - battery_drain)
+			return true
+		end
+		base_def.max_charge = battery_life
+	else
+		use_battery = function(stack)
+			local meta = stack:get_meta()
+			local metadata = minetest.deserialize(meta:get_string("")) or {}
+			if not metadata.charge or metadata.charge <= battery_drain then
+				stack:set_name("headlamp:headlamp_off")
+				return false
+			end
+			metadata.charge = metadata.charge - battery_drain
+			meta:set_string("", minetest.serialize(metadata))
+			technic.set_RE_wear(stack, metadata.charge, battery_life)
+			return true
+		end
+		base_def.wear_represents = "technic_RE_charge"
+		base_def.on_refill = technic.refill_RE_charge
+	end
+end
+
+local off_def = merge(base_def, {
+	description = "Headlamp (Off)",
+	inventory_image = "headlamp_inv_headlamp_off.png",
+	on_use = function(stack, player)
+		-- Turn headlamp on if there is enough battery left
+		if minetest.is_creative_enabled(player:get_player_name()) or use_battery(stack) then
+			stack:set_name("headlamp:headlamp_on")
+		end
+		return stack
+	end,
+})
+
+local on_def = merge(base_def, {
+	description = "Headlamp (On)",
+	inventory_image = "headlamp_inv_headlamp_on.png",
+	light_source = 14,
+	on_use = function(stack)
+		-- Turn headlamp off
+		stack:set_name("headlamp:headlamp_off")
+		return stack
+	end,
+})
+
+if has_technic and technic.plus then
+	technic.register_power_tool("headlamp:headlamp_off", off_def)
+	technic.register_power_tool("headlamp:headlamp_on", on_def)
+else
+	minetest.register_tool("headlamp:headlamp_off", off_def)
+	minetest.register_tool("headlamp:headlamp_on", on_def)
+	if has_technic then
+		technic.register_power_tool("headlamp:headlamp_off", battery_life)
+		technic.register_power_tool("headlamp:headlamp_on", battery_life)
+	end
+end
+
+-- Crafting recipe
+--------------------------------------------------
+
+if minetest.get_modpath("farming") then
+	if has_technic then
+		-- Somewhat realistic recipe
+		minetest.register_craft({
+			output = "headlamp:headlamp_off",
+			recipe = {
+				{"farming:string", "technic:battery", "farming:string"},
+				{"technic:rubber", "technic:lv_led", "technic:rubber"},
+				{"farming:string", "technic:stainless_steel_ingot", "farming:string"},
+			}
+		})
+	elseif minetest.get_modpath("default") then
+		-- Magic mese powered headlamp
+		minetest.register_craft({
+			output = "headlamp:headlamp_off",
+			recipe = {
+				{"farming:string", "farming:string", "farming:string"},
+				{"farming:string", "default:mese_crystal", "farming:string"},
+				{"farming:string", "default:steel_ingot", "farming:string"},
+			}
+		})
+	end
+end

mod.conf

@@ -0,0 +1,4 @@
+name = headlamp
+depends = illumination, 3d_armor
+optional_depends = default, farming, technic
+min_minetest_version  = 5.3.0