State at 2024-10-15

1 files changed, 34 insertions, 22 deletions

diff --git a/durt/nodes/(-2080,3,832).lua b/durt/nodes/(-2080,3,832).lua
index 9a71d83..4d71348 100644
--- a/durt/nodes/(-2080,3,832).lua
+++ b/durt/nodes/(-2080,3,832).lua
@@ -1,32 +1,44 @@
-local dir_indicator = POS(-2079,7,803)
-local this_dir = true
+-- Automatic bouncer for headshunts, assuming longer headshunt than train length. Arrow points into headshunt
+local rev_rc = "ARC_LOAD_HS_N"
+local rm_rc = true
+local autocouple = "ARC_LOAD_HS_N_AC"
+local rm_cpl_rc = true
 
-if event.schedule then
-	if not atc_id then
-		atc_send_to_train(event.msg,"B0WRD1S1")
-		return
-	end
-	if event.msg == atc_id then 
-		schedule_in(";01",atc_id)
-		return
-	else
-		atc_send("BB")
-		atc_send_to_train("BB")
-		return
-	end
+__approach_callback_mode = 1
+
+if event.approach and not event.has_entered then
+	atc_set_lzb_tsr(3)
+	atc_set_ars_disable(true)
 	return
 end
 
-if event.train and atc_arrow then
-	if F.has_rc("ARC_LOAD_reverse") and F.dir(dir_indicator) == this_dir then
-		set_autocouple()
-		schedule_in(";01",atc_id)
+if event.train then
+	if not atc_arrow then --train has bounced
+		if F.has_rc(autocouple) then
+			atc_send("CplS0WD2S1")
+			if rm_cpl_rc then F.remove_rc({autocouple}) end
+		end
 		return
 	end
-	if F.has_rc("ARC_LOAD_exit") then
-		F.remove_rc({"ARC_LOAD_exit"})
-		atc_send("D5SM")
+	
+	if not F.has_rc(rev_rc) then --not our train. disregard
+		atc_set_ars_disable(false)
 		return
 	end
+	if rm_rc then F.remove_rc({rev_rc}) end
+	schedule_in(";01",atc_id)
+	return
 end
 
+if event.schedule then
+	if not atc_id then --bounce the train that just passed
+		atc_send_to_train(event.msg,"B0WRD1A1S1")
+	else
+		if atc_id == event.msg then --train hasn't fully passed yet, wait a bit longer
+			schedule_in(";01",atc_id)
+		else -- somehow another train crossed the controller before the first one returned. Unlikely but possible
+			atc_send_to_train(event.msg,"BBOL")
+			atc_send("BBOL")
+		end
+	end
+end
\ No newline at end of file