Partage de l'xp

//::///////////////////////////////////////////////
//:: Default: On Death
//:: OnDeath Event for Creatures
//:: Modified By: Brian J. Kittrell
//:://////////////////////////////////////////////
#include "NW_I0_GENERIC"
#include "x2_inc_compon"
#include "x0_i0_spawncond"

//:: MAXHP represents the maximum number of
//:: hit points your strongest monster has.
//:: Set it high to make sure monsters with
//:: a lower hit point value than what is defined
//:: here are killed by the script.

int MAXHP = 90000;

//:: End Variable Declaration

void main()
{
object oKiller = GetLastKiller();
float fModif = 0.3;

//::if killer is PC, henchman, familiar and such or a trap set by a PC
if (GetIsPC(oKiller) || GetIsPC(GetMaster(oKiller)) || GetIsPC(GetTrapCreator(oKiller)))
    {
    int nClass = GetLevelByClass(CLASS_TYPE_COMMONER);
    int nAlign = GetAlignmentGoodEvil(OBJECT_SELF);
    if(nClass > 0 && (nAlign == ALIGNMENT_GOOD || nAlign == ALIGNMENT_NEUTRAL))
        {
        AdjustAlignment(oKiller, ALIGNMENT_EVIL, 5);
        }
    SpeakString("NW_I_AM_DEAD", TALKVOLUME_SILENT_TALK);
    //Shout Attack my target, only works with the On Spawn In setup
    SpeakString("NW_ATTACK_MY_TARGET", TALKVOLUME_SILENT_TALK);

    float BaseMonEXP = 25.0;

    //:: The bonus experience based on difference of CR of monster vs.
    //:: Levels of Party.
    float BonusEXP = 15.0;

    // First get all the members of the party & make sure only party members
    // in the area of the kill will get experience.
    int NumOfParty = 0;
    float PartyLevelSum = 0.0;
    object oPartyMember = GetFirstFactionMember(oKiller, TRUE);
    while(GetIsObjectValid(oPartyMember) && GetArea(OBJECT_SELF) == GetArea(oPartyMember))
        {
        NumOfParty++;
        PartyLevelSum += GetCharacterLevel(oPartyMember);
        oPartyMember = GetNextFactionMember(oKiller, TRUE);
        }
    float PartyAvgLvl = PartyLevelSum / NumOfParty ;
    //Calculate Adjustment Value
    float AdjustValue = GetChallengeRating(OBJECT_SELF) / PartyAvgLvl;
    float FinalMonValue;
    //Determine Final Experience Value
    if (AdjustValue == 0.0)
      {
      FinalMonValue = GetChallengeRating(OBJECT_SELF) * BaseMonEXP;
      }
    else
        {
        if (AdjustValue < 1.0)
            {
            FinalMonValue = BaseMonEXP * AdjustValue;
            }
        else
            {
            FinalMonValue = BaseMonEXP + (GetChallengeRating(OBJECT_SELF) - PartyAvgLvl) * BonusEXP;
            }
        }
    //Determine the value of the Split EXP
    float NbPJ = 0.0;
    float SplitFinalEXP =0.0;
    if(NumOfParty == 2)
        {
        NbPJ = NbPJ + NumOfParty - fModif ;
        SplitFinalEXP = SplitFinalEXP + FinalMonValue / NbPJ;
        }
    else
        {
        SplitFinalEXP = SplitFinalEXP + FinalMonValue / NumOfParty;
        }
    int SFEint = FloatToInt(SplitFinalEXP);
    //Distribute EXP to all PCs in the Party
    oPartyMember = GetFirstFactionMember(oKiller, TRUE);
    while (GetIsObjectValid(oPartyMember) && GetArea(OBJECT_SELF) == GetArea(oPartyMember))
        {
        GiveXPToCreature(oPartyMember, SFEint);
        oPartyMember = GetNextFactionMember(oKiller, TRUE);
        }
    //:: to remove the double experience messages
    ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectResurrection(), OBJECT_SELF);
    ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectDamage(MAXHP), OBJECT_SELF);
    //:: this causes the death event to fire twice...
    //:: not anymore...
    if(!GetLocalInt(OBJECT_SELF, "DoOnce"))
        {
        if(GetSpawnInCondition(NW_FLAG_DEATH_EVENT))
            {
            SignalEvent(OBJECT_SELF, EventUserDefined(1007));
            SetLocalInt(OBJECT_SELF, "DoOnce", 1);
            }
        }
    craft_drop_items(oKiller);
    return;
    }
  }

