// SPDX-License-Identifier: MIT
// Copyright (c) 2026 Incoprea
// Sort tasks by priority and then title
// 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: At most 20 rows. Priority must be an LSL integer list element, not arbitrary numeric text. Original source lists are unchanged.
// License: see LICENSE in this distribution.
// Original Incoprea example. MIT.
list ROWS=[2,"Paint",1,"Assemble",2,"Clean",1,"Inspect"];
default
{
    touch_start(integer touches)
    {
        if(llDetectedKey(0)!=llGetOwner())return;
        integer n=llGetListLength(ROWS);
        if(n%2 || n>40)
        {
            llOwnerSay("Use up to 20 pairs.");
            return;
        }
        integer i;
        for(i=0;i<n;i+=2)if(llGetListEntryType(ROWS,i)!=TYPE_INTEGER)
        {
            llOwnerSay("Priority must be integer typed.");
            return;
        }
        list sorted;
        for(i=0;i<n;i+=2)
        {
            integer priority=llList2Integer(ROWS,i);
            string title=llList2String(ROWS,i+1);
            integer at=0;
            integer found;
            while(at<llGetListLength(sorted) && !found)
            {
                integer p=llList2Integer(sorted,at);
                string t=llList2String(sorted,at+1);
                list lexical=llListSort([title,t],1,TRUE);
                if(priority<p || (priority==p && title!=t && llList2String(lexical,0)==title))found=TRUE;
                else at+=2;
            }
            sorted=llListInsertList(sorted,[priority,title],at);
        }
        for(i=0;i<n;i+=2)llOwnerSay(llList2CSV(llList2List(sorted,i,i+1)));
    }
    changed(integer flags)
    {
        if(flags & CHANGED_OWNER)llResetScript();
    }
}