From 5802922a3d4f2534d241777f4c6231aaea305cb4 Mon Sep 17 00:00:00 2001
From: "nethack.allison" <nethack.allison>
Date: Sun, 7 Jul 2002 19:10:17 +0000
Subject: [PATCH] picking up gold

> > On Saturday, 6 Jul 2002, <Someone> wrote:
> > What's the rationale behind using "money" for what used to be
> > "gold" (as in "The hill orc picks up some money" or "You notice
> > you have no money!")? Has the zorkmid been devalued?
[...]
> At least let *leprechauns* pick up gold. Unlike orcs, they're not the
> kind to pick up just "money".
---
 src/mon.c | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/mon.c b/src/mon.c
index 050d341d6..49c4dee67 100644
--- a/src/mon.c
+++ b/src/mon.c
@@ -774,21 +774,21 @@ mpickgold(mtmp)
 	register struct monst *mtmp;
 {
     register struct obj *gold;
+    int mat_idx;
 
     if ((gold = g_at(mtmp->mx, mtmp->my)) != 0) {
+	mat_idx = objects[gold->otyp].oc_material;
 #ifndef GOLDOBJ
 	mtmp->mgold += gold->quan;
 	delobj(gold);
-	if (cansee(mtmp->mx, mtmp->my) ) {
-	    if (flags.verbose && !mtmp->isgd)
-		pline("%s picks up some gold.", Monnam(mtmp));
 #else
         obj_extract_self(gold);
         add_to_minv(mtmp, gold);
+#endif
 	if (cansee(mtmp->mx, mtmp->my) ) {
 	    if (flags.verbose && !mtmp->isgd)
-		pline("%s picks up some money.", Monnam(mtmp));
-#endif
+		pline("%s picks up some %s.", Monnam(mtmp),
+			mat_idx == GOLD ? "gold" : "money");
 	    newsym(mtmp->mx, mtmp->my);
 	}
     }