Made Pyromania morale checks less invasive

Now only checks for the trait/vision combination once.