From a7a333bac92040ae345fa11933483db2f10eab2b Mon Sep 17 00:00:00 2001
From: autocommitter <autocommitter@linux-forks.de>
Date: Mon, 22 Apr 2024 14:53:45 +0200
Subject: State at 2021-07-26

---
 durt/nodes/(-3820,18,-4728).lua |  5 +++++
 durt/nodes/(-3820,18,-4757).lua | 14 ++++++++++++++
 durt/nodes/(-3821,18,-4730).lua |  8 ++++++++
 durt/nodes/(-3823,18,-4774).lua |  7 +++++++
 4 files changed, 34 insertions(+)
 create mode 100644 durt/nodes/(-3820,18,-4728).lua
 create mode 100644 durt/nodes/(-3820,18,-4757).lua
 create mode 100644 durt/nodes/(-3821,18,-4730).lua
 create mode 100644 durt/nodes/(-3823,18,-4774).lua

(limited to 'durt/nodes')

diff --git a/durt/nodes/(-3820,18,-4728).lua b/durt/nodes/(-3820,18,-4728).lua
new file mode 100644
index 0000000..cc4264b
--- /dev/null
+++ b/durt/nodes/(-3820,18,-4728).lua
@@ -0,0 +1,5 @@
+if event.train and atc_arrow then
+    if get_rc() == "sfh_shunt" then
+        atc_send("S0WRD1S2")
+    end
+end
\ No newline at end of file
diff --git a/durt/nodes/(-3820,18,-4757).lua b/durt/nodes/(-3820,18,-4757).lua
new file mode 100644
index 0000000..2dd69fd
--- /dev/null
+++ b/durt/nodes/(-3820,18,-4757).lua
@@ -0,0 +1,14 @@
+if event.train and atc_arrow then
+	if get_rc() == "sfh_service" then
+		set_rc("sfh_shunt")
+		atc_set_text_outside("Sulfur Hills -> Desert Junction")
+		atc_set_text_inside("Locomotive will return soon\nSulfur Hills -> Desert Junction")
+		split_off_locomotive("B0WD1OL")
+		set_autocouple()
+		set_route("SFH-T1S-sig","Headshunt")
+	elseif get_rc() =="sfh_shunt" then
+		atc_send("A0OLBBWRD3OCD1A1S4D10SM")
+		atc_set_text_inside("")
+		set_rc("sfh_service")
+	end
+end
\ No newline at end of file
diff --git a/durt/nodes/(-3821,18,-4730).lua b/durt/nodes/(-3821,18,-4730).lua
new file mode 100644
index 0000000..d1f3c8e
--- /dev/null
+++ b/durt/nodes/(-3821,18,-4730).lua
@@ -0,0 +1,8 @@
+do return end
+--disabled while extension trackwork in progress. Service is stopped anyway
+
+
+
+if event.train and atc_arrow and get_rc() == "sfh_shunt" then
+    setstate("SFH-T1-N", "st")
    atc_send("B0WRD1S3")
+end
\ No newline at end of file
diff --git a/durt/nodes/(-3823,18,-4774).lua b/durt/nodes/(-3823,18,-4774).lua
new file mode 100644
index 0000000..8ece33e
--- /dev/null
+++ b/durt/nodes/(-3823,18,-4774).lua
@@ -0,0 +1,7 @@
+if event.type == "train" and atc_arrow and get_rc() == "sfh_shunt" then
+  atc_send("B0WRS4")
+--setstate("SFH-T2-S", "st")
+--  interrupt(3, "proceed")
+--elseif (event.type == "int") then
+--  atc_send("R S4")
+end
\ No newline at end of file
-- 
cgit v1.2.3