Remove data Hammers

src/Dodge/Creature/State.hs

@@ -21,7 +21,6 @@ import Dodge.Data.DoubleTree
 import Dodge.Data.World
 import Dodge.DoubleTree
 import Dodge.Euse
-import Dodge.Hammer
 import Dodge.ItEffect
 import Dodge.Item.Grammar
 import Dodge.Item.HeldOffset
@@ -123,9 +122,7 @@ poisonSPic = over _1 $ overColSH (mixColors 0.5 0.5 green . normalizeColor)
 internalCreatureUpdate :: Creature -> World -> World
 internalCreatureUpdate cr =
     cWorld . lWorld . creatures . ix (_crID cr)
-        %~ ( --(crHammerPosition %~ moveHammerUp).
-                 updateMovement
-           )
+        %~ updateMovement
 
 {- | Drop items according to the creature state.
  TODO make sure this doesn't mess up any ItemPosition
@@ -432,10 +429,10 @@ itemUpdate = itUse %~ useUpdate
 
 useUpdate :: ItemUse -> ItemUse
 useUpdate =
-    (heldHammer %~ moveHammerUp)
+--    (heldHammer %~ moveHammerUp)
 --        . (leftHammer %~ moveHammerUp)
 --        . (leftDelay . rateTime %~ decreaseToZero)
-        . (heldDelay . warmTime %~ decreaseToZero)
+         (heldDelay . warmTime %~ decreaseToZero)
         . (heldDelay . rateTime %~ decreaseToZero)
 
 --updateAutoRecharge :: Item -> Item