From 0f7810e53895f5742ab577559584539e6533a0dc Mon Sep 17 00:00:00 2001
From: auouymous <5005204+auouymous@users.noreply.github.com>
Date: Sat, 06 Feb 2021 12:41:09 +0100
Subject: [PATCH] Public/private mode for self-contained injector (#567)

---
 technic/tools/flashlight.lua |  224 ++++++++++++++++++++++---------------------------------
 1 files changed, 89 insertions(+), 135 deletions(-)

diff --git a/technic/tools/flashlight.lua b/technic/tools/flashlight.lua
index 56d3137..84decbb 100644
--- a/technic/tools/flashlight.lua
+++ b/technic/tools/flashlight.lua
@@ -1,149 +1,36 @@
--- original code comes from walkin_light mod by Echo http://minetest.net/forum/viewtopic.php?id=2621
+-- Original code comes from walkin_light mod by Echo
+-- http://minetest.net/forum/viewtopic.php?id=2621
 
 local flashlight_max_charge = 30000
 
 local S = technic.getter
 
 technic.register_power_tool("technic:flashlight", flashlight_max_charge)
-      
+
+minetest.register_alias("technic:light_off", "air")
+
 minetest.register_tool("technic:flashlight", {
 	description = S("Flashlight"),
 	inventory_image = "technic_flashlight.png",
 	stack_max = 1,
-	on_use = function(itemstack, user, pointed_thing)
-	end,
+	wear_represents = "technic_RE_charge",
+	on_refill = technic.refill_RE_charge,
 })
 
 minetest.register_craft({
-output = "technic:flashlight",
-recipe = {
-		{"technic:rubber",                "glass",           "technic:rubber"},
+	output = "technic:flashlight",
+	recipe = {
+		{"technic:rubber",                "default:glass",   "technic:rubber"},
 		{"technic:stainless_steel_ingot", "technic:battery", "technic:stainless_steel_ingot"},
 		{"",                              "technic:battery", ""}
 	}
 })
 
-local players = {}
+
 local player_positions = {}
-local last_wielded = {}
+local was_wielding = {}
 
-function round(num) 
-	return math.floor(num + 0.5) 
-end
-
-minetest.register_on_joinplayer(function(player)
-	local player_name = player:get_player_name()
-	table.insert(players, player_name)
-	local pos = player:getpos()
-	local rounded_pos = {x=round(pos.x),y=round(pos.y)+1,z=round(pos.z)}
-	player_positions[player_name] = rounded_pos
-end)
-
-minetest.register_on_leaveplayer(function(player)
-	local player_name = player:get_player_name()
-	for i, v in ipairs(players) do
-		if v == player_name then 
-			table.remove(players, i)
-			last_wielded[player_name] = nil
-			-- Neuberechnung des Lichts erzwingen
-			local pos = player:getpos()
-			local rounded_pos = {x=round(pos.x),y=round(pos.y)+1,z=round(pos.z)}
-			local nodename = minetest.get_node(rounded_pos).name
-			if nodename == "technic:light_off" or nodename == "technic:light" then
-				minetest.remove_node(rounded_pos)
-			end
-			if player_positions[player_name] then
-				player_positions[player_name] = nil
-			end
-		end
-	end
-end)
-
-minetest.register_globalstep(function(dtime)
-	for i, player_name in ipairs(players) do
-		local player = minetest.get_player_by_name(player_name)
-		if player then
-			flashlight_weared = check_for_flashlight(player)
-			local pos = player:getpos()
-			local rounded_pos = {x=round(pos.x), y=round(pos.y)+1, z=round(pos.z)}
-			local old_pos = vector.new(player_positions[player_name])
-			
-			if last_wielded[player_name] and not flashlight_weared then --remove light, flashlight weared out or was removed from hotbar
-				local node = minetest.get_node_or_nil(old_pos)
-				if node and node.name == "technic:light" then 
-					minetest.add_node(old_pos,{name="air"})		
-					last_wielded[player_name] = false
-				end
-
-				player_moved = not(old_pos.x == rounded_pos.x and old_pos.y == rounded_pos.y and old_pos.z == rounded_pos.z)
-				if player_moved and last_wielded[player_name] and flashlight_weared  then
-					
-					local node=minetest.env:get_node_or_nil(rounded_pos)
-					if node then
-						if node.name=="air" then 
-							minetest.env:add_node(rounded_pos,{type="node",name="technic:light"})
-						end
-					end
-					local node=minetest.env:get_node_or_nil(old_pos)
-					if node then
-						if node.name=="technic:light" then 
-							minetest.env:add_node(old_pos,{type="node",name="technic:light_off"})
-							minetest.env:add_node(old_pos,{type="node",name="air"})		
-						end
-					end
-					player_positions[player_name]["x"] = rounded_pos.x
-					player_positions[player_name]["y"] = rounded_pos.y
-					player_positions[player_name]["z"] = rounded_pos.z
-					
-				elseif not last_wielded[player_name] and flashlight_weared then
-					local node=minetest.env:get_node_or_nil(rounded_pos)
-					if node then
-						if node.name=="air" then 
-							minetest.env:add_node(rounded_pos,{type="node",name="technic:light"})
-						end
-					end
-					player_positions[player_name]["x"] = rounded_pos.x
-					player_positions[player_name]["y"] = rounded_pos.y
-					player_positions[player_name]["z"] = rounded_pos.z
-					last_wielded[player_name]=true
-				end			
-					
-			end
-		end
-	end
-end)
-
-minetest.register_node("technic:light", {
-	drawtype = "glasslike",
-	tile_images = {"technic_light.png"},
-	paramtype = "light",
-	walkable = false,
-	buildable_to = true,
-	is_ground_content = true,
-	light_propagates = true,
-	sunlight_propagates = true,
-	light_source = 15,
-	selection_box = {
-        type = "fixed",
-        fixed = {0, 0, 0, 0, 0, 0},
-    },
-})
-minetest.register_node("technic:light_off", {
-	drawtype = "glasslike",
-	tile_images = {"technic_light.png"},
-	paramtype = "light",
-	walkable = false,
-	buildable_to = true,
-	is_ground_content = true,
-	light_propagates = true,
-	sunlight_propagates = true,
-	selection_box = {
-        type = "fixed",
-        fixed = {0, 0, 0, 0, 0, 0},
-    },
-})
-
-function check_for_flashlight(player)
+local function check_for_flashlight(player)
 	if player == nil then
 		return false
 	end
@@ -151,15 +38,14 @@
 	local hotbar = inv:get_list("main")
 	for i = 1, 8 do
 		if hotbar[i]:get_name() == "technic:flashlight" then
-			local meta = get_item_meta(hotbar[i]:get_metadata())
-			if not meta or not meta.charge then
-				return false
-			end
-			if meta.charge - 2 > 0 then
-				meta.charge = meta.charge - 2;
-				technic.set_RE_wear(hotbar[i], meta.charge, flashlight_max_charge)
-				hotbar[i]:set_metadata(set_item_meta(meta))
-				inv:set_stack("main", i, hotbar[i])
+			local meta = minetest.deserialize(hotbar[i]:get_metadata())
+			if meta and meta.charge and meta.charge >= 2 then
+				if not technic.creative_mode then
+					meta.charge = meta.charge - 2;
+					technic.set_RE_wear(hotbar[i], meta.charge, flashlight_max_charge)
+					hotbar[i]:set_metadata(minetest.serialize(meta))
+					inv:set_stack("main", i, hotbar[i])
+				end
 				return true
 			end
 		end
@@ -167,3 +53,71 @@
 	return false
 end
 
+minetest.register_on_joinplayer(function(player)
+	local player_name = player:get_player_name()
+	local pos = player:get_pos()
+	local rounded_pos = vector.round(pos)
+	rounded_pos.y = rounded_pos.y + 1
+	player_positions[player_name] = rounded_pos
+	was_wielding[player_name] = true
+end)
+
+
+minetest.register_on_leaveplayer(function(player)
+	local player_name = player:get_player_name()
+	local pos = player_positions[player_name]
+	local nodename = minetest.get_node(pos).name
+	if nodename == "technic:light" then
+		minetest.remove_node(pos)
+	end
+	player_positions[player_name] = nil
+end)
+
+minetest.register_globalstep(function(dtime)
+	for i, player in pairs(minetest.get_connected_players()) do
+		local player_name = player:get_player_name()
+		local flashlight_weared = check_for_flashlight(player)
+		local pos = player:get_pos()
+		local rounded_pos = vector.round(pos)
+		rounded_pos.y = rounded_pos.y + 1
+		local old_pos = player_positions[player_name]
+		local player_moved = old_pos and not vector.equals(old_pos, rounded_pos)
+		if not old_pos then
+			old_pos = rounded_pos
+			player_moved = true
+		end
+
+		-- Remove light, flashlight weared out or was removed from hotbar
+		if was_wielding[player_name] and not flashlight_weared then
+			was_wielding[player_name] = false
+			local node = minetest.get_node_or_nil(old_pos)
+			if node and node.name == "technic:light" then
+				minetest.remove_node(old_pos)
+			end
+		elseif (player_moved or not was_wielding[player_name]) and flashlight_weared then
+			local node = minetest.get_node_or_nil(rounded_pos)
+			if node and node.name == "air" then
+				minetest.set_node(rounded_pos, {name="technic:light"})
+			end
+			node = minetest.get_node_or_nil(old_pos)
+			if node and node.name == "technic:light" then
+				minetest.remove_node(old_pos)
+			end
+			player_positions[player_name] = rounded_pos
+			was_wielding[player_name] = true
+		end
+	end
+end)
+
+minetest.register_node("technic:light", {
+	drawtype = "glasslike",
+	tiles = {"technic_light.png"},
+	paramtype = "light",
+	groups = {not_in_creative_inventory = 1},
+	drop = "",
+	walkable = false,
+	buildable_to = true,
+	sunlight_propagates = true,
+	light_source = minetest.LIGHT_MAX,
+	pointable = false,
+})

--
Gitblit v1.8.0