Beiträge von g1r8d7

'##############

'EVENDPC2

'##############

'IBIS+ Boardcomputer

'(c) 04.11.2017 Christian Rolle

'Script Version: 1.0

'Revision History:

'- Christian Rolle 04.11.2017 created from scratch

{trigger:ticketprinter_getticket}

-1 (S.L.EFAD_Ticket) (S.L.GivenTicket)

0 (S.L.EFAD_ticket_pos)

4 (S.L.EVEND_Mode)

0 (S.L.EVENDPC2_ticket_pos)

-1 (S.L.EVENDPC2_Ticket) (S.L.GivenTicket)

0 (S.L.Ticket_ID)

0 (S.L.GotTicketPackLength) (S.L.GotTicketPackDifference)

(T.L.ev_ticketsale_giveticket)

{end}

{trigger:IBISPlus_Main_Clickspot_01}

1 (S.L.IBISPlus_Main_Menu)

(C.L.IBIS_Datum_Time) (S.L.IBIS_Datum_Timer)

{end}

{trigger:IBISPlus_Main_Clickspot_02}

2 (S.L.IBISPlus_Main_Menu)

{end}

{trigger:IBISPlus_Main_Clickspot_03}

3 (S.L.IBISPlus_Main_Menu)

{end}

{trigger:IBISPlus_Main_Clickspot_04}

4 (S.L.IBISPlus_Main_Menu)

90 (S.L.IBISPlus_Mode)

{end}

{trigger:IBISPlus_Main_Clickspot_05}

(M.L.IBIS_PlayAnnouncement)

5 (S.L.IBISPlus_Main_Menu)

{end}

{trigger:IBISPlus_Main_Clickspot_06}

6 (S.L.IBISPlus_Main_Menu)

{end}

{trigger:IBISPlus_Main_Clickspot_07}

7 (S.L.IBISPlus_Main_Menu)

{end}

{trigger:IBISPlus_Main_Clickspot_08}

8 (S.L.IBISPlus_Main_Menu)

{end}

{trigger:IBISPlus_Main_Clickspot_09}

9 (S.L.IBISPlus_Main_Menu)

{end}

{trigger:IBISPlus_Main_Clickspot_10}

10 (S.L.IBISPlus_Main_Menu)

{end}

{trigger:IBISPlus_Main_Clickspot_11}

11 (S.L.IBISPlus_Main_Menu)

{end}

{trigger:IBISPlus_Main_Clickspot_12}

(L.L.IBISPlus_Mode) 7 = !

{if}

12 (S.L.IBISPlus_Main_Menu)

{endif}

{end}

{trigger:IBISPlus_Main_Clickspot_13}

(L.L.IBISPlus_Mode) 7 = !

{if}

13 (S.L.IBISPlus_Main_Menu)

{endif}

{end}

{trigger:IBISPlus_Main_Clickspot_14}

14 (S.L.IBISPlus_Main_Menu)

91 (S.L.IBISPlus_Mode)

{end}

{trigger:IBISPlus_FA_Clickspot_01}

(L.L.IBISPlus_Mode) 7 = !

{if}

1 (S.L.IBISPlus_FA_Menu)

{endif}

{end}

{trigger:IBISPlus_FA_Clickspot_02}

(L.L.IBISPlus_Mode) 7 = !

{if}

2 (S.L.IBISPlus_FA_Menu)

{endif}

{end}

{trigger:IBISPlus_FA_Clickspot_03}

(L.L.IBISPlus_Mode) 7 = !

{if}

3 (S.L.IBISPlus_FA_Menu)

{endif}

{end}

{trigger:IBISPlus_FA_Clickspot_04}

(L.L.IBISPlus_Mode) 7 = !

{if}

4 (S.L.IBISPlus_FA_Menu)

{endif}

{end}

{trigger:IBISPlus_FA_Clickspot_05}

(L.L.IBISPlus_Mode) 7 = !

{if}

5 (S.L.IBISPlus_FA_Menu)

{endif}

{end}

{trigger:IBISPlus_FA_Clickspot_06}

(L.L.IBISPlus_Mode) 7 = !

{if}

6 (S.L.IBISPlus_FA_Menu)

{endif}

{end}

{trigger:IBISPlus_SA_Clickspot_01}

(L.L.IBISPlus_Mode) 7 = !

{if}

1 (S.L.IBISPlus_SA_Menu)

{endif}

{end}

{trigger:IBISPlus_SA_Clickspot_02}

(L.L.IBISPlus_Mode) 7 = !

{if}

2 (S.L.IBISPlus_SA_Menu)

{endif}

{end}

{trigger:IBISPlus_SA_Clickspot_03}

(L.L.IBISPlus_Mode) 7 = !

{if}

3 (S.L.IBISPlus_SA_Menu)

{endif}

{end}

{trigger:IBISPlus_SA_Clickspot_04}

(L.L.IBISPlus_Mode) 7 = !

{if}

4 (S.L.IBISPlus_SA_Menu)

{endif}

{end}

{trigger:IBISPlus_SA_Clickspot_zurueck}

(L.L.IBISPlus_Mode) 7 = !

{if}

99 (S.L.IBISPlus_SA_Menu)

{endif}

{end}

{trigger:IBISPlus_SA_Clickspot_up}

(L.L.IBISPlus_Mode) 7 = !

{if}

90 (S.L.IBISPlus_SA_Menu)

{endif}

{end}

{trigger:IBISPlus_SA_Clickspot_dn}

(L.L.IBISPlus_Mode) 7 = !

{if}

91 (S.L.IBISPlus_SA_Menu)

{endif}

{end}

{trigger:IBISPlus_UE_Clickspot_M01}

1 (S.L.IBISPlus_UE_Menu)

{end}

{trigger:IBISPlus_UE_Clickspot_M02}

(L.L.IBISPlus_Mode) 7 =

{if}

(L.L.IBIS_RouteIndex) (M.V.GetBusstopCount) (L.L.IBIS_busstop) >

{if}

(L.L.IBIS_busstop) 1 + (S.L.IBIS_busstop)

(M.L.IBIS_PlayAnnouncement_Liniekurs)

{endif}

{else}

2 (S.L.IBISPlus_UE_Menu)

{endif}

{end}

{trigger:IBISPlus_UE_Clickspot_M03}

(L.L.IBISPlus_Mode) 7 =

{if}

(L.L.IBIS_RouteIndex) (M.V.GetBusstopCount) (L.L.IBIS_busstop) >

{if}

(L.L.IBIS_busstop) 1 + (S.L.IBIS_busstop)

(M.L.IBIS_PlayAnnouncement_Liniekurs)

{endif}

{else}

3 (S.L.IBISPlus_UE_Menu)

{endif}

{end}

{trigger:IBISPlus_UE_Clickspot_M04}

4 (S.L.IBISPlus_UE_Menu)

{end}

{trigger:IBISPlus_UE_Clickspot_1}

(L.L.IBISPlus_Mode) 7 = !

{if}

1 s0 (M.L.LinieKursString)

{endif}

{end}

{trigger:IBISPlus_UE_Clickspot_2}

(L.L.IBISPlus_Mode) 7 = !

{if}

2 s0 (M.L.LinieKursString)

{endif}

{end}

{trigger:IBISPlus_UE_Clickspot_3}

(L.L.IBISPlus_Mode) 7 = !

{if}

3 s0 (M.L.LinieKursString)

{endif}

{end}

{trigger:IBISPlus_UE_Clickspot_4}

