Start removing heldDelay records

src/Dodge/Data/Item.hs

@@ -50,6 +50,7 @@ data Item = Item
     , _itAmmoSlots :: IM.IntMap AmmoType
     , _itParams :: ItemParams
     , _itScroll :: ItemScroll
+    , _itTimeLastUsed :: Int
     }
 
 data ItemScroll

src/Dodge/Data/Item/HeldDelay.hs

@@ -14,24 +14,11 @@ data UseDelay -- should just be Delay
     = NoDelay
     | FixedRate
         { _rateMax :: Int
-        , _rateTimeLastUsed :: Int -- set to be _lClock when used, starts at 0
         }
---    | VariableRate
---        { _rateMax :: Int
---        , _rateTime :: Int
---        , _rateMaxMax :: Int
---        , _rateMinMax :: Int
---        }
     | WarmUpNoDelay
-        { _warmTime :: Int
-        , _warmMax :: Int
+        { _warmMax :: Int
         , _warmSound :: SoundID
         }
---    | ChargingRate
---        { _chargeTime :: Int
---        , _chargeMax :: Int
---        , _chargeSound :: Maybe SoundID
---        }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 makeLenses ''UseDelay

src/Dodge/Data/Item/Params.hs

@@ -19,6 +19,7 @@ data ItemParams
     | NozzleAngle {_nzAngle :: Float}
     | VolleyUnfiredBarrels {_unfiredBarrels :: [Int]}
     | AlteRifleSwitch {_alteRifleSwitch :: Int}
+    | WarmTime {_wTime :: Int}
 
 data ShrinkGunStatus = FullSize | Shrunk
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)