// SPDX-License-Identifier: MIT
// Copyright (c) 2026 Incoprea
// Distinguish moved records from changed values
// Not compiled or tested in-world
// Setup: Edit the small sample lists and touch as owner. These examples print previews only.
// Stop / restore: Remove or disable; no simulator objects or persistent records are changed.
// Notes: Pairs are key/value. Index changes indicate an ordering difference, not necessarily a deliberate individual move.
// License: see LICENSE in this distribution.
// Original Incoprea example. MIT.
list BEFORE=["a","green","b","small","c","Lamp"];
list AFTER=["c","Lamp","a","blue","d","new"];
default
{
    touch_start(integer touches)
    {
        if(llDetectedKey(0)!=llGetOwner())return;
        if(llGetListLength(BEFORE)%2 || llGetListLength(AFTER)%2)
        {
            llOwnerSay("Use key/value pairs.");
            return;
        }
        list a;
        list b;
        integer i;
        for(i=0;i<llGetListLength(BEFORE);i+=2)
        {
            string keyText=llList2String(BEFORE,i);
            if(llListFindList(a,[keyText])!=-1)
            {
                llOwnerSay("Duplicate old key.");
                return;
            }
            a += [keyText];
        }
        for(i=0;i<llGetListLength(AFTER);i+=2)
        {
            string keyText=llList2String(AFTER,i);
            if(llListFindList(b,[keyText])!=-1)
            {
                llOwnerSay("Duplicate new key.");
                return;
            }
            b += [keyText];
        }
        for(i=0;i<llGetListLength(a);++i)
        {
            string keyText=llList2String(a,i);
            integer at=llListFindList(b,[keyText]);
            if(at==-1)llOwnerSay("Removed "+keyText);
            else
            {
                if(at!=i)llOwnerSay("Order changed "+keyText);
                if(llList2String(BEFORE,i*2+1)!=llList2String(AFTER,at*2+1))llOwnerSay("Value changed "+keyText);
            }
        }
        for(i=0;i<llGetListLength(b);++i)if(llListFindList(a,[llList2String(b,i)])==-1)llOwnerSay("Added "+llList2String(b,i));
    }
    changed(integer flags)
    {
        if(flags & CHANGED_OWNER)llResetScript();
    }
}