New feature: TPE plugin

[anne-skydancer]

/* This is a plugin for opencollar that is meant to enable or disable TPE in a non-hackish way (meaning, no fiddling with settings, but by an act of the primary owner).

I've done what i can, but now it's beyond my ability to continue, so i would like feedback on it. */

/*

• Total Power Exchange (TPE) Plugin for OpenCollar 8.x — FINAL, OWNER PROTECTED
• • Prevents wearer from enabling TPE if no primary owner is set
• • Menu dialog appears only once per click
• • All TPE logic, debug, and owner check via oc_settings
    */

integer ALIVE = -55;
integer READY = -56;
integer STARTUP = -57;
integer MENUNAME_REQUEST = 3000;
integer MENUNAME_RESPONSE = 3001;
integer CMD_ZERO = 0;
integer CMD_SAFEWORD = 510;
integer CMD_RELAY_SAFEWORD = 511;
integer CMD_RLV_RELAY = 507;

integer ISOWNED_REQUEST = 7600;
integer ISOWNED_RESPONSE = 7601;

integer gTPE_Enabled = FALSE;
key gOwner;
integer gDialogChan = -999987;
key gLastDialogUser;

float gLastMenuTime = 0.0;

integer gAwaitingOwnerCheck = FALSE;
key gPendingUser;

sendAPICmd(string cmd) {
llMessageLinked(LINK_SET, CMD_ZERO, cmd, gOwner);
llOwnerSay("[TPE] Command sent: " + cmd);
}

applyTPE() {
llOwnerSay(
"[TPE] ACTIVATING TPE:\n" +
"• Public ON\n" +
"• Safeword DISABLED\n" +
"• Wearer controls BLOCKED\n" +
"• RLV relay AUTOMATIC"
);
sendAPICmd("auth=public~1");
llMessageLinked(LINK_SET, CMD_RLV_RELAY, "automatic", gOwner);
llOwnerSay("[TPE] RLV relay set to automatic");
}

revertTPE() {
llOwnerSay("[TPE] DEACTIVATING TPE: Restoring defaults.");
sendAPICmd("auth=public~0");
}

showTPEMenu(key who) {
float now = llGetUnixTime();
if (now - gLastMenuTime < 1.0) return; // Prevent double-pop
gLastMenuTime = now;

gLastDialogUser = who;
list btns = [];
string msg = "[TPE]\nDANGEROUS PLUGIN!\nEnabling TPE disables ALL wearer controls and disables the safeword.\nProceed with caution!";
if (!gTPE_Enabled)
    btns = ["TPE On"];
else
    btns = ["TPE Off"];
llListenRemove(gDialogChan);
gDialogChan = llListen(gDialogChan, "", who, "");
llDialog(who, msg, btns, gDialogChan);
llOwnerSay("[TPE DEBUG] Showing TPE menu dialog to: " + (string)who);

}

requestOwnerStatus(key who) {
gAwaitingOwnerCheck = TRUE;
gPendingUser = who;
llMessageLinked(LINK_SET, ISOWNED_REQUEST, "", who);
}

