Hack machine pistol whir down when no ammo

src/Dodge/Data/Item/Params.hs

@@ -5,6 +5,7 @@
 
 module Dodge.Data.Item.Params where
 
+import Sound.Data
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -20,6 +21,7 @@ data ItemParams
     | WarmTime
         { _wTime :: Int
         , _isWarming :: Bool
+        , _coolSound :: Maybe SoundID
         }
     | ItemParamID {_itParamID :: Int}