The word "zorkmid" was hard-coded in format strings all

over the place.

Often they would use
	"%ld zorkmid%s", amt, plur(amt)
but not consistently, so some of the hard-coded usage
could result in "1 zorkmids"

This adds the function
	currency(long)
to return the name of the currency, either plural
or singular depending on the argument passed to it.
That eliminates the need for the extra %s in the
format string and the use of the plur() macro.

src/vault.c

@@ -763,13 +763,13 @@ paygd()
 #endif
 
 	if (u.uinvault) {
-	    Your("%ld zorkmid%s goes into the Magic Memory Vault.",
+	    Your("%ld %s goes into the Magic Memory Vault.",
 #ifndef GOLDOBJ
 		u.ugold,
-		plur(u.ugold));
+		currency(u.ugold));
 #else
 		umoney,
-		plur(umoney));
+		currency(umoney));
 #endif
 	    gx = u.ux;
 	    gy = u.uy;