//::///////////////////////////////////////////////
//:: Default: On Death
//:: OnDeath Event for Creatures
//:: Modified By: Brian J. Kittrell
//:://////////////////////////////////////////////
#include "NW_I0_GENERIC"
#include "x2_inc_compon"
#include "x0_i0_spawncond"

//:: MAXHP represents the maximum number of
//:: hit points your strongest monster has.
//:: Set it high to make sure monsters with
//:: a lower hit point value than what is defined
//:: here are killed by the script.

int MAXHP = 90000;

//:: End Variable Declaration

void main()
{
object oKiller = GetLastKiller();
float fModif = 1.25;

//::if killer is PC, henchman, familiar and such or a trap set by a PC
if (GetIsPC(oKiller) || GetIsPC(GetMaster(oKiller)) || GetIsPC(GetTrapCreator(oKiller)))
    {
    int nClass = GetLevelByClass(CLASS_TYPE_COMMONER);
    int nAlign = GetAlignmentGoodEvil(OBJECT_SELF);
    if(nClass > 0 && (nAlign == ALIGNMENT_GOOD || nAlign == ALIGNMENT_NEUTRAL))
        {
        AdjustAlignment(oKiller, ALIGNMENT_EVIL, 5);
        }
    SpeakString("NW_I_AM_DEAD", TALKVOLUME_SILENT_TALK);
    //Shout Attack my target, only works with the On Spawn In setup
    SpeakString("NW_ATTACK_MY_TARGET", TALKVOLUME_SILENT_TALK);

    float BaseMonEXP = 25.0;

    //:: The bonus experience based on difference of CR of monster vs.
    //:: Levels of Party.
    float BonusEXP = 15.0;

    // First get all the members of the party & make sure only party members
    // in the area of the kill will get experience.
    int NumOfParty = 0;
    float PartyLevelSum = 0.0;
    object oPartyMember = GetFirstFactionMember(oKiller, TRUE);
    while(GetIsObjectValid(oPartyMember) && GetArea(OBJECT_SELF) == GetArea(oPartyMember))
        {
        NumOfParty++;
        PartyLevelSum += GetCharacterLevel(oPartyMember);
        oPartyMember = GetNextFactionMember(oKiller, TRUE);
        }
    float PartyAvgLvl = PartyLevelSum / NumOfParty ;
    //Calculate Adjustment Value
    float AdjustValue = GetChallengeRating(OBJECT_SELF) / PartyAvgLvl;
    float FinalMonValue;
    //Determine Final Experience Value
    if (AdjustValue == 0.0)
      {
      FinalMonValue = GetChallengeRating(OBJECT_SELF) * BaseMonEXP;
      }
    else
        {
        if (AdjustValue < 1.0)
            {
            FinalMonValue = BaseMonEXP * AdjustValue;
            }
        else
            {
            FinalMonValue = BaseMonEXP + (GetChallengeRating(OBJECT_SELF) - PartyAvgLvl) * BonusEXP;
            }
        }
    //Determine the value of the Split EXP
    float NbPJ = 0.0;
    float SplitFinalEXP =0.0;
    if(NumOfParty == 2)
        {
        NbPJ = NbPJ + NumOfParty - fModif ;
        SplitFinalEXP = SplitFinalEXP + FinalMonValue / NbPJ;
        }
    else
        {
        SplitFinalEXP = SplitFinalEXP + FinalMonValue / NumOfParty;
        }
    int SFEint = FloatToInt(SplitFinalEXP);
    //Distribute EXP to all PCs in the Party
    oPartyMember = GetFirstFactionMember(oKiller, TRUE);
    while (GetIsObjectValid(oPartyMember) && GetArea(OBJECT_SELF) == GetArea(oPartyMember))
        {
        GiveXPToCreature(oPartyMember, SFEint);
        oPartyMember = GetNextFactionMember(oKiller, TRUE);
        }
    //:: to remove the double experience messages
    ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectResurrection(), OBJECT_SELF);
    ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectDamage(MAXHP), OBJECT_SELF);
    //:: this causes the death event to fire twice...
    //:: not anymore...
    if(!GetLocalInt(OBJECT_SELF, "DoOnce"))
        {
        if(GetSpawnInCondition(NW_FLAG_DEATH_EVENT))
            {
            SignalEvent(OBJECT_SELF, EventUserDefined(1007));
            SetLocalInt(OBJECT_SELF, "DoOnce", 1);
            }
        }
    craft_drop_items(oKiller);
    return;
    }
  }

