// SPDX-License-Identifier: MIT
// Copyright (c) 2026 Incoprea
// Share work budgets across queues
// Not compiled or tested in-world
// Setup: Place in a spare owned prim. Edit two job-cost queues and their quantum budget. Owner touch runs the local demonstration.
// Stop / restore: Disable/remove. No external requests or scene changes occur; reset clears memory.
// Notes: Runs four bounded scheduling rounds. Costs and quanta must be positive; no actual work besides owner messages is performed.
// License: see LICENSE in this distribution.
// Original Incoprea. MIT. Local owner-only protocol laboratory.
list QUEUE_A=[3,3,3];
list QUEUE_B=[5,2,5];
integer QUANTUM_A=3;
integer QUANTUM_B=3;
default
{
    touch_start(integer detectedCount)
    {
        if(llDetectedKey(0)!=llGetOwner())return;
        integer a;
        integer b;
        integer budgetA;
        integer budgetB;
        integer round;
        for(round=0;round<4;++round)
        {
            budgetA+=QUANTUM_A;
            budgetB+=QUANTUM_B;
            while(a<llGetListLength(QUEUE_A)&&llList2Integer(QUEUE_A,a)<=budgetA)
            {
                integer cost=llList2Integer(QUEUE_A,a);
                if(cost<=0)
                {
                    llOwnerSay("Invalid cost.");
                    return;
                }
                budgetA-=cost;
                ++a;
                llOwnerSay("A job completed in round "+(string)round);
            }
            while(b<llGetListLength(QUEUE_B)&&llList2Integer(QUEUE_B,b)<=budgetB)
            {
                integer cost=llList2Integer(QUEUE_B,b);
                if(cost<=0)
                {
                    llOwnerSay("Invalid cost.");
                    return;
                }
                budgetB-=cost;
                ++b;
                llOwnerSay("B job completed in round "+(string)round);
            }
        }
        llOwnerSay("Completed A="+(string)a+" B="+(string)b);
    }
}