blob: 9fde58ad9f7754e671fb9f7ebfea9555aaba23b3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
-- Automatic bouncer for headshunts, assuming longer headshunt than train length. Arrow points into headshunt
-- cut down to ensure all trains bounce
__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
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,"B0WRD1A1S3")
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
|
