Add whine to hover crit

src/Dodge/Creature/Update.hs

@@ -1,6 +1,8 @@
 {-# LANGUAGE LambdaCase #-}
 module Dodge.Creature.Update (updateCreature) where
 
+import Dodge.Base.You
+import Control.Monad
 import Color
 import qualified Data.IntMap.Strict as IM
 import qualified Data.List as List
@@ -60,11 +62,27 @@ updateLivingCreature cr =
         AutoCrit {} -> crUpdate cid
         SwarmCrit {} -> crUpdate cid
         HoverCrit {} -> \w ->
-            crUpdate cid . performActions cid $
+            crUpdate cid . performActions cid . hoverCritHoverSound cr $
                 over (cWorld . lWorld . creatures . ix cid) (hoverCritInternal w) w
   where
     cid = cr ^. crID
 
+hoverCritHoverSound :: Creature -> World -> World
+hoverCritHoverSound cr w = fromMaybe w $ do
+    guard $ d < 100
+    return $
+        soundContinueVol
+            (0.5 * (1 - 0.01 * d))
+            (CrSound cid)
+            cxy
+            buzz1S
+            (Just 2)
+            w
+  where
+    cxy = cr ^. crPos . _xy
+    d = max 0 (dist (you w ^. crPos . _xy) cxy - 100)
+    cid = cr ^. crID
+
 {- | this seems to work, but I am not sure about the ordering:
  previously, the movement was updated before the ai in order to correctly set the oldpos.
  This should be made more sensible: should the movement side effects apply to