Work on inventory management

src/Dodge/Creature/Test.hs

@@ -32,13 +32,13 @@ import Dodge.Data.World
 import Geometry
 
 crIsReloading :: Creature -> Bool
-crIsReloading cr = case cr ^? crInvSel . isel . iselAction of
+crIsReloading cr = case cr ^? crManipulation . isel . iselAction of
     Just ReloadAction{} -> True
     _ -> False
 
 crWeaponReady :: Creature -> Bool
 crWeaponReady cr = fromMaybe False $ do
-    i <- cr ^? crInvSel . isel . ispItem
+    i <- cr ^? crManipulation . isel . ispItem
     ic <- cr ^? crInv . ix i . itUse . heldConsumption
     return (_laLoaded ic > 0 && _laPrimed ic)
 
@@ -83,7 +83,7 @@ crInAimStance as cr =
         && mitstance == Just as
   where
     mitstance = do
-        i <- cr ^? crInvSel . isel . ispItem
+        i <- cr ^? crManipulation . isel . ispItem
         cr ^? crInv . ix i . itUse . heldAim . aimStance
 
 oneH :: Creature -> Bool