RailUnion.net

Igor Mashinist писал(а):вагончик очень шикарел хоть и внешняя версия)))

BooYa писал(а):А у пассажирского вагона бывает еще внутренняя версия?

Петрович писал(а):А салон? Чем не внутренняя версия?

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

function Initialise()

   -- Consist Message IDs
   -- 18 18 19 is R R S (number positions of letters in the alphabet)
   -- 01 is internal message type ID
   --              01 - Brakes System
   --              02 - Engine System
   -- 01 is interface version (Brakes System v.01)
   -- 4179 comes from the model number of BooYa's 61-4179 TVZ passenger coach
   BRAKES_MSGID = 1818190101;
   PINCH_3000V_MSGID = 1818194179;
   -- ID сообщения, которым пасс. вагоны обмениваются между собой и локами для подключения пинчей 3000В
   -- 4179 взято из модельного номера купейного вагона, 61-4179
   
   randomNumber = 500;
   
   numberGenerated = false;
   
   lukChecked =  false;
   
   Call("BeginUpdate");
   
end

function Update ( time )
   
local front_probe = Call("SendConsistMessage", 0, 0, 0)
local rear_probe = Call("SendConsistMessage", 0, 0, 1)

   if (numberGenerated == false) then
   -- если число ещё не было сгенерировано
   
      randomNumber = math.random(999);   
      -- произвольное число (диапазон 1-999)  для сравнения с числом, cгенерированным соседним вагоном: у кого число больше,
      -- тот свой пинч подсоединяет к «соседу», т.е. определение иерархии «папа-мама»
      numberGenerated = true;
      -- число сгенерировано, поэтому при последующих циклах функции Update этот блок уже не запустится
      
   end      
   
   if (lukChecked == false) then
   -- если правильное состояние люка кондиционирования на крыше ещё не выяснено
   
      if (SysCall("GetSeason") == 1) then
      -- если в сценарии лето, то
         Call("*:ActivateNode", "luk_condition_closed", 0 );
         -- спрятать крышку люка в закрытом положении (останется крышка в открытом)
      
      else
      -- иначе (т.е. для зимы, весны и осени)
         Call("*:ActivateNode", "luk_condition_open", 0 );
         -- спрятать в открытом, останется в закрытом                  
      end
         
      lukChecked = true;
      -- правильное состояние люка выяснено, нужное отображено, этот блок больше не запустится
      
   end
   
   if front_probe == 0 then
   -- если «проба» в направлении вперёд (в положительном направлении по оси Y в 3дМаксе) дала нулевой результат, то
      Call("*:ActivateNode", "pinchF_coupled", 0 );
      Call("*:ActivateNode", "pinchF_uncoupled", 1 );
      Call("*:ActivateNode", "capF_open", 0 );
      Call("*:ActivateNode", "capF_closed", 1 );      
      -- скрыть/показать (0/1) указанные узлы (объекты) на переднем (F - "Front") торце вагона
   else Call( "SendConsistMessage", PINCH_3000V_MSGID, randomNumber, 0)
   -- в ином случае (т.е. удачи — спереди прицеплена единица ПС),
   -- отправить вперёд (за это отвечает "0") сообщение (ID сообщения — PINCH_3000V_MSGID),
   -- содержащее в качестве аргумента сгенерированное число
   end
   
   if rear_probe == 0 then
   -- если «проба» в направлении назад дала нулевой результат, то
      Call("*:ActivateNode", "pinchR_coupled", 0 );
      Call("*:ActivateNode", "pinchR_uncoupled", 1 );
      Call("*:ActivateNode", "capR_open", 0 );
      Call("*:ActivateNode", "capR_closed", 1 );      
      -- скрыть/показать (0/1) указанные узлы (объекты) на заднем (R - "Rear") торце вагона
   else Call( "SendConsistMessage", PINCH_3000V_MSGID, randomNumber, 1)
   -- в ином случае (т.е. удачи — сзади прицеплена единица ПС),
   -- отправить назад (за это отвечает "1") сообщение (ID сообщения — PINCH_3000V_MSGID),
   -- содержащее в качестве аргумента сгенерированное число
   end
   
   if (front_probe + rear_probe == 1) then
   -- если единица ПС прицеплена только с одного конца, т.е. данный вагон хвостовой
      if (front_probe == 1) then
      -- а также если ПС прицеплен спереди, то
         Call("*:ActivateNode", "redlights_front", 0 );
         Call("*:ActivateNode", "redlights_rear", 1 );
         -- показать горящие красные фонари сзади и скрыть передние
      elseif (rear_probe == 1) then
      -- если же ПС прицеплен сзади, то
         Call("*:ActivateNode", "redlights_front", 1 );
         Call("*:ActivateNode", "redlights_rear", 0 );
         -- показать горящие красные фонари спереди и скрыть задние
      end
   
   elseif (front_probe + rear_probe == 0 or front_probe + rear_probe == 2) then
   -- если ПС не прицеплен ни с одного конца, или прицеплен с обоих концов
   
      Call("*:ActivateNode", "redlights_front", 0 );
      Call("*:ActivateNode", "redlights_rear", 0 );
      -- скрыть красные фонари с обоих концов
   
   end
      
   
