Scriptname _00E_StartQuestAndSetStage extends ObjectReference  

Actor Property PlayerREF Auto
Quest Property QuestToSet Auto
ObjectReference Property VisionStartMarker Auto
Sound Property Whispers Auto

Event OnActivate (ObjectReference akActionRef)

if akActionRef == PlayerREF
	QuestToSet.Start()
	QuestToSet.SetStage(10)
	Debug.Notification("Quest Set!")
	RegisterForSleep()
endif

EndEvent

Event OnSleepStart(float afSleepStartTime, float afDesiredSleepEndTime)
	Debug.Notification("Player went to sleep at: " + Utility.GameTimeToString(afSleepStartTime))
	PlayerREF.MoveTo(VisionStartMarker)
	Whispers.Play(PlayerREF)
endEvent