Allow for more sounds to be playing at once

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