State at 2021-04-04

42 files changed, 147 insertions, 6 deletions

diff --git a/durt/init_code.lua b/durt/init_code.lua
index c264a3a..af89c7c 100644
--- a/durt/init_code.lua
+++ b/durt/init_code.lua
@@ -11,4 +11,59 @@ S.M27_tracking = {}
 --    -3602,18,-3961 Willow Tunnel <-> Djnc
--    -3602.18.-3961 Djnc<->Dcaves
 --    -2345,15,-1336 Tanh Depot
--    -1986,13,-1699 x2 Foundry entry
 
-F.M27_tracking = function(id)
	if not event.train then return end
	local rc = get_rc() or ""
	if not rc:match("M27_tracking") then return end
	S.M27_tracking.last = S.M27_tracking.now
	S.M27_tracking.now = id
end
---------------------------------------------------------------------
--defining the functions

F.arrive = function(stn_code,dir,line)
	S.lines[line].monitoring[dir][stn_code] = atc_id
    atc_send("B0 W O"..S.lines[line].stations[stn_code].doors)
    atc_set_text_inside("Arrived at:\n"..S.lines[line].stations[stn_code].name.."\n \nNext Station:\n"..S.lines[line].stations[S.lines[line].stations[stn_code].next_station[dir]].name)
end

F.depart = function(stn_code,dir,line)
	local pos = stn_code..dir
	local inside_text = "Next Stop:\n"..S.lines[line].stations[S.lines[line].stations[stn_code].next_station[dir]].name
	if can_set_route(pos,stn_code.."->"..S.lines[line].stations[stn_code].next_station[dir]) then
		set_route(pos,stn_code.."->"..S.lines[line].stations[stn_code].next_station[dir])
		atc_send("OC SM")
		S.lines[line].monitoring[dir][stn_code] = nil
		S.lines[line].monitoring[dir][S.lines[line].stations[stn_code].next_station[dir]] = atc_id
	else
		-- Wait another 5s before trying again
		inside_text = inside_text.."\nWaiting to depart..."
		interrupt(5, "depart")
	end
	atc_set_text_inside(inside_text)
end

F.set_desto = function(dir, line)
    atc_set_text_outside("LINE " .. line .."\n---> " .. S.lines[line].stations[S.lines[line].termini[dir]].name)
end

---------------------------------------------------------------------
--LuaATC track functions

F.station = function(stn_code,dir,line)

-- temp until all SF LuaAtc tracks are changed-------------------------
	if line == nil or line == "1" then
		line = "U21"
	end
---------------------------------------------------------------------

	if event.train then
		F.arrive(stn_code,dir,line)
		interrupt(10,"depart")
	elseif event.int and event.msg=="depart" then
		F.depart(stn_code,dir,line)
	end
end

 
F.terminus = function(stn_code, newdir, line)
    if event.train then
		S.lines[line].monitoring[newdir][stn_code] = atc_id
		
		atc_send("B0 W R O"..S.lines[line].stations[stn_code].doors)
		atc_set_text_inside("Arrived at:\n"..S.lines[line].stations[stn_code].name.."\n \nNext Station:\n"..S.lines[line].stations[S.lines[line].stations[stn_code].next_station[newdir]].name)

        atc_set_text_outside("LINE " .. line .."\n---> " .. S.lines[line].stations[S.lines[line].termini[newdir]].name)
        interrupt(10, "depart")
    end
    if event.int and event.msg == "depart" then
        F.depart(stn_code, newdir,line)
    end
end
\ No newline at end of file
+F.M27_tracking = function(id)
	if not event.train then return end
	local rc = get_rc() or ""
	if not rc:match("M27_tracking") then return end
	S.M27_tracking.last = S.M27_tracking.now
	S.M27_tracking.now = id
end
+
+--Atlac Yard Operations
+if event.init then
+    local list_of_yards = {
+        ["WOA"] = {}
+    }
+    S.yards = S.yards or list_of_yards
+end
+
+F.yard_road_count = function(yard,section_id,monitoring_light)
	if not S.yards[yard][section_id] then S.yards[yard][section_id] = {['car_count'] = 0} end
	
	local car_count = S.yards[yard][section_id].car_count
	
	if event.train then
		if atc_arrow then --arrow points into section, add to length
			car_count = car_count + train_length()
		else -- subtract from
			car_count = car_count - train_length()
		end
		
		if car_count > 0 then -- light = on
			setstate(monitoring_light,"on")
		else
			car_count = 0
			setstate(monitoring_light,"off")
		end
		
		S.yards[yard][section_id].car_count = car_count
	end
