Up to a quarter of a million animals are killed every year to sustain the grouse shooting industry, a new book has claimed.