IF
	True()
THEN
	RESPONSE #100
		CutSceneId(%quote%%s_name%%quote%)
		SmallWait(4)
		FaceObject("%prost_bers%")
		ActionOverride("%prost_bers%",FaceObject(Myself))
		SmallWait(6)
		ActionOverride("%prost_bers%",MoveToPoint([%x1p%.%y1p%]))
		SmallWait(4)
		MoveToPoint([%x2p%.%y2p%])
		FadeToColor([15.0],0)
		Wait(2)
		ActionOverride("%prost_bers%",DestroySelf())
		SetGlobalTimer("SH_%prost_ber%_EXISTS","GLOBAL",300)
		SetGlobal("SH_%s_name%_PROST_BER","GLOBAL",1)
		ApplySpellRES("%s_spell%",Myself)
		Wait(1)
		FadeFromColor([15.0],0)
		Wait(2)
		EndCutSceneMode()
END