Continue inventory tweak

2023-02-16 17:07:59 +00:00
parent 934dd64704
commit 4afc216b25
28 changed files with 106 additions and 94 deletions
@@ -104,7 +104,7 @@ moveTweakSel i w = case yourItem w ^? _Just . itTweaks . tweakParams of

 changeTweakParam :: Maybe Int -> Int -> World -> World
 changeTweakParam mi i w = fromMaybe w $ do
-    curpos <- you w ^? crManipulation . isel . ispItem
+    curpos <- you w ^? crManipulation . manObject . inInventory . ispItem
    paramid <- mi
    params <- yourItem w ^? _Just . itTweaks . tweakParams . ix paramid
    let x = (_tweakVal params + i) `mod` _tweakMax params