IF
	Die()
THEN
	RESPONSE #20
		//DestroyItem("VVHEART")
		GiveItemCreate("VVHEART",Myself,1,1,0)
		//ReallyForceSpellDead(Myself,VAMPIRE_GAS_FORM_CHANGE)   
	RESPONSE #80
		ReallyForceSpellDead(Myself,VAMPIRE_GAS_FORM_CHANGE)   
END

//IF
//	!InParty(Myself)
//	 !HasItem("VVHEART",Myself)
//THEN
//	RESPONSE #100
//		//GiveItemCreate("VVHEART",Myself,1,1,0)
//		    
//END

IF
	InParty(Myself)
	 HasItem("VVHEART",Myself)
THEN
	RESPONSE #100
		DestroyItem("VVHEART")   
END