{macro:db_innenanzeige_frame}

' Riedbahn-TFT
' Modus 0: Fahren - Naechste Station
' Modus 1: Station - Ziel

	(L.L.door0) (L.L.door1) || (L.L.door2) || (L.L.door3) ||
	(L.L.Drucker_BusstopIndex) 1 < ||
	{if}
		1 (S.L.riedbahn_tft_modus)
		(L.L.kmcounter_m) (S.L.riedbahn_tft_km_counter_old)
	{else}
		(L.L.riedbahn_tft_km_counter_old) 20 + (L.L.kmcounter_m) <
		{if}
			0 (S.L.riedbahn_tft_modus)
		{endif}
	{endif}

	(L.L.elec_busbar_main)
	{if}
		(L.L.Drucker_RouteIndex) 0 <
		{if}
			"riedbahn_tft_modi_6.dds" (S.$.riedbahn_tft_modi)
			0 (S.L.riedbahn_tft_textfelder_sichtbar)
		{else}
			(L.L.Drucker_RouteIndex) 1 - (L.L.Drucker_BusstopIndex) - s0
			
			(L.L.riedbahn_tft_modus)
			{if}
				l0 4 > {if} "riedbahn_tft_modi_7.dds" (S.$.riedbahn_tft_modi) {endif}
				l0 4 = {if} "riedbahn_tft_modi_8.dds" (S.$.riedbahn_tft_modi) {endif}
				l0 3 = {if} "riedbahn_tft_modi_9.dds" (S.$.riedbahn_tft_modi) {endif}
				l0 2 = {if} "riedbahn_tft_modi_10.dds" (S.$.riedbahn_tft_modi) {endif}
				l0 1 = {if} "riedbahn_tft_modi_11.dds" (S.$.riedbahn_tft_modi) {endif}
				l0 1 < {if} "riedbahn_tft_modi_12.dds" (S.$.riedbahn_tft_modi) {endif}
				
				2 (S.L.riedbahn_tft_textfelder_sichtbar)
			{else}
				l0 3 > {if} "riedbahn_tft_modi_1.dds" (S.$.riedbahn_tft_modi) {endif}
				l0 3 = {if} "riedbahn_tft_modi_2.dds" (S.$.riedbahn_tft_modi) {endif}
				l0 2 = {if} "riedbahn_tft_modi_3.dds" (S.$.riedbahn_tft_modi) {endif}
				l0 1 = {if} "riedbahn_tft_modi_4.dds" (S.$.riedbahn_tft_modi) {endif}
				l0 1 < {if} "riedbahn_tft_modi_5.dds" (S.$.riedbahn_tft_modi) {endif}
				
				1 (S.L.riedbahn_tft_textfelder_sichtbar)
			{endif}
		{endif}
	{else}
		"riedbahn_tft_modi_0.dds" (S.$.riedbahn_tft_modi)
		0 (S.L.riedbahn_tft_textfelder_sichtbar)
	{endif}
	
	(L.L.Drucker_RouteIndex) 0 >
	(M.V.GetTTBusstopCount) 0 > &&
	(L.L.schedule_active) &&
	{if}
		"" (M.V.GetTTBusstopIndex) (M.V.GetTTBusstopArr) 3600 / s0 trunc s1 24 % "02" $IntToStrEnh s2 ":" $+ l0 l1 - 60 * s3 trunc "02" $IntToStrEnh $+ 5 $SetLengthR (S.$.Riedbahn_TFT_Ankunft_soll_0)
		"" (M.V.GetTTBusstopIndex) (M.V.GetTTBusstopArr) (M.V.GetTTDelay) + 3600 / s0 trunc s1 24 % "02" $IntToStrEnh s2 ":" $+ l0 l1 - 60 * s3 trunc "02" $IntToStrEnh $+ 5 $SetLengthR (S.$.Riedbahn_TFT_Ankunft_ist_0)
	{else}
		"" (S.$.Riedbahn_TFT_Ankunft_soll_0) (S.$.Riedbahn_TFT_Ankunft_ist_0)
	{endif}
	
	(L.L.Drucker_RouteIndex) 0 >
	(M.V.GetTTBusstopCount) 0 > &&
	(L.L.schedule_active) &&
	{if}
		"" (M.V.GetTTBusstopIndex) (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 24 % "02" $IntToStrEnh s2 ":" $+ l0 l1 - 60 * s3 trunc "02" $IntToStrEnh $+ 5 $SetLengthR (S.$.Riedbahn_TFT_Abfahrt_soll_0)
		"" (M.V.GetTTBusstopIndex) (M.V.GetTTBusstopDep) (M.V.GetTTDelay) + 3600 / s0 trunc s1 24 % "02" $IntToStrEnh s2 ":" $+ l0 l1 - 60 * s3 trunc "02" $IntToStrEnh $+ 5 $SetLengthR (S.$.Riedbahn_TFT_Abfahrt_ist_0)
	{else}
		"" (S.$.Riedbahn_TFT_Abfahrt_soll_0) (S.$.Riedbahn_TFT_Abfahrt_ist_0)
	{endif}

	(L.L.Drucker_RouteIndex) 1 - (L.L.Drucker_BusstopIndex) -	0 >
	(M.V.GetTTBusstopCount) 1 - (M.V.GetTTBusstopIndex) - 0 > &&
	(L.L.schedule_active) &&
	{if}
		"" (M.V.GetTTBusstopIndex) 1 + (M.V.GetTTBusstopArr) 3600 / s0 trunc s1 24 % "02" $IntToStrEnh s2 ":" $+ l0 l1 - 60 * s3 trunc "02" $IntToStrEnh $+ (S.$.Riedbahn_TFT_Ankunft_soll_1)
		"" (M.V.GetTTBusstopIndex) 1 + (M.V.GetTTBusstopArr) (M.V.GetTTDelay) + 3600 / s0 trunc s1 24 % "02" $IntToStrEnh s2 ":" $+ l0 l1 - 60 * s3 trunc "02" $IntToStrEnh $+ (S.$.Riedbahn_TFT_Ankunft_ist_1)
		"" (M.V.GetTTBusstopIndex) 1 + (M.V.GetTTBusstopArr) (M.V.GetTTDelay) + 86400 % 60 / trunc s0 (L.S.Time) 86400 % 60 / trunc s1 l0 l1 - $IntToStr " min" $+ 10 $SetLengthR (S.$.Riedbahn_TFT_Countdown_1)
	{else}
		"" (S.$.Riedbahn_TFT_Ankunft_soll_1) (S.$.Riedbahn_TFT_Ankunft_ist_1) (S.$.Riedbahn_TFT_Countdown_1)
	{endif}

	(L.L.Drucker_RouteIndex) 1 - (L.L.Drucker_BusstopIndex) -	1 >
	(M.V.GetTTBusstopCount) 1 - (M.V.GetTTBusstopIndex) - 1 > &&
	(L.L.schedule_active) &&
	{if}
		"" (M.V.GetTTBusstopIndex) 2 + (M.V.GetTTBusstopArr) 3600 / s0 trunc s1 24 % "02" $IntToStrEnh s2 ":" $+ l0 l1 - 60 * s3 trunc "02" $IntToStrEnh $+ (S.$.Riedbahn_TFT_Ankunft_soll_2)
		"" (M.V.GetTTBusstopIndex) 2 + (M.V.GetTTBusstopArr) (M.V.GetTTDelay) + 3600 / s0 trunc s1 24 % "02" $IntToStrEnh s2 ":" $+ l0 l1 - 60 * s3 trunc "02" $IntToStrEnh $+ (S.$.Riedbahn_TFT_Ankunft_ist_2)
		"" (M.V.GetTTBusstopIndex) 2 + (M.V.GetTTBusstopArr) (M.V.GetTTDelay) + 86400 % 60 / trunc s0 (L.S.Time) 86400 % 60 / trunc s1 l0 l1 - $IntToStr " min" $+ 10 $SetLengthR (S.$.Riedbahn_TFT_Countdown_2)
	{else}
		"" (S.$.Riedbahn_TFT_Ankunft_soll_2) (S.$.Riedbahn_TFT_Ankunft_ist_2) (S.$.Riedbahn_TFT_Countdown_2)
	{endif}

	(L.L.Drucker_RouteIndex) 1 - (L.L.Drucker_BusstopIndex) -	2 >
	(M.V.GetTTBusstopCount) 1 - (M.V.GetTTBusstopIndex) - 2 > &&
	(L.L.schedule_active) &&
	{if}
		"" (M.V.GetTTBusstopIndex) 3 + (M.V.GetTTBusstopArr) 3600 / s0 trunc s1 24 % "02" $IntToStrEnh s2 ":" $+ l0 l1 - 60 * s3 trunc "02" $IntToStrEnh $+ (S.$.Riedbahn_TFT_Ankunft_soll_3)
		"" (M.V.GetTTBusstopIndex) 3 + (M.V.GetTTBusstopArr) (M.V.GetTTDelay) + 3600 / s0 trunc s1 24 % "02" $IntToStrEnh s2 ":" $+ l0 l1 - 60 * s3 trunc "02" $IntToStrEnh $+ (S.$.Riedbahn_TFT_Ankunft_ist_3)
		"" (M.V.GetTTBusstopIndex) 3 + (M.V.GetTTBusstopArr) (M.V.GetTTDelay) + 86400 % 60 / trunc s0 (L.S.Time) 86400 % 60 / trunc s1 l0 l1 - $IntToStr " min" $+ 10 $SetLengthR (S.$.Riedbahn_TFT_Countdown_3)
	{else}
		"" (S.$.Riedbahn_TFT_Ankunft_soll_3) (S.$.Riedbahn_TFT_Ankunft_ist_3) (S.$.Riedbahn_TFT_Countdown_3)
	{endif}

	(L.L.Drucker_RouteIndex) 1 - (L.L.Drucker_BusstopIndex) -	3 >
	(M.V.GetTTBusstopCount) 1 - (M.V.GetTTBusstopIndex) - 3 > &&
	(L.L.schedule_active) &&
	{if}
		"" (M.V.GetTTBusstopIndex) 4 + (M.V.GetTTBusstopArr) 3600 / s0 trunc s1 24 % "02" $IntToStrEnh s2 ":" $+ l0 l1 - 60 * s3 trunc "02" $IntToStrEnh $+ (S.$.Riedbahn_TFT_Ankunft_soll_4)
		"" (M.V.GetTTBusstopIndex) 4 + (M.V.GetTTBusstopArr) (M.V.GetTTDelay) + 3600 / s0 trunc s1 24 % "02" $IntToStrEnh s2 ":" $+ l0 l1 - 60 * s3 trunc "02" $IntToStrEnh $+ (S.$.Riedbahn_TFT_Ankunft_ist_4)
		"" (M.V.GetTTBusstopIndex) 4 + (M.V.GetTTBusstopArr) (M.V.GetTTDelay) + 86400 % 60 / trunc s0 (L.S.Time) 86400 % 60 / trunc s1 l0 l1 - $IntToStr " min" $+ 10 $SetLengthR (S.$.Riedbahn_TFT_Countdown_4)
	{else}
		"" (S.$.Riedbahn_TFT_Ankunft_soll_4) (S.$.Riedbahn_TFT_Ankunft_ist_4) (S.$.Riedbahn_TFT_Countdown_4)
	{endif}
	
	""
	
	(L.L.riedbahn_tft_werbung_timer) (L.S.Timegap) + 20 % (S.L.riedbahn_tft_werbung_timer) s0
	
	l0 9 <= {if} "riedbahn_tft_werbung_1.dds" {endif}
	l0 10 >= {if} "riedbahn_tft_werbung_2.dds" {endif}
	(S.$.riedbahn_tft_werbung)

{end}