default {
state_entry() {
gOwner = llGetOwner();
llOwnerSay("[TPE] Owner-protected plugin loaded. Awaiting menu interactions...");
}

link_message(integer sender, integer msg, string str, key id) {
    llOwnerSay(
        "[TPE DEBUG] link_message: msg=" + (string)msg +
        " str=\"" + str + "\" sender=" + (string)sender +
        " id=" + (string)id
    );

    if (msg == MENUNAME_REQUEST) {
        if (str == "Apps") {
            llOwnerSay("[TPE DEBUG] Registering 'Apps|TPE' under context 'Apps'");
            llMessageLinked(LINK_SET, MENUNAME_RESPONSE, "Apps|TPE", "Apps");
        }
        else if (str == "Apps|TPE" || str == "TPE") {
            llOwnerSay("[TPE DEBUG] Registering submenus 'Apps|TPE|On', 'Apps|TPE|Off' under context '" + str + "'");
            llMessageLinked(LINK_SET, MENUNAME_RESPONSE, "Apps|TPE|On", str);
            llMessageLinked(LINK_SET, MENUNAME_RESPONSE, "Apps|TPE|Off", str);
        }
        return;
    }

    if ((msg == 0 || msg == 500) && llToLower(str) == "menu tpe") {
        llOwnerSay("[TPE DEBUG] Handling 'menu TPE' request with custom menu dialog!");
        showTPEMenu(id);
        return;
    }

    if (msg == CMD_ZERO) {
        list parts = llParseString2List(str, ["|"], []);
        if (llGetListLength(parts) == 3 &&
            llList2String(parts,0) == "Apps" &&
            llList2String(parts,1) == "TPE") {
            string action = llList2String(parts,2);
            if (action == "On" && !gTPE_Enabled) {
                requestOwnerStatus(id);
                return;
            }
            if (action == "Off" && gTPE_Enabled) {
                llDialog(id,
                    "[TPE]\nDisable Total Power Exchange?",
                    ["Yes", "No"], gDialogChan);
                llListenRemove(gDialogChan);
                gDialogChan = llListen(gDialogChan, "", id, "");
                return;
            }
        }
        string lstr = llToLower(str);
        if (lstr == "tpe") {
            showTPEMenu(id);
            return;
        }
        if (lstr == "tpe on" && !gTPE_Enabled) {
            requestOwnerStatus(id);
            return;
        }
        if (lstr == "tpe off" && gTPE_Enabled) {
            llDialog(id, "[TPE] Are you sure you want to DISABLE TPE?", ["Yes", "No"], gDialogChan);
            llListenRemove(gDialogChan);
            gDialogChan = llListen(gDialogChan, "", id, "");
            return;
        }
    }

    // Handle ISOWNED_RESPONSE from oc_settings
    if (msg == ISOWNED_RESPONSE && gAwaitingOwnerCheck && id == gPendingUser) {
        gAwaitingOwnerCheck = FALSE;
        if (str == "0") {
            llOwnerSay("You can't lock yourself out of your collar. TPE requires a primary owner set.");
            return;
        } else {
            llDialog(id,
                "[TPE] Are you SURE you want to ENABLE TPE?\nYou will lose all wearer controls and the safeword!\nThis is irreversible until the owner disables it.\nProceed?",
                ["Yes", "No"], gDialogChan);
            llListenRemove(gDialogChan);
            gDialogChan = llListen(gDialogChan, "", id, "");
        }
        return;
    }

    if (gTPE_Enabled) {
        if (msg == CMD_SAFEWORD || msg == CMD_RELAY_SAFEWORD) {
            llOwnerSay("[TPE] Safeword blocked.");
            return;
        }
        if (msg == CMD_RLV_RELAY) {
            if (llSubStringIndex(str, "detach") != -1 || llSubStringIndex(str, "unbind") != -1) {
                llOwnerSay("[TPE] Unbind attempt blocked: " + str);
                return;
            }
        }
    }
}

listen(integer channel, string name, key id, string msg) {
    if (channel != gDialogChan) return;
    if (id != gOwner) return;
    if (msg == "TPE On" && !gTPE_Enabled) {
        requestOwnerStatus(id);
        return;
    }
    if (msg == "TPE Off" && gTPE_Enabled) {
        llDialog(id, "[TPE] Are you sure you want to DISABLE TPE?", ["Yes", "No"], gDialogChan);
        return;
    }
    if (msg == "Yes" && !gTPE_Enabled) {
        gTPE_Enabled = TRUE;
        applyTPE();
        llOwnerSay("[TPE] Enabled.");
        llListenRemove(gDialogChan);
        return;
    }
    if (msg == "Yes" && gTPE_Enabled) {
        gTPE_Enabled = FALSE;
        revertTPE();
        llOwnerSay("[TPE] Disabled.");
        llListenRemove(gDialogChan);
        return;
    }
    if (msg == "No") {
        llOwnerSay("[TPE] Action canceled.");
        llListenRemove(gDialogChan);
        return;
    }
}

changed(integer change) {
    if (change & (CHANGED_REGION | CHANGED_OWNER)) {
        llResetScript();
    }
}

on_rez(integer start_param) {
    llResetScript();
}

}

[NikkiLacrima]

So a TPE plugin that makes it easy to lock down a collar from the wearer, and no other new fuctionality.

First, exactly what settings and restrictions do you propse the TPY should apply ?
Are the TPE settings supposed to be permanent until removed by an Owner ?

What I see in the code is nothing that cannot be done in 5 minutes of configuration from the menu, or by dropping a suitably madeup .settings NC into the collar.

