State at 2022-05-15

4 files changed, 228 insertions, 0 deletions

diff --git a/durt/nodes/(-2354,15,-1327).lua b/durt/nodes/(-2354,15,-1327).lua
new file mode 100644
index 0000000..993387a
--- /dev/null
+++ b/durt/nodes/(-2354,15,-1327).lua
@@ -0,0 +1,68 @@
+local pts = {
+	north={
+		pos=POS(-2358,15,-1329),
+		lined="st"
+	},
+	south={
+		pos=POS(-2358,15,-1361),
+		lined="st"
+	},
+}
+local set_dir = function(dir)
+	for _,v in pairs(pts) do
+		setstate(v.pos,(dir==((true and v.lined=="st") or false) and "st" or "cr"))
+	end
+end
+
+__approach_callback_mode = 2
+if event.approach and not event.has_entered then
+	atc_set_lzb_tsr(2)
+	atc_set_ars_disable(true)
+	return
+end
+
+if event.train then
+	if not F.has_rc("TANH_REV") then
+		atc_set_ars_disable(false)
+		return
+	end
+	
+	if F.has_rc("TANH_REV_active") then
+		if not atc_arrow then
+			if F.has_rc("TANH_REV_loop") then
+				F.remove_rc({"TANH_REV_loop"})
+				set_dir(true)
+			else
+				F.add_rc("TANH_REV_loop")
+				set_dir(false)
+			end
+			return
+		end
+		
+		set_autocouple()
+		schedule_in(";01",atc_id)
+		return
+	elseif F.has_rc("TANH_REV_exit") then
+		atc_set_ars_disable(false)
+		unset_autocouple()
+		F.remove_rc({"TANH_REV_exit"})
+		return
+	else
+		set_dir(true)
+		return
+	end
+end
+
+if event.schedule then
+	if event.msg == atc_id then
+		schedule_in(";01",atc_id)
+		return
+	elseif not atc_id then
+		set_dir(false)
+		atc_send_to_train(event.msg,"D1S0WRD1S2")
+	else
+		atc_send("BB")
+		atc_send_to_train("BB")
+		return
+	end
+end
\ No newline at end of file
diff --git a/durt/nodes/(-2356,15,-1361).lua b/durt/nodes/(-2356,15,-1361).lua
new file mode 100644
index 0000000..993387a
--- /dev/null
+++ b/durt/nodes/(-2356,15,-1361).lua
@@ -0,0 +1,68 @@
+local pts = {
+	north={
+		pos=POS(-2358,15,-1329),
+		lined="st"
+	},
+	south={
+		pos=POS(-2358,15,-1361),
+		lined="st"
+	},
+}
+local set_dir = function(dir)
+	for _,v in pairs(pts) do
+		setstate(v.pos,(dir==((true and v.lined=="st") or false) and "st" or "cr"))
+	end
+end
+
+__approach_callback_mode = 2
+if event.approach and not event.has_entered then
+	atc_set_lzb_tsr(2)
+	atc_set_ars_disable(true)
+	return
+end
+
+if event.train then
+	if not F.has_rc("TANH_REV") then
+		atc_set_ars_disable(false)
+		return
+	end
+	
+	if F.has_rc("TANH_REV_active") then
+		if not atc_arrow then
+			if F.has_rc("TANH_REV_loop") then
+				F.remove_rc({"TANH_REV_loop"})
+				set_dir(true)
+			else
+				F.add_rc("TANH_REV_loop")
+				set_dir(false)
+			end
+			return
+		end
+		
+		set_autocouple()
+		schedule_in(";01",atc_id)
+		return
+	elseif F.has_rc("TANH_REV_exit") then
+		atc_set_ars_disable(false)
+		unset_autocouple()
+		F.remove_rc({"TANH_REV_exit"})
+		return
+	else
+		set_dir(true)
+		return
+	end
+end
+
+if event.schedule then
+	if event.msg == atc_id then
+		schedule_in(";01",atc_id)
+		return
+	elseif not atc_id then
+		set_dir(false)
+		atc_send_to_train(event.msg,"D1S0WRD1S2")
+	else
+		atc_send("BB")
+		atc_send_to_train("BB")
+		return
+	end
+end
\ No newline at end of file
diff --git a/durt/nodes/(-2364,15,-1360).lua b/durt/nodes/(-2364,15,-1360).lua
new file mode 100644
index 0000000..9abfaad
--- /dev/null
+++ b/durt/nodes/(-2364,15,-1360).lua
@@ -0,0 +1,46 @@
+local pts = {
+	north={
+		pos=POS(-2358,15,-1329),
+		lined="st"
+	},
+	south={
+		pos=POS(-2358,15,-1361),
+		lined="st"
+	},
+}
+local set_dir = function(dir)
+	for _,v in pairs(pts) do
+		setstate(v.pos,(dir==((true and v.lined=="st") or false) and "st" or "cr"))
+	end
+end
+__approach_callback_mode = 2
+if event.approach and not event.has_entered then
+	atc_set_lzb_tsr(2)
+	atc_set_ars_disable(true)
+	return
+end
+
+if event.train then
+	if not F.has_rc("TANH_REV") then
+		atc_set_ars_disable(false)
+		return
+	end
+	if not F.has_rc("TANH_REV_active") then
+		if not atc_arrow then
+			atc_send("S2")
+			return
+		end
+		if F.has_rc("TANH_REV_exit") then return end
+		F.add_rc("TANH_REV_active")
+		split_off_locomotive("B0",3)
+		atc_send("S2")
+		set_dir(true)
+		return
+	else
+		if not atc_arrow then return end
+		F.remove_rc({"TANH_REV_active"})
+		F.add_rc("TANH_REV_exit")
+		atc_send("B0WRD1S5D5SM")
+		return
+	end
+end
\ No newline at end of file
diff --git a/durt/nodes/(-2365,15,-1333).lua b/durt/nodes/(-2365,15,-1333).lua
new file mode 100644
index 0000000..9abfaad
--- /dev/null
+++ b/durt/nodes/(-2365,15,-1333).lua
@@ -0,0 +1,46 @@
+local pts = {
+	north={
+		pos=POS(-2358,15,-1329),
+		lined="st"
+	},
+	south={
+		pos=POS(-2358,15,-1361),
+		lined="st"
+	},
+}
+local set_dir = function(dir)
+	for _,v in pairs(pts) do
+		setstate(v.pos,(dir==((true and v.lined=="st") or false) and "st" or "cr"))
+	end
+end
+__approach_callback_mode = 2
+if event.approach and not event.has_entered then
+	atc_set_lzb_tsr(2)
+	atc_set_ars_disable(true)
+	return
+end
+
+if event.train then
+	if not F.has_rc("TANH_REV") then
+		atc_set_ars_disable(false)
+		return
+	end
+	if not F.has_rc("TANH_REV_active") then
+		if not atc_arrow then
+			atc_send("S2")
+			return
+		end
+		if F.has_rc("TANH_REV_exit") then return end
+		F.add_rc("TANH_REV_active")
+		split_off_locomotive("B0",3)
+		atc_send("S2")
+		set_dir(true)
+		return
+	else
+		if not atc_arrow then return end
+		F.remove_rc({"TANH_REV_active"})
+		F.add_rc("TANH_REV_exit")
+		atc_send("B0WRD1S5D5SM")
+		return
+	end
+end
\ No newline at end of file