From a200cf68d5c7b35dc1cf5983e57aaf29f5f44a0b Mon Sep 17 00:00:00 2001
From: autocommitter <autocommitter@linux-forks.de>
Date: Fri, 22 Aug 2025 00:00:01 +0200
Subject: State at 2025-08-22

---
 m4/init_code.lua            | 6 ++++++
 m4/nodes/(1734,26,2901).lua | 5 ++++-
 m4/nodes/(4534,11,6814).lua | 4 ----
 m4/nodes/(4536,11,6814).lua | 4 ++++
 m4/nodes/(4537,11,6814).lua | 4 ----
 m4/nodes/(4538,11,6814).lua | 5 +++++
 6 files changed, 19 insertions(+), 9 deletions(-)
 delete mode 100644 m4/nodes/(4534,11,6814).lua
 create mode 100644 m4/nodes/(4536,11,6814).lua
 delete mode 100644 m4/nodes/(4537,11,6814).lua
 create mode 100644 m4/nodes/(4538,11,6814).lua

(limited to 'm4')

diff --git a/m4/init_code.lua b/m4/init_code.lua
index d32be9f..b7c58a3 100644
--- a/m4/init_code.lua
+++ b/m4/init_code.lua
@@ -95,6 +95,12 @@ function F.cpl_looparound(ln)
 end
 --end of new cpl functions
 
+--[[  testing functions for train length print
+]]--
+function F.print_length()
+  F.print(F.get_train_length_safe())
+end
+
 --[[  Utility Functions
 ]]--
 F.indicator = function(indicator,set)
diff --git a/m4/nodes/(1734,26,2901).lua b/m4/nodes/(1734,26,2901).lua
index 66ba746..0361c74 100644
--- a/m4/nodes/(1734,26,2901).lua
+++ b/m4/nodes/(1734,26,2901).lua
@@ -1 +1,4 @@
-F.split_looparound_left("E16")
\ No newline at end of file
+if (event.train) then
+--  F.print_length()
+  F.split_looparound_left("E16")
+end
\ No newline at end of file
diff --git a/m4/nodes/(4534,11,6814).lua b/m4/nodes/(4534,11,6814).lua
deleted file mode 100644
index 2726255..0000000
--- a/m4/nodes/(4534,11,6814).lua
+++ /dev/null
@@ -1,4 +0,0 @@
-if (event.train) and (F.get_line_safe() == "E16") then
-  atc_set_text_outside("[E16] Personhood\nvia Grub Valley\nC&C Rail")
-  F.split_looparound_left("E16")
-end
\ No newline at end of file
diff --git a/m4/nodes/(4536,11,6814).lua b/m4/nodes/(4536,11,6814).lua
new file mode 100644
index 0000000..dceeeea
--- /dev/null
+++ b/m4/nodes/(4536,11,6814).lua
@@ -0,0 +1,4 @@
+-- Poor Man's ARS
+if event.train and get_line() == "E16" then
+  set_route("Btw-E16-behelf", "E16Turnback")
+end
\ No newline at end of file
diff --git a/m4/nodes/(4537,11,6814).lua b/m4/nodes/(4537,11,6814).lua
deleted file mode 100644
index 67b31a2..0000000
--- a/m4/nodes/(4537,11,6814).lua
+++ /dev/null
@@ -1,4 +0,0 @@
--- Poor Man's ARS
-if event.train and get_rc() == "E16_poor_mans_ars" then
-  set_route("Btw-E16-behelf", "E16Turnback")
-end
\ No newline at end of file
diff --git a/m4/nodes/(4538,11,6814).lua b/m4/nodes/(4538,11,6814).lua
new file mode 100644
index 0000000..2aefefb
--- /dev/null
+++ b/m4/nodes/(4538,11,6814).lua
@@ -0,0 +1,5 @@
+if (event.train) and (F.get_line_safe() == "E16") then
+--  F.print_length()
+  atc_set_text_outside("[E16] Personhood\nvia Grub Valley\nC&C Rail")
+  F.split_looparound_left("E16")
+end
\ No newline at end of file
-- 
cgit v1.2.3