'########################################
'#                                      #
'#              MAIN SCRIPT             #
'#                                      #
'#    MAN Standarddoppeldecker SD200    #
'#                                      #
'#             Bauart SD85              #
'#                                      #
'########################################

'(c) 01.11.2012 Marcel Kuhnt, Rüdiger Hülsmann

'Script Version: 1.0
'Omsi release: 1.0


'Revision History:
'- Marcel Kuhnt		10.08.2009	Added Revision History
'- Marcel Kuhnt		30.11.2010	Bugfix: press [D] in AI mode if motor running but neutral
'- Marcel Kuhnt		04.07.2011	Added light repair
'- Marcel Kuhnt		11.12.2012	Added elec repair

'------------------------------------------------------------------------------------------


'######################
'	Hauptteil
'######################

{init}
	(M.L.engine_Init)
	(M.L.Antrieb_Init)
	(M.L.Elec_Init)
	(M.L.Door_Init)
	(M.L.wiper_init)
	(M.L.lights_init)
	(M.L.bremse_init)
'	(M.L.rollband_init)
	(M.L.cockpit_init)
	(M.L.heizung_init)
	(M.L.Matrix_init)
	(M.L.IBIS_init)
	(M.L.Collision_Init)
	(M.L.ticketprinter_init)
	(M.L.articulation_init)
	(M.L.VDV_init)
	(M.L.Innenanzeige_multi_init)
	(M.L.CTI_Display_init)
	8 random s0
	8 random s1
	"Werbung\Werbung" l0 $IntToStr $+ ".jpg" $+ (S.$.Werbung)
	"Werbung\Werbung" l1 $IntToStr $+ ".jpg" $+ (S.$.Werbung1)	
{end}

{frame}
	1 (S.L.is_articulated)
	(M.L.Engine_Frame)
	(M.L.Antrieb_Frame)
	(M.L.Elec_Frame)
	(M.L.Door_frame)
	(M.L.cockpit_frame)
	(M.L.lights_frame)
	(M.L.wiper_frame)
	(M.L.Auspuff_Frame)
	(M.L.bremse_frame)
	(M.L.klappern_frame)
	(M.L.FF_frame)
	(M.L.rain_frame)
	(M.L.dirt_frame)
	(M.L.sound_volume_frame)
	(M.L.heizung_frame)
	(M.L.IBIS_frame)
	(M.L.Matrix_frame)
	(M.L.cashdesk_frame)
	(M.L.ticketprinter_frame)
	(M.L.Collision_Frame)
	(M.L.articulation_frame)
	(L.L.AI) !
	{if}
		(M.L.wackeln_y)
	{endif}
	(M.L.spray_frame)
	(M.L.VDV_frame)
	(M.L.Innenanzeige_multi_frame)
	(M.L.CTI_Display_frame)
	
	(L.L.Display_CTI_enabled) !
	{if}
		(L.L.vis_hubcap_m_NG_Repaint) (S.L.vis_hubcap_m_NG)
		(L.L.vis_hubcap_v_NG_Repaint) (S.L.vis_hubcap_v_NG)
		(L.L.vis_hubcap_h_NG_Repaint) (S.L.vis_hubcap_h_NG)
		(L.L.vis_hubcap_v_alt_NG_Repaint) (S.L.vis_hubcap_v_alt_NG)
		(L.L.vis_hubcap_h_alt_NG_Repaint) (S.L.vis_hubcap_h_alt_NG)
		(L.L.vis_hubcap_m_alt_NG_Repaint) (S.L.vis_hubcap_m_alt_NG)
		(L.L.vis_hubcap_m_Repaint) (S.L.vis_hubcap_m)
		(L.L.vis_hubcap_v_Repaint) (S.L.vis_hubcap_v)
		(L.L.vis_hubcap_h_Repaint) (S.L.vis_hubcap_h)
		(L.L.vis_hubcap_v_alt_Repaint) (S.L.vis_hubcap_v_alt)
		(L.L.vis_hubcap_h_alt_Repaint) (S.L.vis_hubcap_h_alt)
		(L.L.vis_hubcap_m_alt_Repaint) (S.L.vis_hubcap_m_alt)
		(L.L.vis_clima_Repaint) (S.L.vis_clima)
		(L.L.vis_clima_h_Repaint) (S.L.vis_clima_h)
		(L.L.vis_camera_Repaint) (S.L.vis_camera)
		(L.L.vis_3rd_brakelight_Repaint) (S.L.vis_3rd_brakelight)
		(L.L.vis_havelschiss_innenraum_Repaint) (S.L.vis_havelschiss_innenraum)
		(L.L.vis_bvg_spiegel_Repaint) (S.L.vis_bvg_spiegel)
		(L.L.vis_vogel_sitze_Repaint) (S.L.vis_vogel_sitze)
		(L.L.vis_entwerter_Repaint) (S.L.vis_entwerter)
		(L.L.vis_infrarot_Repaint) (S.L.vis_infrarot)
		(L.L.vis_mirrors_int_Repaint) (S.L.vis_mirrors_int)
		(L.L.vis_MANLOGO_vorn_Repaint) (S.L.vis_MANLOGO_vorn)
		(L.L.vis_MANLOGO_hinten_Repaint) (S.L.vis_MANLOGO_hinten)
		(L.L.vis_MANLOGO_innen_Repaint) (S.L.vis_MANLOGO_innen)
		(L.L.vis_MANLOGO_seite_Repaint) (S.L.vis_MANLOGO_seite)
		(L.L.vis_haltefaden_Repaint) (S.L.vis_haltefaden)
		(L.L.vis_Innenanzeige_Repaint) (S.L.vis_Innenanzeige)
		(L.L.vis_Seitenschild_Repaint) (S.L.vis_Seitenschild)
		(L.L.vis_Seitenschild_vorn_Repaint) (S.L.vis_Seitenschild_vorn)
		(L.L.vis_speakers_Repaint) (S.L.vis_speakers)
		(L.L.vis_dooropener_body_Repaint) (S.L.vis_dooropener_body)
		(L.L.vis_windows_splitted_Repaint) (S.L.vis_windows_splitted)
		(L.L.vis_has_rampe_Repaint) (S.L.vis_has_rampe)
		(L.L.vis_nebelscheinwerfer_Repaint) (S.L.vis_nebelscheinwerfer)
		(L.L.vis_schmutzfaenger_Repaint) (S.L.vis_schmutzfaenger)
		(L.L.vis_doorwarn_Repaint) (S.L.vis_doorwarn)
		(L.L.vis_Matrixtype_Repaint) (S.L.vis_Matrixtype)
		(L.L.vis_Fonttype_Repaint) (S.L.vis_Fonttype)
		(L.L.vis_driverside_matrix_Repaint) (S.L.vis_driverside_matrix)
		(L.L.vis_rearend_bigmatrix_Repaint) (S.L.vis_rearend_bigmatrix)
		(L.L.vis_Motor_PWR_mode_Repaint) (S.L.vis_Motor_PWR_mode)
		(L.L.vis_doortype_v_Repaint) (S.L.vis_doortype_v)
		(L.L.vis_doortype_m_Repaint) (S.L.vis_doortype_m)
		(L.L.vis_doortype_h_Repaint) (S.L.vis_doortype_h)
		(L.L.vis_doortype_gh_Repaint) (S.L.vis_doortype_gh)
		(L.L.vis_number_Repaint) (S.L.vis_number)
		(L.L.var_unihof_Repaint) (S.L.var_unihof)
		(L.L.vis_adverts_B_Repaint) (S.L.vis_adverts_B)
		(L.L.vis_adverts_C_Repaint) (S.L.vis_adverts_C)
		(L.L.vis_adverts_D_Repaint) (S.L.vis_adverts_D)
		(L.L.vis_haltestange_vorn_Repaint) (S.L.vis_haltestange_vorn)
		(L.L.var_doorusage_Repaint) (S.L.var_doorusage)
	{endif}
	
