Fix bug where new sounds didn't overplay old sounds

src/Dodge/Data.hs

@@ -211,23 +211,27 @@ data ItemPos
     | OnFloor { _itFlID :: Int }
 data Item 
     = Weapon
-        { _itName :: String
-        , _wpMaxAmmo :: Int
-        , _wpLoadedAmmo :: Int
-        , _wpAmmo :: Ammo
-        , _wpReloadTime :: Int
+        { _itName        :: String
+        , _wpMaxAmmo     :: Int
+        , _wpLoadedAmmo  :: Int
+        , _wpAmmo        :: Ammo
+        , _wpReloadTime  :: Int
         , _wpReloadState :: Int
-        , _wpReloadType :: ReloadType
-        , _itUseRate :: Int
-        , _itUseTime :: Int
-        , _itUse     :: Item -> Creature -> World -> World
+        , _wpReloadType  :: ReloadType
+        , _wpMaxWarmUp      :: Int
+        , _wpCurWarmUp      :: Int
+        , _wpMaxCoolDown    :: Int
+        , _wpCurCoolDown    :: Int
+        , _itUseRate     :: Int
+        , _itUseTime     :: Int
+        , _itUse         :: Item -> Creature -> World -> World
         , _itUseModifiers :: [(Item -> Creature -> World -> World) -> Item -> Creature -> World -> World]
         , _itLeftClickUse :: Maybe (Creature -> Int -> World -> World)
-        , _wpSpread :: Float
-        , _wpRange :: Float
-        , _itHammer :: HammerPosition
-        , _itFloorPict :: Picture
-        , _itMaxStack :: Int
+        , _wpSpread     :: Float
+        , _wpRange      :: Float
+        , _itHammer     :: HammerPosition
+        , _itFloorPict  :: Picture
+        , _itMaxStack   :: Int
         , _itAmount :: Int
         , _itAimingSpeed :: Float
         , _itAimingRange :: Float