uuCheck()

uuCheck(){
    list Nam;
    list Siz;
    list Pos;
    list Rot;
    integer i;
    integer end = llGetObjectPrimCount(llGetKey()) + 1;
    list temp;
    for (i=1; i<end; i++){
        temp = llGetLinkPrimitiveParams(i, [
            PRIM_NAME, PRIM_SIZE, PRIM_POS_LOCAL, PRIM_ROT_LOCAL
        ]);
        Nam += "\"" + llList2String(temp, 0) + "\"";
        Siz += llList2Vector(temp, 1);
        Pos += llList2Vector(temp, 2);
        Rot += llList2Vector(temp, 3);
    }
    llOwnerSay("---------- Data");
    llOwnerSay("\nlist Nam = [" + llList2CSV(Nam) + "];");
    llOwnerSay("\nlist Siz = [" + llList2CSV(Siz) + "];");
    llOwnerSay("\nlist Pos = [" + llList2CSV(Pos) + "];");
    llOwnerSay("\nlist Rot = [" + llList2CSV(Rot) + "];");
}