end
+
+
+--stats counter from subway/il_timetable
+F.stat=function(line, init)
+--statistics
+-- init
+if init then
+reftrain = atc_id
+a_tbt = 30
+a_tbtmax = 30
+a_rtt = 500
+a_not = 0
+c_not = 0
+c_tbtmax = 0
+time_lt = os.time()
+time_rt=os.time()
+end
+if not a_tbtmax then a_tbtmax = 30 end
+if not c_tbtmax then c_tbtmax = 0 end
+--real code
+if event.train then
+local time = os.time()
+c_not = c_not + 1
+a_tbt = (a_tbt + (time - time_lt)) / 2
+c_tbtmax = math.max(c_tbtmax, (time - time_lt))
+if atc_id == reftrain then
+  a_rtt = (a_rtt*0.2 + (time - time_rt)*0.8)
+  a_not = c_not
+  c_not = 0
+  a_tbtmax = (a_tbtmax + c_tbtmax) / 2
+  c_tbtmax = 0
+end
+  digiline_send("stats", "Stat: "..line..
+    " NoT:"..a_not.."("..c_not..")"..
+    " TbT:"..math.floor(a_tbt).."("..(time-time_lt)..")"..
+    " Tmx:"..math.floor(a_tbtmax).."("..c_tbtmax..")"..
+    " R:"..math.floor(a_rtt).."("..(time - time_rt)..")"
+    )
+time_lt = time
+if atc_id == reftrain then
+  time_rt = time
+end
+end
+end
+
---------------------------------------------------------------------
--defining the functions

F.arrive = function(stn_code,dir,line)
	S.lines[line].monitoring[dir][stn_code] = atc_id
    atc_send("B0 W O"..S.lines[line].stations[stn_code].doors)
    atc_set_text_inside("Arrived at:\n"..S.lines[line].stations[stn_code].name.."\n \nNext Station:\n"..S.lines[line].stations[S.lines[line].stations[stn_code].next_station[dir]].name)
end

F.depart = function(stn_code,dir,line)
	local pos = stn_code..dir
	local inside_text = "Next Stop:\n"..S.lines[line].stations[S.lines[line].stations[stn_code].next_station[dir]].name
	if can_set_route(pos,stn_code.."->"..S.lines[line].stations[stn_code].next_station[dir]) then
		set_route(pos,stn_code.."->"..S.lines[line].stations[stn_code].next_station[dir])
		atc_send("OC SM")
		S.lines[line].monitoring[dir][stn_code] = nil
		S.lines[line].monitoring[dir][S.lines[line].stations[stn_code].next_station[dir]] = atc_id
	else
		-- Wait another 5s before trying again
		inside_text = inside_text.."\nWaiting to depart..."
		interrupt(5, "depart")
	end
	atc_set_text_inside(inside_text)
end

F.set_desto = function(dir, line)
    atc_set_text_outside("LINE " .. line .."\n---> " .. S.lines[line].stations[S.lines[line].termini[dir]].name)
end

---------------------------------------------------------------------
--LuaATC track functions

F.station = function(stn_code,dir,line)

-- temp until all SF LuaAtc tracks are changed-------------------------
	if line == nil or line == "1" then
		line = "U21"
	end
---------------------------------------------------------------------

	if event.train then
		F.arrive(stn_code,dir,line)
		interrupt(10,"depart")
	elseif event.int and event.msg=="depart" then
		F.depart(stn_code,dir,line)
	end
end

 
F.terminus = function(stn_code, newdir, line)
    if event.train then
		S.lines[line].monitoring[newdir][stn_code] = atc_id
		
		atc_send("B0 W R O"..S.lines[line].stations[stn_code].doors)
		atc_set_text_inside("Arrived at:\n"..S.lines[line].stations[stn_code].name.."\n \nNext Station:\n"..S.lines[line].stations[S.lines[line].stations[stn_code].next_station[newdir]].name)

        atc_set_text_outside("LINE " .. line .."\n---> " .. S.lines[line].stations[S.lines[line].termini[newdir]].name)
        interrupt(10, "depart")
    end
    if event.int and event.msg == "depart" then
        F.depart(stn_code, newdir,line)
    end
end
\ No newline at end of file
diff --git a/durt/nodes/(-1924,13,-1696).lua b/durt/nodes/(-1924,13,-1696).lua
new file mode 100644
index 0000000..74c05cc
--- /dev/null
+++ b/durt/nodes/(-1924,13,-1696).lua
@@ -0,0 +1 @@
+__approach_callback_mode = 1
if not atc_id or not atc_arrow then return end

if event.approach and not event.has_entered then
    atc_set_lzb_tsr(2)
end

if event.train and atc_arrow then
	atc_send("S1")
end
\ No newline at end of file
diff --git a/durt/nodes/(-1987,13,-1700).lua b/durt/nodes/(-1987,13,-1700).lua
index 00818fd..fc6a367 100644
--- a/durt/nodes/(-1987,13,-1700).lua
+++ b/durt/nodes/(-1987,13,-1700).lua
@@ -1 +1,4 @@
+if event.train and atc_arrow and atc_speed == 1 then
+    atc_send("SM")
+end
 F.M27_tracking("Exit Foundry")
\ No newline at end of file
diff --git a/durt/nodes/(-2084,9,918).lua b/durt/nodes/(-2084,9,918).lua
index ae8e76f..dbf9fcf 100644
--- a/durt/nodes/(-2084,9,918).lua
+++ b/durt/nodes/(-2084,9,918).lua
@@ -1 +1 @@
-if event.type=="digiline" then
	if event.channel ~= "trainctl" then return end
	if event.msg == "send" then
		setstate(POS(-2085,11,918),"green")
		if atc_id and atc_arrow then
			atc_send("B5S5")
		elseif atc_id and atc_arrow == false then
			atc_send("B0S0WRS5")
		end
		interrupt(10,"clear_signal")
		return
	elseif event.msg == "open" then
		setstate(POS(-2085,11,918),"green")
		return
	elseif event.msg == "close" then
		setstate(POS(-2085,11,918),"red")
		return
	end
	return
