// SPDX-License-Identifier: MIT
// Copyright (c) 2026 Incoprea
// Check whether links were reordered
// Not compiled or tested in-world
// Setup: Put in a rezzed linkset of 2-64 prims and touch as owner. Seated avatars are excluded.
// Stop / restore: Remove or disable. This inspector changes no build properties.
// Notes: Snapshot persists only until reset. Relinking can reorder keys; this check reports topology changes without identifying avatars.
// License: see LICENSE in this distribution.
// Original Incoprea example. MIT.
list prior;
integer ready;
default
{
    touch_start(integer count)
    {
        if(llDetectedKey(0)!=llGetOwner()) return;
        if(llGetAttached())
        {
            llOwnerSay("Use a rezzed linkset.");
            return;
        }
        integer total=llGetObjectPrimCount(llGetKey());
        if(total<2 || total>64)
        {
            llOwnerSay("Use a linkset of 2-64 prims.");
            return;
        }
        list current=[];
        integer i;
        for(i=1;i<=total;++i) current += [llGetLinkKey(i)];
        if(!ready)
        {
            prior=current;
            ready=TRUE;
            llOwnerSay("Topology snapshot recorded.");
            return;
        }
        if(llGetListLength(prior)!=total) llOwnerSay("Prim count changed from "+(string)llGetListLength(prior)+" to "+(string)total);
        for(i=0;i<total;++i) if(llList2Key(current,i)!=llList2Key(prior,i)) llOwnerSay("Different prim at link "+(string)(i+1));
        prior=current;
        llOwnerSay("Topology baseline updated.");
    }
    changed(integer flags)
    {
        if(flags & CHANGED_OWNER) llResetScript();
    }
}