Continue inventory tweak

2023-02-16 17:07:59 +00:00
parent 934dd64704
commit 4afc216b25
28 changed files with 106 additions and 94 deletions
@@ -19,7 +19,7 @@ doHeldScroll hs = case hs of
    HeldScrollCharMode{} -> overYourItem $ \x _ -> itUse . heldScroll . hsCharMode %~ cycleSignum x
  where
    overYourItem f x cr w =  fromMaybe w $ do
-        i <- cr ^? crManipulation . isel . ispItem
+        i <- cr ^? crManipulation . manObject . inInventory . ispItem
        return $ w & cWorld . lWorld . creatures . ix 0 . crInv . ix i %~ f x cr

 cycleSignum :: Float -> Seq a -> Seq a