RailUnion.net

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

function OnEvent ( event )

--   if ( event == "cinematic" ) then
--      SysCall ( "ScenarioManager:LockControls" ) ;
--      SysCall ( "CameraManager:ActivateCamera" , "introcinematic" , 0 ) ;
--   end

--   if ( event == "cabcamera") then
--      SysCall ( "CameraManager:ActivateCamera" , "CabCamera" , 0 ) ;
--      SysCall ( "ScenarioManager:UnlockControls" ) ;
--   end

   if event == "introIR1" then
      SysCall ("IR1:SetControlValue", "Horn", 0, 1)
      SysCall ("ScenarioManager:TriggerDeferredEvent", "OffTifon_ER1", 2)
      return TRUE
   end

   if event == "OffTifon_ER1" then
      SysCall ("IR1:SetControlValue", "Horn", 0, 0)
      return TRUE
   end
   
   return FALSE ;
end

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

------------------------------------------------
-- Scenario Script
------------------------------------------------

-- true/false defn
FALSE = 0
TRUE = 1

------------------------------------------------
-- Fn OnEvent
function OnEvent (event)
   if string.lower (string.sub (event, 1, 6)) == "signal" then
      local event_data = string.split (event, "*")
      --[1] - событие ("Signal")
      --[2] - номер локомотива
      --[3] - локомотив
      --[4] - тип сигнала
      --[5] - продолжительность
     
      local tab_locomotive = {
         ["3te10m"]   = {horn = {name = "Horn", on = 1, off = 0}, whistle = {name = "Horn", on = -1, off = 0}},
         ["tem2"]   = {horn = {name = "Horn", on = 1, off = 0}, whistle = {name = "Whistle", on = 1, off = 0}},
      }
    
     event_data[3] = string.lower (event_data[3])
     event_data[4] = string.lower (event_data[4])
      
      local control = tab_locomotive[event_data[3]][event_data[4]].name
      local value_on = tonumber (tab_locomotive[event_data[3]][event_data[4]].on) or 0
      local value_off = tonumber (tab_locomotive[event_data[3]][event_data[4]].off) or 0
      local delay = tonumber (event_data[5]) or 0
     
      if delay > 0 then
         SysCall (event_data[2]..":SetControlValue", control, 0, value_on)
         event_data[5] = "0"
         SysCall ("ScenarioManager:TriggerDeferredEvent", table.concat (event_data, "*"), delay)
      else
         SysCall (event_data[2]..":SetControlValue", control, 0, value_off)
      end
      return 1
   end

   -- Другие события   
   --   if event == ... then
   --   [...]
   --   end
   
   return 0
   
end -- function OnEvent (event)

function string:split (delimiter)
   local result = {}
   local from  = 1
   local index = 1
   local delim_from, delim_to = string.find (self, delimiter, from)

   while delim_from do
      result[index] = string.sub(self, from , delim_from - 1)
      from  = delim_to + 1
      delim_from, delim_to = string.find (self, delimiter, from)
      index = index + 1
   end

   result[index] = string.sub (self, from)
   return result
end


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

["drugoi_lok"]   = {dudelka = {name = "Houkacka", on = 1, off = 0}, svistelka = {name = "Pistala", on = -1, off = 0}},

[Scenario Manager 6:22:36] Trace cScenarioManager.cpp : 3846 = Event: Signal*16174756*3te10m*horn*2 handled
[Scenario Manager 6:22:38] Trace cScenarioManager.cpp : 3846 = Event: signal*16174756*3te10m*horn*0 handled

Offtopic :

Ваше Высочайшее Величество! Не велите казнить, велите слово молвить! Прошу Вас милостиво соблаговолить и, тем самым, снизойти к пояснению недостойным, что есть "производственный скрипт" и какие скрипты, помимо оного, ещё могут быть? Опасаясь Вашего праведнейшего гнева, осмелюсь предложить Вашему Монаршему Достоинству проследовать по этой ссылке, осчастливить своим вниманием находящийся там таинственный пергамент с секретными знаниями и до тех пор, пока не выучишь все там написанное наизусть, умоляю, не задавай больше этот вопрос, не заставляй тебя банить за нарушение правил!

Offtopic :

А возможно с помощью скрипта в сценарии реализовать падение давления в ТМ (Продувка) ?

Offtopic :

Есть же для этого специальная тема для таких вопросов. В теории продувку в сценарии можно сделать. Но это надо точно знать и понимать на какой контрол воздействовать. И скорее всего, это возможно только если ПС поддерживает такое воздействие. Т.е. у ПСа должен быть какой то свободный невидимый контрол концевого крана по типу стоп-крана только без видимой анимации. И в рамках РВ это будет чисто визуал на манометрах.

ПитерМен писал(а):Возник еще вопрос. А как грамотно заслать в контрол "Horn" "1"? С оригинальным номером ЭРки у меня не прокатывает. Если заменить в номере вагона буквы "ER" на цифры, то контрол работает. Но пропадают буквы"ЭР" в номере на борту и "морде" вагона (видимо движок игры не дружен с буквами в номерах ПС).

Света писал(а):Могу предположить, что был неверный регистр, а симулятор очень к этому чувствительный.