283 lines
13 KiB
Plaintext
283 lines
13 KiB
Plaintext
|
#include "nw_i0_tool"
|
||
|
|
#include "prc_inc_spells"
|
||
|
|
|
||
|
|
void main()
|
||
|
|
{
|
||
|
|
object oItem = GetItemActivated();
|
||
|
|
object oPC = GetItemActivator();
|
||
|
|
string sItem = GetTag(oItem);
|
||
|
|
int iSkill = GetSkillRank(SKILL_PERFORM, oPC); //Skill Modifier for ranks in perform
|
||
|
|
int iRoll = d20(); //Skill Roll
|
||
|
|
int iTotal = iRoll + iSkill; //DC Check
|
||
|
|
string sTotal = IntToString(iTotal);
|
||
|
|
effect eSong = EffectVisualEffect(VFX_DUR_BARD_SONG);
|
||
|
|
|
||
|
|
int iBard = GetLevelByClass(CLASS_TYPE_BARD, oPC)
|
||
|
|
+ GetLevelByClass(CLASS_TYPE_DIRGESINGER, oPC)
|
||
|
|
+ GetLevelByClass(CLASS_TYPE_DRAGONSONG_LYRIST, oPC)
|
||
|
|
+ GetLevelByClass(CLASS_TYPE_SUBLIME_CHORD, oPC)
|
||
|
|
+ GetLevelByClass(CLASS_TYPE_VIRTUOSO, oPC);
|
||
|
|
|
||
|
|
if (sItem == "Drum")
|
||
|
|
{
|
||
|
|
|
||
|
|
if (iBard > 0)
|
||
|
|
{
|
||
|
|
if (iTotal >= 15) //DC for using a Drum is 15
|
||
|
|
{
|
||
|
|
int i;
|
||
|
|
int done;
|
||
|
|
effect eHaste;
|
||
|
|
object oGroup;
|
||
|
|
effect eCast = EffectVisualEffect(VFX_IMP_HASTE);
|
||
|
|
FloatingTextStringOnCreature("*Bard Song Success*", oPC, TRUE);
|
||
|
|
SendMessageToPC(oPC, "Skill Roll: " + sTotal + ". Target DC 15");
|
||
|
|
eHaste = EffectHaste();
|
||
|
|
ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eSong, oPC, 18.0);
|
||
|
|
ApplyEffectToObject(DURATION_TYPE_INSTANT, eCast, oPC);
|
||
|
|
ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eHaste, oPC, 18.0);
|
||
|
|
for (i = 0; i < 6 && !done; i++) //Apply Bardsong to up to 6 faction members (PCs) within 30 meters
|
||
|
|
{
|
||
|
|
oGroup = GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_FRIEND, oPC, i);
|
||
|
|
if ( oGroup != OBJECT_INVALID && (GetDistanceBetween(oPC, oGroup) <= 30.0) )
|
||
|
|
{
|
||
|
|
ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eHaste, oGroup, 18.0);
|
||
|
|
ApplyEffectToObject(DURATION_TYPE_INSTANT, eCast, oGroup);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
done = TRUE;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
FloatingTextStringOnCreature("*Bard Song Failure*", oPC, TRUE);
|
||
|
|
SendMessageToPC(oPC, "Skill Roll: " + sTotal + ". Target DC 15");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
AssignCommand(oPC, ActionSpeakString("Only a bard has the experience to use this item properly."));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (sItem == "Mandolin")
|
||
|
|
{
|
||
|
|
if (iBard > 0)
|
||
|
|
{
|
||
|
|
if (iTotal >= 15) //DC for using a Mandolin is 15
|
||
|
|
{
|
||
|
|
int i;
|
||
|
|
int done;
|
||
|
|
effect eRegen;
|
||
|
|
object oGroup;
|
||
|
|
effect eCast = EffectVisualEffect(VFX_IMP_HEALING_G);
|
||
|
|
FloatingTextStringOnCreature("*Bard Song Success*", oPC, TRUE);
|
||
|
|
SendMessageToPC(oPC, "Skill Roll: " + sTotal + ". Target DC 15");
|
||
|
|
eRegen = EffectRegenerate(1, 3.0);
|
||
|
|
ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eSong, oPC, 18.0);
|
||
|
|
ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eRegen, oPC, 18.0);
|
||
|
|
ApplyEffectToObject(DURATION_TYPE_INSTANT, eCast, oPC);
|
||
|
|
for (i = 0; i < 6 && !done; i++) //Apply Bardsong to up to 6 faction members (PCs) within 30 meters
|
||
|
|
{
|
||
|
|
oGroup = GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_FRIEND, oPC, i);
|
||
|
|
if ( oGroup != OBJECT_INVALID && (GetDistanceBetween(oPC, oGroup) <= 30.0) )
|
||
|
|
{
|
||
|
|
ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eRegen, oGroup, 18.0);
|
||
|
|
ApplyEffectToObject(DURATION_TYPE_INSTANT, eCast, oGroup);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
done = TRUE;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
FloatingTextStringOnCreature("*Bard Song Failure*", oPC, TRUE);
|
||
|
|
SendMessageToPC(oPC, "Skill Roll: " + sTotal + ". Target DC 15");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
AssignCommand(oPC, ActionSpeakString("Only a bard has the experience to use this item properly."));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (sItem == "Pipes")
|
||
|
|
{
|
||
|
|
if (iBard > 0)
|
||
|
|
{
|
||
|
|
if (iTotal >=18) //DC for using Pipes is 18
|
||
|
|
{
|
||
|
|
int i;
|
||
|
|
int done;
|
||
|
|
effect eInvis;
|
||
|
|
object oGroup;
|
||
|
|
FloatingTextStringOnCreature("*Bard Song Success*", oPC, TRUE);
|
||
|
|
SendMessageToPC(oPC, "Skill Roll: " + sTotal + ". Target DC 18");
|
||
|
|
eInvis = EffectInvisibility(INVISIBILITY_TYPE_NORMAL);
|
||
|
|
ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eSong, oPC, 18.0);
|
||
|
|
ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eInvis, oPC, 18.0);
|
||
|
|
for (i = 0; i < 6 && !done; i++) //Apply Bardsong to up to 6 faction members (PCs) within 30 meters
|
||
|
|
{
|
||
|
|
oGroup = GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_FRIEND, oPC, i);
|
||
|
|
if ( oGroup != OBJECT_INVALID && (GetDistanceBetween(oPC, oGroup) <= 30.0) )
|
||
|
|
ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eInvis, oGroup, 18.0);
|
||
|
|
else
|
||
|
|
done = TRUE;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
FloatingTextStringOnCreature("*Bard Song Failure*", oPC, TRUE);
|
||
|
|
SendMessageToPC(oPC, "Skill Roll: " + sTotal + ". Target DC 18");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
AssignCommand(oPC, ActionSpeakString("Only a bard has the experience to use this item properly."));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (sItem == "Horn")
|
||
|
|
{
|
||
|
|
if (iBard > 0)
|
||
|
|
{
|
||
|
|
if (iTotal >=18) //DC for using a Horn is 18
|
||
|
|
{
|
||
|
|
int i;
|
||
|
|
int done;
|
||
|
|
effect eShield;
|
||
|
|
object oGroup;
|
||
|
|
effect eCast = EffectVisualEffect(VFX_IMP_AC_BONUS);
|
||
|
|
FloatingTextStringOnCreature("*Bard Song Success*", oPC, TRUE);
|
||
|
|
SendMessageToPC(oPC, "Skill Roll: " + sTotal + ". Target DC 18");
|
||
|
|
eShield = EffectDamageShield(1, DAMAGE_BONUS_1d10, DAMAGE_TYPE_SONIC);
|
||
|
|
ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eSong, oPC, 18.0);
|
||
|
|
ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eShield, oPC, 18.0);
|
||
|
|
ApplyEffectToObject(DURATION_TYPE_INSTANT, eCast, oPC);
|
||
|
|
for (i = 0; i < 6 && !done; i++) //Apply Bardsong to up to 6 faction members (PCs) within 30 meters
|
||
|
|
{
|
||
|
|
oGroup = GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_FRIEND, oPC, i);
|
||
|
|
if ( oGroup != OBJECT_INVALID && (GetDistanceBetween(oPC, oGroup) <= 30.0) )
|
||
|
|
{
|
||
|
|
ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eShield, oGroup, 18.0);
|
||
|
|
ApplyEffectToObject(DURATION_TYPE_INSTANT, eCast, oGroup);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
done = TRUE;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
FloatingTextStringOnCreature("*Bard Song Failure*", oPC, TRUE);
|
||
|
|
SendMessageToPC(oPC, "Skill Roll: " + sTotal + ". Target DC 18");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
AssignCommand(oPC, ActionSpeakString("Only a bard has the experience to use this item properly."));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if (sItem == "Harp")
|
||
|
|
{
|
||
|
|
if (iBard > 0)
|
||
|
|
{
|
||
|
|
if (iTotal >=21) //DC for using a Harp is 21
|
||
|
|
{
|
||
|
|
int i;
|
||
|
|
int done;
|
||
|
|
effect eSpell;
|
||
|
|
object oGroup;
|
||
|
|
effect eCast = EffectVisualEffect(VFX_IMP_GLOBE_USE);
|
||
|
|
FloatingTextStringOnCreature("*Bard Song Success*", oPC, TRUE);
|
||
|
|
SendMessageToPC(oPC, "Skill Roll: " + sTotal + ". Target DC 21");
|
||
|
|
eSpell = EffectSpellImmunity(SPELL_ALL_SPELLS);
|
||
|
|
ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eSong, oPC, 18.0);
|
||
|
|
ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eSpell, oPC, 18.0);
|
||
|
|
ApplyEffectToObject(DURATION_TYPE_INSTANT, eCast, oPC);
|
||
|
|
for (i = 0; i < 6 && !done; i++) //Apply Bardsong to up to 6 faction members (PCs) within 30 meters
|
||
|
|
{
|
||
|
|
oGroup = GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_FRIEND, oPC, i);
|
||
|
|
if ( oGroup != OBJECT_INVALID && (GetDistanceBetween(oPC, oGroup) <= 30.0) )
|
||
|
|
{
|
||
|
|
ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eSpell, oGroup, 18.0);
|
||
|
|
ApplyEffectToObject(DURATION_TYPE_INSTANT, eCast, oGroup);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
done = TRUE;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
FloatingTextStringOnCreature("*Bard Song Failure*", oPC, TRUE);
|
||
|
|
SendMessageToPC(oPC, "Skill Roll: " + sTotal + ". Target DC 21");
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
AssignCommand(oPC, ActionSpeakString("Only a bard has the experience to use this item properly."));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
//Example Instrument Template for custom instruments.
|
||
|
|
//This template is set up only bonus effects with the Cast Spell: Unique Power Self Only item power
|
||
|
|
//Setting up this script for effects that damage nearby enemies would take a little work with the for statement. But still uses the Self Only power.
|
||
|
|
//Create an instrument or song sheet and give it the Unique Power: Self Only (Unlimited Uses) power
|
||
|
|
//It isn't necessary to set the item up to be used by bards only as this script checks for that, but you can anyway. I did.
|
||
|
|
//
|
||
|
|
//
|
||
|
|
// if (sItem == "*InstrumentTagHere*") //Place the Tag of the Instrument you create
|
||
|
|
// {
|
||
|
|
// int iBard = GetLevelByClass(CLASS_TYPE_BARD, oPC); //Redundant class check considering you can set the item to be bard only
|
||
|
|
// if (iBard > 0)
|
||
|
|
// {
|
||
|
|
// if (iTotal >=*DCHere* //Place the DC (difficulty) here (ex: 15)
|
||
|
|
// {
|
||
|
|
// int i;
|
||
|
|
// int done;
|
||
|
|
// effect *eEffectHere*; //Name the effect (ex: eLightning)
|
||
|
|
// object oGroup;
|
||
|
|
// effect eCast = EffectVisualEffect(*VFX_HERE*); //Place the VFX you wish to use here
|
||
|
|
// FloatingTextStringOnCreature("*Bard Song Success*", oPC, TRUE);
|
||
|
|
// SendMessageToPC(oPC, "Skill Roll: " + sTotal + ". Target DC *DCHere*"); //Repeat the DC you used previously for PC alert message
|
||
|
|
// *eEffectHere* = *EffectWanted()*; //Repeat the effect you used previously. Make sure to check the Effect Function and make sure additional variables aren't required (see my regeneration effect for an example)
|
||
|
|
// ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eSong, oPC, 18.0); //Applies the standard bardsong effect on the player for 3 rounds (18.0sec)
|
||
|
|
// ApplyEffectToObject(DURATION_TYPE_TEMPORARY, *eEffectHere*, oPC, 18.0); //Repeat the eEffect you used previously. If this is a song to attack an enemy, omit/comment out this line
|
||
|
|
// ApplyEffectToObject(DURATION_TYPE_INSTANT, eCast, oPC); //This will play the VFX you set to eCast a few lines up
|
||
|
|
// for (i = 0; i < 6 && !done; i++) //If you don't want the effect to hit PCs surrounding the bard, comment these lines out until the //Stop comments line
|
||
|
|
// {
|
||
|
|
// oGroup = GetNearestCreature(CREATURE_TYPE_REPUTATION, REPUTATION_TYPE_FRIEND, oPC, i); //To set this script up to effect enemies, adjust the CREATURE_TYPE_* and REPUTATION_TYPE_* (ex: CREATURE_TYPE_RACIAL_TYPE, RACIAL_TYPE_UNDEAD)
|
||
|
|
// if ( oGroup != OBJECT_INVALID && (GetDistanceBetween(oPC, oGroup) <= 30.0) ) //You can change 30.0 to a smaller or larger distance. It is in meters.
|
||
|
|
// {
|
||
|
|
// ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eSpell, oGroup, 18.0);
|
||
|
|
// ApplyEffectToObject(DURATION_TYPE_INSTANT, eCast, oGroup);
|
||
|
|
// }
|
||
|
|
// else
|
||
|
|
// {
|
||
|
|
// done = TRUE;
|
||
|
|
// }
|
||
|
|
// } //Stop Comments for disabling group effect
|
||
|
|
// }
|
||
|
|
// else
|
||
|
|
// {
|
||
|
|
// FloatingTextStringOnCreature("*Bard Song Failure*", oPC, TRUE);
|
||
|
|
// SendMessageToPC(oPC, "Skill Roll: " + sTotal + ". Target DC *DCHere*"); //Repeat the DC you used previously for PC alert message
|
||
|
|
// }
|
||
|
|
// }
|
||
|
|
// else
|
||
|
|
// {
|
||
|
|
// AssignCommand(oPC, ActionSpeakString("Only a bard has the experience to use this item properly."));
|
||
|
|
// }
|
||
|
|
// }
|
||
|
|
//}
|