Added PnP Dire Rat.

2021-07-21 17:48:43 -04:00
parent 552f1686c8
commit b01c5cc7db
10849 changed files with 171143 additions and 1 deletions
--- a/nwn_dark_sun/nw_s1_summtanar.nss
+++ b/nwn_dark_sun/nw_s1_summtanar.nss
@@ -0,0 +1,109 @@
+//::///////////////////////////////////////////////
+//:: Summon Tanarri
+//:: NW_S0_SummSlaad
+//:: Copyright (c) 2001 Bioware Corp.
+//:://////////////////////////////////////////////
+/*
+    Modified for the few Demons on Athas.
+*/
+//:://////////////////////////////////////////////
+//:: Created By: Preston Watamaniuk
+//:: Created On: Aug 14, 2001
+//:://////////////////////////////////////////////
+//:: VFX Pass By: Preston W, On: June 25, 2001
+
+#include "bp_t_randloc"
+
+int DEBUG   =   FALSE;
+
+void main()
+{
+    //Declare major variables
+    string sTag = GetTag(OBJECT_SELF);
+    int nNum;
+    string sRes;
+    effect eSummon;
+
+
+    if(sTag=="NW_S_SUCCUBUS")
+        {
+            if(d100()<=30)
+                {
+                    nNum    =   1;
+                    sRes    =   "DS_VROCK001";
+                }
+        }
+
+    if( (sTag=="DS_BABAU_001") ||
+        (sTag=="DS_BABAU_002") ||
+        (sTag=="DS_BABAU_003") )
+            {
+                if(d100()<=40)
+                    {
+                        nNum    =   1;
+                        sRes    =   "DS_BABAU_001";
+                    }
+            }
+
+
+    if(sTag=="DS_DRETCH001")
+        {
+            if(d100()<=35)
+                {
+                    nNum    =   1;
+                    sRes    =   "DS_DRETCH001";
+                }
+        }
+
+    if( (sTag=="NW_DMVROCK") ||
+        (sTag=="DS_VROCK001") )
+            {
+                switch(Random(2))
+                    {
+                        case 0:
+                        nNum    =   d10(2);
+                        sRes    =   "DS_DRETCH001";
+                        break;
+
+                        case 1:
+                        if(d100()<=35)
+                            {
+                                nNum    =   1;
+                                sRes    =   "DS_VROCK001";
+                            }
+                        break;
+                    }
+
+
+            }
+
+
+    if(DEBUG)
+        {
+            SendMessageToAllDMs(sTag + " >> " + IntToString(nNum) + " >> " + sRes);
+        }
+
+    object oCreature;
+    if(sRes!="")
+        {
+            int i;
+            //ApplyEffectAtLocation(DURATION_TYPE_INSTANT,EffectVisualEffect(VFX_FNF_HORRID_WILTING),GetSpellTargetLocation());
+            for (i = 0; i < nNum; i++)
+            {
+                effect eVis =   EffectVisualEffect(VFX_FNF_SUMMON_UNDEAD);
+                oCreature   =   CreateObject(OBJECT_TYPE_CREATURE,sRes,RndLoc(GetSpellTargetLocation(),5,DIMENSION_HEMISPHERE),FALSE);
+                ChangeFaction(oCreature,OBJECT_SELF);
+                ApplyEffectAtLocation(DURATION_TYPE_INSTANT,eVis,GetLocation(oCreature));
+                //eSummon = EffectSummonCreature(sRes,VFX_FNF_SUMMON_MONSTER_3);
+                //ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, eSummon, RndLoc(GetSpellTargetLocation(),5,DIMENSION_HEMISPHERE), HoursToSeconds(24));
+            }
+        }
+}
+
+
+//Declare major variables
+    //effect eSummon = EffectSummonCreature("NW_S_SUCCUBUS",VFX_FNF_SUMMON_MONSTER_3);
+    //effect eVis = EffectVisualEffect(VFX_FNF_SUMMON_MONSTER_3);
+    //Apply the VFX impact and summon effect
+    //ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, eVis, GetSpellTargetLocation());
+    //ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, eSummon, GetSpellTargetLocation(), HoursToSeconds(24));