size rot pos

list pos1 = [<0.115900, -0.010000, 0.134200>,<0.144649, 0.000000, -0.022791>,<0.110900, -0.031100, 0.123600>,<0.117000, 0.000000, 0.045809>,<0.109700, 0.010600, 0.135000>,<0.084500, 0.000000, 0.048200>];
list size1 = [<0.048454, 0.090005, 0.089484>,<0.029890, 0.022380, 0.047280>,<0.042742, 0.093060, 0.082844>,<0.044420, 0.147420, 0.067420>,<0.045792, 0.094480, 0.085613>,<0.054950, 0.095750, 0.081860>];
list rot1 = [<0.000000, 0.000000, 0.000000, 1.000000>,<0.705070, 0.705070, 0.053637, 0.053636>,<0.253402, -0.069068, 0.018697, 0.964711>,<-0.552811, -0.552811, 0.440908, 0.440908>,<-0.244601, -0.048932, -0.012153, 0.968312>,<-0.508665, -0.508665, 0.491182, 0.491182>];

list pos2 = [<0.115900, -0.010000, 0.134200>,<0.144649, 0.000000, -0.022791>,<0.110900, -0.031100, 0.123600>,<0.117000, 0.000000, 0.045809>,<0.109700, 0.010600, 0.135000>,<0.084500, 0.000000, 0.048200>];
list size2 = [<0.048454, 0.090005, 0.089484>,<0.029890, 0.022380, 0.047280>,<0.042742, 0.093060, 0.082844>,<0.044420, 0.147420, 0.067420>,<0.045792, 0.094480, 0.085613>,<0.054950, 0.095750, 0.081860>];
list rot2 = [<0.000000, 0.000000, 0.000000, 1.000000>,<0.705070, 0.705070, 0.053637, 0.053636>,<0.253402, -0.069068, 0.018697, 0.964711>,<-0.552811, -0.552811, 0.440908, 0.440908>,<-0.244601, -0.048932, -0.012153, 0.968312>,<-0.508665, -0.508665, 0.491182, 0.491182>];

...//lots more
...

count = llGetNumberOfPrims();
integer j;
string desc;
string name;

for ( j=1; j<=count; ++j)
{
	desc = llList2String(llGetLinkPrimitiveParams(j,[PRIM_DESC]),0);

	if ( desc == "accessory" )
	{
		accessorieslinks += [j];
	}
	...
	...
}

if (positionselected == "1")
{
	integer a;
	for ( a=0; a<llGetListLength(accessorieslinks); ++a)
	{
		llSetLinkPrimitiveParamsFast(llList2Integer(accessorieslinks, a),
		[
		PRIM_SIZE, llList2Vector(size1,a),
		PRIM_POS_LOCAL, llList2Vector(pos1,a),
		PRIM_ROT_LOCAL, llList2Rot(rot1,a)
		]);
		llSetLinkAlpha(llList2Integer(pos1, a), 1.0, ALL_SIDES); //in case it is hidden
	}
}
else if (positionselected == "2")
{
	integer a;
	for ( a=0; a<llGetListLength(accessorieslinks); ++a)
	{
		llSetLinkPrimitiveParamsFast(llList2Integer(accessorieslinks, a),
		[
		PRIM_SIZE, llList2Vector(size2,a),
		PRIM_POS_LOCAL, llList2Vector(pos2,a),
		PRIM_ROT_LOCAL, llList2Rot(rot2,a)
		]);
		llSetLinkAlpha(llList2Integer(pos2, a), 1.0, ALL_SIDES); //in case it is hidden
	}
}