-- pentru a-mi display-a intrebarile lui Harrison cand sunt in camera de interogatoriu
function click_on_harrison_interro()
	if not DisplayQuestionList( Harrison ) 
		then
		PlayDialog ( Harrison, "M4_GUS_1982")
	end
end
AddEvent( nil, true, nil, HHarrison, nil, "click_on_harrison_interro")

function enter_harrison_interro_estab_room()
	if not IsEventDone ( EVEnterInterroHarrison )
		then
		SetCharacterPicture ( Harrison, "Art\\Reenactments\\Pictures\\gus.tga" )
	end
	if not DisplayQuestionList( Harrison )
		then
		PlayDialog ( Harrison, "M4_GUS_1982")
	end
end
AddEvent( EVEnterInterroHarrison, true, nil, InterroHarrisonEstab, nil, "enter_harrison_interro_estab_room")

---------------------------------------------------------------------------------------
--pentru intrebarea urmatoare _TB_Q873
function show_deton_finger_Harrison_cond ()
	return EvidenceEnablesQuestion ()
end
function show_deton_finger_Harrison ()
	ChangeRoom ( InterroHarrisonEstab )
end
AddEvent ( EVShowDetonFingerHarrison, false, ETDetonatorFingerprint, HHarrison, "show_deton_finger_Harrison_cond", "show_deton_finger_Harrison" )

--19.1200
--TB_Q873 : Why were your prints on the electronic transmitter?
function interro_harrison_TB_Q873_cond ()
	return IsQuestionAsked ( WarrantSuspects, "_TB_Q870" ) and ( IsEventDone ( EVShowDetonFingerHarrison ) or not EvidenceEnablesQuestion () ) and HasEvidence ( ETDetonatorFingerprint )
end
function interro_harrison_TB_Q873 ()
	ChangeRoom ( InterroHarrison3 )
	PlayDialog ( Harrison, "M4_GUS_1851" )
	UpdateCaseFile ( Harrison, SUSPECT_CRIMESCENE, "_TB_E4710", 250 )
	EndDisplayQuestionList ( Harrison )
	ChangeRoom ( InterroHarrisonEstab )

end
AddQuestion ( Harrison, false, nil, "_TB_Q873", nil, "interro_harrison_TB_Q873_cond", "interro_harrison_TB_Q873" )
-----------------------------------------------------------------------------------------
--19.1210
--TB_Q874 : Where were you when the prop gun was fired?
function interro_harrison_TB_Q874_cond ()

--!!ar trebui conditionata de TB_Q871 si TB_Q872 insa nu se regasesc intrebarile in document
	return IsQuestionAsked ( WarrantSuspects, "_TB_Q870" ) 
end
function interro_harrison_TB_Q874 ()
--	EndDisplayQuestionList ()
	PlayDialog ( Harrison, "M4_GUS_1852" )
	UpdateCaseFile ( Harrison, SUSPECT_CRIMESCENE, "_TB_E4711", 250 )
--	ChangeRoom ( InterroHarrisonEstab )
end
AddQuestion ( Harrison, false, nil, "_TB_Q874", nil, "interro_harrison_TB_Q874_cond", "interro_harrison_TB_Q874" )
-----------------------------------------------------------------------------------------
--pentru intrebarea urmatoare _TB_Q875
function show_prop_round_Harrison_cond ()
	return EvidenceEnablesQuestion ()
end
function show_prop_round_Harrison ()
	ChangeRoom ( InterroHarrisonEstab )
end
AddEvent ( EVShowPropRoundHarrison, false, EIPropRounds, HHarrison, "show_prop_round_Harrison_cond", "show_prop_round_Harrison" )

--19.1230
--TB_Q875 : Why do you have prop bullets in your area?
function interro_harrison_TB_Q875_cond ()
	return IsQuestionAsked ( Harrison, "_TB_Q873" ) and  IsQuestionAsked ( Harrison, "_TB_Q874" ) and ( IsEventDone ( EVShowPropRoundHarrison) or not EvidenceEnablesQuestion () ) and HasEvidence ( EIPropRounds ) and IsEventDone ( EVLabPropRound ) 
end
function interro_harrison_TB_Q875 ()
	PlayDialog ( Harrison, "M4_GUS_1853" )
	PlayDialog ( nil, "M4_NICK_1854" )
	ChangeRoom ( InterroHarrison1 )
	PlayDialog ( Harrison, "M4_GUS_1855" )