'	Kennzeichengröße

	(L.$.ident) $length 9 >
	{if}
		1 (S.L.kennzeichengroesse)
	{else}
		0 (S.L.kennzeichengroesse)
	{endif}
'	Türöffner CTI verschachtelung:

	(L.L.vis_doortype_v) 1 =
	{if}
		(L.L.vis_BVG_Spiegel)
		{if}
			1 (S.L.Spiegel_BVG_schieb)
			0 (S.L.Spiegel_schieb)
		{else}
			1 (S.L.Spiegel_schieb)
			0 (S.L.Spiegel_BVG_schieb)
		{endif}
		0 (S.L.Spiegel_BVG) (S.L.Spiegel) (S.L.Spiegel_schwenk) (S.L.Spiegel_BVG_schwenk)
	{endif}
	(L.L.vis_doortype_v) 2 =
	{if}
		(L.L.vis_BVG_Spiegel)
		{if}
			1 (S.L.Spiegel_BVG_schwenk)
			0 (S.L.Spiegel_schwenk)
		{else}
			1 (S.L.Spiegel_schwenk)
			0 (S.L.Spiegel_BVG_schwenk)
		{endif}
		0 (S.L.Spiegel_BVG) (S.L.Spiegel)
		0 (S.L.Spiegel_BVG_schieb) (S.L.Spiegel_schieb)
	{endif}
	(L.L.vis_doortype_v) !
	{if}
		(L.L.vis_BVG_Spiegel)
		{if}
			1 (S.L.Spiegel_BVG)
			0 (S.L.Spiegel)
		{else}
			1 (S.L.Spiegel)
			0 (S.L.Spiegel_BVG)
		{endif}
		0 (S.L.Spiegel_schieb) (S.L.Spiegel_BVG_schieb) (S.L.Spiegel_schwenk) (S.L.Spiegel_BVG_schwenk)
	{endif}
	
	(L.L.vis_dooropener_body)
	(L.L.var_doorusage) &&
	{if}
		(L.L.vis_doortype_m) 1 =
		{if}
			1 (S.L.dooropener_doors_v)
			0 (S.L.dooropener_body_v) (S.L.dooropener_doors_schwenk)
		{else}
			(L.L.vis_doortype_m) 2 =
			{if}
				1 (S.L.dooropener_doors_schwenk)
				0 (S.L.dooropener_body_v) (S.L.dooropener_doors_v)
			{else}
				(L.L.vis_doortype_m) !
				{if}
					1 (S.L.dooropener_body_v)
					0 (S.L.dooropener_doors_v) (S.L.dooropener_doors_schwenk)
				{endif}
			{endif}
		{endif}
		(L.L.vis_doortype_h) 1 =
		{if}
			1 (S.L.dooropener_doors_h)
			0 (S.L.dooropener_body_h) (S.L.dooropener_doors_schwenk_h)
		{else}
			(L.L.vis_doortype_h) 2 =
			{if}
				1 (S.L.dooropener_doors_schwenk_h)
				0 (S.L.dooropener_body_h) (S.L.dooropener_doors_h)
			{else}
				(L.L.vis_doortype_h) !
				{if}
					1 (S.L.dooropener_body_h)
					0 (S.L.dooropener_doors_h) (S.L.dooropener_doors_schwenk_h)
				{endif}
			{endif}
		{endif}
		(L.L.vis_doortype_gh) 1 =
		{if}
			1 (S.L.dooropener_doors_gh)
			0 (S.L.dooropener_body_gh) (S.L.dooropener_doors_schwenk_gh)
		{else}
			(L.L.vis_doortype_gh) 2 =
			{if}
				1 (S.L.dooropener_doors_schwenk_gh)
				0 (S.L.dooropener_body_gh) (S.L.dooropener_doors_gh)
			{else}
				(L.L.vis_doortype_gh) !
				{if}
					1 (S.L.dooropener_body_gh)
					0 (S.L.dooropener_doors_gh) (S.L.dooropener_doors_schwenk_gh)
				{endif}
			{endif}
		{endif}
	{else}			
		0 (S.L.dooropener_body_h)
		0 (S.L.dooropener_doors_h) (S.L.dooropener_doors_schwenk_h)
		0 (S.L.dooropener_body_gh)
		0 (S.L.dooropener_doors_gh) (S.L.dooropener_doors_schwenk_gh)
		0 (S.L.dooropener_body_v)
		0 (S.L.dooropener_doors_v) (S.L.dooropener_doors_schwenk)
	{endif}