(L.L.IBISPlus_Mode) 7 = !

{if}

4 s0 (M.L.LinieKursString)

{endif}

{end}

{trigger:IBISPlus_UE_Clickspot_5}

(L.L.IBISPlus_Mode) 7 =

{if}

(L.L.IBIS_busstop) 1 - 0 max (S.L.IBIS_busstop)

(M.L.IBIS_PlayAnnouncement_Liniekurs)

{else}

5 s0 (M.L.LinieKursString)

{endif}

{end}

{trigger:IBISPlus_UE_Clickspot_6}

(L.L.IBISPlus_Mode) 7 =

{if}

(L.L.IBIS_busstop) 1 - 0 max (S.L.IBIS_busstop)

(M.L.IBIS_PlayAnnouncement_Liniekurs)

{else}

6 s0 (M.L.LinieKursString)

{endif}

{end}

{trigger:IBISPlus_UE_Clickspot_7}

(L.L.IBISPlus_Mode) 7 =

{if}

(L.L.IBIS_busstop) 1 - 0 max (S.L.IBIS_busstop)

(M.L.IBIS_PlayAnnouncement_Liniekurs)

{else}

7 s0 (M.L.LinieKursString)

{endif}

{end}

{trigger:IBISPlus_UE_Clickspot_8}

(L.L.IBISPlus_Mode) 7 =

{if}

(L.L.IBIS_busstop) 1 - 0 max (S.L.IBIS_busstop)

(M.L.IBIS_PlayAnnouncement_Liniekurs)

{else}

8 s0 (M.L.LinieKursString)

{endif}

{end}

{trigger:IBISPlus_UE_Clickspot_9}

(L.L.IBISPlus_Mode) 7 = !

{if}

0 s0 (M.L.LinieKursString)

{endif}

{end}

{trigger:IBISPlus_UE_Clickspot_0}

(L.L.IBISPlus_Mode) 7 = !

{if}

9 s0 (M.L.LinieKursString)

{endif}

{end}

{trigger:IBISPlus_UE_Clickspot_C}

(L.L.IBISPlus_Mode) 7 = !

{if}

90 s0 (M.L.LinieKursString)

{endif}

{end}

{trigger:IBISPlus_UE_Clickspot_OK}

(L.L.IBISPlus_Mode) 7 = !

{if}

99 s0 (M.L.LinieKursString)

{endif}

{end}

{trigger:IBISPlus_Routenavi_Up}

(L.L.ActuLineRoutes) 2 = !

(L.L.ActuLineRoutes) 4 = !

{if}

(L.L.ActuLineRoutes) 6 =

(L.L.ActuLineRoutes) 7 =

{if}

(L.L.Routenavi_Mode) 1 - -1 max (S.L.Routenavi_Mode)

{endif}

(L.L.ActuLineRoutes) 8 =

{if}

(L.L.Routenavi_Mode) 1 - -2 max (S.L.Routenavi_Mode)

{endif}

(L.L.ActuLineRoutes) 12 =

{if}

(L.L.Routenavi_Mode) 1 - -4 max (S.L.Routenavi_Mode)

{endif}

{endif}

{end}

{trigger:IBISPlus_Routenavi_Down}

(L.L.ActuLineRoutes) 2 = !

(L.L.ActuLineRoutes) 4 = !

{if}

(L.L.ActuLineRoutes) 6 =

{if}

(L.L.Routenavi_Mode) 1 + 1 min (S.L.Routenavi_Mode)

{endif}

(L.L.ActuLineRoutes) 7 =

{if}

(L.L.Routenavi_Mode) 1 + 2 min (S.L.Routenavi_Mode)

{endif}

(L.L.ActuLineRoutes) 8 =

{if}

(L.L.Routenavi_Mode) 1 + 2 min (S.L.Routenavi_Mode)

{endif}

(L.L.ActuLineRoutes) 12 =

{if}

(L.L.Routenavi_Mode) 1 + 4 min (S.L.Routenavi_Mode)

{endif}

{endif}

{end}

{macro:IBISPlus_init}

0 (S.L.IBISPlus_Mode)

-1 (S.L.IBIS_RouteIndex) (S.L.current_stopindex)

"" (S.$.IBISPlus_LinieKursInput) (L.$.IBISPlus_Haltestelle_last)

" " (S.$.IBIS_Complex_Line)

{end}

{macro:IBISPlus_frame}

(L.L.vis_IBIS_Version_int) 2 =

{if}

1 (S.L.Refresh_Strings)

(L.L.elec_busbar_main)

{if}

1 (S.L.IBIS_on)

(L.L.IBISPlus_Boot_Timer) (L.S.Timegap) (C.L.IBIS_Boot_Time) * + 32 min (S.L.IBISPlus_Boot_Timer)

{else}

(L.L.IBISPlus_Boot_Timer) (L.S.Timegap) (C.L.IBIS_Boot_Time) * - 0 max (S.L.IBISPlus_Boot_Timer)

{endif}

' Shutdown:

(L.L.IBIS_on)

(L.L.elec_busbar_main) ! &&

{if}

"" (S.$.IBISPlus_Status) (S.$.IBISPlus_DatumUhrzeit) (S.$.IBISPlus_Status) (S.$.IBISPlus_LinieKurs) (S.$.IBISPlus_LinieKursInput)

"" (S.$.IBISPlus_Umlaufplan) (S.$.IBISPlus_Linie) (S.$.IBISPlus_Route)

"" (S.$.IBISPlus_Haltestelle_Anzeige) (S.$.IBISPlus_Haltestelle_last) (S.$.IBISPlus_Haltestelle_Uhrzeiten)

-1 (S.L.IBISPlus_Mode)

0 (S.L.IBISPlus_Main_Clickspot)

(L.L.IBISPlus_Boot_Timer) s0

l0 10 <

{if}

0 (S.L.IBISPlus_F1) (S.L.IBISPlus_F2) (S.L.IBISPlus_F3) (S.L.IBISPlus_F4)

{endif}

l0 5 >

{if}

"IBISPlus\Shutdown.dds" (S.$.IBISPlus_Basetexture)

{endif}

l0 5 <

l0 1 > &&

{if}

"IBISPlus\Black.dds" (S.$.IBISPlus_Basetexture)

{endif}

l0 1 <

{if}

0 (S.L.IBIS_on) (S.L.IBISPlus_Mode)

{endif}

{endif}

' Boot:

(L.L.IBISPlus_Mode) !

{if}

(L.L.IBISPlus_Boot_Timer) s0

l0 0 >

{if}

1 (S.L.IBISPlus_Boot_LED)

{endif}

l0 5 <

{if}

"IBISPlus\Black.dds" (S.$.IBISPlus_Basetexture)

{endif}

l0 5 >

l0 8 < &&

{if}

"IBISPlus\Boot_01.dds" (S.$.IBISPlus_Basetexture)

{endif}

l0 8 >

l0 12 < &&

{if}

"IBISPlus\Boot_02.dds" (S.$.IBISPlus_Basetexture)

{endif}

l0 12 >

l0 13 < &&

{if}

"IBISPlus\Boot_03.dds" (S.$.IBISPlus_Basetexture)

{endif}

l0 13 >

l0 15 < &&

{if}

"IBISPlus\Boot_04.dds" (S.$.IBISPlus_Basetexture)

1 (S.L.IBISPlus_F1) (S.L.IBISPlus_F2) (S.L.IBISPlus_F3) (S.L.IBISPlus_F4)

