IF
	Die()
THEN
	RESPONSE #100
		SetGlobal("VampirDead","GLOBAL",1)
		ReallyForceSpell(NearestEnemyOf(Myself),SUMMON_SKELETON_WARRIOR3)
		ReallyForceSpell(Myself,RED_HOLY_MIGHT)
		Wait(2)
		ReallyForceSpell(Myself,RED_SWIRL)
		SmallWait(5)
		ReallyForceSpell(Myself,MUSHROOM_FIRE)
		DestroySelf()
END


