Split UseItem module

src/Dodge/CreatureAction/UseItem.hs

@@ -0,0 +1,35 @@
+module Dodge.CreatureAction.UseItem
+    where
+import Dodge.Data
+
+import Dodge.Inventory
+
+import qualified Data.IntMap as IM
+
+import Control.Lens
+import Data.Maybe (fromMaybe)
+
+useItemContinuous :: Int -> World -> World
+useItemContinuous n w = case (_crInv cr IM.! _crInvSel cr) ^? itHammer of
+                            Just HammerUp -> useItem1 n $ setHammerDown w
+                            Just NoHammer -> useItem1 n w
+                            _             -> setHammerDown w
+    where 
+        cr = _creatures w IM.! n
+        setHammerDown = creatures . ix n . crInv . ix (_crInvSel cr) . itHammer .~ HammerDown
+
+tryUseItem :: Int -> World -> World
+tryUseItem cid w = case w ^? creatures . ix cid of
+    Just cr -> useItem2 cid (_crInv cr IM.! _crInvSel cr) w
+    Nothing -> w
+
+useItem1 :: Int -> World -> World
+useItem1 n w = useItem2 n it w
+    where c = (_creatures w IM.! n)
+          it = _crInv c IM.! _crInvSel c
+
+useItem2 :: Int -> Item -> World -> World
+useItem2 n (Consumable {_cnEffect=eff }) w = fromMaybe w $ fmap (rmInvItem n) $ eff n w
+useItem2 n (Weapon {_wpFire=eff}) w = eff n w
+useItem2 n (Throwable {_twFire = eff}) w = eff n w
+useItem2 _ _ w = w