'	Klappsitz durch Fahrgast
	0 (M.V.GetHumanCountOnSeat) (S.L.klappsitz_r)
	1 (M.V.GetHumanCountOnSeat) (S.L.klappsitz_l)


'...............................
'AI:

	(L.L.AI_Engine) 0.5 >
	(L.L.engine_on) 0.5 <
	(L.L.antrieb_getr_gangvorwahl) 4 = ! ||
	&&
	{if}
		0 (S.L.bremse_feststell_sw) (S.L.bremse_feststell)
		1 (S.L.engine_injection_on) (S.L.elec_busbar_main_sw)
		400 (S.L.engine_n)
		4 (S.L.antrieb_getr_gangvorwahl)
		1 (S.L.engine_on) (S.L.vdv_on) (S.L.cp_key_pull)
		3 (S.L.key_mode)
		0.4 (S.L.cp_key_rot)
		900000 (S.L.bremse_p_tank01) (S.L.bremse_p_tank02) (S.L.bremse_p_tank03) (S.L.bremse_p_tank04) (S.L.bremse_p_leitung01) (S.L.bremse_p_leitung02)
		400000 (S.L.bremse_p_balg_0_R) (S.L.bremse_p_balg_0_L) (S.L.bremse_p_balg_1_R) (S.L.bremse_p_balg_1_L) 
	{endif}

	(L.L.AI_Engine) -0.5 <
	(L.L.engine_on) 0.5 >
	&&
	{if}
		0 (S.L.engine_on)
		0 (S.L.engine_injection_on)
		1 (S.L.bremse_feststell_sw) (S.L.bremse_feststell)
		2 (S.L.key_mode)
		0.2 (S.L.cp_key_rot)
	{endif}

	(L.L.AI)
	{if}
		(L.L.Brake) (C.L.max_bremskraft) * (S.L.Brakeforce)
		1 (S.L.elec_busbar_main)
		(S.L.elec_busbar_avail)
	{endif}

{end}

'----------------------------------
'Crash:

{trigger:collision}
	(M.L.Collision_Trigger)
{end}


'----------------------------------
'malfunction reset:


{trigger:malfunction_reset}
	(M.L.Collision_Malfunction_Reset)
	(M.L.Elec_Malfunction_Reset)
	(M.L.lights_repair)
{end}


'----------------------------------
'malfunction time calc:

{trigger:malfunction_gettime}
	0 s0
	(M.L.Collision_Malfunction_TimeCalc)
	(M.L.Elec_Malfunction_TimeCalc)
	(M.L.lights_repair_timecalc)
	l0
{end}