// SPDX-License-Identifier: MIT
// Copyright (c) 2026 Incoprea
// Preview sequential child component names
// Not compiled or tested in-world
// Setup: Use a spare nonphysical rezzed linkset; disable competing scripts and do not edit or relink during the preview. Put this in the root. Set PREFIX. Limit32 actual prims; owner-touch applies/restores.
// Stop / restore: Owner-touch again to restore before removing, resetting, relinking or transferring. Snapshots are memory-only; deletion/reset does not undo changes. Keep an untouched backup.
// Notes: Renaming may affect scripts that find parts by name. Disable those scripts first. Root name and inventory names are unchanged.
// License: see LICENSE in this distribution.
// Original Incoprea. MIT. Test on a spare copy first.
string PREFIX="Part-";
list saved;
integer active;
default
{
    touch_start(integer n)
    {
        if(llDetectedKey(0)!=llGetOwner())return;
        if(llGetAttached()||llGetStatus(STATUS_PHYSICS)||llGetLinkNumber()>1)
        {
            llOwnerSay("Use a nonphysical rezzed root.");
            return;
        }
        integer i;
        if(active)
        {
            for(i=0;i<llGetListLength(saved);i+=3)
            {
                integer link=llList2Integer(saved,i);
                if(llGetLinkKey(link)==llList2Key(saved,i+1))llSetLinkPrimitiveParamsFast(link,[PRIM_NAME,llList2String(saved,i+2)]);
                else llOwnerSay("Skipped changed link="+(string)link);
            }
            saved=[];
            active=FALSE;
            return;
        }
        integer total=llGetObjectPrimCount(llGetKey());
        if(total<2||total>32||llStringLength(PREFIX)>20)return;
        for(i=2;i<=total;++i)
        {
            saved += [i,llGetLinkKey(i),llGetLinkName(i)];
            llSetLinkPrimitiveParamsFast(i,[PRIM_NAME,PREFIX+(string)(i-1)]);
        }
        active=TRUE;
    }
    changed(integer flags)
    {
        if(flags&CHANGED_OWNER)llResetScript();
    }
}