-- 8.1040
-- _TB_Q764=Where were you yesterday evening?

function victor_question_764()
	PlayDialog( Victor, "M5_VICTOR_1461" )
	ChangeRoom( FuneralGrissom1 )
	PlayDialog( Grissom, "M5_GRISSOM_1462" )
	ChangeRoom( FuneralVictor1 )
	SetBackRoom( FuneralVictor1, FuneralEstab )
	PlayDialog( Victor, "M5_VICTOR_1463" )
	EndDisplayQuestionList()
	UpdateCaseFile ( Victor, SUSPECT_CRIMESCENE, "_TB_E3175", 100 )

end

AddQuestion ( Victor, false, nil, "_TB_Q764", nil, nil, "victor_question_764" )


-- 8.1080
-- _TB_Q765=Did you do anything else last night? 

function victor_question_765_cond()
	return IsQuestionAsked( Victor, "_TB_Q764" )
end

function victor_question_765()
	PlayDialog( Victor, "M5_VICTOR_1464" )
	ChangeRoom( FuneralGrissom1 )
	PlayDialog( Grissom, "M5_GRISSOM_1465" )
	ChangeRoom( FuneralVictor1 )
	SetBackRoom( FuneralVictor1, FuneralEstab )
	PlayDialog( Victor, "M5_VICTOR_1466" )
	EndDisplayQuestionList()
	UpdateCaseFile ( Victor, SUSPECT_CRIMESCENE, "_TB_E3185", 100 )
end

AddQuestion ( Victor, false, nil, "_TB_Q765", nil, "victor_question_765_cond", "victor_question_765" )


-- 8.1100
-- _TB_Q766=Have you seen Ernie Rowntree recently? 

function victor_question_766_cond()
	return IsQuestionAsked( Victor, "_TB_Q765" )
end

function victor_question_766()
	PlayDialog( Victor, "M5_VICTOR_1467" )
	ChangeRoom( FuneralGrissom1 )
	PlayDialog( Grissom, "M5_GRISSOM_1468" )
	UpdateCaseFile ( Ernie, SUSPECT_CRIMESCENE, "_TB_E4655", 100 )
	ChangeRoom( FuneralVictor1 )
	SetBackRoom( FuneralVictor1, FuneralEstab )
	PlayDialog( Victor, "M5_VICTOR_1469" )
	EndDisplayQuestionList()
	UpdateCaseFile ( Victor, SUSPECT_CRIMESCENE, "_TB_E3186", 100 )
end

AddQuestion ( Victor, false, nil, "_TB_Q766", nil, "victor_question_766_cond", "victor_question_766" )


-- 8.1140
-- _TB_Q767=Were you near the show grounds last night? 

function victor_question_767_cond()
	return IsQuestionAsked( Victor, "_TB_Q765" ) and IsQuestionAsked( Victor, "_TB_Q766" )
end

function victor_question_767()
	UpdateCaseFile ( Victor, SUSPECT_CRIMESCENE, "_TB_E3187", 100 )
	PlayDialog( Victor, "M5_VICTOR_1470" )
end

AddQuestion ( Victor, false, nil, "_TB_Q767", nil, "victor_question_767_cond", "victor_question_767" )


-- 8.1160
-- _TB_Q768=Did you see anything out of the ordinary last night?

function victor_question_768_cond()
	return IsQuestionAsked( Victor, "_TB_Q767" ) and (not IsEventDone( EVHumanToeBefore ))      -- DE INLOCUIT
end

function victor_question_768()
	PlayDialog( Victor, "M5_VICTOR_1471" )
end

AddQuestion ( Victor, false, nil, "_TB_Q768", nil, "victor_question_768_cond", "victor_question_768" )


-- 8.1180
-- _TB_Q769=Did you see a shorter man in his early 40's during your walk?

function victor_question_769_cond()
	return IsQuestionAsked( Victor, "_TB_Q767" ) and ( IsEventDone( EVHumanToeBefore ) or IsEventDone( EVHumanToeAfter ))  -- DE INLOCUIT
end

function victor_question_769()
	PlayDialog( Victor, "M5_VICTOR_1472" )
--	UpdateCaseFile ( Dominic, SUSPECT_CRIMESCENE, "_TB_E3190", 100 )
	UpdateCaseFile ( Victor, INFORMATION, "_TB_E3188" )
end

AddQuestion ( Victor, false, nil, "_TB_Q769", nil, "victor_question_769_cond", "victor_question_769" )


-- 8.1200
-- _TB_Q770=Can you describe the van you saw?

function victor_question_770_cond()
	return IsQuestionAsked( Victor, "_TB_Q769" )
end

function victor_question_770()
	PlayDialog( Victor, "M5_VICTOR_1473" )
	UpdateCaseFile ( Victor, INFORMATION, "_TB_E3189" )
end

