Allow for more sounds to be playing at once

data/dodge.config.json

@@ -1,10 +1,6 @@
 {
   "_debug_booleans": [
-    "Show_ms_frame",
-    "Enable_debug",
-    "Cr_status",
-    "Show_walls_near_point_you",
-    "Show_zone_circ"
+    "Show_ms_frame"
   ],
   "_debug_view_clip_bounds": "NoRoomClipBoundaries",
   "_gameplay_rotate_to_wall": true,

src/Dodge/HeldUse.hs

@@ -444,7 +444,7 @@ applySoundCME itm cr = fromMaybe id $ do
     return $
         if x > 0
             then soundContinue (CrWeaponSound cid 0) (_crPos cr) soundid (Just x)
-            else soundMultiFrom [CrWeaponSound cid j | j <- [0 .. 5]] (_crPos cr) soundid Nothing
+            else soundMultiFrom [CrWeaponSound cid j | j <- [0 .. 16]] (_crPos cr) soundid Nothing
   where
     cid = _crID cr
 

src/Dodge/SoundLogic/LoadSound.hs

@@ -25,7 +25,7 @@ loadSounds = do
     putStrLn $ show y <> " channels assigned to group 1"
     fmap IM.fromList $ mapM loadSound $ zip [0..] soundPathList
   where
-    nchans = 64::Int
+    nchans = 128::Int
 
 loadMusic :: IO (IM.IntMap Mix.Music)
 loadMusic = do