From df137f9521f19584393e65f7d987c29d3a2219a3 Mon Sep 17 00:00:00 2001
From: autocommitter <autocommitter@linux-forks.de>
Date: Fri, 6 Dec 2024 00:00:02 +0100
Subject: State at 2024-12-06

---
 durt/nodes/(1704,17,4652).lua | 44 +++++++++++++++++++++++++++++++++++++++++++
 durt/nodes/(1704,17,4658).lua |  1 -
 durt/nodes/(1710,17,4637).lua | 18 +++++++++++++++++-
 durt/nodes/(1740,17,4636).lua | 15 +++++++++++++++
 durt/nodes/(1742,17,4642).lua |  1 +
 durt/nodes/(1742,17,4652).lua |  1 +
 6 files changed, 78 insertions(+), 2 deletions(-)
 create mode 100644 durt/nodes/(1704,17,4652).lua
 delete mode 100644 durt/nodes/(1704,17,4658).lua
 create mode 100644 durt/nodes/(1740,17,4636).lua
 create mode 100644 durt/nodes/(1742,17,4642).lua
 create mode 100644 durt/nodes/(1742,17,4652).lua

(limited to 'durt')

diff --git a/durt/nodes/(1704,17,4652).lua b/durt/nodes/(1704,17,4652).lua
new file mode 100644
index 0000000..ca0506c
--- /dev/null
+++ b/durt/nodes/(1704,17,4652).lua
@@ -0,0 +1,44 @@
+-- Automatic bouncer for headshunts, assuming longer headshunt than train length. Arrow points into headshunt
+local rev_rc = "MCR_HS_W"
+local rm_rc = true
+local autocouple = "MCR_HS_W_AC"
+local rm_cpl_rc = true
+
+__approach_callback_mode = 1
+
+if event.approach and not event.has_entered then
+	atc_set_lzb_tsr(3)
+	atc_set_ars_disable(true)
+	return
+end
+
+if event.train then
+	if not atc_arrow then --train has bounced
+		if F.has_rc(autocouple) then
+			atc_send("CplS0WD2S1")
+			if rm_cpl_rc then F.remove_rc({autocouple}) end
+		end
+		return
+	end
+	-- -- commented out as we want all trains to bounce here
+	-- if not F.has_rc(rev_rc) then --not our train. disregard
+	-- 	atc_set_ars_disable(false)
+	-- 	return
+	-- end
+	if rm_rc then F.remove_rc({rev_rc}) end
+	schedule_in(";01",atc_id)
+	return
+end
+
+if event.schedule then
+	if not atc_id then --bounce the train that just passed
+		atc_send_to_train(event.msg,"B0WRD1A1S3")
+	else
+		if atc_id == event.msg then --train hasn't fully passed yet, wait a bit longer
+			schedule_in(";01",atc_id)
+		else -- somehow another train crossed the controller before the first one returned. Unlikely but possible
+			atc_send_to_train(event.msg,"BBOL")
+			atc_send("BBOL")
+		end
+	end
+end
\ No newline at end of file
diff --git a/durt/nodes/(1704,17,4658).lua b/durt/nodes/(1704,17,4658).lua
deleted file mode 100644
index 7489acc..0000000
--- a/durt/nodes/(1704,17,4658).lua
+++ /dev/null
@@ -1 +0,0 @@
---
\ No newline at end of file
diff --git a/durt/nodes/(1710,17,4637).lua b/durt/nodes/(1710,17,4637).lua
index 7489acc..69bc3a1 100644
--- a/durt/nodes/(1710,17,4637).lua
+++ b/durt/nodes/(1710,17,4637).lua
@@ -1 +1,17 @@
---
\ No newline at end of file
+-- MCR Arrivals track
+local rc = "MCR_runaround"
+local list = {
+	rc,
+	"MCR_HS_W",
+	"MCR_HS_E",
+	"MCR_HS_E_AC"
+}
+if not F.has_rc(rc) then
+	split_off_locomotive("A0B0")
+	F.add_rc(list)
+	set_route(POS(1706,18,4638), "Headshunt")
+	atc_send("A1S3")
+	return
+end
+F.remove_rc(list)
+atc_send("A0S0WD5RS2")
\ No newline at end of file
diff --git a/durt/nodes/(1740,17,4636).lua b/durt/nodes/(1740,17,4636).lua
new file mode 100644
index 0000000..9cfec9d
--- /dev/null
+++ b/durt/nodes/(1740,17,4636).lua
@@ -0,0 +1,15 @@
+if event.train then
+	if not atc_arrow then return end
+	local fc = split_at_fc("A0B0", 5)
+	local cmd = {
+		"MCR_HS_E",
+		"MCR_HS_E_AC",
+		"MCR_DIR_"..fc
+	}
+	if #section_occupancy("115343") == 1 then
+		table.insert(cmd, "MCR_LAST_SORT")
+	end
+	F.add_rc(cmd)
+	atc_send("A1S3")
+	return
+end
\ No newline at end of file
diff --git a/durt/nodes/(1742,17,4642).lua b/durt/nodes/(1742,17,4642).lua
new file mode 100644
index 0000000..7489acc
--- /dev/null
+++ b/durt/nodes/(1742,17,4642).lua
@@ -0,0 +1 @@
+--
\ No newline at end of file
diff --git a/durt/nodes/(1742,17,4652).lua b/durt/nodes/(1742,17,4652).lua
new file mode 100644
index 0000000..7489acc
--- /dev/null
+++ b/durt/nodes/(1742,17,4652).lua
@@ -0,0 +1 @@
+--
\ No newline at end of file
-- 
cgit v1.2.3