SPELL_KRAKEN_TENTACLES, "Spawn Tentacles",
     SPTYP_SUMMONING,
     SPFLAG_MONSTER,
     5,
     0,
     -1, -1,
     0,
     NULL,
     false,
     false
},
{

            || !mons_class_flag( visible[i]->type, M_NO_EXP_GAIN ))

            || !mons_class_flag( visible[i]->type, M_NO_EXP_GAIN )
            || visible[i]->type == MONS_KRAKEN_TENTACLE)

    case SPELL_KRAKEN_TENTACLES:
    {
        int kraken_index = monster_index(monster);
        if (invalid_monster_index(duration))
        {
            mpr("Error! Kraken is not a part of the current environment!",
                MSGCH_ERROR);
            return;
        }
        sumcount2 = random2(9); // up to eight tentacles
        if (sumcount2 == 0)
            return;
        for (sumcount = 0; sumcount < MAX_MONSTERS; ++sumcount)
            if (menv[sumcount].type == MONS_KRAKEN_TENTACLE
                && (int) menv[sumcount].number == kraken_index)
            {
                // Reduce by tentacles already placed.
                sumcount2--;
            }
        for (sumcount = sumcount2; sumcount > 0; --sumcount)
        {
            // Tentacles aren't really summoned (controlled by spell_cast
            // being passed to summon_type), so I'm not sure what the
            // abjuration value (3) is doing there. (jpeg)
            if (-1 == create_monster(
                mgen_data(MONS_KRAKEN_TENTACLE, SAME_ATTITUDE(monster),
                          3, spell_cast, monster->pos(), monster->foe, 0, god,
                          MONS_PROGRAM_BUG, kraken_index, monster->colour,
                          you.your_level, PROX_CLOSE_TO_PLAYER,
                          you.level_type)))
            {
                sumcount2--;
            }
        }
        if (sumcount2 == 1)
            mpr("A tentacle rises from the water!");
        else if (sumcount2 > 1)
            mpr("Tentacles burst out of the water!");
        return;
    }

    case SPELL_KRAKEN_TENTACLES:

    mons_relocated(monster);

void mons_relocated(monsters *mons);

    // FIXME: If another monster was polymorphed into a hog by Kirke's
    //        porkalator spell, they should be handled specially...

    if (any==1)

    if (any == 1)

    else if (any>1)
        mpr("No longer under Kirke's spell, all hogs revert to their human form!");

    else if (any > 1)
    {
        mpr("No longer under Kirke's spell, all hogs revert to their human "
            "form!");
    }

