2025/08/22 Update

Reverted to 4.56 to track down a bug that started in 4.57. Bugfixed back to 4.61. It's amazing the damage that one skipped case statement can do.
2025-08-22 17:54:55 -04:00
parent 59b2630adf
commit 246f8d56aa
3624 changed files with 101489 additions and 93263 deletions
--- a/nwn/nwnprc/trunk/scripts/vl_treant_shape.nss
+++ b/nwn/nwnprc/trunk/scripts/vl_treant_shape.nss
@@ -0,0 +1,93 @@
+//::///////////////////////////////////////////////
+//:: Wild Shape
+//:: NW_S2_WildShape
+//:: Copyright (c) 2001 Bioware Corp.
+//:://////////////////////////////////////////////
+/*
+    Allows the Druid to change into animal forms.
+
+    Updated: Sept 30 2003, Georg Z.
+      * Made Armor merge with druid to make forms
+        more useful.
+
+*/
+//:://////////////////////////////////////////////
+//:: Created By: Preston Watamaniuk
+//:: Created On: Jan 22, 2002
+//:://////////////////////////////////////////////
+//:: Modified By: Deva Winblood
+//:: Modified Date: January 15th-16th, 2008
+//:://////////////////////////////////////////////
+/*
+    Modified to insure no shapeshifting spells are castable upon
+    mounted targets.  This prevents problems that can occur due
+    to dismounting after shape shifting, or other issues that can
+    occur due to preserved appearances getting out of synch.
+
+    This can additional check can be disabled by setting the variable
+    X3_NO_SHAPESHIFT_SPELL_CHECK to 1 on the module object.  If this
+    variable is set then this script will function as it did prior to
+    this modification.
+
+*/
+
+//#include "x3_inc_horse"
+#include "prc_alterations"
+#include "pnp_shft_poly"
+
+void main()
+{
+    object oPC = OBJECT_SELF;
+    int nSpell = GetSpellId();
+    int nMetaMagic = PRCGetMetaMagicFeat();
+    int nCasterLevel  = GetLevelByClass(CLASS_TYPE_DRUID, oPC)
+					+ GetLevelByClass(CLASS_TYPE_LION_OF_TALISID, oPC)
+					+ GetLevelByClass(CLASS_TYPE_VERDANT_LORD, oPC)					
+					+ GetLevelByClass(CLASS_TYPE_ARCANE_HIEROPHANT, oPC);
+					
+	float fDuration = HoursToSeconds(nCasterLevel);
+
+    int bShiftingDruid = GetLocalInt(GetModule(), "PRC_DRUID_USES_SHIFTING");
+
+    if (!GetLocalInt(GetModule(), "X3_NO_SHAPESHIFT_SPELL_CHECK"))
+    {
+        if (PRCHorseGetIsMounted(oPC))
+        {
+            if (GetIsPC(oPC))
+                FloatingTextStrRefOnCreature(111982, oPC, FALSE);
+            return;
+        }
+    }
+
+    ShifterCheck(oPC);
+    StoreCurrentAppearanceAsTrueAppearance(oPC, TRUE);
+
+    // Always shift into treant form
+    string sTreantShape = "prc_sum_treant";
+
+    ClearAllActions();
+    ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_POLYMORPH), oPC);
+	
+	effect eBark = EffectVisualEffect(VFX_DUR_PROT_BARKSKIN);
+	eBark = ExtraordinaryEffect(eBark);
+	
+
+    if (bShiftingDruid)
+    {
+        ShiftIntoResRef(oPC, SHIFTER_TYPE_DRUID, sTreantShape, FALSE);
+        DelayCommand(fDuration, SetShiftTrueForm(oPC));
+		
+    }
+    else
+    {
+        ShiftIntoResRef(oPC, SHIFTER_TYPE_DRUID, sTreantShape, FALSE);
+        DelayCommand(fDuration, SetShiftTrueForm(oPC));
+    }
+
+	ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eBark, oPC, fDuration);
+	
+    DelayCommand(1.5, ActionCastSpellOnSelf(SPELL_SHAPE_INCREASE_DAMAGE));
+	
+	
+}
+