Generalise weapon character modes

src/Dodge/Creature/Action/UseItem.hs

@@ -10,13 +10,7 @@ import Control.Lens
 import Data.Maybe (fromMaybe)
 
 useItem :: Int -> World -> World
-useItem n w = case (_crInv cr IM.! _crInvSel cr) ^? itHammer of
-                            Just HammerUp -> equippedItemEffect n $ setHammerDown w
-                            Just NoHammer -> equippedItemEffect n w
-                            _             -> setHammerDown w
-    where 
-        cr = _creatures w IM.! n
-        setHammerDown = creatures . ix n . crInv . ix (_crInvSel cr) . itHammer .~ HammerDown
+useItem n w = equippedItemEffect n w
 
 tryUseItem :: Int -> World -> World
 tryUseItem cid w = case w ^? creatures . ix cid of
@@ -25,8 +19,9 @@ tryUseItem cid w = case w ^? creatures . ix cid of
 
 equippedItemEffect :: Int -> World -> World
 equippedItemEffect n w = itemEffect n it w
-    where c = (_creatures w IM.! n)
-          it = _crInv c IM.! _crInvSel c
+  where 
+    c = (_creatures w IM.! n)
+    it = _crInv c IM.! _crInvSel c
 
 itemEffect :: Int -> Item -> World -> World
 itemEffect n (Consumable {_cnEffect=eff }) w = fromMaybe w $ fmap (rmSelectedInvItem n) $ eff n w