Added PnP Dire Rat.

Added PnP Dire Rat.

nwn_dark_sun/ar_mod_onaquire.nss

@@ -0,0 +1,169 @@
+//::///////////////////////////////////////////////
+//:: Example XP2 OnItemAcquireScript
+//:: x2_mod_def_aqu
+//:: (c) 2003 Bioware Corp.
+//:://////////////////////////////////////////////
+/*
+    Put into: OnItemAcquire Event
+
+*/
+//:://////////////////////////////////////////////
+//:: Created By: Georg Zoeller
+//:: Created On: 2003-07-16
+//:://////////////////////////////////////////////
+
+#include "nw_i0_plot"
+#include "yr_inc_effects"
+#include "nw_i0_plotwizard"
+#include "x2_inc_switches"
+//#include "ar_db_main"
+
+float fDelay = 300.0; // Stay either in full minutes or less than a minute
+void wow_PickPocket();
+void wow_CheckPP(object oPP, string sName, int nPPTimes, int nRan = 0, int nTimesToRun = 0);
+void PickPocketing();
+
+void main()
+{
+     object oItem = GetModuleItemAcquired();
+     // * Generic Item Script Execution Code
+     // * If MODULE_SWITCH_EXECUTE_TAGBASED_SCRIPTS is set to TRUE on the module,
+     // * it will execute a script that has the same name as the item's tag
+     // * inside this script you can manage scripts for all events by checking against
+     // * GetUserDefinedItemEventNumber(). See x2_it_example.nss
+     if (GetModuleSwitchValue(MODULE_SWITCH_ENABLE_TAGBASED_SCRIPTS) == TRUE)
+     {
+        SetUserDefinedItemEventNumber(X2_ITEM_EVENT_ACQUIRE);
+        int nRet =   ExecuteScriptAndReturnInt(GetUserDefinedItemEventScriptName(oItem),OBJECT_SELF);
+        if (nRet == X2_EXECUTE_SCRIPT_END)
+        {
+           return;
+        }
+
+     }
+
+}
+
+void wow_CheckPP(object oPP, string sName, int nPPTimes, int nRan = 0, int nTimesToRun = 0)
+{
+    if(nRan == 0)
+    {
+        if(fDelay > 60.0)
+        {
+            nTimesToRun = FloatToInt(fDelay / 60.0) + 1;
+            nRan++;
+            DelayCommand(60.0, wow_CheckPP(oPP, sName, nPPTimes, nRan, nTimesToRun));
+        }
+        else
+        {
+            nTimesToRun = 1;
+            nRan++;
+            DelayCommand(fDelay, wow_CheckPP(oPP, sName, nPPTimes, nRan, nTimesToRun));
+        }
+    }
+    else
+    {
+        nRan++;
+        if(GetLocalInt(oPP, sName+"_PICKPOCKETED") == nPPTimes)
+        {
+            if(nRan <= nTimesToRun) DelayCommand(60.0, wow_CheckPP(oPP, sName, nPPTimes, nRan, nTimesToRun));
+            else
+            {
+                DeleteLocalInt(oPP, sName+"_PICKPOCKETED");
+                if(GetLocalInt(oPP, sName+"_AFFECTED"))
+                {
+                    RemoveLocalEffect(oPP, sName+"_PP_EFFECT_"+IntToString(nPPTimes));
+                    DeleteLocalInt(oPP, sName+"_AFFECTED");
+                }
+            }
+        }
+    }
+}
+
+void wow_PickPocket()
+{
+    object oItem = GetModuleItemAcquired();
+    object oLoser = GetModuleItemAcquiredFrom();
+
+    if(GetIsPC(oLoser) && GetStolenFlag(oItem))
+    {
+        object oTaker = GetModuleItemAcquiredBy();
+
+        if(GetHasSkill(SKILL_PICK_POCKET, oTaker))
+        {
+            string sLoser = GetName(oLoser);
+            int nPP = GetLocalInt(oTaker, sLoser+"_PICKPOCKETED");
+
+            if(nPP > 1 && CheckLocalEffect(oTaker, sLoser+"_PP_EFFECT_"+IntToString(nPP))) RemoveLocalEffect(oTaker, sLoser+"PP_EFFECT_"+IntToString(nPP));
+
+            nPP++;
+            SetLocalInt(oTaker, sLoser+"_PICKPOCKETED", nPP);
+
+            if(nPP > 1)
+            {
+                effect eSkill = EffectSkillDecrease(SKILL_PICK_POCKET, (nPP - 1) * 5);
+                eSkill = ExtraordinaryEffect(eSkill);
+                SetLocalEffect(oTaker, eSkill, sLoser+"_PP_EFFECT_"+IntToString(nPP));
+                SetLocalInt(oTaker, sLoser+"_AFFECTED", TRUE);
+            }
+            wow_CheckPP(oTaker, sLoser, nPP);
+        }
+    }
+}
+
+
+void PickPocketing()
+{
+    //Get the object that lost the item
+    object oTarget = GetModuleItemAcquiredFrom();
+    //Get the object that was acquired
+    object oItem = GetModuleItemAcquired();
+    //Get the thief
+    object oThief = GetItemPossessor(oItem);
+
+    if(GetIsPC(oThief) && GetIsPC(oTarget))
+    {
+        //If it's stolen, do this
+        if(GetStolenFlag(oItem))
+        {
+            //If it's not plot they can take it
+            if(!GetPlotFlag(oItem))
+            {
+                //If the item is too heavy then limit what the thief can do
+                SetIdentified(oItem, FALSE);
+                if(!(GetWeight(oItem) <= 30))
+                {
+                    //The thief gets 10% of the targets gold
+                    int nStolenGold = FloatToInt(GetGold(oTarget) * 0.1);
+
+                    //Give the thief his gold
+                    AssignCommand(oThief, GiveGoldToCreature(oThief, nStolenGold));
+                    //Take the stolen gold amount from the target
+                    TakeGold(nStolenGold, oTarget);
+
+                    //Tell the target what happened
+                    SendMessageToPC(oTarget, "You notice a thief attempting to steal from you!");
+                    //Tell the thief what happened
+                    SendMessageToPC(oThief, "You attempted to take an item that was too heavy.  You were able to grab some gold, but you were noticed.");
+                    //Give it back to the target
+                    CreateItemOnObject(GetTag(oItem), oTarget, GetNumStackedItems(oItem));
+                    //Destroy the stolen item
+                    DestroyObject(oItem);
+                }
+                SetIdentified(oItem, TRUE);
+            }
+            //Plot items are protected
+            else
+            {
+                //Tell the target what happened
+                SendMessageToPC(oTarget, "You notice a thief attempting to steal from you!");
+                //Tell the thief what happened
+                SendMessageToPC(oThief, "You attempted to take an item that was plot protected. You were noticed.");
+                //Give it back to the target
+                CreateItemOnObject(GetTag(oItem), oTarget, GetNumStackedItems(oItem));
+                //Destroy the stolen item
+                DestroyObject(oItem);
+            }
+        }
+    }
+}