else if (mons->can_go_berserk())
            mons->go_berserk(true);