local lights = {
	POS(-4131,5,-5623),
	POS(-4127,5,-5623),
	POS(-4127,5,-5617),
	POS(-4131,5,-5617)
}
local pt = POS(-4129,5,-5628)
local bt = POS(-4132,4,-5626)

if event.train then
	if atc_arrow then
		for _,v in pairs(lights) do
			setstate(v,"on")
		end
		if getstate(bt)=="on" then
			atc_send("BB")
			schedule_in(";05",true)
		else
			if (get_rc() or ""):match("CAN_corn") then
				setstate(pt,"r")
				atc_send("B1")
			else
				setstate(pt,"s")
				atc_send("S3")
			end
		end
	else
		if tostring(get_rc() or ""):match("DLG_shunt") then
			atc_send("S3D5S0WRD1S3")
		else
			atc_send("SM")
		end
	end
end

if event.schedule then
	if getstate(bt)=="on" then
		atc_send("BB")
		schedule_in(";05",true)
	else
		setstate(pt,"r")
		atc_send("S3")
	end
end