'#############################################################################################################
'				TFT-Script by FlofiX3291
'#############################################################################################################

{macro:TFT_init}

	1 (S.L.Werbung) (S.L.Werbung_last)
	0 (S.L.Werbung_timer) (S.L.haltewunsch_blink_timer) (S.L.TFT_global_timer) (S.L.TFT_haltewunsch)
	
{end}

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

{macro:TFT_frame}

(L.L.elec_busbar_main)
{if}
'	Startup-Sequenz
	(L.L.TFT_startup_timer_stopped) !
	{if}
		(L.L.TFT_startup_timer) (L.S.Timegap) + (S.L.TFT_startup_timer) s0

		l0 10 <
		{if}
			"TFT_startup.tga" (S.$.TFT_Display)
		{else}
			1 (S.L.TFT_startup_timer_stopped)
			0 (S.L.TFT_startup_timer)
			"TFT_Display.tga" (S.$.TFT_Display)
		{endif}
	{endif}

'#############################################################################################################	
	
'	Zuf lliges ausl sen der St rung beim starten des Monitors	
	(L.L.startup_fail_antirepeat) !
	{if}
		100 random s7
		1 (S.L.startup_fail_antirepeat)
	{endif}
	
	l7 99 >
	{if}
		1 (S.L.startup_fail)
		
		(L.L.TFT_startup_timer_stopped)
		{if}
			"TFT_startup_failed.tga" (S.$.TFT_Display)
		{endif}
	{endif}
	
'#############################################################################################################	

	(L.L.startup_fail) !
	(L.L.TFT_Werbung_anzeigen) ! &&
	(L.L.TFT_startup_timer_stopped) &&
	{if}
		(L.L.TFT_global_timer) (L.S.Timegap) + (S.L.TFT_global_timer)
		13 >=
		{if}
			1 (S.L.TFT_Werbung_anzeigen)
			(L.L.Werbung) (S.L.Werbung_last)
		{endif}
	{else}
		(L.L.startup_fail) !
		(L.L.TFT_Werbung_anzeigen) &&
		(L.L.TFT_startup_timer_stopped) &&
		{if}
			(L.L.Werbung) 1 =
			(L.L.Werbung_last) 10 = &&
			{if}
				0 (S.L.TFT_global_timer) (S.L.TFT_Werbung_anzeigen)
				"TFT_Display.tga" (S.$.TFT_Display)
			{else}
				(L.L.Werbung) (L.L.Werbung_last) >
				{if}
					0 (S.L.TFT_global_timer) (S.L.TFT_Werbung_anzeigen)
					"TFT_Display.tga" (S.$.TFT_Display)
				{endif}
			{endif}
		{endif}
	{endif}

'#############################################################################################################
	
'	Haltewunsch anzeigen
	(L.L.TFT_startup_timer_stopped)
	(L.L.startup_fail) ! &&
	{if}
		(L.L.haltewunsch)
		{if}
			(L.L.haltewunsch_blink_timer) (L.S.Timegap) + (S.L.haltewunsch_blink_timer) s2
			l2 1.5 <=
			{if}
				1 (S.L.TFT_haltewunsch)
			{else}
				l2 3 >=
				{if}
					0 (S.L.haltewunsch_blink_timer)
				{endif}
					
				0 (S.L.TFT_haltewunsch)
			{endif}
		{else}
			0 (S.L.TFT_haltewunsch)
		{endif}
	{endif}

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

'	Endhaltestelle anzeigen
	(L.L.TFT_startup_timer_stopped)
	(L.L.startup_fail) ! &&
	(L.$.ibis_kurs) 0 = ! &&
	(L.L.TFT_Werbung_anzeigen) ! &&
	{if}
		(L.L.IBIS_TerminusIndex) (S.$.TFT_Endhaltestelle)
	{else}
		"" (S.$.TFT_Endhaltestelle)
	{endif}
			
'#############################################################################################################			
			
'	N chsten Halt anzeigen
	(L.L.int_routeindex) (M.V.GetBusstopCount) 1 - (L.L.ibis_stop) >=
	(L.L.TFT_startup_timer_stopped) &&
	(L.L.startup_fail) ! &&		
	(L.$.ibis_kurs) 0 = ! &&
	{if}
		(L.L.int_routeindex) (L.L.ibis_stop) (M.V.GetRouteBusstopIdent)
		(M.V.GetBusstopIndex) 3 (M.V.GetBusstopString)
		(S.$.TFT_Halt_1)
	{else}
		"" (S.$.TFT_Halt_1)
	{endif}
'
'#############################################################################################################
		
'	Zweiten Halt anzeigen
	(L.L.int_routeindex) (M.V.GetBusstopCount) 1 - (L.L.ibis_stop) 1 + >=
	(L.L.TFT_startup_timer_stopped) &&
	(L.L.startup_fail) ! &&		
	(L.$.ibis_kurs) 0 = ! &&
	(L.L.TFT_Werbung_anzeigen) ! &&
	{if}
		(L.L.int_routeindex) (L.L.ibis_stop) 1 + (M.V.GetRouteBusstopIdent)
		(M.V.GetBusstopIndex) 3 (M.V.GetBusstopString)
		(S.$.TFT_Halt_2)
	{else}
		"" (S.$.TFT_Halt_2)
	{endif}
	
'#############################################################################################################
	
