'S&B Faremaster
'C 2018 Christian Rolle
'02.11.2024 - 207SC - Added passenger LED display

{trigger:cp_Faremaster_Mainklick}
	1 (S.L.Faremaster_Mainklick)
{end}

{trigger:cp_Faremaster_Keypad0}
	0 (M.L.Faremaster_Keypad)
{end}

{trigger:cp_Faremaster_Keypad1}
	1 (M.L.Faremaster_Keypad)
{end}

{trigger:cp_Faremaster_Keypad2}
	2 (M.L.Faremaster_Keypad)
{end}

{trigger:cp_Faremaster_Keypad3}
	3 (M.L.Faremaster_Keypad)
{end}

{trigger:cp_Faremaster_Keypad4}
	4 (M.L.Faremaster_Keypad)
{end}

{trigger:cp_Faremaster_Keypad5}
	5 (M.L.Faremaster_Keypad)
{end}

{trigger:cp_Faremaster_Keypad6}
	6 (M.L.Faremaster_Keypad)
{end}

{trigger:cp_Faremaster_Keypad7}
	7 (M.L.Faremaster_Keypad)
{end}

{trigger:cp_Faremaster_Keypad8}
	8 (M.L.Faremaster_Keypad)
{end}

{trigger:cp_Faremaster_Keypad9}
	9 (M.L.Faremaster_Keypad)
{end}

{trigger:cp_Faremaster_Keypad_OK}
	80 (M.L.Faremaster_Keypad)
{end}

{trigger:cp_Faremaster_Keypad_DEL}
	90 (M.L.Faremaster_Keypad)
{end}


{trigger:cp_Faremaster_MainMenu_1}
	1 (M.L.Faremaster_Mainmenu)
{end}

{trigger:cp_Faremaster_MainMenu_2}
	2 (M.L.Faremaster_Mainmenu)
{end}

{trigger:cp_Faremaster_MainMenu_3}
	3 (M.L.Faremaster_Mainmenu)
{end}

{trigger:cp_Faremaster_MainMenu_4}
	4 (M.L.Faremaster_Mainmenu)
{end}

{trigger:cp_Faremaster_MainMenu_5}
	5 (M.L.Faremaster_Mainmenu)
{end}

{trigger:cp_Faremaster_MainMenu_6}
	6 (M.L.Faremaster_Mainmenu)
{end}

{trigger:cp_Faremaster_UMenu_1}
	1 (M.L.Faremaster_UMenu)
{end}

{trigger:cp_Faremaster_UMenu_2}
	2 (M.L.Faremaster_UMenu)
{end}

{trigger:cp_Faremaster_UMenu_3}
	3 (M.L.Faremaster_UMenu)
{end}

{trigger:cp_Faremaster_UMenu_4}
	4 (M.L.Faremaster_UMenu)
{end}

{trigger:cp_Faremaster_UMenu_5}
	5 (M.L.Faremaster_UMenu)
{end}

{trigger:cp_Faremaster_UMenu_6}
	6 (M.L.Faremaster_UMenu)
{end}

{trigger:cp_Faremaster_SMenu_0}
	1 (M.L.Faremaster_SMenu)
{end}

{trigger:cp_Faremaster_SMenu_1}
	2 (M.L.Faremaster_SMenu)
{end}

{trigger:cp_Faremaster_SMenu_2}
	3 (M.L.Faremaster_SMenu)
{end}

{trigger:cp_Faremaster_SMenu_3}
	4 (M.L.Faremaster_SMenu)
{end}

{trigger:cp_Faremaster_SMenu_4}
	5 (M.L.Faremaster_SMenu)
{end}

{trigger:cp_Faremaster_SMenu_5}
	6 (M.L.Faremaster_SMenu)
{end}

{trigger:cp_Faremaster_SMenu_6}
	7 (M.L.Faremaster_SMenu)
{end}

{trigger:cp_Faremaster_SMenu_7}
	8 (M.L.Faremaster_SMenu)
{end}

{trigger:cp_Faremaster_SMenu_8}
	9 (M.L.Faremaster_SMenu)
{end}

{trigger:cp_Faremaster_SMenu_9}
	10 (M.L.Faremaster_SMenu)
{end}

{trigger:cp_Faremaster_Stop_Up}
	1 (S.L.Faremaster_HSTMode)
{end}

{trigger:cp_Faremaster_Stop_Up_off}
	0 (S.L.Faremaster_HSTMode)
{end}

{trigger:cp_Faremaster_Stop_Down}
	2 (S.L.Faremaster_HSTMode)
{end}

{trigger:cp_Faremaster_Stop_Down_off}
	0 (S.L.Faremaster_HSTMode)
{end}

{trigger:cp_Faremaster_Settings_light_1}
	1 (S.L.Faremaster_Light)
{end}

{trigger:cp_Faremaster_Settings_light_2}
	2 (S.L.Faremaster_Light)
{end}

{trigger:cp_Faremaster_Settings_light_3}
	3 (S.L.Faremaster_Light)
{end}

{trigger:cp_Faremaster_Ticket_1}
	0 (S.L.Faremaster_Ticket)
{end}

{trigger:cp_Faremaster_Ticket_2}
	1 (S.L.Faremaster_Ticket)
{end}

{trigger:cp_Faremaster_Ticket_3}
	2 (S.L.Faremaster_Ticket)
{end}

{trigger:cp_Faremaster_Ticket_4}
	3 (S.L.Faremaster_Ticket)
{end}

{trigger:cp_Faremaster_Ticket_5}
	4 (S.L.Faremaster_Ticket)
{end}

{trigger:cp_Faremaster_Ticket_6}
'	5 (S.L.Faremaster_Ticket)
{end}



'----------------------
'	Init
'----------------------

{macro:Fare_init}
0 (S.L.Faremaster_Mode)
1 (S.L.Faremaster_Mainmenu_select)
"" (S.$.Faremaster_Header)
"" (S.$.Faremaster_Keypad)
0 (S.L.Faremaster_BusStop)
3 (S.L.Faremaster_Light)
-1 (S.L.Faremaster_RouteIndex)
-1 (S.L.Faremaster_Ticket)
{end}


'----------------------
'	Frame
'----------------------

{macro:Fare_frame}
	
	(L.L.elec_busbar_main) !
	{if}
		0 (S.L.IBIS_LinieKurs) (S.L.IBIS_Route) (S.L.Faremaster_ShowInfo)
	{endif}

'Automatische Weiterschaltung:

'Unterscheidung zwischen Fahrplan und Normal:

	(L.L.schedule_active)
	{if}
		(M.V.GetTTBusstopIndex) -1 >
		{if}
			(L.L.Faremaster_BusStop) 1 + (M.V.GetTTBusstopCount) =
			{if}
				(M.V.GetTTBusstopIndex) (M.V.GetTTBusstopName) (S.$.Fare_IFIS_CurrentStop)
				1 (S.L.Fare_Weiterschaltung)
			{else}
				(M.V.GetTTBusstopIndex) (M.V.GetTTBusstopName) (L.$.Fare_IFIS_CurrentStop) $= !
				{if}
					(M.V.GetTTBusstopIndex) (M.V.GetTTBusstopName) (S.$.Fare_IFIS_CurrentStop)
					1 (S.L.Fare_Weiterschaltung)
				{endif}
			{endif}
		{endif}
	{else}
	
		(L.L.door_0) 0.05 >
		(L.L.door_1) 0.05 > ||
		(L.L.door_01) 0.05 > ||
		(L.L.door_11) 0.05 > ||
		(L.L.door_freigabe) ||
		{if}
			0 (S.L.fare_weiter_initlock)
			0 (S.L.fare_kmcounter_lock) (S.L.fare_kmcounter_lock2)
		{endif}
		
		(L.L.fare_kmcounter_lock) 0 =
		{if}
			(L.L.kmcounter_m) (S.L.fare_kmcounter_weiterschaltung)
			1 20 random (S.L.fare_kmcounter_offset)
			1 (S.L.fare_kmcounter_lock)
		{endif}
		
		(L.L.Fare_kmcounter_lock2) !
		{if}
			(L.L.Fare_weiter_initlock) !
			{if}
				(L.L.kmcounter_m) (L.L.Fare_kmcounter_weiterschaltung) - 40 (L.L.Fare_kmcounter_offset) + >
				(L.L.kmcounter_m) (L.L.Fare_kmcounter_weiterschaltung) - 0 < ||
				{if}
					1 (S.L.Fare_Weiterschaltung)
					1 (S.L.Fare_kmcounter_lock2)
				{endif}
			{endif}
		{endif}	
		
	{endif}

	(L.L.faremaster_druckt)
	{if}
		(L.L.faremaster_ticket_pos) (L.S.Timegap) 1 * + (S.L.faremaster_ticket_pos)
		1 >
		{if}
			(L.L.Faremaster_Ticket) (S.L.GivenTicket)
			0 (S.L.faremaster_druckt)
		{endif}
	{endif}
	
	(L.L.faremaster_druckt) !
	(L.L.GivenTicket) 0 < &&
	(L.L.faremaster_ticket_pos) 1 >= &&
	{if}
		0 (S.L.faremaster_ticket_pos)
		-1 (S.L.Faremaster_Ticket) 
		(T.L.ev_ticketsale_giveticket)
	{endif}

	(L.L.elec_busbar_main)