AddQuestion ( Victor, false, nil, "_TB_Q770", nil, "victor_question_770_cond", "victor_question_770" )


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

-- 30.1010
-- _TB_Q810=Did your wife die in a car accident? 
function victor_DNAfood2_show_cond()
	return EvidenceEnablesQuestion()
end

function victor_DNAfood2_show()
	PlayDialog( Victor, "M5_VICTOR_2092" )
	ChangeRoom( FuneralVictor1 )
	SetBackRoom( FuneralVictor1, FuneralEstab )
end

AddEvent( EVVictorDNAFood2Show, false, ETDNAFood2, HFuneralVictor1, "victor_DNAfood2_show_cond", "victor_DNAfood2_show" )

function victor_question_810_cond()
	return IsQuestionAsked( Brass, "_TB_Q808" ) and (IsEventDone( EVVictorDNAFood2Show ) or (not EvidenceEnablesQuestion()))
end

function victor_question_810()
	PlayDialog( Victor, "M5_VICTOR_1604" )
	UpdateCaseFile ( Victor, INFORMATION, "_TB_E3191" )
end

AddQuestion ( Victor, false, nil, "_TB_Q810", nil, "victor_question_810_cond", "victor_question_810" )


-- 30.1040
-- _TB_Q811=Do you know that Dr.Julius Rivelli was the attending physician for your wife's death? 

function victor_question_811_cond()
	return IsQuestionAsked( Victor, "_TB_Q810" )
end

function victor_question_811()
	PlayDialog( Victor, "M5_VICTOR_1605" )
	UpdateCaseFile ( Victor, INFORMATION, "_TB_E3192" )
	UpdateCaseFile ( Julius, INFORMATION, "_TB_E4656" )
end

AddQuestion ( Victor, false, nil, "_TB_Q811", nil, "victor_question_811_cond", "victor_question_811" )


-- 30.1060
-- _TB_Q812=Do you mind if we look around?

function victor_question_812_cond()
	return IsQuestionAsked( Victor, "_TB_Q811" )
end

function victor_question_812()
	PlayDialog( Victor, "M5_VICTOR_1606" )
	-- FUNERAL BACK AVAILABLE
	SetActive( HFuneralBackroomEstab, true )
	SetActive( HFuneralCoffinEstab, true )
end

AddQuestion ( Victor, false, nil, "_TB_Q812", nil, "victor_question_812_cond", "victor_question_812" )

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

-- 30.4010
-- _TB_Q813=Why is there a body bag in your garbage can?

function victor_question_813_cond()
	return IsEventDone( EVGarbageCanCU ) and not IsEventDone( EVLuminolStainBag )
end

function victor_question_813()
	PlayDialog( Victor, "M5_VICTOR_1618" )
	UpdateCaseFile ( Victor, INFORMATION, "_TB_E3193" )	
end

AddQuestion ( Victor, false, nil, "_TB_Q813", nil, "victor_question_813_cond", "victor_question_813" )


-- 30.4015
-- _TB_Q1053=Why is there a bloody body bag in your garbage can?
function victor_bagblood_show_cond()
	return EvidenceEnablesQuestion()
end

function victor_bagblood_show()
	PlayDialog( Victor, "M5_VICTOR_2092" )
	ChangeRoom( FuneralVictor1 )
	SetBackRoom( FuneralVictor1, FuneralEstab )
end

AddEvent( EVVictorBagbloodShow, false, ETBloodBagSample, HFuneralVictor1, "victor_bagblood_show_cond", "victor_bagblood_show" )

function victor_question_1053_cond()
	return HasEvidence( ETBloodBagSample ) and (IsEventDone( EVVictorBagbloodShow ) or (not EvidenceEnablesQuestion()))
end

function victor_question_1053()
	PlayDialog( Victor, "M5_VICTOR_2487" )
	UpdateCaseFile ( Victor, INFORMATION, "_TB_E3248" )
	AddEvidenceDescriptionText( ETBloodBagSample, "_TB_E4658")	
end

AddQuestion ( Victor, false, nil, "_TB_Q1053", nil, "victor_question_1053_cond", "victor_question_1053" )


-- 30.4020
-- _TB_Q814 =What are the numbers written on the ledger sheet?
function victor_page1_show_cond()
	return EvidenceEnablesQuestion()
end

function victor_page1_show()
	PlayDialog( Victor, "M5_VICTOR_2092" )
	ChangeRoom( FuneralVictor1 )
	SetBackRoom( FuneralVictor1, FuneralEstab )
end

AddEvent( EVVictorPage1Show, false, EDHandwrittenPage, HFuneralVictor1, "victor_page1_show_cond", "victor_page1_show" )

function victor_question_814_cond()
	return HasEvidence(EDHandwrittenPage) and (IsEventDone( EVVictorPage1Show ) or (not EvidenceEnablesQuestion()))
