-- 9.1

function start_interro_bert()
	if not IsEventDone(BertStartInterogationEvent) then	
		PlayDialog( BrassInactive, "M1_BRASS_18" )
		PlayDialog( Bert, "M1_MOWNER_12" )
	end
	DisplayQuestionList( Bert )
end

AddEvent( BertStartInterogationEvent, true, nil, Interro_Bert, nil, "start_interro_bert" )

----------------------------------------------------------------------------------------------
-- 9.1 Bert Q1: Why didn’t you tell us about your criminal history?
-- text_id: 1090
-- cond: rap sheet
----------------------------------------------------------------------------------------------
function fq_Bert_1090_cond()
	return HasEvidence( BertRapSheet ) and IsInRoom(Interro_Bert)
end

function fq_Bert_1090()
	PlayDialog( Bert, "M1_MOWNER_13" )
end

AddQuestion( Bert, false, Q_Bert_1090, "TEXT1090", nil, "fq_Bert_1090_cond", "fq_Bert_1090" )

----------------------------------------------------------------------------------------------
-- 9.1 Bert Q2: Why did we find your fingerprint on the TV?
-- text_id: 1091
-- cond: id'd prints from tv as bert's
----------------------------------------------------------------------------------------------
function fq_Bert_1091_cond()
	return IsEventDone(TVFingerPrintMatchEvent) and IsInRoom(Interro_Bert)
end

function fq_Bert_1091()
	PlayDialog( Bert, "M1_MOWNER_14" )
end

AddQuestion( Bert, false, Q_Bert_1091, "TEXT1091", nil, "fq_Bert_1091_cond", "fq_Bert_1091" )

----------------------------------------------------------------------------------------------
-- 9.1 Bert Q3: Why was your voice on Kylie’s answering machine?
-- text_id: 1092
-- cond: answering machine
----------------------------------------------------------------------------------------------
function fq_Bert_1092_cond()
	return HasEvidence( AnsweringMachineTape ) and IsInRoom(Interro_Bert)
end

function fq_Bert_1092()
	PlayDialog( Bert, "M1_MOWNER_21" )
	PlayDialog( BrassInactive, "M1_BRASS_19" )
end

AddQuestion( Bert, false, Q_Bert_1092, "TEXT1092", nil, "fq_Bert_1092_cond", "fq_Bert_1092" )

----------------------------------------------------------------------------------------------
-- 9.1 Bert Q4: Do you have any cuts or scratches that you are not telling us about?
-- text_id: 1093
-- cond: SkinSample or analyzed blood swab
----------------------------------------------------------------------------------------------
function fq_Bert_1093_cond()
	return HasEvidence( SkinSample ) and IsEventDone(GregAnalyzedSinkBlood) and IsInRoom(Interro_Bert)
end

function fq_Bert_1093()
	PlayDialog( Bert, "M1_MOWNER_15" )
end

AddQuestion( Bert, false, Q_Bert_1093, "TEXT1093", nil, "fq_Bert_1093_cond", "fq_Bert_1093" )

----------------------------------------------------------------------------------------------
-- 9.1 Bert Q5: Can we take a reference DNA sample??
-- text_id: 1094
-- cond: WarrantBertDNA
----------------------------------------------------------------------------------------------
function fq_Bert_1094_cond()
	return IsQuestionAsked( Brass, "TEXT1084" ) and IsInRoom(Interro_Bert)
end

function fq_Bert_1094()
	PlayDialog( Bert, "M1_MOWNER_16" )
	PlayDialog( Grissom, "M1_GRISS_85" )

--	SetActive( InterroBertHairHotspot, true )
--	SetActive( InterroBertMouthHotspot, true )
--	SetActive( Bert, false )

-- temp hack
	AddEvidence( BertHair )
	PlayDialog( Bert, "M1_MOWNER_19" )
	AddEvidenceHintText( BertHair, "TEXT1248" )
	AddEvidenceDescriptionText( BertHair, "TEXT1249" )

-- temp hack
	AddEvidence( BertDNA )
	PlayDialog( Bert, "M1_MOWNER_20" )
	AddEvidenceHintText( BertDNA, "TEXT1254" )
	AddEvidenceDescriptionText( BertDNA, "TEXT1255" )
end

AddQuestion( Bert, false, Q_Bert_1094, "TEXT1094", nil, "fq_Bert_1094_cond", "fq_Bert_1094" )

----------------------------------------------------------------------------------------------
-- 9.1 Bert Q6: Why was your blood found in the hotel bathroom?
-- text_id: 1095
-- cond: SinkBloodBertMatch
----------------------------------------------------------------------------------------------
function fq_Bert_1095_cond()
	return IsEventDone( GregComparesBertDNASinkBlood ) and IsInRoom(Interro_Bert)
end

function fq_Bert_1095()
	PlayReenactment( "art\\reenactments\\movie\\c1m1_reenact_bert.xmv", "art\\reenactments\\pictures\\c1m1_reenact_bert.tga", "TEXT1013", nil, "mission01_partial_reenactment" )
	UpdateCaseFile( Bert, SUSPECT_CRIMESCENE, "TEXT1141", 300 )
end

AddQuestion( Bert, false, Q_Bert_1095, "TEXT1095", nil, "fq_Bert_1095_cond", "fq_Bert_1095" )

----------------------------------------------------------------------------------------------
-- 9.2 
----------------------------------------------------------------------------------------------
function get_bert_hair_cond()
	return false 
	--temp hack instead of: return IsQuestionAsked( "TEXT1094" )
end

function get_bert_hair()
	AddEvidence( BertHair )
	PlayDialog( Bert, "M1_MOWNER_19" )
	AddEvidenceHintText( BertHair, "TEXT1248" )
	AddEvidenceDescriptionText( BertHair, "TEXT1249" )

	if HasEvidence(BertDNA) then
		SetActive( InterroBertHairHotspot, false )
		SetActive( InterroBertMouthHotspot, false )
	
		SetActive( Bert, true )
		SetBackRoom( InterroSuspect01_Bert, BrassRoom02 )
	end
end

AddEvent( BertHairPick, false, tweezers, BertHair, "get_bert_hair_cond", "get_bert_hair" )

----------------------------------------------------------------------------------------------
-- 9.2 
----------------------------------------------------------------------------------------------
function get_bert_dna_cond()
	return false 
	--temp hack instead of: return IsQuestionAsked( "TEXT1094" )
end

function get_bert_dna()
	AddEvidence( BertHair )
	PlayDialog( Bert, "M1_MOWNER_20" )
	AddEvidenceHintText( BertHair, "TEXT1254" )
	AddEvidenceDescriptionText( BertHair, "TEXT1255" )

	if HasEvidence(BertHair) then
		SetActive( InterroBertHairHotspot, false )
		SetActive( InterroBertMouthHotspot, false )
	
		SetActive( Bert, true )
		SetBackRoom( InterroSuspect01_Bert, BrassRoom02 )
	end
end

AddEvent( BertDNAPick, false, swab, BertDNA, "get_bert_dna_cond", "get_bert_dna" )