Excesive computation using fort_character DamagedEvent

Vouch.