How will it handle owner and wearer fall out, owner disappearing ? OC support already have plenty of cases with subs wanting to get out of their welded collars.

There is not , and will never be, anything to prevent the usual method of logging in with RLV off, or from SL viewer, and then reset scripts or simply remove and delete the collar.

[anne-skydancer]

The trouble with notecards is, they can easily be used in abusive situations. As someone who HAS suffered from abuse due to notecading TPE in, I stronglu believe a plugin can be a way to restore agency and prevent bad actors from abusing the trust..
The modifications are clear: public access, wearer locked out of everything. The wearer would be the initiator of TPE, and only the owner may revoke it. Optionally, the wearer can give consent to TP being set. Since the owner would be the sole one with the authority to unset tpe, no further permission would be needed.

[SilkieSabra]

I have had some more people ask for TPE in OpenCollar and I believe it is because this is a feature in a different collar brand. It seems to me all or most of what it does OpenCollar already has, just by a different name or not collected under one preset.

[anne-skydancer]

the idea is precisely to unify it under one preset, so that people don't have to go around fiddling with settings notecards, which could be dangerous. I should know, I got a collar from someone for me to wear for a scene and it was absolutely locked out. This avoids the necessity for creating ad-hoc settings cards and provides increased safety for the collar wearer and confidence with the Owner that they can safely revert TPE. I've revised the code, and believe this version will behave well, and, most importantly, it is easily reversible, unlike a settings notecard.

/* =============================================================
   APP:     oc_tpemode.lsl  (OpenCollar compatible)
   PURPOSE: Total Power Exchange (TPE) Mode
            Enable: Owner confirms → Wearer confirms → persist + lockout.
                     Only WEARER gets an informational OK, then END.
            Disable: Owner confirms → persist + unlock → Owner OK, then END.
   NOTES:   - Registers into Apps → "TPE Mode"
            - Owner-only control (CMD_OWNER)
            - Persists "tpemode_state" (0/1)
            - Uses Linkset Data "auth_WearerLockout" tag "tpemode"
   ============================================================= */

integer DEBUG = FALSE;

/* ======== oc_api.lsl constants (use exactly these names/values) ======== */
/* Menu registry */
integer MENUNAME_REQUEST = 3000;
integer MENUNAME_RESPONSE = 3001;
integer MENUNAME_REMOVE = 3003;

/* Auth query / reply (optional) */
integer AUTH_REQUEST = 600;
integer AUTH_REPLY   = 601;
integer AUTH_WEARERLOCKOUT = 602;

/* Roles routed by oc_api as link_numbers */
integer CMD_OWNER    = 500;
integer CMD_TRUSTED  = 501;
integer CMD_GROUP    = 502;
integer CMD_WEARER   = 503;
integer CMD_EVERYONE = 504;
integer CMD_BLOCKED  = 598;
integer CMD_NOACCESS = 599;

/* Dialog hub */
integer DIALOG          = -9000;
integer DIALOG_RESPONSE = -9001;
integer DIALOG_TIMEOUT  = -9002;
string  UPMENU          = "BACK";

/* Settings */
integer LM_SETTING_SAVE     = 2000; // send "token=value"
integer LM_SETTING_REQUEST  = 2001; // send "token" or "ALL"
integer LM_SETTING_RESPONSE = 2002; // receive "token=value" or "token_var=value"

/* Optional notify (handy but not required) */
integer NOTIFY        = 1002;
integer NOTIFY_OWNERS = 1003;

/* ================= App identity & settings keys ================= */
string  APP_MENU_ROOT = "Apps";
string  APP_LABEL     = "TPE Mode";
string  APP_CONTEXT   = "oc_tpemode";     // what oc_menu may send as "menu oc_tpemode"
string  MENU_ID       = "TPE";            // prefix in DIALOG message id

string  KEY_TPE = "tpemode_state";        // "0" or "1" (string)

/* ============================== State =========================== */
integer g_TPE = FALSE;        // cached setting (0/1)
key     g_Wearer;
key     g_Initiator = NULL_KEY; // owner who opened the app
key     g_Active    = NULL_KEY; // current dialog recipient
string  g_Ctx       = "";       // "main" | "confirm_owner" | "confirm_wearer" | "confirm_disable" | "final_ack"

