Cleanup item combinations, prevent creation of identical items

2022-06-08 21:20:52 +01:00
parent ebf4594bea
commit 91f426e56e
5 changed files with 33 additions and 83 deletions
@@ -93,7 +93,7 @@ subInventoryDisplay subinv cfig w = case subinv of
        , fromMaybe mempty $ do
            i <- mi
            cpos  <- combinePoss  w !? i
-            strs  <- fmap (snd . snd) (combineItemListYou' w !? i)
+            strs  <- fmap (fst . snd) (combineItemListStringInfo w !? i)
            return $ listTextPicturesAtOffset (subInvX + 150) 60 cfig cpos $ map (color red . text) strs
        , fromMaybe mempty $ do
            i <- mi