end
if event.type=="int" then
	if event.msg=="clear_signal" then
		setstate(POS(-2085,11,918),"red")
	end
	return
end
\ No newline at end of file
+if event.type=="digiline" then
	if event.channel ~= "trainctl" then return end
	if event.msg == "send" then
		setstate(POS(-2085,11,918),"green")
		setstate(POS(-2084,9,915),"on")
		if atc_id and atc_arrow then
			atc_send("S0B0WRD1RB5S5")
		elseif atc_id and atc_arrow == false then
			atc_send("B0S0WRS5")
		end
		interrupt(10,"clear_signal")
		return
	elseif event.msg == "open" then
		setstate(POS(-2085,11,918),"green")
		setstate(POS(-2084,9,915),"on")
		return
	elseif event.msg == "close" then
		setstate(POS(-2085,11,918),"red")
		setstate(POS(-2084,9,915),"off")
		return
	end
	return
end
if event.type=="int" then
	if event.msg=="clear_signal" then
		setstate(POS(-2085,11,918),"red")
	end
	return
end
\ No newline at end of file
diff --git a/durt/nodes/(-2213,8,898).lua b/durt/nodes/(-2213,8,898).lua
new file mode 100644
index 0000000..3d93bd0
--- /dev/null
+++ b/durt/nodes/(-2213,8,898).lua
@@ -0,0 +1 @@
+if event.type=="digiline" then
	if event.channel ~= "trainctl" then return end
	if event.msg == "send" then
		if atc_id and atc_arrow then
			atc_send("S0WRS4")
		elseif atc_id and atc_arrow == false then
			atc_send("S4")
		end
	end
end
\ No newline at end of file
diff --git a/durt/nodes/(-2732,11,891).lua b/durt/nodes/(-2732,11,891).lua
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/durt/nodes/(-2732,11,891).lua
diff --git a/durt/nodes/(-2734,11,891).lua b/durt/nodes/(-2734,11,891).lua
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/durt/nodes/(-2734,11,891).lua
diff --git a/durt/nodes/(-3525,8,-2281).lua b/durt/nodes/(-3525,8,-2281).lua
index 6bb5ea1..cb3c02c 100644
--- a/durt/nodes/(-3525,8,-2281).lua
+++ b/durt/nodes/(-3525,8,-2281).lua
@@ -1,3 +1,8 @@
 if event.train then
-  if not atc_arrow then atc_send("S1B1") end
+  if not atc_arrow then
+    atc_send("S1B1")
+    set_autocouple()
+  else
+    digiline_send("lcd",atc_id)
+  end
 end
\ No newline at end of file
diff --git a/durt/nodes/(-3544,8,-2277).lua b/durt/nodes/(-3544,8,-2277).lua
index e6d9f27..37c1019 100644
--- a/durt/nodes/(-3544,8,-2277).lua
+++ b/durt/nodes/(-3544,8,-2277).lua
@@ -1 +1 @@
-
--East End of Loading Road
local siding_id = "TreeFarm"
local control_interface = POS(-3553,18,-2261)
local loading_sig = POS(-3539,9,-2279)
local exit_route = "Exit to Mainline"
local accelerator_loop_diverge_sig = POS(-3602,9,-2282)

if event.type=="ext_int" then
	if not atc_id then
		interrupt_pos(control_interface,"No Train at Signal")
		return
	elseif atc_speed ~= 0 then
		interrupt_pos(control_interface,"Train Still Moving")
		return
	end
	
	if event.message == "shuffle" then
		if can_set_route(loading_sig,"Loop Around") then
			set_route(loading_sig,"Loop Around")
			set_route(accelerator_loop_diverge_sig,"Loading Road")
			atc_send("S8")
		else
			interrupt_pos(control_interface,"Unable to set route")
		end
	elseif event.message == "depart" then
		atc_set_text_outside("Preparing to Depart")
		interrupt_pos(control_interface,"Preparing to Depart")
		interrupt(5,"depart")
	else
		interrupt_pos(control_interface,"Unknown Command:||"..tostring(event.msg))
	end
end

if event.type=="int" then
	if event.message == "depart" then
		set_route(loading_sig,"Exit to Mainline")
		atc_send("SM")
		atc_set_text_inside("-- Manifest --\nCargo: Logs and Leaves\nOrigin: Auto Logging Plantation")
		atc_set_text_outside("")
	end
end
\ No newline at end of file
+----------------------------------------------
--East End of Loading Road
local siding_id = "TreeFarm"
local control_interface = POS(-3553,18,-2261)
local loading_sig = POS(-3539,9,-2279)
local exit_route = "Exit to Mainline"
local accelerator_loop_diverge_sig = POS(-3602,9,-2282)

