It should work, if you put the elec_busbar_main_sw = 1 in brackets like here:
Code
- (...)
- procedure Elec_SimStep;
- begin
- if engine_n > elec_generator_minRPM then elec_V_generator := true else elec_V_generator := false;
- if (elec_busbar_main_sw = 1) then elec_V_battery := Max((elec_V_battery - (Timegap / elec_battery_duration)), 0);
- elec_V_battery := Max(elec_V_battery, B2S(elec_V_generator));
- if (elec_V_battery >= elec_busbar_Vmin) and (elec_failure_general = false) then
- elec_busbar_avail := true
- else
- elec_busbar_avail := false;
- if elec_busbar_avail and (elec_busbar_main_sw = 1) and not elec_failure_general then
- elec_busbar_main := true
- else
- elec_busbar_main := false;
- end;
