Remove left click to equip items

2022-02-17 23:09:08 +00:00
parent c0dcb4a5ec
commit c614a3a655
4 changed files with 10 additions and 7 deletions
@@ -48,12 +48,12 @@ useLeftItem cid w

 useLeftItem' :: Int -> World -> World
 useLeftItem' cid w = case cr ^? crInv . ix crinvsel . itUse of
-    Just EquipUse{} -> w
-        & lSelHammerPosition .~ HammerDown
-        & case _lSelHammerPosition w of
-            HammerUp -> creatures . ix cid %~ toggleEquipmentAt crinvsel
-            _ -> id
-    Just LeftUse {_lUse = f} -> f cr crinvsel (w & creatures . ix cid . crLeftInvSel ?~ crinvsel)
+--    Just EquipUse{} -> w
+--        & lSelHammerPosition .~ HammerDown
+--        & case _lSelHammerPosition w of
+--            HammerUp -> creatures . ix cid %~ toggleEquipmentAt crinvsel
+--            _ -> id
+--    Just LeftUse {_lUse = f} -> f cr crinvsel (w & creatures . ix cid . crLeftInvSel ?~ crinvsel)
    _ -> case _crLeftInvSel cr of
        Just invid -> case _itUse $ _crInv cr IM.! invid of
            LeftUse {_lUse = f}  -> f cr invid w