From: nethack.rankin <nethack.rankin>
Date: Sun, 3 Mar 2002 04:14:54 +0000 (+0000)
Subject: fix B9003: prevent multiple touchstones in A's starting inventory
X-Git-Tag: MOVE2GIT~3087
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=359405abd31f5204b0a0d7f90e7a02f296207b84;p=nethack

fix B9003: prevent multiple touchstones in A's starting inventory
---

diff --git a/src/u_init.c b/src/u_init.c
index 5fcde3fad..68d42eaa6 100644
--- a/src/u_init.c
+++ b/src/u_init.c
@@ -1,4 +1,4 @@
-/*	SCCS Id: @(#)u_init.c	3.4	2000/06/11	*/
+/*	SCCS Id: @(#)u_init.c	3.4	2002/03/02	*/
 /* Copyright (c) Stichting Mathematisch Centrum, Amsterdam, 1985. */
 /* NetHack may be freely redistributed.  See license for details. */
 
@@ -988,15 +988,19 @@ register struct trobj *trop;
 			if (objects[otyp].oc_uses_known) obj->known = 1;
 			obj->cursed = 0;
 			if (obj->opoisoned && u.ualign.type != A_CHAOTIC)
-			obj->opoisoned = 0;
-			if(obj->oclass == WEAPON_CLASS || obj->oclass == TOOL_CLASS) {
-			obj->quan = (long) trop->trquan;
-			trop->trquan = 1;
+			    obj->opoisoned = 0;
+			if (obj->oclass == WEAPON_CLASS ||
+				obj->oclass == TOOL_CLASS) {
+			    obj->quan = (long) trop->trquan;
+			    trop->trquan = 1;
+			} else if (obj->oclass == GEM_CLASS &&
+				is_graystone(obj) && obj->otyp != FLINT) {
+			    obj->quan = 1L;
 			}
-			if(trop->trspe != UNDEF_SPE)
-			obj->spe = trop->trspe;
-			if(trop->trbless != UNDEF_BLESS)
-			obj->blessed = trop->trbless;
+			if (trop->trspe != UNDEF_SPE)
+			    obj->spe = trop->trspe;
+			if (trop->trbless != UNDEF_BLESS)
+			    obj->blessed = trop->trbless;
 #ifdef GOLDOBJ
 		}
 #endif