jeweler shopkeeper touchstone (B3015)

This implements the suggestion in beta bug 3015.
2002-03-02 16:46:56 +00:00
parent e4f694986c
commit 38e60fa8d1
1 changed files with 2 additions and 0 deletions
--- a/src/shknam.c
+++ b/src/shknam.c
@@ -411,6 +411,8 @@ struct mkroom	*sroom;
 #else
        mkmonmoney(shk, 1000L + 30L*(long)rnd(100));	/* initial capital */
 #endif
+	if (shp->shknms == shkrings)
+	    (void) mongets(shk, TOUCHSTONE);
 	nameshk(shk, shp->shknms);

 	return(sh);