jeweler shopkeeper touchstone (B3015)

This implements the suggestion in beta bug 3015.

diff --git a/src/shknam.c b/src/shknam.c
index 8405600a43deaf89a8df8d41b1e0750c26d446c8..59a05cdcff85afbe831531522d20549373fb1f22 100644 (file)
--- 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);