Physics problem

Is this what you want?

For entitysearch.mass = Each mass
	If ColEnt = entitysearch\msh
		xvel# = entitysearch\xvel#
		yvel# = entitysearch\yvel#
		zvel# = entitysearch\zvel#
		Exit
	EndIf
Next