// EJL_keyVerts

proc EJL_keyVerts(){

string $sel[] = `ls -sl -fl`;
int $count = 0;

for ($x in $sel){

	string $buffer1[];
	tokenize $x "." $buffer1;
	
		string $obj = $buffer1[0];
	
	string $buffer2[];
	tokenize $buffer1[1] "[" $buffer2;
	
	string $buffer3[];
	tokenize $buffer2[1] "]" $buffer3;
		
		string $vert = $buffer3[0];

	string $vertX = ($obj + "Shape.pt[" + $vert + "].px");
	string $vertY = ($obj + "Shape.pt[" + $vert + "].py");
	string $vertZ = ($obj + "Shape.pt[" + $vert + "].pz");
				
	setKeyframe $vertX;
	setKeyframe $vertY;
	setKeyframe $vertZ;
	
	string $feedback = ("EJL Says: Keyframe set on vert number " + $vert + ".");
	print $feedback;
	print "\n";
	
	$count = ($count + 1);
	
// end for loop		
}

print ("\nEJL Says: I set keyframes on " + $count + " verts.\n");

// end proc
}

EJL_keyVerts;