Further file organization

2023-08-23 22:11:00 -04:00
parent 3062876237
commit d87fe14826
22364 changed files with 0 additions and 3253 deletions
--- a/nwn/nwnprc/trunk/epicspellscripts/ss_ep_direwinter.nss
+++ b/nwn/nwnprc/trunk/epicspellscripts/ss_ep_direwinter.nss
@@ -0,0 +1,105 @@
+//:://////////////////////////////////////////////
+//:: FileName: "ss_ep_direwinter"
+/*   Purpose: Dire Winter - turns entire area the spell was cast in into a
+        winter-wonderland.
+*/
+//:://////////////////////////////////////////////
+//:: Created By: Boneshank
+//:: Last Updated On:
+//:://////////////////////////////////////////////
+
+#include "prc_alterations"
+#include "inc_epicspells"
+
+void DoWinterCheck(object oArea, float fDuration);
+
+const int X2_TL_GROUNDTILE_ICE = 426;
+
+void TLChangeAreaGroundTiles(object oArea, int nGroundTileConst, int nColumns, int nRows, float fZOffset = -0.4f )
+{
+    // Author: Brad "Cutscene" Prince
+    // * flood area with tiles
+    object oTile;
+    // * put ice everywhere
+    vector vPos;
+    vPos.x = 5.0;
+    vPos.y = 0.0;
+    vPos.z = fZOffset;
+    float fFace = 0.0;
+    location lLoc;
+
+    // * fill x axis
+    int i, j;
+    for (i=0 ; i <= nColumns; i++)
+    {
+        vPos.y = -5.0;
+        // fill y
+        for (j=0; j <= nRows; j++)
+        {
+            vPos.y = vPos.y + 10.0;
+            lLoc = Location(oArea, vPos, fFace);
+            // Ice tile (even though it says water).
+            oTile = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lLoc,FALSE, "x2_tmp_tile");
+            SetPlotFlag(oTile,TRUE);
+            ApplyEffectToObject(DURATION_TYPE_PERMANENT, EffectVisualEffect(nGroundTileConst), oTile);
+        }
+        vPos.x = vPos.x + 10.0;
+    }
+
+}
+
+void main()
+{
+    DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR");
+    SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_EVOCATION);
+
+    if (!X2PreSpellCastCode())
+    {
+        DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR");
+        return;
+    }
+    if (GetCanCastSpell(OBJECT_SELF, SPELL_EPIC_DIREWIN))
+    {
+        object oArea = GetArea(OBJECT_SELF);
+        float fDuration = HoursToSeconds(20) - 6.0;
+        TLChangeAreaGroundTiles(oArea, X2_TL_GROUNDTILE_ICE, 32, 32, 0.3);
+        SetWeather(oArea, WEATHER_SNOW);
+        // Add icy look to all placeables in area.
+        effect eIce = EffectVisualEffect(VFX_DUR_ICESKIN);
+        object oItem = GetFirstObjectInArea(oArea);
+        while (oItem != OBJECT_INVALID)
+        {
+            if (GetObjectType(oItem) == OBJECT_TYPE_PLACEABLE)
+            {
+                float fDelay = PRCGetRandomDelay();
+                DelayCommand(fDelay,
+                    SPApplyEffectToObject(DURATION_TYPE_TEMPORARY,
+                        eIce, oItem, fDuration, TRUE, -1, GetTotalCastingLevel(OBJECT_SELF)));
+            }
+            oItem = GetNextObjectInArea(oArea);
+        }
+        DelayCommand(6.0, DoWinterCheck(oArea, fDuration));
+        DelayCommand(fDuration, SetWeather(oArea, WEATHER_USE_AREA_SETTINGS));
+    }
+    DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR");
+}
+
+void DoWinterCheck(object oArea, float fDuration)
+{
+    int nDam;
+    effect eDam;
+    object oTarget = GetFirstObjectInArea(oArea);
+    while (oTarget != OBJECT_INVALID)
+    {
+        if (GetObjectType(oTarget) == OBJECT_TYPE_CREATURE)
+        {
+            nDam = d6(2);
+            eDam = EffectDamage(nDam, DAMAGE_TYPE_COLD);
+            SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget);
+        }
+        oTarget = GetNextObjectInArea(oArea);
+    }
+    fDuration -= 6.0;
+    if (fDuration > 1.0)
+        DelayCommand(6.0, DoWinterCheck(oArea, fDuration));
+}