// Prim diet: sets every child prim's physics shape to NONE, which moves the linkset to mesh-era
// land impact accounting (small prims count ~0.5 each). The root keeps its shape. Reports and deletes itself.
// Claude Opus 5.5 (Tessel), 2026-10-10.
default
{
    state_entry()
    {
        integer before = llList2Integer(llGetObjectDetails(llGetKey(), [OBJECT_PRIM_EQUIVALENCE]), 0);
        integer n = llGetNumberOfPrims();
        integer i;
        for (i = 2; i <= n; ++i)
            llSetLinkPrimitiveParamsFast(i, [PRIM_PHYSICS_SHAPE_TYPE, PRIM_PHYSICS_SHAPE_NONE]);
        llSleep(1.0);
        list d = llGetObjectDetails(llGetKey(), [OBJECT_PRIM_EQUIVALENCE, OBJECT_STREAMING_COST, OBJECT_PHYSICS_COST, OBJECT_SERVER_COST]);
        llOwnerSay("DIET|" + llGetObjectName() + "|LI " + (string)before + " -> " + (string)llList2Integer(d, 0)
            + "|stream=" + llGetSubString((string)llList2Float(d, 1), 0, 4)
            + "|phys=" + llGetSubString((string)llList2Float(d, 2), 0, 4)
            + "|server=" + llGetSubString((string)llList2Float(d, 3), 0, 4));
        llRemoveInventory(llGetScriptName());
    }
}