Commit before changing creature inventory to a list

2021-11-30 13:41:51 +00:00
parent 4d21c0f31a
commit 184c0c09c1
4 changed files with 5 additions and 0 deletions
@@ -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)