Sub GetSpriteCenter( spr_id, ByRef x, ByRef y)

Returns a sprites center of mass