From: Eric S. Raymond <esr@thyrsus.com>
Date: Wed, 6 Apr 2022 11:49:42 +0000 (-0400)
Subject: Address Gitlanb issue #54: listen command not showing all sounds
X-Git-Tag: 1.10~9
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=46e1595cb0b6711d13ad8db0d610aadbe98a4036;hp=e0b9aeda6e03a79fbe8029eb4fa63f39692cdef7;p=open-adventure.git

Address Gitlanb issue #54: listen command not showing all sounds
---

diff --git a/actions.c b/actions.c
index d5cb410..09f7836 100644
--- a/actions.c
+++ b/actions.c
@@ -925,12 +925,13 @@ static phase_codes_t light(verb_t verb, obj_t obj)
 static phase_codes_t listen(void)
 /*  Listen.  Intransitive only.  Print stuff based on object sound proprties. */
 {
+    bool soundlatch = false;
     vocab_t sound = locations[game.loc].sound;
     if (sound != SILENT) {
         rspeak(sound);
         if (!locations[game.loc].loud)
             rspeak(NO_MESSAGE);
-        return GO_CLEAROBJ;
+        soundlatch = true;
     }
     for (obj_t i = 1; i <= NOBJECTS; i++) {
         if (!HERE(i) ||
@@ -949,9 +950,10 @@ static phase_codes_t listen(void)
         rspeak(NO_MESSAGE);
         if (i == BIRD && mi == BIRD_ENDSTATE)
             DESTROY(BIRD);
-        return GO_CLEAROBJ;
+        soundlatch = true;
     }
-    rspeak(ALL_SILENT);
+    if (!soundlatch)
+	rspeak(ALL_SILENT);
     return GO_CLEAROBJ;
 }
 
diff --git a/tests/defeat.chk b/tests/defeat.chk
index 4e57e33..055ea6a 100644
--- a/tests/defeat.chk
+++ b/tests/defeat.chk
@@ -3014,6 +3014,8 @@ There is an enormous oyster here with its shell tightly closed.
 You can hear the murmuring of the beanstalks and the snoring of the
 dwarves.
 
+Even though it's an oyster, the critter's as tight-mouthed as a clam.
+
 > blast rod
 
 There is a loud explosion, and a twenty-foot hole appears in the far