void vamp_death2undeath(object oPC, object oTarget)
{
    if (GetIsObjectValid(oTarget)
                && GetSubRace(oTarget)=="Vampire"
                && GetCampaignInt("Vampire", "VampIsDead", oTarget) == TRUE )
    {
        SetCampaignInt("Vampire", "VampIsDead", FALSE, oTarget);
        SendMessageToAllDMs(GetName(oTarget)+": DEATH to UNDEATH wand used. This Vampire is now undead again.");
    }
    else
        SendMessageToPC(oPC,"Not a valid target of the Death to Undeath wand.");
}