Improve item combination algorithm

src/Dodge/Data.hs

@@ -22,7 +22,9 @@ module Dodge.Data
     , module Dodge.Config.Data
     , module Dodge.Equipment.Data
     , module MaybeHelp
+    , module Dodge.Data.ItemAmount
     ) where
+import Dodge.Data.ItemAmount
 import Dodge.ShortShow
 import Dodge.Creature.State.Data
 import Dodge.Creature.Stance.Data
@@ -469,6 +471,8 @@ data Equipment = Equipment
 
 _itUseAimStance :: Item -> AimStance
 _itUseAimStance = _aimStance . _useAim . _itUse
+
+
 data ItemConsumption
     = LoadableAmmo
         { _laType  :: AmmoType
@@ -483,7 +487,7 @@ data ItemConsumption
         , _wpCharge     :: Int
         }
     | ItemItselfConsumable
-        { _itAmount   :: Int
+        { _icAmount   :: IcAmount
         }
     | NoConsumption
 data Item = Item