--1.2500
function crashstunt_fadein_first()
	if not IsEventDone ( EVCrashStuntEnterFirst )
		then
		PlayIntroMovie("Art\\Movie\\Flyin\\intro_casino01a.xmv")
		ChangeRoom ( CrashSiteKaty1 )
		EndDisplayQuestionList ( Katy )
		FadeIn ()
		PlayDialog ( Katy, "M1_CAT_2096" )
		ChangeRoom ( CrashSitePanoRoom )
		
	else
		ChangeRoom ( CrashSitePanoRoom )
		FadeIn ()

	end
	if not IsEventDone ( EVEnterLandingSkid )
		then
		ChangeLink ( HPanoRamp, nil )
	end			
end
AddEvent ( EVCrashStuntEnterFirst, true, nil, CrashSite, nil, "crashstunt_fadein_first" )
 
------------------------------------------------------------------------------------------------------------- 
--2.2100
function enter_landing_ramp_first()
	PlayDialog ( Katy, "M1_CAT_190" )
	PlayReenactment( "Art\\Reenactments\\Movie\\rnct_motorcycleramp01a.xmv", "Art\\Reenactments\\Pictures\\rnct_motorcycleramp01a.tga", "_TB_Z625", nil, "M1_CAT_191" )
	ChangeRoom ( CrashSiteRampEstab )
	PlayDialog ( Katy, "M1_CAT_376" )
	SetBackRoom ( CrashSiteRampEstab, CrashSitePanoRoom )
	ChangeLink ( HPanoRamp, CrashSiteRampEstab )
	UpdateCaseFile ( Ace, INFORMATION, "_TB_E2888" )

end
AddEvent ( EVEnterLandingSkid, false, nil, HPanoRamp, nil, "enter_landing_ramp_first" )
-------------------------------------------------------------------------------------------------------------
--2.2200
function enter_landing_skid_first()
	PlayDialog ( Katy, "M1_CAT_192" )
	UpdateCaseFile ( Ace, INFORMATION, "_TB_E2888" )
	SetActive ( HRampCU1, false)
	SetActive ( HRampCU2, false)
	SetActive ( HRampCU3, false)
	SetActive ( HRampEstab1, false )
	SetActive ( HRampEstab2, false )
	SetActive ( HRampEstab3, false )
	SetActive ( HRampEstab4, false )
	SetActive ( HRampEstab5, false )
	SetActive ( HPanoRamp, false )
end
AddEvent ( EVLandingSkid, false, nil, CrashSiteRampCU, nil, "enter_landing_skid_first" )
------------------------------------------------------------------------------------------------------------
--2.2300
function enter_crash_site_oil_first()
	PlayDialog ( Katy, "M1_CAT_2097" )
end
AddEvent ( nil, false, nil, CrashSiteOil, nil, "enter_crash_site_oil_first" )
------------------------------------------------------------------------------------------------------------
--2.2310
function swabbing_lubricant()
	PlayDialog ( Katy, "M1_CAT_193" )
	AddEvidence ( ETSubstFountain ) -- CHEMICAL SUBSTANCE
	AddEvidenceDescriptionText( ETSubstFountain, "_TB_E763" )
	SetActive( HOil, false)
	SetActive ( HPanoOil, false )
end
AddEvent (nil, false, swab, HOil, nil, "swabbing_lubricant" )
-----------------------------------------------------------------------------------------------------------
--2.2350
function enter_avoidance_skid_first()
	PlayDialog ( Katy, "M1_CAT_194" )
	PlayDialog ( Katy, "M1_CAT_2028" )
	UpdateCaseFile ( Ace, VICTIM_CRIMESCENE, "_TB_E2890", 250 )
	SetActive ( HRoadSkid1, false )
	SetActive ( HRoadSkid2, false )
	SetActive ( HPanoRoadSkid, false ) 
	if not IsEventDone ( EVTakeEngineSpring )
		then
		SetActive ( HEngineSpringFar, true )
	end
	if not IsEventDone ( EVTakeEngineFingerPrint )
		then
		SetActive ( HEngineHotspot1, true )
	end
	if not IsEventDone ( EVTakeCableLubricant )
		then
		SetActive ( HCasinoCable, true )
	end
end 
AddEvent ( EVAvoidanceSkid, false, nil, CrashSiteRoadSkid, nil, "enter_avoidance_skid_first" )
-----------------------------------------------------------------------------------------------------------
--2.3000
function enter_smashed_parts ()
	PlayDialog ( Katy, "M1_CAT_195" )
	SetActive ( HPanoSweptDust, false )