'	(L.L.CTI_RBL) 1 = &&
	{if}
		(L.L.Faremaster_Mode) !
		{if}
			(M.L.Faremaster_Boot)
		{else}
			(L.L.Faremaster_RouteIndex) (L.L.Faremaster_BusStop) (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) (S.L.IBIS_busstop_index)
			(L.L.Faremaster_RouteIndex) (S.L.IBIS_RouteIndex)
			(L.L.Faremaster_BusStop) (S.L.IBIS_busstop)
			
'Vor:
			(L.L.cp_microphone_sw) 1 =
			(L.L.Fare_Weiterschaltung) 1 = ||
			(L.L.Faremaster_HSTMode) 2 = ||
			(L.L.Faremaster_Stop_Lock) ! &&

			{if}	
				(L.L.Faremaster_BusStop) 1 + (L.L.Faremaster_BusStopCount) =
				{if}
					(L.L.IBIS_Route) s0
					1.5 <
					{if}
						2 s1
					{else}
						l0 2.5 <
						{if}
							1 s1
						{endif}
					{endif}
				
					(L.L.IBIS_LinieKurs) 100 * l1 + (M.V.GetRouteIndex) 0 >=
					{if}
						1 (S.L.Faremaster_RouteDir)
						(L.L.IBIS_LinieKurs) 100 * l1 + (M.V.GetRouteIndex) (S.L.Faremaster_RouteIndex)
						(M.L.Faremaster_SetRoute)
						l1 (S.L.IBIS_Route)
						(M.V.GetTTBusstopIndex) (M.V.GetTTBusstopName) (S.$.Fare_IFIS_CurrentStop)
					{endif}
					1 (S.L.Faremaster_Stop_Lock)
				{else}
					(L.L.Faremaster_BusStop) 1 + (S.L.Faremaster_BusStop)
					1 (S.L.Faremaster_Stop_Lock)
				{endif}
				(M.L.Faremaster_PlayAnnouncement)
				0 (S.L.Fare_Weiterschaltung)
			{endif}
'R�ck:
			(L.L.Faremaster_HSTMode) 1 =
			(L.L.Faremaster_Stop_Lock) ! &&
			{if}	
				(L.L.Faremaster_BusStop) 1 - 0 =
				{if}
					(L.L.IBIS_Route) s0
					l0 2 =
					{if}
						1 s1
					{endif}
					l0 1 =
					{if}
						2 s1
					{endif}
					
					(L.L.IBIS_LinieKurs) 100 * l1 + (M.V.GetRouteIndex) 0 >=
					{if}
						0 (S.L.Faremaster_RouteDir)
						(L.L.IBIS_LinieKurs) 100 * l1 + (M.V.GetRouteIndex) (S.L.Faremaster_RouteIndex)
						(M.L.Faremaster_SetRoute)
						l1 (S.L.IBIS_Route)
					{endif}
					1 (S.L.Faremaster_Stop_Lock)
				{else}
					(L.L.Faremaster_BusStop) 1 - 0 max (S.L.Faremaster_BusStop)
					1 (S.L.Faremaster_Stop_Lock)
				{endif}
				(M.L.Faremaster_PlayAnnouncement)
			{endif}

			(L.L.cp_microphone_sw) !
			(L.L.Faremaster_HSTMode) ! &&
			{if}
				0 (S.L.Faremaster_Stop_Lock)
			{endif}
			
			(M.L.Faremaster_Header)
		
			(L.L.Faremaster_Mode) 1 =
			{if}
				"" (S.$.Faremaster_Ticket)
				0 (S.L.Faremaster_SMenu_active) (S.L.Faremaster_UMenu_active)
				0 (S.L.Faremaster_Keypad_active)
				0 (S.L.Faremaster_MainMenu_1) (S.L.Faremaster_MainMenu_2) (S.L.Faremaster_MainMenu_3) (S.L.Faremaster_MainMenu_4) (S.L.Faremaster_MainMenu_5) (S.L.Faremaster_MainMenu_6)
				"Faremaster\Main.dds" (S.$.Faremaster_Maintexture)
				(L.L.Faremaster_Mainklick)
				{if}
					2 (S.L.Faremaster_Mode)
					0 (S.L.Faremaster_Mainklick)
				{endif}
			{endif}
			(L.L.Faremaster_Mode) 2 =
			{if}
				"" (S.$.Faremaster_Ticket)
				0 (S.L.Faremaster_SMenu_active) (S.L.Faremaster_UMenu_active)
				1 (S.L.Faremaster_Keypad_active)
				1 (S.L.Faremaster_MainMenu_2)
				0 (S.L.Faremaster_MainMenu_1) (S.L.Faremaster_MainMenu_3) (S.L.Faremaster_MainMenu_4) (S.L.Faremaster_MainMenu_5) (S.L.Faremaster_MainMenu_6)
				"Faremaster\Login.dds" (S.$.Faremaster_Maintexture)
				(M.L.Keypad_Frame)
			{endif}
			(L.L.Faremaster_Mode) 3 =
			{if}
				"" (S.$.Faremaster_Ticket)
				1 (S.L.Faremaster_SMenu_active) (S.L.Faremaster_UMenu_active)
				(M.L.Keypad_Frame)
				1 (S.L.Faremaster_Keypad_active)
				1 (S.L.Faremaster_MainMenu_1) (S.L.Faremaster_MainMenu_2) (S.L.Faremaster_MainMenu_3) (S.L.Faremaster_MainMenu_4) (S.L.Faremaster_MainMenu_5) (S.L.Faremaster_MainMenu_6)
				"Faremaster\Mainmenu_" (L.L.Faremaster_Mainmenu_select) 1 max $IntToStr $+ ".dds" $+ (S.$.Faremaster_Maintexture)
			{endif}
			(L.L.Faremaster_Mode) 4 =
			{if}
				"" (S.$.Faremaster_Ticket)
'				(M.L.Keypad_Frame)
				1 (S.L.Faremaster_SMenu_active) (S.L.Faremaster_UMenu_active)
				"" (S.$.Faremaster_Login) (S.$.Faremaster_Keypad_V)
				0 (S.L.Faremaster_Keypad_active)
				0 (S.L.Faremaster_MainMenu_1) (S.L.Faremaster_MainMenu_2) (S.L.Faremaster_MainMenu_3) (S.L.Faremaster_MainMenu_4) (S.L.Faremaster_MainMenu_5) (S.L.Faremaster_MainMenu_6)
				"Faremaster\Stops.dds" (S.$.Faremaster_Maintexture)
