DMH-Online

NWScript:

void ApplyPercentPenalty(object oDead,
                         float flPenaltyXP,
                         float flPenaltyGold)
{
  // Written by Grus Kel'fer - grus1968@yahoo.com
  // I used the ApplyPenalty script in the handbook,
  // P. 30 as a template.
  // This function is called to subract a percentage of
  // the PC's experience and gold.
  // Usage Example (called from OnRespawn script):
  // ApplyPercentPenalty(oDead, .10, .30);
  // This call would subract 10% of the PC's XP, and
  // 30% of the PC's gold.
  // Error check penalty arguments to make sure they
  // are between 0 and 1.0 inclusive.
  flPenaltyXP = flPenaltyXP < 0.0 ? 0.0 : flPenaltyXP;
  flPenaltyXP = flPenaltyXP > 1.0 ? 1.0 : flPenaltyXP;
  flPenaltyGold = 
            flPenaltyGold < 0.0 ? 0.0 : flPenaltyGold;
  flPenaltyGold = 
            flPenaltyGold > 1.0 ? 1.0 : flPenaltyGold;
  
  // Get current PC experience and level
  int nCurrentXP = GetXP(oDead);
  int nCharacterLevel = GetHitDice(oDead);
  // Compute new experience points based on penalty
  int nLostXP = FloatToInt(flPenaltyXP*nCurrentXP);
  int nNewXP = nCurrentXP - nLostXP;
  // Make sure new PC experience points do not cause a 
  // level loss
  int nLowerBoundXP = ((nCharacterLevel *
                       (nCharacterLevel-1)) /
                        2 * 1000);
  nNewXP = 
        nNewXP < nLowerBoundXP ? nLowerBoundXP : nNewXP;
  // Set new XP, and take gold based on penalty
  SetXP(oDead, nNewXP);
  AssignCommand(oDead,
                TakeGoldFromCreature(FloatToInt(
                    flPenaltyGold * GetGold(oDead)),
                    oDead, TRUE));
}