16 lines
544 B
Plaintext
16 lines
544 B
Plaintext
// vamp_act_charm
|
|
#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-20;
|
|
SetLocalInt(oPC,"nBloodPool",nBlood);
|
|
AssignCommand(oPC,ClearAllActions(TRUE));
|
|
AssignCommand(oPC,ActionCastSpellAtObject(SPELL_CHARM_PERSON,oT,METAMAGIC_ANY,TRUE));
|
|
fnGiveVampXP(oPC,10);
|
|
SendMessageToPC(oPC,"You used 20 blood to cast charm person on "+GetName(oT)+".");
|
|
}
|