Further file organization

Further file organization

nwn/nwnprc/trunk/spells/x0_s3_caltrop.nss

@@ -0,0 +1,50 @@
+//::///////////////////////////////////////////////
+//:: Caltrops
+//:: x0_s3_caltrop
+//:: Copyright (c) 2002 Bioware Corp.
+//:://////////////////////////////////////////////
+/*
+
+    Creates a permanent field of caltrops that will disappear
+    after 25 points of damage have been dished out.
+    (1 point per creature per round)
+
+*/
+//:://////////////////////////////////////////////
+//:: Created By: Brent
+//:: Created On: September 10, 2002
+//:://////////////////////////////////////////////
+
+#include "prc_inc_spells"
+
+void SetObject(location lTarget, object oVisual)
+{
+    object oArea = GetNearestObjectToLocation(OBJECT_TYPE_AREA_OF_EFFECT, lTarget);
+    if (GetIsObjectValid(oArea) == TRUE)
+    {
+        SetLocalObject(oArea, "X0_L_IMPACT", oVisual);
+    }
+}
+
+void main()
+{
+    int nDuration = GetPRCSwitch(PRC_CALTROPS_DURATION);
+    int nDurationType = nDuration ? DURATION_TYPE_TEMPORARY : DURATION_TYPE_PERMANENT;
+
+    //Declare major variables including Area of Effect Object
+    // * passing dirge script for exit because it is an empty script (i.e., there is no special exit effects)
+    effect eAOE = EffectAreaOfEffect(37, "x0_s3_calEN", "x0_s3_calHB", "");
+    location lTarget = PRCGetSpellTargetLocation();
+
+    //effect eImpact = EffectVisualEffect(257);
+
+    //ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eImpact, lTarget);
+    //Create an instance of the AOE Object using the Apply Effect function
+    ApplyEffectAtLocation(nDurationType, eAOE, lTarget, IntToFloat(nDuration));
+    object oVisual = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_invisobj", lTarget);
+    SetObject(lTarget, oVisual);
+
+    effect eFieldOfSharp = EffectVisualEffect(VFX_DUR_CALTROPS);
+    ApplyEffectToObject(nDurationType, eFieldOfSharp, oVisual, IntToFloat(nDuration));
+}
+