Cleanup

src/Dodge/Creature/State.hs

@@ -159,7 +159,7 @@ applyPastDamages cr w
 -- a map updating all inventory items
 updateInv :: Creature -> World -> World
 updateInv cr = cWorld . lWorld . creatures . ix (_crID cr) . crInv . each 
-    . itUse . heldDelay %~ useDelayUpdate
+    . itUse . heldDelay . warmTime %~ (max 0 . subtract 1)
 
 -- a loop going over all inventory items
 invSideEff :: Creature -> World -> World
@@ -426,9 +426,6 @@ setRBCreatureTargeting cr w ituse
         cpos <- w ^? cWorld . lWorld . creatures . ix cid . crPos
         Just $ hasLOS cpos (_crPos cr) w
 
-useDelayUpdate :: UseDelay -> UseDelay
-useDelayUpdate = ( warmTime %~ decreaseToZero)
-
 --updateAutoRecharge :: Item -> Item
 --updateAutoRecharge it = case it ^? itUse . leftConsumption of
 --    Just (AutoRecharging l m t p)