// SPDX-License-Identifier: MIT
// Copyright (c) 2026 Incoprea
// Sum quantities by category
// Not compiled or tested in-world
// Setup: Edit ROWS in category/integer quantity pairs. Touch as owner.
// Stop / restore: Remove or disable; it only reports locally to the owner.
// Notes: Quantities are illustrative configured integers, not inventory counts. Negative quantities are rejected. Keep tables small to fit script memory.
// License: see LICENSE in this distribution.
// Original Incoprea example. MIT.
list ROWS=["Lights",3,"Seats",2,"Lights",4,"Plants",6];
default
{
    touch_start(integer touches)
    {
        if(llDetectedKey(0)!=llGetOwner())return;
        if(llGetListLength(ROWS)%2)
        {
            llOwnerSay("Incomplete record.");
            return;
        }
        list groups=[];
        list totals=[];
        integer i;
        for(i=0;i<llGetListLength(ROWS);i+=2)
        {
            string group=llList2String(ROWS,i);
            integer quantity=llList2Integer(ROWS,i+1);
            if(quantity<0)
            {
                llOwnerSay("Negative quantity.");
                return;
            }
            integer index=llListFindList(groups,[group]);
            if(index==-1)
            {
                groups+=[group];
                totals+=[quantity];
            }
            else totals=llListReplaceList(totals,[llList2Integer(totals,index)+quantity],index,index);
        }
        for(i=0;i<llGetListLength(groups);++i)llOwnerSay(llList2String(groups,i)+": "+llList2String(totals,i));
    }
    changed(integer flags)
    {
        if(flags & CHANGED_OWNER)llResetScript();
    }
}