Initial upload

Initial upload

module/nss/ac_itool.nss

@@ -0,0 +1,75 @@
+//Script Name: ac_itool
+//////////////////////////////////////////
+//Created by: Genisys / Guile
+//ON:   7/29/08
+/////////////////////////////////////////
+/*          **Notes**
+
+This is a tagbased item activation script
+this works on tagbased scripting as this
+script is fired from the script "itool"
+
+Whenever the item "Inventory Organizer"
+tagnamed "itool" is used, the PC is
+teleported to the Inventory Room to
+sort their items out in their inventory.
+
+*/
+//////////////////////////////////////////
+string sDeny;
+
+//Required Include (Because it's a tagbased item!)
+#include "x2_inc_switches"
+
+
+//Main Script
+void main()
+{
+
+// Check if we have the correct event firing the script
+    if (GetUserDefinedItemEventNumber() != X2_ITEM_EVENT_ACTIVATE)
+    {return;}
+
+object oPC = GetItemActivator();
+
+
+//If the system is in use, don't allow anyone to enter!
+if (GetLocalInt(oPC, "INVUSE")== 1)
+   {
+   sDeny="Inventory Room In Use, Try again later.";
+
+   SendMessageToPC(oPC, sDeny);
+
+   return;
+   }
+
+//Otherwise set that the room is in use!
+//This allows the PC into the room!!
+SetLocalInt(oPC, "INVROOMUSER", 1);
+
+//Note this variable is removed when the PC leaves the area!
+SetLocalInt(GetModule(), "INVUSE", 1);
+
+object oTarget;
+location lTarget;
+oTarget = GetWaypointByTag("isystemway");
+
+lTarget = GetLocation(oTarget);
+
+if (GetAreaFromLocation(lTarget)==OBJECT_INVALID) return;
+
+SetLocalLocation(oPC, "inv_loc", GetLocation(oPC));
+
+AssignCommand(oPC, ClearAllActions());
+
+DelayCommand(3.0, AssignCommand(oPC, ActionJumpToLocation(lTarget)));
+
+oTarget = oPC;
+
+int nInt;
+nInt = GetObjectType(oTarget);
+
+if (nInt != OBJECT_TYPE_WAYPOINT) ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_UNSUMMON), oTarget);
+else ApplyEffectAtLocation(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_UNSUMMON), GetLocation(oTarget));
+
+}