/* ============================ Helpers =========================== */
integer Log(string s){ if (DEBUG) llOwnerSay("[TPE] " + s); return 0; }

string BuildDialogPayload(key who, string prompt, list choices, list utils, integer page, integer iAuth)
{
    // oc_api DIALOG payload: "<avatar>|<prompt>|<page>|choices`sep|utils`sep|<iAuth>"
    string c = llDumpList2String(choices, "`");
    string u = llDumpList2String(utils, "`");
    string p = (string)who + "|" + prompt + "|" + (string)page + "|" + c + "|" + u + "|" + (string)iAuth;
    return p;
}

string BuildDialogID()
{
    // id looks like "<MenuName>~<ScriptName>" so oc_api can route back to us
    return MENU_ID + "~" + llGetScriptName();
}

integer IsOwnerAuth(integer iAuth)
{
    if (iAuth == CMD_OWNER) return TRUE;
    return FALSE;
}

/* ------------------------ Wearer Lockout ------------------------ */
string ReadLockout()
{
    return llLinksetDataRead("auth_WearerLockout");
}

integer LockoutHasTag(string tag)
{
    string cur = ReadLockout();
    if (cur == "") return FALSE;
    // include commas to avoid partial matches
    if (llSubStringIndex("," + cur + ",", "," + tag + ",") != -1) return TRUE;
    return FALSE;
}

integer LockoutAddTag(string tag)
{
    string cur = ReadLockout();
    if (LockoutHasTag(tag)) return TRUE;
    if (cur == "") llLinksetDataWrite("auth_WearerLockout", tag);
    else llLinksetDataWrite("auth_WearerLockout", cur + "," + tag);
    return TRUE;
}

integer LockoutRemoveTag(string tag)
{
    string cur = ReadLockout();
    if (cur == "") return TRUE;
    list parts = llParseString2List(cur, [","], []);
    integer pos = llListFindList(parts, [tag]);
    if (pos != -1) {
        parts = llDeleteSubList(parts, pos, pos);
        llLinksetDataWrite("auth_WearerLockout", llDumpList2String(parts, ","));
    }
    return TRUE;
}

/* ---------------------------- Settings -------------------------- */
integer SettingsSave(string token, string value)
{
    // "token=value"
    llMessageLinked(LINK_SET, LM_SETTING_SAVE, token + "=" + value, "origin");
    return TRUE;
}

integer SettingsRequest(string token)
{
    llMessageLinked(LINK_SET, LM_SETTING_REQUEST, token, "");
    return TRUE;
}

// Returns the value if msg matches wantedToken (and wantedVar, if given); "" otherwise.
string ParseSettingGet(string msg, string wantedToken, string wantedVar)
{
    integer eq = llSubStringIndex(msg, "=");
    if (eq <= 0) return "";

    string left = llGetSubString(msg, 0, eq - 1);
    string val  = llGetSubString(msg, eq + 1, -1);

    integer us = llSubStringIndex(left, "_");
    if (us != -1) {
        // token_var=value
        list L = llParseString2List(left, ["_"], []);
        string tok = llList2String(L, 0);
        string var = llList2String(L, 1);
        if (tok == wantedToken) {
            if (wantedVar == "" || var == wantedVar) return val;
        }
    } else {
        // token=value
        if (left == wantedToken) return val;
    }
    return "";
}

/* ----------------------------- Menus --------------------------- */
integer ShowMain(key owner)
{
    list choices;
    if (g_TPE) choices = ["Disable"];
    else choices = ["Enable"];

    list utils = [UPMENU];
    string msg = "TPE Mode is currently ";
    if (g_TPE) msg += "ENABLED.\nDisable TPE Mode?";
    else msg += "DISABLED.\nEnable TPE Mode?";

    string payload = BuildDialogPayload(owner, msg, choices, utils, 0, CMD_OWNER);
    llMessageLinked(LINK_SET, DIALOG, payload, BuildDialogID());
    g_Active = owner;
    g_Ctx = "main";
    return TRUE;
}

integer ShowOwnerConfirm(key owner)
{
    list choices = ["Yes", "No"];
    list utils = [UPMENU];
    string msg = "WARNING: Enabling TPE Mode removes the wearer's local control.\nProceed?";
    string payload = BuildDialogPayload(owner, msg, choices, utils, 0, CMD_OWNER);
    llMessageLinked(LINK_SET, DIALOG, payload, BuildDialogID());
    g_Active = owner;
    g_Ctx = "confirm_owner";
    return TRUE;
}

