Initial upload

Initial upload

_module/nss/bootnonguild.nss

@@ -0,0 +1,39 @@
+//Created by Genisys / Guile 5/20/08
+
+//Boot all non-guild members instantly out of the area..
+
+location lTarget;
+object oTarget;
+
+//Put this script OnEnter
+void main()
+{
+
+object oPC = GetEnteringObject();
+
+if (!GetIsPC(oPC)) return;
+
+if (GetItemPossessedBy(oPC, "gen_token")== OBJECT_INVALID)
+   {
+   oTarget = GetWaypointByTag("home");
+
+   lTarget = GetLocation(oTarget);
+
+   if (GetAreaFromLocation(lTarget)==OBJECT_INVALID)
+   {return;}
+
+   AssignCommand(oPC, ClearAllActions());
+   AssignCommand(oPC, ActionJumpToLocation(lTarget));
+
+   }
+else
+{
+ //if they dont' have a guild stone, but do have a guild pass..
+ if(GetItemPossessedBy(oPC, "gen_token")== OBJECT_INVALID)
+ {
+  CreateItemOnObject("gen_token", oPC, 1);
+ }
+
+}
+
+}