/* Make sure there are no adjacent or incompatible ship docking areas */
	TileIndex tile_adj;
	Axis axis_cur = DiagDirToAxis(direction);

	if (axis_cur == AXIS_Y) {
		tile_adj = tile_cur + TileDiffXY(-2, 0);
		if (IsTileType(tile_adj, MP_STATION) && IsOilRig(tile_adj)) return_cmd_error(STR_ERROR_SITE_UNSUITABLE);
		if (IsTileType(tile_adj, MP_INDUSTRY) && GetIndustryGfx(tile_adj) == GFX_OILRIG_1) return_cmd_error(STR_ERROR_SITE_UNSUITABLE);
	}

	tile_adj = tile_cur + (axis_cur == AXIS_X ? TileDiffXY(0, -1) : TileDiffXY(1, 0));
	if (IsDockTile(tile_adj)) {
		Station *st = Station::GetByTile(tile_adj);
		tile_adj = st->dock_tile;
		Axis axis_adj = DiagDirToAxis(GetDockDirection(tile_adj));
		if (axis_cur != axis_adj) return_cmd_error(STR_ERROR_TOO_CLOSE_TO_ANOTHER_DOCK);
	}

	tile_adj = tile_cur - (axis_cur == AXIS_X ? TileDiffXY(0, -1) : TileDiffXY(1, 0));
	if (IsDockTile(tile_adj)) {
		Station *st = Station::GetByTile(tile_adj);
		tile_adj = st->dock_tile;
		Axis axis_adj = DiagDirToAxis(GetDockDirection(tile_adj));
		if (axis_cur != axis_adj) return_cmd_error(STR_ERROR_TOO_CLOSE_TO_ANOTHER_DOCK);
	}