From 1e3eea923007858a12e4f6c7faf99b9f4b29e505 Mon Sep 17 00:00:00 2001
From: autocommitter <autocommitter@linux-forks.de>
Date: Mon, 22 Apr 2024 14:53:08 +0200
Subject: State at 2021-05-31

---
 durt/nodes/(-1506,15,-2599).lua      | 6 ++++++
 il_timetable/init_code.lua           | 8 ++++++--
 il_timetable/nodes/(1626,9,4615).lua | 1 +
 3 files changed, 13 insertions(+), 2 deletions(-)
 create mode 100644 durt/nodes/(-1506,15,-2599).lua

diff --git a/durt/nodes/(-1506,15,-2599).lua b/durt/nodes/(-1506,15,-2599).lua
new file mode 100644
index 0000000..e0ed6bc
--- /dev/null
+++ b/durt/nodes/(-1506,15,-2599).lua
@@ -0,0 +1,6 @@
+if event.type=="digiline" then
+  if event.channel=="shunt_type" then
+    S.yards.S27.shunt_type = event.msg
+    digiline_send("lcd","====== | Shunt | Split | "..tostring(S.yards.S27.shunt_type).." | ======")
+  end
+end
\ No newline at end of file
diff --git a/il_timetable/init_code.lua b/il_timetable/init_code.lua
index c9acd9e..9c86dec 100644
--- a/il_timetable/init_code.lua
+++ b/il_timetable/init_code.lua
@@ -281,8 +281,10 @@ F.ttp_stop({
  only_lines = nil, --if given a table, only trains where only_lines[get_line()] is true are considered
  end_of_tt = { TT_ID = true },
    -- if present and key is true for a TT identifier, this is the last station on this timetable. Trains will stop recording timetable and be deregistered.
- departure = { TT_ID = RWT relative to initial departure }
+ departure = { TT_ID = RWT relative to initial departure },
    -- If present, override desired departure time. Defaults to travel time + STOP_TIME if not provided
+ no_disable_ars = nil,
+   -- if true, does not disable ARS on approach (used for example at INTERCAL)
 })
 ]]function F.ttp_stop(p)
   -- set my approach callback mode
@@ -298,7 +300,9 @@ F.ttp_stop({
   local tti = S.ttp[tt]
   if event.approach and not event.has_entered then
     -- make the train stop
-    atc_set_ars_disable(true)
+    if not p.no_disable_ars then
+     atc_set_ars_disable(true)
+    end
     atc_set_lzb_tsr(2)
     atc_set_text_inside("Next stop: "..p.stn)
   end
diff --git a/il_timetable/nodes/(1626,9,4615).lua b/il_timetable/nodes/(1626,9,4615).lua
index 59c5b0c..36c8603 100644
--- a/il_timetable/nodes/(1626,9,4615).lua
+++ b/il_timetable/nodes/(1626,9,4615).lua
@@ -2,4 +2,5 @@ F.ttp_stop({
   stn = "INTERCAL", 
   doorside = "L",
   only_lines = {CFE=true},
+  no_disable_ars = true,
 })
\ No newline at end of file
-- 
cgit v1.2.3