integer ShowWearerConfirm()
{
    key wearer = g_Wearer;
    list choices = ["Yes", "No"];
    list utils = [];
    string msg = "Your owner wants to enable Total Power Exchange Mode.\nDo you consent?";
    string payload = BuildDialogPayload(wearer, msg, choices, utils, 0, CMD_WEARER);
    llMessageLinked(LINK_SET, DIALOG, payload, BuildDialogID());
    g_Active = wearer;
    g_Ctx = "confirm_wearer";
    return TRUE;
}

integer ShowOwnerDisableConfirm(key owner)
{
    list choices = ["Yes", "No"];
    list utils = [UPMENU];
    string msg = "Disable TPE Mode?";
    string payload = BuildDialogPayload(owner, msg, choices, utils, 0, CMD_OWNER);
    llMessageLinked(LINK_SET, DIALOG, payload, BuildDialogID());
    g_Active = owner;
    g_Ctx = "confirm_disable";
    return TRUE;
}

integer ShowFinalAckToWearer()
{
    key wearer = g_Wearer;
    list choices = ["OK"];
    list utils = [];
    string msg = "You are now the totally power-exchanged servant of your owner.";
    string payload = BuildDialogPayload(wearer, msg, choices, utils, 0, CMD_WEARER);
    llMessageLinked(LINK_SET, DIALOG, payload, BuildDialogID());
    g_Active = wearer;
    g_Ctx = "final_ack";
    return TRUE;
}

integer ShowFinalAckToOwner()
{
    key owner = g_Initiator;
    if (owner == NULL_KEY) owner = g_Wearer; // fallback, should not happen
    list choices = ["OK"];
    list utils = [];
    string msg = "TPE Mode has been disabled.";
    string payload = BuildDialogPayload(owner, msg, choices, utils, 0, CMD_OWNER);
    llMessageLinked(LINK_SET, DIALOG, payload, BuildDialogID());
    g_Active = owner;
    g_Ctx = "final_ack";
    return TRUE;
}

integer EndSession()
{
    g_Active = NULL_KEY;
    g_Initiator = NULL_KEY;
    g_Ctx = "";
    return TRUE;
}

/* ------------------------- Menu registry ----------------------- */
integer RegisterIntoApps()
{
    // oc_api expects: "<Parent>|<Label>|<Context>"
    string reg = APP_MENU_ROOT + "|" + APP_LABEL + "|" + APP_CONTEXT;
    llMessageLinked(LINK_SET, MENUNAME_RESPONSE, reg, NULL_KEY);
    return TRUE;
}

