Revive the Newhon Artifacts from SLASH 6

Credits go to BarclayII for the reimplementation and rename of Scalpal
into Mouser's Scalpal, both of which were adapted from his SlashEM-Up
project.

include/artilist.h

@@ -208,6 +208,24 @@ A("Deluder",               CLOAK_OF_DISPLACEMENT,
 	(SPFX_RESTR|SPFX_STLTH|SPFX_LUCK), 0, 0,
 	NO_ATTK,      NO_DFNS,        NO_CARY,        0, A_NEUTRAL, PM_JEDI, NON_PM, 5000L ),
 
+#ifdef NEWHON_ARTIFACTS
+A("Mouser's Scalpel",			RAPIER,
+	(SPFX_RESTR), 0, 0,
+	PHYS(5,1),	NO_DFNS,	NO_CARY,	0, A_NEUTRAL, NON_PM, NON_PM, 600L ),
+
+A("Graywand",		TWO_HANDED_SWORD,
+	(SPFX_RESTR|SPFX_ATTK), 0, 0,
+	COLD(3,6),	NO_DFNS,	NO_CARY,	0, A_NEUTRAL, NON_PM, NON_PM, 1000L ),
+
+A("Heartseeker",		SHORT_SWORD,
+	(SPFX_RESTR),	0, 0,
+	PHYS(3,3),	NO_DFNS,	NO_CARY,	0, A_NEUTRAL, NON_PM, NON_PM, 1000L ),
+
+A("Cat's Claw",		DAGGER,
+	(SPFX_RESTR|SPFX_DCLAS), SPFX_WARN, S_RODENT,
+	PHYS(5,7),	NO_DFNS,	NO_CARY,	0, A_NEUTRAL, NON_PM, NON_PM, 1000L ),
+#endif /* NEWHON_ARTIFACTS */
+
 #ifdef TOURIST
 A("Whisperfeet",               SPEED_BOOTS,
 	(SPFX_RESTR|SPFX_STLTH|SPFX_LUCK), 0, 0,

include/config.h

@@ -408,6 +408,7 @@ typedef unsigned char	uchar;
 #define FIREARMS	/* KMH -- Guns and bullets */
 #define EATEN_MEMORY	/* WAC -- Remember which monsters have been eaten */
 #define STEED		/* The ability to ride monsters */
+#define NEWHON_ARTIFACTS /* 5lo: Reviving these artifacts from SLASH 6 */
 
 /* Roles */
 #define DWARF		/* Dwarf Patch, Osku Salerma (osku@iki.fi) */

src/artifact.c

@@ -1382,15 +1382,23 @@ int dieroll; /* needed for Magicbane and vorpal blades */
        }
       /* END OF STEPHEN WHITE'S NEW CODE */
 
-#if 0
-	   if (otmp->oartifact == ART_SCALPEL && dieroll < 5) {
+#ifdef NEWHON_ARTIFACTS /* 5lo: Reviving these from Slash 6 */
+	   if (otmp->oartifact == ART_MOUSER_S_SCALPEL && dieroll < 10) { /* Credits to BarclayII for Mouser's Scalpel rename and mechanic */
 		/* faster than a speeding bullet is the Gray Mouser... */
 		pline("There is a flurry of blows!");
+		int time = 1;
 		/* I suppose this could theoretically continue forever... */
 		while (dieroll < 5) {
 		   *dmgptr += rnd(8) + 1 + otmp->spe;
+		   time++;l
 		   dieroll = rn2(11);
 		}
+		if (time == 1)
+			pline_The("rapier strikes %s!", hittee);
+		else if (time == 2)
+			pline_The("rapier strikes %s twice!", hittee);
+		else
+			pline_The("rapier strikes %s %d times in a row!", hittee, time); 
 	   }
 	   if (otmp->oartifact == ART_HEARTSEEKER && dieroll < 3) {
 		/* this weapon just sounds nasty... yuck... */
@@ -1401,7 +1409,7 @@ int dieroll; /* needed for Magicbane and vorpal blades */
 		}
 		*dmgptr += rnd(6)+rnd(6)+rnd(6)+rnd(6)+4;
 	   }
-#endif
+#endif /* NEWHON_ARTIFACTS */
 
 
 	/* We really want "on a natural 20" but Nethack does it in */