-- Morgue
function fadein_morgue()
	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
	DisplayQuestionList ( Coroner )

end

AddEvent( nil, true, nil, Morgue, nil, "fadein_morgue" )
----------------------------------------------------------------------------------------
function enter_mary_room ()
	if HasEvidence ( EISquibProp )
		then
		SetActive ( HTheatreSquibb, false )
		SetVisible ( OTheatreSquibbEstab, false )
	end
	if IsEventDone ( EVAcquireUVLightBruising ) or IsEventDone ( EVAcquireMorgueUVLightBruising )
		then
		SetActive ( HMorgueMaryFace, false )
	end
end
AddEvent( nil, true, nil, MorgueMaryEstab, nil, "enter_mary_room" )
----------------------------------------------------------------------------------------
function click_on_coroner()
	DisplayQuestionList( Coroner )
end
AddEvent( nil, true, nil, HCoroner, nil, "click_on_coroner")
----------------------------------------------------------------------------------------
--5.0000
--in cazul in care n-a fost luata proba de sange cu swab-ul din locatia Theatre
--si ai corpul la morga

function morgue_swabbing_blood_tool_cond ()
	return not IsEventDone ( EVSwabbingBlood ) 
end
function morgue_swabbing_blood_tool ()
	PlayDialog ( nil, "M4_NICK_1753" )
	AddEvidence ( ETBloodSampleMorgue ) 
	AddEvidenceDescriptionText ( ETBloodSampleMorgue, "_TB_E4314" )
end
AddEvent ( EVMorgueSwabbingBlood, false, swab, HMorgueMayBloodToolCU, "morgue_swabbing_blood_tool_cond", "morgue_swabbing_blood_tool" )
----------------------------------------------------------------------------------------
--5.0000 - nu este in document dar e ilogic :))
--in cazul in care n-a fost luata ramasita de glont cu manusa/penseta din locatia Theatre
--si ai corpul la morga

function morgue_acquire_squib_prop ()
	SetActive ( HTheatreSquibbCU, false )
	SetVisible ( OTheatreSquibbCU, false )	
	SetActive ( HTheatreSquibb, false )
	SetVisible ( OTheatreSquibbEstab, false )
	AddEvidence ( EISquibProp ) 
	AddEvidenceDescriptionText ( EISquibProp, "_TB_E4314" )
	if IsEventDone ( EVMorgueWoundImpression )
		then
		SetActive ( HMorgueMaryBlood, false )
	end
end
AddEvent ( EVMorgueAcquiredSquibProp1, false, gloves, HTheatreSquibbCU, nil, "morgue_acquire_squib_prop" )
AddEvent ( EVMorgueAcquiredSquibProp2, false, tweezers, HTheatreSquibbCU, nil, "morgue_acquire_squib_prop")
----------------------------------------------------------------------------------------
--8.1000
function morgue_enter_bloodstain_wound_cond ()
	return IsQuestionAsked ( Carter, "_TB_Q868" ) and (IsEventDone ( EVMorgueSwabbingBlood ) or IsEventDone ( EVSwabbingBlood )) 
end
function morgue_enter_bloodstain_wound ()
	PlayDialog ( nil, "M4_NICK_1813" )
end
AddEvent ( nil, false, nil, MorgueMaryBloodToolCU, "morgue_enter_bloodstain_wound_cond", "morgue_enter_bloodstain_wound" )
----------------------------------------------------------------------------------------
--8.1010
function morgue_have_wound_impression_cond ()
	return IsQuestionAsked ( Carter, "_TB_Q868" ) and  (IsEventDone ( EVMorgueSwabbingBlood ) or IsEventDone ( EVSwabbingBlood )) --and IsQuestionAsked ( Coroner, "_TB_Q957" ) 
end
function morgue_have_wound_impression ()
	SetActive ( HMorgueMayBloodToolCU, false )
	SetActive ( HMorgueMaryBloodCU, false )
	PlaySound ( nil, "MIKROSILLP_01" )
	PlayDialog ( nil, "M4_NICK_1814" )
	AddEvidence ( EIWoundImpression )
	AddEvidenceDescriptionText ( EIWoundImpression, "_TB_E2856" )
	if IsEventDone ( EVMorgueAcquiredSquibProp1 ) or IsEventDone ( EVMorgueAcquiredSquibProp2 ) or IsEventDone ( EVAcquiredSquibProp1 ) or IsEventDone ( EVAcquiredSquibProp2 )
		then
		SetActive ( HMorgueMaryBlood, false )
	end
	
end
AddEvent ( EVMorgueWoundImpression, false, mikrosil, HMorgueMayBloodToolCU, "morgue_have_wound_impression_cond", "morgue_have_wound_impression" )
---------------------------------------------------------------------------------------	

function morgue_acquire_face_bruising_UVlight ()
	SetActive ( HMorgueMaryUV, false )
	SetActive ( HMorgueMaryFace, false )
	PlayDialog ( nil, "M4_NICK_1756" )
	UpdateCaseFile ( Victim, INFORMATION, "_TB_E4731" )	
end
AddEvent ( EVAcquireMorgueUVLightBruising, false, uv, HMorgueMaryUV, nil, "morgue_acquire_face_bruising_UVlight" )
--------------------------------------------------------------------------------------


IncludeFile("Script\\Gamelogic\\MorgueQuestions.lua" )