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.
217 lines
7.7 KiB
Plaintext
217 lines
7.7 KiB
Plaintext
//::///////////////////////////////////////////////
|
|
//:: Poison Weapon spellscript
|
|
//:: poison_appl_weap
|
|
//::///////////////////////////////////////////////
|
|
/** @file
|
|
Applies a poison to the targeted weapon based on
|
|
local integer "pois_idx" on the item being cast from.
|
|
The last 3 letters of the item's tag will be used instead
|
|
if the following module switch is set:
|
|
|
|
PRC_USE_TAGBASED_INDEX_FOR_POISON
|
|
|
|
|
|
The item will have a permanent OnHitCastSpell applied
|
|
to it with spell Poisoned Weapon.
|
|
2 local integers "pois_wpn_idx" and "pois_wpn_uses" will also
|
|
be set on the item. Description of their roles is found
|
|
in poison_wpn_onhit.nss
|
|
|
|
|
|
The system uses the following module switches:
|
|
|
|
PRC_ALLOW_ONLY_SHARP_WEAPONS
|
|
- If this is nonzero, only weapons that do slashing or piercing
|
|
damage are allowed to be poisoned.
|
|
- Default: All weapons can be poisoned.
|
|
|
|
PRC_ALLOW_ALL_POISONS_ON_WEAPONS
|
|
- If this is nonzero, inhaled and ingest poisons may be
|
|
placed on weapons in addition to contact and injury.
|
|
- Default: Only contact and injury poisons are allowed on weapons.
|
|
|
|
PRC_USE_DEXBASED_WEAPON_POISONING_FAILURE_CHANCE
|
|
- If this is nonzero, a DEX check is rolled against Handle_DC
|
|
in the poison's column in poison.2da.
|
|
- Possessing the Use Poison feat will always pass this check.
|
|
- Default: A static 5% failure chance is used, as per the DMG.
|
|
|
|
|
|
The following switches determine the amount of uses (successfull hits)
|
|
that can be made with the weapon before the poison wears off.
|
|
These may be overridden with similarly named variables on the item
|
|
used to poison the weapon.
|
|
If the die value is not present (or less than 2), the amount of uses
|
|
will be equal to PRC_USES_PER_POISON_COUNT.
|
|
There will always be at least one use.
|
|
|
|
PRC_USES_PER_WEAPON_POISON_COUNT
|
|
- Number of uses or dice for uses of the poisoned weapon.
|
|
- Values less than 1 will be treated as 1.
|
|
|
|
PRC_USES_PER_WEAPON_POISON_DIE
|
|
- Size of dice used to determine number of uses. Any number
|
|
greater than 1 works.
|
|
- Values less than 2 on the module switch will disable the die roll.
|
|
Overridden by value defined by the item.
|
|
- Similarly for the override if it is defined. (0 in override counts
|
|
as not defined)
|
|
|
|
|
|
*/
|
|
//:://////////////////////////////////////////////
|
|
//:: Created By: Ornedan
|
|
//:: Created On: 20.12.2004
|
|
//:: Updated On: 09.01.2005
|
|
//:://////////////////////////////////////////////
|
|
#include "prc_alterations"
|
|
#include "inc_poison"
|
|
|
|
|
|
void main()
|
|
{
|
|
//SpawnScriptDebugger();
|
|
object oItem = GetSpellCastItem();
|
|
object oPC = OBJECT_SELF;
|
|
object oTarget = PRCGetSpellTargetObject();
|
|
|
|
|
|
// Make sure the target is an item
|
|
if (oTarget == OBJECT_INVALID || GetObjectType(oTarget) != OBJECT_TYPE_ITEM)
|
|
{
|
|
SendMessageToPCByStrRef(oPC, 83359); //"Invalid target "
|
|
return;
|
|
}
|
|
|
|
// Make sure it's a weapon
|
|
int nType = GetBaseItemType(oTarget);
|
|
if (!IPGetIsMeleeWeapon(oTarget) &&
|
|
!IPGetIsProjectile(oTarget) &&
|
|
nType != BASE_ITEM_SHURIKEN &&
|
|
nType != BASE_ITEM_DART &&
|
|
nType != BASE_ITEM_THROWINGAXE)
|
|
{
|
|
SendMessageToPCByStrRef(oPC, 83359); //"Invalid target "
|
|
return;
|
|
}
|
|
|
|
// Make sure the weapon can be applied poison to
|
|
if(GetPRCSwitch(PRC_ALLOW_ONLY_SHARP_WEAPONS) &&
|
|
IPGetIsBludgeoningWeapon(oTarget))
|
|
{
|
|
SendMessageToPCByStrRef(oPC, 83367); //"Weapon does not do slashing or piercing damage "
|
|
return;
|
|
}
|
|
|
|
|
|
// Get the 2da row to lookup the poison from
|
|
int nRow;
|
|
if(GetPRCSwitch(PRC_USE_TAGBASED_INDEX_FOR_POISON))
|
|
nRow = StringToInt(GetStringRight(GetTag(oItem), 3));
|
|
else
|
|
nRow = GetLocalInt(oItem, "pois_idx");
|
|
|
|
// Some paranoia re. valid values
|
|
if (nRow < 0)
|
|
{
|
|
SendMessageToPCByStrRef(oPC, 83360); //"Nothing happens
|
|
WriteTimestampedLogEntry ("Error: Item with resref " +GetResRef(oItem)+ ", tag " +GetTag(oItem) + " has the PoisonWeapon spellscript attached but "
|
|
+ (GetPRCSwitch(PRC_USE_TAGBASED_INDEX_FOR_POISON) ? "it's tag" : "it's local integer variable 'pois_idx'")
|
|
+ " contains an invalid value!");
|
|
return;
|
|
}
|
|
|
|
// Make sure the poison can be applied to a weapon
|
|
if(GetPoisonType(nRow) != POISON_TYPE_CONTACT &&
|
|
GetPoisonType(nRow) != POISON_TYPE_INJURY &&
|
|
!GetPRCSwitch(PRC_ALLOW_ALL_POISONS_ON_WEAPONS))
|
|
{
|
|
SendMessageToPCByStrRef(oPC, STRREF_POISON_NOT_VALID_FOR_WEAPON);
|
|
return;
|
|
}
|
|
|
|
/* If weapon is already poisoned, remove the previous. This is to avoid possible
|
|
* complications from having several identical itemproperties.
|
|
*/
|
|
if(GetLocalInt(oTarget, "pois_wpn_uses") != 0){
|
|
DoPoisonRemovalFromWeapon(oTarget);
|
|
SendMessageToPCByStrRef(oPC, STRREF_POISON_CLEAN_OFF_WEAPON);
|
|
}
|
|
|
|
|
|
/** Done with the paranoia, now to start applying the poison **/
|
|
|
|
|
|
// People with Use Poison feat succeed automatically, others roll for success
|
|
if(!GetHasFeat(FEAT_USE_POISON, oPC))
|
|
{
|
|
// * Force attacks of opportunity
|
|
AssignCommand(oPC, ClearAllActions(TRUE));
|
|
|
|
// Check for failure.
|
|
int nFail;
|
|
if(GetPRCSwitch(PRC_DEXBASED_WEAPON_POISONING_FAILURE_CHANCE))
|
|
{
|
|
int nApplyDC = StringToInt(Get2DACache("poison", "Handle_DC", nRow));
|
|
int nDex = GetAbilityModifier(ABILITY_DEXTERITY,oPC) ;
|
|
int nCheck = d10(1)+10+nDex;
|
|
nFail = (nCheck < nApplyDC);
|
|
}
|
|
else
|
|
{
|
|
nFail = (d100() <= 5);
|
|
}
|
|
|
|
// Inform user of success / failure and deal failure effects if needed
|
|
if(nFail)
|
|
{
|
|
SendMessageToPCByStrRef(oPC, STRREF_POISON_APPLY_FAILURE); //"You slip while applying the poison to your weapon."
|
|
|
|
// User gets poisoned on failure
|
|
effect ePoison = EffectPoison(nRow);
|
|
ApplyEffectToObject(DURATION_TYPE_PERMANENT, ePoison, oPC);
|
|
|
|
}
|
|
}// end if - handle people without Use Poison feat
|
|
|
|
//Add the effect and local ints for the hit script
|
|
itemproperty ip = ItemPropertyOnHitCastSpell(IP_CONST_ONHIT_CASTSPELL_ONHIT_UNIQUEPOWER,1);
|
|
|
|
// First, check if something else adds the unique onhit.
|
|
// If nothing does, then we should remove it once the effect has been used up
|
|
if(!IPGetItemHasProperty(oTarget, ip, -1))
|
|
SetLocalInt(oTarget, "PoisonedWeapon_DoDelete", TRUE);
|
|
|
|
AddItemProperty(DURATION_TYPE_PERMANENT, ip, oTarget);
|
|
SetLocalInt(oTarget, "pois_wpn_idx", nRow);
|
|
|
|
int nUses = 0;
|
|
int nDie = GetLocalInt(oItem, PRC_USES_PER_WEAPON_POISON_DIE);
|
|
nDie = nDie ? nDie : GetPRCSwitch(PRC_USES_PER_WEAPON_POISON_DIE);
|
|
int nCount = GetLocalInt(oItem, PRC_USES_PER_WEAPON_POISON_COUNT);
|
|
nCount = nCount > 0 ? nCount : GetPRCSwitch(PRC_USES_PER_WEAPON_POISON_COUNT);
|
|
nCount = nCount > 0 ? nCount : 1;
|
|
if(nDie >= 2){
|
|
int i;
|
|
for(i = 0; i < nCount; i++){
|
|
nUses += Random(nDie) + 1;
|
|
}
|
|
}
|
|
else{
|
|
nUses = nCount;
|
|
}
|
|
SetLocalInt(oTarget, "pois_wpn_uses", nUses);
|
|
|
|
// Eventhook the weapon
|
|
AddEventScript(oTarget, EVENT_ITEM_ONHIT, "poison_wpn_onhit", TRUE, FALSE);
|
|
|
|
// Inform player and do VFX
|
|
SendMessageToPC(oPC,
|
|
GetStringByStrRef(STRREF_POISON_APPLY_SUCCESS) + " " +
|
|
GetStringByStrRef(StringToInt(Get2DACache("poison", "Name", nRow)))
|
|
); //"You coat your weapon with xxxx"
|
|
|
|
effect eVis = EffectVisualEffect(VFX_IMP_PULSE_NATURE);
|
|
ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, GetItemPossessor(oTarget));
|
|
|
|
} |