list pos;
list rot;
integer glisten;
vector realpos;
rotation realrot;
default
{
    state_entry()
    {
        integer x;
            x=2;

            do
            {
              vector q=llList2Vector(llGetLinkPrimitiveParams(x,[PRIM_POS_LOCAL]),0);
              rotation h=llList2Rot(llGetLinkPrimitiveParams(x,[PRIM_ROT_LOCAL]),0);
                pos+=[q];
                rot+=[h];
                x=x+1;
            }while(x<= llGetObjectPrimCount(llGetKey()));
          llOwnerSay("Frame Recorded");

    }

    touch_start(integer total_number)
    {
        integer x;
            //x=2;
       list newlist;
      // list newrot;
      llSay(0, "llSetLinkPrimitiveParamsFast(1,[PRIM_POSITION,llGetPos(),34,");
            do
            {
              vector q=llList2Vector(llGetLinkPrimitiveParams(x+2,[PRIM_POS_LOCAL]),0);
              rotation h=llList2Rot(llGetLinkPrimitiveParams(x+2,[PRIM_ROT_LOCAL]),0);
if(llList2Vector(pos,x)!=q||llList2Rot(rot,x)!=h)
{
    newlist+=[x+2];
            if(llList2Vector(pos,x)!=q)
            {

            newlist+=[33,q];
            }
            if(llList2Rot(rot,x)!=h)
            {
            newlist+=[29,h];
            }
            newlist+=[34];
            }

            x=x+1;
        }while(x+2<= llGetObjectPrimCount(llGetKey()));
        newlist=llDeleteSubList(newlist,-1,-1);
           llSay(0,llList2CSV(newlist)+"]);");
           //we cann rebuild it.
           llResetScript();
    }
}