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

'(c) 10.08.2009 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

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


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

{init}
	1 (S.L.Daueranimation)
	(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.cockpit_init)
	(M.L.heizung_init)
	(M.L.Matrix_init)
	(M.L.IBIS_init)
	(M.L.IBIS_GMV_init)
	(M.L.Collision_Init)
	(M.L.VDV_init)
	(M.L.articulation_init)
{end}

{frame}
	(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.IBIS_GMV_frame)
	(M.L.Matrix_frame)
	(M.L.wimpel_frame)
	(M.L.cashdesk_frame)
	(M.L.VDV_Frame)
	(M.L.articulation_frame)
	
	

'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)
		400 (S.L.engine_n)
		4 (S.L.antrieb_getr_gangvorwahl)
		1 (S.L.engine_on)
	{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)
	{endif}
	1 (S.L.Refresh_Strings)


'setvar logic:
'	visvar_interior_klapa_type_front
'	0	std
'	1	std dbl
'	2	new
'	3	new dbl

	(L.L.vis_interior_klapa_type) 0 >
	{if}
		(L.L.vis_cab_type) 3 >
		{if}
			3 (S.L.visvar_interior_klapa_type_front)
		{else}
			2 (S.L.visvar_interior_klapa_type_front)
		{endif}
	{else}
		(L.L.vis_cab_type) 3 >
		{if}
			1 (S.L.visvar_interior_klapa_type_front)
		{else}
			0 (S.L.visvar_interior_klapa_type_front)
		{endif}
	{endif}

	(L.L.vis_interior_ceiling_type) 1 >
	{if}
		(L.L.vis_AC_type_driver) 0 >
		{if}
			2 (S.L.visvar_AC_type_driver)
		{endif}
	{else}
		(L.L.vis_AC_type_driver) 0 >
		{if}
			1 (S.L.visvar_AC_type_driver)
		{else}
			0 (S.L.visvar_AC_type_driver)
		{endif}
	{endif}

	(L.L.lights_fern) 0 >
	{if}

		(L.L.vis_lights_front_type) 0 =
		{if}
			1 (S.L.lights_fern_06)
		{else}
			0 (S.L.lights_fern_06)
		{endif}

		(L.L.vis_lights_front_type) 1 =
		{if}
			1 (S.L.lights_fern_09)
		{else}
			0 (S.L.lights_fern_09)
		{endif}

		(L.L.vis_lights_front_type) 2 =
		{if}
			1 (S.L.lights_fern_13)
		{else}
			0 (S.L.lights_fern_13)
		{endif}

		(L.L.vis_lights_front_type) 3 =
		{if}
			1 (S.L.lights_fern_16)
		{else}
			0 (S.L.lights_fern_16)
		{endif}

	{else}
		0 (S.L.lights_fern_06) (S.L.lights_fern_09) (S.L.lights_fern_13) (S.L.lights_fern_16)
	{endif}

	(L.L.lights_nebelschluss) 0 >
	{if}

		(L.L.vis_lights_front_type) 0 =
		{if}
			1 (S.L.lights_nebelschluss_06)
		{else}
			0 (S.L.lights_nebelschluss_06)
		{endif}

		(L.L.vis_lights_front_type) 1 =
		{if}
			1 (S.L.lights_nebelschluss_09)
		{else}
			0 (S.L.lights_nebelschluss_09)
		{endif}

		(L.L.vis_lights_front_type) 2 =
		{if}
			1 (S.L.lights_nebelschluss_13)
		{else}
			0 (S.L.lights_nebelschluss_13)
		{endif}

		(L.L.vis_lights_front_type) 3 =
		{if}
			1 (S.L.lights_nebelschluss_16)
		{else}
			0 (S.L.lights_nebelschluss_16)
		{endif}

	{else}
		0 (S.L.lights_nebelschluss_06) (S.L.lights_nebelschluss_09) (S.L.lights_nebelschluss_13) (S.L.lights_nebelschluss_16)
	{endif}

	(L.L.lights_abbl) 0 >
	{if}

		(L.L.vis_lights_front_type) 0 =
		{if}
			1 (S.L.lights_abbl_06)
		{else}
			0 (S.L.lights_abbl_06)
		{endif}

		(L.L.vis_lights_front_type) 1 =
		{if}
			1 (S.L.lights_abbl_09)
		{else}
			0 (S.L.lights_abbl_09)
		{endif}

		(L.L.vis_lights_front_type) 2 =
		{if}
			1 (S.L.lights_abbl_13)
		{else}
			0 (S.L.lights_abbl_13)
		{endif}

		(L.L.vis_lights_front_type) 3 =
		{if}
			1 (S.L.lights_abbl_16)
		{else}
			0 (S.L.lights_abbl_16)
		{endif}

	{else}
		0 (S.L.lights_abbl_06) (S.L.lights_abbl_09) (S.L.lights_abbl_13) (S.L.lights_abbl_16)
	{endif}

	(L.L.lights_blinker_l) 0 >
	{if}

		(L.L.vis_lights_front_type) 0 =
		{if}
			1 (S.L.lights_blinker_l_06)
		{else}
			0 (S.L.lights_blinker_l_06)
		{endif}

		(L.L.vis_lights_front_type) 1 =
		{if}
			1 (S.L.lights_blinker_l_09)
		{else}
			0 (S.L.lights_blinker_l_09)
		{endif}

		(L.L.vis_lights_front_type) 2 =
		{if}
			1 (S.L.lights_blinker_l_13)
		{else}
			0 (S.L.lights_blinker_l_13)
		{endif}

		(L.L.vis_lights_front_type) 3 =
		{if}
			1 (S.L.lights_blinker_l_16)
		{else}
			0 (S.L.lights_blinker_l_16)
		{endif}

	{else}
		0 (S.L.lights_blinker_l_06) (S.L.lights_blinker_l_09) (S.L.lights_blinker_l_13) (S.L.lights_blinker_l_16)
	{endif}

	(L.L.lights_blinker_r) 0 >
	{if}

		(L.L.vis_lights_front_type) 0 =
		{if}
			1 (S.L.lights_blinker_r_06)
		{else}
			0 (S.L.lights_blinker_r_06)
		{endif}

		(L.L.vis_lights_front_type) 1 =
		{if}
			1 (S.L.lights_blinker_r_09)
		{else}
			0 (S.L.lights_blinker_r_09)
		{endif}

		(L.L.vis_lights_front_type) 2 =
		{if}
			1 (S.L.lights_blinker_r_13)
		{else}
			0 (S.L.lights_blinker_r_13)
		{endif}

		(L.L.vis_lights_front_type) 3 =
		{if}
			1 (S.L.lights_blinker_r_16)
		{else}
			0 (S.L.lights_blinker_r_16)
		{endif}

	{else}
		0 (S.L.lights_blinker_r_06) (S.L.lights_blinker_r_09) (S.L.lights_blinker_r_13) (S.L.lights_blinker_r_16)
	{endif}

	(L.L.drl) 0 >
	{if}

		(L.L.vis_lights_front_type) 0 =
		{if}
			1 (S.L.drl_06)
		{else}
			0 (S.L.drl_06)
		{endif}

		(L.L.vis_lights_front_type) 1 =
		{if}
			1 (S.L.drl_09)
		{else}
			0 (S.L.drl_09)
		{endif}

		(L.L.vis_lights_front_type) 2 =
		{if}
			1 (S.L.drl_13)
		{else}
			0 (S.L.drl_13)
		{endif}

		(L.L.vis_lights_front_type) 3 =
		{if}
			1 (S.L.drl_16)
		{else}
			0 (S.L.drl_16)
		{endif}

	{else}
		0 (S.L.drl_06) (S.L.drl_09) (S.L.drl_13) (S.L.drl_16)
	{endif}

	(L.L.lights_stand) 0 >
	{if}

		(L.L.vis_lights_front_type) 0 =
		{if}
			1 (S.L.lights_stand_06)
		{else}
			0 (S.L.lights_stand_06)
		{endif}

		(L.L.vis_lights_front_type) 1 =
		{if}
			1 (S.L.lights_stand_09)
		{else}
			0 (S.L.lights_stand_09)
		{endif}

		(L.L.vis_lights_front_type) 2 =
		{if}
			1 (S.L.lights_stand_13)
		{else}
			0 (S.L.lights_stand_13)
		{endif}

		(L.L.vis_lights_front_type) 3 =
		{if}
			1 (S.L.lights_stand_16)
		{else}
			0 (S.L.lights_stand_16)
		{endif}

	{else}
		0 (S.L.lights_stand_06) (S.L.lights_stand_09) (S.L.lights_stand_13) (S.L.lights_stand_16)
	{endif}

	(L.L.drl) 0 >
	(L.L.vis_lights_front_type_additional_DRL) 1 = &&
	{if}
		1 (S.L.drl_AD)
	{else}
		0 (S.L.drl_AD)
	{endif}

	(L.L.lights_nebelschluss) 0 >
	(L.L.vis_lights_front_type_additional_DRL) 2 = &&
	{if}
		1 (S.L.drl_AD2)
	{else}
		0 (S.L.drl_AD2)
	{endif}

	(L.L.vis_engine_type) 0 =
	(L.L.vis_engine_type) 7 = ||
	(L.L.vis_engine_type) 9 = ||
	(L.L.vis_engine_type) 10 = ||
	{if}
		0 (S.L.visvar_enginetype_interior)
	{endif}

	(L.L.vis_engine_type) 1 =
	(L.L.vis_engine_type) 2 = ||
	{if}
		1 (S.L.visvar_enginetype_interior)
	{endif}

	(L.L.vis_engine_type) 3 =
	{if}
		2 (S.L.visvar_enginetype_interior)
	{endif}

	(L.L.vis_engine_type) 4 =
	(L.L.vis_engine_type) 12 = ||
	{if}
		3 (S.L.visvar_enginetype_interior)
	{endif}

	(L.L.vis_engine_type) 5 =
	{if}
		4 (S.L.visvar_enginetype_interior)
	{endif}

	(L.L.vis_engine_type) 6 =
	(L.L.vis_engine_type) 8 = ||
	(L.L.vis_engine_type) 11 = ||
	{if}
		5 (S.L.visvar_enginetype_interior)
	{endif}

	(L.L.vis_engine_type) 0 =
	(L.L.vis_engine_type) 1 = ||
	(L.L.vis_engine_type) 2 = ||
	(L.L.vis_engine_type) 3 = ||
	(L.L.vis_engine_type) 5 = ||
	(L.L.vis_engine_type) 7 = ||
	(L.L.vis_engine_type) 9 = ||
	(L.L.vis_engine_type) 10 = ||
	{if}
		0 (S.L.visvar_enginetype_wagenkasten)
	{endif}

	(L.L.vis_engine_type) 4 =
	(L.L.vis_engine_type) 6 = ||
	(L.L.vis_engine_type) 8 = ||
	(L.L.vis_engine_type) 11 = ||
	(L.L.vis_engine_type) 12 = ||
	{if}
		1 (S.L.visvar_enginetype_wagenkasten)
	{endif}

	(L.L.vis_engine_type) 4 =
	(L.L.vis_engine_type) 12 = ||
	{if}
