Move targeting strings, broke targeting usage

2023-05-20 00:02:50 +01:00
parent 2d3b76dfd4
commit 6053bb059b
4 changed files with 48 additions and 9 deletions
@@ -20,17 +20,16 @@ invSelectionItem cr i it =
        , _siIsSelectable = True
        , _siColor = col
        , _siOffX = 0
-        , _siOffY = 0
+        , _siOffY = yoff
        , _siPayload = ()
        }
  where
    anyhotkey = maybe [] ((' ':) .hotkeyToString) (cr ^? crInvHotkeys . ix i)
    anyequippos = maybe [] (rightPad 8 ' ' . (' ':) . eqPosText) (cr ^? crInvEquipped . ix i)
    col = _itInvColor it
-    pics =  case _itCurseStatus it of
-        UndroppableIdentified -> itemDisplay cr it
--        _ | cr ^? crManipulation . manObject . inInventory . ispItem == Just i -> selectedItemDisplay cr it
-        _ -> itemDisplay cr it
+    (yoff,pics) =  case _itCurseStatus it of
+        UndroppableIdentified -> itemDisplayOffset cr it
+        _ -> itemDisplayOffset cr it

 hotkeyToString :: Hotkey -> String
 hotkeyToString x = case x of