-- pentru a-mi display-a intrebarile lui Carter cand sunt la ea acasa
function click_on_carter_home()
	if not DisplayQuestionList( Carter ) then
		PlayDialog ( Carter, "M4_HEATHER_1981")
	end

end
AddEvent( nil, true, nil, HCarterHomeCarterCU, nil, "click_on_carter_home")

------------------------------------------------------------------------------------------
--pentru intrebarea urmatoare _TB_Q873
function show_victim_photos_Heather_cond ()
	return EvidenceEnablesQuestion ()
end

function show_victim_photos_Heather ()
	ChangeRoom ( CarterHomeCarterCU, true )
	SetBackRoom ( CarterHomeCarterCU, CarterHomeEstab )
end
AddEvent ( EVShowVictimPhotosHeather, false, EDPhotos, HCarterHomeCarterCU, "show_victim_photos_Heather_cond", "show_victim_photos_Heather" )
-----------------------------------------
--28.1020
--TB_Q888	: Can you tell us about your argument with Meryl before the rehearsal?

function carter_question_TB_Q888_cond ()
	return IsQuestionAsked ( Harrison, "_TB_Q881" ) and ( IsEventDone ( EVShowVictimPhotosHeather ) or not EvidenceEnablesQuestion () ) and HasEvidence ( EDPhotos )
end
function carter_question_TB_Q888 ()
	PlayDialog ( Carter, "M4_HEATHER_1917" )
	PlayDialog ( Nick, "M4_NICK_1918" )
	PlayDialog ( Carter, "M4_HEATHER_1919" )
	PlayDialog ( Nick, "M4_NICK_1920" )
	PlayDialog ( Carter, "M4_HEATHER_1921" )
	UpdateCaseFile ( Carter, SUSPECT_VICTIM, "_TB_E4726", 100 )
end
AddQuestion ( Carter, false, nil, "_TB_Q888", nil, "carter_question_TB_Q888_cond", "carter_question_TB_Q888" )
------------------------------------------------------------------------------------------
--28.0000
--TB_Q939	: We have a warrant to look around your home.

function carter_question_TB_Q939_cond ()
	return IsQuestionAsked ( WarrantLocations, "_TB_Q887" )
end
function carter_question_TB_Q939 ()
	SetActive ( HCarterHomePantyEstab, true )
	SetVisible ( OCarterHomePantyEstab, true )
	SetActive ( HCarterHomeLetterEstab, true ) 
	SetVisible ( OCarterHomeLetterEstab, true )
	SetActive ( HCarterHomeCertificateEstab, true )
	PlayDialog ( Carter, "M4_HEATHER_1942" )
end
AddQuestion ( Carter, false, nil, "_TB_Q939", nil, "carter_question_TB_Q939_cond", "carter_question_TB_Q939" )
------------------------------------------------------------------------------------------
--28.1080
--TB_Q889	: May we look around?
function carter_question_TB_Q889_cond ()
	return IsQuestionAsked ( Carter, "_TB_Q888" )
end
function carter_question_TB_Q889 ()
	PlayDialog ( Carter, "M4_HEATHER_1922" )
end
AddQuestion ( Carter, false, nil, "_TB_Q889", nil, "carter_question_TB_Q889_cond", "carter_question_TB_Q889" )
------------------------------------------------------------------------------------------