case MONS_KRAKEN:
        return TILEP_MONS_KRAKEN_HEAD;
    case MONS_KRAKEN_TENTACLE:
        return TILEP_MONS_KRAKEN_TENTACLE
               + random2(tile_player_count(TILEP_MONS_KRAKEN_TENTACLE));

%rim 0

## Kraken head ('X') and tentacles ('w')
kraken_head MONS_KRAKEN_HEAD
kraken_tentacle1 MONS_KRAKEN_TENTACLE
kraken_tentacle2
kraken_tentacle3
kraken_tentacle4
kraken_tentacle5
kraken_tentacle6
%rim 1

    // The kraken is so large it cannot enter shallow water.
    // Its tentacles can, and will, though.
    if (monster->type == MONS_KRAKEN && target_grid == DNGN_SHALLOW_WATER)
        return (false);

        return (false);
    // Krakens are too large for shallow water.
    if (monster_class == MONS_KRAKEN && actual_grid == DNGN_SHALLOW_WATER)

    20, 0, MST_KRAKEN, CE_CLEAN, Z_NOZOMBIE, S_SILENT, I_ANIMAL,

    20, 0, MST_KRAKEN, CE_NOCORPSE, Z_NOZOMBIE, S_SILENT, I_ANIMAL,