= Englisch [EN], 
= Deutsch [DE], 
= Französisch [FR]. Wenn du die angegebene Sprache nicht beherrschst, schreibe auf Englisch! 
Eine Frage bezüglich den Atron-Scrips
Im "ATRON_AFR4_neueSoftware"
Wo kann ich es einstellen, dass es erst bei +0:00 Rot wird und ab -03:00 Orange wird?
Hier oder
Code
' Verspaetung berechnen und anzeigen
(L.L.atron_modus) 3 =
(L.L.atron_modus) 35 = ||
{if}
""
(M.V.GetTTDelay) s1 60 / s0
'Minuten:
l0 abs trunc "02" $IntToStrEnh $+
(S.$.IBIS_Delay_min)
'Zehntelminuten:
l0 abs l0 abs trunc - 2 * s2
l2 1 >=
{if}
"30"
{else}
"00"
{endif}
(S.$.IBIS_Delay_sec)
l0 1 >
{if}
"-"
2 (S.L.Verspaetung)
{else}
l0 -1 <
{if}
"+"
1 (S.L.Verspaetung)
{else}
" "
0 (S.L.Verspaetung)
{endif}
{endif}
(S.$.IBIS_Delay_state)
(L.$.IBIS_Delay_state) "0:" $+ (L.$.IBIS_Delay_min) $+ ":" $+ (L.$.IBIS_Delay_sec) $+
(S.$.Verspaetung_Atron)
2
631
40
(L.L.Atron_Font_Uhrzeit)
0
0
(L.$.Verspaetung_Atron)
(M.V.STTextOut)
{endif}Hier?
Code
' Normale Anzeige (Fahrplanlage):
(L.L.CockpDispl_mode) 0 =
{if}
"" (S.$.IBIS_Cockpit_Displ_Info_FirstLn)
(L.L.CockpDispl_standing) 8 >
(L.L.ALMEX_JustDeparted) &&
(L.L.schedule_active) &&
(M.V.GetTTBusstopCount) &&
{if}
(L.S.Time) (M.V.GetTTBusstopIndex) (M.V.GetTTBusstopDep) 86400 % - 60 / s0
l0 -720 <
{if}
l0 1440 + s0
{endif}
l0 720 >
{if}
l0 1440 - s0
{endif}
l0 abs trunc s1
{else}
(M.V.GetTTDelay) 60 / s0 abs trunc s1
{endif}
(L.$.RBL_Message0) "" $= !
{if}
(L.$.RBL_Message0) (S.$.IBIS_Cockpit_Display)
{else}
l0 0 >= s2
(L.L.CockpDispl_standing) 8 > &&
l0 0 < ||
(L.L.schedule_active) &&
{if}
' 0: Verspätung in Minuten, 1: Versp. in Min. ganzzahlig und absolut, 2: Bool - Zu spät?
(M.V.GetTTBusstopIndex) 0 =
(L.L.IBIS_busstop) 0 = &&
(L.L.RBL_Route) &&
{if}
l2
{if}
"Bitte jetzt abfahren " (S.$.IBIS_Cockpit_Display)
1 (S.L.abfahrt_signal)
{else}
0 (M.V.GetTTBusstopDep) 60 / s0 60 / 24 % trunc " 2" $IntToStrEnh ":" $+ l0 trunc 60 % "02" $IntToStrEnh $+ (S.$.IBIS_Cockpit_Display)
0 (S.L.abfahrt_signal)
{endif}
{else}
l2
{if}
"+"
l1 0 >
{if}
l1 $IntToStr $+
{endif}
(S.$.IBIS_Cockpit_Display)
{else}
l1 0 >
{if}
"-" l1 $IntToStr $+
{else}
"0"
{endif}
(S.$.IBIS_Cockpit_Display)
{endif}
{endif}
{else}
"" (S.$.IBIS_Cockpit_Display)
{endif}
{endif}
{endif}
' LSK-Anzeige:
(L.L.CockpDispl_mode) 1 =
{if}
"" (S.$.IBIS_Cockpit_Displ_Info_FirstLn)
(L.L.ALMEX_quitiert)
{if}
(L.L.RBL_Kurs_Index) 0 >
{if}
"Neue LSK " (L.L.RBL_Linie) "03" $IntToStrEnh $+ "/" $+ (L.L.RBL_Suffix) "02" $IntToStrEnh $+ "/" $+ (L.L.RBL_Kurs) "02" $IntToStrEnh $+
{else}
"Neue LSK " (L.L.RBL_Linie) "03" $IntToStrEnh $+ "/" $+ (L.L.RBL_Suffix) "02" $IntToStrEnh $+ "/00" $+
{endif}
(S.$.IBIS_Cockpit_Display)
(L.L.CockpDispl_timer) (L.S.Timegap) + (S.L.CockpDispl_timer) 3 >
{if}
0 (S.L.CockpDispl_mode) (S.L.CockpDispl_timer)
{endif}
{else}
(L.L.ALMEX_Input_Kurs_Index) 0 >
{if}
"Neue LSK " (L.L.RBL_COMING_Linie) "03" $IntToStrEnh $+ "/" $+ (L.L.RBL_COMING_Suffix) "02" $IntToStrEnh $+ "/" $+ (L.L.RBL_COMING_Kurs) "02" $IntToStrEnh $+
(S.$.IBIS_Cockpit_Display)
0 (S.L.CockpDispl_timer)
{else}
"Neue LSK " (L.L.RBL_COMING_Linie) "03" $IntToStrEnh $+ "/" $+ (L.L.RBL_COMING_Suffix) "02" $IntToStrEnh $+ "/00" $+
(S.$.IBIS_Cockpit_Display)
0 (S.L.CockpDispl_timer)
{endif}
{endif}
{endif}
' Anzeige der nächsten Route:
(L.L.CockpDispl_mode) 3 =
{if}
"" (S.$.IBIS_Cockpit_Displ_Info_FirstLn)
(L.L.ALMEX_quitiert)
{if}
"Naechste Route " (L.L.RBL_Route) "02" $IntToStrEnh $+ " " $+
(S.$.IBIS_Cockpit_Display)
(L.L.CockpDispl_timer) (L.S.Timegap) + (S.L.CockpDispl_timer) 3 >
{if}
0 (S.L.CockpDispl_mode) (S.L.CockpDispl_timer)
{endif}
{else}
"Naechste Route " (L.L.RBL_COMING_Route) "02" $IntToStrEnh $+
(S.$.IBIS_Cockpit_Display)
{endif}
{endif}
