TRAN_PIG,

        // Everything but bats can wear all jewellery; bats can

        // Everything but bats can wear all jewellery; bats and pigs can

        if (transform == TRAN_BAT && !jewellery_is_amulet(item))

        if ((transform == TRAN_BAT || transform == TRAN_PIG)
            && !jewellery_is_amulet(item))

        case TRAN_PIG:

    case TRAN_PIG:
        return SIZE_SMALL;

            mpr("You extend your transformation's duration.");

            
            if (which_trans==TRAN_PIG)
                mpr("You feel you'll be a pig longer.");
            else
                mpr("You extend your transformation's duration.");

            if (!force)

            if (!force && which_trans!=TRAN_PIG)

    if (_check_for_cursed_equipment(rem_stuff, which_trans, force))

    if (_check_for_cursed_equipment(rem_stuff, which_trans, force) && which_trans!=TRAN_PIG)

    case TRAN_PIG:
        tran_name = "pig";
        symbol    = 'h';
        colour    = RED;
        dur       = pow;
        msg       = "You have been turned into a pig!";
        break;

    if (check_transformation_stat_loss(rem_stuff, force,
                                       std::max(-str, 0), std::max(-dex, 0)))
    {

    if (check_transformation_stat_loss(rem_stuff, force || which_trans == TRAN_PIG,
                                       std::max(-str, 0), std::max(-dex,0)))
    {   // would have died to stat loss
        if (which_trans == TRAN_PIG)
        {   // no easy way around this!
            mpr("A dreadful feeling locks you in place!");
            if (you.duration[DUR_PARALYSIS]<10)
                you.duration[DUR_PARALYSIS]=10;
        }

    case TRAN_PIG:
        mpr( "Your transformation has ended.", MSGCH_DURATION );
        break;

        case 'h': ch = TILEP_MONS_HOG;         break;

    SPELL_PORKALATOR, "Porkalator",
     SPTYP_ENCHANTMENT | SPTYP_TRANSMUTATION,
     SPFLAG_DIR_OR_TARGET | SPFLAG_NOT_SELF,
     5,
     200,
     LOS_RADIUS, LOS_RADIUS,
     0,
     NULL,
     true,
     false
},
{

        case TRAN_PIG:
            return (mons_genus(mon) == MONS_HOG);

    // Bats cannot wear anything except amulets.
    if (transform == TRAN_BAT && eq != EQ_AMULET)

    // Bats and pigs cannot wear anything except amulets.
    if ((transform == TRAN_BAT || transform == TRAN_PIG) && eq != EQ_AMULET)

        else if (you.attribute[ATTR_TRANSFORMATION] == TRAN_PIG)
            mv = 7;

            break;
        case TRAN_PIG:
            text += "You are a filthy swine.";

    case TRAN_PIG:
        return "squeal";

        case TRAN_PIG:
            text += "\nYou are a filthy swine.";
            break;

        break;
    case SPELL_PORKALATOR:
        beam.name     = "0";
        beam.type     = 0;
        beam.flavour  = BEAM_PORKALATOR;
        beam.thrower  = KILL_MON_MISSILE;
        beam.is_beam  = true;

#include "transfor.h"

    }
}
static void _hogs_to_humans()
{
    // Simplification: if, in a rare event, another hog which was not created
    // as a part of Kirke's band happens to be on the level, the player can't
    // tell them apart anyway.
    // On the other hand, hogs which left the level are too far away to be
    // affected by the magic of Kirke's death.
    int any = 0;
    for (int i = 0; i < MAX_MONSTERS; ++i)
    {
        monsters *monster = &menv[i];
        if (monster->type == MONS_HOG)
        {
            monster->type = MONS_HUMAN;
            monster->attitude = ATT_GOOD_NEUTRAL;
            monster->flags |= MF_WAS_NEUTRAL;
            behaviour_event(monster, ME_EVAL);
            any++;
        }

    if (any==1)
        mpr("No longer under Kirke's spell, the hog turns into a human!");
    else if (any>1)
        mpr("No longer under Kirke's spell, all hogs revert to their human form!");
    // Revert the player as well.
    if (you.attribute[ATTR_TRANSFORMATION] == TRAN_PIG)
        untransform();

    else if (monster->type == MONS_KIRKE && !in_transit)
    {
        _hogs_to_humans();
    }

    case MONS_KIRKE:
        band_size = 3 + random2(5);

        band_size = 1 + random2(3);

        band_size += 1 + random2(3);

    {  MST_KIRKE,
      {
       SPELL_PORKALATOR,
       SPELL_SLOW,
       SPELL_SUMMON_UGLY_THING,
       SPELL_SUMMON_ICE_BEAST,
       SPELL_BACKLIGHT,
       SPELL_INVISIBILITY
      }
    },

    HT_LAND, 10, DEFAULT_ENERGY, MONUSE_WEAPONS_ARMOUR, SIZE_MEDIUM
},
{
    MONS_KIRKE, '@', YELLOW, "Kirke",
    M_UNIQUE | M_SPELLCASTER | M_ACTUAL_SPELLS | M_WARM_BLOOD | M_SEE_INVIS
        | M_SPEAKS,
    MR_NO_FLAGS,
    550, 15, MONS_HUMAN, MONS_HUMAN, MH_NATURAL, -5,
    { {AT_HIT, AF_PLAIN, 18}, AT_NO_ATK, AT_NO_ATK, AT_NO_ATK },
    { 16, 0, 0, 110 },
    0, 10, MST_KIRKE, CE_CONTAMINATED, Z_NOZOMBIE, S_SHOUT, I_NORMAL,

    case TRAN_PIG:

        case TRAN_PIG:

    BEAM_SLEEP,                   // 45

    BEAM_PORKALATOR,              // 45
    BEAM_SLEEP,

    BEAM_POTION_STEAM,
    BEAM_POTION_FIRE,             // 50

    BEAM_POTION_STEAM,            // 50
    BEAM_POTION_FIRE,

    BEAM_POTION_BLUE_SMOKE,
    BEAM_POTION_PURP_SMOKE,       // 55

    BEAM_POTION_BLUE_SMOKE,       // 55
    BEAM_POTION_PURP_SMOKE,

    BEAM_VISUAL,                  // 57

    BEAM_VISUAL,

    BEAM_STEAL_FOOD,              // 59: Pseudo-beam for harpies stealing food.

    BEAM_STEAL_FOOD,              // 60: Pseudo-beam for harpies stealing food.

    MONS_KIRKE,

    MST_KIRKE,

    SPELL_WATER_ELEMENTALS,            // 197

    SPELL_WATER_ELEMENTALS,
    SPELL_PORKALATOR,                  //  198

    NUM_SPELLS                         // 198

    NUM_SPELLS                         // 199

                            MONS_MAUD, MONS_LOUISE, MONS_NERGALLE, -1);

                            MONS_MAUD, MONS_LOUISE, MONS_NERGALLE, MONS_KIRKE, -1);

                            MONS_ROXANNE, MONS_SAINT_ROKA, -1);

                            MONS_ROXANNE, MONS_SAINT_ROKA, MONS_KIRKE, -1);

                            MONS_MARGERY, MONS_BORIS, MONS_SAINT_ROKA, -1);

                            MONS_MARGERY, MONS_BORIS, MONS_SAINT_ROKA,
                            MONS_KIRKE, -1);

