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

src/Dodge/Item/Craftable.hs

@@ -17,6 +17,6 @@ pipe = Craftable
         $ onLayer FlItLayer $ polygon $ map toV2 [(-3,-3),(-3,3),(3,3),(3,-3)]
     , _itEquipPict = \_ _ -> mempty
     , _itID = Nothing
-    , _itInvDisplay = _itName
+    , _itInvDisplay = (:[]) . _itName
     , _itInvColor = green
     }

src/Dodge/Item/Weapon/BulletGuns.hs

@@ -257,6 +257,7 @@ miniGun = defaultAutoGun
     , _itEquipPict = pictureWeaponAim miniGunPictItem
     , _itTweaks = defaultBulletSelTweak
     , _itInvSize = 2
+    , _itInvDisplay = \it -> basicWeaponDisplay it ++ ["    COLD"]
     } & itDimension . muzzleLength .~ 15
   where
     recoilAmount = 5

src/Dodge/Item/Weapon/InventoryDisplay.hs

@@ -11,8 +11,8 @@ import Data.Maybe
 import Data.Sequence
 import Control.Lens
 {- | Displays the item name, ammo if loaded, and any selected '_itCharMode'.  -}
-basicWeaponDisplay :: Item -> String
-basicWeaponDisplay it = midPadL 10 ' ' thename (' ' : thenumber) ++ theparam
+basicWeaponDisplay :: Item -> [String]
+basicWeaponDisplay it = [midPadL 10 ' ' thename (' ' : thenumber) ++ theparam]
   where 
     thename  = _itName it
     thenumber = case it ^? itConsumption of