//::///////////////////////////////////////////////////
//:: NW_C2_DEFAULT7
/*
  Default OnDeath event handler for NPCs.

  Adjusts killer's alignment if appropriate and
  alerts allies to our death.
*/
/*
  Intégration d'un système d'expérience évolué
  par Anthraxcite et Drakolight
*/
/*
Modifie par Gimli_Oakenshield
*/
//::///////////////////////////////////////////////////

#include "x2_inc_compon"
#include "x0_i0_spawncond"
#include "x0_i0_henchman"

//Donne le nombre de joueur du groupe de oPC prsents dans la zone
int GetNumberPartyMembersInArea(object oPC)
{
  int nMembers = 0;
  object oChiefArea = GetArea(oPC);
  object oPartyMem = GetFirstFactionMember(oPC, TRUE);
  while (GetIsObjectValid(oPartyMem))
  {
      if(GetArea(oPartyMem)==oChiefArea)
      {
          nMembers++;
      }
      oPartyMem = GetNextFactionMember(oPC, TRUE);
  }
  return nMembers;
}

//Donne la moyenne des facteurs de puissance des joueurs
//A la creature qui execute ce script
float GetLvlAverage(object oPC)
{
    int i = 1;
    float fTotalLVL = IntToFloat(GetCharacterLevel(oPC));
    object oMem = GetFirstFactionMember(oPC, TRUE);
    while(GetIsObjectValid(oMem))
        {
        fTotalLVL = fTotalLVL + GetCharacterLevel(oMem);
        i++;
        oMem = GetNextFactionMember(oPC, TRUE);
        }

    if(i>0)
    {
        return fTotalLVL/IntToFloat(i);
    }
    else
    {
        return -1.0;
    }
}

//Distribue un montant d'xp aux joueurs se trouvant dans la zone
void DistribXP(object oKiller, int nXP, float fBonusXPGroupe = 0.15)
{
    object oChiefKiller = GetFactionLeader(oKiller);
    float PercentBonusXpForGroupKiller = 1.0 - fBonusXPGroupe + GetNumberPartyMembersInArea(oKiller)*fBonusXPGroupe;
    int nXPFromCreature = nXP;
    float nXPTotal = nXPFromCreature * PercentBonusXpForGroupKiller;
    float nXPParJoueur = nXPTotal/GetNumberPartyMembersInArea(oKiller);
    object oPC = oKiller;
    GiveXPToCreature(oPC,FloatToInt(nXPParJoueur));
    object oMem = GetFirstFactionMember(oPC, TRUE);
    while(GetIsObjectValid(oMem) && GetArea(oPC) == GetArea(OBJECT_SELF))
        {
        GiveXPToCreature(oPC,FloatToInt(nXPParJoueur));
        oMem = GetNextFactionMember(oPC, TRUE);
        }
}

//Calcule le montant d'xp a distribuer suivant la moyenne des lvl
//des attaquants calcules basés sur la table des xp
int GetXPToDistrib(float fLvlAverage)
{
    int nLvlMob = GetCharacterLevel(OBJECT_SELF);
    float fDifLvl = nLvlMob-fLvlAverage;
    int nXp;
    if(fDifLvl<0.0)
    {
        //lvl mob + (xp du lvl/nb mob a tuer/diflvl+1
        nXp = FloatToInt(nLvlMob+((nLvlMob*1000)/((nLvlMob-1)*10+250))/(fLvlAverage-nLvlMob+1));
    }
    else
    {
        nXp = FloatToInt(nLvlMob+((nLvlMob*1000)/((nLvlMob-1)*10+250))*(fDifLvl+1));
    }
return nXp;
}

