function return_ext_room()
 SetBackRoom(DoorEnter,DoorEnter)
end

AddEvent(nil, true, nil, DoorEnter, nil, "return_ext_room")



-- 3.3
function disturbed_dirt_click()
	SetVisible( OBedPrintCast, false)
	PlayDialog( nil, "M2_SARAHEVID_23")
end

AddEvent( nil, false, nil, BedPrint, nil, "disturbed_dirt_click" )

-- 3.3.1
function dirt_casting()
	SetVisible( OBedPrintCast, true)
	PlaySound (nil, "CASTPOUR")
	SetVisible( OBedPrintCast, false)
	AddEvidence( EPlaster)
	AddEvidenceDescriptionText( EPlaster , "TEXT2062" )
	SetActive( HBedPrint, false )
	SetActive( HBedPrintFar, false)
      if HasEvidence(EShard) then
	SetActive(HFlowerBed, false)
	end
end

AddEvent( nil, false, cast, HBedPrint, nil, "dirt_casting" )


-- 3.3.2
function shards_glass()
	PlayDialog( nil, "M2_SARAHEVID_24")
end

AddEvent( EVFindGlass, false, nil, BedGlass, nil, "shards_glass" )


-- 3.3.3
function glass_pick()
	SetVisible( OBedGlass, false)
	SetActive( HBedGlass, false)
	SetActive( OBedGlassFar, false) 
	SetVisible( OBedGlassFar, false)               
	AddEvidence( EShard)
	AddEvidenceDescriptionText( EShard , "TEXT2056" )
	UpdateCaseFile( Jason, INFORMATION, "TEXT2233" )
	if HasEvidence(EPlaster) then
 	SetActive(HFlowerBed, false)
      end
end

AddEvent( nil, false, tweezers, HBedGlass, nil, "glass_pick" )