Initial commit. Updated release archive.

2024-06-20 15:47:42 -04:00
parent d14b20cb85
commit e49d03aa23
6897 changed files with 6107848 additions and 0 deletions
--- a/_removed/mh_spell_at_inst.nss
+++ b/_removed/mh_spell_at_inst.nss
@@ -0,0 +1,146 @@
+//::///////////////////////////////////////////////
+//:: Name mh_spell_at_ins
+//:: FileNameCast a spell to any instrument
+//:: Copyright (c) 2001 Bioware Corp.
+//:://////////////////////////////////////////////
+/*
+    This script is runned when a player is in
+    Cast Spell at Instrument mod
+*/
+//:://////////////////////////////////////////////
+//:: Created By: Age
+//:: Created On: February 2004
+//:://////////////////////////////////////////////
+
+
+#include "x2_inc_craft"
+#include "mh_instr_inc"
+
+
+void finish(object oTarget,int iDesactive = FALSE)
+{
+    string sScript =  GetLocalString(GetModule(),"temp_spell_at_inst");
+    if (sScript != "")
+        {
+            ExecuteScript(sScript,OBJECT_SELF);
+        }
+    if(iDesactive)
+    {
+        UnactiveModeCIMM(oTarget);
+    }
+
+}
+
+
+void main()
+{
+//SpawnScriptDebugger();
+//define variable
+object oItem = GetSpellTargetObject();
+object oCaster = GetLastSpellCaster();
+
+//if the target is not a instrument or spell cast from item or the caster is not
+//the creator of the item, or if the caster is not in add spell mod
+//cast the spell normaly and exit the add spell mod
+
+if( (GetObjectType(oItem) != OBJECT_TYPE_ITEM) ||
+    ( GetTag(oItem) != "MH_IT_LUTH" &&
+      GetTag(oItem) != "MH_IT_HARP" &&
+      GetTag(oItem) != "MH_IT_FLUTE" &&
+      GetTag(oItem) != "MH_IT_COR" ) ||
+      //GetObjectType(GetSpellCastItem()) != OBJECT_TYPE_INVALID ||
+      oCaster != GetLocalObject(oItem, "mh_createur")
+
+    )
+    {
+
+        finish(oCaster,GetLocalInt(oCaster,"use_CIMM"));
+        return;
+    }
+
+
+
+int iID = GetSpellId();
+
+int iIPConst =  IPGetIPConstCastSpellFromSpellID(iID);
+
+if (iID == 0 && iIPConst != 0)
+    {
+        FloatingTextStrRefOnCreature(84544,oCaster);
+        finish(oCaster);
+        return;
+    }
+itemproperty ipC ;
+float fCharge1 = 0.0f;
+float fCharge2;
+int iCost;
+int iNewCost;
+
+if(GetItemHasItemProperty(oItem, ITEM_PROPERTY_CAST_SPELL))
+    {
+        //detect if the targe has the spell property
+        itemproperty ipTest = GetFirstItemProperty(oItem);
+        while(GetIsItemPropertyValid(ipTest) && (iIPConst != GetItemPropertySubType(ipTest)))
+        {
+            ipTest = GetNextItemProperty(oItem);
+        }
+
+
+        if (iIPConst == GetItemPropertySubType(ipTest) )
+        {
+            iCost = GetItemPropertyCostTableValue(ipTest);
+            if(iCost == IP_CONST_CASTSPELL_NUMUSES_1_USE_PER_DAY)
+                iNewCost = IP_CONST_CASTSPELL_NUMUSES_2_USES_PER_DAY;
+            if(iCost == IP_CONST_CASTSPELL_NUMUSES_2_USES_PER_DAY)
+                iNewCost = IP_CONST_CASTSPELL_NUMUSES_3_USES_PER_DAY;
+            if(iCost == IP_CONST_CASTSPELL_NUMUSES_3_USES_PER_DAY)
+                iNewCost = IP_CONST_CASTSPELL_NUMUSES_4_USES_PER_DAY;
+            if(iCost == IP_CONST_CASTSPELL_NUMUSES_4_USES_PER_DAY)
+                iNewCost = IP_CONST_CASTSPELL_NUMUSES_5_USES_PER_DAY;
+            if(iCost == IP_CONST_CASTSPELL_NUMUSES_5_USES_PER_DAY)
+                {
+                //if the item has max return
+                FloatingTextStrRefOnCreature(16780242,oCaster);
+                finish(oCaster);
+                SetModuleOverrideSpellScriptFinished();
+                return;
+                }
+            RemoveItemProperty(oItem,ipTest);
+            ipC = ItemPropertyCastSpell(iIPConst,iNewCost);
+        }
+        else
+        {
+            iCost = 0;
+            iNewCost = IP_CONST_CASTSPELL_NUMUSES_1_USE_PER_DAY;
+            ipC = ItemPropertyCastSpell(iIPConst,IP_CONST_CASTSPELL_NUMUSES_1_USE_PER_DAY);
+        }
+    }
+else
+    {
+        iCost = 0;
+        iNewCost = IP_CONST_CASTSPELL_NUMUSES_1_USE_PER_DAY;
+        ipC = ItemPropertyCastSpell(iIPConst,IP_CONST_CASTSPELL_NUMUSES_1_USE_PER_DAY);
+    }
+
+
+//get the cost of the property
+
+if(iCost > 0)
+    fCharge1 = StringToFloat(Get2DAString("iprp_chargecost","Cost",iCost));
+
+fCharge2 = StringToFloat(Get2DAString("iprp_chargecost","Cost",iNewCost));
+
+int iTotalCost = FloatToInt( (fCharge2 - fCharge1) * StringToFloat(Get2DAString("iprp_spells","Cost",iIPConst)) );
+int iCostMax = GetLocalInt(oItem,"cout_instrument");
+// if the cost is too hight return
+if(iCostMax < iTotalCost)
+    {
+        FloatingTextStrRefOnCreature(16780243,oCaster);
+        finish(oCaster);
+        SetModuleOverrideSpellScriptFinished();
+        return;
+    }
+AddItemProperty(DURATION_TYPE_PERMANENT,ipC, oItem);
+SetLocalInt(oItem,"cout_instrument",iCostMax - iTotalCost);
+SetModuleOverrideSpellScriptFinished();
+}