function enter_david_interro_estab_room()
	DisplayQuestionList( David )
end
AddEvent( nil, true, nil, InterroDavidEstab, nil, "enter_david_interro_estab_room")
----------------------------------------------------------------------------------
--10.1000
function david_interro_TB_Q126_cond()
	return IsQuestionAsked( WarrantSuspects, QIDInterroDavid )
end
function david_interro_TB_Q126()
		PlayDialog( David, "M1_DAVID_259" )
		UpdateCaseFile ( David, INFORMATION, "_TB_E2981" )
end
AddQuestion( David, false, nil, "_TB_Q126", nil, "david_interro_TB_Q126_cond", "david_interro_TB_Q126")
-------------------------------------------------------------------------------------------------------------
--TB_Q127 : Were you recently at Corry Muzzoti's office?
--25.1000
function david_interro_TB_Q127_cond()
	return IsQuestionAsked( WarrantSuspects, QIDInterroDavid ) and IsEventDone ( EVPrintsCompared )
end
function david_interro_TB_Q127()
--25.1005
		ChangeRoom ( InterroDavid2 )
		PlayDialog( David, "M1_DAVID_2110" )
--25.1010
		PlayDialog( Katy, "M1_CAT_2111" )
--25.1020
		PlayDialog ( David, "M1_DAVID_260" )
--25.1030
		UpdateCaseFile ( Corry, INFORMATION, "_TB_E4628" )
--25.1040
		UpdateCaseFile ( David, INFORMATION, "_TB_E2982" )
		EndDisplayQuestionList ( David )
		ChangeRoom ( InterroDavidEstab )


end
AddQuestion( David, false, nil, "_TB_Q127", nil, "david_interro_TB_Q127_cond", "david_interro_TB_Q127")
-------------------------------------------------------------------------------------------------------------
--TB_Q128 : Were you involved in the sabotage of Ace's motorcycle?
--25.1500
function david_interro_TB_Q128_cond()
	return IsQuestionAsked( David, "_TB_Q127" ) 

-- and nu depinde si de asta pentru ca ar intra in ciclu... si ea depinde de Q128...IsQuestionAsked ( David, "_TB_Q129" )

end
--25.2000
function david_interro_TB_Q128()
		PlayDialog ( David, "M1_DAVID_261" )
--25.2002
		ChangeRoom ( InterroCSI2 )
--25.2005
		PlayDialog( Katy, "M1_CAT_384" )
--25.2010
		ChangeRoom ( InterroDavid3 )
--25.2100 
		PlayDialog ( David, "M1_DAVID_262" )
--25.2200
		ChangeRoom ( InterroDavidEstab )
		EndDisplayQuestionList ( David )
--25.2300
		PlayDialog( Katy, "M1_CAT_263" )
--25.2350
		PlayDialog( David, "M1_DAVID_264" )
--25.2355
		ChangeRoom ( InterroBrass )
--25.2401
		PlayDialog ( Brass, "M1_BRASS_2112" )
--25.2420
		ChangeRoom ( InterroDavidEstab )
		EndDisplayQuestionList ( David )
--25.2430
		PlayDialog( David, "M1_DAVID_2044" )
--25.2445
		PlayDialog( Katy, "M1_CAT_2113" )
--25.2448
		ChangeRoom ( InterroDavid2 )
--25.2450
		PlayDialog( David, "M1_DAVID_2045" )
--25.2500
		UpdateCaseFile ( David, INFORMATION, "_TB_E2983" )
		EndDisplayQuestionList ( David )
		ChangeRoom ( InterroDavidEstab )

		UpdateCaseFile ( Corry, SUSPECT_CRIMESCENE, "_TB_E4235", 250 )

end
AddQuestion ( David, false, nil, "_TB_Q128", nil, "david_interro_TB_Q128_cond", "david_interro_TB_Q128")

----------------------------------------------------------------------------------------------------------------
-- pentru intrebarea urmatoare
function show_video_beta_tape_cond ()
	return EvidenceEnablesQuestion ()
end
function show_video_beta_tape ()
	PlayDialog ( David, "M1_DAVID_2064" )
	ChangeRoom ( InterroDavidEstab )
end
AddEvent ( EVShowBetaMcLadden, false, EIVideoTape, David, "show_video_beta_tape_cond", "show_video_beta_tape" )
--------------------------------------------
--TB_Q129 : Why did you destroy the tape?
--25.3000
function david_interro_TB_Q129_cond()
	return IsQuestionAsked( David, "_TB_Q128" ) and ( IsEventDone ( EVShowBetaMcLadden ) or not EvidenceEnablesQuestion () ) and HasEvidence ( EIVideoTape )
end
function david_interro_TB_Q129()
--25.1005
		ChangeRoom ( InterroDavid1 )
--25.3050
		PlayDialog( David, "M1_DAVID_266" )
--25.3100
		PlayDialog( Katy, "M1_CAT_267" )
--25.3150
		ChangeRoom ( InterroDavidEstab )
		EndDisplayQuestionList ( David )
--25.3200
		PlayDialog ( David, "M1_DAVID_268" )
--25.3250
		ChangeRoom ( InterroBrass )
--25.3300
		PlayDialog ( Brass, "M1_BRASS_269" )
		AddEvidenceDescriptionText ( EIVideoTape, "_TB_E4629" )
		UpdateCaseFile ( Corry, SUSPECT_VICTIM, "_TB_E4236", 300 )
		EndDisplayQuestionList ( David )
		ChangeRoom ( InterroDavidEstab )

		
		UpdateCaseFile ( David, SUSPECT_CRIMESCENE, "_TB_E2984", 100 )
		
end
AddQuestion( David, false, nil, "_TB_Q129", nil, "david_interro_TB_Q129_cond", "david_interro_TB_Q129")
---------------------------------------------------------------------------------------------------------------