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

'(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
'- Rüdiger Hülsmann	18.09.2010	Microphone stored in cockpit script
'- Marcel Kuhnt		30.11.2010	Bugfix: press [D] in AI mode if motor running but neutral
'- Marcel Kuhnt		10.01.2013	Schaltwagen-KI
'- Marcel Kuhnt		15.01.2013	Automatische Kupplung implementiert
'- Rüdiger Hülsmann	20.02.2024	New wheel animation to avoid floating point inaccuracy

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


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

{init}
	(M.L.engine_Init)
	(M.L.antr_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.Collision_Init)
	(M.L.IVU_Ticketbox_init)
	(M.L.Matrix_init)
	(M.L.Collision_Init)
{end}

{frame}

'	Reset wheel_rotation variable after every revolution to avoid floating point inaccuracy during longer trips (>15 km)
'	wheel_rotation_0..._L/R values only between 0 and 2*pi

	(L.L.wheel_rotation_0_L) (L.L.wheel_rotation_0_L) 2 / pi / trunc 2 * pi * - (S.L.wheel_rotation_0_L)
	(L.L.wheel_rotation_0_R) (L.L.wheel_rotation_0_R) 2 / pi / trunc 2 * pi * - (S.L.wheel_rotation_0_R)	

	(L.L.wheel_rotation_1_L) (L.L.wheel_rotation_1_L) 2 / pi / trunc 2 * pi * - (S.L.wheel_rotation_1_L)
	(L.L.wheel_rotation_1_R) (L.L.wheel_rotation_1_R) 2 / pi / trunc 2 * pi * - (S.L.wheel_rotation_1_R)	

	(L.L.wheel_rotation_2_L) (L.L.wheel_rotation_2_L) 2 / pi / trunc 2 * pi * - (S.L.wheel_rotation_2_L)
	(L.L.wheel_rotation_2_R) (L.L.wheel_rotation_2_R) 2 / pi / trunc 2 * pi * - (S.L.wheel_rotation_2_R)



	(M.L.cockpit_frame)
	(M.L.bremse_frame)
	(M.L.Engine_Frame)
	(M.L.antr_frame)
	(M.L.Elec_Frame)
	(M.L.Door_frame)
	(M.L.lights_frame)
	(M.L.wiper_frame)
	(M.L.Auspuff_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.wimpel_frame)
	(M.L.ident-features_frame)
	(M.L.cashdesk_frame)
	(M.L.IVU_Ticketbox_frame)
	(M.L.spray_frame)
	(M.L.Matrix_frame)
	(M.L.Collision_Frame)
	


	(L.L.M_Wheel)
	(S.L.debug_0)

	(L.L.engine_M)
	(S.L.debug_1)

	(L.L.antrieb_getr_neutral_timer)
	(S.L.debug_2)

	(L.L.M_Wheel) (C.L.antrieb_i_achse) /
	(S.L.debug_3)

	(L.L.antrieb_NBS_request)
	(S.L.debug_4)

	(L.L.engine_n)
	(S.L.debug_5)





'Strom einschalten

(L.L.AI)
	{if}
	1 (S.L.cp_schluessel_rot_mode)
	(S.L.elec_busbar_main_sw)

	(L.L.AI_Engine) 0.5 >
	(L.L.engine_on) 0.5 < &&
	(L.L.antrieb_getr_gangvorwahl) 6 = ! ||
	{if}
		0 (S.L.bremse_feststell_sw) (S.L.bremse_feststell)
		1 (S.L.engine_injection_on)
		400 (S.L.engine_n)
		6 (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}
{endif}


{end}

'=================================================================================
'Crash:

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


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


'#RH_Mod_2023
{trigger:malfunction_reset}
	1.0 (S.L.elec_V_battery)
	(M.L.Collision_Malfunction_Reset)
	(M.L.lights_repair)
{end}