if event.type=="ext_int" then
	if not atc_id then
		interrupt_pos(control_interface,"No Train at Signal")
		return
	elseif atc_speed ~= 0 then
		interrupt_pos(control_interface,"Train Still Moving")
		return
	end
	
	if event.message == "shuffle" then
		if can_set_route(loading_sig,"Loop Around") then
			set_route(loading_sig,"Loop Around")
			set_route(accelerator_loop_diverge_sig,"Loading Road (Left)")
			atc_send("S8")
		else
			interrupt_pos(control_interface,"Unable to set route")
		end
	elseif event.message == "depart" then
		atc_set_text_outside("Preparing to Depart")
		interrupt_pos(control_interface,"Preparing to Depart")
		interrupt_safe(5,"depart")
	else
		interrupt_pos(control_interface,"Unknown Command:||"..tostring(event.msg))
	end
end

if event.type=="int" then
	if event.message == "depart" then
		set_route(loading_sig,"Exit to Mainline")
		atc_send("SM")
		atc_set_text_inside("-- Manifest --\nCargo: Logs and Leaves\nOrigin: Auto Logging Plantation")
		atc_set_text_outside("Maverick2797 Organic Diamonds\nFrom Tree to Shiny!")
		unset_autocouple()
	end
end
\ No newline at end of file
diff --git a/durt/nodes/(-3552,16,-2275).lua b/durt/nodes/(-3552,16,-2275).lua
new file mode 100644
index 0000000..4225d33
--- /dev/null
+++ b/durt/nodes/(-3552,16,-2275).lua
@@ -0,0 +1 @@
+digiline_send("","Active: "..tostring(S.TreeFarm.yard_active))
\ No newline at end of file
diff --git a/durt/nodes/(-3588,8,-2277).lua b/durt/nodes/(-3588,8,-2277).lua
index 0cb4557..c0fbf23 100644
--- a/durt/nodes/(-3588,8,-2277).lua
+++ b/durt/nodes/(-3588,8,-2277).lua
@@ -1 +1,2 @@
-
--West End of Loading Road
local siding_id = "TreeFarm"
local control_interface = POS(-3553,18,-2261)

local hs_sig = POS(-3594,9,-2277)
local hs_route = "Shunt Around Via Loop"

if not S[siding_id] then S[siding_id] = {} end

if not atc_arrow then atc_send("B1") end

if not S[siding_id].yard_active then
	if atc_arrow then
		S[siding_id].yard_active = true
		S[siding_id].info = {
			['rc'] = get_rc() or "",
			['line'] = get_line() or ""
		}
		-- set_rc("AROUND")
		split_off_locomotive("B0WR")
		set_autocouple()
		set_route(hs_sig,hs_route)
		atc_send("S4")
	end
else
	if atc_arrow then -- train has rejoined
		atc_send("B0WD2RS1") -- reverse and load train
		set_rc(S[siding_id].info.rc)
		set_line(S[siding_id].info.line)
		unset_autocouple()
		interrupt_pos(control_interface,"Train Shunted||Now Loading")
		S[siding_id].info.rc = nil
		S[siding_id].info.line = nil
		S[siding_id].yard_active = nil
	end
end
\ No newline at end of file
+------------------------------------------------------------------
--West End of Loading Road
local siding_id = "TreeFarm"
local control_interface = POS(-3553,18,-2261)

local hs_sig = POS(-3594,9,-2277)
local hs_route = "Shunt Around Via Loop"

if not S[siding_id] then S[siding_id] = {} end

if not atc_arrow then atc_send("B1") end

if not S[siding_id].yard_active then
	if atc_arrow then
		S[siding_id].yard_active = true
		S[siding_id].info = {
			['rc'] = get_rc() or "",
			['line'] = get_line() or ""
		}
		-- set_rc("AROUND")
+   step_fc()
		split_off_locomotive("B0WR")
		set_route(hs_sig,hs_route)
		atc_send("S4")
	end
else
	if atc_arrow then -- train has rejoined
		atc_send("B0WD2RS1") -- reverse and load train
		set_rc(S[siding_id].info.rc)
		set_line(S[siding_id].info.line)
		unset_autocouple()
		interrupt_pos(control_interface,"Train Shunted||Now Loading")
		S[siding_id].info.rc = nil
		S[siding_id].info.line = nil
		S[siding_id].yard_active = nil
	end
end
\ No newline at end of file
diff --git a/durt/nodes/(-3761,12,-3554).lua b/durt/nodes/(-3761,12,-3554).lua
new file mode 100644
index 0000000..118b1c4
--- /dev/null
+++ b/durt/nodes/(-3761,12,-3554).lua
@@ -0,0 +1,2 @@
+--
+F.M27_tracking("EV_S<-->Sinensis")
\ No newline at end of file
diff --git a/durt/nodes/(-585,26,2478).lua b/durt/nodes/(-585,26,2478).lua
index 23d349b..f79b2c9 100644
--- a/durt/nodes/(-585,26,2478).lua
+++ b/durt/nodes/(-585,26,2478).lua
@@ -1 +1 @@
---arrow points west towards working HS
local lane = 4
if S.yard_active == true then
	if atc_arrow then
		set_route("CANNERY_W"..lane, "HEADSHUNT")
		-- turnouts should already be set by the train returning from HS
		local plen = train_length()
		local rc = split_at_fc("B0")
		local trc = "CAN_"..rc
		if plen == train_length() and (rc == "" or S.rc:match(trc)) then
			S.exiting = true
		end
		if rc and rc ~= "" then
			set_rc("CAN_"..rc)
		else
			set_rc(S.rc)
			S.exiting = true
		end
	end
