Scriptname _00E_Gaboff_GrammophoneSC extends ObjectReference  

Event OnUpdate()

	bIsPlaying = False

EndEvent

Event OnActivate(ObjectReference akActionRef)

	If !bIsPlaying

		int iButton = _00E_Gaboff_GrammophoneMSG.Show()
		
		if iButton == 0
		
			bIsPlaying = True
			PlayerREF.RemoveItem(Gold001, 5)
			_00E_MUS_Special_OceansWidowM.Play(Self)
			RegisterForSingleUpdate(160)
			
		Else
		
			Return
			
		EndIf
		
	EndIf
	
EndEvent

bool bIsPlaying

Actor Property PlayerREF Auto

MiscObject Property Gold001 Auto

Message Property _00E_Gaboff_GrammophoneMSG Auto

Sound Property _00E_MUS_Special_OceansWidowM Auto