// vamp_act_domi
#include "vampire_header"
void main()
{
    object oPC=GetPCSpeaker();
    if (!GetIsObjectValid(oPC)) oPC=OBJECT_SELF;
    int nBlood=GetLocalInt(oPC,"nBloodPool");
    object oT=GetLocalObject(oPC,"oTarget");
    nBlood=nBlood-30;
    SetLocalInt(oPC,"nBloodPool",nBlood);
    AssignCommand(oPC,ClearAllActions(TRUE));
    AssignCommand(oPC,ActionCastSpellAtObject(SPELL_DOMINATE_PERSON,oT,METAMAGIC_ANY,TRUE));
    fnGiveVampXP(oPC,50);
    SendMessageToPC(oPC,"You used 30 blood to cast dominate person on "+GetName(oT)+".");
}