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.
158 lines
6.5 KiB
Plaintext
158 lines
6.5 KiB
Plaintext
//:://////////////////////////////////////////////
|
|
//:: FileName: "ss_ep_gem_cage"
|
|
/* Purpose: Gem Cage - You attempt to trap the target into a gem. The spell
|
|
first looks at the HD of the target creature, then looks for a gem
|
|
valuable enough to entrap the target in. If successful, you will then be
|
|
able to release that creature again at some other place and time.
|
|
*/
|
|
//:://////////////////////////////////////////////
|
|
//:: Created By: Boneshank
|
|
//:: Last Updated On: March 12, 2004
|
|
//:://////////////////////////////////////////////
|
|
#include "prc_alterations"
|
|
//#include "x2_inc_spellhook"
|
|
#include "inc_epicspells"
|
|
|
|
int GetNeededGemValue(int nHD);
|
|
|
|
void main()
|
|
{
|
|
DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR");
|
|
SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_TRANSMUTATION);
|
|
|
|
if (!X2PreSpellCastCode())
|
|
{
|
|
DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR");
|
|
return;
|
|
}
|
|
if (GetCanCastSpell(OBJECT_SELF, SPELL_EPIC_GEMCAGE))
|
|
{
|
|
object oTarget = PRCGetSpellTargetObject();
|
|
if (!GetPlotFlag(oTarget) && // Plot creatures cannot be Caged, ever.
|
|
!GetIsDM(oTarget) && // Neither can DM's.
|
|
!GetIsPC(oTarget)) // And neither can other players.
|
|
{
|
|
int nHD = GetHitDice(oTarget);
|
|
int nTestVal, nCurrentVal, nTargVal;
|
|
// How valuable of a gem do we need to Gem Cage the target?
|
|
nTargVal = GetNeededGemValue(nHD);
|
|
string sTarget = GetResRef(oTarget);
|
|
string sName = GetName(oTarget);
|
|
if (sTarget == "") sTarget = "";
|
|
|
|
itemproperty ipGemCage =
|
|
ItemPropertyCastSpell(IP_CONST_CASTSPELL_UNIQUE_POWER,
|
|
IP_CONST_CASTSPELL_NUMUSES_SINGLE_USE);
|
|
object oGem, oCopy;
|
|
|
|
// Look for an appropriate gem in the caster's inventory.
|
|
object oItem = GetFirstItemInInventory(OBJECT_SELF);
|
|
while (oItem != OBJECT_INVALID)
|
|
{ // Is the item a gem?
|
|
if (GetBaseItemType(oItem) == BASE_ITEM_GEM)
|
|
{
|
|
int nStack = GetNumStackedItems(oItem);
|
|
// What's the value of the gem?
|
|
int nTestVal = GetGoldPieceValue(oItem) /nStack;
|
|
// Is the gem's value greater than the target value?
|
|
if(nTestVal >= nTargVal)
|
|
{ // If this is the first viable gem, state it.
|
|
if (oGem == OBJECT_INVALID) oGem = oItem;
|
|
else // If not the first viable gem, compare them.
|
|
{ // What's the value of least valuable but still
|
|
// viable gem?
|
|
nCurrentVal = GetGoldPieceValue(oGem);
|
|
// Is the new gem less valuable? If so, use it.
|
|
if (nTestVal <= nCurrentVal)
|
|
oGem = oItem;
|
|
}
|
|
}
|
|
}
|
|
oItem = GetNextItemInInventory(OBJECT_SELF);
|
|
}
|
|
if (oGem != OBJECT_INVALID)
|
|
{ // Onward! Cast the spell on the target.
|
|
// Spell Resistance check:
|
|
if (!PRCDoResistSpell(OBJECT_SELF, oTarget, GetTotalCastingLevel(OBJECT_SELF)+SPGetPenetr(OBJECT_SELF), 1.0))
|
|
{ // Will Saving Throw.
|
|
if (!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, GetEpicSpellSaveDC(OBJECT_SELF, oTarget)))
|
|
{ // Choose the Gem Cage VFX based on gem value.
|
|
int nStack = GetNumStackedItems(oGem);
|
|
int nVis = 799;
|
|
if (GetGoldPieceValue(oGem) > 1600) nVis = 800;
|
|
if (GetGoldPieceValue(oGem) > 3500) nVis = 798;
|
|
effect eVis = EffectVisualEffect(nVis);
|
|
effect eImp = EffectVisualEffect(VFX_IMP_DESTRUCTION);
|
|
// Do fancy visual.
|
|
SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis,
|
|
oTarget);
|
|
DelayCommand(0.2,
|
|
SPApplyEffectToObject
|
|
(DURATION_TYPE_INSTANT, eImp, oTarget));
|
|
DelayCommand(1.2,
|
|
SPApplyEffectToObject
|
|
(DURATION_TYPE_INSTANT, eImp, oTarget));
|
|
DelayCommand(2.2,
|
|
SPApplyEffectToObject
|
|
(DURATION_TYPE_INSTANT, eImp, oTarget));
|
|
// Cage the target.
|
|
DelayCommand(2.8, DestroyObject(oTarget));
|
|
if (nStack > 1)
|
|
DelayCommand(2.6, SetItemStackSize (oGem, --nStack));
|
|
else
|
|
DelayCommand(2.6, DestroyObject(oGem));
|
|
// Create the new item, readying it for use later.
|
|
oCopy = CreateItemOnObject
|
|
("it_gemcage_gem", OBJECT_SELF);
|
|
SetLocalString(oCopy, "sCagedCreature", sTarget);
|
|
SetLocalString(oCopy, "sNameOfCreature", sName);
|
|
// Debug message
|
|
SendMessageToPC(OBJECT_SELF,
|
|
GetLocalString(oCopy, "sCagedCreature"));
|
|
}
|
|
}
|
|
}
|
|
else
|
|
FloatingTextStringOnCreature("*Spell failed! No viable gems.*",
|
|
OBJECT_SELF, FALSE);
|
|
}
|
|
else
|
|
FloatingTextStringOnCreature("*Spell failed! Invalid target.*",
|
|
OBJECT_SELF, FALSE);
|
|
}
|
|
DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR");
|
|
}
|
|
|
|
int GetNeededGemValue(int nHD)
|
|
{
|
|
int nValue;
|
|
switch (nHD)
|
|
{
|
|
case 1: case 2:
|
|
nValue = 250;
|
|
break;
|
|
case 3: case 4: case 5: case 6:
|
|
nValue = 1000;
|
|
break;
|
|
case 7: case 8: case 9:
|
|
nValue = 1500;
|
|
break;
|
|
case 10: case 11: case 12:
|
|
nValue = 2000;
|
|
break;
|
|
case 13: case 14: case 15: case 16: case 17:
|
|
nValue = 3000;
|
|
break;
|
|
case 18: case 19: case 20: case 21:
|
|
nValue = 4000;
|
|
break;
|
|
case 22: case 23: case 24:
|
|
nValue = 6000;
|
|
break;
|
|
default:
|
|
nValue = 10000;
|
|
break;
|
|
}
|
|
return nValue;
|
|
}
|