{endif}

l0 15 >

l0 20 < &&

{if}

"IBISPlus\Boot_05.dds" (S.$.IBISPlus_Basetexture)

{endif}

l0 20 >

l0 21 < &&

{if}

"IBISPlus\Boot_06.dds" (S.$.IBISPlus_Basetexture)

{endif}

l0 21 >

l0 23 < &&

{if}

"IBISPlus\Boot_07.dds" (S.$.IBISPlus_Basetexture)

{endif}

l0 23 >

l0 27 < &&

{if}

"IBISPlus\Boot_08.dds" (S.$.IBISPlus_Basetexture)

{endif}

l0 27 >

l0 30 < &&

{if}

"IBISPlus\Boot_09.dds" (S.$.IBISPlus_Basetexture)

{endif}

l0 30 >

l0 31 < &&

{if}

"IBISPlus\Boot_10.dds" (S.$.IBISPlus_Basetexture)

{endif}

l0 31 >

{if}

1 (S.L.IBISPlus_Mode)

{endif}

{else}

0 (S.L.IBISPlus_Boot_LED)

{endif}

' Auswertung taster:

(L.L.IBISPlus_Main_Menu) 3 =

(L.L.IBISPlus_UE_Menu) 4 =

{if}

2 (S.L.IBISPlus_Mode)

0 (S.L.IBISPlus_Main_Menu) (S.L.IBISPlus_UE_Menu)

{endif}

(L.L.IBISPlus_Main_Menu) 10 =

{if}

(L.$.IBISPlus_LinieKursInput) $length 4 =

{if}

6 (S.L.IBISPlus_Mode)

0 (S.L.IBISPlus_Main_Menu)

{else}

7 (S.L.IBISPlus_Mode)

0 (S.L.IBISPlus_Main_Menu)

{endif}

{endif}

(L.L.IBISPlus_Main_Menu) 9 =

{if}

666 (S.L.IBISPlus_Mode)

{endif}

' IBIS Modes:

(L.L.IBISPlus_Mode) 1 =

{if}

0 (S.L.IBISPlus_SA_Menu_Clickspot)

"---" (S.$.IBISPlus_Linie)

"---" (S.$.IBISPlus_Route)

"" (S.$.IBISPlus_LinieKurs) (S.$.IBISPlus_Haltestelle_Anzeige) (S.$.IBISPlus_Haltestelle_Uhrzeiten)

0 (S.L.IBISPlus_FA_Clickspot)

1 (S.L.IBISPlus_Main_Clickspot)

0 (S.L.IBISPlus_UE_Eingabe_Clickspot)

0 (S.L.IBISPlus_UE_Menu_Clickspot)

"IBISPlus\Base.dds" (S.$.IBISPlus_Basetexture)

{endif}

(L.L.IBISPlus_Mode) 2 =

{if}

0 (S.L.IBISPlus_SA_Menu_Clickspot)

"" (S.$.IBISPlus_LinieKurs) (S.$.IBISPlus_Haltestelle_Anzeige) (S.$.IBISPlus_Haltestelle_Uhrzeiten)

1 (S.L.IBISPlus_FA_Clickspot)

1 (S.L.IBISPlus_Main_Clickspot)

0 (S.L.IBISPlus_UE_Eingabe_Clickspot)

0 (S.L.IBISPlus_UE_Menu_Clickspot)

"IBISPlus\Fahrtauswahl.dds" (S.$.IBISPlus_Basetexture)

(L.L.IBISPlus_FA_Menu) 6 =

{if}

3 (S.L.IBISPlus_Mode)

0 (S.L.IBISPlus_FA_Menu)

{endif}

(L.L.IBISPlus_FA_Menu) 5 =

{if}

3 (S.L.IBISPlus_Mode)

0 (S.L.IBISPlus_FA_Menu)

{endif}

(L.L.IBISPlus_FA_Menu) 4 =

{if}

3 (S.L.IBISPlus_Mode)

0 (S.L.IBISPlus_FA_Menu)

{endif}

(L.L.IBISPlus_FA_Menu) 3 =

{if}

3 (S.L.IBISPlus_Mode)

0 (S.L.IBISPlus_FA_Menu)

{endif}

(L.L.IBISPlus_FA_Menu) 2 =

{if}

3 (S.L.IBISPlus_Mode)

0 (S.L.IBISPlus_FA_Menu)

{endif}

(L.L.IBISPlus_FA_Menu) 1 =

{if}

1 (S.L.IBISPlus_Mode)

0 (S.L.IBISPlus_FA_Menu)

{endif}

{endif}

(L.L.IBISPlus_Mode) 3 =

{if}

0 (S.L.IBIS_Linie_Suffix)

0 (S.L.IBISPlus_SA_Menu_Clickspot)

0 (S.L.IBISPlus_FA_Clickspot)

0 (S.L.IBISPlus_Main_Clickspot)

1 (S.L.IBISPlus_UE_Eingabe_Clickspot)

1 (S.L.IBISPlus_UE_Menu_Clickspot)

"" (S.$.IBISPlus_Umlaufplan) (S.$.IBISPlus_Haltestelle_Anzeige) (S.$.IBISPlus_Haltestelle_Uhrzeiten)

0 (M.V.GetDepotStringGlobal) "HB_Bremen_2018" $=

0 (M.V.GetDepotStringGlobal) "HB_Bremen_2016" $=

0 (M.V.GetDepotStringGlobal) "HB_Bremen_2010" $=

{if}

(M.V.GetTTBusstopCount) !

{if}

"IBISPlus\Fahrtauswahl_Umlauf_NoTT.dds" (S.$.IBISPlus_Basetexture)

{else}

"IBISPlus\Fahrtauswahl_Umlauf_TT.dds" (S.$.IBISPlus_Basetexture)

{endif}

{else}

"IBISPlus\Fahrtauswahl_Umlauf.dds" (S.$.IBISPlus_Basetexture)

{endif}

(L.$.IBISPlus_LinieKursInput) $length s0

l0 !

{if}

"--------" (S.$.IBISPlus_LinieKurs)

{endif}

l0 1 =

{if}

(L.$.IBISPlus_LinieKursInput) "-------" $+ (S.$.IBISPlus_LinieKurs)

{endif}

l0 2 =

{if}

(L.$.IBISPlus_LinieKursInput) "------" $+ (S.$.IBISPlus_LinieKurs)

{endif}

l0 3 =

{if}

(L.$.IBISPlus_LinieKursInput) "-----" $+ (S.$.IBISPlus_LinieKurs)

{endif}

l0 4 =

{if}

(L.$.IBISPlus_LinieKursInput) "----" $+ (S.$.IBISPlus_LinieKurs)

{endif}

l0 5 =

{if}

(L.$.IBISPlus_LinieKursInput) "---" $+ (S.$.IBISPlus_LinieKurs)

{endif}

l0 6 =

{if}

(L.$.IBISPlus_LinieKursInput) "--" $+ (S.$.IBISPlus_LinieKurs)

{endif}

l0 7 =

{if}

(L.$.IBISPlus_LinieKursInput) "-" $+ (S.$.IBISPlus_LinieKurs)

{endif}

l0 8 =

{if}

(L.$.IBISPlus_LinieKursInput) (S.$.IBISPlus_LinieKurs)

{endif}

(L.L.IBISPlus_UE_Menu) 2 =

{if}

2 (S.L.IBISPlus_Mode)

