@ Dr Left
SCRIPT_START script_DrLeft
	BeginBlock
	_0807E9D4
	Call sub_0806C09C
	DoPostScriptAction 0x000a
	SetAnimation 0x0000
	SetAnimationState 0x0004
	EndBlock
script_0800EABC:
	CheckEntityInteractType
	JumpIfNot script_0800EABC
	BeginBlock
	SetPlayerIdle
	FacePlayer
	CallWithArg sub_0806C028, 0x00000004
	EndBlock
script_0800EAD4:
	Call sub_0806C00C
	JumpIfNot script_0800EAD4
	SetAnimation 0x0008
	Call sub_0806C038
	WaitUntilTextboxCloses
	Wait 0x000f
	EnablePlayerControl
	SetAnimation 0x0000
	Jump script_0800EABC