// SPDX-License-Identifier: MIT
// Copyright (c) 2026 Incoprea
// Unique inventory creator roster
// Not compiled or tested in-world
// Setup: Touch as owner in a small delivery prim.
// Stop / restore: Disable or remove the script. It makes no inventory changes.
// Notes: Useful when preparing attribution notes, but metadata is not proof of licensing or full provenance. No names are looked up and no external messages sent.
// License: see LICENSE in this distribution.
// Original Incoprea example. MIT.
default
{
    touch_start(integer count)
    {
        if (llDetectedKey(0) != llGetOwner()) return;
        integer total=llGetInventoryNumber(INVENTORY_ALL);
        if(total>100)
        {
            llOwnerSay("Use a prim with at most 100 inventory items.");
            return;
        }
        list creators=[];
        integer i;
        for(i=0;i<total;++i)
        {
            key creator=llGetInventoryCreator(llGetInventoryName(INVENTORY_ALL,i));
            if(creator!=NULL_KEY && llListFindList(creators,[creator])==-1) creators += [creator];
        }
        for(i=0;i<llGetListLength(creators);++i) llOwnerSay("Creator: "+llList2String(creators,i));
        llOwnerSay((string)llGetListLength(creators)+" unique creator keys.");
    }
    changed(integer flags)
    {
        if (flags & CHANGED_OWNER) llResetScript();
    }
}