Number/Name Prims in Link Order

Sometimes it is useful to have the prims in an object numbered consecutively, such as when using Logan Bauer's excellent rotation/animation system:

/15/c8/66959/1.html

Toward that end I wrote a simple utility to number and rename all the prims in an object in link order. Drop the script in each prim and say "go." The prims are renamed with their link number and the scripts disappear.

default
{
    state_entry()
    {

        llListen(0,"",llGetOwner(),"");
    }
    
    listen(integer channel, string name, key id, string message)
    {

        if (llToLower(message) == "go")
        {

llSetObjectName((string)llGetLinkNumber());
llRemoveInventory(llGetScriptName());


        }
    }
}

edit - added code tags