Remove loop dependency on loading dodge sounds

src/Dodge/Creature/Inanimate.hs

@@ -6,6 +6,8 @@ import Dodge.Default
 import Dodge.CreatureState
 import Dodge.LightSources
 
+import Dodge.WorldEvent.Sound
+
 import Dodge.Creature.Update hiding (CRUpdate)
 
 import Picture
@@ -30,7 +32,7 @@ updateLamp :: Int -> CRUpdate
 updateLamp i = unrandUpdate handleLS internalUpdate
   where
     handleLS cr w 
-        | _crHP cr < 0 = w & lightSources %~ IM.delete i
+        | _crHP cr < 0 = mkSoundBreakGlass w & lightSources %~ IM.delete i
         | otherwise    = w & lightSources . ix i . lsPos .~ _crPos cr
     internalUpdate cr 
         | _crHP cr < 0 = Nothing