// SPDX-License-Identifier: MIT
// Copyright (c) 2026 Incoprea
// Group catalog rows by category
// Not compiled or tested in-world
// Setup: Edit ROWS as category/name pairs and touch as owner.
// Stop / restore: Remove or disable; it only reports locally to the owner.
// Notes: Rejects incomplete pairs. This is stable grouping rather than alphabetical sorting; it does not alter an external catalog.
// License: see LICENSE in this distribution.
// Original Incoprea example. MIT.
list ROWS=["Lighting","Lamp","Seating","Bench","Lighting","Lantern","Plants","Fern"];
default
{
    touch_start(integer touches)
    {
        if(llDetectedKey(0)!=llGetOwner())return;
        if(llGetListLength(ROWS)%2)
        {
            llOwnerSay("Incomplete record.");
            return;
        }
        list groups=[];
        integer i;
        integer j;
        for(i=0;i<llGetListLength(ROWS);i+=2)
        {
            string group=llList2String(ROWS,i);
            if(llListFindList(groups,[group])==-1)groups+=[group];
        }
        for(i=0;i<llGetListLength(groups);++i)
        {
            string group=llList2String(groups,i);
            llOwnerSay("Category: "+group);
            for(j=0;j<llGetListLength(ROWS);j+=2)if(llList2String(ROWS,j)==group)llOwnerSay("  "+llList2String(ROWS,j+1));
        }
    }
    changed(integer flags)
    {
        if(flags & CHANGED_OWNER)llResetScript();
    }
}