Continue reload removal

src/Dodge/Creature/Impulse/UseItem.hs

@@ -17,7 +17,6 @@ import Dodge.Hotkey
 import Dodge.Inventory
 import Dodge.Item.Location
 import Dodge.Luse
-import Dodge.Reloading
 import qualified IntMapHelp as IM
 
 useItemRightClick :: Creature -> World -> World
@@ -115,10 +114,10 @@ useItemLeftClick cr w = fromMaybe w $ do
         --AmmoMagUse{} -> return $ hammerTest (cWorld . lWorld . creatures . ix (_crID cr) %~ crReloadToggle)
         _ -> Nothing
   where
-    hammerTest f = case _crHammerPosition cr of
-        HammerUp -> f w & setuhamdown
-        _ -> w & setuhamdown
-    setuhamdown = cWorld . lWorld . creatures . ix (_crID cr) . crHammerPosition .~ HammerDown
+    --hammerTest f = case _crHammerPosition cr of
+    --    HammerUp -> f w & setuhamdown
+    --    _ -> w & setuhamdown
+    --setuhamdown = cWorld . lWorld . creatures . ix (_crID cr) . crHammerPosition .~ HammerDown
 
 useItemHotkey :: Int -> Int -> World -> World
 useItemHotkey crid invid w = fromMaybe w $ do