end


function OnConsistMessage ( msg, argument, direction )
-- функция вызывается при получении любого сообщения от соседней единицы ПС

   if (msg == PINCH_3000V_MSGID) then   
   -- если ID сообщения равно PINCH_3000V_MSGID,
   -- т.е. сообщение имеет отношение конкретно к подключению пинчей электроотопления, то
   
      if (direction == 1) then
      -- если направлено сообщение назад (то есть оно получено спереди)
         if (argument == 0) then
         -- если аргумент равен нулю (то есть оно получено от локомотива спереди)
            Call("*:ActivateNode", "pinchF_coupled", 0 );
            Call("*:ActivateNode", "pinchF_uncoupled", 1 );
            -- засунуть передний пинч в гнездо на кузове
            Call("*:ActivateNode", "capF_open", 1 );
            Call("*:ActivateNode", "capF_closed", 0 );      
            -- открыть крышку передней розетки для подключения к ней пинча локомотива
   
         elseif (argument < randomNumber) then
         -- если аргумент меньше сгенерированного числа
         --(то есть оно получено от пассажирского вагона-"мамы" спереди)
            Call("*:ActivateNode", "pinchF_coupled", 1 );
            Call("*:ActivateNode", "pinchF_uncoupled", 0 );
            -- подключить передний пинч к вагону-"маме" спереди
            Call("*:ActivateNode", "capF_open", 0 );
            Call("*:ActivateNode", "capF_closed", 1 );      
            -- закрыть крышку передней розетки
         
         elseif (argument > randomNumber) then
         -- иначе, если аргумент БОЛЬШЕ сгенерированного числа
         --(то есть оно получено от пассажирского вагона-"папы" спереди)
            Call("*:ActivateNode", "pinchF_coupled", 0 );
            Call("*:ActivateNode", "pinchF_uncoupled", 1 );
            -- засунуть передний пинч в гнездо на кузове
            Call("*:ActivateNode", "capF_open", 1 );
            Call("*:ActivateNode", "capF_closed", 0 );      
            -- открыть крышку передней розетки для подключения к ней пинча вагона-"папы" спереди
         
         end
      
      elseif (direction == 0) then
      -- если направлено сообщение вперёд (то есть оно получено сзади)
         if (argument == 0) then
         -- если аргумент равен нулю (то есть оно получено от локомотива сзади)
            Call("*:ActivateNode", "pinchR_coupled", 0 );
            Call("*:ActivateNode", "pinchR_uncoupled", 1 );
            -- засунуть задний пинч в гнездо на кузове
            Call("*:ActivateNode", "capR_open", 1 );
            Call("*:ActivateNode", "capR_closed", 0 );      
            -- открыть крышку задней розетки для подключения к ней пинча локомотива сзади
   
         elseif (argument < randomNumber) then
         -- если аргумент меньше сгенерированного числа (то есть оно получено от пассажирского вагона-"мамы" сзади)
            Call("*:ActivateNode", "pinchR_coupled", 1 );
            Call("*:ActivateNode", "pinchR_uncoupled", 0 );
            -- подключить задний пинч к вагону-"маме" сзади
            Call("*:ActivateNode", "capR_open", 0 );
            Call("*:ActivateNode", "capR_closed", 1 );      
            -- закрыть крышку задней розетки
         
         elseif (argument > randomNumber) then
         -- иначе, если аргумент БОЛЬШЕ сгенерированного числа (то есть оно получено от пассажирского вагона-"папы" сзади)
            Call("*:ActivateNode", "pinchR_coupled", 0 );
            Call("*:ActivateNode", "pinchR_uncoupled", 1 );
            -- засунуть задний пинч в гнездо на кузове
            Call("*:ActivateNode", "capR_open", 1 );
            Call("*:ActivateNode", "capR_closed", 0 );      
            -- открыть крышку задней розетки для подключения к ней пинча вагона-"папы" сзади
            
         end
         
      end
   end
   
end

BooYa писал(а):Igor Mashinist, двери открываются как и у любого другого ПС. Кнопкой Т, либо мышкой (не знаю как там, не пользуюсь)

Добавлено спустя 1 час 20 минут 2 секунды:
Что скажете насчет звуков перестука. Один семпл выбрал, вроде неплохой. Прошу высказываться только объективно, т.е. если говно - надо писать - это говно. Если норм - то писать норм. Без лести и преувеличения.

BooYa писал(а): или же сделать так, что в центре вагона будет слышно только 2 телеги, а ближе к краям - три.