end

function victor_question_814()
	PlayDialog( Victor, "M5_VICTOR_1619" )
	ChangeRoom( FuneralGrissom1 )
	PlayDialog( Grissom, "M5_GRISSOM_1620" )
	ChangeRoom( FuneralVictor1 )
	SetBackRoom( FuneralVictor1, FuneralEstab )
	PlayDialog( Victor, "M5_VICTOR_1621" )
	EndDisplayQuestionList()
	UpdateCaseFile ( Victor, INFORMATION, "_TB_E3194" )
end

AddQuestion ( Victor, false, nil, "_TB_Q814", nil, "victor_question_814_cond", "victor_question_814" )


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

-- 35.1010
-- _TB_Q818=Were you under-bidding on funeral services for people who had received your wife's organs?
function victor_handpage_show_cond()
	return EvidenceEnablesQuestion()
end

function victor_handpage_show()
	PlayDialog( Victor, "M5_VICTOR_2092" )
	ChangeRoom( FuneralVictor1 )
	SetBackRoom( FuneralVictor1, FuneralEstab )
end

AddEvent( EVVictorHandPageShow, false, EDHandwrittenPage, HFuneralVictor1, "victor_handpage_show_cond", "victor_handpage_show" )

function victor_question_818_cond()
	return HasEvidence(EDHandwrittenPage) and (IsEventDone( EVVictorHandPageShow ) or (not EvidenceEnablesQuestion())) and (IsQuestionAsked( Julius,"_TB_Q816" ) or IsQuestionAsked( Julius,"_TB_Q817" ))
end							

function victor_question_818()
	PlayDialog( Victor, "M5_VICTOR_1660" )
	ChangeRoom( FuneralGrissom1 )
	PlayDialog( Grissom, "M5_GRISSOM_1661" )
	ChangeRoom( FuneralVictor1 )
	SetBackRoom( FuneralVictor1, FuneralEstab )
	PlayDialog( Victor, "M5_VICTOR_1662" )
	EndDisplayQuestionList()
	UpdateCaseFile ( Victor, INFORMATION, "_TB_E3195" )
end

AddQuestion ( Victor, false, nil, "_TB_Q818", nil, "victor_question_818_cond", "victor_question_818" )


-- 35.1050
-- _TB_Q819=Why was a fragment from your body bag found at the Komodo pen?
function victor_vinylbag_show_cond()
	return EvidenceEnablesQuestion()
end

function victor_vinylbag_show()
	PlayDialog( Victor, "M5_VICTOR_2092" )
	ChangeRoom( FuneralVictor1 )
	SetBackRoom( FuneralVictor1, FuneralEstab )
end

AddEvent( EVVictorVinylBagShow, false, ETVinylFragBag, HFuneralVictor1, "victor_vinylbag_show_cond", "victor_vinylbag_show" )

function victor_question_819_cond()
	return IsEventDone( EVCompSearch3 ) and (IsEventDone( EVVictorVinylBagShow ) or (not EvidenceEnablesQuestion()))
end

function victor_question_819()
	PlayDialog( Victor, "M5_VICTOR_1663" )
	ChangeRoom( FuneralGrissom1 )
	PlayDialog( Grissom, "M5_GRISSOM_1664" )
	ChangeRoom( FuneralVictor1 )
	SetBackRoom( FuneralVictor1, FuneralEstab )
	PlayDialog( Victor, "M5_VICTOR_1665" )
	EndDisplayQuestionList()
	UpdateCaseFile ( Victor, SUSPECT_CRIMESCENE, "_TB_E3196",100 )
end

AddQuestion ( Victor, false, nil, "_TB_Q819", nil, "victor_question_819_cond", "victor_question_819" )


-- 35.1090
-- _TB_Q820=Was your folding operating table at the Komodo pen?
function victor_tablemark_show_cond()
	return EvidenceEnablesQuestion()
end

function victor_tablemark_show()
	PlayDialog( Victor, "M5_VICTOR_2092" )
	ChangeRoom( FuneralVictor1 )
	SetBackRoom( FuneralVictor1, FuneralEstab )
end

AddEvent( EVVictorTableMarkShow, false, ETSkidMarkFuneralHome, HFuneralVictor1, "victor_tablemark_show_cond", "victor_tablemark_show" )

function victor_question_820_cond()
	return IsEventDone( EVCompTreadsCircusFuneral ) and (IsEventDone( EVVictorTableMarkShow ) or (not EvidenceEnablesQuestion()))
end

function victor_question_820()
	PlayDialog( Victor, "M5_VICTOR_1666" )
	UpdateCaseFile ( Victor, SUSPECT_CRIMESCENE, "_TB_E3197",100 )
end

AddQuestion ( Victor, false, nil, "_TB_Q820", nil, "victor_question_820_cond", "victor_question_820" )