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
@@ -141,6 +141,7 @@ defaultEquipment = Equipment
    , _itZoom    = defaultItZoom
    , _itInvColor = yellow
    , _itInvDisplay = \it -> [_itName it]
+    , _itInvSize = 1
    , _itDimension = defaultItemDimension
    }
 defaultItZoom :: ItZoom
@@ -148,6 +149,7 @@ defaultItZoom = ItZoom 20 0.2 1
 defaultConsumable :: Item
 defaultConsumable = Consumable
    { _itIdentity = Generic
+    , _itInvSize = 1
    , _itCurseStatus = Uncursed
    , _itName = "genericConsumable"
    , _itMaxStack = 9
@@ -195,6 +197,7 @@ defaultFlIt = FlIt {_flItRot=0,_flIt = defaultIt, _flItPos = V2 0 0, _flItID = 0
 defaultIt :: Item
 defaultIt = Consumable
    { _itIdentity = Medkit25
+    , _itInvSize = 1
    , _itDimension = defaultItemDimension
    , _itCurseStatus = Uncursed
    , _itName = "defaultIt"