Add looping sound, add sound to terminals

src/Dodge/Creature/Perception.hs

@@ -155,7 +155,7 @@ awakeLevelPerception cr = case _crAwakeLevel $ _crPerception cr of
 newSounds :: World -> [(Point2,Float)]
 newSounds = mapMaybe f . M.elems . _playingSounds
   where
-    f s = case _soundStatus s of
+    f s = case _playStatus $ _soundStatus s of
         JustStartedPlaying -> Just (_soundPos s, _soundVolume s)
         _ -> Nothing