Continue tweaking sound

2021-09-12 20:33:33 +01:00
parent 51a85bd1ec
commit 72657294d1
89 changed files with 373 additions and 517 deletions
@@ -70,7 +70,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) wp slideDoorS (Just 1) $ dm w
+                        = soundContinue (WallSound i) wp slideDoorS (Just 1) $ dm w
            | otherwise = dm w
          where 
            wp = fst $ _wlLine (_walls w IM.! i)