-- pentru a-mi display-a intrebarile lui Regis cand sunt la el acasa
function click_on_regis_home()
	DisplayQuestionList( Regis )
end
AddEvent( nil, true, nil, HRegisHomeRegisCU, nil, "click_on_regis_home")

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

--33.1000
--TB_Q895	: May we look around your home?

function regis_question_TB_Q895_cond ()
	return IsQuestionAsked ( Brass, "_TB_Q883" )
end
function regis_question_TB_Q895 ()
	PlayDialog ( Regis, "M4_CLAYTON_1943" )
end
AddQuestion ( Regis, false, nil, "_TB_Q895", nil, "regis_question_TB_Q895_cond", "regis_question_TB_Q895" )
---------------------------------------------------------------------------------------
--33.3010
--TB_Q898	: How did Meryl get the black eye?

function regis_question_TB_Q898_cond ()
	return IsQuestionAsked ( Carter, "_TB_Q893" )
end
function regis_question_TB_Q898 ()
	PlayDialog ( Regis, "M4_CLAYTON_1946" )
	UpdateCaseFile ( Regis, SUSPECT_VICTIM, "_TB_E4698", 200 )

end
AddQuestion ( Regis, false, nil, "_TB_Q898", nil, "regis_question_TB_Q898_cond", "regis_question_TB_Q898" )
---------------------------------------------------------------------------------------
--pentru intrebarea urmatoare _TB_Q896
function show_dark_powder_Regis_cond ()
	return EvidenceEnablesQuestion ()
end
function show_dark_powder_Regis ()
	ChangeRoom ( RegisHomeRegis, true )
	SetBackRoom ( RegisHomeRegis, RegisHomeEstab )

end
AddEvent ( EVShowDarkPowderRegis, false, ETBalconySubst, HRegisHomeRegisCU, "show_dark_powder_Regis_cond", "show_dark_powder_Regis" )
-----------------------------------------
--33.1020
--TB_Q896	: Were you in the upper balcony recently?

function regis_question_TB_Q896_cond ()
	return (IsEventDone ( EVShowDarkPowderRegis ) or not EvidenceEnablesQuestion () ) and  IsEventDone ( EVShowGregDarkPowder )  and HasEvidence ( ETBalconySubst )
end
function regis_question_TB_Q896 ()
	PlayDialog ( Regis, "M4_CLAYTON_1944" )
	UpdateCaseFile ( Regis, SUSPECT_CRIMESCENE, "_TB_E4696", 350 )
end
AddQuestion ( Regis, false, nil, "_TB_Q896", nil, "regis_question_TB_Q896_cond", "regis_question_TB_Q896" )
---------------------------------------------------------------------------------------
--pentru intrebarea urmatoare _TB_Q897
function show_panties_Regis_cond ()
	return EvidenceEnablesQuestion ()
end
function show_panties_Regis ()
	ChangeRoom ( RegisHomeRegis, true )
	SetBackRoom ( RegisHomeRegis, RegisHomeEstab )

end
AddEvent ( EVShowPantiesRegis, false, EIPanties, HRegisHomeRegisCU, "show_panties_Regis_cond", "show_panties_Regis" )
-----------------------------------------
--33.3000
--TB_Q897	: Why was your wife spending time at Heather's home?

function regis_question_TB_Q897_cond ()
	return ( IsEventDone ( EVShowPantiesRegis ) or not EvidenceEnablesQuestion () ) and HasEvidence ( EIPanties ) and ( IsEventDone ( EVCompMatch2 ) or IsEventDone ( EVCompMatch20 ))
end
function regis_question_TB_Q897 ()
	PlayDialog ( Regis, "M4_CLAYTON_1945" )
	UpdateCaseFile ( Regis, SUSPECT_VICTIM, "_TB_E4697", 200 )
end
AddQuestion ( Regis, false, nil, "_TB_Q897", nil, "regis_question_TB_Q897_cond", "regis_question_TB_Q897" )
---------------------------------------------------------------------------------------
--pentru intrebarea urmatoare _TB_Q899
function show_threatening_letter_Regis_cond ()
	return EvidenceEnablesQuestion ()
end
function show_threatening_letter_Regis ()
	ChangeRoom ( RegisHomeRegis, true )
	SetBackRoom ( RegisHomeRegis, RegisHomeEstab )
end
AddEvent ( EVShowThreateningLetterRegis, false, EDThreatLetter, HRegisHomeRegisCU, "show_threatening_letter_Regis_cond", "show_threatening_letter_Regis" )
-----------------------------------------
--33.3030
--TB_Q899	: Did you send a threatening letter to Heather?

function regis_question_TB_Q899_cond ()
	return IsQuestionAsked ( Carter, "_TB_Q893" ) and IsQuestionAsked ( Brass, "_TB_Q890" ) and ( IsEventDone ( EVShowThreateningLetterRegis ) or not EvidenceEnablesQuestion () ) and HasEvidence ( EDThreatLetter )
end
function regis_question_TB_Q899 ()
	PlayDialog ( Regis, "M4_CLAYTON_1947" )
	UpdateCaseFile ( Regis, INFORMATION, "_TB_E4699" )
end
AddQuestion ( Regis, false, nil, "_TB_Q899", nil, "regis_question_TB_Q899_cond", "regis_question_TB_Q899" )
---------------------------------------------------------------------------------------
--35.1000
--TB_Q934	: We have a warrant to look around your home.

function regis_question_TB_Q934_cond ()
	return IsQuestionAsked ( WarrantLocations, "_TB_Q900" ) 
end
function regis_question_TB_Q934 ()
	SetActive ( HRegisHomeSinkEstab, true ) 
	SetActive ( HRegisHomeThermosEstab, true )
	SetActive ( HRegisHomeShoesEstab, true )
	SetActive ( HRegisHomeDrawerEstab, true )
	SetActive ( HRegisHomeBookShelfEstab, true )
	SetVisible ( ORegisHomeSoapEstab, true )
	SetVisible ( ORegisHomeThermosEstab, true )
	SetVisible ( ORegisHomeShoesEstab, true )
	PlayDialog ( Regis, "M4_CLAYTON_1949" )	
end
AddQuestion ( Regis, false, nil, "_TB_Q934", nil, "regis_question_TB_Q934_cond", "regis_question_TB_Q934" )
---------------------------------------------------------------------------------------