--	ChangeRoom ( InterroSara1 )  -- este gresit ales numele camerei!!!
	PlayDialog ( nil, "M4_NICK_1856" )
	EndDisplayQuestionList ( Harrison )
	ChangeRoom ( InterroHarrisonEstab )
	PlayDialog ( Harrison, "M4_GUS_1857" )
	UpdateCaseFile ( Harrison, SUSPECT_VICTIM, "_TB_E4712", 100 )
end
AddQuestion ( Harrison, false, nil, "_TB_Q875", nil, "interro_harrison_TB_Q875_cond", "interro_harrison_TB_Q875" )
-----------------------------------------------------------------------------------------
--pentru intrebarea urmatoare _TB_Q875
function show_photos_of_victim_Harrison_cond ()
	return EvidenceEnablesQuestion ()
end
function show_photos_of_victim_Harrison ()
	ChangeRoom ( InterroHarrisonEstab )
end
AddEvent ( EVShowPhotosVictimHarrison, false, EDPhotos, HHarrison, "show_photos_of_victim_Harrison_cond", "show_photos_of_victim_Harrison" )

--19.1290
--TB_Q876 : Why did you have photos of the victim?
function interro_harrison_TB_Q876_cond ()
	return IsQuestionAsked ( Harrison, "_TB_Q875" ) and ( IsEventDone ( EVShowPhotosVictimHarrison ) or not EvidenceEnablesQuestion () ) and HasEvidence ( EDPhotos )
end
function interro_harrison_TB_Q876 ()
	ChangeRoom ( InterroHarrison2 )
	PlayDialog ( Harrison, "M4_GUS_1858" )
	PlayDialog ( nil, "M4_NICK_1859" )
	PlayDialog ( Harrison, "M4_GUS_1860" )
--	ChangeRoom ( InterroSara1 ) 
	PlayDialog ( nil, "M4_NICK_1861" )
	EndDisplayQuestionList ( Harrison )
	ChangeRoom ( InterroHarrisonEstab )
	PlayDialog ( Harrison, "M4_GUS_1862" )
	UpdateCaseFile ( Harrison, SUSPECT_VICTIM, "_TB_E4713", 150 )
end
AddQuestion ( Harrison, false, nil, "_TB_Q876", nil, "interro_harrison_TB_Q876_cond", "interro_harrison_TB_Q876" )
-----------------------------------------------------------------------------------------
--19.1350
--TB_Q877 : Where is the rifle that's missing from the prop room?
function interro_harrison_TB_Q877_cond ()
	return IsQuestionAsked ( Harrison, "_TB_Q876" ) and IsEventDone ( EVEnteredGunRackView )   
end
function interro_harrison_TB_Q877 ()
	ChangeRoom ( InterroHarrison2 )
	PlayDialog ( Harrison, "M4_GUS_1863" )
	PlayDialog ( nil, "M4_NICK_1864" )
	ChangeRoom ( InterroHarrisonEstab )
	EndDisplayQuestionList ( Harrison )
	PlayDialog ( Harrison, "M4_GUS_1865" )
	PlayDialog ( Nick, "M4_NICK_1866" )
	ChangeRoom ( InterroHarrison1 ) 
	PlayDialog ( Harrison, "M4_GUS_1867" )
	PlayDialog ( nil, "M4_NICK_1868" )
	EndDisplayQuestionList ( Harrison )
	ChangeRoom ( InterroHarrisonEstab )
	UpdateCaseFile ( Harrison, INFORMATION, "_TB_E4331" )
end
AddQuestion ( Harrison, false, nil, "_TB_Q877", nil, "interro_harrison_TB_Q877_cond", "interro_harrison_TB_Q877" )
-----------------------------------------------------------------------------------------
--pentru intrebarea urmatoare _TB_Q878
function show_bullet_fragments_Harrison_cond ()
	return EvidenceEnablesQuestion ()
end
function show_bullet_fragments_Harrison ()

	ChangeRoom ( InterroHarrisonEstab )
end
AddEvent ( EVShowBulletFragmentsHarrison, false, EIBulletFragMorgue, HHarrison, "show_bullet_fragments_Harrison_cond", "show_bullet_fragments_Harrison" )

--19.1420
--TB_Q878 : Have you recently pried a bullet out of a prop cartridge?
function interro_harrison_TB_Q878_cond ()
	return IsQuestionAsked ( Harrison, "_TB_Q877" ) and IsEventDone ( EVAcquireFragMorgue ) and ( IsEventDone ( EVShowBulletFragmentsHarrison ) or not EvidenceEnablesQuestion () ) and HasEvidence ( EIBulletFragMorgue ) and IsEventDone ( EVEnteredToolRackView )
