Rewrote iexamine::dirtmound()

aka plant-seed-in-dirtmound function

and fixed bug in inventory::use_charges()

Fixes #3004