add non-controversial part of <Someone>'s "unpaid prices in inventory."

diff --git a/doc/fixes34.0 b/doc/fixes34.0
index f50e561fc7d447efe03044096e6f7cf0a3a2e3e2..646e748c6cdece2e8836756d1b24d6e5d2b9970e 100644 (file)
--- a/doc/fixes34.0
+++ b/doc/fixes34.0
@@ -530,6 +530,7 @@ add Tom Friedetzky's BUC-patch with some alterations to the original
 add wizard #poly and #levelchange (originally levelgain; Dylan O'Donnell),
 add Jason Short's additional lenses use patch
 add new Gnomish Mines levels from Kelly Bailey's patch
+add Ken Arnold's patch to show unpaid item prices in inventory
 jousting by players wielding a lance while riding
 Knights start with lance rather than spear
 can start game without a pet via pettype:none (Dylan O'Donnell)

diff --git a/src/objnam.c b/src/objnam.c
index f34ed3dc488b317369ac5f7cdb001b28424fcef7..6f5b548d0146b74c562fb9ab3d51a3e4e9188e07 100644 (file)
--- a/src/objnam.c
+++ b/src/objnam.c
@@ -747,8 +747,11 @@ ring:
                        Strcat(bp, " (alternate weapon; not wielded)");
        }
        if(obj->owornmask & W_QUIVER) Strcat(bp, " (in quiver)");
-       if(obj->unpaid)
-               Strcat(bp, " (unpaid)");
+       if(obj->unpaid) {
+               long quotedprice = unpaid_cost(obj);
+               Sprintf(eos(bp), " (unpaid, %ld %s)",
+                       quotedprice, currency(quotedprice));
+       }
        if (!strncmp(prefix, "a ", 2) &&
                        index(vowels, *(prefix+2) ? *(prefix+2) : *bp)
                        && (*(prefix+2) || (strncmp(bp, "uranium", 7)