Corpses rot and are eventually removed

Makes corpses disappear after 7 days. It uses the same rot calculations as the item::rotten() function.

Fixes #6862.