Added NWN Dark Sun module contents

Added NWN Dark Sun module contents.

nwnds_module/ww_aura1.nss

@@ -0,0 +1,68 @@
+int IsColdSubType( object oTarget )
+{
+    object oHide = GetItemInSlot(INVENTORY_SLOT_CARMOUR,oTarget);
+
+    if ( !GetIsObjectValid( oHide ) )
+        return FALSE;
+
+    int bCold = FALSE;
+    int bFire = FALSE;
+    int nIPType;
+    int nIPSubType;
+
+    itemproperty ipIP = GetFirstItemProperty(oHide);
+
+    while ( GetIsItemPropertyValid(ipIP) )
+    {
+        nIPType =  GetItemPropertyType(ipIP);
+        nIPSubType = GetItemPropertySubType(ipIP);
+        if ( nIPType == ITEM_PROPERTY_DAMAGE_VULNERABILITY &&
+             nIPSubType == 10 ) // fire vuln
+            bFire = TRUE;
+        if ( nIPType == ITEM_PROPERTY_IMMUNITY_DAMAGE_TYPE &&
+             nIPSubType == 7 ) // cold immunity
+            bCold = TRUE;
+
+        if ( bFire && bCold )
+            return TRUE;
+
+        ipIP = GetNextItemProperty(oHide);
+    }
+    return FALSE;
+}
+
+void main()
+{
+    object oTarget = GetEnteringObject();
+    object oCaster = GetAreaOfEffectCreator();
+
+    if ( oTarget == oCaster )
+        return;
+
+    effect eCold = EffectDamage(d10(2),DAMAGE_TYPE_COLD);
+    effect eVis = EffectVisualEffect(VFX_IMP_FROST_S);
+    effect eRegen = EffectRegenerate(10,6.0);
+    effect eTurn = EffectTurnResistanceIncrease(6);
+    effect eVis2 = EffectVisualEffect(VFX_IMP_SUPER_HEROISM);
+
+
+    if ( GetIsEnemy(oTarget, oCaster) )
+    {
+        ApplyEffectToObject(DURATION_TYPE_INSTANT,eCold,oTarget);
+        ApplyEffectToObject(DURATION_TYPE_INSTANT,eVis,oTarget);
+    }
+
+    // check for fire and cold properties on hide to determine
+    // if creature is cold subtype
+
+    if ( IsColdSubType(oTarget) )
+    {
+
+        if ( GetRacialType(oTarget) == RACIAL_TYPE_UNDEAD )
+            eRegen = EffectLinkEffects(eRegen,eTurn);
+
+        ApplyEffectToObject(DURATION_TYPE_INSTANT,eVis2,oTarget);
+        ApplyEffectToObject(DURATION_TYPE_TEMPORARY,eRegen,oTarget,6.0);
+    }
+
+}