Death talks in CAPITAL LETTERS

diff --git a/include/extern.h b/include/extern.h
index f382c4f7a5ac9cbc46f5994116194bf6b2330f1f..0a1dabe770d74f3e81195a21f14cfaf0fee0b686 100644 (file)
--- a/include/extern.h
+++ b/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 *));

diff --git a/src/hacklib.c b/src/hacklib.c
index 4565f6d65c0abfbf398001f4df44a80c075b2cf8..fd4273074274c8af5dff81880d60c300147dc03c 100644 (file)
--- a/src/hacklib.c
+++ b/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;

diff --git a/src/sounds.c b/src/sounds.c
index d57904778ed80a4f287522702680aa4a31090056..3b2ee2f5693bbb2a61e2cae67ef2a120431c5694 100644 (file)
--- a/src/sounds.c
+++ b/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);
 }