SPELL_TOMB_OF_DOROKLOHE, "Tomb of Doroklohe",
     SPTYP_EARTH,
     SPFLAG_MONSTER,
     5,
     0,
     -1, -1,
     0,
     NULL,
     false,
     false
},
{

        }
        break;
    }
    case SPELL_TOMB_OF_DOROKLOHE:
    {
        sumcount = 0;
        for(adjacent_iterator ai(monster->pos()); ai; ++ai)
        {
            // we can blink away the crowd, but only our allies
            if (mgrd(*ai) != NON_MONSTER
                && monster_at(*ai)->attitude != monster->attitude)
                sumcount++;
            if (grd(*ai) != DNGN_FLOOR && grd(*ai) > DNGN_MAX_NONREACH
                && !grid_is_trap(grd(*ai)))
                sumcount++;
        }
        if (abs(you.pos().x-monster->pos().x)<=1 &&
            abs(you.pos().y-monster->pos().y)<=1)
            sumcount++;
        if (sumcount)
        {
            monster->blink();
            return;
        }
        sumcount = 0;
        for(adjacent_iterator ai(monster->pos()); ai; ++ai)
        {
            if (mgrd(*ai) != NON_MONSTER && monster_at(*ai) != monster)
            {
                monster_at(*ai)->blink();
                if (mgrd(*ai) != NON_MONSTER)
                {
                    monster_at(*ai)->teleport(true);
                    if (mgrd(*ai) != NON_MONSTER)
                        continue;
                }
            }
            if (grd(*ai) == DNGN_FLOOR || grid_is_trap(grd(*ai)))
            {
                grd(*ai) = DNGN_ROCK_WALL;
                sumcount++;
            }

        if (sumcount)
            mpr("Walls emerge from the floor!");
        monster->number = 1; // mark Khufu as entombed
        return;

    case SPELL_TOMB_OF_DOROKLOHE:

        case MONS_KHUFU:          pow = 15; break;

        // 1KB: the following code is never used for unfriendlies!

}
static void _khufu_drop_tomb(monsters *monster)
{
    int count = 0;
    monster->behaviour = BEH_SEEK; // don't wander on duty!
    for(adjacent_iterator ai(monster->pos()); ai; ++ai)
    {
        if (grd(*ai) == DNGN_ROCK_WALL)
        {
            grd(*ai) = DNGN_FLOOR;
            count++;
        }
    }
    if (count)
        if (mons_near(monster))
            mpr("The walls disappear!");
        else
            mpr("You hear a deep rumble.");
    monster->number = 0;
    monster->lose_energy(EUT_SPELL);

        if (monster->type == MONS_KHUFU && monster->number
            && monster->hit_points==monster->max_hit_points)
            _khufu_drop_tomb(monster);

            case SPELL_PORKALATOR:

    case SPELL_TOMB_OF_DOROKLOHE:
        ret = true;
        break;

    {  MST_KHUFU,
      {
       SPELL_SUMMON_DEMON,
       SPELL_SMITING,
       SPELL_SMITING,
       SPELL_SYMBOL_OF_TORMENT,
       SPELL_SUMMON_UNDEAD,
       SPELL_TOMB_OF_DOROKLOHE
      }
    },

{
    MONS_KHUFU, 'M', LIGHTRED, "Khufu",
    M_SPELLCASTER | M_ACTUAL_SPELLS | M_SEE_INVIS | M_EVIL | M_SPEAKS
        | M_UNIQUE,
    MR_RES_POISON | MR_RES_COLD | MR_RES_ELEC,
    0, 20, MONS_MUMMY, MONS_MUMMY, MH_UNDEAD, MAG_IMMUNE,
    { {AT_HIT, AF_PLAIN, 35}, AT_NO_ATK, AT_NO_ATK, AT_NO_ATK },
    { 18, 5, 3, 100 },
    10, 6, MST_KHUFU, CE_NOCORPSE, Z_NOZOMBIE, S_SILENT, I_HIGH,
    HT_LAND, 10, DEFAULT_ENERGY, MONUSE_WEAPONS_ARMOUR, MONEAT_NOTHING, SIZE_MEDIUM
},

    MONS_KHUFU,

    MST_GERYON = 150,

    MST_GERYON,

    MST_KHUFU,

    SPELL_TOMB_OF_DOROKLOHE,

    NUM_SPELLS                         //  200

    NUM_SPELLS                         //  201

%%%%
Khufu
An incredibly powerful emperor on the way to godhood.

%%%%
############ KHUFU ### mummy emperor with delusions of godhood
Khufu
@The_monster@ booms, "Everyone will worship Khufu but you!"
SPELL:@The_monster@ smites.
@The_monster@ declares, "When I'm finished with you, I will take on the gods!"
@The_monster@ queries, "My people built me a pyramid -- what did your people build for you?"
@The_monster@ says, "This hit and run is way beneath me."
@The_monster@ says, "I am transcendence, you are transpiration."
@The_monster@ says @to_foe@, "Your corpse would blemish any mausoleum."
@The_monster@ says @to_foe@, "You'll be the most ugly mummy ever seen."
@The_monster@ says, "I follow the Polar star."
@The_monster@ yells @to_foe@, "Into the Nile with you!"
## END Khufu ##

    COMPILE_CHECK(NUM_SPELLS == 200             , c6);

    COMPILE_CHECK(NUM_SPELLS == 201             , c6);