Corpses rot and are eventually removed

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