--4.1100
--TB_Q972 : Can you recover the body from the scene?

function alrobins_question_TB_Q972A_cond ()
	return (IsEventDone(EVEnterHole) and not IsEventDone ( EVBrushArm ))
end
function alrobins_question_TB_Q972A ()
	PlayDialog ( Coroner, "M3_ROBBINS_2143" )
end
AddQuestion ( Coroner, true, nil, "_TB_Q972", nil, "alrobins_question_TB_Q972A_cond", "alrobins_question_TB_Q972A", QIDRobbinsQ972A )

--4.1200
function alrobins_question_TB_Q972B_cond ()
	return IsEventDone ( EVBrushArm ) 
end
function alrobins_question_TB_Q972B ()
	PlayDialog ( Coroner, "M3_ROBBINS_2144" )

-- Nandu: an effect to show that some time passes...
	ChangeRoom( MorgueEstab )
-- Nandu: updated ID's 
	FadeOut ()
	SetVisible ( OMorgueSkeletonEstab, true )
	FadeIn ()
	SetVisible ( ODigSiteSkeletonEstab, false ) 
	SetActive ( HDigSiteSkeletonEstab1, false )
	SetActive ( HDigSiteSkeletonEstab11, false )
	SetActive ( HDigSiteSkeletonEstab12, false )
	SetActive ( HDigSiteSkeletonEstab2, false )
--	SetActive ( HDigSiteSkeletonEstab3, false ) -- "dark soil" remains active
end
AddQuestion ( Coroner, false, nil, "_TB_Q972", nil, "alrobins_question_TB_Q972B_cond", "alrobins_question_TB_Q972B", QIDRobbinsQ972B )
------------------------------------------------------------------------------------------------------------
--4.1230
--TB_Q1190	: Can we examine the remains?

function alrobins_question_TB_Q1190_cond ()
	return IsQuestionAsked ( Coroner, QIDRobbinsQ972B )
end
function alrobins_question_TB_Q1190 ()
	PlayDialog ( Coroner, "M3_ROBBINS_2658" )
	if HasEvidence(ETVictimDirtyFiber) then
		SetActive(HMorgueSkeletonHand, false)
	end
	if HasEvidence(EISkullGlass) then
	SetVisible(OMorgueSkeletonGlass, false)
	SetVisible(OMorgueSkeletonGlassCU, false)

	SetActive(HMorgueSkeletonEye, false)
	SetActive(HMorgueSkeletonGlassCU, false)
	end
	EndDisplayQuestionList ()
	ChangeRoom ( MorgueSkeletonEstab, true )
end
AddQuestion ( Coroner, true, nil, "_TB_Q1190", nil, "alrobins_question_TB_Q1190_cond", "alrobins_question_TB_Q1190" )
------------------------------------------------------------------------------------------------------------
--4.1300
--TB_Q974	: What was the cause of death?

function alrobins_question_TB_Q974_cond ()
	return IsQuestionAsked ( Coroner, QIDRobbinsQ972B )
end
function alrobins_question_TB_Q974 ()
	PlayDialog ( Coroner, "M3_ROBBINS_2145" )
	PlayReenactment( "Art\\Reenactments\\Movie\\rcns_brain01a.xmv", "Art\\Reenactments\\Pictures\\rcns_brain01a.tga", "_TB_Z2917", nil, "M3_ROBBINS_2146" )
-- cu dialogul urmator in el
	PlayDialog	( Coroner, "M3_ROBBINS_2147" )
	UpdateCaseFile ( Skeleton, INFORMATION, "_TB_E4825" )
end
AddQuestion ( Coroner, false, nil, "_TB_Q974", nil, "alrobins_question_TB_Q974_cond", "alrobins_question_TB_Q974" )
-----------------------------------------------------------------------------------------------------------
--4.1340
--TB_Q975	: What can you tell us about the victim?

function alrobins_question_TB_Q975_cond ()
	return IsQuestionAsked ( Coroner, "_TB_Q974" )
end
function alrobins_question_TB_Q975 ()
	ChangeRoom ( MorgueOver, true )
	EndDisplayQuestionList ()
	PlayDialog ( Coroner, "M3_ROBBINS_2148" )
	ChangeRoom ( MorgueEstab )
	UpdateCaseFile ( Skeleton, INFORMATION, "_TB_E4826" )
end
AddQuestion ( Coroner, false, nil, "_TB_Q975", nil, "alrobins_question_TB_Q975_cond", "alrobins_question_TB_Q975" )
-----------------------------------------------------------------------------------------------------------
--4.1400
--TB_Q976	: Can you determine the time of death?
function alrobins_question_TB_Q976_cond ()
	return IsQuestionAsked ( Coroner, "_TB_Q975" )
end
function alrobins_question_TB_Q976 ()
	PlayDialog ( Coroner, "M3_ROBBINS_2149" )
	UpdateCaseFile ( Skeleton, VICTIM_CRIMESCENE, "_TB_E4827", 1000 )