'	siedzenia euro 6		
		(L.L.vis_seat_type) 0 =
		{if}
			10 (S.L.visvar_seat_type_back)
		{endif}

		(L.L.vis_seat_type) 1 =
		{if}
			11 (S.L.visvar_seat_type_back)
		{endif}
		
		(L.L.vis_seat_type) 2 =
		{if}
			12 (S.L.visvar_seat_type_back)
		{endif}

		(L.L.vis_seat_type) 3 =
		{if}
			13 (S.L.visvar_seat_type_back)
		{endif}

		(L.L.vis_seat_type) 4 =
		{if}
			14 (S.L.visvar_seat_type_back)
		{endif}

		(L.L.vis_seat_type) 5 =
		{if}
			15 (S.L.visvar_seat_type_back)
		{endif}
	{else}
'	siedzenia euro 5		
		(L.L.vis_seat_type) 0 =
		{if}
			0 (S.L.visvar_seat_type_back)
		{endif}

		(L.L.vis_seat_type) 1 =
		{if}
			1 (S.L.visvar_seat_type_back)
		{endif}

		(L.L.vis_seat_type) 2 =
		{if}
			2 (S.L.visvar_seat_type_back)
		{endif}

		(L.L.vis_seat_type) 3 =
		{if}
			3 (S.L.visvar_seat_type_back)
		{endif}

		(L.L.vis_seat_type) 4 =
		{if}
			4 (S.L.visvar_seat_type_back)
		{endif}

		(L.L.vis_seat_type) 5 =
		{if}
			5 (S.L.visvar_seat_type_back)
		{endif}
	{endif}

