// vamp_act_wolf
#include "vampire_header"
void main()
{
    object oPC=GetPCSpeaker();
    if (!GetIsObjectValid(oPC)) oPC=OBJECT_SELF;
    int nBlood=GetLocalInt(oPC,"nBloodPool");
    effect ePoly=EffectPolymorph(POLYMORPH_TYPE_DIRE_WOLF);
    nBlood=nBlood-60;
    SetLocalInt(oPC,"nBloodPool",nBlood);
    ApplyEffectToObject(DURATION_TYPE_TEMPORARY,ePoly,oPC,HoursToSeconds(2));
    fnGiveVampXP(oPC,100);
    SendMessageToPC(oPC,"You used 60 blood to shape change into a dire wolf.");
}