diff options
Diffstat (limited to 'durt/nodes')
| -rw-r--r-- | durt/nodes/(-2147,20,777).lua | 7 | ||||
| -rw-r--r-- | durt/nodes/(-2153,20,769).lua | 9 | ||||
| -rw-r--r-- | durt/nodes/(-3588,8,-2277).lua | 2 | ||||
| -rw-r--r-- | durt/nodes/(-541,26,2469).lua | 1 | ||||
| -rw-r--r-- | durt/nodes/(-541,26,2472).lua | 1 | ||||
| -rw-r--r-- | durt/nodes/(-541,26,2475).lua | 1 | ||||
| -rw-r--r-- | durt/nodes/(-549,26,2478).lua | 1 | ||||
| -rw-r--r-- | durt/nodes/(-585,26,2478).lua | 1 | ||||
| -rw-r--r-- | durt/nodes/(-612,28,2482).lua | 1 | ||||
| -rw-r--r-- | durt/nodes/(-621,26,2469).lua | 1 | ||||
| -rw-r--r-- | durt/nodes/(-621,26,2472).lua | 1 | ||||
| -rw-r--r-- | durt/nodes/(-621,26,2475).lua | 1 | ||||
| -rw-r--r-- | durt/nodes/(-638,26,2475).lua | 1 | ||||
| -rw-r--r-- | durt/nodes/(-646,26,2469).lua | 6 | ||||
| -rw-r--r-- | durt/nodes/(-678,20,2478).lua | 2 | ||||
| -rw-r--r-- | durt/nodes/(415,17,19).lua | 1 | ||||
| -rw-r--r-- | durt/nodes/(527,-3,-1959).lua | 2 | ||||
| -rw-r--r-- | durt/nodes/(529,-3,-1954).lua | 2 |
18 files changed, 38 insertions, 3 deletions
diff --git a/durt/nodes/(-2147,20,777).lua b/durt/nodes/(-2147,20,777).lua new file mode 100644 index 0000000..467f0f9 --- /dev/null +++ b/durt/nodes/(-2147,20,777).lua @@ -0,0 +1,7 @@ +if event.type == "train" then + rc = get_rc() + if rc:find("apprentice_leave") ~= nil then + rc = rc:gsub("apprentice_leave", "apprentice_unload") + end + set_rc(rc) +end
\ No newline at end of file diff --git a/durt/nodes/(-2153,20,769).lua b/durt/nodes/(-2153,20,769).lua new file mode 100644 index 0000000..27ed074 --- /dev/null +++ b/durt/nodes/(-2153,20,769).lua @@ -0,0 +1,9 @@ +if event.type == "train" then + local rc = get_rc() + if rc:find("apprentice_unload") ~= nil then + rc = rc:gsub("apprentice_unload", "apprentice_load") + elseif rc:find("apprentice_load") ~= nil then + rc = rc:gsub("apprentice_load", "apprentice_leave") + end + set_rc(rc) +end
\ No newline at end of file diff --git a/durt/nodes/(-3588,8,-2277).lua b/durt/nodes/(-3588,8,-2277).lua index 0858265..4e7fb2e 100644 --- a/durt/nodes/(-3588,8,-2277).lua +++ b/durt/nodes/(-3588,8,-2277).lua @@ -1 +1 @@ ---train splitter track
mainline_line = "Maverick2797_diamonds"
mainline_rc = "autorun FREIGHT"
text_outside = "DURT Logs to Diamonds Conversion Train"
loading_stopper_sig = POS(-3594,9,-2277)
split_around = function()
if ((atc_speed==0) and can_set_route(loading_stopper_sig,"Shunt Around Via Loop")) then
split_at_index(2,"")
atc_send("S4")
set_route(loading_stopper_sig,"Shunt Around Via Loop")
return
else
interrupt(2,"split_around")
return
end
end
if event.train then
if not atc_arrow then atc_send("B1S1") return end
if get_rc() == "split_around" then
atc_send("B0")
split_around()
return
else --rejoined from splitting or arriving train
atc_send("B0S0WD2RS1")
set_line(mainline_line)
set_rc(mainline_rc)
atc_set_text_outside(text_outside)
atc_set_text_inside("Loading Cargo")
return
end
end
if event.type=="int" then
if event.message=="split_around" then split_around() return end
return
end
\ No newline at end of file +--train splitter track
mainline_line = "Maverick2797_diamonds"
mainline_rc = "autorun FREIGHT"
text_outside = "DURT Logs to Diamonds Conversion Train"
loading_stopper_sig = POS(-3594,9,-2277)
split_around = function()
if ((atc_speed==0) and can_set_route(loading_stopper_sig,"Shunt Around Via Loop")) then
set_autocouple()
split_at_index(2,"S0")
atc_send("S4")
set_route(loading_stopper_sig,"Shunt Around Via Loop")
return
else
interrupt(2,"split_around")
return
end
end
if event.train then
if not atc_arrow then atc_send("B1S1") return end
if get_rc() == "split_around" then
atc_send("B0")
split_around()
return
else --rejoined from splitting or arriving train
atc_send("B0S0WD2RS1")
set_line(mainline_line)
set_rc(mainline_rc)
atc_set_text_outside(text_outside)
atc_set_text_inside("Loading Cargo")
unset_autocouple()
return
end
end
if event.type=="int" then
if event.message=="split_around" then split_around() return end
return
end
\ No newline at end of file diff --git a/durt/nodes/(-541,26,2469).lua b/durt/nodes/(-541,26,2469).lua new file mode 100644 index 0000000..ea080ea --- /dev/null +++ b/durt/nodes/(-541,26,2469).lua @@ -0,0 +1 @@ +-- arrow points towards loco HS for Bounce
local lane = 1
if S.yard_active then
if atc_arrow and S.exiting then
set_rc("EXIT")
set_route("CANNERY_W"..lane, "EXIT")
atc_send("B0WRD1SM")
else
atc_send("B0WD1RS4")
end
end
\ No newline at end of file diff --git a/durt/nodes/(-541,26,2472).lua b/durt/nodes/(-541,26,2472).lua new file mode 100644 index 0000000..d5d7bd4 --- /dev/null +++ b/durt/nodes/(-541,26,2472).lua @@ -0,0 +1 @@ +-- arrow points towards loco HS for Bounce
local lane = 2
if S.yard_active then
if atc_arrow and S.exiting then
set_rc("EXIT")
set_route("CANNERY_W"..lane, "EXIT")
atc_send("B0WRD1SM")
else
atc_send("B0WD1RS4")
end
end
\ No newline at end of file diff --git a/durt/nodes/(-541,26,2475).lua b/durt/nodes/(-541,26,2475).lua new file mode 100644 index 0000000..58c5e8b --- /dev/null +++ b/durt/nodes/(-541,26,2475).lua @@ -0,0 +1 @@ +-- arrow points towards loco HS for Bounce
local lane = 3
if S.yard_active then
if atc_arrow and S.exiting then
set_rc("EXIT")
set_route("CANNERY_W"..lane, "EXIT")
atc_send("B0WRD1SM")
else
atc_send("B0WD1RS4")
end
end
\ No newline at end of file diff --git a/durt/nodes/(-549,26,2478).lua b/durt/nodes/(-549,26,2478).lua new file mode 100644 index 0000000..90eb7a9 --- /dev/null +++ b/durt/nodes/(-549,26,2478).lua @@ -0,0 +1 @@ +--LOCO SPLITTER
local lane = 4
if S.yard_active then
if not S.first_pass then
S.first_pass = true
set_route("CANNERY_E"..lane,"HEADSHUNT")
split_off_locomotive("B0")
set_rc("AROUND")
else
-- has collected wagons, now bounce back to sorting splitter
atc_send("B0WRD1S4")
end
end
\ No newline at end of file diff --git a/durt/nodes/(-585,26,2478).lua b/durt/nodes/(-585,26,2478).lua new file mode 100644 index 0000000..23d349b --- /dev/null +++ b/durt/nodes/(-585,26,2478).lua @@ -0,0 +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 diff --git a/durt/nodes/(-612,28,2482).lua b/durt/nodes/(-612,28,2482).lua new file mode 100644 index 0000000..399a841 --- /dev/null +++ b/durt/nodes/(-612,28,2482).lua @@ -0,0 +1 @@ +if event.channel=="ops" or event.punch then
digiline_send("lcd","Yard Active:"..tostring(S.yard_active).."\nRC:"..tostring(S.rc).."\nfirst_pass:"..tostring(S.first_pass).."\nexiting:"..tostring(S.exiting))
end
\ No newline at end of file diff --git a/durt/nodes/(-621,26,2469).lua b/durt/nodes/(-621,26,2469).lua new file mode 100644 index 0000000..80f4e52 --- /dev/null +++ b/durt/nodes/(-621,26,2469).lua @@ -0,0 +1 @@ +-- arrow points towards Sorting HS for Bounce
local lane = 1
if S.yard_active == true then
if (atc_arrow and not S.exiting) then
split_off_locomotive("B0WR")
set_route("CANNERY_W"..lane,"HEADSHUNT")
set_rc("PICKUP")
elseif atc_arrow and S.exiting then
set_route("CANNERY_W"..lane,"EXIT")
end
end
\ No newline at end of file diff --git a/durt/nodes/(-621,26,2472).lua b/durt/nodes/(-621,26,2472).lua new file mode 100644 index 0000000..de4552e --- /dev/null +++ b/durt/nodes/(-621,26,2472).lua @@ -0,0 +1 @@ +-- arrow points towards Sorting HS for Bounce
local lane = 2
if S.yard_active == true then
if (atc_arrow and not S.exiting) then
split_off_locomotive("B0WR")
set_route("CANNERY_W"..lane,"HEADSHUNT")
set_rc("PICKUP")
elseif atc_arrow and S.exiting then
set_route("CANNERY_W"..lane,"EXIT")
end
end
\ No newline at end of file diff --git a/durt/nodes/(-621,26,2475).lua b/durt/nodes/(-621,26,2475).lua new file mode 100644 index 0000000..35e4773 --- /dev/null +++ b/durt/nodes/(-621,26,2475).lua @@ -0,0 +1 @@ +-- arrow points towards Sorting HS for Bounce
local lane = 3
if S.yard_active == true then
if (atc_arrow and not S.exiting) then
split_off_locomotive("B0WR")
set_route("CANNERY_W"..lane,"HEADSHUNT")
set_rc("PICKUP")
elseif atc_arrow and S.exiting then
set_route("CANNERY_W"..lane,"EXIT")
end
end
\ No newline at end of file diff --git a/durt/nodes/(-638,26,2475).lua b/durt/nodes/(-638,26,2475).lua new file mode 100644 index 0000000..2b808a1 --- /dev/null +++ b/durt/nodes/(-638,26,2475).lua @@ -0,0 +1 @@ +--Yard Exit
--arrow points away from yard
if S.yard_active == true then
if atc_arrow then --exiting yard after shunt sequence
set_rc(S.rc)
S.yard_active = nil
S.rc = nil
S.first_pass = nil
S.exiting = nil
unset_autocouple()
end
end
\ No newline at end of file diff --git a/durt/nodes/(-646,26,2469).lua b/durt/nodes/(-646,26,2469).lua new file mode 100644 index 0000000..1158ddb --- /dev/null +++ b/durt/nodes/(-646,26,2469).lua @@ -0,0 +1,6 @@ +-- +if S.yard_active then + if atc_arrow then + set_autocouple() + end +end
\ No newline at end of file diff --git a/durt/nodes/(-678,20,2478).lua b/durt/nodes/(-678,20,2478).lua new file mode 100644 index 0000000..7b0b847 --- /dev/null +++ b/durt/nodes/(-678,20,2478).lua @@ -0,0 +1,2 @@ +-- approach siding
atc_send("B0")
if S.yard_active then
interrupt(10, "recheck")
else
atc_send("S4")
S.rc = get_rc()
step_fc()
S.yard_active = true
set_route("CANNERY_WAITING", "APPROACH YARD") +set_route("CANNERY_APPROACH","PICKUP")
end
\ No newline at end of file diff --git a/durt/nodes/(415,17,19).lua b/durt/nodes/(415,17,19).lua new file mode 100644 index 0000000..be6f093 --- /dev/null +++ b/durt/nodes/(415,17,19).lua @@ -0,0 +1 @@ +if event.punch or (event.channel=="clock" and event.msg=="pulse")then
local line = "U21"
local info = S.lines[line].monitoring
digiline_send("status_update",info)
end
\ No newline at end of file diff --git a/durt/nodes/(527,-3,-1959).lua b/durt/nodes/(527,-3,-1959).lua index f137323..e7213ad 100644 --- a/durt/nodes/(527,-3,-1959).lua +++ b/durt/nodes/(527,-3,-1959).lua @@ -5,7 +5,7 @@ if atc_arrow then atc_set_text_inside("DEPOT") else atc_send("SM") - set_line("1") + set_line("21") atc_set_text_outside("Line 21\n---> South Forest") atc_set_text_inside("Next stop: Bamboo Hills") end
\ No newline at end of file diff --git a/durt/nodes/(529,-3,-1954).lua b/durt/nodes/(529,-3,-1954).lua index da5fd9f..f734da7 100644 --- a/durt/nodes/(529,-3,-1954).lua +++ b/durt/nodes/(529,-3,-1954).lua @@ -1,6 +1,6 @@ if atc_arrow then atc_send("SM") - set_line("1") + set_line("21") atc_set_text_outside("Line 21\n---> Turtle Rock") atc_set_text_inside("Next stop: Clown Island") else |