-- Carter's Home
function fadein_carter_home()
	if not IsEventDone ( EVEnterCarterHome )
	 	then
		PlayIntroMovie("Art\\Movie\\Flyin\\city_carterhome01a.xmv")
	end
	ChangeRoom( CarterHomeEstab )
	if IsQuestionAsked ( WarrantSuspects, QIDInterroCarter )
		then
		SetVisible ( Carter, false )
		SetActive ( HCarterHomeCarterEstab, false )
	end
	FadeIn()
	if not IsQuestionAsked ( Carter, "_TB_Q939" )
		then
		SetActive ( HCarterHomePantyEstab, false )
--		SetVisible ( OCarterHomePantyEstab, false )
		SetActive ( HCarterHomeLetterEstab, false ) 
--		SetVisible ( OCarterHomeLetterEstab, false )
		SetActive ( HCarterHomeCertificateEstab, false )
	end

end
AddEvent( EVEnterCarterHome, true, nil, CarterHome, nil, "fadein_carter_home" )

---------------------------------------------------------------------------------------
--28.0000
function carter_questions () 
	if not DisplayQuestionList ( Carter ) 
		then
		PlayDialog ( Carter, "M4_HEATHER_1981")
	end

end
AddEvent ( nil, true, nil, CarterHomeCarterCU, nil, "carter_questions")
---------------------------------------------------------------------------------------------------------
--28.0000
function carter_questions_click_on_carter ()
	if not DisplayQuestionList ( Carter )
		then
		PlayDialog ( Carter, "M4_HEATHER_1981")
	end 
end
AddEvent ( nil, true, nil, Carter, nil, "carter_questions_click_on_carter")
---------------------------------------------------------------------------------------------------------
--28.1090
function carter_enter_view_diploma ()
	PlayDialog ( Nick, "M4_NICK_1925" )
	SetActive ( HCarterHomeCertificateEstab, false )
end	
AddEvent ( EVEnteredViewDiploma, false, nil, CarterHomeCertificate, nil, "carter_enter_view_diploma")
---------------------------------------------------------------------------------------------------------
--28.1201
function carter_acquire_vaginal_fluid_UV ()
	PlayDialog ( Nick, "M4_NICK_1924" )
end	
AddEvent ( EVCarterAcquireFluid, false, uv, HCarterHomePantyCU, nil, "carter_acquire_vaginal_fluid_UV")
---------------------------------------------------------------------------------------------------------
--28.1200
function carter_acquire_panties_gloves_cond ()
	return IsEventDone ( EVCarterAcquireFluid )
end
function carter_acquire_panties_gloves ()
	SetActive ( HCarterHomePantyCU, false )
	SetVisible ( OCarterHomePantyCU, false )
	SetActive ( HCarterHomePantyEstab, false )
	SetVisible ( OCarterHomePantyEstab, false )
	PlayDialog ( Nick, "M4_NICK_1923" )
	AddEvidence ( EIPanties )
	AddEvidenceDescriptionText ( EIPanties, "_TB_E3249" )
end	
AddEvent ( EVAcquiredPanties, false, gloves, HCarterHomePantyCU, "carter_acquire_panties_gloves_cond", "carter_acquire_panties_gloves")
---------------------------------------------------------------------------------------------------------
-- functia urmatoare tb. scoasa cand se vor analiza evidente in pop-up...
function carter_acquire_panties_gloves_withoutUV_cond ()
	return not IsEventDone ( EVCarterAcquireFluid )
end
function carter_acquire_panties_gloves_withoutUV ()
	PlayDialog ( Nick, "M4_NICK_2559" )
end	
AddEvent ( nil, true, gloves, HCarterHomePantyCU, "carter_acquire_panties_gloves_withoutUV_cond", "carter_acquire_panties_gloves_withoutUV")
---------------------------------------------------------------------------------------------------------
--28.1210
function carter_enter_letters_view ()
	SetActive ( HCarterHomeLetterCU, false )
	PlayDialog ( Nick, "M4_NICK_1926" )	
end	
AddEvent ( nil, false, nil, CarterHomeLetter, nil, "carter_enter_letters_view")
---------------------------------------------------------------------------------------------------------
--28.1230
function carter_acquire_letters_prints_ninhydrin ()
	SetActive ( HCarterHomeLetterPrint, false )
	SetActive ( HCarterHomeLetterCU, true )
	SetActive ( OCarterHomeLetterPrint, false )	
	AddEvidence ( ETFingerprintLetter ) 
	AddEvidenceDescriptionText ( ETFingerprintLetter, "_TB_E2654" )
end	
AddEvent ( EVAcquiredLetterPrints, false, ninhydrin, OCarterHomeLetterPrint, nil, "carter_acquire_letters_prints_ninhydrin")
---------------------------------------------------------------------------------------------------------
--28.1220
function carter_acquire_letters_gloves ()
	SetVisible ( OCarterHomeLetterPrint, false )
	SetActive ( HCarterHomeLetterCU, false )
	SetVisible ( OCarterHomeLetterCU, false )
	SetActive ( HCarterHomeLetterEstab, false )
	SetVisible ( OCarterHomeLetterEstab, false )
	AddEvidence ( EDThreatLetter ) 
	AddEvidenceDescriptionText ( EDThreatLetter, "_TB_E2642" )
end	
AddEvent ( EVAcquiredThreateningLetter, false, gloves, HCarterHomeLetterCU, nil, "carter_acquire_letters_gloves")
---------------------------------------------------------------------------------------------------------


IncludeFile("Script\\Gamelogic\\CarterQuestions.lua" )