Fix rb scrolling

2022-12-31 22:29:12 +00:00
parent beac123dd2
commit 0dc9a09723
11 changed files with 44 additions and 37 deletions
@@ -75,13 +75,11 @@ updateKeyInGame uv sc InitialPress = case sc of
    ScancodeP -> pauseGame uv
    ScancodeF -> over uvWorld youDropItem uv
    ScancodeM -> over uvWorld toggleMap uv
-    ScancodeR -> over uvWorld (crToggleReloading (you w)) uv
+    ScancodeR -> over (uvWorld . cWorld . lWorld . creatures . ix 0) crToggleReloading uv
    ScancodeT -> over uvWorld testEvent uv
    ScancodeX -> uv & uvWorld %~ toggleTweakInv
    ScancodeC -> over uvWorld toggleCombineInv uv
    _ -> uv
-  where
-    w = _uvWorld uv
 updateKeyInGame uv _ _ = uv

 pauseGame :: Universe -> Universe