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