From c1d5fb0e8ccc30e39919a910b30d5466a84a8464 Mon Sep 17 00:00:00 2001
From: orwell96 <orwell@bleipb.de>
Date: Fri, 26 Oct 2018 19:44:16 +0200
Subject: Add Interlocking Tool to inspect route locks

---
 advtrains_interlocking/tool.lua | 66 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 66 insertions(+)
 create mode 100644 advtrains_interlocking/tool.lua

(limited to 'advtrains_interlocking/tool.lua')

diff --git a/advtrains_interlocking/tool.lua b/advtrains_interlocking/tool.lua
new file mode 100644
index 0000000..5d38b3a
--- /dev/null
+++ b/advtrains_interlocking/tool.lua
@@ -0,0 +1,66 @@
+-- tool.lua
+-- Interlocking tool
+
+local ilrs = advtrains.interlocking.route
+
+minetest.register_craftitem("advtrains_interlocking:tool",{
+	description = "Interlocking tool\nright-click turnouts to inspect route locks",
+	groups = {cracky=1}, -- key=name, value=rating; rating=1..3.
+	inventory_image = "at_il_tool.png",
+	wield_image = "at_il_tool.png",
+	stack_max = 1,
+	on_place = function(itemstack, placer, pointed_thing)
+		local pname = placer:get_player_name()
+		if not pname then
+			return
+		end
+		if not minetest.check_player_privs(pname, {interlocking=true}) then
+			minetest.chat_send_player(pname, "Insufficient privileges to use this!")
+			return
+		end
+		if pointed_thing.type=="node" then
+			local pos=pointed_thing.under
+			if advtrains.is_passive(pos) then
+				local form = "size[7,5]label[0.5,0.5;Route lock inspector]"
+				local pts = minetest.pos_to_string(pos)
+				
+				local rtl = ilrs.has_route_lock(pts)
+				
+				if rtl then
+					form = form.."label[0.5,1;Route locks currently put:\n"..rtl.."]"
+					form = form.."button_exit[0.5,3.5;  5,1;clear;Clear]"
+				else
+					form = form.."label[0.5,1;No route locks set]"
+					form = form.."button_exit[0.5,3.5;  5,1;emplace;Emplace manual lock]"
+				end
+				
+				minetest.show_formspec(pname, "at_il_rtool_"..pts, form)
+			else
+				minetest.chat_send_player(pname, "Cannot use this here.")
+				return
+			end
+		end
+	end,
+})
+
+minetest.register_on_player_receive_fields(function(player, formname, fields)
+	local pname = player:get_player_name()
+	if not minetest.check_player_privs(pname, "interlocking") then
+		return
+	end
+	local pos
+	local pts = string.match(formname, "^at_il_rtool_(.+)$")
+	if pts then
+		pos = minetest.string_to_pos(pts)
+	end
+	if pos then
+		if advtrains.is_passive(pos) then
+			if fields.clear then
+				ilrs.remove_route_locks(pts)
+			end
+			if fields.emplace then
+				ilrs.add_manual_route_lock(pts, "Manual lock ("..pname..")")
+			end
+		end
+	end
+end)
-- 
cgit v1.2.3