item_def* operator->() const;

    const coord_def* operator->() const;

}
item_def* stack_iterator::operator->() const
{
    ASSERT( cur_link != NON_ITEM );
    return &mitm[cur_link];

const coord_def* radius_iterator::operator->() const
{
    return &location;
}

    int i = igrd[you.x_pos][you.y_pos];
    while (i != NON_ITEM)

    for ( stack_iterator si(you.pos()); si; ++si )

        const int next = mitm[i].link;  // in case we can't get it later.
        if (mitm[i].base_type == OBJ_BOOKS
           && mitm[i].sub_type != BOOK_MANUAL
           && mitm[i].sub_type != BOOK_DESTRUCTION)

        if ( si->base_type == OBJ_BOOKS
             && si->sub_type != BOOK_MANUAL
             && si->sub_type != BOOK_DESTRUCTION )

        i = next;

    for (int xpos = you.x_pos - 8; xpos < you.x_pos + 8; xpos++)
        for (int ypos = you.y_pos - 8; ypos < you.y_pos + 8; ypos++)

    
    for (radius_iterator ri(you.pos(), LOS_RADIUS, true, true, true); ri; ++ri)
    {
        // If a grid is blocked, books lying there will be ignored.
        // Allow bombing of monsters.
        const unsigned short cloud = env.cgrid(*ri);
        if (grid_is_solid(grd(*ri))
            || cloud != EMPTY_CLOUD && env.cloud[cloud].type != CLOUD_FIRE)

            // Checked above.
            if (xpos == you.x_pos && ypos == you.y_pos)
                continue;
            // Burn only squares in sight.
            if (!see_grid(xpos, ypos))
                continue;

            continue;
        }

            // If a grid is blocked, books lying there will be ignored.
            // Allow bombing of monsters.
            const int cloud = env.cgrid[xpos][ypos];
            if (grid_is_solid(grd[ xpos ][ ypos ])
                || cloud != EMPTY_CLOUD && env.cloud[cloud].type != CLOUD_FIRE)

        int count = 0;
        int rarity = 0;
        for ( stack_iterator si(*ri); si; ++si )
        {
            if ( si->base_type != OBJ_BOOKS
                 || si->sub_type == BOOK_MANUAL
                 || si->sub_type == BOOK_DESTRUCTION )

            int count = 0;
            int rarity = 0;
            i = igrd[xpos][ypos];
            while (i != NON_ITEM)

                
            // Ignore {!D} inscribed books.
            if (!check_warning_inscriptions( *si, OPER_DESTROY))

                const int next = mitm[i].link; // in case we can't get it later

                mpr("Won't ignite {!D} inscribed book.");
                continue;
            }
                
            rarity += book_rarity( si->sub_type );
            // Piety increases by 2 for books never cracked open, else 1.
            // Conversely, rarity influences the duration of the pyre.
            if (!item_type_known(*si))
                totalpiety += 2;
            else
                totalpiety++;

                if (mitm[i].base_type != OBJ_BOOKS
                    || mitm[i].sub_type == BOOK_MANUAL
                    || mitm[i].sub_type == BOOK_DESTRUCTION)
                {
                    i = next;
                    continue;
                }
                // Ignore {!D} inscribed books.
                if (!check_warning_inscriptions(mitm[i], OPER_DESTROY))
                {
                    mpr("Won't ignite {!D} inscribed book.");
                    i = next;
                    continue;
                }
                rarity += book_rarity(mitm[i].sub_type);
                // Piety increases by 2 for books never cracked open, else 1.
                // Conversely, rarity influences the duration of the pyre.
                if (!item_type_known(mitm[i]))
                    totalpiety += 2;
                else
                    totalpiety++;

                mprf(MSGCH_DIAGNOSTICS, "Burned book rarity: %d", rarity);

            mprf(MSGCH_DIAGNOSTICS, "Burned book rarity: %d", rarity);

                destroy_item(i);
                count++;
                i = next;
            }

            destroy_item(si.link());
            count++;
        }

            if (count)

        if (count)
        {
            if (cloud != EMPTY_CLOUD)

                if (cloud != EMPTY_CLOUD)
                {
                    // Reinforce the cloud.
                    mpr( "The fire roars with new energy!" );
                    const int extra_dur = count + random2(rarity/2);
                    env.cloud[cloud].decay += extra_dur * 5;
                    env.cloud[cloud].whose = KC_YOU;
                    continue;
                }
                int durat = 4 + count + random2(rarity/2);

                // Reinforce the cloud.
                mpr( "The fire roars with new energy!" );
                const int extra_dur = count + random2(rarity/2);
                env.cloud[cloud].decay += extra_dur * 5;
                env.cloud[cloud].whose = KC_YOU;
                continue;
            }

                if (durat > 23)
                    durat = 23;

            int durat = 4 + count + random2(rarity/2);

                place_cloud( CLOUD_FIRE, xpos, ypos, durat, KC_YOU );

            if (durat > 23)
                durat = 23;

                mpr(count == 1 ? "The book bursts into flames."
                               : "The books burst into flames.", MSGCH_GOD);
            }

            place_cloud( CLOUD_FIRE, ri->x, ri->y, durat, KC_YOU );

            mpr(count == 1 ? "The book bursts into flames."
                : "The books burst into flames.", MSGCH_GOD);

    }

    radius_iterator ri(you.pos(), range);
    for ( ; ri; ++ri )

    for ( radius_iterator ri(you.pos(), range); ri; ++ri )