end
function interro_harrison_TB_Q878 ()
	PlayDialog ( Harrison, "M4_GUS_1869" )
	PlayDialog ( Nick, "M4_NICK_1870" )
	PlayReenactment( "Art\\Reenactments\\Movie\\rnct_gusshoots01a.xmv", "Art\\Reenactments\\Pictures\\rnct_gusshoots01a.tga", "_TB_Z2206", nil, "M4_NICK_1871" )
	PlayDialog ( Harrison, "M4_GUS_1872" )
	PlayDialog ( Nick, "M4_NICK_1873" )
	ChangeRoom ( InterroHarrison3 )
	PlayDialog ( Harrison, "M4_GUS_1874" )
--	ChangeRoom ( InterroSara1 ) 
	PlayDialog ( nil, "M4_NICK_1875" )
	PlayDialog ( Harrison, "M4_GUS_1876" )
	PlayDialog ( nil, "M4_NICK_1877" )
	ChangeRoom ( InterroHarrison1 )
	PlayDialog ( Harrison, "M4_GUS_1878" )
	EndDisplayQuestionList ( Harrison )
	ChangeRoom ( InterroHarrisonEstab )
	PlayDialog ( Nick, "M4_NICK_2095" )
	PlayDialog ( Harrison, "M4_GUS_2094" )
	if IsEventDone ( EVShowSquibProp )
		then
		NewEvent ( EVRemoveQ879, nil )
	end
	AddEvidence ( EISuperTool )
	AddEvidenceDescriptionText ( EISuperTool, "_TB_E2555" )
--	SetBackRoom ( InterroHarrisonEstab, BrassRoom01 )
	UpdateCaseFile ( Harrison, INFORMATION, "_TB_E4714" )
end
AddQuestion ( Harrison, false, nil, "_TB_Q878", nil, "interro_harrison_TB_Q878_cond", "interro_harrison_TB_Q878" )
-----------------------------------------------------------------------------------------
--19.1570
--TB_Q879 : What other proof do you have that you didn't kill Meryl?
function interro_harrison_TB_Q879_cond ()
	return IsQuestionAsked ( Harrison, "_TB_Q878" ) and not IsEventDone ( EVShowSquibProp )
end
function interro_harrison_TB_Q879 ()
--	ChangeRoom ( InterroSara2 )
	PlayDialog ( Harrison, "M4_GUS_1879" )
	PlayDialog ( Nick, "M4_NICK_1880" )
	ChangeRoom ( InterroHarrison1 )
	EndDisplayQuestionList ( Harrison )
	ChangeRoom ( InterroHarrisonEstab )
	PlayDialog ( Harrison, "M4_GUS_1881" )
	PlayReenactment( "Art\\Reenactments\\Movie\\rnct_merylgus01a.xmv", "Art\\Reenactments\\Pictures\\rnct_merylgus01a.tga", "_TB_Z2208", nil, "M4_GUS_1882" )
	PlayDialog ( Nick, "M4_NICK_1883" )
--	SetBackRoom ( InterroHarrisonEstab, BrassRoom01 )
	UpdateCaseFile ( Harrison, SUSPECT_VICTIM, "_TB_E4336", 150 )
	UpdateCaseFile ( Victim, VICTIM_CRIMESCENE, "_TB_E4334", 200 )
end
AddQuestion ( Harrison, false, nil, "_TB_Q879", nil, "interro_harrison_TB_Q879_cond", "interro_harrison_TB_Q879" )
-----------------------------------------------------------------------------------------
--19.1630
--TB_Q1202 : What other proof do you have that you didn't kill Meryl?
function interro_harrison_TB_Q1202_cond ()
	return IsQuestionAsked ( Harrison, "_TB_Q878" ) and not IsQuestionAsked ( Harrison, "_TB_Q879" ) and IsEventDone ( EVShowSquibProp )
end
function interro_harrison_TB_Q1202 ()
--	ChangeRoom ( InterroSara2 )
	PlayDialog ( Harrison, "M4_GUS_1879" )
	PlayDialog ( Nick, "M4_NICK_1880" )
	ChangeRoom ( InterroHarrison1 )
	EndDisplayQuestionList ( Harrison )
	ChangeRoom ( InterroHarrisonEstab )
	PlayDialog ( Harrison, "M4_GUS_1881" )
	PlayReenactment( "Art\\Reenactments\\Movie\\rnct_merylgus01a.xmv", "Art\\Reenactments\\Pictures\\rnct_merylgus01a.tga", "_TB_Z2208", nil, "M4_GUS_1882" )
	PlayDialog ( Nick, "M4_NICK_1885" )
	PlayDialog ( Harrison, "M4_GUS_1886" )
	PlayDialog ( Nick, "M4_NICK_1887" )
