From 839947d423b59ecccb8e788c1b958e6c46b4cec7 Mon Sep 17 00:00:00 2001
From: "nethack.allison" <nethack.allison>
Date: Sun, 17 Feb 2002 14:42:48 +0000
Subject: [PATCH] add non-controversial part of <Someone>'s "unpaid prices in
 inventory."

---
 doc/fixes34.0 | 1 +
 src/objnam.c  | 7 +++++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/doc/fixes34.0 b/doc/fixes34.0
index f50e561fc..646e748c6 100644
--- 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 f34ed3dc4..6f5b548d0 100644
--- 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)
-- 
2.50.1