Commit before changing creature inventory to a list

src/Dodge/Data.hs

@@ -225,6 +225,7 @@ data Creature = Creature
     , _crMaxHP          :: Int
     , _crInv            :: IM.IntMap Item
     , _crInvSel         :: Int
+    , _crInvCapacity    :: Int
     , _crLeftInvSel     :: Maybe Int
     , _crState          :: CreatureState
     , _crCorpse         :: Picture
@@ -339,6 +340,7 @@ data Item
         , _itAttachment :: ItAttachment
         , _itID         :: Maybe Int
         , _itEffect     :: ItEffect
+        , _itInvSize    :: Int
         , _itInvDisplay :: Item -> String
         , _itInvColor   :: Color
         , _itTargeting :: Maybe (World -> Maybe Point2, Int -> Item -> Creature -> World -> Picture)

src/Dodge/Default.hs

@@ -37,6 +37,7 @@ defaultCreature = Creature
     , _crMaxHP  = 150
     , _crInv    = IM.empty
     , _crInvSel = 0
+    , _crInvCapacity = 25
     , _crLeftInvSel = Nothing
     , _crState  = defaultState
     , _crCorpse = setLayer 0 $ onLayer CorpseLayer $ color (greyN 0.5) $ circleSolid 10

src/Dodge/Default/Weapon.hs

@@ -100,6 +100,7 @@ defaultGun = Weapon
     , _itEffect = NoItEffect
     , _itInvDisplay = basicWeaponDisplay
     , _itInvColor = white
+    , _itInvSize  = 1
     , _itTargeting = Nothing
     , _itParams = NoParams
     , _itDimension = defaultItemDimension

src/Dodge/Item/Weapon/BulletGuns.hs

@@ -256,6 +256,7 @@ miniGun = defaultAutoGun
     , _itFloorPict = miniGunPictItem
     , _itEquipPict = pictureWeaponAim miniGunPictItem
     , _itTweaks = defaultBulletSelTweak
+    , _itInvSize = 2
     } & itDimension . muzzleLength .~ 15
   where
     recoilAmount = 5