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
@@ -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