0 (S.L.IBISPlus_UE_Menu)

{endif}

{endif}

(L.L.IBISPlus_Mode) 4 =

{if}

0 (S.L.IBISPlus_SA_Menu_Clickspot)

"" (S.$.IBISPlus_Umlaufplan) (S.$.IBISPlus_Haltestelle_Anzeige) (S.$.IBISPlus_Haltestelle_Uhrzeiten)

(L.$.IBISPlus_LinieKursInput) $StrToFloat s0

l0 3500 > l0 3600 < &&

l0 3700 > l0 3800 < &&

l0 4500 > l0 4600 < &&

l0 4700 > l0 4800 < &&

l0 6500 > l0 6600 < &&

l0 6700 > l0 6800 < &&

{if}

l0 $IntToStr (S.$.Kurs)

5 (S.L.IBISPlus_Mode)

{else}

"" (S.$.Kurs)

(L.$.IBISPlus_LinieKursInput) $length 3 =

{if}

8 (S.L.IBISPlus_Mode)

{else}

(L.$.IBISPlus_LinieKursInput) $length 7 =

{if}

7 (S.L.IBISPlus_Mode)

{endif}

{endif}

{endif}

{endif}

(L.L.IBISPlus_Mode) 5 =

{if}

(M.V.GetTTLineString) $StrToFloat -1 =

(M.V.GetTTLineString) $StrToFloat 0 =

{if}

1 (S.L.NoLinie)

{else}

0 (S.L.NoLinie)

{endif}

0 (S.L.IBISPlus_SA_Menu_Clickspot)

0 (S.L.IBISPlus_FA_Clickspot)

1 (S.L.IBISPlus_Main_Clickspot)

0 (S.L.IBISPlus_UE_Eingabe_Clickspot)

0 (S.L.IBISPlus_UE_Menu_Clickspot)

"" (S.$.IBISPlus_LinieKurs) (S.$.IBISPlus_Haltestelle_Anzeige) (S.$.IBISPlus_Haltestelle_Uhrzeiten)

"Linie:" "@" $+

(L.L.NoLinie)

{if}

" " $+ "@" $+

{else}

(M.V.GetTTLineString) $+ "@" $+

{endif}

"Richtung:" $+ "@" $+

(M.V.GetTTTerminusIndex) 1 (M.V.GetTerminusString) $RemoveSpaces $+ "@" $+

(M.V.GetTTTerminusIndex) 2 (M.V.GetTerminusString) $RemoveSpaces $+ "@" $+

"OK?" $+ "@@" $+

(S.$.IBISPlus_Umlaufplan)

"IBISPlus\Umlauf_Fahrplan_OK.dds" (S.$.IBISPlus_Basetexture)

(L.L.IBISPlus_Main_Menu) 12 =

{if}

6 (S.L.IBISPlus_Mode)

-1 (S.L.IBISPlus_Main_Menu)

{endif}

(L.L.IBISPlus_Main_Menu) 13 =

{if}

3 (S.L.IBISPlus_Mode)

-1 (S.L.IBISPlus_Main_Menu)

{endif}

{endif}

(L.L.IBISPlus_Mode) 6 =

{if}

(M.V.GetTTLineString) $StrToFloat -1 =

(M.V.GetTTLineString) $StrToFloat 0 =

{if}

1 (S.L.NoLinie)

{else}

0 (S.L.NoLinie)

{endif}

(L.L.schedule_active) !

{if}

"" (S.$.Matrix_Linie)

0 (S.L.IBIS_Linie_Complex) (S.L.IBIS_Linie_Suffix)

-1 (S.L.IBIS_TerminusIndex)

{endif}

0 (S.L.IBISPlus_SA_Menu_Clickspot)

(L.L.NoLinie)

{if}

"" (S.$.Matrix_Linie)

{else}

' (M.V.GetTTLineString) (S.$.Matrix_Linie)

{endif}

(L.L.vis_IBIS_Version_int) 2 =

{if}

(M.V.GetTTTerminusIndex) (S.L.IBIS_TerminusIndex)

{endif}

(M.V.GetTTLineString) $RemoveSpaces $StrToFloat 100 * (S.L.IBIS_Linie_Complex) 0 (S.L.IBIS_Linie_Suffix)

"" (S.$.IBISPlus_Umlaufplan)

(M.V.GetTTDelay) (F.L.TTDelay) trunc $IntToStr (S.$.TTDelay)

(M.V.GetTTDelay) -30 <

{if}

"IBISPlus\Umlauf_Haltestellen_zufrueh_" (L.$.TTDelay) $+ ".dds" $+ (S.$.IBISPlus_Basetexture)

{endif}

(M.V.GetTTDelay) -30 >

(M.V.GetTTDelay) 240 < &&

{if}

"IBISPlus\Umlauf_Haltestellen_implan.dds" (S.$.IBISPlus_Basetexture)

{endif}

(M.V.GetTTDelay) 240 >

(M.V.GetTTDelay) 3600 < &&

{if}

"IBISPlus\Umlauf_Haltestellen_zuspaet_" (L.$.TTDelay) $+ ".dds" $+ (S.$.IBISPlus_Basetexture)

{endif}

(M.V.GetTTDelay) 3600 >

{if}

"IBISPlus\Umlauf_Haltestellen.dds" (S.$.IBISPlus_Basetexture)

{endif}

(M.V.GetTTLineString) $length s0

l0 !

l0 -1 =

{if}

"---" (S.$.IBISPlus_Linie)

{endif}

l0 1 =

{if}

"00" (M.V.GetTTLineString) $+ (S.$.IBISPlus_Linie)

{endif}

l0 2 =

{if}

"0" (M.V.GetTTLineString) $+ (S.$.IBISPlus_Linie)

{endif}

l0 3 =

{if}

(M.V.GetTTLineString) (S.$.IBISPlus_Linie)

{endif}

(M.V.GetTTTerminusIndex) $IntToStr $length s0

l0 !

(M.V.GetTTTerminusIndex) -1 = &&

{if}

"---" (S.$.IBISPlus_Route)

{endif}

l0 1 =

(M.V.GetTTTerminusIndex) -1 = ! &&

{if}

"00" (M.V.GetTTTerminusIndex) $IntToStr $+ (S.$.IBISPlus_Route)

{endif}

l0 2 =

(M.V.GetTTTerminusIndex) -1 = ! &&

{if}

"0" (M.V.GetTTTerminusIndex) $IntToStr $+ (S.$.IBISPlus_Route)

{endif}

l0 3 =

(M.V.GetTTTerminusIndex) -1 = ! &&

{if}

(M.V.GetTTTerminusIndex) $IntToStr (S.$.IBISPlus_Route)

{endif}

(M.V.GetTTTerminusIndex) 5 (M.V.GetTerminusString) (S.$.IBISPlus_Haltestelle_1)

(M.V.GetTTBusstopIndex) 1 + (M.V.GetTTBusstopName) (S.$.IBISPlus_Haltestelle_2)

(M.V.GetTTBusstopIndex) (M.V.GetTTBusstopName) (S.$.IBISPlus_Haltestelle_3)

(M.V.GetTTBusstopIndex) 1 - (M.V.GetTTBusstopName) (S.$.IBISPlus_Haltestelle_4)

' (M.V.GetTTBusstopIndex) 2 - (M.V.GetTTBusstopName) (S.$.IBISPlus_Haltestelle_5)

" " (S.$.IBISPlus_Haltestelle_5)

