// SPDX-License-Identifier: MIT
// Copyright (c) 2026 Incoprea
// Names that differ only by case
// Not compiled or tested in-world
// Setup: Touch as owner in a prim with at most 100 items.
// Stop / restore: Disable or remove the script. It makes no inventory changes.
// Notes: Exact names remain distinct. This performs small bounded local searches and never modifies inventory.
// 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 seen=[];
        list originals=[];
        integer i;
        for(i=0;i<total;++i)
        {
            string name=llGetInventoryName(INVENTORY_ALL,i);
            string lower=llToLower(name);
            integer index=llListFindList(seen,[lower]);
            if(index!=-1) llOwnerSay("Case collision: "+llList2String(originals,index)+" / "+name);
            else
            {
                seen += [lower];
                originals += [name];
            }
        }
        llOwnerSay("Name comparison complete.");
    }
    changed(integer flags)
    {
        if (flags & CHANGED_OWNER) llResetScript();
    }
}