Add more positional sound

2021-04-06 20:42:53 +02:00
parent be3c3339ec
commit 9a86d03fae
4 changed files with 20 additions and 13 deletions
@@ -35,8 +35,11 @@ updateLamp :: Int -> CRUpdate
 updateLamp i = unrandUpdate handleLS internalUpdate
  where
    handleLS cr w 
-        | _crHP cr < 0 = explosionFlashAt (_crPos cr) $ mkSoundBreakGlass w & lightSources %~ IM.delete i
-        | otherwise    = w & lightSources . ix i . lsPos .~ _crPos cr
+        | _crHP cr < 0 = explosionFlashAt cPos 
+                        $ mkSoundBreakGlass cPos w & lightSources %~ IM.delete i
+        | otherwise    = w & lightSources . ix i . lsPos .~ cPos
+      where
+        cPos = _crPos cr
    internalUpdate cr 
        | _crHP cr < 0 = Nothing
        | otherwise    = Just $ doDamage cr