broken large box wording change

> When you try to #force a large box or chest whose lock is already broken from a
> previous #force, the game tells you "There is a broken large box here, but its
> lock is already broken." It's minor, but this implies that the box being broken
> is separate from the lock being broken (as well as that the box itself *can* be
> broken).

change the wording to "lock-damaged box" and suppress
", but its lock is aleady broken" when "lock-damaged box" has
already been displayed.

(Nobody particularly likes the wording "lock-damaged box" either, but at least
it seems less misleading)

doc/fixes36.1

@@ -609,6 +609,8 @@ when clairvoyance lets you move the cursor to examine the map (if it occurs
 prevent Mjollnir from being auto-quivered if it's been thrown without return
 	and then picked back up while quiver slot is empty
 plural of "fox" is not "foxen"
+change wording from "broken chest" to "lock-damaged chest" and suppress #force
+	", but its lock is already broken" when lock-damaged was already shown
 
 
 Platform- and/or Interface-Specific Fixes

src/lock.c

@@ -548,9 +548,18 @@ doforce()
     xlock.box = (struct obj *) 0;
     for (otmp = level.objects[u.ux][u.uy]; otmp; otmp = otmp->nexthere)
         if (Is_box(otmp)) {
-            if (otmp->obroken || !otmp->olocked) {
+            if (otmp->obroken) {
-                There("is %s here, but its lock is already %s.", doname(otmp),
+                There("is %s here%s.", doname(otmp),
-                      otmp->obroken ? "broken" : "unlocked");
+                      /* The displayed name will have already been prefixed
+                       * with "lock-damaged" if otmp->lknown is already set
+                       * so suppress the additional notification about the
+                       * lock in that case. */
+                      !otmp->lknown ? ", but its lock is already broken" : "");
+                otmp->lknown = 1;
+                continue;
+            } else if (!otmp->olocked) {
+                There("is %s here, but its lock is already unlocked.",
+                      doname(otmp));
                 otmp->lknown = 1;
                 continue;
             }

src/objnam.c

@@ -998,7 +998,7 @@ unsigned doname_flags;
             /* 3.6.0 used "unlockable" here but that could be misunderstood
                to mean "capable of being unlocked" rather than the intended
                "not capable of being locked" */
-            Strcat(prefix, "broken ");
+            Strcat(prefix, "lock-damaged ");
         else if (obj->olocked)
             Strcat(prefix, "locked ");
         else