--4.3.Q1

-- trebuie aflat ID-ul textului si apoi scos comentariul
function time_of_death_0600()
	PlayDialog(Coroner,"M5_CORONER_01")
end

AddQuestion(Coroner,false,nil,"TEXT0600",nil,nil,"time_of_death_0600")

--4.3.Q2
function cause_of_death_4140()
	PlayDialog(Coroner,"M5_CORONER_02")
	UpdateCaseFile(Victim,INFORMATION,"TEXT4154")
end

AddQuestion(Coroner,false,nil,"TEXT4140",nil,nil,"cause_of_death_4140")


--4.3.Q3

function allergic_victim_4141_cond()
	return IsQuestionAsked(Coroner,"TEXT0600")
end

function allergic_victim_4141()

	PlayMovie ( Coroner, "04_alr_stand_to_point.xmv" )
	SetIdleMovie ( Coroner, "04_alr_stand_idle.xmv")
	SetTalkMovie ( Coroner, "04_alr_stand_talk.xmv" )
	PlayDialog(Coroner,"M5_CORONER_03")
--	PlayMovie ( Coroner, "04_alr_point_to_fw.xmv" )
--	SetIdleMovie ( Coroner, "04_alr_point_idle.xmv"  )
--	SetTalkMovie ( Coroner, "04_alr_point_talk.xmv" )
--	PlayDialog(Coroner,"IMPACTCAMERA1")
	PlayReenactment( "Art\\Reenactments\\Movie\\impactcamera1.xmv", "Art\\Reenactments\\Pictures\\impactcamera1.tga", "TEXT4315", nil, "IMPACTCAMERA1" )	
	UpdateCaseFile(Victim,INFORMATION,"TEXT4155")
-- 4.3.2
	AddEvidence(ETPollenSample)
	AddEvidenceDescriptionText(ETPollenSample,"TEXT4041")

-- 4.3.3
	if not HasEvidence(EIMouthChips)
		then
			PlayDialog(Coroner,"M5_CORONER_09")
			AddEvidence(EIMouthChips)
			AddEvidenceDescriptionText(EIMouthChips,"TEXT4125")
	end
end
	
AddQuestion(Coroner,false,nil,"TEXT4141",nil,"allergic_victim_4141_cond","allergic_victim_4141")

--10.1.1.Q1
function coroner_question_4145_cond()
	return IsEventDone(EVLabStrandOfHair)
end

function coroner_question_4145()
	PlayDialog(Coroner,"M5_CORONER_04")
	AddEvidence(ETVictimDNA)
	AddEvidenceDescriptionText(ETVictimDNA,"TEXT4077")
end
	
AddQuestion(Coroner,false,nil,"TEXT4145",nil,"coroner_question_4145_cond","coroner_question_4145")

--10.1.2.Q1
function coroner_question_4142_cond()
	return IsEventDone(EVLabFacialTissue)
end

function coroner_question_4142()
	PlayDialog(Coroner,"M5_CORONER_05")
end
	
AddQuestion(Coroner, false, nil, "TEXT4142", nil, "coroner_question_4142_cond", "coroner_question_4142")

--10.1.2.Q2
function coroner_question_4143_cond()
	return IsQuestionAsked(Coroner,"TEXT4142")
end

function coroner_question_4143()
	PlayDialog(Coroner,"M5_CORONER_06")
	AddEvidenceDescriptionText(EITissueGarden,"TEXT4073")
	UpdateCaseFile(Victim,INFORMATION,"TEXT4156")
end

AddQuestion( Coroner, false, nil, "TEXT4143", nil, "coroner_question_4143_cond", "coroner_question_4143" )

--10.1.2.Q3
function coroner_question_4144_cond()
	return IsQuestionAsked(Coroner,"TEXT4143")
end

function coroner_question_4144()
	PlayDialog(Coroner,"M5_CORONER_07")
end

AddQuestion( Coroner, false, nil, "TEXT4144", nil, "coroner_question_4144_cond", "coroner_question_4144" )