/* ============================= LSL ============================= */
default
{
    on_rez(integer p) { llResetScript(); }

    state_entry()
    {
        g_Wearer = llGetOwner();
        g_TPE = FALSE;
        g_Initiator = NULL_KEY;
        g_Active = NULL_KEY;
        g_Ctx = "";
        // Ask settings and wait for LM_SETTING_RESPONSE
        SettingsRequest(KEY_TPE);
        // Wait for MENUNAME_REQUEST to register into Apps
    }

    changed(integer c)
    {
        if (c & CHANGED_OWNER) llResetScript();
    }

    link_message(integer sender, integer num, string msg, key id)
    {
        /* --- Menu name request: tell OC we exist under Apps --- */
        if (num == MENUNAME_REQUEST) {
            RegisterIntoApps();
            return;
        }

        /* --- Settings response: cache tpemode_state --- */
        if (num == LM_SETTING_RESPONSE) {
            string v = ParseSettingGet(msg, KEY_TPE, "");
            if (llStringLength(v)) g_TPE = (integer)v;
            return;
        }

        /* --- Routed user commands from oc_api: open our menu --- */
        if (num >= CMD_OWNER && num <= CMD_NOACCESS) {
            string s = llToLower(llStringTrim(msg, STRING_TRIM));
            integer wantsUs = FALSE;
            if (s == "menu " + llToLower(APP_CONTEXT)) wantsUs = TRUE;
            else if (s == "menu " + llToLower(APP_LABEL)) wantsUs = TRUE;
            else if (s == "menu tpe") wantsUs = TRUE;

            if (wantsUs) {
                if (num == CMD_OWNER) {
                    g_Initiator = id;
                    ShowMain(g_Initiator);
                } else {
                    llRegionSayTo(id, 0, "Access denied.");
                    // Return user to Apps root
                    llMessageLinked(LINK_SET, num, "menu " + APP_MENU_ROOT, id);
                }
            }
            return;
        }

        /* --- Dialog replies routed by oc_api --- */
        if (num == DIALOG_RESPONSE) {
            // oc_api sets kID like "<MenuName>~<ScriptName>"
            integer pos = llSubStringIndex(id, "~" + llGetScriptName());
            if (pos > 0) {
                list L = llParseString2List(msg, ["|"], []);
                if (llGetListLength(L) >= 4) {
                    key    who   = llList2Key(L, 0);
                    string btn   = llList2String(L, 1);
                    integer iAuth= llList2Integer(L, 3);

                    // MAIN (owner)
                    if (g_Ctx == "main" && who == g_Active) {
                        if (btn == UPMENU) {
                            if (g_Initiator != NULL_KEY) {
                                llMessageLinked(LINK_SET, CMD_OWNER, "menu " + APP_MENU_ROOT, g_Initiator);
                            }
                            EndSession();
                            return;
                        }
                        if (btn == "Enable") {
                            if (IsOwnerAuth(iAuth)) ShowOwnerConfirm(g_Initiator);
                            else llRegionSayTo(who, 0, "Access denied.");
                            return;
                        }
                        if (btn == "Disable") {
                            if (IsOwnerAuth(iAuth)) ShowOwnerDisableConfirm(g_Initiator);
                            else llRegionSayTo(who, 0, "Access denied.");
                            return;
                        }
                    }

                    // OWNER CONFIRM (enable)
                    if (g_Ctx == "confirm_owner" && who == g_Active) {
                        if (btn == UPMENU || btn == "No") {
                            ShowMain(g_Initiator);
                            return;
                        }
                        if (btn == "Yes") {
                            ShowWearerConfirm();
                            return;
                        }
                    }

                    // WEARER CONFIRM (enable)
                    if (g_Ctx == "confirm_wearer" && who == g_Active) {
                        if (btn == "No") {
                            // wearer declined → back to owner's main
                            ShowMain(g_Initiator);
                            return;
                        }
                        if (btn == "Yes") {
                            // Persist + lockout, then show informational OK to wearer only
                            SettingsSave(KEY_TPE, "1");
                            g_TPE = TRUE;
                            LockoutAddTag("tpemode");
                            ShowFinalAckToWearer();
                            return;
                        }
                    }

                    // OWNER CONFIRM (disable)
                    if (g_Ctx == "confirm_disable" && who == g_Active) {
                        if (btn == UPMENU || btn == "No") {
                            ShowMain(g_Initiator);
                            return;
                        }
                        if (btn == "Yes") {
                            SettingsSave(KEY_TPE, "0");
                            g_TPE = FALSE;
                            LockoutRemoveTag("tpemode");
                            ShowFinalAckToOwner();
                            return;
                        }
                    }

                    // TERMINAL ACK: wearer after enable OR owner after disable
                    if (g_Ctx == "final_ack" && who == g_Active) {
                        EndSession();
                        return;
                    }
                }
            }
            return;
        }

        /* --- Dialog timeouts (optional) --- */
        if (num == DIALOG_TIMEOUT) {
            integer pos2 = llSubStringIndex(id, "~" + llGetScriptName());
            if (pos2 > 0) {
                EndSession();
            }
            return;
        }
    }
}

Please feel free to comment on this.

[NikkiLacrima]

Please dont copy the same code in several places, use an updated pull request for current code submission, gives line numbers and fancy stuff. Save space here for discussions to keep them readable.

So basically this is an interface to set and clear the auth_WearerLockout=tpemode LSD token, looks like it could work (not tested yet).

There is also a setting tpemode_state = 0/1 that could be infered from the LSD token.

in the link message handler:
if (num >= CMD_OWNER && num <= CMD_NOACCESS) {
.....

should probably be something like :
if (num >= CMD_OWNER && num <= CMD_WEARER) {

[anne-skydancer]

I would if I could create a pull request; I can't, so I must use this system. Apologies if I pasted it in several places, I simply did not know where I should offer this.