end
\ No newline at end of file
+--arrow points west towards working HS
local lane = 4
if S.yard_active == true then
	if atc_arrow then
		set_route("CANNERY_W"..lane, "HEADSHUNT")
		-- turnouts should already be set by the train returning from HS
		local plen = train_length()
		local rc = split_at_fc("B0",3)
		local trc = "CAN_"..rc
		if plen == train_length() and (rc == "" or S.rc:match(trc)) then
			S.exiting = true
		end
		if rc and rc ~= "" then
			set_rc("CAN_"..rc)
		else
			set_rc(S.rc)
			S.exiting = true
		end
	end
end
\ No newline at end of file
diff --git a/durt/nodes/(-716,3,1873).lua b/durt/nodes/(-716,3,1873).lua
new file mode 100644
index 0000000..fad9270
--- /dev/null
+++ b/durt/nodes/(-716,3,1873).lua
@@ -0,0 +1,3 @@
+__approach_callback_mode = 1

if event.approach and not event.has_entered then
    atc_set_ars_disable(true)
    atc_set_lzb_tsr(1)
end
+
+if event.train and atc_arrow then
	atc_send("S1")
end
\ No newline at end of file
diff --git a/durt/nodes/(-716,3,1892).lua b/durt/nodes/(-716,3,1892).lua
new file mode 100644
index 0000000..bb8cdaf
--- /dev/null
+++ b/durt/nodes/(-716,3,1892).lua
@@ -0,0 +1 @@
+__approach_callback_mode = 1

if event.approach and not event.has_entered then
    atc_set_ars_disable(true)
    atc_set_lzb_tsr(1)
end

if event.train and atc_arrow then
    atc_set_ars_disable(false)
	atc_send("SM")
end
\ No newline at end of file
diff --git a/durt/nodes/(-733,3,1854).lua b/durt/nodes/(-733,3,1854).lua
new file mode 100644
index 0000000..fad9270
--- /dev/null
+++ b/durt/nodes/(-733,3,1854).lua
@@ -0,0 +1,3 @@
+__approach_callback_mode = 1

if event.approach and not event.has_entered then
    atc_set_ars_disable(true)
    atc_set_lzb_tsr(1)
end
+
+if event.train and atc_arrow then
	atc_send("S1")
end
\ No newline at end of file
diff --git a/durt/nodes/(-734,3,1828).lua b/durt/nodes/(-734,3,1828).lua
new file mode 100644
index 0000000..bb8cdaf
--- /dev/null
+++ b/durt/nodes/(-734,3,1828).lua
@@ -0,0 +1 @@
+__approach_callback_mode = 1

if event.approach and not event.has_entered then
    atc_set_ars_disable(true)
    atc_set_lzb_tsr(1)
end

if event.train and atc_arrow then
    atc_set_ars_disable(false)
	atc_send("SM")
end
\ No newline at end of file
diff --git a/durt/nodes/(1817,11,9226).lua b/durt/nodes/(1817,11,9226).lua
new file mode 100644
index 0000000..a749beb
--- /dev/null
+++ b/durt/nodes/(1817,11,9226).lua
@@ -0,0 +1 @@
+F.yard_road_count("WOA","WOA_ass_W","WOA_ass_W")
\ No newline at end of file
diff --git a/durt/nodes/(1819,11,9227).lua b/durt/nodes/(1819,11,9227).lua
new file mode 100644
index 0000000..43153e0
--- /dev/null
+++ b/durt/nodes/(1819,11,9227).lua
@@ -0,0 +1 @@
+F.yard_road_count("WOA","WOA_ass_C","WOA_ass_C")
\ No newline at end of file
diff --git a/durt/nodes/(1819,11,9233).lua b/durt/nodes/(1819,11,9233).lua
new file mode 100644
index 0000000..c833ab1
--- /dev/null
+++ b/durt/nodes/(1819,11,9233).lua
@@ -0,0 +1 @@
+F.yard_road_count("WOA","WOA_ass_E","WOA_ass_E")
\ No newline at end of file
diff --git a/durt/nodes/(1852,8,9034).lua b/durt/nodes/(1852,8,9034).lua
new file mode 100644
index 0000000..7489acc
--- /dev/null
+++ b/durt/nodes/(1852,8,9034).lua
@@ -0,0 +1 @@
+--
\ No newline at end of file
diff --git a/durt/nodes/(1854,11,9164).lua b/durt/nodes/(1854,11,9164).lua
new file mode 100644
index 0000000..a749beb
--- /dev/null
+++ b/durt/nodes/(1854,11,9164).lua
@@ -0,0 +1 @@
+F.yard_road_count("WOA","WOA_ass_W","WOA_ass_W")
\ No newline at end of file
diff --git a/durt/nodes/(1856,11,9165).lua b/durt/nodes/(1856,11,9165).lua
new file mode 100644
index 0000000..43153e0
--- /dev/null
+++ b/durt/nodes/(1856,11,9165).lua
@@ -0,0 +1 @@
+F.yard_road_count("WOA","WOA_ass_C","WOA_ass_C")
\ No newline at end of file
diff --git a/durt/nodes/(1864,11,9161).lua b/durt/nodes/(1864,11,9161).lua
new file mode 100644
index 0000000..c833ab1
--- /dev/null
+++ b/durt/nodes/(1864,11,9161).lua
@@ -0,0 +1 @@
+F.yard_road_count("WOA","WOA_ass_E","WOA_ass_E")
\ No newline at end of file
diff --git a/durt/nodes/(1865,17,9141).lua b/durt/nodes/(1865,17,9141).lua
new file mode 100644
index 0000000..ab7f545
--- /dev/null
+++ b/durt/nodes/(1865,17,9141).lua
@@ -0,0 +1 @@
+turnouts = {
	{1870,11,9122},-- Southern headshunt/Goods Shed
	
	{1863,11,9122},--Southern Roads
	{1857,11,9122},
	{1851,11,9122},
	{1845,11,9122},
	
	{1782,11,9222},--NW Roads
	{1782,11,9216},
	{1782,11,9210},
	{1782,11,9204},
	
	{1868,11,9157}, --Eastern Assembly Roads
	{1860,11,9161},
	{1817,11,9237},
	{1817,11,9231},
	
	{1822,11,9251}, --Northern Wye
	{1817,11,9238},
	{1806,11,9243},
	
}

