Initial upload.

Adding base PRC 4.19a files to repository.

trunk/users/Stratovarius/NWNEE Updates/prc_witch_lspell.nss

@@ -0,0 +1,124 @@
+//Learn spell from scroll function for witch class.
+// Deprecated as Witch is no longer in the PRC
+
+#include "inc_newspellbook"
+
+void main()
+{
+/*    if(GetPRCSwitch(PRC_WITCH_DISABLE_SPELL_LEARN))
+    {
+        SendMessageToPC(OBJECT_SELF, "Spell-learning for Witch class has been disabled in this module");
+        return;
+    }
+
+    object oScroll = GetSpellTargetObject();
+    if(GetItemPossessor(oScroll) != OBJECT_SELF)
+        return;
+
+    int nItemType = GetBaseItemType(oScroll);
+    if(GetIdentified(oScroll) && nItemType != BASE_ITEM_SCROLL && nItemType != BASE_ITEM_SPELLSCROLL && nItemType != BASE_ITEM_ENCHANTED_SCROLL)
+    {
+        PlaySound("gui_failspell");
+        SendMessageToPC(OBJECT_SELF, GetStringByStrRef(53309));//"You cannnot learn anything from that item."
+        return;
+    }
+
+    int nSpellID = -1;
+    itemproperty ipTest = GetFirstItemProperty(oScroll);
+    while(GetIsItemPropertyValid(ipTest))
+    {
+        if(GetItemPropertyType(ipTest) == ITEM_PROPERTY_CAST_SPELL)
+        {
+            nSpellID = StringToInt(Get2DACache("iprp_spells", "SpellIndex", GetItemPropertySubType(ipTest)));
+            break;
+        }
+        ipTest = GetNextItemProperty(oScroll);
+    }
+
+    if(nSpellID > -1)
+    {
+        //look for the spellID in spell book
+        int nSpellbookID = RealSpellToSpellbookID(CLASS_TYPE_WITCH, nSpellID);
+
+        //it's not in the spell book
+        if(nSpellbookID == -1)
+        {
+            PlaySound("gui_failspell");
+            SendMessageToPC(OBJECT_SELF, GetStringByStrRef(16789885));//"You can only learn Witch spells."
+            return;
+        }
+
+        //check spell level
+        string sFile = "cls_spell_witch";
+        int nSpellLevel = StringToInt(Get2DACache(sFile, "Level", nSpellbookID));
+        int nCasterLevel = GetCasterLevelByClass(CLASS_TYPE_WITCH, OBJECT_SELF);
+        int nSpellLevelMax = GetMaxSpellLevelForCasterLevel(CLASS_TYPE_WITCH, nCasterLevel);
+
+        if(nSpellLevel > nSpellLevelMax)
+        {
+            PlaySound("gui_failspell");
+            SendMessageToPC(OBJECT_SELF, GetStringByStrRef(68612));//"You have not achieved the required level to learn that spell."
+            return;
+        }
+        if(nSpellLevel > (GetAbilityScore(OBJECT_SELF, ABILITY_WISDOM) - 10))
+        {
+            PlaySound("gui_failspell");
+            SendMessageToPC(OBJECT_SELF, GetStringByStrRef(68613));//"You do not have the minimum attribute required to learn this spell."
+            return;
+        }
+        int nXPCost = 75*nSpellLevel;
+        if(!nXPCost) nXPCost = 25;
+
+        if(!GetHasXPToSpend(OBJECT_SELF, nXPCost))
+        {
+            PlaySound("gui_failspell");
+            SendMessageToPC(OBJECT_SELF, "Not enough XP to learn this spell.");
+            return;
+        }
+
+        //check if OBJECT_SELF doesn't have the spell and can learn it
+        object oToken = GetHideToken(OBJECT_SELF);
+        string sSpellBook = "Spellbook" + IntToString(CLASS_TYPE_WITCH);//GetSpellsKnown_Array(CLASS_TYPE_WITCH);
+
+        // Create spells known persistant array  if it is missing
+        int nSize = array_get_size(oToken, sSpellBook);
+        if (nSize < 0)
+        {
+            array_create(oToken, sSpellBook);
+            nSize = 0;
+        }
+
+        if(array_has_int(oToken, sSpellBook, nSpellbookID) != -1)
+        {
+            PlaySound("gui_failspell");
+            SendMessageToPC(OBJECT_SELF, GetStringByStrRef(53308));//"You already have that spell in your spellbook."
+            return;
+        }
+
+        //destroy the scroll
+        int nStack = GetNumStackedItems(oScroll);
+        if (nStack > 1)
+            SetItemStackSize(oScroll, --nStack);
+        else
+            DestroyObject(oScroll);
+
+        //make a spellcraft check
+        if(!GetIsSkillSuccessful(OBJECT_SELF, SKILL_SPELLCRAFT, 10 + nSpellLevel))
+        {
+            PlaySound("gui_failspell");
+            SendMessageToPC(OBJECT_SELF, "You failed to learn this spell.");
+            return;
+        }
+
+        //add the spell
+        PlaySound("gui_learnspell");
+        int nIPFeatID = StringToInt(Get2DACache(sFile, "IPFeatID", nSpellbookID));
+        int nFeatID   = StringToInt(Get2DACache(sFile, "FeatID", nSpellbookID));
+        array_set_int(oToken, sSpellBook, nSize, nSpellbookID);
+        AddSpellUse(OBJECT_SELF, nSpellbookID, CLASS_TYPE_WITCH, sFile, "NewSpellbookMem_" + IntToString(CLASS_TYPE_WITCH), SPELLBOOK_TYPE_SPONTANEOUS, GetPCSkin(OBJECT_SELF), nFeatID, nIPFeatID);
+        SpendXP(OBJECT_SELF, nXPCost);
+
+        string sName = GetStringByStrRef(StringToInt(Get2DACache("spells", "Name", nSpellID)));
+        SendMessageToPC(OBJECT_SELF, ReplaceChars(GetStringByStrRef(53307), "<CUSTOM0>", sName));//"<CUSTOM0> has been added to your spellbook."
+    }*/
+}