void handle_monster_shouts(monsters* monster, bool force = false);

static void handle_monster_shouts(monsters* monster, bool force = false)

void handle_monster_shouts(monsters* monster, bool force)

    if (mons_friendly(monster)

    if (!force && mons_friendly(monster)

    int         noise_level = 8;

    int         noise_level = get_shout_noise_level(type);

        break;
    case S_SILENT:
        default_msg_key = "";
        noise_level = 0;

        noise_level = 12;

        noise_level = 12;

        noise_level = 4;  // not very loud -- bwr

    // Loudness setting for shouts that are only defined in dat/shout.txt
    case S_VERY_SOFT:

    default:

        noise_level = 4;
        break;
    case S_SOFT:
        default_msg_key = "";
        noise_level = 6;
        break;
    case S_NORMAL:
        default_msg_key = "";
        noise_level = 8;
        break;
    case S_LOUD:
        default_msg_key = "";
        noise_level = 10;
        break;
    case S_VERY_LOUD:
        default_msg_key = "";
        noise_level = 12;
        break;

    // Berserking monsters make a lot of racket
    if (monster->has_ench(ENCH_BERSERK))
    {
        int noise_level = get_shout_noise_level(mons_shouts(monster->type));
        if (noise_level > 0)
        {
            if (mons_near(monster) && player_monster_visible(monster))
            {
                if (one_chance_in(10))
                {
                    mprf(MSGCH_TALK_VISUAL, "%s rages.",
                         monster->name(DESC_CAP_THE).c_str());
                }
                noisy( noise_level, monster->x, monster->y );
            }
            else if (one_chance_in(5))
            {
                handle_monster_shouts(monster, true);
            }
            else // just be noisy without messaging the player
                noisy( noise_level, monster->x, monster->y );
        }
    }

int get_shout_noise_level(const shout_type shout);

int get_shout_noise_level(const shout_type shout)
{
    switch (shout)
    {
    case S_SILENT:
        return 0;
    case S_HISS:
    case S_VERY_SOFT:
        return 4;
    case S_SOFT:
        return 6;
    case S_LOUD:
        return 10;
    case S_SHOUT2:
    case S_ROAR:
    case S_VERY_LOUD:
        return 12;
    default:
        return 8;
    }
}