Function give_to_nearby_mon

src/bones.c:225–255

Give object to a random object-liking monster on or adjacent to x,y but skipping hero's location. If no such monster, place object on floor at x,y. */

   but skipping hero's location.
   If no such monster, place object on floor at x,y. */
staticfn void
give_to_nearby_mon(struct obj *otmp, coordxy x, coordxy y)
{
    struct monst *mtmp;
    struct monst *selected = (struct monst *) 0;
    int nmon = 0, xx, yy;

    for (xx = x - 1; xx <= x + 1; ++xx) {
        for (yy = y - 1; yy <= y + 1; ++yy) {
            if (!isok(xx, yy))
                continue;
            if (u_at(xx, yy))
                continue;
            if (!(mtmp = m_at(xx, yy)))
                continue;
            /* This doesn't do any checks on otmp to see that it matches the
             * likes_* property, intentionally. Assume that the monster is
             * rifling through and taking things that look interesting. */
            if (!(likes_gold(mtmp->data) || likes_gems(mtmp->data)
                  || likes_objs(mtmp->data) || likes_magic(mtmp->data)))
                continue;
            nmon++;
            if (!rn2(nmon))
                selected = mtmp;
        }
    }
    if (selected && can_carry(selected, otmp))
        add_to_minv(selected, otmp);
    else
        place_object(otmp, x, y);
}

/* called by savebones(); also by finish_paybill(shk.c) */
void