Add whirdown for machine pistol

src/Dodge/Data/UseDelay.hs

@@ -14,7 +14,11 @@ data ItemUseDelay -- should just be Delay
         }
     | WarmUpNoDelay
         { _warmMax :: Int
---        , _warmSound :: SoundID
+        }
+    | WarmUpCoolDown
+        { _warmStart :: Int
+        , _coolStart :: Int
+        , _coolEnd :: Int
         }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)