2024-06-14 10:48:20 -04:00
/*
By DAVIDBEOULVE
Sets the Lineage of a new vampire... their maker and
up to four generations beyond.
*/
2024-09-16 23:40:48 -04:00
#include "prc_inc_racial"
2024-06-14 10:48:20 -04:00
void vamp_setlineage(object oPC, object oTarget)
{
string lineage1 = GetCampaignString("Vampire","Lineage",oPC);
string lineage2 = GetCampaignString("Vampire","Lineage_1",oPC);
string lineage3 = GetCampaignString("Vampire","Lineage_2",oPC);
string lineage4 = GetCampaignString("Vampire","Lineage_3",oPC);
string sTargetName =GetName(oTarget);
PrintString("vamp_blooddrain: vamp_setlineage() |PC|" + GetName(oPC) + " |Target|" + sTargetName);
//Set their maker
SetCampaignString("Vampire","Lineage",GetName(oPC),oTarget);
PrintString("vamp_blooddrain: vamp_setlineage() |Target|"+sTargetName+" L="+GetName(oPC)+" L1="+lineage1+" L2="+lineage2+" L3="+lineage3+" L4="+lineage4);
if (lineage1 != "")
{
SetCampaignString("Vampire","Lineage_1",lineage1,oTarget);
PrintString("vamp_blooddrain: vamp_setlineage() |Target|"+sTargetName+" L1="+lineage1+".");
}
if (lineage2 != "")
{
SetCampaignString("Vampire","Lineage_2",lineage2,oTarget);
PrintString("vamp_blooddrain: vamp_setlineage() |Target|"+sTargetName+" L2="+lineage2+".");
}
if (lineage3 != "")
{
SetCampaignString("Vampire","Lineage_3",lineage3,oTarget);
PrintString("vamp_blooddrain: vamp_setlineage() |Target|"+sTargetName+" L3="+lineage3+".");
}
if (lineage4 != "")
{
SetCampaignString("Vampire","Lineage_4",lineage4,oTarget);
PrintString("vamp_blooddrain: vamp_setlineage() |Target|"+sTargetName+" L4="+lineage4+".");
}
// here is where we set the power of the vampire in its clan...
// the lower the number the higher the power.
// Vampires who are iVampMasterDifference numbers lower than another
// can be destroyed by the higher member.
int iMaster = GetCampaignInt("Vampire","VampLevel",oPC);
SetCampaignInt("Vampire","VampLevel",iMaster+1,oTarget);
// Tell everyone all about it.
PrintString("vamp_blooddrain: vamp_setlineage() - "
+GetName(oPC)+"'s Vampire Level is "
+IntToString(iMaster)+". "+GetName(oTarget)+"'s Vampire Level is set to "
+IntToString(iMaster+1)+".");
SendMessageToPC(oPC,"You have made "+GetName(oTarget)+" a Vampire. They are "+IntToString(iMaster+1)+" in the line of vampires that created you.");
SendMessageToAllDMs(GetName(oPC)+" has made "+GetName(oTarget)+" a Vampire. They are "+IntToString(iMaster+1)+" in the line of vampires.");
SendMessageToPC(oTarget,GetName(oPC)+" has made you into a Vampire. You are "+IntToString(iMaster+1)+" in the line of vampires. Any vampire that your creator makes will be the same generation, and any you may create, the lesser.");
}
// Adjust alignment
void adjust_alignment(object oPC, object oTarget)
{
// If target is animal -1 hit.
if (GetObjectType(oTarget) == RACIAL_TYPE_ANIMAL || GetObjectType(oTarget) == RACIAL_TYPE_BEAST || RACIAL_TYPE_ABERRATION)
{
AdjustAlignment(oPC, ALIGNMENT_EVIL, 1);
}
else
{
// If target is evil. No hit at all.
if (GetAlignmentGoodEvil(oTarget) == ALIGNMENT_EVIL)
{
return;
}
// If target is neutral or good. Adjust alignment 10 to evil.
else AdjustAlignment(oPC, ALIGNMENT_EVIL, 10);
}
}
#include "vamp_subrace"
//ADDED BY DAVIDBEOULVE:EDITED BY SEYMOR-OMNIS////////
#include "vamp_friends"
//////////////////////////////////////////////////////
// Blood Drain ability.
void vamp_blooddrain(object oPC,object oTarget)
{
string dr_TargetIsDead;
string dr_TargetIsPC;
object oMod = GetModule();
int iHourLength = GetLocalInt(oMod, "HourLength");
float fDrain = IntToFloat(iHourLength*24);
float fTemphealth = IntToFloat(iHourLength);
PrintString("vamp_blooddrain(): - PC|" + GetName(oPC) + " TARGET|" + GetName(oTarget) + " - Function called.");
2024-09-16 23:40:48 -04:00
// If target is undead, elemental, ooze, plant or construct skip everything.
if ((GetObjectType(oTarget) == OBJECT_TYPE_CREATURE) && (MyPRCGetRacialType(oTarget)!= RACIAL_TYPE_ELEMENTAL) &&
(MyPRCGetRacialType(oTarget)!= RACIAL_TYPE_UNDEAD) &&
(MyPRCGetRacialType(oTarget)!= RACIAL_TYPE_CONSTRUCT) &&
(MyPRCGetRacialType(oTarget)!= RACIAL_TYPE_PLANT) &&
(MyPRCGetRacialType(oTarget)!= RACIAL_TYPE_OOZE) &&
GetSubRace(oTarget) != "Vampire")
2024-06-14 10:48:20 -04:00
{
PrintString("vamp_blooddrain(): - PC|" + GetName(oPC) + " TARGET|" + GetName(oTarget) + " - Target is not an invalid racial victim.");
// Checks is target allready dead. Will be needing later.
int iDead = GetIsDead(oTarget);
// Get distance to target. If distance is < 2m attempt bite
if (GetDistanceBetween(oPC,oTarget)<2.0f)
{
PrintString("vamp_blooddrain(): - PC|" + GetName(oPC) + " TARGET|" + GetName(oTarget) + " - Target is in range.");
// If target is not dead nor sleeping make bite attempt
// This section also checks for effects that would leave a person helpless in dodging
effect eEffect = GetFirstEffect(oTarget);
int iDominated = FALSE;
int iParalyzed = FALSE;
int iStunned = FALSE;
int iSleep = FALSE;
while(GetIsEffectValid(eEffect))
{
int iType = GetEffectType(eEffect);
if(iType == EFFECT_TYPE_DOMINATED)
iDominated = TRUE;
else if(iType == EFFECT_TYPE_PARALYZE)
iParalyzed = TRUE;
else if(iType == EFFECT_TYPE_STUNNED)
iStunned = TRUE;
else if(iType == EFFECT_TYPE_SLEEP)
iSleep = TRUE;
eEffect = GetNextEffect(oTarget);
}
if ( GetIsDead(oTarget)==FALSE && iDominated==FALSE && iParalyzed==FALSE && iStunned==FALSE && iSleep==FALSE && GetIsResting(oTarget)==FALSE)
{
PrintString("vamp_blooddrain(): - PC|" + GetName(oPC) + " TARGET|" + GetName(oTarget) + " - Target is not dead or sleeping.");
SendMessageToPC(oPC, "You attempt to bite victim");
// If target is PC send message to him.
if (GetIsPC(oTarget) == TRUE)
{
SetPCDislike(oPC,oTarget);
SendMessageToPC(oTarget,GetName(oPC)+" attempts to bite you!");
}
// If target is NPC change target hostile.
else
{
PrintString("vamp_blooddrain: NPC ["+GetName(oTarget)+"] attacked by ["+GetName(oPC)+"].");
// This following command is buggy because it means that
// if there are any Defenders or Commoners or Merchants
// or factions hostile to Faction Hostile, they will
// attack the victim.
// ChangeToStandardFaction(oTarget,STANDARD_FACTION_HOSTILE);
// If the victim does not consider their attacker an enemy...
// (don't do this if they are already in combat it might
// interfere with the NPC's thought process)
if (!GetIsEnemy(oPC,oTarget))
{
PrintString("vamp_blooddrain: NPC ["+GetName(oTarget)+"] will now be the enemy of ["+GetName(oPC)+"].");
// make them hate the PC Vampire
AdjustReputation(oPC, oTarget, -100);
SetIsTemporaryEnemy(oPC, oTarget);
// Have them attack!
AssignCommand(oTarget, ActionAttack(oPC));
// Depreciated?
// AssignCommand(oTarget, DetermineCombatRound(oPC));
}
}
// Attempt bite. Base Attack +d20 against target AC & an accurate grapple check
int iCreatureSizePC = 0;
int iCreatureSizeTarget = 0;
if (GetCreatureSize(oPC) == CREATURE_SIZE_TINY)
iCreatureSizePC = -8;
else if (GetCreatureSize(oPC) == CREATURE_SIZE_SMALL)
iCreatureSizePC = -4;
else if (GetCreatureSize(oPC) == CREATURE_SIZE_LARGE)
iCreatureSizePC = 4;
else if (GetCreatureSize(oPC) == CREATURE_SIZE_HUGE)
iCreatureSizePC = 8;
if (GetCreatureSize(oTarget) == CREATURE_SIZE_TINY)
iCreatureSizeTarget = -8;
else if (GetCreatureSize(oTarget) == CREATURE_SIZE_SMALL)
iCreatureSizeTarget = -4;
else if (GetCreatureSize(oTarget) == CREATURE_SIZE_LARGE)
iCreatureSizeTarget = 4;
else if (GetCreatureSize(oTarget) == CREATURE_SIZE_HUGE)
iCreatureSizeTarget = 8;
if ((GetBaseAttackBonus(oPC)+d20(1)) >= GetAC(oTarget) && (GetBaseAttackBonus(oPC)+GetAbilityModifier(ABILITY_STRENGTH,oPC)+iCreatureSizePC) > (GetBaseAttackBonus(oTarget)+GetAbilityModifier(ABILITY_STRENGTH,oTarget)+iCreatureSizeTarget))
{
PrintString("vamp_blooddrain(): - PC|" + GetName(oPC) + " TARGET|" + GetName(oTarget) + " - Bit target!!!.");
SendMessageToPC(oPC, "You bite victim");
if (GetIsPC(oTarget) == TRUE)
{
SendMessageToPC(oTarget,GetName(oPC)+" bites you!");
}
// Apply effects to target. -1d4 CON damage.
if (GetAbilityScore(oTarget,ABILITY_CONSTITUTION) == 3)
{
ApplyEffectToObject(DURATION_TYPE_INSTANT,EffectVisualEffect(VFX_COM_HIT_NEGATIVE),oTarget);
ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectDeath(), oTarget);
ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY,EffectVisualEffect(VFX_COM_BLOOD_LRG_RED),GetLocation(oTarget),10.0f);
}
else
{
ApplyEffectToObject(DURATION_TYPE_TEMPORARY, ExtraordinaryEffect(EffectAbilityDecrease(ABILITY_CONSTITUTION, d4(1))), oTarget, fDrain);
ApplyEffectToObject(DURATION_TYPE_INSTANT,EffectVisualEffect(VFX_COM_HIT_NEGATIVE),oTarget);
}
// Heal vampire. +5 temp. hit points if the person the vampire bit is alive
if (GetIsDead(oTarget)==FALSE)
ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectTemporaryHitpoints(5),oPC,fTemphealth);
SendMessageToPC(oPC, "You drink blood.");
// Reset hungry system.
SetLocalInt(oPC,"VampHungry",0);
SetLocalInt(oPC,"VampHungryCounter",0);
// Adjust alignment
adjust_alignment(oPC, oTarget);
// If vampire killed target and target is pc. Target will begome vampire himself
}
// If bite attempt failed
else
{
SendMessageToPC(oPC, "Victim dodged your bite attempt.");
if (GetIsPC(oTarget) == TRUE)
{
SendMessageToPC(oTarget,"You succesfully dodged "+GetName(oPC)+" bite attempt!");
}
}
}
// Target is dead or sleeping. No difficult dc.
else
{
PrintString("vamp_blooddrain(): - PC|" + GetName(oPC) + " TARGET|" + GetName(oTarget) + " - Target is dead... vampire bites victim.");
SendMessageToPC(oPC, "You bite victim.");
SendMessageToPC(oTarget,GetName(oPC)+" bites you!");
if (GetAbilityScore(oTarget,ABILITY_CONSTITUTION) == 3 )
{
ApplyEffectToObject(DURATION_TYPE_INSTANT,EffectVisualEffect(VFX_COM_HIT_NEGATIVE),oTarget);
ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectDeath(), oTarget);
ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY,EffectVisualEffect(VFX_COM_BLOOD_LRG_RED),GetLocation(oTarget),10.0f);
SetLocalInt(oTarget,"JustDied",1); //this was added so when the bite kills someone and they are turned into a vampire they don't explode and die forever
}
else
{
ApplyEffectToObject(DURATION_TYPE_TEMPORARY, ExtraordinaryEffect(EffectAbilityDecrease(ABILITY_CONSTITUTION, d4(1))), oTarget, fDrain);
ApplyEffectToObject(DURATION_TYPE_INSTANT,EffectVisualEffect(VFX_COM_HIT_NEGATIVE),oTarget);
}
// If target is sleeping adjust alignment
// iDead = GetIsDead(oTarget);
if (GetIsDead(oTarget) && GetLocalInt(oTarget,"JustDied")==0) //this makes sure the target was dead when the bite was used on the victim
{
adjust_alignment(oPC, oTarget);
if (GetIsDead(oTarget) == TRUE) dr_TargetIsDead = "TRUE";
else dr_TargetIsDead = "FALSE";
if (GetIsPC(oTarget) == TRUE) dr_TargetIsPC = "TRUE";
else dr_TargetIsPC = "FALSE";
PrintString("vamp_blooddrain(): - PC|" + GetName(oPC) + " TARGET|" + GetName(oTarget) + " - SLEEPING OR DEAD - Target is Dead: " + dr_TargetIsDead + " - Target is a PC: " + dr_TargetIsPC);
// If vampire killed target and target is pc. Target will begome vampire himself
if (GetIsDead(oTarget) == TRUE && GetIsPC(oTarget) == TRUE)
{
// A NEW VAMPIRE IS CREATED!!!!!
PrintString(GetName(oPC) + " just made " + GetName(oTarget) + " a vampire!!!!");
//PrintString("vamp_blooddrain(): - PC|" + GetName(oPC) + " TARGET|" + GetName(oTarget) + "| Subrace of target was: " + GetSubRace(oTarget));
SetSubRace(oTarget, "Vampire");//## uncommented
//ExportSingleCharacter(oTarget);
//Create campaign int. Needed in OnRespawn event
SetCampaignInt("Vampire","NewVamp",1,oTarget);// shouldn't this be oTarget?
//Set the Lineage up...
vamp_setlineage(oPC,oTarget);
//PrintString("vamp_blooddrain(): - PC|" + GetName(oPC) + " TARGET|" + GetName(oTarget) + "| Subrace of target is now: " + GetSubRace(oTarget));
//DAVIDBEOULVE: make sure the Faction bug gets reset...
vamp_friends(oPC);
}
}
else
{
PrintString("vamp_blooddrain(): - PC|" + GetName(oPC) + " TARGET|" + GetName(oTarget) + "| Target is not iDead (dead) so nothing happened.");
}
SetLocalInt(oTarget,"JustDied",0);
// And heal vampire +5 temporary hit points only if the victim is alive
if (GetIsDead(oTarget)==FALSE)
ApplyEffectToObject(DURATION_TYPE_TEMPORARY,EffectTemporaryHitpoints(5),oPC,fTemphealth);
SendMessageToPC(oPC, "You drink blood.");
// Reset hungry system.
SetLocalInt(oPC,"VampHungry",0);
SetLocalInt(oPC,"VampHungryCounter",0);
}
}
// PC is too far to bite.
else SendMessageToPC(oPC, "You are too far to bite victim.");
}
// Target does not have blood.
else
{
PrintString("vamp_blooddrain(): - PC|" + GetName(oPC) + " TARGET|" + GetName(oTarget) + " - Target is dead and can not be sucked.");
SendMessageToPC(oPC, "Target is not living being.");
}
}
