Move all the which-direction queries into a single function.
Replace pl_choose_vehicle() with generic choose_adjacent().