Tweak walk cycle parameters

2021-06-09 00:01:56 +02:00
parent fb7a90df71
commit 3371e2ae79
16 changed files with 112 additions and 81 deletions
@@ -91,13 +91,14 @@ wheelEvent y w = case (_carteDisplay w, _inventoryMode w) of
        | rbDown -> w & carteZoom %~ min 0.75 . max 0.05 . ((1+y*0.1) * )
        | otherwise -> w & selLocation %~ (`mod` numLocs) . (+ yi)
    (_, TopInventory)
-        | rbDown -> fromMaybe (closeObjScrollDir y w) $ (yourItem w ^? itScrollUp) 
-            <*> pure (_crInvSel (you w))
+        | rbDown -> fromMaybe (closeObjScrollDir y w) $ (yourItem w ^? itScroll) 
+            <*> pure y
+            <*> pure (you w)
            <*> pure w
        | lbDown -> w & cameraZoom +~ y
        | invKeyDown -> swapInvDir yi $ dirInvPos yi w
        | otherwise -> dirInvPos yi w
-    (_, TweakInventory) 
+    (_, TweakInventory)
        | invKeyDown && rbDown -> w & moveYourAmmoSel yi
        | invKeyDown -> dirInvPos yi w
        | rbDown -> w & moveYourAmmoParam yi