From e7dcee11276477294fbc9d995c4db479e7e3cfd9 Mon Sep 17 00:00:00 2001
From: orwell96 <orwell@bleipb.de>
Date: Tue, 5 Feb 2019 11:23:17 +0100
Subject: Force LZB Halt setting

---
 advtrains_interlocking/lzb.lua          | 22 +++++++++++++++++-----
 advtrains_interlocking/settingtypes.txt |  4 ++++
 2 files changed, 21 insertions(+), 5 deletions(-)
 create mode 100644 advtrains_interlocking/settingtypes.txt

(limited to 'advtrains_interlocking')

diff --git a/advtrains_interlocking/lzb.lua b/advtrains_interlocking/lzb.lua
index b309c72..eaa9808 100644
--- a/advtrains_interlocking/lzb.lua
+++ b/advtrains_interlocking/lzb.lua
@@ -1,7 +1,6 @@
 -- lzb.lua
 -- Enforced and/or automatic train override control, obeying signals
 
-
 local function approach_callback(parpos, train_id, train, index)
 	local pos = advtrains.round_vector_floor_y(parpos)
 	
@@ -185,11 +184,24 @@ local function apply_control(id, train)
 	local i = 1
 	while i<=#lzb.oncoming do
 		if lzb.oncoming[i].idx < train.index-0.5 then
-			if not lzb.oncoming[i].npr then
-				train.speed_restriction = lzb.oncoming[i].spd
-				train.is_shunt = lzb.oncoming[i].sht
+			local ent = lzb.oncoming[i]
+			local nodelete
+			if not ent.npr then
+				if ent.spd == 0 and minetest.settings:get_bool("at_il_force_lzb_halt") then
+					atwarn(train.id,"overrun LZB 0 restriction (red signal) ",ent.pos)
+					-- Set train 1 index backward. Hope this does not lead to bugs...
+					train.index = ent.idx - 0.5
+					train.velocity = 0
+					train.ctrl.lzb = 0
+					nodelete = true
+				else
+					train.speed_restriction = ent.spd
+					train.is_shunt = ent.sht
+				end
+			end
+			if not nodelete then
+				table.remove(lzb.oncoming, i)
 			end
-			table.remove(lzb.oncoming, i)
 		else
 			i = i + 1
 		end
diff --git a/advtrains_interlocking/settingtypes.txt b/advtrains_interlocking/settingtypes.txt
new file mode 100644
index 0000000..f1c22b0
--- /dev/null
+++ b/advtrains_interlocking/settingtypes.txt
@@ -0,0 +1,4 @@
+#    Stop trains forcibly in front of signal when about to run over an LZB 0 restriction, instead of setting emergency halt for manual resolving
+#    This prevents the need to manually restart trains that overran red signals, but is unrealistic.
+#    This is a workaround to circumvent system breakages due to bugs in LZB braking curves
+at_il_force_lzb_halt (Force LZB Halt) bool true
-- 
cgit v1.2.3