Function use_stone

src/apply.c:2679–2810

touchstones - by Ken Arnold */

/* touchstones - by Ken Arnold */
staticfn int
use_stone(struct obj *tstone)
{
    static const char scritch[] = "\"scritch, scritch\"";
    struct obj *obj;
    boolean do_scratch;
    const char *streak_color;
    char stonebuf[QBUFSZ];
    int oclass;
    boolean known;

    /* in case it was acquired while blinded */
    if (!Blind)
        observe_object(tstone);
    known = (tstone->otyp == TOUCHSTONE && tstone->dknown
              && objects[TOUCHSTONE].oc_name_known);
    Sprintf(stonebuf, "rub on the stone%s", plur(tstone->quan));
    /* when the touchstone is fully known, don't bother listing extra
       junk as likely candidates for rubbing */
    if ((obj = getobj(stonebuf, known ? touchstone_ok : any_obj_ok,
                      GETOBJ_PROMPT)) == 0)
        return ECMD_CANCEL;

    if (obj == tstone && obj->quan == 1L) {
        You_cant("rub %s on itself.", the(xname(obj)));
        return ECMD_OK;
    }

    if (tstone->otyp == TOUCHSTONE && tstone->cursed
        && obj->oclass == GEM_CLASS && !is_graystone(obj)
        && !obj_resists(obj, 80, 100)) {
        if (Blind)
            You_feel("something shatter.");
        else if (Hallucination)
            pline("Oh, wow, look at the pretty shards.");
        else
            pline("A sharp crack shatters %s%s.",
                  (obj->quan > 1L) ? "one of " : "", the(xname(obj)));
        useup(obj);
        return ECMD_TIME;
    }

    if (Blind) {
        pline(scritch);
        return ECMD_TIME;
    } else if (Hallucination) {
        pline("Oh wow, man: Fractals!");
        return ECMD_TIME;
    }

    do_scratch = FALSE;
    streak_color = 0;

    oclass = obj->oclass;
    /* prevent non-gemstone rings from being treated like gems */
    if (oclass == RING_CLASS
        && objects[obj->otyp].oc_material != GEMSTONE
        && objects[obj->otyp].oc_material != MINERAL)