Initial Upload

Initial Upload

_module/nss/partycheck.nss

@@ -0,0 +1,49 @@
+//party check: made for LOD by bf.
+//... tests if 2 pc's are near each other and of the same party. and reports the results.
+//I would call this either from pc death or creature death... to minimise cpu usage
+// this way the pc's can be together.. as long as they are not getting any XP benefits.
+//if used in npc or monster ondeath the method for calling would be.
+//          ExecuteScript("partycheck",GetLastKiller());
+//if used in pc ondeath it method for calling would be.
+//          ExecuteScript("partycheck", OBJECT_SELF);
+
+
+int GetXPLevel(object oPC) {
+        int level = FloatToInt((1+sqrt(1+4.*GetXP(oPC)/500))/2);
+        if (level > 20){level = 20;}
+        return level;
+}
+
+void main()
+{
+    int iXP;
+    float fDistance;
+    int LevelDifference;
+    object oPC = GetFirstFactionMember(OBJECT_SELF);
+    object oAreaSelf = GetArea(OBJECT_SELF);
+    string sCheat;
+//    AssignCommand(OBJECT_SELF, ActionSpeakString("test")); //for testing
+
+    int iLevelSelf = GetXPLevel (OBJECT_SELF);
+    while (GetIsObjectValid(oPC))
+    {
+        if (GetArea (oPC) == oAreaSelf && oPC != OBJECT_SELF)
+        {
+            fDistance = GetDistanceBetween(OBJECT_SELF, oPC);
+            if (fDistance < 20.0 && fDistance > 0.0) //close enough to get xp
+            {
+                LevelDifference = GetXPLevel(oPC) - iLevelSelf;
+                if (LevelDifference > 4 || LevelDifference < -4)
+                {
+                    string sCheat = "Level Violation " + GetName(OBJECT_SELF) + " in " + GetName(oAreaSelf);
+                    //cheating
+    //                SendMessageToAllDMs(sCheat);
+                      AssignCommand(OBJECT_SELF, ActionSpeakString(sCheat)); //for testing
+
+                      ActionSpeakString(sCheat); //for testing
+                }
+            }
+        }
+    oPC = GetNextFactionMember(OBJECT_SELF);
+    }
+}