Fixed potential to iterate past end of fields in mon_in_field

This would happen whenever the last one got rid of itself inside
mon_in_field, as it would increment at the end of the loop even if it
had already been the final one but removed itself while inside the
loop.