routes = {
-- max# of routes = 32 (1-31 + R0)

--southern headshunt
{['matrix']={"1st"}, ['name']="Goods Shed Headshunt"},							--1
{['matrix']={"1cr"}, ['name']="West Assembly Yard"},							--2

--southern road access
{['matrix']={"2cr"}, ['name']="East S1"},										--3
{['matrix']={"2st","3cr"}, ['name']="East S2"},									--4
{['matrix']={"2st","3st","4cr"}, ['name']="East S3"},							--5
{['matrix']={"2st","3st","4st","5cr"}, ['name']="East S4"},						--6
{['matrix']={"2st","3st","4st","5st"}, ['name']="East S5"},						--7

--NW road access
{['matrix']={"6cr"}, ['name']="East N1"},										--8
{['matrix']={"6st","7cr"}, ['name']="East N2"},									--9
{['matrix']={"6st","7st","8cr"}, ['name']="East N3"},							--10
{['matrix']={"6st","7st","8st","9cr"}, ['name']="East N4"},						--11
{['matrix']={"6st","7st","8st","9st"}, ['name']="East N5"},						--12

--Eastern Assembly Roads
{['matrix']={"10st","12cr"}, ['name']="Assembly East"},							--13
{['matrix']={"10cr","11cr","12st","13cr"}, ['name']="Assembly Central"},		--14
{['matrix']={"10cr","11st","12st","13st"}, ['name']="Assembly West"},			--15

--Norther Wye
{['matrix']={"15st","14cr"}, ['name']="Assembly<->Station"},					--16
{['matrix']={"15cr","16cr"}, ['name']="Yard Loopback"},							--17
{['matrix']={"14st","16st"}, ['name']="Bypass Yard"},							--18

--testing routes
{['matrix']={"1cr","2cr","3cr","4cr","5cr"}, ['name']="[TEST]Southern Cr"},		--19
{['matrix']={"1st","2st","3st","4st","5st"}, ['name']="[TEST]Southern St"},		--20
{['matrix']={"6st","7st","8st","9st"}, ['name']="[TEST]Northern St"},			--21
{['matrix']={"6cr","7cr","8cr","9cr"}, ['name']="[TEST]Northern Cr"},			--22

}

local display = "tl1"
local debug_screen = "tl2"

function tableLength(T)
  local count = 0
  for _ in pairs(T) do count = count + 1 end
  return count
end

if event.type=="digiline" then
	if event.channel=="track_control" then
		local r = event.msg
		if r > tableLength(routes) then 
			digiline_send(display,"Input ["..r.."] exceeds #routes||"..tableLength(routes))
			-- digiline_send(debug_screen,"Input ["..r.."] exceeds #routes ("..tableLength(routes)..")")
			return
		elseif r == 0 then
			digiline_send(display,"Input 0 is not defined")
			-- digiline_send(debug_screen,"Input 0 is not defined")
			return
		end
		route = routes[r]
		-- a = ""
		for _,v in pairs(route.matrix) do
			local tid = tonumber(v:match("%d+"))
			local tpos = turnouts[tid]
			local turnout = {}
				turnout.x = tpos[1]
				turnout.y = tpos[2]
				turnout.z = tpos[3]
			
			local cmd = v:match("%a+")
			-- a = a..string.format("%s %d,%d,%d\n",cmd,turnout.x,turnout.y,turnout.z)
			setstate(turnout,cmd)
		end
		local verbose = table.concat(route.matrix," ")
		digiline_send(display,"Route "..r.." set||"..verbose.."||"..route.name)
		-- digiline_send(debug_screen,a)
		return
	end
	if event.channel=="input" then --show debug info
		if event.msg=="rwt_get" then
			digiline_send("rwt_get",rwt.now())
		elseif event.msg=="debug" then
			digiline_send(debug_screen,"#turnouts: "..tableLength(turnouts).."\n#routes: "..tableLength(routes))
		elseif event.msg=="occupancy_refresh" then
			local m = ""
			for k,v in pairs(S.yards.WOA) do
				m = m..k..": "..v.car_count.."||"
			end
			digiline_send(debug_screen,m)
		end
	end
