add oc_update_seed

Author: jwenting

src/spares/oc_update_seed.lsl

@@ -0,0 +1,38 @@
+// This file is part of OpenCollar.
+// Copyright (c) 2017 nirea Resident.
+// Licensed under the GPLv2.  See LICENSE for full details.
+
+// This script can be used to upgrade a 6.6/6.7 collar to the official release from the OpenCollar group.
+// To use, do the following:
+// 1. Rez the OpenCollar Updater nearby.
+// 2. Wear your 6.6/6.7 collar.
+// 3. Edit your 6.6/6.7 collar and drop this script inside it.
+// The update will begin immediately.
+
+integer g_iUpdateChan = -7483213;
+
+default
+{
+    state_entry() {
+        llOwnerSay("Initializing update.");
+        llListen(g_iUpdateChan, "", "", "");
+        llWhisper(g_iUpdateChan, "UPDATE|6.0");
+        llSetTimerEvent(30);
+    }
+
+    listen(integer channel, string name, key id, string msg) {
+        if (llGetOwnerKey(id) != llGetOwner()) return;
+        if (llSubStringIndex(msg, "-.. ---|") == 0) { // why morse code? sigh.  Let's keep things readable, people.
+            llOwnerSay("Updater found.  Beginning update!");
+            integer pin = (integer)llFrand(99999998.0) + 1; //set a random pin
+            llSetRemoteScriptAccessPin(pin);
+            llRegionSayTo(id, g_iUpdateChan, "ready|" + (string)pin );
+            llRemoveInventory(llGetScriptName());
+        }
+    }
+
+    timer() {
+        // if we haven't gotten started by now, clean ourself up
+        llRemoveInventory(llGetScriptName());
+    }
+}