end
AddEvent ( EVEnterSmashParts, false, nil, CrashSiteSweptDust, nil, "enter_smashed_parts" )
-----------------------------------------------------------------------------------------------------------
--2.400
function enter_tyre_bike ()
	PlayDialog ( Katy, "M1_CAT_196" )
end
AddEvent ( nil, false, nil, CrashSiteBikeTire, nil, "enter_tyre_bike" )
----------------------------------------------------------------------------------------------------------
--2.4005
function pick_tyre_bike_print ()
	AddEvidence( ETMotorcycleTyreTread )
	AddEvidenceDescriptionText( ETMotorcycleTyreTread, "_TB_E765" )
	SetActive ( HCasinoTireCU1, false )
	SetActive ( HCasinoTireCU2, false )
	SetActive ( HCasinoTire, false )
end
AddEvent ( nil, false, adhesive, HCasinoTireCU1, nil, "pick_tyre_bike_print" )
AddEvent ( nil, false, adhesive, HCasinoTireCU2, nil, "pick_tyre_bike_print" )
----------------------------------------------------------------------------------------------------------
--2.4050
function pick_urine ()
	PlayDialog ( Katy, "M1_CAT_197" )
	AddEvidence ( ETYellowLiquid )
	AddEvidenceDescriptionText( ETYellowLiquid, "_TB_E766" )
	SetActive ( HPipi, false )
	SetActive ( HCasinoUrine, false )
end
AddEvent ( nil, false, swab, HPipi, nil, "pick_urine" )
---------------------------------------------------------------------------------------------------------
--2.4060
function crashed_bike_closeup ()
	PlayDialog ( Katy, "M1_CAT_377" )
end
AddEvent ( nil, false, nil, CrashSiteBikeCrash, nil, "crashed_bike_closeup" )
---------------------------------------------------------------------------------------------------------
--2.4075
function pick_sticker_from_bike ()
	AddEvidence ( EIServiceSticker )
	AddEvidenceDescriptionText ( EIServiceSticker, "_TB_E767" )
	SetVisible ( OServiceSticker, false )
	SetActive ( HServiceSticker, false )
	SetActive ( HCasinoSticker, false )
	PlayDialog ( Katy, "M1_CAT_198" )
end
AddEvent ( nil, false, tweezers, HServiceSticker, nil, "pick_sticker_from_bike" )
AddEvent ( nil, false, gloves, HServiceSticker, nil, "pick_sticker_from_bike" )
---------------------------------------------------------------------------------------------------------
--2.5000
function enter_engine_view_first_cond ()
	return not IsEventDone (EVAvoidanceSkid) and not IsQuestionAsked ( Ace, "_TB_Q116" )
end
function enter_engine_view_first ()
	SetActive ( HEngineSpringFar, false )
	SetActive ( HEngineHotspot1, false )
	SetActive ( HCasinoCable, false )
	PlayDialog ( Katy, "M1_CAT_199" )
end
AddEvent ( nil, false, nil, CrashSiteEngineCU, "enter_engine_view_first_cond", "enter_engine_view_first" )
---------------------------------------------------------------------------------------------------------
--2.5100 
function enter_engine_view_last_cond ()
	return ( IsEventDone (EVAvoidanceSkid) or IsQuestionAsked ( Ace, "_TB_Q116" ))
end
function enter_engine_view_last ()
	PlayDialog ( Katy, "M1_CAT_428" )	
	PlayReenactment( "Art\\Reenactments\\Movie\\rcns_gasflow01a.xmv", "Art\\Reenactments\\Pictures\\gasflow.tga", "_TB_Z925", nil, "M1_CAT_378" )
	PlayDialog ( Katy, "M1_CAT_379" )
end
AddEvent (nil, false, nil, CrashSiteEngineCU, "enter_engine_view_last_cond", "enter_engine_view_last" )
--------------------------------------------------------------------------------------------------------
--2.5005
function spring_zooming_lens ()
	ZoomToRoom ( CrashSiteSpringZoom )
	SetActive ( HEngineSpringZoomed, false )
	PlayDialog ( nil, "M1_CAT_202" )

end
AddEvent ( EVZoomedSpring, false, magnifier, HSpringCU, nil, "spring_zooming_lens" )
---------------------------------------------------------------------------------------------------------

---------------------------------------------------------------------------------------------------------
--2.5005

