Make equipment indices point to item indices

2025-08-26 23:57:02 +01:00
parent 49efe62910
commit 06d50ac752
18 changed files with 108 additions and 522 deletions
@@ -298,9 +298,8 @@ drawRBOptions cfig w = fold $ do
    maybebottomborder a b curpos
        | a == b - 1 = listCursorChooseBorderScale 0 1 (bc South) curpos 0 white 7 1
        | otherwise = mempty
-    otheritem j = fromMaybe "" $ do
-        itid <- you w ^? crInv . ix j
-        itype <- w ^? cWorld . lWorld . items . ix itid . itType
+    otheritem (NInt j) = fromMaybe "" $ do
+        itype <- w ^? cWorld . lWorld . items . ix j . itType
        return $ itemBaseName itype

 equipAllocString :: EquipmentAllocation -> String