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

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