From: nethack.rankin <nethack.rankin>
Date: Thu, 24 Jan 2002 02:54:06 +0000 (+0000)
Subject: more GOLDOBJ
X-Git-Tag: MOVE2GIT~3363
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=ef8f180fbcfb046d27fe107c1ef4f807964dc3a9;p=nethack

more GOLDOBJ

     The earlier patch made sure that bribe() didn't pass an
invalid value to money2mon().  This one changes money2mon() so
that if some other code else does so, reporting the impossible
situation won't be followed by a splitobj panic.  Most of this
patch is reformatting though.
---

diff --git a/src/minion.c b/src/minion.c
index 3d8f56ee8..b20425235 100644
--- a/src/minion.c
+++ b/src/minion.c
@@ -186,19 +186,19 @@ struct monst *mtmp;
 	} else if (offer >= u.ugold) {
 		You("give %s all your gold.", mon_nam(mtmp));
 		offer = u.ugold;
-	} else You("give %s %ld %s.", mon_nam(mtmp), offer,
-		   currency(offer));
-
+	} else {
+		You("give %s %ld %s.", mon_nam(mtmp), offer, currency(offer));
+	}
 	u.ugold -= offer;
 	mtmp->mgold += offer;
 #else
 	} else if (offer >= umoney) {
 		You("give %s all your gold.", mon_nam(mtmp));
 		offer = umoney;
-	} else You("give %s %ld %s.", mon_nam(mtmp), offer,
-		   currency(offer));
-
-	money2mon(mtmp, offer);
+	} else {
+		You("give %s %ld %s.", mon_nam(mtmp), offer, currency(offer));
+	}
+	(void) money2mon(mtmp, offer);
 #endif
 	flags.botl = 1;
 	return(offer);
diff --git a/src/shk.c b/src/shk.c
index 53ec61db7..33f102a96 100644
--- a/src/shk.c
+++ b/src/shk.c
@@ -76,38 +76,39 @@ static void FDECL(rob_shop, (struct monst *));
 
 #ifdef GOLDOBJ
 /*
-        Transfer money from inventory to monster when paying
-        shopkeepers, priests, oracle, succubus, & other demons.
-        Simple qith only gold coins.
-        This routine will handle money changing when multiple
-        coin types is implemented, only appropriate
-        monsters will pay change.  (Peaceful shopkeepers, priests
-        & the oracle try to maintain goodwill while selling
-        their wares or services.  Angry monsters and all demons
-        will keep anything they get their hands on.  
-        Returns the amount actually paid, so we can know
-        if the monster kept the change.
-*/
+    Transfer money from inventory to monster when paying
+    shopkeepers, priests, oracle, succubus, & other demons.
+    Simple qith only gold coins.
+    This routine will handle money changing when multiple
+    coin types is implemented, only appropriate
+    monsters will pay change.  (Peaceful shopkeepers, priests
+    & the oracle try to maintain goodwill while selling
+    their wares or services.  Angry monsters and all demons
+    will keep anything they get their hands on.
+    Returns the amount actually paid, so we can know
+    if the monster kept the change.
+ */
 long money2mon(mon, amount)
 struct monst *mon;
 long amount;
 {
-        struct obj *ygold = findgold(invent); 
+    struct obj *ygold = findgold(invent);
 
-        if (ygold && ygold == uquiver) uqwepgone();
+    if (amount <= 0) {
+	impossible("%s payment in money2mon!", amount ? "negative" : "zero");
+	return 0L;
+    }
+    if (!ygold || ygold->quan < amount) {
+	impossible("Paying without %s money?", ygold ? "enough" : "");
+	return 0L;
+    }
 
-        if (amount <= 0) impossible("%s payment in money2mon!",
-                                    amount ? "negative" : "zero");        
-        if (!ygold || ygold->quan < amount) {
-	        impossible("Paying without %s money?", ygold ? "enough" : "");
-		return 0;
-	}
-        
-        if (ygold->quan > amount) ygold = splitobj(ygold, amount);
-        freeinv(ygold);
-	add_to_minv(mon, ygold);
-        flags.botl = 1;
-        return amount;
+    if (ygold->quan > amount) ygold = splitobj(ygold, amount);
+    else if (ygold->owornmask) remove_worn_item(ygold);		/* quiver */
+    freeinv(ygold);
+    add_to_minv(mon, ygold);
+    flags.botl = 1;
+    return amount;
 }
 
 
@@ -115,32 +116,34 @@ long amount;
     Transfer money from monster to inventory.
     Used when the shopkeeper pay for items, and when
     the priest gives you money for an ale.
-*/
+ */
 void
 money2u(mon, amount)
 struct monst *mon;
 long amount;
 {
-        struct obj *mongold = findgold(mon->minvent);
-
-        if (amount <= 0) impossible("%s payment in money2u!", 
-                                    amount ? "negative" : "zero");
-        if (!mongold || mongold->quan < amount) {
-                impossible("%s paying without %s money?", a_monnam(mon),
-                           mongold ? "enough" : "");
-                return;
-        }
-   
-        if (mongold->quan > amount) mongold = splitobj(mongold, amount);
-        obj_extract_self(mongold);
-
-        if (!merge_choice(invent, mongold) && inv_cnt() >= 52) {
-                You("have no room for the money!");
-                dropy(mongold);
-        } else {
-                addinv(mongold);  
-                flags.botl = 1;
-	}
+    struct obj *mongold = findgold(mon->minvent);
+
+    if (amount <= 0) {
+	impossible("%s payment in money2u!", amount ? "negative" : "zero");
+	return;
+    }
+    if (!mongold || mongold->quan < amount) {
+	impossible("%s paying without %s money?", a_monnam(mon),
+		   mongold ? "enough" : "");
+	return;
+    }
+
+    if (mongold->quan > amount) mongold = splitobj(mongold, amount);
+    obj_extract_self(mongold);
+
+    if (!merge_choice(invent, mongold) && inv_cnt() >= 52) {
+	You("have no room for the money!");
+	dropy(mongold);
+    } else {
+	addinv(mongold);
+	flags.botl = 1;
+    }
 }
 
 #endif /* GOLDOBJ */