'	0 - hubner IST
'	1 - bode old
'	2 - bode new
'	3 - rawag
'	4 - isaf
'	5 - ventura ist
'	6 - hubner sst
'	7 - ventura sst
'	8 - hubner ast
'	9 - ventura ast

	(L.L.vis_doortype_1) 0 =
	(L.L.vis_doortype_1) 1 = ||
	{if}
		0 (S.L.visvar_doortype_1)
	{endif}

	(L.L.vis_doortype_1) 2 =
	(L.L.vis_doortype_1) 3 = ||
	(L.L.vis_doortype_1) 4 = ||
	{if}
		1 (S.L.visvar_doortype_1)
	{endif}

	(L.L.vis_doortype_1) 5 =
	{if}
		2 (S.L.visvar_doortype_1)
	{endif}

	(L.L.vis_doortype_1) 6 =
	(L.L.vis_doortype_1) 7 = ||
	(L.L.vis_doortype_1) 8 = ||
	(L.L.vis_doortype_1) 9 = ||
	{if}
		3 (S.L.visvar_doortype_1)
	{endif}

	(L.L.vis_doortype_1) 10 =
	{if}
		4 (S.L.visvar_doortype_1)
	{endif}

	(L.L.vis_doortype_1) 11 =
	{if}
		5 (S.L.visvar_doortype_1)
	{endif}

	(L.L.vis_doortype_1) 12 =
	{if}
		6 (S.L.visvar_doortype_1)
	{endif}

	(L.L.vis_doortype_1) 13 =
	{if}
		7 (S.L.visvar_doortype_1)
	{endif}

	(L.L.vis_doortype_1) 14 =
	{if}
		8 (S.L.visvar_doortype_1)
	{endif}

	(L.L.vis_doortype_1) 15 =
	{if}
		9 (S.L.visvar_doortype_1)
	{endif}

	(L.L.vis_doortype_2) 0 =
	(L.L.vis_doortype_2) 1 = ||
	{if}
		0 (S.L.visvar_doortype_2)
	{endif}

	(L.L.vis_doortype_2) 2 =
	(L.L.vis_doortype_2) 3 = ||
	(L.L.vis_doortype_2) 4 = ||
	{if}
		1 (S.L.visvar_doortype_2)
	{endif}

	(L.L.vis_doortype_2) 5 =
	{if}
		2 (S.L.visvar_doortype_2)
	{endif}

	(L.L.vis_doortype_2) 6 =
	(L.L.vis_doortype_2) 7 = ||
	(L.L.vis_doortype_2) 8 = ||
	(L.L.vis_doortype_2) 9 = ||
	{if}
		3 (S.L.visvar_doortype_2)
	{endif}

	(L.L.vis_doortype_2) 10 =
	{if}
		4 (S.L.visvar_doortype_2)
	{endif}

	(L.L.vis_doortype_2) 11 =
	{if}
		5 (S.L.visvar_doortype_2)
	{endif}

	(L.L.vis_doortype_2) 12 =
	{if}
		6 (S.L.visvar_doortype_2)
	{endif}

	(L.L.vis_doortype_2) 13 =
	{if}
		7 (S.L.visvar_doortype_2)
	{endif}

	(L.L.vis_doortype_2) 14 =
	{if}
		8 (S.L.visvar_doortype_2)
	{endif}

	(L.L.vis_doortype_2) 15 =
	{if}
		9 (S.L.visvar_doortype_2)
	{endif}

	(L.L.vis_doortype_3) 0 =
	(L.L.vis_doortype_3) 1 = ||
	{if}
		0 (S.L.visvar_doortype_3)
	{endif}

	(L.L.vis_doortype_3) 2 =
	(L.L.vis_doortype_3) 3 = ||
	(L.L.vis_doortype_3) 4 = ||
	{if}
		1 (S.L.visvar_doortype_3)
	{endif}

	(L.L.vis_doortype_3) 5 =
	{if}
		2 (S.L.visvar_doortype_3)
	{endif}

	(L.L.vis_doortype_3) 6 =
	(L.L.vis_doortype_3) 7 = ||
	(L.L.vis_doortype_3) 8 = ||
	(L.L.vis_doortype_3) 9 = ||
	{if}
		3 (S.L.visvar_doortype_3)
	{endif}

	(L.L.vis_doortype_3) 10 =
	{if}
		4 (S.L.visvar_doortype_3)
	{endif}

	(L.L.vis_doortype_3) 11 =
	{if}
		5 (S.L.visvar_doortype_3)
	{endif}

	(L.L.vis_doortype_3) 12 =
	{if}
		6 (S.L.visvar_doortype_3)
	{endif}

	(L.L.vis_doortype_3) 13 =
	{if}
		7 (S.L.visvar_doortype_3)
	{endif}

	(L.L.vis_doortype_3) 14 =
	{if}
		8 (S.L.visvar_doortype_3)
	{endif}

	(L.L.vis_doortype_3) 15 =
	{if}
		9 (S.L.visvar_doortype_3)
	{endif}

	(L.L.vis_doortype_4) 0 =
	(L.L.vis_doortype_4) 1 = ||
	{if}
		0 (S.L.visvar_doortype_4)
	{endif}

	(L.L.vis_doortype_4) 2 =
	(L.L.vis_doortype_4) 3 = ||
	(L.L.vis_doortype_4) 4 = ||
	{if}
		1 (S.L.visvar_doortype_4)
	{endif}

	(L.L.vis_doortype_4) 5 =
	{if}
		2 (S.L.visvar_doortype_4)
	{endif}

	(L.L.vis_doortype_4) 6 =
	(L.L.vis_doortype_4) 7 = ||
	(L.L.vis_doortype_4) 8 = ||
	(L.L.vis_doortype_4) 9 = ||
	{if}
		3 (S.L.visvar_doortype_4)
	{endif}

	(L.L.vis_doortype_4) 10 =
	{if}
		4 (S.L.visvar_doortype_4)
	{endif}

	(L.L.vis_doortype_4) 11 =
	{if}
		5 (S.L.visvar_doortype_4)
	{endif}

	(L.L.vis_doortype_4) 12 =
	{if}
		6 (S.L.visvar_doortype_4)
	{endif}

	(L.L.vis_doortype_4) 13 =
	{if}
		7 (S.L.visvar_doortype_4)
	{endif}

	(L.L.vis_doortype_4) 14 =
	{if}
		8 (S.L.visvar_doortype_4)
	{endif}

	(L.L.vis_doortype_4) 15 =
	{if}
		9 (S.L.visvar_doortype_4)
	{endif}

{end}

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

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


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


{trigger:malfunction_reset}
	1.0 (S.L.elec_V_battery)
	(M.L.Collision_Malfunction_Reset)
	(C.L.Fehlertoleranz) (L.L.wearlifespan) * random (S.L.EBS_Error_dist)
	(C.L.Fehlertoleranz) (L.L.wearlifespan) * random (S.L.Retarder_Error_dist)
	(C.L.Fehlertoleranz) (L.L.wearlifespan) * random (S.L.Gear_Error_dist)
	(C.L.Fehlertoleranz) (L.L.wearlifespan) * random (S.L.ECAS_Error_dist)
	(C.L.Fehlertoleranz) (L.L.wearlifespan) * random (S.L.EDC_Error_dist)
	(C.L.Fehlertoleranz) (L.L.wearlifespan) * random (S.L.Battery_Error_dist)
	(C.L.Tuerfehlertoleranz) (L.L.wearlifespan) * random (S.L.Door_Error_Count)
	60 (S.L.engine_temperature)
{end}