function collect_engine_spring ()
	SetVisible ( OSpringCU1, false )
	SetVisible ( OSpringCU2, false )
	SetVisible ( OSpringCU3, false )
	SetActive ( HSpringCU, false )
	SetVisible ( OEngineSpringFar, false )
	SetActive ( HEngineSpringFar, false )
	AddEvidence ( EIBrokenSpring )
	AddEvidenceDescriptionText ( EIBrokenSpring, "_TB_E768" )
	PlayDialog ( nil, "M1_CAT_201" )
	if IsEventDone ( EVZoomedSpring )
		then
		AddEvidenceDescriptionText ( EIBrokenSpring, "_TB_E5748" )
		AddEvidenceDescriptionText ( EIBrokenSpring, "_TB_E2901" )	
	end
	if ( HasEvidence ( ETEngineFingerprint ) and HasEvidence ( ETThrottleCableSubst ))
		then
		SetActive ( HCasinoEngine, false )
	end
end

AddEvent ( EVTakeEngineSpring, false, tweezers, HSpringCU, nil, "collect_engine_spring" )
AddEvent ( EVTakeEngineSpring, false, gloves, HSpringCU, nil, "collect_engine_spring" )
---------------------------------------------------------------------------------------------------------
--2.6000
function get_finger_print ()
	SetActive ( OEngineFingerprint, false )
	SetActive ( HEngineFingerprint, false )
	SetActive ( HEngineHotspot1, false )
	AddEvidence ( ETEngineFingerprint )
	AddEvidenceDescriptionText ( ETEngineFingerprint, "_TB_E770" )
	if ( HasEvidence ( EIBrokenSpring ) and HasEvidence ( ETThrottleCableSubst ))
		then
		SetActive ( HCasinoEngine, false )
	end
end
AddEvent ( EVTakeEngineFingerPrint, false, fingerdust, OEngineFingerprint, nil, "get_finger_print" )
---------------------------------------------------------------------------------------------------------
--2.6100
function casino_cable_closeup ()
	PlayDialog ( Katy, "M1_CAT_203" )
	PlayDialog ( Katy, "M1_CAT_2030" )
end
AddEvent ( nil, false, nil, CrashSiteBikeCable, nil, "casino_cable_closeup" )
---------------------------------------------------------------------------------------------------------
--2.6105

function pick_cable_lubricant ()
	AddEvidence ( ETThrottleCableSubst )
	AddEvidenceDescriptionText ( ETThrottleCableSubst, "_TB_E771")
	SetActive ( HCasinoBikeCableCloseup, false )
	SetActive ( HCasinoCable, false )
	if ( HasEvidence ( EIBrokenSpring ) and HasEvidence ( ETEngineFingerprint ))
		then
		SetActive ( HCasinoEngine, false )
	end
end
AddEvent ( EVTakeCableLubricant, false, swab, HCasinoBikeCableCloseup, nil, "pick_cable_lubricant" )
---------------------------------------------------------------------------------------------------------
--2.7000
function david_questions ()
	
	if not DisplayQuestionList ( David ) 
		then
		PlayDialog ( David, "M1_DAVID_1104")
	end
end
AddEvent ( nil, true, nil, CrashSiteDavid1, nil, "david_questions")
---------------------------------------------------------------------------------------------------------
--2.7000
function david_questions_click_on_david ()
	
	if not DisplayQuestionList ( David ) 
		then
		PlayDialog ( David, "M1_DAVID_1104")
	end
end
AddEvent ( nil, true, nil, David, nil, "david_questions_click_on_david")
---------------------------------------------------------------------------------------------------------
--3.9115

function show_sticker_to_David1_cond ()
	return EvidenceEnablesQuestion ()
end

function show_sticker_to_David1 ()
	if IsInRoom ( CrashSiteDavid1 )
		then
		ChangeRoom ( CrashSiteDavid1 )
		SetBackRoom ( CrashSiteDavid1, CrashSitePanoRoom )
		PlayDialog ( David, "M1_DAVID_2064" )
		else
		ChangeRoom ( InterroDavidEstab )
		PlayDialog ( David, "M1_DAVID_2064" )
	end
end
AddEvent (EVShowStickerDavid1, false, EIServiceSticker, David, "show_sticker_to_David1_cond", "show_sticker_to_David1" )

--------------------------------------------------------------------------------------------------------

IncludeFile("Script\\GameLogic\\McLaddenQuestions.lua")