@ Phonograph
SCRIPT_START script_Phonograph
	BeginBlock
	Call sub_0807F934
	EndBlock
script_0800BA46:
	CheckEntityInteractType
	JumpIfNot script_0800BA46
	_0807E864
	Call sub_0807DF28
	MessageFromTarget 0x3301
	WaitUntilTextboxCloses
	CheckTextboxResult 
	JumpIfNot script_0800BA6C
	StopBgm
	Call sub_0806E964
	PlayBGM
script_0800BA6C:
	Call sub_0807DF50
	_0807E878
	Jump script_0800BA46