end
\ No newline at end of file
diff --git a/durt/nodes/(1866,11,9122).lua b/durt/nodes/(1866,11,9122).lua
new file mode 100644
index 0000000..577ba71
--- /dev/null
+++ b/durt/nodes/(1866,11,9122).lua
@@ -0,0 +1 @@
+__approach_callback_mode = 2

if event.approach and not event.has_entered then
    atc_set_lzb_tsr(1)
end
\ No newline at end of file
diff --git a/durt/nodes/(1874,11,9122).lua b/durt/nodes/(1874,11,9122).lua
new file mode 100644
index 0000000..fdee831
--- /dev/null
+++ b/durt/nodes/(1874,11,9122).lua
@@ -0,0 +1 @@
+F.yard_road_count("WOA","hs","WOA_hs")
\ No newline at end of file
diff --git a/durt/nodes/(1904,7,9133).lua b/durt/nodes/(1904,7,9133).lua
new file mode 100644
index 0000000..22bd87c
--- /dev/null
+++ b/durt/nodes/(1904,7,9133).lua
@@ -0,0 +1 @@
+local yard_id = "WOA"
__approach_callback_mode = 1

if event.approach and not event.has_entered then
    atc_set_ars_disable(true)
    atc_set_lzb_tsr(1)
end

if event.train and atc_arrow then
	atc_send("S1")
	S.yards[yard_id].last_pass2 = S.yards[yard_id].last_pass1 or rwt.now()
	S.yards[yard_id].last_pass1 = rwt.now()
	S.yards[yard_id].last_id = atc_id
end


if event.train then
	local init = false
	if not S.WOA_stats then
		S.WOA_stats = true
		init = true
	end
	F.stat("WOA_mine",init)
end
\ No newline at end of file
diff --git a/durt/nodes/(1907,9,9129).lua b/durt/nodes/(1907,9,9129).lua
new file mode 100644
index 0000000..6e01750
--- /dev/null
+++ b/durt/nodes/(1907,9,9129).lua
@@ -0,0 +1,2 @@
+local yard_id = "WOA"
if event.schedule then
	local now = rwt.now()
	local last = S.yards[yard_id].last_pass1
	local dtime = rwt.diff(last,now)
	local rtt = rwt.diff(S.yards[yard_id].last_pass2,last)
	digiline_send("lcd",string.format("Now:       %s |Last Pass: %s |ID: %s  Delta: %s |TBT: %s ",rwt.to_string(now),rwt.to_string(last),S.yards.WOA.last_id,rwt.to_string(dtime),rwt.to_string(rtt)))
	schedule(rwt.next_rpt(rwt.now(), "0;05", 0))
end

if event.punch then
	schedule(rwt.next_rpt(rwt.now(), "0;05", 0))
+  if S.WOA_stats == true then S.WOA_stats = false end
end
\ No newline at end of file
diff --git a/durt/nodes/(1909,8,9115).lua b/durt/nodes/(1909,8,9115).lua
new file mode 100644
index 0000000..224bafc
--- /dev/null
+++ b/durt/nodes/(1909,8,9115).lua
@@ -0,0 +1,5 @@
+do return end
+
+
+
+local foundry_track = POS(-1962,13,-1709)
local warmoneaye_track = POS(1918,7,9099)

if event.ext_int then
	if type(event.msg) == "string" then digiline_send("lcd",event.msg) end
	if type(event.msg) == "table" then
		local m = event.msg
		local location = m.location
		local message = m.msg
		digiline_send(location,message)
		return
	end
end

if event.digiline then
	if event.channel=="send" then
		-- interrupt_pos(foundry_track,"send")
		interrupt_pos(warmoneaye_track,"send")
	end
end

if event.punch then
	digiline_send("Foundry","test")
	digiline_send("Warmoneaye","test")
end
\ No newline at end of file
diff --git a/durt/nodes/(1914,7,9096).lua b/durt/nodes/(1914,7,9096).lua
new file mode 100644
index 0000000..bb8cdaf
--- /dev/null
+++ b/durt/nodes/(1914,7,9096).lua
@@ -0,0 +1 @@
+__approach_callback_mode = 1

if event.approach and not event.has_entered then
    atc_set_ars_disable(true)
    atc_set_lzb_tsr(1)
end

if event.train and atc_arrow then
    atc_set_ars_disable(false)
	atc_send("SM")
end
\ No newline at end of file
diff --git a/durt/nodes/(1918,7,9099).lua b/durt/nodes/(1918,7,9099).lua
new file mode 100644
index 0000000..3df43db
--- /dev/null
+++ b/durt/nodes/(1918,7,9099).lua
@@ -0,0 +1 @@
+local location = "Warmoneaye"
local ctl_pan = POS(1919,7,9093)
local signal = POS(1919,10,9094)
local route = "Exit South"
err = interrupt_pos


if event.ext_int then
	if not atc_id then
		err(ctl_pan,{['location'] = location, ['msg'] = " | No Train"})
	end
	
	if event.msg == "send" then
		set_route(signal,route)
		if atc_arrow then
			atc_send("SM")
		else
			atc_send("S0WRSM")
		end
	end