static int _tentacle_too_far(monsters *head, monsters *tentacle)
{
    // The Shoals produce no disjoint bodies of water.
    // If this ever changes, we'd need to check if the head and tentacle
    // are still in the same pool.
    // XXX: Actually, using Feawn's Sunlight power you can separate pools...
    return grid_distance(head->pos(), tentacle->pos()) > LOS_RADIUS;
}
void mons_relocated(monsters *monster)
{
    if (monster->type == MONS_KRAKEN)
    {
        int headnum = monster_index(monster);

        if (invalid_monster_index(headnum))
            return;
        for (int i = 0; i < MAX_MONSTERS; ++i)
        {
            monsters *tentacle = &menv[i];
            if (tentacle->type == MONS_KRAKEN_TENTACLE
                && (int) tentacle->number == headnum
                && _tentacle_too_far(monster, tentacle))
            {
                monster_die(tentacle, KILL_RESET, -1, true, false);
            }
        }
    }
    else if (monster->type == MONS_KRAKEN_TENTACLE)
    {
        if (invalid_monster_index(monster->number)
            || menv[monster->number].type!=MONS_KRAKEN
            || _tentacle_too_far(&menv[monster->number], monster))
        {
            monster_die(monster, KILL_RESET, -1, true, false);
        }
    }
}
static int _destroy_tentacles(monsters *head)
{
    int tent = 0;
    int headnum = monster_index(head);
    if (invalid_monster_index(headnum))
        return 0;
    for (int i = 0; i < MAX_MONSTERS; ++i)
    {
        monsters *monster = &menv[i];
        if (monster->type == MONS_KRAKEN_TENTACLE
            && (int)monster->number == headnum)
        {
            if (mons_near(monster))
                tent++;
            monster->hurt(monster, INSTANT_DEATH);
        }
    }
    return tent;
}

    }
    else if (monster->type == MONS_KRAKEN)
    {
        if (_destroy_tentacles(monster) && !in_transit)
        {
            mpr("The kraken is slain, and its tentacles slide "
                "back into the water like the carrion they now are.");
        }

    mons_relocated(monster);

    else if (mg.cls == MONS_KRAKEN)
    {
        menv[id].colour = random_choose(GREEN, LIGHTGREEN, LIGHTCYAN,
                                        LIGHTBLUE, RED, LIGHTRED, MAGENTA, -1);
    }

        break;        

        break;

    
    // Nor are body parts.
    case SPELL_KRAKEN_TENTACLES:

        else if (((type == MONS_ELECTRIC_EEL || type == MONS_LAVA_SNAKE)

        else if (((type == MONS_ELECTRIC_EEL || type == MONS_LAVA_SNAKE || type == MONS_KRAKEN)

    else if (type == MONS_KRAKEN_TENTACLE && flavour != BEAM_TORMENT_DAMAGE)
    {
        if (!invalid_monster_index(number)
            && menv[number].type == MONS_KRAKEN)
        {
            menv[number].hurt(&you, damage, flavour);
        }
    }

    {  MST_KRAKEN,
      {
       SPELL_KRAKEN_TENTACLES,
       SPELL_KRAKEN_TENTACLES,
       SPELL_NO_SPELL,
       SPELL_NO_SPELL,
       SPELL_NO_SPELL,
       SPELL_NO_SPELL
      }
    },

},
    // A kraken and its tentacles get a random colour at creation.
{
    MONS_KRAKEN, 'X', DARKGREY, "kraken",
    M_COLD_BLOOD | M_SPELLCASTER,
    MR_NO_FLAGS,
    1500, 20, MONS_KRAKEN, MONS_KRAKEN, MH_NATURAL, -3,
    { {AT_BITE, AF_PLAIN, 15}, AT_NO_ATK, AT_NO_ATK, AT_NO_ATK },
    { 20, 10, 10, 0 },
    20, 0, MST_KRAKEN, CE_CLEAN, Z_NOZOMBIE, S_SILENT, I_ANIMAL,
    HT_WATER, 10, DEFAULT_ENERGY, MONUSE_NOTHING, MONEAT_NOTHING, SIZE_HUGE

{
    MONS_KRAKEN_TENTACLE, 'w', DARKGREY, "tentacle",
    M_COLD_BLOOD | M_NO_EXP_GAIN,
    MR_RES_ASPHYX,
    0, 10, MONS_KRAKEN_TENTACLE, MONS_KRAKEN_TENTACLE, MH_NATURAL, MAG_IMMUNE,
    { {AT_HIT, AF_PLAIN, 15}, AT_NO_ATK, AT_NO_ATK, AT_NO_ATK },
    { 5, 3, 5, 0 },
    5, 7, MST_NO_SPELLS, CE_NOCORPSE, Z_NOZOMBIE, S_SILENT, I_ANIMAL,
    HT_WATER, 10, DEFAULT_ENERGY, MONUSE_NOTHING, MONEAT_NOTHING, SIZE_LARGE
},

                       && mon->type != MONS_KRAKEN_TENTACLE

    if (attacker->id() == MONS_KRAKEN_TENTACLE)
        return "slap";

    MONS_OOZE,                         //  357
    MONS_VAULT_GUARD = 360,            //  360

    MONS_OOZE,
    MONS_KRAKEN,
    MONS_KRAKEN_TENTACLE,
    MONS_VAULT_GUARD,                  //  360

    MST_KRAKEN,

    SPELL_KRAKEN_TENTACLES,

    NUM_SPELLS                         //  199

    NUM_SPELLS                         //  200

                else if (one_chance_in(20))
                    swimming_things[i] = MONS_KRAKEN;

    if (mspec.mid == MONS_KRAKEN)
    {
        unsigned short mid = mgrd(place);

    // Need to set a name for the player ghost.

        if (mid >= MAX_MONSTERS || menv[mid].type != MONS_KRAKEN)
        {
            for (mid = 0; mid < MAX_MONSTERS; mid++)
            {
                if (menv[mid].type == MONS_KRAKEN && menv[mid].alive())
                {
                    menv[mid].colour = random_choose(GREEN, LIGHTGREY,
                                                     LIGHTGREEN, LIGHTCYAN,
                                                     LIGHTRED, YELLOW, WHITE,
                                                     -1);
                    return;
                }
            }
        }
        if (mid >= MAX_MONSTERS)
        {
            mpr("Couldn't find player kraken!");
            return;
        }
    }
    // FIXME: This is a bit useless, seeing how you cannot set the
    // ghost's stats, brand or level.

kraken
A gargantuan sea monster, capable of devouring entire ships.  It embraces them with its tentacles and draws them into the depths.  Fortunately, the tentacles are too big to embrace a small creature like you.  Wait, did I say "fortunately"?
%%%%

tentacle
This mighty tentacle is a part of a kraken.
Any damage dealt to it hurts the whole creature.
%%%%

kraken
"... Kraken, also called the Crab-fish, which [according to the pilots of
Norway] is not that huge, for heads and tails counted, he is no larger than
our Öland is wide [i.e. less than 16 km] ... He stays at the sea floor,
constantly surrounded by innumerable small fishes, who serve as his food and
are fed by him in return: for his meal, if I remember correctly what E.
Pontoppidan writes, lasts no longer than three months, and another three are
then needed to digest it. His excrements nurture in the following an army of
lesser fish, and for this reason, fishermen plumb after his resting place
... Gradually, Kraken ascends to the surface, and when he is at ten to
twelve fathoms, the boats had better move out of his vicinity, as he will
shortly thereafter burst up, like a floating island, spurting water from his
dreadful nostrils and making ring waves around him, which can reach many
miles. Could one doubt that this is the Leviathan of Job?"
    -Jacob Wallenberg, "Min son på galejan", 1781.
%%%%

    COMPILE_CHECK(NUM_SPELLS == 199             , c6);

    COMPILE_CHECK(NUM_SPELLS == 200             , c6);

runrest_ignore_monster = butterfly:1
# acquatic monsters

runrest_ignore_monster = butterfly:1

runrest_ignore_monster = kraken:2
# special case for tentacled monstrosity
runrest_ignore_monster = tentacled:8
runrest_ignore_monster = tentacle:2