'				"Test@Test" (S.$.Faremaster_Stop2) (S.$.Faremaster_Stop3) (S.$.Faremaster_Stop4) 
'				(L.L.Faremaster_BusStopCount)
				(L.L.schedule_active)
				{if}
					(L.L.Faremaster_BusStop) 1 =
					{if}
						" @ " (S.$.Faremaster_Stop1)
						(L.L.IBIS_RouteIndex) 1 (L.L.Faremaster_BusStopCount) min (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+ 
						(L.L.Faremaster_BusStop) 1 + (L.L.Faremaster_BusStopCount) min (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+
						(L.L.Faremaster_BusStop) 1 + (L.L.Faremaster_BusStopCount) min (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ (S.$.Faremaster_Stop2)
						(L.L.IBIS_RouteIndex) 2 (L.L.Faremaster_BusStopCount) min (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+
						(L.L.Faremaster_BusStop) 2 + (L.L.Faremaster_BusStopCount) min (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+
						(L.L.Faremaster_BusStop) 2 + (L.L.Faremaster_BusStopCount) min (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ (S.$.Faremaster_Stop3)
						(L.L.IBIS_RouteIndex) 3 (L.L.Faremaster_BusStopCount) min (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+
						(L.L.Faremaster_BusStop) 3 + (L.L.Faremaster_BusStopCount) min (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+
						(L.L.Faremaster_BusStop) 3 + (L.L.Faremaster_BusStopCount) min (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ (S.$.Faremaster_Stop4)
						(L.L.IBIS_RouteIndex) (L.L.Faremaster_BusStopCount) 1 - (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+
						(L.L.Faremaster_BusStopCount) (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+
						(L.L.Faremaster_BusStopCount) (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ (S.$.Faremaster_Stop5)
					{else}
						(L.L.Faremaster_BusStopCount) (L.L.Faremaster_BusStop) - 2 >
						{if}
							(L.L.IBIS_RouteIndex) (L.L.Faremaster_BusStop) 1 - 0 max (L.L.Faremaster_BusStopCount) min (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+
							(L.L.Faremaster_BusStop) (L.L.Faremaster_BusStopCount) min (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+
							(L.L.Faremaster_BusStop) (L.L.Faremaster_BusStopCount) min (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ (S.$.Faremaster_Stop1)
							(L.L.IBIS_RouteIndex) (L.L.Faremaster_BusStop) (L.L.Faremaster_BusStopCount) min (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+
							(L.L.Faremaster_BusStop) 1 + (L.L.Faremaster_BusStopCount) min (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+
							(L.L.Faremaster_BusStop) 1 + (L.L.Faremaster_BusStopCount) min (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ (S.$.Faremaster_Stop2)
							(L.L.IBIS_RouteIndex) (L.L.Faremaster_BusStop) 1 + (L.L.Faremaster_BusStopCount) 1 - min (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+
							(L.L.Faremaster_BusStop) 2 + (L.L.Faremaster_BusStopCount) min (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+
							(L.L.Faremaster_BusStop) 2 + (L.L.Faremaster_BusStopCount) min (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ (S.$.Faremaster_Stop3)
							(L.L.IBIS_RouteIndex) (L.L.Faremaster_BusStop) 2 + (L.L.Faremaster_BusStopCount) 1 - min (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+
							(L.L.Faremaster_BusStop) 3 + (L.L.Faremaster_BusStopCount) =
							{if}	
								(L.L.Faremaster_BusStopCount) (M.V.GetTTBusstopArr) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+
								(L.L.Faremaster_BusStopCount) (M.V.GetTTBusstopArr) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ (S.$.Faremaster_Stop4)
							{else}
								(L.L.Faremaster_BusStop) 3 + (L.L.Faremaster_BusStopCount) min (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+
								(L.L.Faremaster_BusStop) 3 + (L.L.Faremaster_BusStopCount) min (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ (S.$.Faremaster_Stop4)							
							{endif}
						{else}
							(L.L.Faremaster_BusStopCount) (L.L.Faremaster_BusStop) - 1 >
							{if}	
								(L.L.IBIS_RouteIndex) (L.L.Faremaster_BusStop) 1 - 0 max (L.L.Faremaster_BusStopCount) min (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+
								(L.L.Faremaster_BusStop) (L.L.Faremaster_BusStopCount) min (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+
								(L.L.Faremaster_BusStop) (L.L.Faremaster_BusStopCount) min (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ (S.$.Faremaster_Stop1)
								(L.L.IBIS_RouteIndex) (L.L.Faremaster_BusStop) (L.L.Faremaster_BusStopCount) min (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+
								(L.L.Faremaster_BusStop) 1 + (L.L.Faremaster_BusStopCount) min (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+
								(L.L.Faremaster_BusStop) 1 + (L.L.Faremaster_BusStopCount) min (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ (S.$.Faremaster_Stop2)
								(L.L.IBIS_RouteIndex) (L.L.Faremaster_BusStop) 1 + (L.L.Faremaster_BusStopCount) 1 - min (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+
								(L.L.Faremaster_BusStop) 2 + (L.L.Faremaster_BusStopCount) =
								{if}		
									(L.L.Faremaster_BusStopCount) (M.V.GetTTBusstopArr) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+
									(L.L.Faremaster_BusStopCount) (M.V.GetTTBusstopArr) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ (S.$.Faremaster_Stop3)
								{else}
									(L.L.Faremaster_BusStop) 2 + (L.L.Faremaster_BusStopCount) min (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+
									(L.L.Faremaster_BusStop) 2 + (L.L.Faremaster_BusStopCount) min (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ (S.$.Faremaster_Stop3)								
								{endif}
								"" "@" $+ (S.$.Faremaster_Stop4)
							{else}
								(L.L.Faremaster_BusStopCount) (L.L.Faremaster_BusStop) - 0 >
								{if}
									(L.L.IBIS_RouteIndex) (L.L.Faremaster_BusStop) 1 - 0 max (L.L.Faremaster_BusStopCount) min (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+
									(L.L.Faremaster_BusStop) (L.L.Faremaster_BusStopCount) min (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+
									(L.L.Faremaster_BusStop) (L.L.Faremaster_BusStopCount) min (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ (S.$.Faremaster_Stop1)
									(L.L.IBIS_RouteIndex) (L.L.Faremaster_BusStop) (L.L.Faremaster_BusStopCount) min (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+
									(L.L.Faremaster_BusStop) 1 + (L.L.Faremaster_BusStopCount) =
									{if}		
										(L.L.Faremaster_BusStopCount) (M.V.GetTTBusstopArr) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+
										(L.L.Faremaster_BusStopCount) (M.V.GetTTBusstopArr) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ (S.$.Faremaster_Stop2)
									{else}
										(L.L.Faremaster_BusStop) 1 + (L.L.Faremaster_BusStopCount) min (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+
										(L.L.Faremaster_BusStop) 1 + (L.L.Faremaster_BusStopCount) min (M.V.GetTTBusstopDep) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ (S.$.Faremaster_Stop2)									
									{endif}
									"" "@" $+ (S.$.Faremaster_Stop3)
									"" "@" $+ (S.$.Faremaster_Stop4)							
								{endif}
							{endif}						
						{endif}
						(L.L.IBIS_RouteIndex) (L.L.Faremaster_BusStopCount) 1 - (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+
						(L.L.Faremaster_BusStopCount) (M.V.GetTTBusstopArr) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+
						(L.L.Faremaster_BusStopCount) (M.V.GetTTBusstopArr) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh $+ (S.$.Faremaster_Stop5)
					{endif}					
				{else}
					(L.L.Faremaster_BusStop) 1 =
					{if}
						" @ " (S.$.Faremaster_Stop1)
						(L.L.IBIS_RouteIndex) 1 (L.L.Faremaster_BusStopCount) min (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+ (S.$.Faremaster_Stop2)
						(L.L.IBIS_RouteIndex) 2 (L.L.Faremaster_BusStopCount) min (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+ (S.$.Faremaster_Stop3)
						(L.L.IBIS_RouteIndex) 3 (L.L.Faremaster_BusStopCount) min (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+ (S.$.Faremaster_Stop4)
						(L.L.IBIS_RouteIndex) (L.L.Faremaster_BusStopCount) 1 - (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+ (S.$.Faremaster_Stop5)
					{else}
						(L.L.Faremaster_BusStopCount) (L.L.Faremaster_BusStop) - 2 >
						{if}
							(L.L.IBIS_RouteIndex) (L.L.Faremaster_BusStop) 1 - 0 max (L.L.Faremaster_BusStopCount) min (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+ (S.$.Faremaster_Stop1)
							(L.L.IBIS_RouteIndex) (L.L.Faremaster_BusStop) (L.L.Faremaster_BusStopCount) min (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+ (S.$.Faremaster_Stop2)
							(L.L.IBIS_RouteIndex) (L.L.Faremaster_BusStop) 1 + (L.L.Faremaster_BusStopCount) 1 - min (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+ (S.$.Faremaster_Stop3)
							(L.L.IBIS_RouteIndex) (L.L.Faremaster_BusStop) 2 + (L.L.Faremaster_BusStopCount) 1 - min (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+ (S.$.Faremaster_Stop4)
						{else}
							(L.L.Faremaster_BusStopCount) (L.L.Faremaster_BusStop) - 1 >
							{if}	
								(L.L.IBIS_RouteIndex) (L.L.Faremaster_BusStop) 1 - 0 max (L.L.Faremaster_BusStopCount) min (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+ (S.$.Faremaster_Stop1)
								(L.L.IBIS_RouteIndex) (L.L.Faremaster_BusStop) (L.L.Faremaster_BusStopCount) min (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+ (S.$.Faremaster_Stop2)
								(L.L.IBIS_RouteIndex) (L.L.Faremaster_BusStop) 1 + (L.L.Faremaster_BusStopCount) 1 - min (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+ (S.$.Faremaster_Stop3)
								"" "@" $+ (S.$.Faremaster_Stop4)
							{else}
								(L.L.Faremaster_BusStopCount) (L.L.Faremaster_BusStop) - 0 >
								{if}
									(L.L.IBIS_RouteIndex) (L.L.Faremaster_BusStop) 1 - 0 max (L.L.Faremaster_BusStopCount) min (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+ (S.$.Faremaster_Stop1)
									(L.L.IBIS_RouteIndex) (L.L.Faremaster_BusStop) (L.L.Faremaster_BusStopCount) min (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+ (S.$.Faremaster_Stop2)
									"" "@" $+ (S.$.Faremaster_Stop3)
									"" "@" $+ (S.$.Faremaster_Stop4)							
								{endif}
							{endif}						
						{endif}
						(L.L.IBIS_RouteIndex) (L.L.Faremaster_BusStopCount) 1 - (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) "@" $+ (S.$.Faremaster_Stop5)
					{endif}					
				{endif}
			{endif}
			(L.L.Faremaster_Mode) 90 =
			{if}
				0 (S.L.Faremaster_SMenu_active) 
				1 (S.L.Faremaster_UMenu_active)
				"" (S.$.Faremaster_Login) (S.$.Faremaster_Keypad_V)
				0 (S.L.Faremaster_Keypad_active)
				0 (S.L.Faremaster_MainMenu_1) (S.L.Faremaster_MainMenu_2) (S.L.Faremaster_MainMenu_3) (S.L.Faremaster_MainMenu_4) (S.L.Faremaster_MainMenu_5) (S.L.Faremaster_MainMenu_6)
				"" (S.$.Faremaster_Stop1) (S.$.Faremaster_Stop2) (S.$.Faremaster_Stop3) (S.$.Faremaster_Stop4) (S.$.Faremaster_Stop5)			
				"Faremaster\Settings_" (L.L.Faremaster_Light) $IntToStr $+ ".dds" $+ (S.$.Faremaster_Maintexture)
				"" (S.$.Faremaster_Ticket)
				(L.L.Faremaster_Light) s0
				l0 1 =
				{if}
					0.6 (S.L.Faremaster_Dim)
				{endif}
				l0 2 =
				{if}
					0.3 (S.L.Faremaster_Dim)					
				{endif}
				l0 3 =
				{if}
					0 (S.L.Faremaster_Dim)					
				{endif}
			{endif}
			(L.L.Faremaster_Mode) 91 =
			{if}
				
				1 (S.L.Faremaster_SMenu_active) 
				1 (S.L.Faremaster_UMenu_active)
				"" (S.$.Faremaster_Login) (S.$.Faremaster_Keypad_V)
				0 (S.L.Faremaster_Keypad_active)
				0 (S.L.Faremaster_MainMenu_1) (S.L.Faremaster_MainMenu_2) (S.L.Faremaster_MainMenu_3) (S.L.Faremaster_MainMenu_4) (S.L.Faremaster_MainMenu_5) (S.L.Faremaster_MainMenu_6)
				"" (S.$.Faremaster_Stop1) (S.$.Faremaster_Stop2) (S.$.Faremaster_Stop3) (S.$.Faremaster_Stop4) (S.$.Faremaster_Stop5)			
				"Faremaster\visctrl.dds" (S.$.Faremaster_Maintexture)
				"" (S.$.Faremaster_Ticket)
			{endif}
			(L.L.Faremaster_Mode) 92 =
			{if}
				1 (S.L.Faremaster_SMenu_active) 
				1 (S.L.Faremaster_UMenu_active)
				"" (S.$.Faremaster_Login) (S.$.Faremaster_Keypad_V)
				0 (S.L.Faremaster_Keypad_active)
				0 (S.L.Faremaster_MainMenu_1) (S.L.Faremaster_MainMenu_2) (S.L.Faremaster_MainMenu_3) (S.L.Faremaster_MainMenu_4) (S.L.Faremaster_MainMenu_5) (S.L.Faremaster_MainMenu_6)
				"" (S.$.Faremaster_Stop1) (S.$.Faremaster_Stop2) (S.$.Faremaster_Stop3) (S.$.Faremaster_Stop4) (S.$.Faremaster_Stop5)			
				"Faremaster\message.dds" (S.$.Faremaster_Maintexture)
				"" (S.$.Faremaster_Ticket)
			{endif}
			(L.L.Faremaster_Mode) 99 =
			{if}
				1 (S.L.Faremaster_SMenu_active) 
				0 (S.L.Faremaster_UMenu_active)
				"" (S.$.Faremaster_Login) (S.$.Faremaster_Keypad_V)
				0 (S.L.Faremaster_Keypad_active)
				0 (S.L.Faremaster_MainMenu_1) (S.L.Faremaster_MainMenu_2) (S.L.Faremaster_MainMenu_3) (S.L.Faremaster_MainMenu_4) (S.L.Faremaster_MainMenu_5) (S.L.Faremaster_MainMenu_6)
				"" (S.$.Faremaster_Stop1) (S.$.Faremaster_Stop2) (S.$.Faremaster_Stop3) (S.$.Faremaster_Stop4) (S.$.Faremaster_Stop5)			
				"Faremaster\VK.dds" (S.$.Faremaster_Maintexture)
				
				0 (M.V.GetTicketName) "Fahrschein Nor" $=
				{if}
					"Fahrschein Normal"
				{else}
					0 (M.V.GetTicketName)
				{endif}
				"@" $+
				1 (M.V.GetTicketName) "Kurzstr Norm  " $=
				{if}
					"Kurzstrecke Normal" $+
				{else}
					1 (M.V.GetTicketName) $+
				{endif}
				"@" $+
				2 (M.V.GetTicketName) "Tageskarte Nor" $=
				{if}
					"Tageskarte Normal" $+
				{else}
					2 (M.V.GetTicketName) $+
				{endif}
				"@" $+
				3 (M.V.GetTicketName) "Fahrschein Erm" $=
				{if}
					"Fahrschein Erm��igt" $+
				{else}
					3 (M.V.GetTicketName) $+
				{endif}
				"@" $+
				4 (M.V.GetTicketName) "Kurzstr Erm   " $=
				{if}
					"Kurzstrecke Erm��igt" $+
				{else}
					4 (M.V.GetTicketName) $+
				{endif}
				"@" $+
				" " $+ (S.$.Faremaster_Ticketstring)
				(L.L.Faremaster_Ticket) -1 =
				{if}
					"0" (S.$.Faremaster_Preis_Euro)
					"00" (S.$.Faremaster_Preis_Cent)
				"zu zahlen:       " (L.$.Faremaster_Preis_Euro) $+ "," $+ (L.$.Faremaster_Preis_Cent) $+ "�@" $+ (S.$.Faremaster_Ticket)

				{else}
					"" (L.L.Faremaster_Ticket) (M.V.GetTicketValue) 100 * 0.005 + trunc $IntToStr $+ (S.$.Faremaster_Preis)
					"" (L.$.Faremaster_Preis) $length 3 =
					{if}
						"" (L.$.Faremaster_Preis) 1 $SetLengthL (S.$.Faremaster_Preis_Euro)
						"" (L.$.Faremaster_Preis) 2 $SetLengthR (S.$.Faremaster_Preis_Cent)
					{endif}
					"zu zahlen:       " (L.$.Faremaster_Preis_Euro) $+ "," $+ (L.$.Faremaster_Preis_Cent) $+ "�@" $+ (L.$.Faremaster_Preis_Euro) $+ "," $+ (L.$.Faremaster_Preis_Cent) $+ "� 1x  " $+ (L.L.Faremaster_Ticket) (M.V.GetTicketName) $+ (S.$.Faremaster_Ticket)
				{endif}
			{else}
				"" (S.$.Faremaster_Ticketstring)
			{endif}
			(L.L.Faremaster_Mode) 900 =
			{if}
				"Faremaster\Error.dds" (S.$.Faremaster_Maintexture)
				(L.L.Faremaster_Error_Timer) (L.S.Timegap) + (S.L.Faremaster_Error_Timer) 2 >
				{if}
					(L.L.Faremaster_Mainmenu_select) 1 =
					{if}
						1 (L.$.Faremaster_Keypad_V) $SetLengthR "|" $=
						{if}
							1 (L.$.Faremaster_Keypad_V) $cutEnd (S.$.Faremaster_Keypad_1)	
						{else}
							(L.$.Faremaster_Keypad_V) (S.$.Faremaster_Keypad_1)			
						{endif}
						3 (S.L.Faremaster_Mode)
					{endif}
					(L.L.Faremaster_Mainmenu_select) 2 =
					{if}
						1 (L.$.Faremaster_Keypad_V) $SetLengthR "|" $=
						{if}
							1 (L.$.Faremaster_Keypad_V) $cutEnd (S.$.Faremaster_Keypad_2)	
						{else}
							(L.$.Faremaster_Keypad_V) (S.$.Faremaster_Keypad_2)			
						{endif}
						3 (S.L.Faremaster_Mode)
					{endif}
					(L.L.Faremaster_Mainmenu_select) 3 =
					{if}
						1 (L.$.Faremaster_Keypad_V) $SetLengthR "|" $=
						{if}
							1 (L.$.Faremaster_Keypad_V) $cutEnd (S.$.Faremaster_Keypad_3)	
						{else}
							(L.$.Faremaster_Keypad_V) (S.$.Faremaster_Keypad_3)			
						{endif}
						3 (S.L.Faremaster_Mode)
					{endif}
					(L.L.Faremaster_Mainmenu_select) 4 =
					{if}
						1 (L.$.Faremaster_Keypad_V) $SetLengthR "|" $=
						{if}
							1 (L.$.Faremaster_Keypad_V) $cutEnd (S.$.Faremaster_Keypad_4)	
						{else}
							(L.$.Faremaster_Keypad_V) (S.$.Faremaster_Keypad_4)			
						{endif}
						3 (S.L.Faremaster_Mode)
					{endif}
					(L.L.Faremaster_Mainmenu_select) 5 =
					{if}
						1 (L.$.Faremaster_Keypad_V) $SetLengthR "|" $=
						{if}
							1 (L.$.Faremaster_Keypad_V) $cutEnd (S.$.Faremaster_Keypad_5)	
						{else}
							(L.$.Faremaster_Keypad_V) (S.$.Faremaster_Keypad_5)			
						{endif}
						3 (S.L.Faremaster_Mode)
					{endif}
					(L.L.Faremaster_Mainmenu_select) 6 =
					{if}
						1 (L.$.Faremaster_Keypad_V) $SetLengthR "|" $=
						{if}
							1 (L.$.Faremaster_Keypad_V) $cutEnd (S.$.Faremaster_Keypad_6)	
						{else}
							(L.$.Faremaster_Keypad_V) (S.$.Faremaster_Keypad_6)			
						{endif}
						3 (S.L.Faremaster_Mode)
					{endif}
				{endif}
			{else}
				0 (S.L.Faremaster_Error_Timer)
			{endif}
		{endif}
	{else}
		0 (S.L.Faremaster_Boot_Timer) (S.L.Faremaster_Mode) 
		1 (S.L.Faremaster_Mainmenu_select)
		"Faremaster\SU_II_Dummy.dds" (S.$.Faremaster_Maintexture)
		"" (S.$.Faremaster_Header) (S.$.Faremaster_Keypad) (S.$.Faremaster_Keypad_V) (S.$.Faremaster_terminus_name)
		0 (S.L.Faremaster_BusStop)
		"" (S.$.Faremaster_Stop1) (S.$.Faremaster_Stop2) (S.$.Faremaster_Stop3) (S.$.Faremaster_Stop4) (S.$.Faremaster_Stop5)
		"" (S.$.Faremaster_Ticket)
	{endif}

{end}

{macro:Faremaster_Boot}
	(L.L.Faremaster_Boot_Timer) (L.S.Timegap) + (S.L.Faremaster_Boot_Timer) s0
	l0 2 (C.L.Faremaster_Boot_Time) * <
	{if}
		"Faremaster\SU_II_Dummy.dds" (S.$.Faremaster_Maintexture)
	{endif}
	l0 2 (C.L.Faremaster_Boot_Time) * >
	l0 8 (C.L.Faremaster_Boot_Time) * < &&
	{if}
		"Faremaster\SB.dds" (S.$.Faremaster_Maintexture)
	{endif}
	l0 8 (C.L.Faremaster_Boot_Time) * >
	l0 13 (C.L.Faremaster_Boot_Time) * < &&
	{if}
		"Faremaster\WCE.dds" (S.$.Faremaster_Maintexture)
	{endif}
	l0 13 (C.L.Faremaster_Boot_Time) * >
	l0 15 (C.L.Faremaster_Boot_Time) * < &&
	{if}
		"Faremaster\Boot1.dds" (S.$.Faremaster_Maintexture)
	{endif}
	l0 15 (C.L.Faremaster_Boot_Time) * >
	l0 16 (C.L.Faremaster_Boot_Time) * < &&
	{if}
		"Faremaster\Boot2.dds" (S.$.Faremaster_Maintexture)
	{endif}
	l0 16 (C.L.Faremaster_Boot_Time) * >
	l0 18 (C.L.Faremaster_Boot_Time) * < &&
	{if}
		"Faremaster\Boot3.dds" (S.$.Faremaster_Maintexture)
	{endif}
	l0 18 (C.L.Faremaster_Boot_Time) * >
	l0 22 (C.L.Faremaster_Boot_Time) * < &&
	{if}
		"Faremaster\Boot4.dds" (S.$.Faremaster_Maintexture)
	{endif}
	l0 22 (C.L.Faremaster_Boot_Time) * >
	l0 25 (C.L.Faremaster_Boot_Time) * < &&
	{if}
		"Faremaster\Boot5.dds" (S.$.Faremaster_Maintexture)
	{endif}
	l0 25 (C.L.Faremaster_Boot_Time) * >
	{if}
		1 (S.L.Faremaster_Mode)
	{endif}
{end}

{macro:Faremaster_Keypad}
	s0
	
	(L.L.Faremaster_Mainmenu_select) 1 =
	{if}
		(L.$.Faremaster_Keypad_1) (S.$.Faremaster_Keypad)
	{endif}
	(L.L.Faremaster_Mainmenu_select) 2 =
	{if}
		(L.$.Faremaster_Keypad_2) (S.$.Faremaster_Keypad)
	{endif}	
	(L.L.Faremaster_Mainmenu_select) 3 =
	{if}
		(L.$.Faremaster_Keypad_3) (S.$.Faremaster_Keypad)
	{endif}
	(L.L.Faremaster_Mainmenu_select) 4 =
	{if}
		(L.$.Faremaster_Keypad_4) (S.$.Faremaster_Keypad)
	{endif}
	(L.L.Faremaster_Mainmenu_select) 5 =
	{if}
		(L.$.Faremaster_Keypad_5) (S.$.Faremaster_Keypad)
	{endif}
	(L.L.Faremaster_Mainmenu_select) 6 =
	{if}
		(L.$.Faremaster_Keypad_6) (S.$.Faremaster_Keypad)
	{endif}
	l0 90 =
	{if}
		1 (L.$.Faremaster_Keypad) $cutEnd (S.$.Faremaster_Keypad)
	{endif}
	l0 80 =
	{if}
		(L.L.Faremaster_Mainmenu_select) 1 >= (L.L.Faremaster_Mainmenu_select) 3 <= &&
		{if}		
			(L.L.Faremaster_Mode) 3 =
			(L.$.Faremaster_Keypad) $length 4 >= &&
			{if}
				(L.$.Faremaster_Keypad) "00000" $=
				{if}
					0 (S.L.IBIS_Linie_Complex) (S.L.IBIS_LinieKurs) (S.L.IBIS_Route)
					(M.L.Faremaster_SetRoute)
					1 (S.L.Faremaster_Update_Suffix)
					-1 (S.L.IBIS_TerminusIndex)
					"" (S.$.Faremaster_terminus_name)
				{else}
					(L.$.Faremaster_Keypad) $StrToFloat s1 (S.L.IBIS_Linie_Complex)
					l1 100 / trunc	s2 (S.L.IBIS_LinieKurs)
					l1 100 % 0 max s3 (S.L.IBIS_Route)
					l2 100 * l3 + (M.V.GetRoUteIndex) (S.L.Faremaster_RouteIndex) 0 <
					{if}
						900 (S.L.Faremaster_Mode)
						0 (S.L.Faremaster_ShowInfo)
					{else}
						1 (S.L.Faremaster_RouteDir) (S.L.Faremaster_DestMode)
						(M.L.Faremaster_SetRoute)
						4 (S.L.Faremaster_Mode)
					{endif}
				{endif}
			{endif}
		{endif}
		(L.L.Faremaster_Mainmenu_select) 4 >= (L.L.Faremaster_Mainmenu_select) 5 <= &&
		{if}	
			(L.$.Faremaster_Keypad) $StrToFloat (S.L.IBIS_TerminusCode) (M.V.GetTerminusIndex) s4 0 <
			{if}
				900 (S.L.Faremaster_Mode)
				0 (S.L.Faremaster_ShowInfo)
			{else}
				l4 (S.L.IBIS_TerminusIndex)
				2 (S.L.Faremaster_DestMode)
				(M.L.Faremaster_SetRoute)
			{endif}
		{endif}
		(L.L.Faremaster_Mainmenu_select) 6 =
		{if}	
			(L.$.Faremaster_Keypad) $StrToFloat s5
			(L.$.Faremaster_Keypad) "" $= 
			l5 0 >= 
			l5 6 <= && ||
			l5 9 >=
			l5 15 <= && ||
			l5 23 = ||
			l5 25 >=
			l5 32 <= && ||
			l5 35 = ||
			l5 36 = ||
			l5 84 >= 
			l5 93 <= && ||
			{if}
				l5 (S.L.IBIS_Linie_Suffix)
				1 (S.L.Faremaster_Update_Suffix)
			{else}
				900 (S.L.Faremaster_Mode)
				0 (S.L.Faremaster_ShowInfo)
			{endif}
		{endif}
		(L.L.Faremaster_Mode) 2 =
		(L.$.Faremaster_Keypad) $StrToFloat 10 >= &&
		{if}
			(L.$.Faremaster_Keypad) (S.$.Faremaster_Login)
			"" (S.$.Faremaster_Keypad) (S.$.Faremaster_Keypad_V)
			3 (S.L.Faremaster_Mode)
		{endif}
	{endif}
	(L.L.Faremaster_Mainmenu_select) 1 >= (L.L.Faremaster_Mainmenu_select) 3 <= &&
	(L.L.Faremaster_Mode) 2 = ||
	{if}
		l0 10 <
		(L.$.Faremaster_Keypad) $length 4 <= &&
		{if}
			(L.$.Faremaster_Keypad) l0 $IntToStr $+ (S.$.Faremaster_Keypad)
		{endif}
	{endif}

	(L.L.Faremaster_Mainmenu_select) 4 >= (L.L.Faremaster_Mainmenu_select) 6 <= &&
	{if}
		l0 10 <
		(L.$.Faremaster_Keypad) $length 2 <= &&
		{if}
			(L.$.Faremaster_Keypad) l0 $IntToStr $+ (S.$.Faremaster_Keypad)
		{endif}
	{endif}
	
	(L.L.Faremaster_Mainmenu_select) 1 =
	{if}
		(L.$.Faremaster_Keypad) (S.$.Faremaster_Keypad_1)
	{endif}
	(L.L.Faremaster_Mainmenu_select) 2 =
	{if}
		(L.$.Faremaster_Keypad) (S.$.Faremaster_Keypad_2)
	{endif}	
	(L.L.Faremaster_Mainmenu_select) 3 =
	{if}
		(L.$.Faremaster_Keypad) (S.$.Faremaster_Keypad_3)
	{endif}
	(L.L.Faremaster_Mainmenu_select) 4 =
	{if}
		(L.$.Faremaster_Keypad) (S.$.Faremaster_Keypad_4)
	{endif}
	(L.L.Faremaster_Mainmenu_select) 5 =
	{if}
		(L.$.Faremaster_Keypad) (S.$.Faremaster_Keypad_5)
	{endif}
	(L.L.Faremaster_Mainmenu_select) 6 =
	{if}
		(L.$.Faremaster_Keypad) (S.$.Faremaster_Keypad_6)
	{endif}

{end}

{macro:Faremaster_Mainmenu}
	s0 (S.L.Faremaster_Mainmenu_select)
	
	l0 1 =
	{if}
		(L.$.Faremaster_Keypad_1) "" $= !
		{if}
			(L.$.Faremaster_Keypad_1) (S.$.Faremaster_Keypad) (S.$.Faremaster_Keypad_V)
		{else}
			"" (S.$.Faremaster_Keypad) (S.$.Faremaster_Keypad_V)
		{endif}
	{endif}
	l0 2 =
	{if}
		(L.$.Faremaster_Keypad_2) "" $= !
		{if}
			(L.$.Faremaster_Keypad_2) (S.$.Faremaster_Keypad) (S.$.Faremaster_Keypad_V)
		{else}
			"" (S.$.Faremaster_Keypad) (S.$.Faremaster_Keypad_V)
		{endif}
	{endif}
	l0 3 =
	{if}
		(L.$.Faremaster_Keypad_3) "" $= !
		{if}
			(L.$.Faremaster_Keypad_3) (S.$.Faremaster_Keypad) (S.$.Faremaster_Keypad_V)
		{else}
			"" (S.$.Faremaster_Keypad) (S.$.Faremaster_Keypad_V)
		{endif}
	{endif}
	l0 4 =
	{if}
		(L.$.Faremaster_Keypad_4) "" $= !
		{if}
			(L.$.Faremaster_Keypad_4) (S.$.Faremaster_Keypad) (S.$.Faremaster_Keypad_V)
		{else}
			"" (S.$.Faremaster_Keypad) (S.$.Faremaster_Keypad_V)
		{endif}
	{endif}
	l0 5 =
	{if}
		(L.$.Faremaster_Keypad_5) "" $= !
		{if}
			(L.$.Faremaster_Keypad_5) (S.$.Faremaster_Keypad) (S.$.Faremaster_Keypad_V)
		{else}
			"" (S.$.Faremaster_Keypad) (S.$.Faremaster_Keypad_V)
		{endif}
	{endif}
	l0 6 =
	{if}
		(L.$.Faremaster_Keypad_6) "" $= !
		{if}
			(L.$.Faremaster_Keypad_6) (S.$.Faremaster_Keypad) (S.$.Faremaster_Keypad_V)
		{else}
			"" (S.$.Faremaster_Keypad) (S.$.Faremaster_Keypad_V)
		{endif}
	{endif}
		
	
	
	(L.L.Faremaster_Mode) 2 =
	{if}
		l0 2 =
		{if}
			1 (S.L.Faremaster_Mode)
			"" (S.$.Faremaster_Keypad) (S.$.Faremaster_Keypad_V)
		{endif}
	{endif}
{end}

{macro:Faremaster_UMenu}
	s0 (S.L.Faremaster_Umenu_select)
	
	l0 1 =
	{if}
		3 (S.L.Faremaster_Mode)
		"" (S.$.Faremaster_Keypad_V) (S.$.Faremaster_Stop2) (S.$.Faremaster_Stop1) (S.$.Faremaster_Stop3) (S.$.Faremaster_Stop4) (S.$.Faremaster_Stop5)
	{endif}
	l0 2 =
	{if}
		90 (S.L.Faremaster_Mode)
		"" (S.$.Faremaster_Keypad_V) (S.$.Faremaster_Stop2) (S.$.Faremaster_Stop1) (S.$.Faremaster_Stop3) (S.$.Faremaster_Stop4) (S.$.Faremaster_Stop5)
	{endif}
	l0 4 =
	{if}
		92 (S.L.Faremaster_Mode)
		"" (S.$.Faremaster_Keypad_V) (S.$.Faremaster_Stop2) (S.$.Faremaster_Stop1) (S.$.Faremaster_Stop3) (S.$.Faremaster_Stop4) (S.$.Faremaster_Stop5)
	{endif}
	l0 5 =
	{if}
		91 (S.L.Faremaster_Mode)
		"" (S.$.Faremaster_Keypad_V) (S.$.Faremaster_Stop2) (S.$.Faremaster_Stop1) (S.$.Faremaster_Stop3) (S.$.Faremaster_Stop4) (S.$.Faremaster_Stop5)
	{endif}
	l0 6 =
	{if}
		(L.L.IBIS_Linie_Complex) 0 >
		{if}
			4 (S.L.Faremaster_Mode)
		{endif}
	{endif}
{end}

{macro:Faremaster_SMenu}
	s0 (S.L.Faremaster_Smenu_select)

	(L.L.Faremaster_Mode) 99 =
	(L.L.Faremaster_Smenu_select) 1 = &&
	{if}
		4 (S.L.Faremaster_Mode)
	{else}
		(L.L.Faremaster_Smenu_select) 1 =
		{if}
			99 (S.L.Faremaster_Mode)
			"" (S.$.Faremaster_Keypad_V) (S.$.Faremaster_Stop2) (S.$.Faremaster_Stop1) (S.$.Faremaster_Stop3) (S.$.Faremaster_Stop4) (S.$.Faremaster_Stop5)
		{endif}
	{endif}
	(L.L.Faremaster_Smenu_select) 9 =
	(L.L.Faremaster_Smenu_select) 10 = ||
	(L.L.Faremaster_Mode) 99 = &&
	(L.L.Faremaster_Ticket) 0 >= &&
	{if}
		1 (S.L.faremaster_druckt)
		(T.L.ev_printer_printing)
	{endif}
{end}

{macro:Keypad_Frame}
	(L.L.Keypad_Timegap) (L.S.Timegap) + (S.L.Keypad_Timegap) s0
	(L.L.Faremaster_Mode) 2 =
	{if}
		l0 0.75 <
		{if}
			(L.$.Faremaster_Keypad) "|" $+ (S.$.Faremaster_Keypad_V)
		{endif}
		l0 0.75 >
		l0 1.5 < &&
		{if}
			(L.$.Faremaster_Keypad) (S.$.Faremaster_Keypad_V)
		{endif}
		l0 1.5 >
		{if}
			0 (S.L.Keypad_Timegap)
		{endif}
	{endif}
	(L.L.Faremaster_Mode) 3 =
	{if}
		(L.L.Faremaster_Mainmenu_select) 1 >= (L.L.Faremaster_Mainmenu_select) 3 <= &&
		{if}
			l0 0.75 <
			{if}
				(L.$.Faremaster_Keypad) $length 3 >
				(L.$.Faremaster_Keypad) $length 5 < &&
				{if}
					(L.$.Faremaster_Keypad) 3 $SetLengthL $RemoveSpaces (S.$.Faremaster_Buffer1)
					(L.$.Faremaster_Keypad) 1 $SetLengthR $RemoveSpaces (S.$.Faremaster_Buffer2)
					(L.$.Faremaster_Buffer1) "    " $+ (L.$.Faremaster_Buffer2) $+ "|" $+ (S.$.Faremaster_Keypad_V)
				{endif}
				(L.$.Faremaster_Keypad) $length 5 =
				{if}
					(L.$.Faremaster_Keypad) 3 $SetLengthL $RemoveSpaces (S.$.Faremaster_Buffer1)
					(L.$.Faremaster_Keypad) 2 $SetLengthR $RemoveSpaces (S.$.Faremaster_Buffer2)
					(L.$.Faremaster_Buffer1) "    " $+ (L.$.Faremaster_Buffer2) $+ "|" $+ (S.$.Faremaster_Keypad_V)
				{endif}
				(L.$.Faremaster_Keypad) $length 3 <
				{if}
					(L.$.Faremaster_Keypad) "|" $+ (S.$.Faremaster_Keypad_V)
				{endif}		
				(L.$.Faremaster_Keypad) $length 3 =
				{if}
					(L.$.Faremaster_Keypad) "    " $+ "|" $+ (S.$.Faremaster_Keypad_V)
				{endif}	
			{endif}
			l0 0.75 >
			l0 1.5 < &&
			{if}
				(L.$.Faremaster_Keypad) $length 3 >
				(L.$.Faremaster_Keypad) $length 5 < &&
				{if}
					(L.$.Faremaster_Keypad) 3 $SetLengthL $RemoveSpaces (S.$.Faremaster_Buffer1)
					(L.$.Faremaster_Keypad) 1 $SetLengthR $RemoveSpaces (S.$.Faremaster_Buffer2)
					(L.$.Faremaster_Buffer1) "    " $+ (L.$.Faremaster_Buffer2) $+ (S.$.Faremaster_Keypad_V)
				{endif}
				(L.$.Faremaster_Keypad) $length 5 =
				{if}
					(L.$.Faremaster_Keypad) 3 $SetLengthL $RemoveSpaces (S.$.Faremaster_Buffer1)
					(L.$.Faremaster_Keypad) 2 $SetLengthR $RemoveSpaces (S.$.Faremaster_Buffer2)
					(L.$.Faremaster_Buffer1) "    " $+ (L.$.Faremaster_Buffer2) $+ (S.$.Faremaster_Keypad_V)
				{endif}
				(L.$.Faremaster_Keypad) $length 3 <=
				{if}
					(L.$.Faremaster_Keypad) (S.$.Faremaster_Keypad_V)
				{endif}
			{endif}
			l0 1.5 >
			{if}
				0 (S.L.Keypad_Timegap)
			{endif}
		{endif}	
		(L.L.Faremaster_Mainmenu_select) 4 >= (L.L.Faremaster_Mainmenu_select) 6 <= &&
		{if}
			l0 0.75 <
			{if}
				(L.$.Faremaster_Keypad) "|" $+ (S.$.Faremaster_Keypad_V)

			{endif}
			l0 0.75 >
			l0 1.5 < &&
			{if}
				(L.$.Faremaster_Keypad) (S.$.Faremaster_Keypad_V)
			{endif}
			l0 1.5 >
			{if}
				0 (S.L.Keypad_Timegap)
			{endif}		
		{endif}
	{endif}
{end}

{macro:Faremaster_SetRoute}
	0 (S.L.matrix_text_front) (S.L.matrix_text_fenster) (S.L.matrix_text_rear) (S.L.matrix_refresh_timer)
	(L.L.Faremaster_DestMode) 1 =
	{if}
		(L.L.Faremaster_RouteDir) 1 =
		{if}
			(L.L.Faremaster_RouteIndex) (S.L.IBIS_RouteIndex) (M.V.GetRouteTerminusIndex) (S.L.IBIS_TerminusIndex) (M.V.GetTerminusCode) (S.L.IBIS_TerminusCode) (L.L.IBIS_TerminusIndex) 5 (M.V.GetTerminusString) (S.$.IBIS_terminus_name)
			(L.L.Faremaster_RouteIndex) (S.L.IBIS_RouteIndex) (M.V.GetBusstopCount) (S.L.Faremaster_BusStopCount)
			0 (S.L.fare_Weiterschaltung)
			0  (S.L.Faremaster_BusStop)
			(M.V.GetTTBusstopIndex) (M.V.GetTTBusstopName) (S.$.Fare_IFIS_CurrentStop)
		{else}
			(L.L.Faremaster_RouteIndex) (S.L.IBIS_RouteIndex) (M.V.GetRouteTerminusIndex) (S.L.IBIS_TerminusIndex) (M.V.GetTerminusCode) (S.L.IBIS_TerminusCode) (L.L.IBIS_TerminusIndex) 5 (M.V.GetTerminusString) (S.$.IBIS_terminus_name)
			(L.L.Faremaster_RouteIndex) (S.L.IBIS_RouteIndex) (M.V.GetBusstopCount) (S.L.Faremaster_BusStopCount) 1 - (S.L.Faremaster_BusStop)
			(M.V.GetTTBusstopIndex) (M.V.GetTTBusstopName) (S.$.Fare_IFIS_CurrentStop)
		{endif}
		(L.L.IBIS_LinieKurs) s4 100 / trunc s5
		l5 5 =
		{if}
			l4 100 * 5 (M.V.GetDepotStringGlobal) $StrToFloat 0 max (S.L.IBIS_Linie_Suffix) + (S.L.IBIS_Linie_Complex)
		{endif}
		l5 8 =
		{if}
			l4 100 * 4 (M.V.GetDepotStringGlobal) $StrToFloat 0 max (S.L.IBIS_Linie_Suffix) + (S.L.IBIS_Linie_Complex)
		{endif}
		l5 9 =
		{if}
			l4 100 * 3 (M.V.GetDepotStringGlobal) $StrToFloat 0 max (S.L.IBIS_Linie_Suffix) + (S.L.IBIS_Linie_Complex)
		{endif}
	{endif}
	1 (S.L.Faremaster_ShowInfo)
	(L.L.IBIS_TerminusIndex) 5 (M.V.GetTerminusString) (S.$.Faremaster_terminus_name)
'	(L.L.CTI_entwerter)
'	{if}
'		(T.L.ev_IBIS_entwerter_ELGEBA)
'	{else}
'		(T.L.ev_IBIS_entwerter)
'	{endif}
	1 (S.L.Faremaster_Route_active)
{end}

{macro:Faremaster_Header}

	(L.S.Time) 3600 / s0 trunc s1 "02" $IntToStrEnh (S.$.Faremaster_Stunde) 
	(L.S.Time) 3600 / s0 trunc s1 l0 l1 - 60 * "02" $IntToStrEnh (S.$.Faremaster_Minute)
	(L.$.Faremaster_Stunde) $StrToFloat 60 * 60 * s2
	(L.$.Faremaster_Minute) $StrToFloat 60 * s3
	""
	(L.S.Time) l2 l3 + - 10 <
	{if}
		0 $IntToStr (L.S.Time) l2 l3 + - $IntToStr $+ (S.$.Faremaster_Sekunde)
	{else}
		(L.S.Time) l2 l3 + - $IntToStr $+ (S.$.Faremaster_Sekunde)
	{endif}

				
	(M.V.GetTTDelay) s1 60 / s0
	l0 abs trunc " 2" $IntToStrEnh (S.$.Faremaster_Delay_min)
	l0 abs l0 abs trunc - 6 * $IntToStr $StrToFloat 10 * "02" $IntToStrEnh (S.$.Faremaster_Delay_sec)
	l1 abs 6 >=
	{if}
		l0 0 >
		{if}
			"+" (S.$.Faremaster_Delay_state)
		{else}
			"-" (S.$.Faremaster_Delay_state)
		{endif}
	{else}
		" " (S.$.Faremaster_Delay_state)
	{endif}

	(L.L.schedule_active)
	{if}
	(L.L.Faremaster_ShowInfo) !
		{if}
			" " "--- --" $+ "    " $+ (L.$.Faremaster_Stunde) $+ ":" $+ (L.$.Faremaster_Minute) $+ ":" $+ (L.$.Faremaster_Sekunde) $+ "    " $+ (L.$.Faremaster_Delay_state) $+ (L.$.Faremaster_Delay_min) $+ ":" $+ (L.$.Faremaster_Delay_sec) $+ (S.$.Faremaster_Header)
		{else}
			(L.L.IBIS_LinieKurs) 0 =
			{if}
				" " "--- --" $+ "    " $+ (L.$.Faremaster_Stunde) $+ ":" $+ (L.$.Faremaster_Minute) $+ ":" $+ (L.$.Faremaster_Sekunde) $+ "    " $+ (L.$.Faremaster_Delay_state) $+ (L.$.Faremaster_Delay_min) $+ ":" $+ (L.$.Faremaster_Delay_sec) $+ (S.$.Faremaster_Header)
			{else}
				" " (L.L.IBIS_LinieKurs) "03" $IntToStrEnh $+ " " $+ (L.L.IBIS_Route) "02" $IntToStrEnh $+ "    " $+ (L.$.Faremaster_Stunde) $+ ":" $+ (L.$.Faremaster_Minute) $+ ":" $+ (L.$.Faremaster_Sekunde) $+ "    " $+ (L.$.Faremaster_Delay_state) $+ (L.$.Faremaster_Delay_min) $+ ":" $+ (L.$.Faremaster_Delay_sec) $+ (S.$.Faremaster_Header)
			{endif}
		{endif}
	{else}
	(L.L.Faremaster_ShowInfo) !
		{if}
			" " "--- --" $+ "    " $+ (L.$.Faremaster_Stunde) $+ ":" $+ (L.$.Faremaster_Minute) $+ ":" $+ (L.$.Faremaster_Sekunde) $+ "    " $+ " --:--" (S.$.Faremaster_Header)
		{else}
			(L.L.IBIS_LinieKurs) 0 =
			{if}
				" " "--- --" $+ "    " $+ (L.$.Faremaster_Stunde) $+ ":" $+ (L.$.Faremaster_Minute) $+ ":" $+ (L.$.Faremaster_Sekunde) $+ "    " $+ " --:--" $+ (S.$.Faremaster_Header)
			{else}
				" " (L.L.IBIS_LinieKurs) "03" $IntToStrEnh $+ " " $+ (L.L.IBIS_Route) "02" $IntToStrEnh $+ "    " $+ (L.$.Faremaster_Stunde) $+ ":" $+ (L.$.Faremaster_Minute) $+ ":" $+ (L.$.Faremaster_Sekunde) $+ "    " $+ " --:--" $+ (S.$.Faremaster_Header)
			{endif}
		{endif}
	{endif}		
{end}

{macro:Faremaster_PlayAnnouncement}
	(L.L.IBIS_RouteIndex) (L.L.Faremaster_BusStop) (M.V.GetRouteBusstopIdent) (S.$.Fare_busstop)
	(L.L.Faremaster_BusStop) 0 >
	{if}

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

		(L.L.IBIS_RouteIndex) (M.V.GetBusstopCount) 1 - (L.L.Faremaster_BusStop) <=
		{if}
			"_#terminus" $+
		{endif}

		".wav" $+
		(T.F.ev_IBIS_Ansagen)
	{endif}
{end}

{macro:p_display_frame}
	(L.L.elec_busbar_main) (S.L.p_display_power)

	(L.L.p_display_slidepos) -0.30 <
	(L.L.p_display_slidepos) 0.94 > ||
	{if} 
		1 (S.L.p_display_changemode_allowed)
	{else} 
		0 (S.L.p_display_changemode_allowed)
	{endif} 

	(L.L.p_display_slidepos) 0 >
	{if}
		1 (S.L.p_display_message_showed)
	{else}
		0 (S.L.p_display_message_showed)
	{endif}
	
	(L.L.elec_busbar_main) (L.L.p_display_power) &&
	{if}
		(L.L.p_display_timer_start) (L.S.timegap) + 21 min (S.L.p_display_timer_start) s6

		l6 20 <
		{if}
			1 (S.L.p_display_mode)
		{endif}

		l6 20 > (L.L.p_display_changemode_allowed) &&
		{if}
			2 (S.L.p_display_mode)
		{endif}

		(L.L.Faremaster_Route_active) (L.L.schedule_active) && (L.L.p_display_changemode_allowed) &&
		{if}
			3 (S.L.p_display_mode)
		{else}
			l6 20 > (L.L.p_display_changemode_allowed) &&
			{if}
				2 (S.L.p_display_mode)
			{endif}
		{endif}
	{else}


		0 (S.L.p_display_mode) (S.L.p_display_timer_start)
	{endif}

	(L.L.p_display_mode) 0 =
	{if}
		"" (S.$.p_display_textout)
		0 (S.L.p_display_sliding)
	{endif}

	(L.L.p_display_mode) 1 =
	{if}
		" " (S.$.p_display_textout)
		1 (S.L.p_display_sliding)
	{endif}

	(L.L.p_display_mode) 2 =
	{if}
		"FARHRTENDE. BITTE VERGESSEN SIE NICHTS." (S.$.p_display_textout)
		1 (S.L.p_display_sliding)
	{endif}

	(L.L.p_display_mode) 3 =
	{if}
		"Nachster Halt : " (L.L.IBIS_RouteIndex) 1 (L.L.Faremaster_BusStopCount) min (M.V.GetRouteBusstopIdent) (M.V.GetBusstopIndex) 3 (M.V.GetBusstopString) $+
		(S.$.p_display_textout)
		1 (S.L.p_display_sliding)

		(L.L.p_display_stopmode) (L.L.p_display_changemode_allowed) &&
		{if}
			4 (S.L.p_display_mode)
		{endif}
	{endif}

	(L.L.p_display_mode) 4 =
	{if}
		"Linie " (L.L.IBIS_Linie_Complex) $IntToStr 2 $cutEnd $+ " Nach " $+  (L.$.Faremaster_terminus_name) $+ "." $+ 
		(S.$.p_display_textout)
		1 (S.L.p_display_sliding)

		(L.L.p_display_stopmode) ! (L.L.p_display_changemode_allowed) &&
		{if}
			3 (S.L.p_display_mode)
		{endif}

	{endif}

	(L.L.p_display_mode) 5 =
	{if}
		"Linie " (L.L.IBIS_Linie_Complex) $IntToStr 2 $cutEnd  $+ " Nach " $+  (L.$.Faremaster_terminus_name) $+ "." $+ 
		(S.$.p_display_textout)
		1 (S.L.p_display_sliding)

		(L.L.p_display_stopmode) ! (L.L.p_display_changemode_allowed) &&
		{if}
			3 (S.L.p_display_mode)
		{endif}
	{endif}

	(L.L.p_display_power)
	{if}
		(L.L.door_0) 0.5 >
		(L.L.door_01) 0.5 > ||
		(L.L.door_1) 0.5 > ||
		(L.L.door_11) 0.5 > ||
		(L.L.door_2) 0.5 > ||
		{if}
			1 (S.L.p_display_stopmode)
		{else}
			0 (S.L.p_display_stopmode)
		{endif}
	{else}
		0 (S.L.p_display_stopmode)
	{endif}

	(L.L.p_display_sliding) 1 =
	{if}
		(L.L.p_display_slidetimer) (L.S.timegap) + (S.L.p_display_slidetimer)
		0.05 <
		{if}
			(L.L.p_display_slidepos) 1.01 <
			{if}
				(L.L.p_display_slidepos) 0.01 + (S.L.p_display_slidepos)
			{else}
				-0.34 (S.L.p_display_slidepos)
			{endif}
		{else}
			0 (S.L.p_display_slidetimer)
		{endif}
	{else}
		0 (S.L.p_display_slidetimer)
		-0.34 (S.L.p_display_slidepos)
	{endif}
{end}

{macro:p_display_hour_calc}
	(L.S.Time) 3600 / (S.L.p_display_hours)
	(L.S.Time) 3600 % 60 / (S.L.p_display_minutes)
{end}