RailUnion.net

Игорь, без tostring-а тоже будет работать. Так зачем платить больше?

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

logfile:write( "RETURN_V0 "..RETURN_V0 )

Андрей, иногда оказывается, что надо было проверить переменную, а она nil, и значения true / false через tostring удобно проверять

У меня определенно разрыв шаблона: как заставить код обработать событие изменения состояния контрола Battery в этом скрипте (кусок с функцией обработчика прилагается)?!

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

function OnControlValueChange ( name, index, value )

if  Call( "*:ControlExists", name, index ) then
   
   if (name == "t_Battery") then -- проверка состояния батареи.
      Call( "*:SetControlValue", name, index, value );
      if (value == 1) then
      Call ("*:SetControlValue", "Battery", 0, 1);
      SysCall("ScenarioManager:ShowAlertMessageExt", "System alert!", "Battery is ON", 5, 1);
      elseif (Call ("*:GetControlValue", "Startup", 0) == -1) and (value < 1) then
      Call ("*:SetControlValue", "Battery", 0, 0);
      SysCall("ScenarioManager:ShowAlertMessageExt", "System alert!", "Battery is OFF", 5, 1);
      end
   
   elseif (name == "Battery") then -- Состояние батареи
      Call( "*:SetControlValue", name, index, value );
      SysCall("ScenarioManager:ShowAlertMessageExt", "System alert!", "BATTERY BATTERY", 5, 1);
   
      if ( value < 1) then
      -- здесь добавляются НА ВЫКЛЮЧЕНИЕ все питающиеся от батареи потребители
      Call ("*:SetControlValue", "OnControl", 0, 0);
      SysCall("ScenarioManager:ShowAlertMessageExt", "System alert!", "CONTROL is OFF", 5, 1);
      end   
   
   elseif (name == "t_Main switch") then -- "Управление общее"
      Call( "*:SetControlValue", name, index, value );
      if ( value == 1) and (Call ("*:GetControlValue", "Battery", 0) == 1) then
      Call ("*:SetControlValue", "OnControl", 0, 1);
      SysCall("ScenarioManager:ShowAlertMessageExt", "System alert!", "CONTROL is ON", 5, 1);
      elseif ( value == 0) then
      Call ("*:SetControlValue", "OnControl", 0, 0);
      SysCall("ScenarioManager:ShowAlertMessageExt", "System alert!", "CONTROL is OFF", 5, 1);
      end   
   
   else
      Call( "*:SetControlValue", name, index, value );
   
   end -- end "name =="
end


end

Я в полном ступоре - такое впечатление, что контролы, которые перемещает не игрок, движок игнорирует. Тесты показывают, что в блок Battery скрипт не выходит вообще, кроме одного раза при запуске сценария (что показывает дурацкий месседж "BATTERY BATTERY"). Ребята, помогите, на эти два чертовых контрола вся дальнейшая логика вешается. Если я не разберусь, как эта чертовщина работает, дальше будет только хуже...

В том то и дело, что OnControlValueChange вызывается только, когда контрол меняется через интерфейс игры (с клавы или мышкой). А если в контрол просто пишется значение скриптом, то эта функция не вызывается.

Skif
t_Battery -это что такое вообще ? кнопка в кабине , нажимаемая рукой ? каким образом меняется значение этого контролла ?
вот например по образцу кнопочного переключения реверса сделай

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

    if ( name == "ButtonForward" ) then
         if ( value == 1 ) then
           Call( "*:SetControlValue", "Reverser", 0, 1 );
         end
      elseif ( name == "ButtonBackward" ) then
         if ( value == 1 ) then
           Call( "*:SetControlValue", "Reverser", 0, -1 );
         end
      end

Дима, кажется, спрашивал про поведение трафика.
Почему не отрабатывается скрипт при изменении контрола трафиком?!

Не трафиком, скриптом.

t_Battery, t_Main switch - тумблеры на пульте. Battery и OnControl - "системные" контролы тепловоза, ведомые этими тумблерами (а OnControl и батареей). Андрей проблему понял верно - как он написал, обработчик не вызывается для контролов, изменяемых движком игры и скриптом. Как тогда работать с ними? Можно ли написать собственный обработчик прерываний и как тогда он должен выглядеть?

