Initialise(). Объявляются переменные. CodeBlock - это именно та переменная, которая получает значение true, когда заградительный светофор закрыт и коды принимать не нужно.

Код: Выделить всё

function Initialise()

   CodeBlock = false
   CodeBlockTab = {count = 0, status = "none", prevdist = 0}
   
end

Update (time). Вызывается функция сброса блокировки. Это для того, чтобы разрешить прием кодов АЛСН без специального разрешения от светофора, на случай, что светофор откроется.

Код: Выделить всё

function Update (time)

   CodeEnableControl (time)
   
end

function CodeEnableControl (argument)
   if CodeBlock then
      if Timer ("CodeBlock") then
         CodeBlock = false
         CodeBlockTab = {count = 0, status = "none", prevdist = 0}
      end
   end
end

OnCustomSignalMessage (ConsistMessage). Приняв сообщение от светофора, декодирует его, складывает в таблицу и отправляет эту таблицу в ZagradSign (data_message) на обработку.

Код: Выделить всё

function OnCustomSignalMessage (ConsistMessage)

   if string.sub(ConsistMessage, 1, 15) == "FSA-Controllers" then
      local data_message = string.split(ConsistMessage, ":")
      if data_message[2] == "Zagrad" then
         ZagradSign (data_message)
      end
   else
      -- Обработчик АЛСН
      
   end
end

ZagradSign (data_message). Обрабатывает раскодированные данные от светофора, принимает решение, блокировать прием кодов АЛСН или нет.

Код: Выделить всё

function ZagradSign (data_message)
   if math.abs (tonumber (data_message[5]) - Call("GetConsistLength")) < 5 then
      if data_message[3] == "transfer" then
         local distance_zagrad = tonumber (data_message[6])
         if gDistSig.Res > distance_zagrad then
            if distance_zagrad < CodeBlockTab.prevdist - 0.001 then
               if CodeBlockTab.status ~= "+" then
                  if CodeBlockTab.count > 2 then
                     CodeBlockTab.status = "+"
                     CodeBlockTab.count = 0
                  else
                     CodeBlockTab.count = CodeBlockTab.count + 1
                  end
               end
            elseif distance_zagrad > CodeBlockTab.prevdist + 0.001 then
               if CodeBlockTab.status ~= "-" then
                  if CodeBlockTab.count > 2 then
                     CodeBlockTab.status = "-"
                     CodeBlockTab.count = 0
                  else
                     CodeBlockTab.count = CodeBlockTab.count + 1
                  end
               end
            end
            CodeBlockTab.prevdist = distance_zagrad
            if CodeBlockTab.status == "+" then
               Timer ("CodeBlock", 2, "restart")
               CodeBlock = true
            end
         end
      elseif data_message[3] == "exit" then
         if CodeBlock then
            Timer ("CodeBlock", "clear")
            CodeBlockTab = {count = 0, status = "none", prevdist = 0}
            CodeBlock = false
         end
      end
   end
end

В предоставленном коде использованы функции string.split() и Timer (), опубликованные мной ранее.

Пакет устанавливается традиционным способом, через менеджер пакетов, для отображения в редакторе необходимо подключить пакет FSA/Addon в фильтре активов. Светофор и маркер будут доступно во вкладке "Инфраструктура линии" под названиями "RU-UA Светофор заградительный вариант 1 2L" и "RU-UA Светофор заградительный. Управление." соответственно.