There's a flat 5% chance of Snorg going berserk each turn an enemy (you or an ally) is in sight. Once he is wounded, even if just by a scratch, that chance increases to 20% per turn.
git-svn-id: https://crawl-ref.svn.sourceforge.net/svnroot/crawl-ref/trunk@5795 c06c8d41-db1a-0410-9941-cceddc491573
RI66KX7UKHLUZR4GK6Z7T3CCRVJWXTQOIWMPWQ5TULMYFBCWISRAC
JOX6FZZBR6HJHTUMM3XQVYAM47WCACHMD2B5IGD6CEHQKZO4O4TQC
TDAVD56MGLFSMJLPLSYLEVW7MBRMT7V5BNII4TRWVDIHH47CD2OAC
OP6CTAKWCAU64JXQ3USQYR5E5IFHQHNCACII5UMVRXUTZXJQOAZAC
K2CS6TCX2NDVL2ASEHGP4J4K4IJ6FP3ANNKTSIWVG43HPYSBX6ZQC
QDTVLBRGHDTRUVT7I3O72K6TMOYAUSAJBZUHGOEFU2RKJNUPWZSQC
Y56C5OMUQ5XF2G6DKDV4R5MED44UOIUPTBBQVWQBUHYIXYA5MOZAC
I7QLYOTE6DLQZM7YWUWYLKHRJRB2A3STQ42ALSRGQICEWKD2QTEQC
break;
case MONS_SNORG:
if (monster->has_ench(ENCH_CONFUSION))
break;
if (monster->foe == MHITNOT)
break;
// There's a 5% chance of Snorg spontaneously going berserk that
// increases to 20% once Snorg is wounded.
if (monster->hit_points == monster->max_hit_points && !one_chance_in(4))
break;
if (one_chance_in(5))
monster->go_berserk(true);