Death talks in CAPITAL LETTERS

include/extern.h

@@ -800,6 +800,7 @@ E boolean FDECL(letter, (CHAR_P));
 E char FDECL(highc, (CHAR_P));
 E char FDECL(lowc, (CHAR_P));
 E char *FDECL(lcase, (char *));
+E char *FDECL(ucase, (char *));
 E char *FDECL(upstart, (char *));
 E char *FDECL(mungspaces, (char *));
 E char *FDECL(eos, (char *));

src/hacklib.c

@@ -17,6 +17,7 @@ NetHack, except that rounddiv may call panic().
 	char		highc		(char)
 	char		lowc		(char)
 	char *		lcase		(char *)
+	char *		ucase		(char *)
 	char *		upstart		(char *)
 	char *		mungspaces	(char *)
 	char *		eos		(char *)
@@ -99,6 +100,17 @@ lcase(s)		/* convert a string into all lowercase */
     return s;
 }
 
+char *
+ucase(s)		/* convert a string into all uppercase */
+    char *s;
+{
+    register char *p;
+
+    for (p = s; *p; p++)
+	if ('a' <= *p && *p <= 'z') *p &= ~040;
+    return s;
+}
+
 char *
 upstart(s)		/* convert first character of a string to uppercase */
     char *s;

src/sounds.c

@@ -901,7 +901,15 @@ register struct monst *mtmp;
 
     if (pline_msg) pline("%s %s", Monnam(mtmp), pline_msg);
     else if (mtmp->mcan && verbl_msg_mcan) verbalize1(verbl_msg_mcan);
-    else if (verbl_msg) verbalize1(verbl_msg);
+    else if (verbl_msg) {
+	if (ptr == &mons[PM_DEATH]) { /* Death talks in CAPITAL LETTERS */
+	    char tmpbuf[BUFSZ];
+	    Sprintf(tmpbuf, "%s", verbl_msg);
+	    verbalize1(ucase(tmpbuf));
+	} else {
+	    verbalize1(verbl_msg);
+	}
+    }
     return(1);
 }