Update state.ml

Display a correct error message when taking a rock while another rock is being carried