7b9e44ebbb
Initial upload. PRC8 has been added. Module compiles, PRC's default AI & treasure scripts have been integrated. Started work on top hak for SLA / Ability / Scripting modifications.
463 lines
15 KiB
Plaintext
463 lines
15 KiB
Plaintext
#include "jw_smith_copy"
|
|
|
|
|
|
// Do the correct enchantment according to the type of scroll used.
|
|
// oItem is the scroll used, oUser is the PC using it, sItemTag is the tag of
|
|
// the scroll used, oTarget is the armour being targeted.
|
|
void ZachScroll(object oItem, object oUser,string sItemTag, object oTarget);
|
|
|
|
// Check the item for temporary effects and remove those effects if they exist
|
|
void RemoveTempEffects (object oTarget);
|
|
|
|
|
|
// Do the Minstrel's travelling robe enchantment.
|
|
// oTarget is the item of clothing, oUser is the PC using the scroll
|
|
int nMinstrelsRobe(object oTarget, object oUser);
|
|
|
|
// Do the robe of Andros Dray enchantment.
|
|
// oTarget is the item of clothing, oUser is the PC using the scroll
|
|
int nAndrosRobe(object oTarget, object oUser);
|
|
|
|
// Do the robe of Mystra enchantment.
|
|
// oTarget is the item of clothing, oUser is the PC using the scroll
|
|
int nMystraRobe(object oTarget, object oUser);
|
|
|
|
// Do the robe of Mystra's Champion enchantment.
|
|
// oTarget is the item of clothing, oUser is the PC using the scroll
|
|
int nChampionRobe(object oTarget, object oUser);
|
|
|
|
// Do the robe of Mystra's fist enchantment.
|
|
// oTarget is the item of clothing, oUser is the PC using the scroll
|
|
int nFistRobe(object oTarget, object oUser);
|
|
|
|
// Do the disciple's robe enchantment.
|
|
// oTarget is the item of clothing, oUser is the PC using the scroll
|
|
int nDisciplesRobe(object oTarget, object oUser);
|
|
|
|
// Set as fighter, but we will use this to check if it has any class restriction at all
|
|
itemproperty iClassRestriction = ItemPropertyLimitUseByClass (IP_CONST_CLASS_FIGHTER);
|
|
|
|
|
|
|
|
|
|
|
|
// Do the correct enchantment according to the type of scroll used.
|
|
// oItem is the scroll used, oUser is the PC using it, sItemTag is the tag of
|
|
// the scroll used, oTarget is the armour being targeted.
|
|
void ZachScroll(object oItem, object oUser,string sItemTag, object oTarget)
|
|
{
|
|
if (!GetIsObjectValid(oTarget))
|
|
{
|
|
SendMessageToPC(oUser,"You must target an item of clothing with this scroll to use it");
|
|
return;
|
|
}
|
|
|
|
|
|
if (GetBaseItemType(oTarget)!=BASE_ITEM_ARMOR)
|
|
{
|
|
SendMessageToPC(oUser,"You must target an item of clothing with this scroll to use it");
|
|
return;
|
|
}
|
|
|
|
int nVFX=VFX_FNF_DISPEL_GREATER;
|
|
// Potion of Cormanthor
|
|
if(sItemTag=="jw_zach_2"||sItemTag=="jw_zach_3"||sItemTag=="jw_zach_4")
|
|
{
|
|
nVFX=VFX_FNF_ELECTRIC_EXPLOSION;
|
|
}
|
|
|
|
// remove any temp effects from the armour
|
|
RemoveTempEffects (oTarget);
|
|
|
|
int nSuccess;
|
|
|
|
if (sItemTag=="jw_zach_6")
|
|
{
|
|
// this is the Minstrel's travelling robe
|
|
nSuccess=nMinstrelsRobe(oTarget,oUser);
|
|
}
|
|
|
|
if (sItemTag=="jw_zach_1")
|
|
{
|
|
// this is the robe of Andros Dray
|
|
nSuccess=nAndrosRobe(oTarget,oUser);
|
|
}
|
|
|
|
if (sItemTag=="jw_zach_2")
|
|
{
|
|
// this is the robe of Mystra
|
|
nSuccess=nMystraRobe(oTarget,oUser);
|
|
}
|
|
|
|
if (sItemTag=="jw_zach_3")
|
|
{
|
|
// this is the robe of Mystra's Champion
|
|
nSuccess=nChampionRobe(oTarget,oUser);
|
|
}
|
|
|
|
if (sItemTag=="jw_zach_4")
|
|
{
|
|
// this is the robe of Mystra's Fist
|
|
nSuccess=nFistRobe(oTarget,oUser);
|
|
}
|
|
|
|
if (sItemTag=="jw_zach_5")
|
|
{
|
|
// this is the robe of the disciple
|
|
nSuccess=nDisciplesRobe(oTarget,oUser);
|
|
}
|
|
|
|
// Finish it off if we have been succesful
|
|
if (nSuccess==TRUE)
|
|
{
|
|
ApplyEffectToObject(DURATION_TYPE_INSTANT,EffectVisualEffect(nVFX),oUser);
|
|
DestroyObject(oItem);
|
|
}
|
|
|
|
}
|
|
|
|
|
|
// Check the item for temporary effects and remove those effects if they exist
|
|
void RemoveTempEffects (object oTarget)
|
|
{
|
|
itemproperty oProperty;
|
|
object oItem=oTarget;
|
|
|
|
|
|
|
|
oProperty=GetFirstItemProperty(oItem);
|
|
while (GetIsItemPropertyValid(oProperty))
|
|
{
|
|
if(GetItemPropertyDurationType(oProperty)==DURATION_TYPE_TEMPORARY)
|
|
{
|
|
RemoveItemProperty(oItem,oProperty);
|
|
}
|
|
oProperty=GetNextItemProperty(oItem);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
// Do the Minster's travelling robe enchantment.
|
|
// oTarget is the item of clothing, oUser is the PC using the scroll
|
|
int nMinstrelsRobe(object oTarget, object oUser)
|
|
{
|
|
int nSuccess=FALSE;
|
|
// add concentration +5 and perform +5
|
|
itemproperty iAdd;
|
|
|
|
// Check if it has ANY class restriction
|
|
int nHasClass=IPGetItemHasProperty(oTarget,iClassRestriction,-1,TRUE);
|
|
itemproperty iCheck = ItemPropertyLimitUseByClass(IP_CONST_CLASS_BARD);
|
|
// This next line checks whether it does have a class restriction but not the one we are looking for
|
|
if (nHasClass==TRUE && IPGetItemHasProperty(oTarget,iCheck,-1) == FALSE)
|
|
{
|
|
SendMessageToPC(oUser,"This scroll will make a robe for bards to use, but this item is only useable by a different class. Therefore the scroll will not work on it.");
|
|
return FALSE;
|
|
}
|
|
|
|
iAdd=ItemPropertySkillBonus(SKILL_CONCENTRATION,5);
|
|
if (IPGetItemHasProperty(oTarget,iAdd,-1))
|
|
{
|
|
SendMessageToPC(oUser,"This item already gives a bonus to concentration and Zacharia's scroll cannot give it any more.");
|
|
}
|
|
else
|
|
{
|
|
// The first time we do it, we wipe out existing skills
|
|
IPSafeAddItemProperty(oTarget,iAdd,0.0,X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,TRUE,TRUE);
|
|
iAdd=ItemPropertySkillBonus(SKILL_PERFORM,5);
|
|
IPSafeAddItemProperty(oTarget,iAdd,0.0,X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,FALSE,FALSE);
|
|
// When adding bard only, we REMOVE any other classes that are allowed to use it.
|
|
iAdd=ItemPropertyLimitUseByClass(IP_CONST_CLASS_BARD);
|
|
IPSafeAddItemProperty(oTarget,iAdd,0.0,X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,TRUE,TRUE);
|
|
nSuccess=TRUE;
|
|
}
|
|
|
|
|
|
return nSuccess;
|
|
}
|
|
|
|
|
|
// Do the robe of Andros Dray enchantment.
|
|
// oTarget is the item of clothing, oUser is the PC using the scroll
|
|
int nAndrosRobe(object oTarget, object oUser)
|
|
{
|
|
int nSuccess=FALSE;
|
|
// add concentration +5 and bonus spell of level 2;
|
|
itemproperty iAdd;
|
|
|
|
string sClass = "wizard";
|
|
|
|
int nClass=IP_CONST_CLASS_WIZARD;
|
|
if (GetLevelByClass(CLASS_TYPE_SORCERER,oUser)>=1)
|
|
{
|
|
nClass=IP_CONST_CLASS_SORCERER;
|
|
sClass="sorcerer";
|
|
}
|
|
|
|
// Check if it has ANY class restriction
|
|
int nHasClass=IPGetItemHasProperty(oTarget,iClassRestriction,-1,TRUE);
|
|
itemproperty iCheck = ItemPropertyLimitUseByClass(nClass);
|
|
// This next line checks whether it does have a class restriction but not the one we are looking for
|
|
if (nHasClass==TRUE && IPGetItemHasProperty(oTarget,iCheck,-1) == FALSE)
|
|
{
|
|
|
|
SendMessageToPC(oUser,"This scroll will make a robe for a "+sClass+" to use, but this item is only useable by a different class. Therefore the scroll will not work on it.");
|
|
return FALSE;
|
|
}
|
|
|
|
// do the concentration stuff
|
|
iAdd=ItemPropertySkillBonus(SKILL_CONCENTRATION,5);
|
|
if (IPGetItemHasProperty(oTarget,iAdd,-1))
|
|
{
|
|
SendMessageToPC(oUser,"This item already gives a bonus to concentration and Zacharia's scroll cannot give it any more.");
|
|
}
|
|
else
|
|
{
|
|
// The first time we do it, we wipe out existing skills
|
|
IPSafeAddItemProperty(oTarget,iAdd,0.0,X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,TRUE,TRUE);
|
|
nSuccess=TRUE;
|
|
}
|
|
|
|
// do the spell stuff
|
|
iAdd=ItemPropertyBonusLevelSpell(nClass,2);
|
|
if (IPGetItemHasProperty(oTarget,iAdd,-1))
|
|
{
|
|
SendMessageToPC(oUser,"This item already gives a bonus level 2 spell for your class and Zacharia's scroll cannot give it any more.");
|
|
}
|
|
else
|
|
{
|
|
// Wipe out any existing bonus spells
|
|
IPSafeAddItemProperty(oTarget,iAdd,0.0,X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,TRUE,TRUE);
|
|
nSuccess=TRUE;
|
|
}
|
|
|
|
|
|
// if we have had any success, we now make it wiz or sorc only
|
|
if (nSuccess==TRUE)
|
|
{
|
|
// First of all we REMOVE any other classes that are allowed to use it.
|
|
iAdd=ItemPropertyLimitUseByClass(IP_CONST_CLASS_SORCERER);
|
|
IPSafeAddItemProperty(oTarget,iAdd,0.0,X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,TRUE,TRUE);
|
|
// Then we KEEP what we just did
|
|
iAdd=ItemPropertyLimitUseByClass(IP_CONST_CLASS_WIZARD);
|
|
IPSafeAddItemProperty(oTarget,iAdd,0.0,X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,FALSE,FALSE);
|
|
}
|
|
|
|
return nSuccess;
|
|
}
|
|
|
|
// Do the robe of Mystra enchantment.
|
|
// oTarget is the item of clothing, oUser is the PC using the scroll
|
|
int nMystraRobe(object oTarget, object oUser)
|
|
{
|
|
int nSuccess=FALSE;
|
|
// int plus 2, spell level 6 wiz
|
|
itemproperty iAdd;
|
|
|
|
|
|
|
|
// Check if it has ANY class restriction
|
|
int nHasClass=IPGetItemHasProperty(oTarget,iClassRestriction,-1,TRUE);
|
|
itemproperty iCheck = ItemPropertyLimitUseByClass(IP_CONST_CLASS_WIZARD);
|
|
// This next line checks whether it does have a class restriction but not the one we are looking for
|
|
if (nHasClass==TRUE && IPGetItemHasProperty(oTarget,iCheck,-1) == FALSE)
|
|
{
|
|
SendMessageToPC(oUser,"This scroll will make a robe for wizards to use, but this item is only useable by a different class. Therefore the scroll will not work on it.");
|
|
return FALSE;
|
|
}
|
|
|
|
// do the int stuff
|
|
iAdd=ItemPropertyAbilityBonus(ABILITY_INTELLIGENCE,2);
|
|
//if (IPGetItemHasProperty(oTarget,iAdd,-1))
|
|
//{
|
|
//SendMessageToPC(oUser,"This item already gives a +2 bonus to intelligence and Zacharia's scroll cannot give it any more.");
|
|
//}
|
|
//else
|
|
{
|
|
// The first time we do it, we wipe out existing skills
|
|
IPSafeAddItemProperty(oTarget,iAdd,0.0,X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,TRUE,TRUE);
|
|
nSuccess=TRUE;
|
|
}
|
|
|
|
// do the spell stuff
|
|
iAdd=ItemPropertyBonusLevelSpell(IP_CONST_CLASS_WIZARD,6);
|
|
//if (IPGetItemHasProperty(oTarget,iAdd,-1))
|
|
//{
|
|
//SendMessageToPC(oUser,"This item already gives a bonus level 6 spell and Zacharia's scroll cannot give it any more.");
|
|
//}
|
|
//else
|
|
{
|
|
// Wipe out any existing bonus spells
|
|
IPSafeAddItemProperty(oTarget,iAdd,0.0,X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,TRUE,TRUE);
|
|
nSuccess=TRUE;
|
|
}
|
|
|
|
// if we have had any success, we now make it wiz only
|
|
if (nSuccess==TRUE)
|
|
{
|
|
// First of all we REMOVE any other classes that are allowed to use it.
|
|
iAdd=ItemPropertyLimitUseByClass(IP_CONST_CLASS_WIZARD);
|
|
IPSafeAddItemProperty(oTarget,iAdd,0.0,X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,TRUE,TRUE);
|
|
}
|
|
return nSuccess;
|
|
}
|
|
|
|
// Do the robe of Mystra's Champion enchantment.
|
|
// oTarget is the item of clothing, oUser is the PC using the scroll
|
|
int nChampionRobe(object oTarget, object oUser)
|
|
{
|
|
int nSuccess=FALSE;
|
|
// charis plus 2, spell level 6 sorc
|
|
itemproperty iAdd;
|
|
|
|
|
|
// Check if it has ANY class restriction
|
|
int nHasClass=IPGetItemHasProperty(oTarget,iClassRestriction,-1,TRUE);
|
|
itemproperty iCheck = ItemPropertyLimitUseByClass(IP_CONST_CLASS_SORCERER);
|
|
// This next line checks whether it does have a class restriction but not the one we are looking for
|
|
if (nHasClass==TRUE && IPGetItemHasProperty(oTarget,iCheck,-1) == FALSE)
|
|
{
|
|
SendMessageToPC(oUser,"This scroll will make a robe for sorcerers to use, but this item is only useable by a different class. Therefore the scroll will not work on it.");
|
|
return FALSE;
|
|
}
|
|
|
|
// do the char stuff
|
|
iAdd=ItemPropertyAbilityBonus(ABILITY_CHARISMA,2);
|
|
//if (IPGetItemHasProperty(oTarget,iAdd,-1))
|
|
//{
|
|
//SendMessageToPC(oUser,"This item already gives a +2 bonus to charisma and Zacharia's scroll cannot give it any more.");
|
|
//}
|
|
//else
|
|
{
|
|
// The first time we do it, we wipe out existing skills
|
|
IPSafeAddItemProperty(oTarget,iAdd,0.0,X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,TRUE,TRUE);
|
|
nSuccess=TRUE;
|
|
}
|
|
|
|
// do the spell stuff
|
|
iAdd=ItemPropertyBonusLevelSpell(IP_CONST_CLASS_SORCERER,6);
|
|
//if (IPGetItemHasProperty(oTarget,iAdd,-1))
|
|
//{
|
|
//SendMessageToPC(oUser,"This item already gives a bonus level 6 spell and Zacharia's scroll cannot give it any more.");
|
|
//}
|
|
//else
|
|
{
|
|
// Wipe out any existing bonus spells
|
|
IPSafeAddItemProperty(oTarget,iAdd,0.0,X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,TRUE,TRUE);
|
|
nSuccess=TRUE;
|
|
}
|
|
|
|
// if we have had any success, we now make it sorc only
|
|
if (nSuccess==TRUE)
|
|
{
|
|
// First of all we REMOVE any other classes that are allowed to use it.
|
|
iAdd=ItemPropertyLimitUseByClass(IP_CONST_CLASS_SORCERER);
|
|
IPSafeAddItemProperty(oTarget,iAdd,0.0,X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,TRUE,TRUE);
|
|
}
|
|
return nSuccess;
|
|
}
|
|
|
|
|
|
|
|
// Do the robe of Mystra's fist enchantment.
|
|
// oTarget is the item of clothing, oUser is the PC using the scroll
|
|
int nFistRobe(object oTarget, object oUser)
|
|
{
|
|
int nSuccess=FALSE;
|
|
// wis +2, discipline +5, tumble +5
|
|
itemproperty iAdd;
|
|
|
|
|
|
// Check if it has ANY class restriction
|
|
int nHasClass=IPGetItemHasProperty(oTarget,iClassRestriction,-1,TRUE);
|
|
itemproperty iCheck = ItemPropertyLimitUseByClass(IP_CONST_CLASS_MONK);
|
|
// This next line checks whether it does have a class restriction but not the one we are looking for
|
|
if (nHasClass==TRUE && IPGetItemHasProperty(oTarget,iCheck,-1) == FALSE)
|
|
{
|
|
SendMessageToPC(oUser,"This scroll will make a robe for monks to use, but this item is only useable by a different class. Therefore the scroll will not work on it.");
|
|
return FALSE;
|
|
}
|
|
|
|
// do the wis stuff
|
|
iAdd=ItemPropertyAbilityBonus(ABILITY_WISDOM,2);
|
|
if (IPGetItemHasProperty(oTarget,iAdd,-1))
|
|
{
|
|
SendMessageToPC(oUser,"This item already gives a +2 bonus to wisdom and Zacharia's scroll cannot give it any more.");
|
|
}
|
|
else
|
|
{
|
|
// The first time we do it, we wipe out existing skills
|
|
IPSafeAddItemProperty(oTarget,iAdd,0.0,X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,TRUE,TRUE);
|
|
nSuccess=TRUE;
|
|
}
|
|
|
|
// Do the discipline and tumble stuff
|
|
iAdd=ItemPropertySkillBonus(SKILL_DISCIPLINE,5);
|
|
// The first time we do it, we wipe out existing skills
|
|
IPSafeAddItemProperty(oTarget,iAdd,0.0,X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,TRUE,TRUE);
|
|
iAdd=ItemPropertySkillBonus(SKILL_TUMBLE,5);
|
|
IPSafeAddItemProperty(oTarget,iAdd,0.0,X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,FALSE,FALSE);
|
|
|
|
// In this case, we will just assume we are succeseful
|
|
nSuccess=TRUE;
|
|
// First of all we REMOVE any other classes that are allowed to use it.
|
|
iAdd=ItemPropertyLimitUseByClass(IP_CONST_CLASS_MONK);
|
|
IPSafeAddItemProperty(oTarget,iAdd,0.0,X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,TRUE,TRUE);
|
|
|
|
// We also remove any other alignments allowed to use it
|
|
iAdd=ItemPropertyLimitUseByAlign(IP_CONST_ALIGNMENTGROUP_LAWFUL);
|
|
IPSafeAddItemProperty(oTarget,iAdd,0.0,X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,TRUE,TRUE);
|
|
|
|
return nSuccess;
|
|
}
|
|
|
|
|
|
|
|
// Do the disciple's robe enchantment.
|
|
// oTarget is the item of clothing, oUser is the PC using the scroll
|
|
int nDisciplesRobe(object oTarget, object oUser)
|
|
{
|
|
int nSuccess=FALSE;
|
|
// add discipline +4, tumble +4
|
|
itemproperty iAdd;
|
|
|
|
|
|
|
|
// Check if it has ANY class restriction
|
|
int nHasClass=IPGetItemHasProperty(oTarget,iClassRestriction,-1,TRUE);
|
|
itemproperty iCheck = ItemPropertyLimitUseByClass(IP_CONST_CLASS_MONK);
|
|
// This next line checks whether it does have a class restriction but not the one we are looking for
|
|
if (nHasClass==TRUE && IPGetItemHasProperty(oTarget,iCheck,-1) == FALSE)
|
|
{
|
|
SendMessageToPC(oUser,"This scroll will make a robe for monks to use, but this item is only useable by a different class. Therefore the scroll will not work on it.");
|
|
return FALSE;
|
|
}
|
|
|
|
iAdd=ItemPropertySkillBonus(SKILL_DISCIPLINE,4);
|
|
if (IPGetItemHasProperty(oTarget,iAdd,-1))
|
|
{
|
|
SendMessageToPC(oUser,"This item already gives a bonus to discipline and Zacharia's scroll cannot give it any more.");
|
|
}
|
|
else
|
|
{
|
|
// The first time we do it, we wipe out existing skills
|
|
IPSafeAddItemProperty(oTarget,iAdd,0.0,X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,TRUE,TRUE);
|
|
iAdd=ItemPropertySkillBonus(SKILL_TUMBLE,4);
|
|
IPSafeAddItemProperty(oTarget,iAdd,0.0,X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,FALSE,FALSE);
|
|
// When adding bard only, we REMOVE any other classes that are allowed to use it.
|
|
iAdd=ItemPropertyLimitUseByClass(IP_CONST_CLASS_MONK);
|
|
IPSafeAddItemProperty(oTarget,iAdd,0.0,X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,TRUE,TRUE);
|
|
// We also remove any other alignments allowed to use it
|
|
iAdd=ItemPropertyLimitUseByAlign(IP_CONST_ALIGNMENTGROUP_LAWFUL);
|
|
IPSafeAddItemProperty(oTarget,iAdd,0.0,X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,TRUE,TRUE);
|
|
nSuccess=TRUE;
|
|
}
|
|
|
|
|
|
return nSuccess;
|
|
}
|
|
|