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
@@ -8,6 +8,7 @@ import Geometry
 pipe :: Item
 pipe = Craftable
    { _itIdentity = Generic
+    , _itInvSize = 1
    , _itDimension = defaultItemDimension
    , _itCurseStatus = Uncursed
    , _itName = "PIPE"
@@ -25,6 +25,7 @@ import Control.Lens
 grenade :: Item
 grenade = Throwable
    { _itName = "GRENADE " ++ show fuseTime
+    , _itInvSize = 1
    , _itDimension = defaultItemDimension
    , _itCurseStatus = Uncursed
    , _itIdentity = Grenade