Cleanup inventory management, tweak dragging start

2026-05-15 10:35:17 +01:00
parent 17f8707f62
commit e56a953c9b
23 changed files with 70 additions and 180 deletions
@@ -352,7 +352,6 @@ pushYouOutFromWalls u
 muzzleWallCheck :: World -> Creature -> Creature
 muzzleWallCheck w cr = fromMaybe cr $ do
    invid <- w ^? hud . manObject . hiRootSelectedItem . unNInt
--revise1    invid <- cr ^? crManipulation . manObject . imRootSelectedItem . unNInt
    loc <-
        invIndents ((\k -> w ^?! cWorld . lWorld . items . ix k) <$> _crInv cr)
            ^? ix invid . _2