From 7122450e716aa4ef98f8af8579953a0bfc0caff0 Mon Sep 17 00:00:00 2001
From: autocommitter <autocommitter@linux-forks.de>
Date: Mon, 22 Apr 2024 14:53:49 +0200
Subject: State at 2021-08-01

---
 durt/nodes/(-4128,5,-5630).lua | 21 +++++++++++++++++++++
 durt/nodes/(-4129,5,-5630).lua | 21 +++++++++++++++++++++
 durt/nodes/(-4129,9,-5588).lua | 29 ++++++++++++++++++++++++++---
 durt/nodes/(-4130,5,-5630).lua | 21 +++++++++++++++++++++
 durt/nodes/(-4132,6,-5690).lua | 20 ++++++++++++++++++++
 5 files changed, 109 insertions(+), 3 deletions(-)
 create mode 100644 durt/nodes/(-4128,5,-5630).lua
 create mode 100644 durt/nodes/(-4129,5,-5630).lua
 create mode 100644 durt/nodes/(-4130,5,-5630).lua
 create mode 100644 durt/nodes/(-4132,6,-5690).lua

diff --git a/durt/nodes/(-4128,5,-5630).lua b/durt/nodes/(-4128,5,-5630).lua
new file mode 100644
index 0000000..ef978ad
--- /dev/null
+++ b/durt/nodes/(-4128,5,-5630).lua
@@ -0,0 +1,21 @@
+local pt = POS(-4129,5,-5628)
+local bt = POS(-4132,4,-5626)
+local dir = "l"
+if event.train then
+	if atc_arrow then
+		setstate(pt,dir)
+		setstate(bt,"on")
+		atc_send("S5")
+		schedule_in(";05",true)
+	end
+end
+
+if event.schedule then
+	if atc_id then
+		schedule_in(";05",true)
+		return
+	else
+		setstate(bt,"off")
+		return
+	end
+end
\ No newline at end of file
diff --git a/durt/nodes/(-4129,5,-5630).lua b/durt/nodes/(-4129,5,-5630).lua
new file mode 100644
index 0000000..26a4ecb
--- /dev/null
+++ b/durt/nodes/(-4129,5,-5630).lua
@@ -0,0 +1,21 @@
+local pt = POS(-4129,5,-5628)
+local bt = POS(-4132,4,-5626)
+local dir = "s"
+if event.train then
+	if atc_arrow then
+		setstate(pt,dir)
+		setstate(bt,"on")
+		atc_send("S5")
+		schedule_in(";05",true)
+	end
+end
+
+if event.schedule then
+	if atc_id then
+		schedule_in(";05",true)
+		return
+	else
+		setstate(bt,"off")
+		return
+	end
+end
\ No newline at end of file
diff --git a/durt/nodes/(-4129,9,-5588).lua b/durt/nodes/(-4129,9,-5588).lua
index 2dd69c1..44e6501 100644
--- a/durt/nodes/(-4129,9,-5588).lua
+++ b/durt/nodes/(-4129,9,-5588).lua
@@ -4,9 +4,32 @@ local lights = {
 	POS(-4127,5,-5617),
 	POS(-4131,5,-5617)
 }
+local pt = POS(-4129,5,-5628)
+local bt = POS(-4132,4,-5626)
 
-if event.train and atc_arrow then
-	for _,v in pairs(lights) do
-		setstate(v,"on")
+if event.train then
+	if atc_arrow then
+		for _,v in pairs(lights) do
+			setstate(v,"on")
+		end
+		if getstate(bt)=="on" then
+			atc_send("BB")
+			schedule_in(";05",true)
+		else
+			setstate(pt,"r")
+			atc_send("S3")
+		end
+	else
+		atc_send("S3D5S0WRD1S3")
 	end
 end
+
+if event.schedule then
+	if getstate(bt)=="on" then
+		atc_send("BB")
+		schedule_in(";05",true)
+	else
+		setstate(pt,"r")
+		atc_send("S3")
+	end
+end
\ No newline at end of file
diff --git a/durt/nodes/(-4130,5,-5630).lua b/durt/nodes/(-4130,5,-5630).lua
new file mode 100644
index 0000000..0045f17
--- /dev/null
+++ b/durt/nodes/(-4130,5,-5630).lua
@@ -0,0 +1,21 @@
+local pt = POS(-4129,5,-5628)
+local bt = POS(-4132,4,-5626)
+local dir = "r"
+if event.train then
+	if atc_arrow then
+		setstate(pt,dir)
+		setstate(bt,"on")
+		atc_send("S5")
+		schedule_in(";05",true)
+	end
+end
+
+if event.schedule then
+	if atc_id then
+		schedule_in(";05",true)
+		return
+	else
+		setstate(bt,"off")
+		return
+	end
+end
\ No newline at end of file
diff --git a/durt/nodes/(-4132,6,-5690).lua b/durt/nodes/(-4132,6,-5690).lua
new file mode 100644
index 0000000..ab62d6c
--- /dev/null
+++ b/durt/nodes/(-4132,6,-5690).lua
@@ -0,0 +1,20 @@
+if atc_arrow then
+	if get_rc():match("DLG_shunt") then
+		atc_send("BBWRSM")
+		F.remove_rc({"DLG_shunt"},true)
+	else
+		atc_send("BB")
+	end
+end
+
+if event.channel=="train_ctl" and event.msg=="send" then
+	if not atc_id or atc_arrow then
+		digiline_send("error","Error "..os.time())
+		return
+	end
+	atc_send("S3")
+	set_rc((get_rc() or "").." DLG_shunt")
+	split_at_index(2,"BB")
+	set_autocouple()
+	return
+end
\ No newline at end of file
-- 
cgit v1.2.3