--22.1000
	if not IsEventDone ( EVShowSquibPropAfter )
		then
		SetVisible ( OPanoPointerDown, false )
		SetVisible ( OPanoDummyDown, true )
		SetActive ( HPanoDummyDown, true )
		SetVisible ( OPanoDummyUp, false )
		SetActive ( HPanoDummyUp, false )
		ChangeLink ( HTheatreLaserDummyDown, nil )
	end
	UpdateCaseFile ( Harrison, SUSPECT_VICTIM, "_TB_E4336", 150 )
	UpdateCaseFile ( Victim, VICTIM_CRIMESCENE, "_TB_E4334", 200 )
end
AddQuestion ( Harrison, false, nil, "_TB_Q1202", nil, "interro_harrison_TB_Q1202_cond", "interro_harrison_TB_Q1202" )
-----------------------------------------------------------------------------------------
-- pentru a nu avea 2 intrebari cu "What other proof do you have that you didn't kill Meryl?" in lista
-- fac un nou eveniment
function remove_TB_Q879_on_condit ()
	RemoveQuestion ( Harrison, "_TB_Q879" )
end
AddEvent ( EVRemoveQ879, false, EVRemoveQ879, nil, nil, "remove_TB_Q879_on_condit" )
-----------------------------------------------------------------------------------------
--19.1730
--TB_Q880 : Who do you think killed Meryl?
function interro_harrison_TB_Q880_cond ()
	return IsQuestionAsked ( Harrison, "_TB_Q879" ) or IsQuestionAsked ( Harrison, "_TB_Q1202" )
end
function interro_harrison_TB_Q880 ()
	PlayDialog ( Harrison, "M4_GUS_1888" )	
	PlayDialog ( Nick, "M4_NICK_1889" )
	ChangeRoom ( InterroHarrison2 )
	PlayDialog ( Harrison, "M4_GUS_1890" )
	UpdateCaseFile ( Carter, SUSPECT_VICTIM, "_TB_E4715", 100 )
	EndDisplayQuestionList ( Harrison )
	ChangeRoom ( InterroHarrisonEstab )

end
AddQuestion ( Harrison, false, nil, "_TB_Q880", nil, "interro_harrison_TB_Q880_cond", "interro_harrison_TB_Q880" )
-----------------------------------------------------------------------------------------
--pentru intrebarea urmatoare _TB_Q881
function show_photos_of_victim2_Harrison_cond ()
	return IsEventDone ( EVShowPhotosVictimHarrison ) and EvidenceEnablesQuestion ()
end
function show_photos_of_victim2_Harrison ()
	ChangeRoom ( InterroHarrisonEstab )

end
AddEvent ( EVShowPhotosVictim2Harrison, false, EDPhotos, HHarrison, "show_photos_of_victim2_Harrison_cond", "show_photos_of_victim2_Harrison" )
-----------------------------------------------------------------------------------------
--19.1770
--TB_Q881 : Is the photo from the prop room of Heather and Meryl's argument?
function interro_harrison_TB_Q881_cond ()
	return IsQuestionAsked ( Harrison, "_TB_Q880" ) and ( IsEventDone ( EVShowPhotosVictim2Harrison ) or ( not EvidenceEnablesQuestion () )) and HasEvidence ( EDPhotos )
end
function interro_harrison_TB_Q881 ()
	PlayDialog ( Harrison, "M4_GUS_1891" )
	
	PlayDialog ( Nick, "M4_NICK_1894" )
	SetVisible ( ORegis, false )
	SetVisible ( OCarter, false )
	SetActive ( HPanoCarter, false )
	SetActive ( HPanoRegis, false )
	AddEvidenceDescriptionText ( EDPhotos, "_TB_E4339" )

--19.1900
	UpdateCaseFile ( Carter, SUSPECT_VICTIM, "_TB_E4716", 100 )
	UpdateCaseFile ( Victim, INFORMATION, "_TB_E4718" )
	if not IsEventDone ( EVTheatreDialogRegis )
		then
		AddSuspect ( Regis, "Clayton Regis", "Art\\Reenactments\\Pictures\\clayton.tga" )
		UpdateCaseFile ( Regis, SUSPECT_VICTIM, "_TB_E4717", 200 )
	end

