node.o.lsl

//start_unprocessed_text
/*#include "shared.inc.lsl"


integer gStartTime;


tellAlive(key id) {
    string msg = "node_alive:" + llGetObjectDesc();
    if (id) {
        llRegionSayTo(id, NODE_MASTER_CHANNEL, msg);
    } else if (gParentLogicalID != "") {
        // if we can't target this to a particular parent, don't bother
        // broadcasting that we're alive to everyone.
        llRegionSay(NODE_MASTER_CHANNEL, msg);
    } else {
        // If we don't know who our parent is at all (maybe because the script
        // was just saved and we're not a duplicate) we can send a short-range broadcast.
        // asking for a node manager to pick us up.
        llWhisper(NODE_MASTER_CHANNEL, msg);
    }
}


default {
    state_entry() {
        // restore our node ID, creating one if it didn't exist
        llSetStatus(STATUS_PHANTOM, TRUE);
        restoreLogicalID(TRUE);
        llListen(NODE_CHANNEL, "", "", "");
        tellAlive(NULL_KEY);
        llSetText("", <1,1,1>, 0);
        gStartTime = llGetUnixTime();
    }

    on_rez(integer start_param) {
        // initialization logic for script startup case takes precedence if
        // object duplication just occured. That's the only case where we
        // expect state_entry() and on_rez() could trigger within a short
        // timeframe. Per the LSL wiki this shouldn't ever happen, but
        // I don't trust that won't change or isn't the case on OpenSim.
        if (llAbs(gStartTime - llGetUnixTime()) < 5)
            return;

        // if we just got rezzed, our old ID doesn't mean anything anymore.
        llSetObjectDesc("");
        gOwnLogicalID = "";
        gParentLogicalID = "";
        llSetText("", <1,1,1>, 0);
        // If We just got rezzed by the node manager, it's going to tell us
        // our node ID and our children. Don't generate an ID.
        if (!llGetStartParameter()) {
            restoreLogicalID(TRUE);
            tellAlive(NULL_KEY);
        }
    }

    touch_start(integer total_number) {
        llRegionSay(NODE_MASTER_CHANNEL, "node_touched:" + gParentLogicalID + ":" + (string)llDetectedKey(0));
    }

    listen(integer channel, string name, key id, string msg) {
        if (llGetOwnerKey(id) != llGetOwner())
            return;
        list params = llParseStringKeepNulls(msg, [":"], []);
        string cmd = llList2String(params, 0);
        params = llDeleteSubList(params, 0, 0);
        // The rez helper in a child prim might be sending the message,
        // but it's the parent that needs to receive the reply
        key parent = llList2Key(llGetObjectDetails(id, [OBJECT_ROOT]), 0);

        if (cmd == "node_assign") {
            // node manager is assigning us an ID and position because it
            // just rezzed us.
            // not for us!
            if (!llGetStartParameter())
                return;
            if (gOwnLogicalID != "")
                return;
            gOwnLogicalID = llList2String(params, 0);
            gParentLogicalID = llList2String(params, 1);
            vector pos = (vector)llList2String(params, 2);
            if (pos != ZERO_VECTOR)
                llSetRegionPos(pos);
            llSetObjectDesc(generateDescription());
        } else if (cmd == "node_reset") {
            // node manager is asking us to change our ID to something specific.
            // Maybe our ID collides with an existing node because we got
            // duplicated through shift drag? Assign ourselves the provided ID.
            // Could also happen if a node was manually rezzed.
            gOwnLogicalID = llList2String(params, 0);
            gParentLogicalID = llList2String(params, 1);
            llSetObjectDesc(generateDescription());
        } else if (cmd == "node_kill_all") {
            // if we haven't been parented yet just listen to all die broadcasts
            if (gParentLogicalID == "" || gParentLogicalID == llList2String(params, 0)) {
                llDie();
            }
        } else if (cmd == "node_ping") {
            // no need to respond if we have a parent, nobody should be looking
            // for us.
            if (gParentLogicalID != "")
                return;
            tellAlive(parent);
        } else if (cmd == "node_text") {
            llSetText(llList2String(params, 0), (vector)llList2String(params, 1), llList2Float(params, 2));
        } else if (cmd == "node_color") {
            llSetLinkPrimitiveParamsFast(LINK_THIS, [
                PRIM_COLOR, ALL_SIDES, (vector)llList2String(params, 0), llList2Float(params, 1)
            ]);
        }
    }
}
*/
//end_unprocessed_text
//nfo_preprocessor_version 0
//program_version LSL PyOptimizer v0.3.0beta
//mono

string gOwnLogicalID;
string gParentLogicalID;

