function morgue_enter()
	if not IsEventDone( EVMorgueIntro ) then
		ChangeRoom( MorgueEstab )
		FadeIn()
		PlayDialog( Coroner, "M2_ROBBINS_1318" )
--		ChangeRoom( MorgueCSI )
--		EndDisplayQuestionList( Warrick )
		PlayDialog( nil, "M2_WARRICK_1319" )
--		ChangeRoom( MorgueEstab )
		PlayDialog( Coroner, "M2_ROBBINS_9" )
		AddEvidence( ETDNAVictim )
		AddEvidenceDescriptionText( ETDNAVictim, "_TB_E88" )
		AddVictim( Victim, "Homless Victim", "Art\\Reenactments\\Pictures\\Homeless Guy.tga" )
		UpdateCaseFile( Victim, INFORMATION, "_TB_E1164" )
		
	else
		ChangeRoom( MorgueEstab )
		FadeIn()

			T = Random (3)
		if T == 1 then
			PlayDialog (Coroner, "M0_ROBBINS_1302")
		end
		if T == 2 then
			PlayDialog (Coroner, "M0_ROBBINS_1303")
		end
		if T == 3 then
			PlayDialog (Coroner, "M0_ROBBINS_1304")
		end
	
	end
	
end

AddEvent( EVMorgueIntro, true, nil, Morgue, nil, "morgue_enter" )


function coroner_questions()
	DisplayQuestionList( Coroner )
end

AddEvent( nil, true, nil, HCoroner, nil, "coroner_questions" )
AddEvent( nil, true, nil, MorgueEstab, nil, "coroner_questions" )



-- 2.2116
-- Player acquires PANTS STAIN with Swab.
function morgue_pants_stain()
	PlayDialog (nil, "M2_ROBBINS_13")
	SetActive( HMorguePantsSwab, false )
	AddEvidence( ETVictimPantsStain )
	AddEvidenceDescriptionText( ETVictimPantsStain, "_TB_E92" )
end

AddEvent( nil, false, swab, HMorguePantsSwab, nil, "morgue_pants_stain" )




-- 2.2120
-- Player enters view '3CorpseFinger'.
function morgue_finger_dialog()
	PlayDialog (nil, "M2_ROBBINS_14")
	UpdateCaseFile( Victim, INFORMATION, "_TB_E1168" )
	SetActive( HMorgueFinger, false )
end

AddEvent( nil, false, nil, MorgueFinger, nil, "morgue_finger_dialog" )




-- 2.2130
-- Player enters view '3CorpseScar'
function morgue_chest_scar()
	PlayDialog (nil, "M2_ROBBINS_15")
	UpdateCaseFile( Victim, INFORMATION, "_TB_E1170" )
end

--AddEvent( nil, false, nil, MorgueFinger, nil, "morgue_chest_scar" )




-- 2.2140
-- Player enters view '3CorpseAbdomin'.
function morgue_abdomin()
	PlayDialog (nil, "M2_ROBBINS_16")
	UpdateCaseFile( Victim, INFORMATION, "_TB_E1169" )
end

AddEvent( nil, false, nil, MorgueAbdomen, nil, "morgue_abdomin" )




-- 2.2150
-- Player enters view '3CorpseShoulder'.
function morgue_victim_shoulder()
	PlayDialog (nil, "M2_ROBBINS_17")
	UpdateCaseFile( Victim, INFORMATION, "_TB_E1171" )
	SetActive( HMorgueShoulder, false )
end

AddEvent( nil, false, nil, MorgueShoulder, nil, "morgue_victim_shoulder" )


--IncludeFile( "Script\\Gamelogic\\CoronerQuestions.lua" )