Refactor sounds

2021-09-09 14:58:07 +01:00
parent be7b2d2cd7
commit 70c97f5367
26 changed files with 113 additions and 162 deletions
@@ -65,7 +65,7 @@ addSoundToDoor i pld hwd (x:ys) = f x : ys
      where
        g dm w 
            | dist wp pld > 2 && dist wp hwd > 2 
-                        = soundFrom (WallSound i) doorSound 1 0 $ dm w
+                        = soundFrom (WallSound i) wp doorSound (Just 1) $ dm w
            | otherwise = dm w
          where 
            wp = snd $ _wlLine (_walls w IM.! i)