(L.$.IBISPlus_Haltestelle_1) "@@" $+

(L.$.IBISPlus_Haltestelle_2) $+ "@@" $+

(L.$.IBISPlus_Haltestelle_3) $+ "@@" $+

(L.$.IBISPlus_Haltestelle_4) $+ "@@" $+

(L.$.IBISPlus_Haltestelle_5) $+ "@" $+

(S.$.IBISPlus_Haltestelle_Anzeige)

""

' (M.V.GetTTTerminusIndex) (M.V.GetTTBusstopArr) 3600 / s0 trunc s1 "02" $IntToStrEnh ":" $+

' (M.V.GetTTTerminusIndex) (M.V.GetTTBusstopArr) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ "@@" $+

(M.V.GetTTBusstopCount) 1 - (M.V.GetTTBusstopArr) 3600 / s0 trunc s1 "02" $IntToStrEnh ":" $+

(M.V.GetTTBusstopCount) 1 - (M.V.GetTTBusstopArr) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ "@@" $+

(M.V.GetTTBusstopIndex) 1 + (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+

(M.V.GetTTBusstopIndex) 1 + (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ "@@" $+

(M.V.GetTTBusstopIndex) (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+

(M.V.GetTTBusstopIndex) (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ "@@" $+

(M.V.GetTTBusstopIndex) 1 - 0 >=

{if}

(M.V.GetTTBusstopIndex) 1 - (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+

(M.V.GetTTBusstopIndex) 1 - (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ "@@" $+

{else}

"@@" $+

{endif}

' (M.V.GetTTBusstopIndex) 2 - 0 >=

' {if}

' (M.V.GetTTBusstopIndex) 2 - (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+

' (M.V.GetTTBusstopIndex) 2 - (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ "@" $+

' {else}

"@" $+

' {endif}

(S.$.IBISPlus_Haltestelle_Uhrzeiten)

{endif}

(L.L.IBISPlus_Mode) 7 =

{if}

(L.$.IBISPlus_LinieKursInput) 3 $cutBegin 2 $cutEnd $StrToFloat (S.L.IBIS_Linie_Suffix)

' (L.$.IBISPlus_LinieKursInput) 5 $cutBegin $StrToFloat (M.V.GetBusstopCount) (L.L.IBIS_busstop) <=

' {if}

' 0 (S.L.IBIS_busstop)

' (L.$.IBISPlus_LinieKursInput) 5 $cutBegin $StrToFloat s0

' l0 1.5 <

' {if}

' 2 s1

' {else}

' l0 2.5 <

' {if}

' 1 s1

' {endif}

' {endif}

' "" (L.$.IBISPlus_LinieKursInput) 2 $cutEnd (S.$.IBISPlus_LinieKursInput)

' "" (L.$.IBISPlus_LinieKursInput) l1 "02" $IntToStrEnh $+ (S.$.IBISPlus_LinieKursInput)

' {endif}

0 (S.L.IBISPlus_SA_Menu_Clickspot)

0 (S.L.IBISPlus_FA_Clickspot)

1 (S.L.IBISPlus_Main_Clickspot)

1 (S.L.IBISPlus_UE_Eingabe_Clickspot)

1 (S.L.IBISPlus_UE_Menu_Clickspot)

0 (S.L.IBISPlus_Routenavi_Clickspot)

"" (L.$.IBISPlus_LinieKursInput) 4 $cutEnd $StrToFloat 100 * s0

"" (L.$.IBISPlus_LinieKursInput) 5 $cutBegin $StrToFloat s1

(L.L.vis_IBIS_Version_int) 2 =

{if}

l0 l1 + (S.L.IBIS_Linie_Complex) (M.V.GetRouteIndex) (S.L.IBIS_RouteIndex)

{endif}

(M.V.GetRouteTerminusIndex) (S.L.IBIS_TerminusIndex)

(M.V.GetTerminusCode) (S.L.IBIS_TerminusCode)

"" (S.$.IBISPlus_Umlaufplan) (S.$.IBISPlus_LinieKurs)

(M.V.GetTTDelay) (F.L.TTDelay) trunc $IntToStr (S.$.TTDelay)

(M.V.GetTTDelay) -30 <

{if}

"IBISPlus\Umlauf_Haltestellen_zufrueh_" (L.$.TTDelay) $+ ".dds" $+ (S.$.IBISPlus_Basetexture)

{endif}

(M.V.GetTTDelay) -30 >

(M.V.GetTTDelay) 240 < &&

{if}

"IBISPlus\Umlauf_Haltestellen_implan.dds" (S.$.IBISPlus_Basetexture)

{endif}

(M.V.GetTTDelay) 240 >

(M.V.GetTTDelay) 3600 < &&

{if}

"IBISPlus\Umlauf_Haltestellen_zuspaet_" (L.$.TTDelay) $+ ".dds" $+ (S.$.IBISPlus_Basetexture)

{endif}

(M.V.GetTTDelay) 3600 >

{if}

"IBISPlus\Umlauf_Haltestellen.dds" (S.$.IBISPlus_Basetexture)

{endif}

(L.$.IBISPlus_LinieKursInput) 4 $cutEnd $length s0

l0 !

l0 -1 =

{if}

"---" (S.$.IBISPlus_Linie)

{endif}

l0 1 =

{if}

"00" (L.$.IBISPlus_LinieKursInput) 6 $cutEnd $+ (S.$.IBISPlus_Linie)

{endif}

l0 2 =

{if}

"0" (L.$.IBISPlus_LinieKursInput) 5 $cutEnd $+ (S.$.IBISPlus_Linie)

{endif}

l0 3 =

{if}

(L.$.IBISPlus_LinieKursInput) 4 $cutEnd (S.$.IBISPlus_Linie)

{endif}

(L.$.IBISPlus_LinieKursInput) 5 $cutBegin $length s0

l0 !

{if}

"---" (S.$.IBISPlus_Route)

(L.L.vis_IBIS_Version_int) 2 =

{if}

0 (S.L.IBIS_Route)

{endif}

{endif}

l0 1 =

{if}

(L.L.vis_IBIS_Version_int) 2 =

{if}

"00" (L.$.IBISPlus_LinieKursInput) 6 $cutBegin $+ (S.$.IBISPlus_Route) $StrToFloat (S.L.IBIS_Route)

{endif}

{endif}

l0 2 =

{if}

(L.L.vis_IBIS_Version_int) 2 =

{if}

"0" (L.$.IBISPlus_LinieKursInput) 5 $cutBegin $+ (S.$.IBISPlus_Route) $StrToFloat (S.L.IBIS_Route)

{endif}

{endif}

(L.L.IBIS_RouteIndex) 0 <

{if}

"" (S.$.act_busstop)

{else}

(L.L.IBIS_RouteIndex) (M.V.GetBusstopCount) (L.L.IBIS_busstop) <=

{if}

0 (S.L.IBIS_busstop)

{endif}

{endif}

(L.L.IBIS_TerminusIndex) 5 (M.V.GetTerminusString) "@" $+ (S.$.IBISPlus_Haltestelle_1)

(L.L.IBIS_RouteIndex) (L.L.IBIS_busstop) 1 + (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 1 (M.V.GetBusstopString) "@" $+

(L.L.IBIS_RouteIndex) (L.L.IBIS_busstop) 1 + (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 2 (M.V.GetBusstopString) $+ (S.$.IBISPlus_Haltestelle_2)

(L.L.IBIS_RouteIndex) (L.L.IBIS_busstop) (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 1 (M.V.GetBusstopString) "@" $+

(L.L.IBIS_RouteIndex) (L.L.IBIS_busstop) (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 2 (M.V.GetBusstopString) $+ (S.$.IBISPlus_Haltestelle_3)

(L.L.IBIS_RouteIndex) (L.L.IBIS_busstop) 1 - (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 1 (M.V.GetBusstopString) "@" $+

(L.L.IBIS_RouteIndex) (L.L.IBIS_busstop) 1 - (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 2 (M.V.GetBusstopString) $+ (S.$.IBISPlus_Haltestelle_4)

' (L.L.IBIS_RouteIndex) (L.L.IBIS_busstop) 2 - (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 1 (M.V.GetBusstopString) "@" $+

' (L.L.IBIS_RouteIndex) (L.L.IBIS_busstop) 2 - (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 2 (M.V.GetBusstopString) $+

" @" (S.$.IBISPlus_Haltestelle_5)

(L.$.IBISPlus_Haltestelle_1) "@" $+

(L.$.IBISPlus_Haltestelle_2) $+ "@" $+

(L.$.IBISPlus_Haltestelle_3) $+ "@" $+

(L.$.IBISPlus_Haltestelle_4) $+ "@" $+

(L.$.IBISPlus_Haltestelle_5) $+ "" $+

(S.$.IBISPlus_Haltestelle_Anzeige)

""

' (L.L.IBIS_TerminusIndex) (M.V.GetTTBusstopArr) 3600 / s0 trunc s1 "02" $IntToStrEnh ":" $+

' (L.L.IBIS_TerminusIndex) (M.V.GetTTBusstopArr) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ "@@" $+

(M.V.GetTTBusstopCount) 1 - (M.V.GetTTBusstopArr) 3600 / s0 trunc s1 "02" $IntToStrEnh ":" $+

(M.V.GetTTBusstopCount) 1 - (M.V.GetTTBusstopArr) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ "@@" $+

(L.L.IBIS_busstop) 1 + (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+

(L.L.IBIS_busstop) 1 + (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ "@@" $+

(L.L.IBIS_busstop) (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+

(L.L.IBIS_busstop) (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ "@@" $+

(L.L.IBIS_busstop) 1 >=

{if}

(L.L.IBIS_busstop) 1 - (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+

(L.L.IBIS_busstop) 1 - (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ "@@" $+

{else}

"@@" $+

{endif}

' (M.V.GetTTBusstopIndex) 1 >=

' {if}

' (L.L.IBIS_busstop) 2 - (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+

' (L.L.IBIS_busstop) 2 - (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ "@" $+

' {else}

"@" $+

' {endif}

(S.$.IBISPlus_Haltestelle_Uhrzeiten)

(L.L.IBIS_RouteIndex) (L.L.IBIS_busstop) (M.V.GetRouteBusstopIdent) (S.$.act_busstop)

(M.V.GetBusstopIndex) (S.L.IBIS_busstop_index)

{endif}

(L.L.IBISPlus_Mode) 8 =

{if}

0 (S.L.IBISPlus_SA_Menu_Clickspot)

0 (S.L.IBISPlus_FA_Clickspot)

1 (S.L.IBISPlus_Main_Clickspot)

1 (S.L.IBISPlus_UE_Eingabe_Clickspot)

1 (S.L.IBISPlus_UE_Menu_Clickspot)

0 (S.L.IBISPlus_Routenavi_Clickspot)

' Eingabe ist der Terminus-Code

(L.$.IBISPlus_LinieKursInput) $StrToFloat (S.L.IBIS_TerminusCode)

' Daraus wird noch der Terminus-Index generiert:

(M.V.GetTerminusIndex) (S.L.IBIS_TerminusIndex)

'Zurücksetzen in Hauptmenü

1 (S.L.IBISPlus_Mode)

{endif}

'Besetztmeldung:

(L.L.IBISPlus_Mode) 90 =

{if}

1 (S.L.IBISPlus_SA_Menu_Clickspot)

1 (S.L.IBISPlus_Main_Clickspot)

0 (S.L.IBISPlus_FA_Clickspot)

0 (S.L.IBISPlus_UE_Eingabe_Clickspot)

0 (S.L.IBISPlus_UE_Menu_Clickspot)

"" (S.$.IBISPlus_Haltestelle_Uhrzeiten) (S.$.IBISPlus_Haltestelle_Anzeige)

"IBISPlus\Besetzgrad.dds" (S.$.IBISPlus_Basetexture)

(L.L.IBISPlus_SA_Menu) 0 >

(L.L.IBISPlus_Main_Menu) 12 =

(L.L.IBISPlus_Main_Menu) 13 =

{if}

1 (S.L.IBISPlus_Mode)

-1 (S.L.IBISPlus_SA_Menu) (S.L.IBISPlus_Main_Menu)

1 (S.L.Meldung_Besetzt)

{endif}

{endif}

'Tonkonserven

(L.L.IBISPlus_Mode) 91 =

{if}

"" (S.$.IBISPlus_LinieKurs) (S.$.IBISPlus_Haltestelle_Anzeige) (S.$.IBISPlus_Haltestelle_Uhrzeiten)

1 (S.L.IBISPlus_SA_Menu_Clickspot)

1 (S.L.IBISPlus_Main_Clickspot)

0 (S.L.IBISPlus_UE_Eingabe_Clickspot)

0 (S.L.IBISPlus_UE_Menu_Clickspot)

"IBISPlus\Sprache.dds" (S.$.IBISPlus_Basetexture)

(L.L.IBISPlus_SA_Menu) 99 =

{if}

1 (S.L.IBISPlus_Mode)

0 (S.L.IBISPlus_SA_Menu)

{endif}

(L.L.IBISPlus_SA_Menu) 1 =

{if}

92 (S.L.IBISPlus_Mode)

0 (S.L.IBISPlus_SA_Menu)

{endif}

{endif}

(L.L.IBISPlus_Mode) 92 =

{if}

"" (S.$.IBISPlus_LinieKurs) (S.$.IBISPlus_Haltestelle_Uhrzeiten)

0 (S.L.IBISPlus_FA_Clickspot)

1 (S.L.IBISPlus_Main_Clickspot)

1 (S.L.IBISPlus_SA_Menu_Clickspot)

0 (S.L.IBISPlus_UE_Eingabe_Clickspot)

0 (S.L.IBISPlus_UE_Menu_Clickspot)

"IBISPlus\Sprache_1.dds" (S.$.IBISPlus_Basetexture)

(L.L.IBISPlus_SA_Menu) 99 =

{if}

"" (S.$.IBISPlus_Haltestelle_Anzeige)

91 (S.L.IBISPlus_Mode)

-1 (S.L.IBISPlus_SA_Menu)

{endif}

(L.L.IBISPlus_SA_Menu) 90 =

{if}

(L.L.Sonderansage_Mode) 1 - 0 max (S.L.Sonderansage_Mode)

-1 (S.L.IBISPlus_SA_Menu)

{endif}

(L.L.IBISPlus_SA_Menu) 91 =

{if}

(L.L.Sonderansage_Mode) 1 + 16 min (S.L.Sonderansage_Mode)

-1 (S.L.IBISPlus_SA_Menu)

{endif}

(L.L.Sonderansage_Mode) !

{if}

"Sonderansage 1" (S.$.Sonderansage_1)

"Sonderansage 2" (S.$.Sonderansage_2)

"Sonderansage 3" (S.$.Sonderansage_3)

"Sonderansage 4" (S.$.Sonderansage_4)

{endif}

(L.L.Sonderansage_Mode) 1 =

{if}

"Sonderansage 2" (S.$.Sonderansage_1)

"Sonderansage 3" (S.$.Sonderansage_2)

"Sonderansage 4" (S.$.Sonderansage_3)

"Sonderansage 5" (S.$.Sonderansage_4)

{endif}

(L.L.Sonderansage_Mode) 2 =

{if}

"Sonderansage 3" (S.$.Sonderansage_1)

"Sonderansage 4" (S.$.Sonderansage_2)

"Sonderansage 5" (S.$.Sonderansage_3)

"Sonderansage 6" (S.$.Sonderansage_4)

{endif}

(L.L.Sonderansage_Mode) 3 =

{if}

"Sonderansage 4" (S.$.Sonderansage_1)

"Sonderansage 5" (S.$.Sonderansage_2)

"Sonderansage 6" (S.$.Sonderansage_3)

"Sonderansage 7" (S.$.Sonderansage_4)

{endif}

(L.L.Sonderansage_Mode) 4 =

{if}

"Sonderansage 5" (S.$.Sonderansage_1)

"Sonderansage 6" (S.$.Sonderansage_2)

"Sonderansage 7" (S.$.Sonderansage_3)

"Sonderansage 8" (S.$.Sonderansage_4)

{endif}

(L.L.Sonderansage_Mode) 5 =

{if}

"Sonderansage 6" (S.$.Sonderansage_1)

"Sonderansage 7" (S.$.Sonderansage_2)

"Sonderansage 8" (S.$.Sonderansage_3)

"Sonderansage 9" (S.$.Sonderansage_4)

{endif}

(L.L.Sonderansage_Mode) 6 =

{if}

"Sonderansage 7" (S.$.Sonderansage_1)

"Sonderansage 8" (S.$.Sonderansage_2)

"Sonderansage 9" (S.$.Sonderansage_3)

"Sonderansage 10" (S.$.Sonderansage_4)

{endif}

(L.L.Sonderansage_Mode) 7 =

{if}

"Sonderansage 8" (S.$.Sonderansage_1)

"Sonderansage 9" (S.$.Sonderansage_2)

"Sonderansage 10" (S.$.Sonderansage_3)

"Sonderansage 11" (S.$.Sonderansage_4)

{endif}

(L.L.Sonderansage_Mode) 8 =

{if}

"Sonderansage 9" (S.$.Sonderansage_1)

"Sonderansage 10" (S.$.Sonderansage_2)

"Sonderansage 11" (S.$.Sonderansage_3)

"Sonderansage 12" (S.$.Sonderansage_4)

{endif}

(L.L.Sonderansage_Mode) 9 =

{if}

"Sonderansage 10" (S.$.Sonderansage_1)

"Sonderansage 11" (S.$.Sonderansage_2)

"Sonderansage 12" (S.$.Sonderansage_3)

"Sonderansage 13" (S.$.Sonderansage_4)

{endif}

(L.L.Sonderansage_Mode) 10 =

{if}

"Sonderansage 11" (S.$.Sonderansage_1)

"Sonderansage 12" (S.$.Sonderansage_2)

"Sonderansage 13" (S.$.Sonderansage_3)

"Sonderansage 14" (S.$.Sonderansage_4)

{endif}

(L.L.Sonderansage_Mode) 11 =

{if}

"Sonderansage 12" (S.$.Sonderansage_1)

"Sonderansage 13" (S.$.Sonderansage_2)

"Sonderansage 14" (S.$.Sonderansage_3)

"Sonderansage 15" (S.$.Sonderansage_4)

{endif}

(L.L.Sonderansage_Mode) 12 =

{if}

"Sonderansage 13" (S.$.Sonderansage_1)

"Sonderansage 14" (S.$.Sonderansage_2)

"Sonderansage 15" (S.$.Sonderansage_3)

"Sonderansage 16" (S.$.Sonderansage_4)

{endif}

(L.L.Sonderansage_Mode) 13 =

{if}

"Sonderansage 14" (S.$.Sonderansage_1)

"Sonderansage 15" (S.$.Sonderansage_2)

"Sonderansage 16" (S.$.Sonderansage_3)

"Sonderansage 17" (S.$.Sonderansage_4)

{endif}

(L.L.Sonderansage_Mode) 14 =

{if}

"Sonderansage 15" (S.$.Sonderansage_1)

"Sonderansage 16" (S.$.Sonderansage_2)

"Sonderansage 17" (S.$.Sonderansage_3)

"Sonderansage 18" (S.$.Sonderansage_4)

{endif}

(L.L.Sonderansage_Mode) 15 =

{if}

"Sonderansage 16" (S.$.Sonderansage_1)

"Sonderansage 17" (S.$.Sonderansage_2)

"Sonderansage 18" (S.$.Sonderansage_3)

"Sonderansage 19" (S.$.Sonderansage_4)

{endif}

(L.L.Sonderansage_Mode) 16 =

{if}

"Sonderansage 17" (S.$.Sonderansage_1)

"Sonderansage 18" (S.$.Sonderansage_2)

"Sonderansage 19" (S.$.Sonderansage_3)

"Sonderansage 20" (S.$.Sonderansage_4)

{endif}

(L.L.IBISPlus_SA_Menu) 1 =

{if}

1 (S.L.Meldung_Ansage)

(M.L.IBIS_PlaySonderansage1)

-1 (S.L.IBISPlus_SA_Menu)

{endif}

(L.L.IBISPlus_SA_Menu) 2 =

{if}

1 (S.L.Meldung_Ansage)

(M.L.IBIS_PlaySonderansage2)

-1 (S.L.IBISPlus_SA_Menu)

{endif}

(L.L.IBISPlus_SA_Menu) 3 =

{if}

1 (S.L.Meldung_Ansage)

(M.L.IBIS_PlaySonderansage3)

-1 (S.L.IBISPlus_SA_Menu)

{endif}

(L.L.IBISPlus_SA_Menu) 4 =

{if}

1 (S.L.Meldung_Ansage)

(M.L.IBIS_PlaySonderansage4)

-1 (S.L.IBISPlus_SA_Menu)

{endif}

"@@"

(L.$.Sonderansage_1) $+ "@@" $+

(L.$.Sonderansage_2) $+ "@@" $+

(L.$.Sonderansage_3) $+ "@@" $+

(L.$.Sonderansage_4) $+

(S.$.IBISPlus_Haltestelle_Anzeige)

{endif}

(L.L.IBISPlus_Mode) 666 =

{if}

0 (S.L.IBISPlus_FA_Clickspot)

1 (S.L.IBISPlus_Main_Clickspot)

0 (S.L.IBISPlus_SA_Menu_Clickspot)

0 (S.L.IBISPlus_UE_Eingabe_Clickspot)

0 (S.L.IBISPlus_UE_Menu_Clickspot)

"IBISPlus\Informationen.dds" (S.$.IBISPlus_Basetexture)

{endif}

'Stringverarbeitung:

(L.L.IBISPlus_Mode) 1 >=

{if}

'Ansagentrigger:

(L.$.IBISPlus_Haltestelle_3) (L.$.IBISPlus_Haltestelle_last) $= !

(L.L.IBISPlus_Mode) 6 = &&

{if}

(L.$.IBISPlus_Haltestelle_3) (S.$.IBISPlus_Haltestelle_last)

(M.L.IBIS_PlayAnnouncement)

{endif}

(M.V.GetTTBusstopIndex) (M.V.GetTTBusstopName) (L.$.IBISPlus_Haltestelle_last) $= !

(L.L.IBISPlus_Mode) 7 = &&

(M.V.GetTTBusstopIndex) 0 = ! &&

{if}

(M.V.GetTTBusstopIndex) (M.V.GetTTBusstopName) (S.$.IBISPlus_Haltestelle_last)

(L.L.IBIS_busstop) 1 + (S.L.IBIS_busstop)

(M.L.IBIS_PlayAnnouncement_Liniekurs)

{endif}

'Microphon-Taster:

(L.L.cp_microphone_sw) (L.L.IBIS_LastMicro) ! &&

{if}

(M.L.IBIS_PlayAnnouncement_Liniekurs)

{endif}

(L.L.cp_microphone_sw) (S.L.IBIS_LastMicro)

'Fahrplanlage:

""

(M.V.GetTTDelay) s1 60 / s0

' Minuten:

l0 abs trunc " 2" $IntToStrEnh $+

(S.$.IBIS_Delay_min)

' Zehntelminuten:

l0 abs l0 abs trunc - 6 * " 1" $IntToStrEnh

(S.$.IBIS_Delay_sec)

l1 abs 6 >=

{if}

l0 0 >

{if}

"-"

{else}

"+"

{endif}

{else}

" "

{endif}

(S.$.IBIS_Delay_state)

(L.$.IBISPlus_Linie) "/" $+ (L.$.IBISPlus_Route) $+ "@" $+

(M.V.GetTTDelay) 600 >

(L.L.schedule_active) !

(L.$.IBISPlus_Route) "---" $=

{if}

"--:--" $+

{else}

(L.$.IBIS_Delay_state) $+ (L.$.IBIS_Delay_min) $+ ":" $+ (L.$.IBIS_Delay_sec) $+ "0" $+

{endif}

(S.$.IBISPlus_Status)

'Uhrzeit, Datum:

(L.L.IBISPlus_Main_Menu) 1 =

(L.L.IBISPlus_UE_Menu) 1 =

{if}

(L.L.Datum_Mode) ! (S.L.Datum_Mode)

0 (S.L.IBISPlus_Main_Menu) (S.L.IBISPlus_UE_Menu)

{endif}

(L.L.Datum_Mode) !

{if}

(L.S.Time) 3600 / s0 trunc s1 "02" $IntToStrEnh (S.$.Uhrzeit_stunde)

(L.S.Time) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh (S.$.Uhrzeit_Minute)

(L.$.Uhrzeit_stunde) $StrToFloat 60 * 60 * s2

(L.$.Uhrzeit_Minute) $StrToFloat 60 * s3

""

(L.S.Time) l2 l3 + - 10 <

{if}

0 $IntToStr (L.S.Time) l2 l3 + - $IntToStr $+ (S.$.Uhrzeit_sekunde)

{else}

(L.S.Time) l2 l3 + - $IntToStr $+ (S.$.Uhrzeit_sekunde)

{endif}

(L.$.Uhrzeit_stunde) ":" $+ (L.$.Uhrzeit_Minute) $+ ":" $+ (L.$.Uhrzeit_sekunde) $+ (S.$.IBISPlus_DatumUhrzeit)

{else}

(L.L.IBIS_Datum_Timer) (L.S.Timegap) - (S.L.IBIS_Datum_Timer) s0

l0 0 <

{if}

0 (S.L.Datum_Mode) (S.L.IBIS_Datum_Timer)

{endif}

(L.S.Day) 9 <=

{if}

"0" (L.S.Day) $IntToStr $+ "." $+

{else}

(L.S.Day) $IntToStr "." $+

{endif}

(L.S.Month) 9 <=

{if}

"0" $+ (L.S.Month) $IntToStr $+ "." $+

{else}

(L.S.Month) $IntToStr $+ "." $+

{endif}

(L.S.Year) $IntToStr $+ (S.$.IBISPlus_DatumUhrzeit)

{endif}

{endif}

{endif}

{end}

{macro:IBISPlus_SetRoute}

{end}

{macro:LinieKursString}

(L.$.IBISPlus_LinieKursInput) $length 6 <=

{if}

l0 89 <=

{if}

(L.$.IBISPlus_LinieKursInput) l0 $IntToStr $+ (S.$.IBISPlus_LinieKursInput)

{endif}

{endif}

l0 90 =

{if}

(L.$.IBISPlus_LinieKursInput) 1 $cutEnd (S.$.IBISPlus_LinieKursInput)

{endif}

l0 99 =

{if}

4 (S.L.IBISPlus_Mode)

{endif}

0 s0

{end}

{macro:IBIS_PlayAnnouncement}

(M.V.GetTTBusstopIndex) 1 + (M.V.GetTTBusstopName) $RemoveSpaces $length 1 <=

{if}

1 (S.L.Is_Terminus)

{else}

0 (S.L.Is_Terminus)

{endif}

"" "..\..\Announcements\" 0 (M.V.GetDepotStringGlobal) $+ "\" $+ (L.$.IBISPlus_Haltestelle_3) $RemoveSpaces $+ $msg

(L.L.Is_Terminus)

{if}

"_#terminus" $+

{endif}

".wav" $+

(T.F.ev_IBIS_Ansagen)

1 (S.L.IBIS_hst_mode)

{end}

{macro:IBIS_PlayAnnouncement_Liniekurs}

(L.L.IBIS_busstop) 0 >

{if}

"..\..\Announcements\" 0 (M.V.GetDepotStringGlobal) "\" $+ $+ (L.L.IBIS_RouteIndex) (L.L.IBIS_busstop) (M.V.GetRouteBusstopIdent) $+ $msg

(L.L.IBIS_RouteIndex) (M.V.GetBusstopCount) 1 - (L.L.IBIS_busstop) <=

{if}

"_#terminus" $+

{endif}

".wav" $+

(T.F.ev_IBIS_Ansagen)

{endif}

1 (S.L.IBIS_hst_mode)

{end}

{macro:IBIS_PlaySonderansage1}

"" "..\..\Announcements\" 0 (M.V.GetDepotStringGlobal) $+ "\" $+ "Sonderansagen\" $+ (L.$.Sonderansage_1) $RemoveSpaces $+

".wav" $+

(T.F.ev_IBIS_Ansagen)

{end}

{macro:IBIS_PlaySonderansage2}

"" "..\..\Announcements\" 0 (M.V.GetDepotStringGlobal) $+ "\" $+ "Sonderansagen\" $+ (L.$.Sonderansage_2) $RemoveSpaces $+

".wav" $+

(T.F.ev_IBIS_Ansagen)

{end}

{macro:IBIS_PlaySonderansage3}

"" "..\..\Announcements\" 0 (M.V.GetDepotStringGlobal) $+ "\" $+ "Sonderansagen\" $+ (L.$.Sonderansage_3) $RemoveSpaces $+

".wav" $+

(T.F.ev_IBIS_Ansagen)

{end}

{macro:IBIS_PlaySonderansage4}

"" "..\..\Announcements\" 0 (M.V.GetDepotStringGlobal) $+ "\" $+ "Sonderansagen\" $+ (L.$.Sonderansage_4) $RemoveSpaces $+

".wav" $+

(T.F.ev_IBIS_Ansagen)

{end}