6ec137a24e
Updated AMS marker feats. Removed arcane & divine marker feats. Updated Dread Necromancer for epic progression. Updated weapon baseitem models. Updated new weapons for crafting & npc equip. Updated prefix. Updated release archive.
63 lines
1.8 KiB
Plaintext
63 lines
1.8 KiB
Plaintext
//::///////////////////////////////////////////////
|
|
//:: FileName pnp_lich_csgem
|
|
//:://////////////////////////////////////////////
|
|
//:://////////////////////////////////////////////
|
|
//:: Created By: Script Wizard
|
|
//:: Created On: 1/24/2004 9:39:35 AM
|
|
//:://////////////////////////////////////////////
|
|
#include "prc_alterations"
|
|
#include "pnp_lich_inc"
|
|
|
|
void PrcFeats(object oPC)
|
|
{
|
|
object oSkin = GetPCSkin(oPC);
|
|
ScrubPCSkin(oPC, oSkin);
|
|
DeletePRCLocalInts(oSkin);
|
|
DeletePRCLocalIntsT(oPC);
|
|
EvalPRCFeats(oPC);
|
|
}
|
|
|
|
// Crafts the soul gem
|
|
void main()
|
|
{
|
|
object oPC = GetPCSpeaker();
|
|
|
|
// Make sure the PC has enough gold
|
|
if (!GetHasGPToSpend(oPC, 120000))
|
|
{
|
|
FloatingTextStringOnCreature("You do not have enough gold to craft the soul gem", oPC);
|
|
return;
|
|
}
|
|
// -------------------------------------------------------------------------
|
|
// check for sufficient XP to create
|
|
// -------------------------------------------------------------------------
|
|
if (!GetHasXPToSpend(oPC, 4800))
|
|
{
|
|
FloatingTextStrRefOnCreature(3785, oPC); // Item Creation Failed - Not enough XP
|
|
return;
|
|
}
|
|
// Allow the pc to get lich levels
|
|
SetLocalInt(oPC,"PNP_AllowLich", 0);
|
|
|
|
|
|
// Remove some gold from the player
|
|
SpendGP(oPC, 120000);
|
|
|
|
// Remove some xp from the player
|
|
SpendXP(oPC, 4800);
|
|
|
|
// do some VFX
|
|
CraftVFX(OBJECT_SELF);
|
|
|
|
// Soul gem creation code
|
|
object oSoulGem = CreateItemOnObject("soul_gem",oPC);
|
|
itemproperty iProp = ItemPropertyCastSpell(851,IP_CONST_CASTSPELL_NUMUSES_1_USE_PER_DAY);
|
|
AddItemProperty(DURATION_TYPE_PERMANENT,iProp,oSoulGem);
|
|
|
|
// Trigger the level up lich check
|
|
// - This won't reset the PC hide... so let it be handled by the rest event.
|
|
//DelayCommand(0.1, EvalPRCFeats(oPC));
|
|
DelayCommand(0.1, PrcFeats(oPC));
|
|
|
|
}
|