max_hp = 100 + roll_dice( 3, 50 );

    max_hp = 100 + roll_dice(3, 50);

    // and I expect named demons to typically have a trick or two -- bwr

    // and I expect named demons to typically have a trick or two. - bwr

        for (int i = 0; i < NUM_MONSTER_SPELL_SLOTS; i++)
            spells[i] = translate_spell( spells[i] );

        for (int i = 0; i < NUM_MONSTER_SPELL_SLOTS; ++i)
            spells[i] = translate_spell(spells[i]);

// Returns the movement speed for a player ghost. Note that this is a real
// speed, not a movement cost, so higher is better.

// Returns the movement speed for a player ghost.  Note that this is a
// real speed, not a movement cost, so higher is better.

    colour = mons_class_colour(MONS_PLAYER_GHOST);
    fly = mons_class_flies(MONS_PLAYER_GHOST);

    // These are the same as in mon-data.h.
    colour = WHITE;
    fly = FL_LEVITATE;

         i < sizeof(search_order_conj) / sizeof(*search_order_conj); i++)

         i < sizeof(search_order_conj) / sizeof(*search_order_conj); ++i)

         i < sizeof(search_order_third) / sizeof(*search_order_third); i++)

         i < sizeof(search_order_third) / sizeof(*search_order_third); ++i)

         i < sizeof(search_order_misc) / sizeof(*search_order_misc); i++)

         i < sizeof(search_order_misc) / sizeof(*search_order_misc); ++i)

    int i = 0;

    spells[ 0 ] = search_first_list(SPELL_NO_SPELL);
    spells[ 1 ] = search_first_list(spells[0]);
    spells[ 2 ] = search_second_list(SPELL_NO_SPELL);
    spells[ 3 ] = search_third_list(SPELL_DIG);

    spells[0] = search_first_list(SPELL_NO_SPELL);
    spells[1] = search_first_list(spells[0]);
    spells[2] = search_second_list(SPELL_NO_SPELL);
    spells[3] = search_third_list(SPELL_DIG);

    if (spells[ 3 ] == SPELL_NO_SPELL)
        spells[ 3 ] = search_first_list(SPELL_NO_SPELL);

    if (spells[3] == SPELL_NO_SPELL)
        spells[3] = search_first_list(SPELL_NO_SPELL);

    spells[ 4 ] = search_third_list(spells[3]);

    spells[4] = search_third_list(spells[3]);

    if (spells[ 4 ] == SPELL_NO_SPELL)
        spells[ 4 ] = search_first_list(spells[3]);

    if (spells[4] == SPELL_NO_SPELL)
        spells[4] = search_first_list(spells[3]);

    if (player_has_spell( SPELL_DIG ))
        spells[ 4 ] = SPELL_DIG;

    if (player_has_spell(SPELL_DIG))
        spells[4] = SPELL_DIG;

    if (player_has_spell( SPELL_CONTROLLED_BLINK )
        || player_has_spell( SPELL_BLINK ))

    if (player_has_spell(SPELL_CONTROLLED_BLINK)
        || player_has_spell(SPELL_BLINK))

        spells[ 5 ] = SPELL_CONTROLLED_BLINK;

        spells[5] = SPELL_CONTROLLED_BLINK;

    if (player_has_spell( SPELL_TELEPORT_SELF ))
        spells[ 5 ] = SPELL_TELEPORT_SELF;

    if (player_has_spell(SPELL_TELEPORT_SELF))
        spells[5] = SPELL_TELEPORT_SELF;

    for (i = 0; i < NUM_MONSTER_SPELL_SLOTS; i++)
        spells[i] = translate_spell( spells[i] );

    for (int i = 0; i < NUM_MONSTER_SPELL_SLOTS; ++i)
        spells[i] = translate_spell(spells[i]);