Fix blinking bug, shrinker and shield broken

2021-11-28 00:34:16 +00:00
parent fe02739621
commit 3e64e33232
10 changed files with 36 additions and 42 deletions
@@ -121,13 +121,14 @@ heldItemUpdate :: Item -> Item
 heldItemUpdate = invItemUpdate
    . (itUse %~ useupdate)
  where
-    useupdate = (useDelay . rateTime %~ decreaseToZero)
+    useupdate = id

 invItemUpdate :: Item -> Item
 invItemUpdate = itUse %~ useupdate
  where
    useupdate = (useHammer . hammerPosition %~ moveHammerUp)
        . (useDelay . warmTime %~ decreaseToZero)
+        . (useDelay . rateTime %~ decreaseToZero)
    moveHammerUp HammerDown     = HammerReleased
    moveHammerUp HammerReleased = HammerUp
    moveHammerUp HammerUp       = HammerUp