void main()
{
    int nClass = GetLevelByClass(CLASS_TYPE_COMMONER);
    int nAlign = GetAlignmentGoodEvil(OBJECT_SELF);
    object oKiller = GetLastKiller();

    // If we're a good/neutral commoner,
    // adjust the killer's alignment evil
    if(nClass > 0 && (nAlign == ALIGNMENT_GOOD || nAlign == ALIGNMENT_NEUTRAL))
    {
        AdjustAlignment(oKiller, ALIGNMENT_EVIL, 5);
    }

    //Systeme d'xp pour syloan par Drakolight et Anthraxcite
    if(!GetIsPC(oKiller) && !GetIsDM(oKiller) && GetMaster(oKiller)!=OBJECT_INVALID)
    {
        oKiller = GetMaster(oKiller);
    }
    if(!GetIsPC(oKiller))
        return;

    float fLvlAverage = GetLvlAverage(oKiller);
    int nXP;
    if(fLvlAverage!=-1.0)
    {
        nXP = GetXPToDistrib(fLvlAverage);
        DistribXP(oKiller, nXP);
    }
    else
    {
        nXP = GetXPToDistrib(IntToFloat(GetCharacterLevel(oKiller)));
        GiveXPToCreature(oKiller, nXP);
    }
    //Fin du systeme d'xp

    // Call to allies to let them know we're dead
    SpeakString("NW_I_AM_DEAD", TALKVOLUME_SILENT_TALK);

    //Shout Attack my target, only works with the On Spawn In setup
    SpeakString("NW_ATTACK_MY_TARGET", TALKVOLUME_SILENT_TALK);

    // NOTE: the OnDeath user-defined event does not
    // trigger reliably and should probably be removed
    if(GetSpawnInCondition(NW_FLAG_DEATH_EVENT))
    {
        SignalEvent(OBJECT_SELF, EventUserDefined(1007));
    }
    craft_drop_items(oKiller);
}

//::///////////////////////////////////////////////////
//:: NW_C2_DEFAULT7
/*
  Default OnDeath event handler for NPCs.

  Adjusts killer's alignment if appropriate and
  alerts allies to our death.
*/
/*
  Intégration d'un système d'expérience évolué
  par Anthraxcite et Drakolight
*/
/*
Modifie par Gimli_Oakenshield
*/
//::///////////////////////////////////////////////////

#include "x2_inc_compon"
#include "x0_i0_spawncond"
#include "x0_i0_henchman"

//Donne le nombre de joueur du groupe de oPC prsents dans la zone
int GetNumberPartyMembersInArea(object oPC)
{
  int nMembers = 0;
  object oArea = GetArea(oPC);
  object oPartyMem = GetFirstFactionMember(oPC, TRUE);
  while (GetIsObjectValid(oPartyMem))
  {
      if(GetArea(oPartyMem)==oArea)
      {
          nMembers++;
      }
      oPartyMem = GetNextFactionMember(oPC, TRUE);
  }
  return nMembers;
}

//Donne la moyenne des facteurs de puissance des joueurs
float GetLvlAverage(object oPC)
{
    int i = 1;
    float fTotalLVL = IntToFloat(GetCharacterLevel(oPC));
    object oMem = GetFirstFactionMember(oPC, TRUE);
    object oArea = GetArea(oPC);
    while(GetIsObjectValid(oMem))
        {
        if(GetArea(oMem) == oArea)
            {
            fTotalLVL = fTotalLVL + GetCharacterLevel(oMem);
            i++;
            }
        oMem = GetNextFactionMember(oPC, TRUE);
        }

    if(i>0)
    {
        return fTotalLVL/IntToFloat(i);
    }
    else
    {
        return -1.0;
    }
}