'	Dritten Halt anzeigen
	(L.L.int_routeindex) (M.V.GetBusstopCount) 1 - (L.L.ibis_stop) 2 + >=
	(L.L.TFT_startup_timer_stopped) &&
	(L.L.startup_fail) ! &&		
	(L.$.ibis_kurs) 0 = ! &&
	(L.L.TFT_Werbung_anzeigen) ! &&
	{if}
		(L.L.int_routeindex) (L.L.ibis_stop) 2 + (M.V.GetRouteBusstopIdent)
		(M.V.GetBusstopIndex) 3 (M.V.GetBusstopString)
		(S.$.TFT_Halt_3)
	{else}
		"" (S.$.TFT_Halt_3)
	{endif}
			
'#############################################################################################################			
			
'	Vierten Halt anzeigen
	(L.L.int_routeindex) (M.V.GetBusstopCount) 1 - (L.L.ibis_stop) 3 + >=
	(L.L.TFT_startup_timer_stopped) &&
	(L.L.startup_fail) ! &&		
	(L.$.ibis_kurs) 0 = ! &&
	(L.L.TFT_Werbung_anzeigen) ! &&
	{if}
		(L.L.int_routeindex) (L.L.ibis_stop) 3 + (M.V.GetRouteBusstopIdent)
		(M.V.GetBusstopIndex) 3 (M.V.GetBusstopString)
		(S.$.TFT_Halt_4)
	{else}
		"" (S.$.TFT_Halt_4)
	{endif}
			
'#############################################################################################################

'	F nften Halt anzeigen
	(L.L.int_routeindex) (M.V.GetBusstopCount) 1 - (L.L.ibis_stop) 4 + >=
	(L.L.TFT_startup_timer_stopped) &&
	(L.L.startup_fail) ! &&		
	(L.$.ibis_kurs) 0 = ! &&
	(L.L.TFT_Werbung_anzeigen) ! &&
	{if}
		(L.L.int_routeindex) (L.L.ibis_stop) 4 + (M.V.GetRouteBusstopIdent)
		(M.V.GetBusstopIndex) 3 (M.V.GetBusstopString)
		(S.$.TFT_Halt_5)
	{else}
		"" (S.$.TFT_Halt_5)
	{endif}
			
'#############################################################################################################		
			
'	Linie anzeigen
	(L.L.TFT_startup_timer_stopped)
	(L.L.startup_fail) ! &&		
	(L.$.ibis_kurs) 0 = ! &&
	(L.L.TFT_Werbung_anzeigen) ! &&
	{if}
		(L.$.Matrix_Nr) (S.$.TFT_Linie)
	{else}
		"" (S.$.TFT_Linie)
	{endif}

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

'	Werbung auf dem Bildschirm durchlaufen lassen
	(L.L.Werbung) s5

	(L.L.TFT_startup_timer_stopped)
	(L.L.startup_fail) ! &&
	(L.L.TFT_Werbung_anzeigen) &&
	{if}
		(L.L.Werbung_timer) (L.S.Timegap) + (S.L.Werbung_timer) s0
	
		l5 10 =
		l0 8 >= &&
		{if}
			0 (S.L.Werbung_timer)
			1 (S.L.Werbung) (S.L.Werbung_Lock)
		{endif}

		(L.L.Werbung_Lock) !
		{if}
			l5 10 = !
			{if}
				(L.L.Werbung) 1 + (S.L.Werbung)
				1 (S.L.Werbung_Lock)
			{endif}
		{endif}

		(L.L.TFT_startup_timer_stopped)
		{if}
			l5 1 =
			{if}
				"TFT_Werbung_1.tga" (S.$.TFT_Display)
			{endif}
		
			l5 2 =
			{if}
				"TFT_Werbung_2.tga" (S.$.TFT_Display)
			{endif}
		
			l5 3 =
			{if}
				"TFT_Werbung_3.tga" (S.$.TFT_Display)
			{endif}
				
			l5 4 =
			{if}
				"TFT_Werbung_4.tga" (S.$.TFT_Display)
			{endif}
					
			l5 5 =
			{if}
				"TFT_Werbung_5.tga" (S.$.TFT_Display)
			{endif}
						
			l5 6 =
			{if}
				"TFT_Werbung_6.tga" (S.$.TFT_Display)
			{endif}
							
			l5 7 =
			{if}
				"TFT_Werbung_7.tga" (S.$.TFT_Display)
			{endif}
								
			l5 8 =
			{if}
				"TFT_Werbung_8.tga" (S.$.TFT_Display)
			{endif}
									
			l5 9 =
			{if}
				"TFT_Werbung_9.tga" (S.$.TFT_Display)
			{endif}
										
			l5 10 =
			{if}
				"TFT_Werbung_10.tga" (S.$.TFT_Display)
			{endif}
		{endif}
	
'#############################################################################################################

		l0 8 >=
		l5 10 = ! &&
		(L.L.startup_fail) ! &&
		{if}
			0 (S.L.Werbung_timer) (S.L.Werbung_lock)
		{endif}
	{endif}

'#############################################################################################################
	
{else}
	0 (S.L.TFT_startup_timer) (S.L.TFT_startup_timer_stopped) (S.L.haltewunsch_blink_timer) (S.L.startup_fail) (S.L.startup_fail_antirepeat) (S.L.Werbung_timer) (S.L.Werbung) (S.L.Werbung_lock) (S.L.TFT_haltewunsch)
	"" (S.$.TFT_Endhaltestelle) (S.$.TFT_Halt_1) (S.$.TFT_Halt_2) (S.$.TFT_Halt_3) (S.$.TFT_Halt_4) (S.$.TFT_Halt_5) (S.$.TFT_Linie) (S.$.TFT_STOP)
	"TFT_schwarz.tga" (S.$.TFT_Display)
{endif}

{end}