Keep inventory as intmap, start to allow items of different sizes

2021-11-30 15:33:15 +00:00
parent 184c0c09c1
commit 27b1a6da9e
8 changed files with 87 additions and 57 deletions
@@ -20,7 +20,7 @@ keyToken n = defaultEquipment
    , _itID = Nothing
 --    , _itZoom = defaultItZoom
    , _itInvColor = yellow
-    , _itInvDisplay = _itName
+    , _itInvDisplay = (:[]) . _itName
    }
 keyPic :: Picture
 keyPic = color green $
@@ -41,7 +41,6 @@ latchkey n = defaultEquipment
    , _itID = Nothing
 --    , _itZoom = defaultItZoom
    , _itInvColor = yellow
-    , _itInvDisplay = _itName
    }
 latchkeyPic :: Picture
 latchkeyPic = color yellow $