Remove _crInvEquipped

2024-12-19 12:44:34 +00:00
parent 80b03e6544
commit 11b5ef74c5
8 changed files with 21 additions and 17 deletions
@@ -54,14 +54,15 @@ swapInvItems f i w = fromMaybe w $ do
    updatecreature k =
        (crInv %~ IM.safeSwapKeys i k)
            . (crManipulation . manObject . imSelectedItem .~ k)
-            . (crInvEquipped %~ IM.safeSwapKeys i k)
+--            . (crInvEquipped %~ IM.safeSwapKeys i k)
            . swapSite i k
            . swapSite k i
            . (crInvHotkeys %~ IM.safeSwapKeys i k)
            . swapSite' i k
            . swapSite' k i
    cr = you w
-    swapSite a b = case cr ^? crInvEquipped . ix a of
+    --swapSite a b = case cr ^? crInvEquipped . ix a of
+    swapSite a b = case cr ^? crInv . ix a . itLocation . ilEquipPosition . _Just of
        Just epos -> crEquipment . ix epos .~ b
        Nothing -> id
    swapSite' a b = case cr ^? crInvHotkeys . ix a of