// SPDX-License-Identifier: MIT
// Copyright (c) 2026 Incoprea
// Distribute a fixed count by weights
// Not compiled or tested in-world
// Setup: Place in a spare owned prim. Set positive WEIGHTS and TOTAL0..1000. Touch to run; output is private to the owner.
// Stop / restore: Disable/remove. No scene changes or external calls.
// Notes: Ties go to earlier entries. This preserves the exact total while approximating relative weights.
// License: see LICENSE in this distribution.
// Original Incoprea. MIT.
list WEIGHTS=[5.0,3.0,2.0];
integer TOTAL=17;
default
{
    touch_start(integer detectedCount)
    {
        if(llDetectedKey(0)!=llGetOwner())return;
        integer n=llGetListLength(WEIGHTS);
        if(n==0||n>20||TOTAL<0||TOTAL>1000)
        {
            llOwnerSay("Invalid size/total.");
            return;
        }
        float sum;
        integer i;
        for(i=0;i<n;++i)
        {
            float w=llList2Float(WEIGHTS,i);
            if(w<=0.0)
            {
                llOwnerSay("Positive weights required.");
                return;
            }
            sum+=w;
        }
        list counts;
        list remainders;
        integer assigned;
        for(i=0;i<n;++i)
        {
            float exact=TOTAL*llList2Float(WEIGHTS,i)/sum;
            integer base=llFloor(exact);
            counts+=[base];
            remainders+=[exact-base];
            assigned+=base;
        }
        while(assigned<TOTAL)
        {
            integer best=0;
            for(i=1;i<n;++i)if(llList2Float(remainders,i)>llList2Float(remainders,best))best=i;
            counts=llListReplaceList(counts,[llList2Integer(counts,best)+1],best,best);
            remainders=llListReplaceList(remainders,[-1.0],best,best);
            ++assigned;
        }
        llOwnerSay("Allocated="+llDumpList2String(counts,","));
    }
}