%%%%
Kirke
A beautiful enchantress.

# an enchantress, lover of Odysseus
Kirke
VISUAL:@The_monster@ splashes a potion @at_foe@.
VISUAL:@The_monster@ throws some @strange@ powder @at_foe@.
@The_monster@ says @to_foe@, "Odis was a nice man, you're awful."
@The_monster@ holds her sides and says @to_foe@, "You'll eat dirt beneath my feet."
# "moly" is a magic herb, mentioned only in Kirke's myth (as an antidote to
# Kirke's potions) and in the English interjection.
@The_monster@ whispers @to_foe@, "Not even holy moly will save you."
@The_monster@ says, "Can we stop fighting?  I have some good wine for you..." @player_only@
@The_monster@ shouts @at_foe@, "You pig!  I'll make you look the way you deserve."
@_wizard_common_spell_@
@_fake_spell_effect_@
%%%%
strange
strange
weird
mysterious
### END Kirke ###
%%%%

    case TRAN_PIG:
        return "pig";

        case TRAN_PIG:
            text += "You " + verb + " a filthy swine.";
            break;

#include "transfor.h"

    case BEAM_PORKALATOR:
        if (!transform(ench_power, TRAN_PIG, true))
        {
            mpr("You feel like a pig.");
            break;
        }
        obvious_effect = true;
        break;

    if (mon->type == MONS_KIRKE)  // deflect missiles
        beam_hit = random2(beam_hit * 2) / 3;

    case BEAM_PORKALATOR:
        rc = (mons_holiness(mon) == MH_NATURAL
              && mon->type != MONS_HOG) ||
             (mons_holiness(mon) == MH_DEMONIC
              && mon->type != MONS_HELL_HOG);
        break;

        return (MON_AFFECTED);
    case BEAM_PORKALATOR:
        if (monster_polymorph(mon, (mons_holiness(mon)==MH_DEMONIC)?
                                            MONS_HELL_HOG : MONS_HOG))
            obvious_effect = true;

    case BEAM_PORKALATOR:           return("porkalator");

    for (unsigned int i = 0; i < NUM_BEAMS; ++i)

    const unsigned int zap_size = sizeof(zap_data) / sizeof(zap_info);
    for (unsigned int i = 0; i < zap_size; ++i)

// XXX: Always getting maximal vampiric drain is harcoded in

// XXX: Always getting maximal vampiric drain is hardcoded in

        if (player_in_bat_form())

        if (player_in_bat_form()
            || you.attribute[ATTR_TRANSFORMATION] == TRAN_PIG)

    COMPILE_CHECK(NUM_SPELLS == 198             , c6);

    COMPILE_CHECK(NUM_SPELLS == 199             , c6);

    if (you.duration[DUR_TRANSFORMATION])

    if (you.duration[DUR_TRANSFORMATION] && you.attribute[ATTR_TRANSFORMATION]!=TRAN_PIG)