end
\ No newline at end of file
diff --git a/durt/nodes/(1918,7,9147).lua b/durt/nodes/(1918,7,9147).lua
new file mode 100644
index 0000000..7489acc
--- /dev/null
+++ b/durt/nodes/(1918,7,9147).lua
@@ -0,0 +1 @@
+--
\ No newline at end of file
diff --git a/durt/nodes/(1921,7,9096).lua b/durt/nodes/(1921,7,9096).lua
new file mode 100644
index 0000000..32d89d7
--- /dev/null
+++ b/durt/nodes/(1921,7,9096).lua
@@ -0,0 +1 @@
+if event.digiline then
	if event.channel ~= "track_control" then return end
	
	local err = 0
	if not atc_id then  err = 1 end
	if not atc_arrow then err = 1 end
	if type(event.msg) ~= "table" then err = 1 end
	
	if err == 1 then
		digiline_send("lcd","--Error-- | Check Train")
		return
	end
	
	local i = event.msg
		set_rc(i.ars or "")
		atc_set_text_inside("Destination: "..(i.name or "Unknown").."\nCargo: "..(i.info or "Unknown"))
	
end
\ No newline at end of file
diff --git a/durt/nodes/(1921,7,9148).lua b/durt/nodes/(1921,7,9148).lua
new file mode 100644
index 0000000..7489acc
--- /dev/null
+++ b/durt/nodes/(1921,7,9148).lua
@@ -0,0 +1 @@
+--
\ No newline at end of file
diff --git a/durt/nodes/(1928,8,9112).lua b/durt/nodes/(1928,8,9112).lua
new file mode 100644
index 0000000..82f90cc
--- /dev/null
+++ b/durt/nodes/(1928,8,9112).lua
@@ -0,0 +1 @@
+-- do return end
--if event.punch then schedule(1) end

if event.schedule then
local t = rwt.now()
for k,v in pairs(t) do
    if v < 10 then
        t[k] = "0"..v
    end
end
time = string.format("Warmoneaye |  | Railway Time | %s;%s",tostring(t.m),tostring(t.s))
digiline_send("clock",time)
schedule(1)
end
\ No newline at end of file
diff --git a/durt/nodes/(1968,39,8411).lua b/durt/nodes/(1968,39,8411).lua
new file mode 100644
index 0000000..1a91da0
--- /dev/null
+++ b/durt/nodes/(1968,39,8411).lua
@@ -0,0 +1,3 @@
+if atc_arrow == true and get_line() == "DTLS1" then
+   atc_set_text_outside("DTL S1 -> Banana Place Central")
+end
\ No newline at end of file
diff --git a/durt/nodes/(431,-11,-256).lua b/durt/nodes/(431,-11,-256).lua
new file mode 100644
index 0000000..8f8784e
--- /dev/null
+++ b/durt/nodes/(431,-11,-256).lua
@@ -0,0 +1,9 @@
+if atc_arrow == true then
+  local rc = get_rc()
+  if rc:find("bh_ewb_unload") then
+    setstate("s_bh_ewb", "st")
+  end
+  if rc:find("bh_ewb_load") then
+    setstate("s_bh_ewb", "cr")
+  end
+end
\ No newline at end of file
diff --git a/durt/nodes/(434,-4,-200).lua b/durt/nodes/(434,-4,-200).lua
new file mode 100644
index 0000000..b072d04
--- /dev/null
+++ b/durt/nodes/(434,-4,-200).lua
@@ -0,0 +1,7 @@
+if event.type == "train" then
+  rc = get_rc()
+  if rc:find("d23a_leave") ~= nil then
+    rc = rc:gsub("d23a_leave", "d23_unload")
+  end
+  set_rc(rc)
+end
\ No newline at end of file
diff --git a/durt/nodes/(442,-4,-198).lua b/durt/nodes/(442,-4,-198).lua
new file mode 100644
index 0000000..028a50e
--- /dev/null
+++ b/durt/nodes/(442,-4,-198).lua
@@ -0,0 +1,9 @@
+if event.type == "train" then
+  local rc = get_rc()
+  if rc:find("d23a_unload") ~= nil then
+    rc = rc:gsub("d23a_unload", "d23a_load")
+  elseif rc:find("d23a_load") ~= nil then
+    rc = rc:gsub("d23a_load", "d23a_leave")
+  end
+  set_rc(rc)
+end
\ No newline at end of file
diff --git a/durt/nodes/(446,-4,-201).lua b/durt/nodes/(446,-4,-201).lua
new file mode 100644
index 0000000..028a50e
--- /dev/null
+++ b/durt/nodes/(446,-4,-201).lua
@@ -0,0 +1,9 @@
+if event.type == "train" then
+  local rc = get_rc()
+  if rc:find("d23a_unload") ~= nil then
+    rc = rc:gsub("d23a_unload", "d23a_load")
+  elseif rc:find("d23a_load") ~= nil then
+    rc = rc:gsub("d23a_load", "d23a_leave")
+  end
+  set_rc(rc)
+end
\ No newline at end of file
diff --git a/durt/nodes/(771,25,8503).lua b/durt/nodes/(771,25,8503).lua
new file mode 100644
index 0000000..58252f0
--- /dev/null
+++ b/durt/nodes/(771,25,8503).lua
@@ -0,0 +1,3 @@
+if atc_arrow == true and get_line() == "DTLS1" then
+    atc_set_text_outside("DTL S1 -> Azena Transirejo")
+end
\ No newline at end of file