//Returns the number of agents on the object
integer GetNumberOfAgents()
{//ignores avatars.
    integer a = llGetNumberOfPrims();
    integer b = a;
    if(1 < a)
        while(llGetAgentSize(llGetLinkKey(a)))
            --a;
    return b - a;
}

//Returns the number of prims in the object
integer GetNumberOfPrims()
{//ignores avatars.
    integer a = llGetNumberOfPrims();
    if(1 < a)
        while(llGetAgentSize(llGetLinkKey(a)))
            --a;
    return a;
}