// SPDX-License-Identifier: MIT
// Copyright (c) 2026 Incoprea
// Summarize words excluding a stop list
// Not compiled or tested in-world
// Setup: Edit the sample inputs, then touch as owner.
// Stop / restore: Remove or disable. All transformations are previews in owner chat.
// Notes: Punctuation remains attached, and counts are limited to at most 60 input tokens. No external language service is called.
// License: see LICENSE in this distribution.
// Original Incoprea example. MIT.
string TEXT="the lamp and the garden lamp beside the garden";
list STOP=["the","and","beside"];
default
{
    touch_start(integer touches)
    {
        if(llDetectedKey(0)!=llGetOwner())return;
        list words=llParseString2List(llToLower(TEXT),[" ","\n",llUnescapeURL("%09")],[]);
        if(llGetListLength(words)>60)
        {
            llOwnerSay("Maximum 60 words.");
            return;
        }
        list terms=[];
        list counts=[];
        integer i;
        for(i=0;i<llGetListLength(words);++i)
        {
            string word=llList2String(words,i);
            if(llListFindList(STOP,[word])==-1)
            {
                integer at=llListFindList(terms,[word]);
                if(at==-1)
                {
                    terms += [word];
                    counts += [1];
                }
                else counts=llListReplaceList(counts,[llList2Integer(counts,at)+1],at,at);
            }
        }
        for(i=0;i<llGetListLength(terms);++i)llOwnerSay(llList2String(terms,i)+": "+llList2String(counts,i));
    }
    changed(integer flags)
    {
        if(flags & CHANGED_OWNER)llResetScript();
    }
}