State at 2020-08-29

31 files changed, 296 insertions, 0 deletions

diff --git a/Hyard/init_code.lua b/Hyard/init_code.lua
new file mode 100644
index 0000000..e8e6d28
--- /dev/null
+++ b/Hyard/init_code.lua
@@ -0,0 +1 @@
+S.dir = 2
diff --git a/Hyard/nodes/(-2585,7,-1632).lua b/Hyard/nodes/(-2585,7,-1632).lua
new file mode 100644
index 0000000..0512e1d
--- /dev/null
+++ b/Hyard/nodes/(-2585,7,-1632).lua
@@ -0,0 +1,2 @@
+set_rc(S.rc)
+S.rc = nil
\ No newline at end of file
diff --git a/Hyard/nodes/(-2594,12,-1721).lua b/Hyard/nodes/(-2594,12,-1721).lua
new file mode 100644
index 0000000..952b979
--- /dev/null
+++ b/Hyard/nodes/(-2594,12,-1721).lua
@@ -0,0 +1,28 @@
+local dir = 2
+local lane = 6
+if S.dir == dir and atc_arrow then
+   set_route("HYE"..lane, "HEADSHUNT")
+   local plen = train_length()
+   local rc = split_at_fc("B0")
+   local trc = "HY"..rc..dir
+   S.cars = plen - train_length()
+   if plen == train_length() and (rc == "" or  S.rc:match(trc))  and not (S.rc:match("HYREVERSE")) then
+       S.exiting = true
+   end
+   if rc and rc ~= "" then
+       set_rc("HY"..rc..dir)
+   else
+          set_rc(S.rc)
+          S.reversing = false
+          S.exiting = true
+   end  
+elseif S.dir == 1 and atc_arrow then
+if S.rc:match("HYREVERSE")  and S.cars == 0 then
+   set_route("HYE"..lane, "HEADSHUNT")
+S.reversing = true
+S.dir = 2
+end
+if not S.reversing then
+atc_send("B0WD1RS4")
+end
+end
\ No newline at end of file
diff --git a/Hyard/nodes/(-2594,12,-1780).lua b/Hyard/nodes/(-2594,12,-1780).lua
new file mode 100644
index 0000000..7a257db
--- /dev/null
+++ b/Hyard/nodes/(-2594,12,-1780).lua
@@ -0,0 +1,28 @@
+
+local dir = 1
+local lane = 6
+if S.dir == dir and atc_arrow then
+   set_route("HYD"..lane, "HEADSHUNT1")
+   local plen = train_length()
+   local rc = split_at_fc("B0")
+   local trc = "HY"..rc..dir
+   S.cars = plen - train_length()
+   if plen == train_length() and (rc == "" or S.rc:match(trc)) and not (S.rc:match("HYREVERSE")) then
+       S.exiting = true
+   end
+   if rc and rc ~= "" then
+       set_rc("HY"..rc..dir)
+   else
+          set_rc(S.rc)
+          S.exiting = true
+   end  
+elseif S.dir == 2 and atc_arrow then
+if S.rc:match("HYREVERSE")  and S.cars == 0 then
+   set_route("HYD"..lane, "HEADSHUNT1")
+S.reversing = true
+S.dir = 1
+end
+if not S.reversing then
+atc_send("B0WD1RS4")
+end
+end
\ No newline at end of file
diff --git a/Hyard/nodes/(-2594,12,-1784).lua b/Hyard/nodes/(-2594,12,-1784).lua
new file mode 100644
index 0000000..31d73ca
--- /dev/null
+++ b/Hyard/nodes/(-2594,12,-1784).lua
@@ -0,0 +1,3 @@
+if not atc_arrow then
+set_autocouple()
+end
\ No newline at end of file
diff --git a/Hyard/nodes/(-2594,12,-1802).lua b/Hyard/nodes/(-2594,12,-1802).lua
new file mode 100644
index 0000000..cfca16e
--- /dev/null
+++ b/Hyard/nodes/(-2594,12,-1802).lua
@@ -0,0 +1,9 @@
+atc_send("B0")
+if S.rc then
+interrupt(10, "recheck")
+else
+atc_send("S4")
+S.dir = 2
+S.rc = get_rc()
+set_route("HYENTRY2", "PICKUP")
+end
\ No newline at end of file
diff --git a/Hyard/nodes/(-2595,12,-1837).lua b/Hyard/nodes/(-2595,12,-1837).lua
new file mode 100644
index 0000000..0512e1d
--- /dev/null
+++ b/Hyard/nodes/(-2595,12,-1837).lua
@@ -0,0 +1,2 @@
+set_rc(S.rc)
+S.rc = nil
\ No newline at end of file
diff --git a/Hyard/nodes/(-2596,12,-1721).lua b/Hyard/nodes/(-2596,12,-1721).lua
new file mode 100644
index 0000000..cc285f9
--- /dev/null
+++ b/Hyard/nodes/(-2596,12,-1721).lua
@@ -0,0 +1,17 @@
+local dir = 2
+local lane = 5
+if S.dir == dir then
+if atc_arrow and not S.exiting then
+split_off_locomotive("B0")
+set_rc("PICKUP")
+set_route("HYE"..lane, "HEADSHUNT")
+end
+
+if atc_arrow and S.exiting then
+set_rc("EXIT")
+   set_route("HYE"..lane, "EXIT")
+S.exiting = false
+end
+elseif atc_arrow then
+atc_send("B0WD1RS4")
+end
\ No newline at end of file
diff --git a/Hyard/nodes/(-2596,12,-1780).lua b/Hyard/nodes/(-2596,12,-1780).lua
new file mode 100644
index 0000000..aaf4293
--- /dev/null
+++ b/Hyard/nodes/(-2596,12,-1780).lua
@@ -0,0 +1,14 @@
+local dir = 1
+if S.dir == dir then
+if atc_arrow and not S.exiting then
+split_off_locomotive("B0")
+set_rc("PICKUP")
+end
+
+if atc_arrow and S.exiting then
+set_rc("EXIT")
+S.exiting = false
+end
+elseif atc_arrow then
+atc_send("B0WD1RS4")
+end
\ No newline at end of file
diff --git a/Hyard/nodes/(-2596,12,-1784).lua b/Hyard/nodes/(-2596,12,-1784).lua
new file mode 100644
index 0000000..31d73ca
--- /dev/null
+++ b/Hyard/nodes/(-2596,12,-1784).lua
@@ -0,0 +1,3 @@
+if not atc_arrow then
+set_autocouple()
+end
\ No newline at end of file
diff --git a/Hyard/nodes/(-2596,12,-1830).lua b/Hyard/nodes/(-2596,12,-1830).lua
new file mode 100644
index 0000000..0b5e1ac
--- /dev/null
+++ b/Hyard/nodes/(-2596,12,-1830).lua
@@ -0,0 +1,15 @@
+if S.reversing and atc_arrow then
+set_rc(S.rc)
+S.exiting = true
+S.reversing = false
+elseif atc_arrow and S.exiting and S.rc:match("HYREVERSE") then
+set_rc("PICKUP")
+S.dir = 2
+S.reversing = true
+elseif get_rc():match("EXIT") and not S.reversing then
+    if S.rc:match("HIP") then
+        set_route("HYEXIT1", "Hippodrome")
+    else
+        set_route("HYEXIT1", "Trisiston")
+end
+end
\ No newline at end of file
diff --git a/Hyard/nodes/(-2597,12,-1708).lua b/Hyard/nodes/(-2597,12,-1708).lua
new file mode 100644
index 0000000..d87f3f9
--- /dev/null
+++ b/Hyard/nodes/(-2597,12,-1708).lua
@@ -0,0 +1,4 @@
+
+if atc_arrow then
+set_autocouple()
+end
\ No newline at end of file
diff --git a/Hyard/nodes/(-2598,12,-1708).lua b/Hyard/nodes/(-2598,12,-1708).lua
new file mode 100644
index 0000000..d87f3f9
--- /dev/null
+++ b/Hyard/nodes/(-2598,12,-1708).lua
@@ -0,0 +1,4 @@
+
+if atc_arrow then
+set_autocouple()
+end
\ No newline at end of file
diff --git a/Hyard/nodes/(-2598,12,-1721).lua b/Hyard/nodes/(-2598,12,-1721).lua
new file mode 100644
index 0000000..d19e777
--- /dev/null
+++ b/Hyard/nodes/(-2598,12,-1721).lua
@@ -0,0 +1,17 @@
+local dir = 2
+local lane = 4
+if S.dir == dir then
+if atc_arrow and not S.exiting then
+split_off_locomotive("B0")
+set_rc("PICKUP")
+set_route("HYE"..lane, "HEADSHUNT")
+end
+
+if atc_arrow and S.exiting then
+set_rc("EXIT")
+   set_route("HYE"..lane, "EXIT")
+S.exiting = false
+end
+elseif atc_arrow then
+atc_send("B0WD1RS4")
+end
\ No newline at end of file
diff --git a/Hyard/nodes/(-2598,12,-1780).lua b/Hyard/nodes/(-2598,12,-1780).lua
new file mode 100644
index 0000000..aaf4293
--- /dev/null
+++ b/Hyard/nodes/(-2598,12,-1780).lua
@@ -0,0 +1,14 @@
+local dir = 1
+if S.dir == dir then
+if atc_arrow and not S.exiting then
+split_off_locomotive("B0")
+set_rc("PICKUP")
+end
+
+if atc_arrow and S.exiting then
+set_rc("EXIT")
+S.exiting = false
+end
+elseif atc_arrow then
+atc_send("B0WD1RS4")
+end
\ No newline at end of file
diff --git a/Hyard/nodes/(-2598,12,-1784).lua b/Hyard/nodes/(-2598,12,-1784).lua
new file mode 100644
index 0000000..31d73ca
--- /dev/null
+++ b/Hyard/nodes/(-2598,12,-1784).lua
@@ -0,0 +1,3 @@
+if not atc_arrow then
+set_autocouple()
+end
\ No newline at end of file
diff --git a/Hyard/nodes/(-2600,12,-1708).lua b/Hyard/nodes/(-2600,12,-1708).lua
new file mode 100644
index 0000000..d87f3f9
--- /dev/null
+++ b/Hyard/nodes/(-2600,12,-1708).lua
@@ -0,0 +1,4 @@
+
+if atc_arrow then
+set_autocouple()
+end
\ No newline at end of file
diff --git a/Hyard/nodes/(-2600,12,-1721).lua b/Hyard/nodes/(-2600,12,-1721).lua
new file mode 100644
index 0000000..8766946
--- /dev/null
+++ b/Hyard/nodes/(-2600,12,-1721).lua
@@ -0,0 +1,17 @@
+local dir = 2
+local lane = 3
+if S.dir == dir then
+if atc_arrow and not S.exiting then
+split_off_locomotive("B0")
+set_rc("PICKUP")
+set_route("HYE"..lane, "HEADSHUNT")
+end
+
+if atc_arrow and S.exiting then
+set_rc("EXIT")
+   set_route("HYE"..lane, "EXIT")
+S.exiting = false
+end
+elseif atc_arrow then
+atc_send("B0WD1RS4")
+end
\ No newline at end of file
diff --git a/Hyard/nodes/(-2600,12,-1780).lua b/Hyard/nodes/(-2600,12,-1780).lua
new file mode 100644
index 0000000..aaf4293
--- /dev/null
+++ b/Hyard/nodes/(-2600,12,-1780).lua
@@ -0,0 +1,14 @@
+local dir = 1
+if S.dir == dir then
+if atc_arrow and not S.exiting then
+split_off_locomotive("B0")
+set_rc("PICKUP")
+end
+
+if atc_arrow and S.exiting then
+set_rc("EXIT")
+S.exiting = false
+end
+elseif atc_arrow then
+atc_send("B0WD1RS4")
+end
\ No newline at end of file
diff --git a/Hyard/nodes/(-2600,12,-1784).lua b/Hyard/nodes/(-2600,12,-1784).lua
new file mode 100644
index 0000000..31d73ca
--- /dev/null
+++ b/Hyard/nodes/(-2600,12,-1784).lua
@@ -0,0 +1,3 @@
+if not atc_arrow then
+set_autocouple()
+end
\ No newline at end of file
diff --git a/Hyard/nodes/(-2602,12,-1708).lua b/Hyard/nodes/(-2602,12,-1708).lua
new file mode 100644
index 0000000..d87f3f9
--- /dev/null
+++ b/Hyard/nodes/(-2602,12,-1708).lua
@@ -0,0 +1,4 @@
+
+if atc_arrow then
+set_autocouple()
+end
\ No newline at end of file
diff --git a/Hyard/nodes/(-2602,12,-1721).lua b/Hyard/nodes/(-2602,12,-1721).lua
new file mode 100644
index 0000000..3d3cb4e
--- /dev/null
+++ b/Hyard/nodes/(-2602,12,-1721).lua
@@ -0,0 +1,17 @@
+local dir = 2
+local lane = 2
+if S.dir == dir then
+if atc_arrow and not S.exiting then
+split_off_locomotive("B0")
+set_rc("PICKUP")
+set_route("HYE"..lane, "HEADSHUNT")
+end
+
+if atc_arrow and S.exiting then
+set_rc("EXIT")
+   set_route("HYE"..lane, "EXIT")
+S.exiting = false
+end
+elseif atc_arrow then
+atc_send("B0WD1RS4")
+end
\ No newline at end of file
diff --git a/Hyard/nodes/(-2602,12,-1780).lua b/Hyard/nodes/(-2602,12,-1780).lua
new file mode 100644
index 0000000..aaf4293
--- /dev/null
+++ b/Hyard/nodes/(-2602,12,-1780).lua
@@ -0,0 +1,14 @@
+local dir = 1
+if S.dir == dir then
+if atc_arrow and not S.exiting then
+split_off_locomotive("B0")
+set_rc("PICKUP")
+end
+
+if atc_arrow and S.exiting then
+set_rc("EXIT")
+S.exiting = false
+end
+elseif atc_arrow then
+atc_send("B0WD1RS4")
+end
\ No newline at end of file
diff --git a/Hyard/nodes/(-2602,12,-1784).lua b/Hyard/nodes/(-2602,12,-1784).lua
new file mode 100644
index 0000000..31d73ca
--- /dev/null
+++ b/Hyard/nodes/(-2602,12,-1784).lua
@@ -0,0 +1,3 @@
+if not atc_arrow then
+set_autocouple()
+end
\ No newline at end of file
diff --git a/Hyard/nodes/(-2603,12,-1784).lua b/Hyard/nodes/(-2603,12,-1784).lua
new file mode 100644
index 0000000..31d73ca
--- /dev/null
+++ b/Hyard/nodes/(-2603,12,-1784).lua
@@ -0,0 +1,3 @@
+if not atc_arrow then
+set_autocouple()
+end
\ No newline at end of file
diff --git a/Hyard/nodes/(-2603,9,-1659).lua b/Hyard/nodes/(-2603,9,-1659).lua
new file mode 100644
index 0000000..6ef94f8
--- /dev/null
+++ b/Hyard/nodes/(-2603,9,-1659).lua
@@ -0,0 +1,9 @@
+atc_send("B0")
+if S.rc then
+interrupt(10, "recheck")
+else
+atc_send("S4")
+S.dir = 1
+S.rc = get_rc()
+set_route("HYENTRY1", "PICKUP")
+end
\ No newline at end of file
diff --git a/Hyard/nodes/(-2604,12,-1708).lua b/Hyard/nodes/(-2604,12,-1708).lua
new file mode 100644
index 0000000..d87f3f9
--- /dev/null
+++ b/Hyard/nodes/(-2604,12,-1708).lua
@@ -0,0 +1,4 @@
+
+if atc_arrow then
+set_autocouple()
+end
\ No newline at end of file
diff --git a/Hyard/nodes/(-2604,12,-1721).lua b/Hyard/nodes/(-2604,12,-1721).lua
new file mode 100644
index 0000000..1d2aaa9
--- /dev/null
+++ b/Hyard/nodes/(-2604,12,-1721).lua
@@ -0,0 +1,17 @@
+local dir = 2
+local lane = 1
+if S.dir == dir then
+if atc_arrow and not S.exiting then
+split_off_locomotive("B0")
+set_rc("PICKUP")
+set_route("HYE"..lane, "HEADSHUNT")
+end
+
+if atc_arrow and S.exiting then
+set_rc("EXIT")
+   set_route("HYE"..lane, "EXIT")
+S.exiting = false
+end
+elseif atc_arrow then
+atc_send("B0WD1RS4")
+end
\ No newline at end of file
diff --git a/Hyard/nodes/(-2604,12,-1780).lua b/Hyard/nodes/(-2604,12,-1780).lua
new file mode 100644
index 0000000..aaf4293
--- /dev/null
+++ b/Hyard/nodes/(-2604,12,-1780).lua
@@ -0,0 +1,14 @@
+local dir = 1
+if S.dir == dir then
+if atc_arrow and not S.exiting then
+split_off_locomotive("B0")
+set_rc("PICKUP")
+end
+
+if atc_arrow and S.exiting then
+set_rc("EXIT")
+S.exiting = false
+end
+elseif atc_arrow then
+atc_send("B0WD1RS4")
+end
\ No newline at end of file
diff --git a/Hyard/nodes/(-2609,13,-1724).lua b/Hyard/nodes/(-2609,13,-1724).lua
new file mode 100644
index 0000000..c4bad90
--- /dev/null
+++ b/Hyard/nodes/(-2609,13,-1724).lua
@@ -0,0 +1 @@
+digiline_send("lcd", "Direction: "..S.dir.."\nCurrent FC:"..(S.fc or "").."\nCars in Pickup: "..(S.cars or 0).."\nRC: "..(S.rc or ""))
\ No newline at end of file
diff --git a/Hyard/nodes/(-2642,10,-1700).lua b/Hyard/nodes/(-2642,10,-1700).lua
new file mode 100644
index 0000000..653af4d
--- /dev/null
+++ b/Hyard/nodes/(-2642,10,-1700).lua
@@ -0,0 +1,8 @@
+if S.reversing and atc_arrow then
+S.reversing = false
+set_rc(S.rc)
+elseif atc_arrow and S.exiting and S.rc:match("HYREVERSE") then
+--set_rc("PICKUP")
+--S.dir = 1
+--S.reversing = true
+end
\ No newline at end of file