simple_monster_message( this, " goes berserk!" );
    // Xom likes monsters going berserk.
    if (mons_near(this))

    if (simple_monster_message( this, " goes berserk!" ))
        // Xom likes monsters going berserk.

        case POT_BERSERK_RAGE:

    case POT_BERSERK_RAGE:
        // this implies !has_ench(ENCH_BERSERK_RAGE)
        return (!has_ench(ENCH_MIGHT) && !has_ench(ENCH_HASTE)
                && needs_berserk());

            ident = ID_KNOWN_TYPE;
        break;
    case POT_BERSERK_RAGE:
        if (enchant_monster_with_flavour(this, this, BEAM_BERSERK))

    BEAM_BANISH,                 // 35

    BEAM_BANISH,                  // 35

    BEAM_DISPEL_UNDEAD,         // 40

    BEAM_DISPEL_UNDEAD,           // 40

    BEAM_BACKLIGHT,            // 45

    BEAM_BACKLIGHT,               // 45

    BEAM_LAST_ENCHANTMENT = BEAM_SLEEP,

    BEAM_BERSERK,
    BEAM_LAST_ENCHANTMENT = BEAM_BERSERK,

    BEAM_POTION_STINKING_CLOUD,

    BEAM_POTION_STINKING_CLOUD,   // 50

    BEAM_POTION_STEAM,            // 50

    BEAM_POTION_STEAM,

    BEAM_POTION_COLD,

    BEAM_POTION_COLD,             // 55

    BEAM_POTION_BLUE_SMOKE,       // 55
    BEAM_POTION_PURP_SMOKE,

    BEAM_POTION_BLUE_SMOKE,
    BEAM_POTION_PURP_SMOKE,       // 60

    BEAM_TORMENT_DAMAGE,          // 60: Pseudo-beam for damage flavour.

    BEAM_TORMENT_DAMAGE,          // Pseudo-beam for damage flavour.

            10, BEAM_BERSERK,

    case BEAM_BERSERK:

    case BEAM_BERSERK:
        if (!mon->has_ench(ENCH_BERSERK)) {
            // currently from potion, hence voluntary
            mon->go_berserk(true);
            // can't return this from go_berserk, unfortunately
            obvious_effect = mons_near(mon);
        }
        return (MON_AFFECTED);