Further file organization

Further file organization

nwn/nwnprc/trunk/smp/nw_s0_fireball.nss

@@ -0,0 +1,40 @@
+//::///////////////////////////////////////////////
+//:: Fireball
+//:: NW_S0_Fireball
+//:: Copyright (c) 2001 Bioware Corp.
+//:://////////////////////////////////////////////
+
+// Testing summoning spell
+
+
+void main()
+{
+    // Create summon effect
+    string sResRef = "phs_kobold";
+    string sResRef2 = "phs_balor";
+    effect eSummon = EffectSummonCreature(sResRef, VFX_FNF_SUMMON_MONSTER_1);
+    effect eSummon2 = EffectSummonCreature(sResRef2, VFX_FNF_SUMMON_MONSTER_2);
+    effect eLink = EffectLinkEffects(eSummon, eSummon2);
+    location lTarget = GetSpellTargetLocation();
+
+    SpeakString("Summoning monster: Kobold");
+
+    // Set the associates (summons) to destroyable: FALSE for a sec.
+    int nCnt = 1;
+    object oAssociate = GetAssociate(ASSOCIATE_TYPE_SUMMONED, OBJECT_SELF, nCnt);
+    while(GetIsObjectValid(oAssociate))
+    {
+        SpeakString("Summon: " + GetName(oAssociate) + ". changing to destroyable");
+        AssignCommand(oAssociate, SetIsDestroyable(FALSE));
+        DelayCommand(0.1, AssignCommand(oAssociate, SetIsDestroyable(TRUE)));
+        nCnt++;
+        oAssociate = GetAssociate(ASSOCIATE_TYPE_SUMMONED, OBJECT_SELF, nCnt);
+    }
+    // Apply it for 10 minutes
+    ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, eLink, lTarget, TurnsToSeconds(10));
+
+    // Apply it for 10 minutes
+    //ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, eSummon, lTarget, TurnsToSeconds(10));
+    // 2 of them - Apply it for 10 minutes
+    //ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, eSummon2, lTarget, TurnsToSeconds(10));
+}