5914ed2ab5
Updated Release Archive. Fixed Mage-killer prereqs. Removed old LETO & ConvoCC related files. Added organized spell scroll store. Fixed Gloura spellbook. Various TLK fixes. Reorganized Repo. Removed invalid user folders. Added DocGen back in.
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;
|
|
}
|