Initial commit. Updated release archive.

_module/nss/lmpperfpursehb.nss

@@ -0,0 +1,67 @@
+// Collection Purse: OnHeartbeat
+// Check if gold was taken recently. (OnDisturbed checks for other objects being
+// taken, but it doesn't work for gold.)
+// Also empty the purse at the end of the day.
+
+#include "lmpperfmisc"
+
+void CheckGoldStolen()
+{
+    int nGold = GetGold();
+    int nGoldPrev = GetLocalInt(OBJECT_SELF, "lmpPerfGold");
+    SetLocalInt(OBJECT_SELF, "lmpPerfGold", nGold);
+    //lmpDebugMsg("OnHeartbeatPurse contains", nGold);
+    //lmpDebugMsg("OnHeartbeatPurse previous", nGoldPrev);
+    if (nGold < nGoldPrev) {
+        object oThief = GetLocalObject(OBJECT_SELF, "lmpPerfOpenedBy");
+        if (oThief != OBJECT_INVALID) {
+            SignalPurseStolenBoth(oThief);
+        }
+    }
+}
+
+void CreateGold(int nGold)
+{
+    CreateItemOnObject("nw_it_gold001", OBJECT_SELF, nGold);
+}
+
+void EmptyPurse()
+{
+    // NOTE: Did you know that if you do DestroyObject and then CreateItemOnObject
+    // they can actually be done in the opposite order?!!? We guard against that
+    // by resetting lmpPerfGold first else it can look like something was stolen.
+    //lmpDebugMsg("EmptyPurse: contains", GetLocalInt(OBJECT_SELF, "lmpPerfGold"));
+    SetLocalInt(OBJECT_SELF, "lmpPerfGold", 0); // do this first to avoid glitches
+    object oItem = GetFirstItemInInventory();
+    while (oItem != OBJECT_INVALID) {
+        DestroyObject(oItem);
+        oItem = GetNextItemInInventory();
+    }
+    // Seed the purse with a bit of gold. An old busking trick.
+    // NOTE: Delay 2 seconds, otherwise the gold gets destroyed (see above NOTE).
+    DelayCommand(2.0, CreateGold(1));
+    //lmpDebugMsg("EmptyPurse: reset to", GetLocalInt(OBJECT_SELF, "lmpPerfGold"));
+    //lmpDebugMsg("EmptyPurse: actually contains", GetGold());
+}
+
+void main()
+{
+    // Check if any gold has been stolen from the purse.
+    // NOTE: This is a kludge required because OnDisturbed isn't triggered when
+    // gold is taken!
+    CheckGoldStolen();
+
+    // Empty the contents of the purse once per day.
+    // This simulates the performers taking the money at the end of the day.
+    int nHour = GetTimeHour();
+    int fEmptiedToday = GetLocalInt(OBJECT_SELF, "lmpPerfEmptiedToday");
+    if (nHour > 20 && !fEmptiedToday) {
+        // Time to clean out the purse.
+        SetLocalInt(OBJECT_SELF, "lmpPerfEmptiedToday", TRUE);
+        EmptyPurse();
+    } else if (nHour < 10 && fEmptiedToday) {
+        // reset the variable to indicate this has not yet been done today
+        SetLocalInt(OBJECT_SELF, "lmpPerfEmptiedToday", FALSE);
+    }
+}
+