function fadein_morgue_without_skeleton_cond()
	return not IsQuestionAsked ( Coroner, QIDRobbinsQ972B ) 
end
function fadein_morgue_without_skeleton()
	SetVisible ( OMorgueSkeletonEstab, false )
	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
AddEvent( nil, true, nil, Morgue, "fadein_morgue_without_skeleton_cond", "fadein_morgue_without_skeleton" )

function fadein_morgue_with_skeleton_cond()
	return IsQuestionAsked ( Coroner, QIDRobbinsQ972B )
end
function fadein_morgue_with_skeleton()
	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
AddEvent( nil, true, nil, Morgue, "fadein_morgue_with_skeleton_cond", "fadein_morgue_with_skeleton" )

function click_on_coroner ()
	DisplayQuestionList ( Coroner )
end
AddEvent( nil, true, nil, HCoroner, nil, "click_on_coroner" )

function enter_morgue_estab ()
	DisplayQuestionList ( Coroner )
end
AddEvent( nil, true, nil, MorgueEstab, nil, "enter_morgue_estab" )


function morgue_zoom_glass()
	ZoomToRoom( MorgueSkeletonEye )
end

AddEvent( nil, true, magnifier, HMorgueSkeletonEye, nil, "morgue_zoom_glass" )


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

-- pick glass morgue

function morgue_pick_glass()
	AddEvidence(EISkullGlass)
	AddEvidenceDescriptionText(EISkullGlass, "_TB_E3404")
	SetVisible(OMorgueSkeletonGlass, false)
	SetVisible(OMorgueSkeletonGlassCU, false)

	SetActive(HMorgueSkeletonEye, false)
-- Nandu: NO-the jaw remains and thus the head hotspot (to access the jaw)
--	SetActive(HMorgueSkeletonHead, false)
SetActive(HMorgueSkeletonGlassCU, false)
end
AddEvent( nil, false, tweezers, HMorgueSkeletonGlassCU, nil, "morgue_pick_glass" )


-- pick fiber morgue

function zoom_fiber()
-- Nandu: zoom effect
--	ChangeRoom(MorgueSkeletonHandZoom, true)
	ZoomToRoom( MorgueSkeletonHandZoom )
end

AddEvent( nil, true, magnifier,HMorgueSkeletonHandObject, nil, "zoom_fiber" )

function morgue_pick_fiber()
	AddEvidence(ETVictimDirtyFiber)
	AddEvidenceDescriptionText(ETVictimDirtyFiber, "_TB_E3403")

	SetVisible(OMorgueSkeletonHandObject, false)
	SetVisible(OMorgueSkeletonHandZoom, false)
	
	SetActive(HMorgueSkeletonHandZoom, false)
	SetActive(HMorgueSkeletonHand, false)
	SetActive(HMorgueSkeletonHandObject, false)
end
AddEvent( nil, false, tweezers, HMorgueSkeletonHandZoom, nil, "morgue_pick_fiber" )