Further file organization
Further file organization
This commit is contained in:
Jaysyn904
157
nwn/nwnprc/trunk/epicspellscripts/ss_ep_gem_cage.nss
Normal file
157
nwn/nwnprc/trunk/epicspellscripts/ss_ep_gem_cage.nss
Normal file
@@ -0,0 +1,157 @@
|
||||
//:://////////////////////////////////////////////
|
||||
//:: 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;
|
||||
}
|
||||
Reference in New Issue
Block a user