Я попробовал только что вписать обработку состояния "внутреннего" контрола Battery в хвост функции OnControlValueChange, вот так:

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

... ... ...

end -- end "name =="
end

if (Call ("*:GetControlValue", "Battery",0) == 0 ) then

   Call ("*:SetControlValue", "OnControl", 0, 0);
   
elseif (Call ("*:GetControlValue", "Battery",0) == 1 ) and (Call ("*:GetControlValue", "t_Main switch",0) == 1 ) then
   
   Call ("*:SetControlValue", "OnControl", 0, 1);
   
end

end     -- end of OnControlValueChange

Все заработало. По сути, получилась схема: при любом изменении управляемых контролов, проверить состояние всех контролов пульта и обновить их. Но мне этот вариант не нравится двумя вещами:

1) Может возникнуть ситуация, когда ни один "пользовательский" контрол (с органами управления) не изменился, а опрос провести нужно.

2) Просто не изящно - обновлять весь пульт ради изменения одного параметра. Проще уже тогда вообще не использовать функцию OnControlValueChange (или использовать ее только для обновления контролов, непосредственно происходящих от органов управления и только от них - клапанов свистков, например) , и всю обработку вынести в Update... А это зверски просадит fps.

Добавлено спустя 21 минуту 59 секунд:
У меня есть вариант, как сделать, он мне вроде даже и нравится. Помогите реализовать:


Покажите, как просто вызывать из Update собственную, пользовательскую функцию. Я, пожалуй, напишу собственный обработчик для "внутренних" контролов. Из OnControlValueChange ( name, index, value ) буду передавать name того контрола, который я в ней изменил скриптом, во внешнюю глобальную переременную и буду взводить флаг события "Изменен системный контрол". Из Update я по этому флагу вызову свою функцию, передам в нее Name и обработаю все зависимости этого контрола. Вроде, экономно получается - не будет молотить каждый кадр, а только при изменении нужных контролов.

Ой-ё-ёй как все в первом куске скрипта все страшно
Skif
По крайне мере согласно последним руководствам SetControlValue и т.п. быстрее вызывать без звездочки, т.е. не как "*:SetControlValue"
Ну и вообще первый кусок написан ... не стандартно.
Контролы не работают для трафика, потому что трафик, как было сказано уже, кнопок и рукояток не нажимает.

Вследствие 1) остается только вариант 2).
Описанный вариант несколько заморочен и по сути своей видится как вариант 1). т.е. обработка все равно ведется по задействованию игроком контролов

По большому счету, если "внутренний" контрол, не используется скриптом симуляции, то вместо него быстрее использовать глобальную переменную

Я сейчас работаю по второму варианту.


Глобальные переменные мне подходят далеко не всюду, так как конечная цель - работать с пультом. Выводить значения переменных мне не так удобно, как контролов. Но переменные тоже используются.

хм, а есть разница в выводе в текстовик значений переменных или значений контролов?

С точки зрения конечного результата - никакой. С точки зрения обработки - есть, один и тот же контрол может быть использован в версии, заточенной под пульт и нет, а также сразу как контрол, на который привязана стрелка прибора или узел индикации. Это удобнее.

Не вдаваясь в подробности, есть в этом смысл...
кстати а вопрос:
какими средствами проводится опрос состояния контролов самого пульта?

проверить состояние всех контролов пульта и обновить их.

Ты про железный пульт или про пульт, который в кабине тепловоза в игре? Первый - аналоговые контролы вроде валов контроллеров, рукояток кранов машиниста - через HID-устройство. Дискретные контролы - через маппер виртуальной клавиатуры. Если еще немного накрутить скрипт, то можно было бы и от одного устройства посылать, но и так все работает замечательно с практически любым количеством каналов ввода данных. Тестировали с 8 джойстиками по 8 осей каждый и задействовав практически все клавиши клавиатуры - порядка 200 комбинаций.

Второй - через OnControlValueChange, для всех контролов, состояние которых определяется в том числе и кнопками/тумблерами.

Подскажите пожалуйста, возможно ли скриптом определить, какой тип локомотива (diesel, electric) подцеплен к составу? Если да, то какой функцией?

Неизвестна функция подобная, спрашиваешь о какой ты. Пусть информацию эту локомотив сам вагону передавать будет