Work on pickup and putdown of inventory items

2021-11-30 16:44:33 +00:00
parent 27b1a6da9e
commit 3754627e0d
10 changed files with 42 additions and 60 deletions
@@ -358,6 +358,7 @@ data Item
        , _itEquipPict :: Creature -> Int -> SPic
        , _itIdentity :: ItemIdentity
        , _itID :: Maybe Int
+        , _itInvSize    :: Int
        , _itInvDisplay :: Item -> [String]
        , _itInvColor :: Color
        , _itEffect :: ItEffect
@@ -372,6 +373,7 @@ data Item
        , _itEquipPict :: Creature -> Int -> SPic
        , _itIdentity :: ItemIdentity
        , _itID :: Maybe Int
+        , _itInvSize    :: Int
        , _itInvDisplay :: Item -> [String]
        , _itInvColor :: Color
        , _itCurseStatus :: CurseStatus
@@ -385,6 +387,7 @@ data Item
        , _itEffect :: ItEffect
        , _itID :: Maybe Int
        , _itZoom :: ItZoom
+        , _itInvSize    :: Int
        , _itInvDisplay :: Item -> [String]
        , _itInvColor :: Color
        , _itCurseStatus :: CurseStatus
@@ -403,6 +406,7 @@ data Item
        , _itIdentity   :: ItemIdentity
        , _itID         :: Maybe Int
        , _itAttachment :: ItAttachment
+        , _itInvSize    :: Int
        , _itInvDisplay :: Item -> [String]
        , _itInvColor   :: Color
        , _itEffect     :: ItEffect
@@ -410,7 +414,7 @@ data Item
        , _itCurseStatus :: CurseStatus
        , _itDimension  :: ItemDimension
        }
-     | NoItem
+--     | NoItem

 data ItemDimension = ItemDimension
    { _itDim    :: Point3 -- length width height