Added PnP Dire Rat.

Added PnP Dire Rat.

nwn_dark_sun/ps_psychblade.nss

@@ -0,0 +1,47 @@
+/************************************
+*   Psychic Blade                   *
+*                                   *
+*   Cost: 21                        *
+*   Power Score: Con -2             *
+*                                   *
+*************************************/
+
+#include "lib_psionic"
+
+void main()
+{
+    object oPC=OBJECT_SELF;
+    int nCost=21;
+    int nPowerScore=GetAbilityScore(oPC, ABILITY_CONSTITUTION)-2;
+    int nLevel=GetEffectivePsionicLevel(oPC, FEAT_PSIONIC_PSYCHIC_BLADE);
+    effect eVis=EffectVisualEffect(VFX_IMP_RESTORATION_LESSER);
+    object oBlade;
+    int nCurrentTime=GetRealTime();
+    int nBonus=nLevel/4;
+    int nDC=(nLevel/4)-3<6?(nLevel/4)-3:6; //see nwscript.nss for IP_CONST_ONHIT_SAVEDC_*
+
+    if (!PowerCheck(oPC, nCost, nPowerScore, FEAT_PSIONIC_PSYCHIC_BLADE)) return;
+
+    int nDuration=GetEnhancedDuration(nLevel);
+
+    SignalEvent(oPC, EventSpellCastAt(oPC, SPELL_PSIONIC_PSYCHIC_BLADE, FALSE));
+
+    ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oPC);
+
+    oBlade=CreateItemOnObject("ps_psychblade_it", oPC);
+    AssignCommand(oPC, ActionEquipItem(oBlade, INVENTORY_SLOT_RIGHTHAND));
+    AddItemProperty(DURATION_TYPE_TEMPORARY, ItemPropertyEnhancementBonus(nBonus), oBlade, TurnsToSeconds(nDuration));
+
+    if(nLevel>=20)
+        AddItemProperty(DURATION_TYPE_TEMPORARY,
+            ItemPropertyOnHitProps(IP_CONST_ONHIT_STUN, nDC,
+                IP_CONST_ONHIT_DURATION_50_PERCENT_2_ROUNDS), oBlade, TurnsToSeconds(nDuration));
+
+    if(nLevel>=10)
+        AddItemProperty(DURATION_TYPE_TEMPORARY,
+            ItemPropertyMassiveCritical(IP_CONST_DAMAGEBONUS_2d6), oBlade, TurnsToSeconds(nDuration));
+
+    DestroyObject(oBlade, TurnsToSeconds(nDuration));
+    SetLocalInt(oBlade, "BladeExpiration", nCurrentTime+FloatToInt(TurnsToSeconds(nDuration)));
+}
+