  IF
	InParty(Player2)
	!Dead(Player2)
	Race(Player2,VAMPIRE)
	GlobalTimerExpired("Player2VampireResurrectTimer","LOCALS")
	HasItem("VVCASKET",Player2)
THEN
	RESPONSE #100
		RealSetGlobalTimer("Player2VampireResurrectTimer","LOCALS",FOUR_HOURS)
		Continue()
END
 
  IF
	InParty(Player3)
	!Dead(Player3)
	Race(Player3,VAMPIRE)
	GlobalTimerExpired("Player3VampireResurrectTimer","LOCALS")
	HasItem("VVCASKET",Player3)
THEN
	RESPONSE #100
		RealSetGlobalTimer("Player3VampireResurrectTimer","LOCALS",FOUR_HOURS)
		Continue()
END

 
  IF
	InParty(Player4)
	!Dead(Player4)
	Race(Player4,VAMPIRE)
	GlobalTimerExpired("Player4VampireResurrectTimer","LOCALS")
	HasItem("VVCASKET",Player4)
THEN
	RESPONSE #100
		RealSetGlobalTimer("Player4VampireResurrectTimer","LOCALS",FOUR_HOURS)
		Continue()
END


  IF
	InParty(Player5)
	!Dead(Player5)
	Race(Player5,VAMPIRE)
	GlobalTimerExpired("Player5VampireResurrectTimer","LOCALS")
	HasItem("VVCASKET",Player5)
THEN
	RESPONSE #100
		RealSetGlobalTimer("Player5VampireResurrectTimer","LOCALS",FOUR_HOURS)
		Continue()
END



  IF
	InParty(Player6)
	!Dead(Player6)
	Race(Player6,VAMPIRE)
	GlobalTimerExpired("Player6VampireResurrectTimer","LOCALS")
	HasItem("VVCASKET",Player6)
THEN
	RESPONSE #100
		RealSetGlobalTimer("Player6VampireResurrectTimer","LOCALS",FOUR_HOURS)
		Continue()
END

 
 IF
	InParty(Player2)
	Dead(Player2)
	Race(Player2,VAMPIRE)
	GlobalTimerExpired("Player2VampireResurrectTimer","LOCALS")
//OR(2)
	HasItem("VVCASKET",Player2)
//	PartyHasItem("VVCASKET") // Empty Casket
THEN
	RESPONSE #100
		ApplySpell(Player2,CLERIC_RESURRECTION)
		ApplySpell(Player2,RESTORE_FULL_HEALTH)
		Continue()
END

 IF
	InParty(Player3)
	Dead(Player3)
	Race(Player3,VAMPIRE)
	GlobalTimerExpired("Player3VampireResurrectTimer","LOCALS")
//OR(2)
	HasItem("VVCASKET",Player3)
//	PartyHasItem("VVCASKET") // Empty Casket
THEN
	RESPONSE #100
		ApplySpell(Player3,CLERIC_RESURRECTION)
		ApplySpell(Player3,RESTORE_FULL_HEALTH)
		Continue()
END

 IF
	InParty(Player4)
	Dead(Player4)
	Race(Player4,VAMPIRE)
	GlobalTimerExpired("Player4VampireResurrectTimer","LOCALS")
//OR(2)
	HasItem("VVCASKET",Player4)
//	PartyHasItem("VVCASKET") // Empty Casket
THEN
	RESPONSE #100
		ApplySpell(Player4,CLERIC_RESURRECTION)
		ApplySpell(Player4,RESTORE_FULL_HEALTH)
		Continue()
END

 IF
	InParty(Player5)
    Dead(Player5)
	Race(Player5,VAMPIRE)
	GlobalTimerExpired("Player5VampireResurrectTimer","LOCALS")
//OR(2)
	HasItem("VVCASKET",Player5)
//	PartyHasItem("VVCASKET") // Empty Casket
THEN
	RESPONSE #100
		ApplySpell(Player5,CLERIC_RESURRECTION)
		ApplySpell(Player5,RESTORE_FULL_HEALTH)
		Continue()
END

 IF
	InParty(Player6)
	Dead(Player6)
	Race(Player6,VAMPIRE)
	GlobalTimerExpired("Player6VampireResurrectTimer","LOCALS")
//OR(2)
	HasItem("VVCASKET",Player6)
//	PartyHasItem("VVCASKET") // Empty Casket
THEN
	RESPONSE #100
		ApplySpell(Player6,CLERIC_RESURRECTION)
		ApplySpell(Player6,RESTORE_FULL_HEALTH)
		Continue()
END