end
AddQuestion ( Harrison, false, nil, "_TB_Q881", nil, "interro_harrison_TB_Q881_cond", "interro_harrison_TB_Q881" )
-----------------------------------------------------------------------------------------
--pentru intrebarea urmatoare _TB_Q884
function show_running_shoes_Harrison_cond ()
	return EvidenceEnablesQuestion ()
end

function show_running_shoes_Harrison ()
	ChangeRoom ( InterroHarrisonEstab )
end
AddEvent ( EVShowRunningShoesHarrison, false, EICrossShoePropRoom, HHarrison, "show_running_shoes_Harrison_cond", "show_running_shoes_Harrison" )

--26.1000
--TB_Q884	: Do you own the running shoes from the prop room?

function interro_harrison_TB_Q884_cond ()
	return IsEventDone ( EVCompMatch1 ) and ( IsEventDone ( EVShowRunningShoesHarrison ) or not EvidenceEnablesQuestion () )
end
function interro_harrison_TB_Q884 ()
	EndDisplayQuestionList ()
	ChangeRoom ( InterroHarrison3 )
	PlayDialog ( Harrison, "M4_GUS_1911" )	
	PlayDialog ( nil, "M4_NICK_1912" )
	AddEvidenceDescriptionText ( EICrossShoePropRoom, "_TB_E4340" )
	EndDisplayQuestionList ( Harrison )
	ChangeRoom ( InterroHarrisonEstab )	
	PlayDialog ( Harrison, "M4_GUS_1913" )	
end
AddQuestion ( Harrison, false, nil, "_TB_Q884", nil, "interro_harrison_TB_Q884_cond", "interro_harrison_TB_Q884" )
-----------------------------------------------------------------------------------------
--pentru intrebarea urmatoare _TB_Q885
function show_loafer_shoe_print_Harrison_cond ()
	return EvidenceEnablesQuestion ()
end
function show_loafer_shoe_print_Harrison ()

	ChangeRoom ( InterroHarrisonEstab )
end
AddEvent ( EVShowLoaferShoePrintHarrison, false, ETLoaferShoeprint, HHarrison, "show_loafer_shoe_print_Harrison_cond", "show_loafer_shoe_print_Harrison" )

--26.1040
--TB_Q885	: Do you own Bruno Pagli loafers?

function interro_harrison_TB_Q885_cond ()
	return IsEventDone ( EVCompShoePrint ) and ( IsEventDone ( EVShowLoaferShoePrintHarrison ) or not EvidenceEnablesQuestion () ) and IsQuestionAsked ( Harrison, "_TB_Q884" ) and HasEvidence ( ETLoaferShoeprint )
end
function interro_harrison_TB_Q885 ()
	PlayDialog ( Harrison, "M4_GUS_1914" )	
	UpdateCaseFile ( Harrison, SUSPECT_CRIMESCENE, "_TB_E4719", 250 )

end
AddQuestion ( Harrison, false, nil, "_TB_Q885", nil, "interro_harrison_TB_Q885_cond", "interro_harrison_TB_Q885" )
-----------------------------------------------------------------------------------------
--pentru intrebarea urmatoare _TB_Q886
function show_water_stain_Harrison_cond ()
	return EvidenceEnablesQuestion ()
end
function show_water_stain_Harrison ()

	ChangeRoom ( InterroHarrisonEstab )
end
AddEvent ( EVShowWaterStainHarrison, false, ETBalconyWaterStain, HHarrison, "show_water_stain_Harrison_cond", "show_water_stain_Harrison" )

--26.1060
--TB_Q886	: Did you see a water stain in the balcony?

function interro_harrison_TB_Q886_cond ()
	return IsEventDone ( EVAquiredBalconyWaterStain ) and ( IsEventDone ( EVShowWaterStainHarrison ) or not EvidenceEnablesQuestion () ) and IsQuestionAsked ( Harrison, "_TB_Q884" ) and HasEvidence ( ETBalconyWaterStain )
end
function interro_harrison_TB_Q886 ()
	PlayDialog ( Harrison, "M4_GUS_1915" )	
	UpdateCaseFile ( Harrison, INFORMATION, "_TB_E4341" )

end
AddQuestion ( Harrison, false, nil, "_TB_Q886", nil, "interro_harrison_TB_Q886_cond", "interro_harrison_TB_Q886" )
-----------------------------------------------------------------------------------------