// SPDX-License-Identifier: MIT
// Copyright (c) 2026 Incoprea
// Plan field-key migrations
// Not compiled or tested in-world
// Setup: Edit RECORD and RENAMES as pairs; touch as owner.
// Stop / restore: Remove or disable; it only reports locally to the owner.
// Notes: The plan is applied only to a local copy. Migration mappings use exact case-sensitive names and first matching mapping wins.
// License: see LICENSE in this distribution.
// Original Incoprea example. MIT.
list RECORD=["colour","green","display_name","Lamp"];
list RENAMES=["colour","color","display_name","title"];
default
{
    touch_start(integer touches)
    {
        if(llDetectedKey(0)!=llGetOwner())return;
        if(llGetListLength(RECORD)%2 || llGetListLength(RENAMES)%2)
        {
            llOwnerSay("Incomplete pair.");
            return;
        }
        list result=[];
        list used=[];
        integer i;
        integer j;
        for(i=0;i<llGetListLength(RECORD);i+=2)
        {
            string name=llList2String(RECORD,i);
            integer matched;
            for(j=0;j<llGetListLength(RENAMES);j+=2)if(!matched && name==llList2String(RENAMES,j))
            {
                name=llList2String(RENAMES,j+1);
                matched=TRUE;
            }
            if(name=="" || llListFindList(used,[name])!=-1)
            {
                llOwnerSay("Migration would create an empty or duplicate field: "+name);
                return;
            }
            used+=[name];
            result += [name,llList2String(RECORD,i+1)];
        }
        llOwnerSay(llList2CSV(result));
    }
    changed(integer flags)
    {
        if(flags & CHANGED_OWNER)llResetScript();
    }
}