// vamp_act_heal5
#include "vampire_header"
void main()
{
    object oPC=GetPCSpeaker();
    if (!GetIsObjectValid(oPC)) oPC=OBJECT_SELF;
    int nBlood=GetLocalInt(oPC,"nBloodPool");
    effect eHeal=EffectHeal(5);
    nBlood=nBlood-1;
    SetLocalInt(oPC,"nBloodPool",nBlood);
    ApplyEffectToObject(DURATION_TYPE_INSTANT,eHeal,oPC,1.0);
    SendMessageToPC(oPC,"You use 1 blood to heal 5 hit points.");
    fnGiveVampXP(oPC,1);
}