From 572b186e28ddc2a630613765c0f0780b4664380f Mon Sep 17 00:00:00 2001
From: autocommitter <autocommitter@linux-forks.de>
Date: Tue, 15 Oct 2024 22:37:42 +0200
Subject: State at 2024-10-15

---
 durt/nodes/(-2734,10,-1693).lua | 1 -
 1 file changed, 1 deletion(-)
 delete mode 100644 durt/nodes/(-2734,10,-1693).lua

(limited to 'durt/nodes/(-2734,10,-1693).lua')

diff --git a/durt/nodes/(-2734,10,-1693).lua b/durt/nodes/(-2734,10,-1693).lua
deleted file mode 100644
index 8043b8c..0000000
--- a/durt/nodes/(-2734,10,-1693).lua
+++ /dev/null
@@ -1 +0,0 @@
---Still need to convert to a function rather than trackside

local hs_sig = "M27_Quarry_Headshunt"
local hs_route = "Headshunt"

local exit_sig = "M27_Quarry_Exit"
local exit_route = "Exit to Mainline"

local siding_id = "M27_Quarry_runaround"
local length_prefix = "Loco"

if (event.train and atc_arrow) then
	local rc = get_rc() or " "
	-- the RC that controls the link to split
	-- rc value: "<rc><num_wagons to shunt with>"  default is single loco
	-- eg "Loco2" for tenders, "Loco3" for 
	local loco_pos = rc:match(length_prefix.."%d+") or length_prefix.."1"
	loco_pos = tonumber(loco_pos:match("%d+"))+1
		
	if not S.runarounds[siding_id].shunting then -- train to be split
		--store info for later re-insertion
		S.runarounds[siding_id] = {
			['shunting'] = true,
			['rc'] = rc,
			['line'] = get_line() or " "
		}
		atc_send("B0S0")
		interrupt(5,{['cmd'] = "split", ['leng'] = loco_pos})
		-- change int time if needed, depends on approach speed slowdown
		
	else -- train has rejoined
	
		--re-insert info to train
		if S.runarounds[siding_id].rc then set_rc(S.runarounds[siding_id].rc) end
		if S.runarounds[siding_id].line then set_line(S.runarounds[siding_id].line) end
		
		--depart
		atc_send("B0WD3RSM")
		set_route(exit_sig,exit_route)
		S.runarounds[siding_id].shunting = false

	
	end
end
if event.int then
	if event.msg.cmd=="split" then
		cmd = event.msg
		split_at_index(cmd.leng,"")
		set_rc(S.runarounds[siding_id].rc .. " shunt_limit")
		atc_send("S2")
		set_route(hs_sig,hs_route)
	end
end
\ No newline at end of file
-- 
cgit v1.2.3