177 lines
4.0 KiB
Plaintext
177 lines
4.0 KiB
Plaintext
|
|
#include "nw_i0_plot"
|
|
|
|
|
|
//PrC Consortium stuff
|
|
#include "prc_inc_function"
|
|
|
|
|
|
// -----------------------------------------------
|
|
// This code goes in the Module OnClientEnter script.
|
|
// When a PC joins the game this code looks for the item "death".
|
|
//
|
|
// If the item is not found no penalty is applied.
|
|
// If the item is found, a Gold and XP penalty is applied.
|
|
|
|
|
|
|
|
//Penalty applied for having a Death Amulet
|
|
|
|
void ApplyPenalty(object oDead)
|
|
{
|
|
|
|
int nXP = GetXP(oDead);
|
|
|
|
// The XP penalty is currently set to the PC's level x 100 - it is
|
|
// a harsh penalty, but they were trying to cheat so... :)
|
|
//
|
|
// If you wish to reduce the amount taken, reduce the 100 in the line below.
|
|
// Note that this script will never cause a PC to lose a level.
|
|
|
|
int nPenalty = 100 * GetHitDice(oDead);
|
|
int nHD = GetHitDice(oDead);
|
|
// * You can not lose a level with this respawning
|
|
int nMin = ((nHD * (nHD - 1)) / 2) * 1000;
|
|
|
|
int nNewXP = nXP - nPenalty;
|
|
if (nNewXP < nMin)
|
|
nNewXP = nMin;
|
|
SetXP(oDead, nNewXP);
|
|
|
|
// The gold penalty is currently set to 20% of their gold - it is
|
|
// a very harsh penalty, but they were trying to cheat so... :)
|
|
//
|
|
// If you wish to reduce the amount taken, reduce the .20 in the line below.
|
|
// Note that this script will never take more then 10,000 gold.
|
|
|
|
int nGoldToTake = FloatToInt(0.20 * GetGold(oDead));
|
|
// * a cap of 10 000gp taken from you
|
|
if (nGoldToTake > 20000)
|
|
{
|
|
nGoldToTake = 20000;
|
|
}
|
|
AssignCommand(oDead, TakeGoldFromCreature(nGoldToTake, oDead, TRUE));
|
|
DelayCommand(4.0, FloatingTextStrRefOnCreature(58299, oDead, FALSE));
|
|
DelayCommand(4.8, FloatingTextStrRefOnCreature(58300, oDead, FALSE));
|
|
|
|
}
|
|
|
|
|
|
|
|
// Main Module OnClientEnter Script
|
|
|
|
void main()
|
|
{
|
|
|
|
|
|
|
|
// Death Amulet Activities
|
|
|
|
object oPC = GetEnteringObject();
|
|
if(HasItem(oPC, "Death"))
|
|
{
|
|
|
|
object oItemToTake;
|
|
oItemToTake = GetItemPossessedBy(oPC, "Death");
|
|
if(GetIsObjectValid(oItemToTake) != 0)
|
|
DestroyObject(oItemToTake);
|
|
|
|
ApplyPenalty(oPC);
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
//Illegal items removal - no perma-haste, immunity, or regeneration items
|
|
|
|
// Boots of Speed
|
|
object oBoots;
|
|
oBoots = GetItemPossessedBy(oPC, "NW_IT_MBOOTS005");
|
|
if(GetIsObjectValid(oBoots) != 0)
|
|
DestroyObject(oBoots);
|
|
|
|
|
|
// Lesser Ring of Power
|
|
object oRing;
|
|
oRing = GetItemPossessedBy(oPC, "NW_IT_MRING029");
|
|
if(GetIsObjectValid(oRing) != 0)
|
|
DestroyObject(oRing);
|
|
|
|
|
|
// Ring of Regeneration
|
|
object oRing2;
|
|
oRing2 = GetItemPossessedBy(oPC, "NW_IT_MRING004");
|
|
if(GetIsObjectValid(oRing2) != 0)
|
|
DestroyObject(oRing2);
|
|
|
|
|
|
// Belt of Guiding Light
|
|
object oGuidingLight;
|
|
oGuidingLight = GetItemPossessedBy(oPC, "nw_it_mbelt016");
|
|
if(GetIsObjectValid(oGuidingLight) != 0)
|
|
DestroyObject(oGuidingLight);
|
|
|
|
|
|
// Graceblood Bow
|
|
object oGraceblood;
|
|
oGraceblood = GetItemPossessedBy(oPC, "NW_WBWMXH006");
|
|
if(GetIsObjectValid(oGraceblood) != 0)
|
|
DestroyObject(oGraceblood);
|
|
|
|
/*
|
|
// Holy Grail
|
|
object oGrail;
|
|
oGrail = GetItemPossessedBy(oPC, "it_HolyGrail");
|
|
if(GetIsObjectValid(oGrail) != 0)
|
|
DestroyObject(oGrail);
|
|
|
|
|
|
// Original Spellhelper
|
|
object oSpellhelper;
|
|
oSpellhelper = GetItemPossessedBy(oPC, "it_spellhelper");
|
|
if(GetIsObjectValid(oSpellhelper) != 0)
|
|
DestroyObject(oSpellhelper);
|
|
*/
|
|
|
|
|
|
|
|
//set the PrC Pack running
|
|
ExecuteScript("prc_onenter", OBJECT_SELF);
|
|
|
|
|
|
|
|
//Disallow various buggy or unbalanced PrCs
|
|
|
|
/* if (GetLevelByClass(CLASS_TYPE_SHADOWDANCER, oPC) == 0)
|
|
{
|
|
SetLocalInt(oPC,"X1_AllowShadow",1);
|
|
} */
|
|
|
|
/*
|
|
|
|
if (GetLevelByClass(CLASS_TYPE_PNP_SHIFTER, oPC) == 0)
|
|
{
|
|
SetLocalInt(oPC,"X2_AllowPNPSfr",1);
|
|
}
|
|
|
|
if (GetLevelByClass(CLASS_TYPE_DIVINECHAMPION, oPC) == 0)
|
|
{
|
|
SetLocalInt(oPC,"X2_AllowDivcha",1);
|
|
}
|
|
|
|
if (GetLevelByClass(CLASS_TYPE_LICH, oPC) == 0)
|
|
{
|
|
SetLocalInt(oPC,"PNP_AllowLich",1);
|
|
}
|
|
|
|
if (GetLevelByClass(CLASS_TYPE_VASSAL, oPC) == 0)
|
|
{
|
|
SetLocalInt(oPC,"X1_AllowVassal",1);
|
|
}
|
|
|
|
*/
|
|
|
|
|
|
}
|