Clean up monsters::drain_exp() a bit.

git-svn-id: https://crawl-ref.svn.sourceforge.net/svnroot/crawl-ref/trunk@8579 c06c8d41-db1a-0410-9941-cceddc491573

Created by  dolorous  on January 19, 2009
BLVMXQXJOHLQA3HZ7YJ3DD36L346TZKQHMQDZ2NPEUP4V3U5KO7QC
Change contents