end
AddQuestion ( Coroner, false, nil, "_TB_Q976", nil, "alrobins_question_TB_Q976_cond", "alrobins_question_TB_Q976" )
-----------------------------------------------------------------------------------------------------------
--4.1600
--TB_Q977	: Can DNA be extracted from the remains?
function alrobins_question_TB_Q977_cond ()
	return IsQuestionAsked ( Coroner, "_TB_Q976" ) and IsQuestionAsked ( Coroner, "_TB_Q975" ) and IsQuestionAsked ( Coroner, "_TB_Q974" )
end
function alrobins_question_TB_Q977 ()
	PlayDialog ( Coroner, "M3_ROBBINS_2150" )
	AddEvidence ( ETMorgueVictimDNA )
	AddEidenceDescriptionText ( ETMorgueVictimDNA, "_TB_E3429" )
end
AddQuestion ( Coroner, false, nil, "_TB_Q977", nil, "alrobins_question_TB_Q977_cond", "alrobins_question_TB_Q977" )
-----------------------------------------------------------------------------------------------------------
--4.1700
--TB_Q978	: Are there any identifying features?
function alrobins_question_TB_Q978_cond ()
	return IsQuestionAsked ( Coroner, "_TB_Q977" ) 
end
function alrobins_question_TB_Q978 ()
	ChangeRoom ( MorgueOver )
	EndDisplayQuestionList ()
	PlayDialog ( Coroner, "M3_ROBBINS_2151" )
	ChangeRoom ( MorgueEstab )
	AddEvidence ( EDXRay )
	AddEvidenceDescriptionText ( EDXRay, "_TB_E3432" )
	UpdateCaseFile ( Skeleton, INFORMATION, "_TB_E4828" )
end
AddQuestion ( Coroner, false, nil, "_TB_Q978", nil, "alrobins_question_TB_Q978_cond", "alrobins_question_TB_Q978" )
-------------------------------------------------------------------------------------------------------------
--4.1800
--TB_Q979	: Can we use dental records for comparison?
function alrobins_question_TB_Q979_cond ()
	return IsEventDone ( EVLookTeeth )and IsQuestionAsked ( Coroner, QIDRobbinsQ972B ) 
end
function alrobins_question_TB_Q979 ()
	PlayDialog ( Coroner, "M3_ROBBINS_2152" )
	ChangeRoom ( MorgueCSI, true )
	EndDisplayQuestionList ()
	PlayDialog ( Sara, "M3_SARA_2153" )
	ChangeRoom ( MorgueEstab )
	PlayDialog ( Coroner, "M3_ROBBINS_2154" )
	UpdateCaseFile ( Skeleton, INFORMATION, "_TB_E4829" )
end
AddQuestion ( Coroner, false, nil, "_TB_Q979", nil, "alrobins_question_TB_Q979_cond", "alrobins_question_TB_Q979" )
--------------------------------------------------------------------------------------------------------------
--8.2000
--TB_Q980	: Could the nick around the eye socket be from a pair of glasses?
function alrobins_question_TB_Q980_cond ()
	return IsQuestionAsked ( Coroner, QIDRobbinsQ972B ) and IsEventDone ( EVMicroscopeSkullGlass)
end
function alrobins_question_TB_Q980 ()
	PlayDialog ( Coroner, "M3_ROBBINS_2175" )
	ChangeRoom ( MorgueCSI , true)
	EndDisplayQuestionList ()
	PlayDialog ( Sara, "M3_SARA_2176" )
	PlayReenactment( "Art\\Reenactments\\Movie\\rnct_glasses_smashed.xmv", "Art\\Reenactments\\Pictures\\rnct_glasses_smashed.tga", "_TB_Z2913", nil, "M3_SARA_2177" )	
	ChangeRoom ( MorgueEstab )
	UpdateCaseFile ( Skeleton, INFORMATION, "_TB_E4830" )
end
AddQuestion ( Coroner, false, nil, "_TB_Q980", nil, "alrobins_question_TB_Q980_cond", "alrobins_question_TB_Q980" )
--------------------------------------------------------------------------------------------------------------
--17.1000
--TB_Q1006	: Could the Chinese statue have been used to kill the victim?
function alrobins_question_TB_Q1006_cond ()
	return IsEventDone ( EVSawBloodonStatue )
end
function alrobins_question_TB_Q1006 ()
	PlayDialog ( Coroner, "M3_ROBBINS_2253" )
	UpdateCaseFile ( Skeleton, INFORMATION, "_TB_E4831" )
end
AddQuestion ( Coroner, false, nil, "_TB_Q1006", nil, "alrobins_question_TB_Q1006_cond", "alrobins_question_TB_Q1006" )
--------------------------------------------------------------------------------------------------------------