Prim number in linkset description

//This script prepends information to each element in a linkset to add the prim's link
//number to the description.  It helps with unlinking and re-linking a scripted object
//without breaking the script.
//The original information in the description remains (and can be changed if needed).
//E.g. "Left Red Lever A" becomes "Link 5: Left Red Lever A".

default
{
    state_entry()
    {
        integer prims = llGetObjectPrimCount(llGetKey());
        string currdesc;

        while (prims > 0)
        {
            currdesc = llList2String(llGetLinkPrimitiveParams(prims, [ PRIM_DESC ]), 0);
            llSetLinkPrimitiveParamsFast (prims, [28,"Link " + (string)prims + ": " + currdesc]);
            prims--;
        }

        llSay (0, "All done");

    }

}