restoreLogicalID(integer create)
{
    string desc = llGetObjectDesc();
    if (llSubStringIndex(desc, ":") != -1)
    {
        list parsed = llParseString2List(desc, [":"], []);
        gOwnLogicalID = llList2String(parsed, 0);
        gParentLogicalID = llList2String(parsed, 1);
    }
    else if (create)
    {
        gOwnLogicalID = generateLogicalID();
        gParentLogicalID = "";
        llSetObjectDesc(generateDescription());
    }
}

string generateDescription()
{
    return gOwnLogicalID + ":" + gParentLogicalID;
}

string strReplace(string subject, string search, string replace)
{
    return llDumpList2String(llParseStringKeepNulls(subject, [search], []), replace);
}

string compressKey(key k)
{
    string s = llToLower(strReplace((string)k, "-", "") + "0");
    string ret;
    integer i;
    string A;
    string B;
    string C;
    string D;
    for (i = 0; i < 32; 0)
    {
        A = llGetSubString(s, i, i);
        i++;
        B = llGetSubString(s, i, i);
        i++;
        C = llGetSubString(s, i, i);
        i++;
        D = "b";
        if (A == "0")
        {
            A = "e";
            D = "8";
        }
        else if (A == "d")
        {
            A = "e";
            D = "9";
        }
        else if (A == "f")
        {
            A = "e";
            D = "a";
        }
        ret += "%e" + A + "%" + D + B + "%b" + C;
    }
    return llUnescapeURL(ret);
}

string generateLogicalID()
{
    return llGetSubString(llStringToBase64(compressKey(llGenerateKey())), 0, 5);
}

integer gStartTime;

tellAlive(key id)
{
    string msg = "node_alive:" + llGetObjectDesc();
    if (id)
    {
        llRegionSayTo(id, ((integer)-21461420), msg);
    }
    else if (gParentLogicalID != "")
    {
        llRegionSay(((integer)-21461420), msg);
    }
    else
    {
        llWhisper(((integer)-21461420), msg);
    }
}

default
{
    state_entry()
    {
        llSetStatus(16, 1);
        restoreLogicalID(1);
        llListen(((integer)-21461419), "", "", "");
        tellAlive("00000000-0000-0000-0000-000000000000");
        llSetText("", <1, 1, 1>, 0);
        gStartTime = llGetUnixTime();
    }

    on_rez(integer start_param)
    {
        if (llAbs(gStartTime - llGetUnixTime()) < 5)
            return;
        llSetObjectDesc("");
        gOwnLogicalID = "";
        gParentLogicalID = "";
        llSetText("", <1, 1, 1>, 0);
        if (!llGetStartParameter())
        {
            restoreLogicalID(1);
            tellAlive("00000000-0000-0000-0000-000000000000");
        }
    }

    touch_start(integer total_number)
    {
        llRegionSay(((integer)-21461420), "node_touched:" + gParentLogicalID + ":" + (string)llDetectedKey(0));
    }

    listen(integer channel, string name, key id, string msg)
    {
        if (llGetOwnerKey(id) != llGetOwner())
            return;
        list params = llParseStringKeepNulls(msg, [":"], []);
        string cmd = llList2String(params, 0);
        params = llDeleteSubList(params, 0, 0);
        key parent = llList2Key(llGetObjectDetails(id, [18]), 0);
        if (cmd == "node_assign")
        {
            if (!llGetStartParameter())
                return;
            if (gOwnLogicalID != "")
                return;
            gOwnLogicalID = llList2String(params, 0);
            gParentLogicalID = llList2String(params, 1);
            vector pos = (vector)llList2String(params, 2);
            if (pos != <((float)0), ((float)0), ((float)0)>)
                llSetRegionPos(pos);
            llSetObjectDesc(generateDescription());
        }
        else if (cmd == "node_reset")
        {
            gOwnLogicalID = llList2String(params, 0);
            gParentLogicalID = llList2String(params, 1);
            llSetObjectDesc(generateDescription());
        }
        else if (cmd == "node_kill_all")
        {
            if (gParentLogicalID == "" || gParentLogicalID == llList2String(params, 0))
            {
                llDie();
            }
        }
        else if (cmd == "node_ping")
        {
            if (gParentLogicalID != "")
                return;
            tellAlive(parent);
        }
        else if (cmd == "node_text")
        {
            llSetText(llList2String(params, 0), (vector)llList2String(params, 1), llList2Float(params, 2));
        }
        else if (cmd == "node_color")
        {
            llSetLinkPrimitiveParamsFast(((integer)-4), [18, ((integer)-1), (vector)llList2String(params, 0), llList2Float(params, 1)]);
        }
    }
}