Start work on crafting/combinations

src/Dodge/Creature/Action.hs

@@ -10,7 +10,7 @@ module Dodge.Creature.Action
 --    , startReloadingWeapon
     , blinkAction
     , sizeSelf
-    , crAutoReload
+--    , crAutoReload
     , copyInvItemToFloor
     , youDropItem
     , pickUpItem
@@ -144,18 +144,6 @@ performAction cr w ac = case ac of
         (imps , _)        -> (imps, Just $ DoReplicatePartial sac (t-1) sac)
     NoAction -> ([],Nothing)
 
-{- | Start reloading if clip is empty. -}
-crAutoReload :: Creature -> Creature
-crAutoReload cr = case cr ^? ptrItConsumption' . ammoLoaded of
-    Just 0 | _posture (_crStance cr) /= Aiming
-            -> cr & ptrItConsumption . reloadState .~ (strictify reloadT)
-                  & ptrItConsumption . ammoLoaded  %~ (`fromMaybe` maxA)
-    _      -> cr
-  where 
-    ptrItConsumption = crInv . ix (_crInvSel cr) . itConsumption
-    ptrItConsumption' = crInv . ix (_crInvSel cr) . itConsumption
-    reloadT = cr ^? ptrItConsumption' . reloadTime
-    maxA    = cr ^? ptrItConsumption' . ammoMax
 {- | Teleport a creature to the mouse position -}
 blinkAction 
     :: Creature