7dd83ad168
Reorganized hak files & removed duplicates. Added @rafhot's PRC spell & ability level scaling expansion. Further script integration. Full compile.
121 lines
4.2 KiB
Plaintext
121 lines
4.2 KiB
Plaintext
//::///////////////////////////////////////////////
|
|
//::Rod of Fast Buffing Item Event Script
|
|
/*
|
|
This is the event script for the rod of fast
|
|
buffing. This rod allows casters to group
|
|
all their buffing spells into a single action
|
|
*/
|
|
//:://////////////////////////////////////////////
|
|
|
|
#include "x2_inc_switches"
|
|
#include "prc_inc_spells"
|
|
|
|
//showing spell names is a 2da file hit. When storing
|
|
//a lot of spells this can cause a significant delay
|
|
//When this value is false it will just show spell
|
|
//ID numbers.
|
|
const int knShowSpellName = TRUE;
|
|
|
|
//used to store the number of spells on the rod
|
|
const string ksNumSpells = "NumSpells";
|
|
//used as a base to store a spell ID to cast
|
|
const string ksCastSpellId = "CastSpells";
|
|
//stores the spell name when you store a spell.
|
|
const string ksCastSpellName = "SpellName";
|
|
|
|
void main()
|
|
{
|
|
int nEvent = GetUserDefinedItemEventNumber();
|
|
|
|
object oPC; //The caster
|
|
object oItem; //This item
|
|
|
|
int nSpellId; //Used to hold the ID of the current spell;
|
|
int nNumOfSpells; //Used to hold the current number of spells on the rod
|
|
|
|
string strSpellName;//Used to hold the Spell Name
|
|
|
|
int nResult = X2_EXECUTE_SCRIPT_CONTINUE;
|
|
|
|
//this handles "use" or activation of item.
|
|
if (nEvent == X2_ITEM_EVENT_ACTIVATE)
|
|
{
|
|
oItem = GetItemActivated();
|
|
oPC = GetItemActivator();
|
|
|
|
//Disable use in combat
|
|
if(GetIsInCombat(oPC))
|
|
{
|
|
FloatingTextStringOnCreature("Can't use rod in combat", oPC, FALSE);
|
|
return;
|
|
}
|
|
|
|
//get number of spells stored
|
|
nNumOfSpells = GetLocalInt(oItem, ksNumSpells);
|
|
SendMessageToPC(oPC, " Attempting to fast cast " + IntToString(nNumOfSpells) + " spells.");
|
|
|
|
//iterate through array of spells and store casting action
|
|
int n;
|
|
for(n = 1; n <= nNumOfSpells; n++)
|
|
{
|
|
//get spell id stored at location n
|
|
nSpellId = GetLocalInt(oItem, ksCastSpellId + IntToString(n));
|
|
|
|
//Get the name of the spell stored at location n
|
|
strSpellName = GetLocalString(oItem, ksCastSpellName + IntToString(n));
|
|
|
|
SendMessageToPC(oPC, "Casting spell "
|
|
+ strSpellName
|
|
+ " at postion "
|
|
+ IntToString(n)
|
|
+ " on item");
|
|
|
|
if(0 != nSpellId //if there was a valid spell id stored
|
|
&& 1 <= GetHasSpell(nSpellId, oPC)) //and the caster has access to the spell
|
|
{
|
|
//Store cast action. The key here is to set cheatcasting
|
|
//to false and level to 0. This will cause the caster
|
|
//to cast the spell himself using the first available
|
|
//slot.
|
|
AssignCommand(oPC,
|
|
ActionCastSpellAtObject(nSpellId
|
|
, oPC
|
|
, METAMAGIC_ANY
|
|
, FALSE
|
|
, 0
|
|
, PROJECTILE_PATH_TYPE_DEFAULT
|
|
, TRUE));
|
|
}
|
|
}
|
|
} //This Event Handles storing the spells
|
|
else if (nEvent == X2_ITEM_EVENT_SPELLCAST_AT)
|
|
{
|
|
oItem = PRCGetSpellTargetObject();
|
|
nSpellId = GetSpellId();
|
|
oPC = OBJECT_SELF;
|
|
nNumOfSpells = GetLocalInt(oItem, ksNumSpells) + 1;
|
|
|
|
SetLocalInt(oItem, ksNumSpells , nNumOfSpells);
|
|
SetLocalInt(oItem, ksCastSpellId + IntToString(nNumOfSpells), nSpellId);
|
|
|
|
strSpellName = (knShowSpellName)
|
|
? Get2DAString("spells", "Label", nSpellId)
|
|
: IntToString(nSpellId);
|
|
|
|
SetLocalString(oItem, ksCastSpellName + IntToString(nNumOfSpells), strSpellName);
|
|
|
|
SendMessageToPC(oPC, "Storing "
|
|
+ strSpellName
|
|
+ " at postion "
|
|
+ IntToString(nNumOfSpells)
|
|
+ " on item");
|
|
|
|
nResult = X2_EXECUTE_SCRIPT_END;
|
|
|
|
}
|
|
|
|
//Pass the return value back to the calling script
|
|
SetExecutedScriptReturnValue(nResult);
|
|
}
|
|
|