//Distribue un montant d'xp aux joueurs se trouvant dans la zone
void DistribXP(object oKiller, int nXP, float fBonusXPGroupe = 0.15)
{
    object oChiefKiller = GetFactionLeader(oKiller);
    float PercentBonusXpForGroupKiller;
    int iNum = GetNumberPartyMembersInArea(oKiller);
    if(iNum == 0)
    PercentBonusXpForGroupKiller = 1.0;
    if(iNum >= 1 && iNum <= 4)
    PercentBonusXpForGroupKiller = 1.0 - fBonusXPGroupe + GetNumberPartyMembersInArea(oKiller)*fBonusXPGroupe;
    if(iNum >= 4 && iNum <= 8)
    PercentBonusXpForGroupKiller = 1.6 - (iNum-4)*0.25;
    if(iNum >= 8)
    PercentBonusXpForGroupKiller = 0.5;
    int nXPFromCreature = nXP;
    float nXPTotal = nXPFromCreature * PercentBonusXpForGroupKiller;
    float nXPParJoueur = nXPTotal/GetNumberPartyMembersInArea(oKiller);
    object oPC = oKiller;
    GiveXPToCreature(oPC,FloatToInt(nXPParJoueur));
    object oMem = GetFirstFactionMember(oPC, TRUE);
    while(GetIsObjectValid(oMem) && GetArea(oPC) == GetArea(OBJECT_SELF))
        {
        GiveXPToCreature(oPC,FloatToInt(nXPParJoueur));
        oMem = GetNextFactionMember(oPC, TRUE);
        }
}

//Calcule le montant d'xp a distribuer suivant la moyenne des lvl
//des attaquants calcules basés sur la table des xp
int GetXPToDistrib(float fLvlAverage)
{
    int nLvlMob = GetCharacterLevel(OBJECT_SELF);
    float fDifLvl = nLvlMob-fLvlAverage;
    int nXp;
    if(fDifLvl<0.0)
    {
        //lvl mob + (xp du lvl/nb mob a tuer/diflvl+1
        nXp = FloatToInt(nLvlMob+((nLvlMob*1000)/((nLvlMob-1)*10+250))/(fLvlAverage-nLvlMob+1));
    }
    else
    {
        nXp = FloatToInt(nLvlMob+((nLvlMob*1000)/((nLvlMob-1)*10+250))*(fDifLvl+1));
    }
return nXp;
}

void main()
{
    int nClass = GetLevelByClass(CLASS_TYPE_COMMONER);
    int nAlign = GetAlignmentGoodEvil(OBJECT_SELF);
    object oKiller = GetLastKiller();

    // If we're a good/neutral commoner,
    // adjust the killer's alignment evil
    if(nClass > 0 && (nAlign == ALIGNMENT_GOOD || nAlign == ALIGNMENT_NEUTRAL))
    {
        AdjustAlignment(oKiller, ALIGNMENT_EVIL, 5);
    }

    //Systeme d'xp pour syloan par Drakolight et Anthraxcite
    if(!GetIsPC(oKiller) && !GetIsDM(oKiller) && GetMaster(oKiller)!=OBJECT_INVALID)
    {
        oKiller = GetMaster(oKiller);
    }
    if(!GetIsPC(oKiller))
        return;

    float fLvlAverage = GetLvlAverage(oKiller);
    int nXP;
    if(fLvlAverage!=-1.0)
    {
        nXP = GetXPToDistrib(fLvlAverage);
        DistribXP(oKiller, nXP);
    }
    else
    {
        nXP = GetXPToDistrib(IntToFloat(GetCharacterLevel(oKiller)));
        GiveXPToCreature(oKiller, nXP);
    }
    //Fin du systeme d'xp

    // Call to allies to let them know we're dead
    SpeakString("NW_I_AM_DEAD", TALKVOLUME_SILENT_TALK);

    //Shout Attack my target, only works with the On Spawn In setup
    SpeakString("NW_ATTACK_MY_TARGET", TALKVOLUME_SILENT_TALK);

    // NOTE: the OnDeath user-defined event does not
    // trigger reliably and should probably be removed
    if(GetSpawnInCondition(NW_FLAG_DEATH_EVENT))
    {
        SignalEvent(OBJECT_SELF, EventUserDefined(1007));
    }
    craft_drop_items(oKiller);
}