Simplify selection menu, remove overlapping

2024-09-11 16:39:56 +01:00
parent c72278f728
commit eddb313ea1
9 changed files with 167 additions and 169 deletions
@@ -77,7 +77,7 @@ combineItemListYouX = map (first $ concat) . flatLookupItems . yourInv

 combineList :: World -> [SelectionItem CombinableItem]
 combineList w = case combineList' w of
-    [] -> [SelectionInfo ["No possible combinations"] 1 False white 0 0]
+    [] -> [SelectionInfo ["No possible combinations"] 1 False white 0]
    xs -> xs

 combineList' :: World -> [SelectionItem CombinableItem]
@@ -90,7 +90,6 @@ combineList' = map f . combineListInfo
            , _siIsSelectable = True
            , _siColor = itemInvColor itm
            , _siOffX = 0
-            , _siOffY = 0
            , _siPayload = CombinableItem is itm strs
            }