Tweak scrolling, move onto reloading

2023-01-07 23:50:54 +00:00
parent d4122b2d6f
commit f8d9b54586
7 changed files with 27 additions and 35 deletions
@@ -14,7 +14,7 @@ import Dodge.Item.Weapon.ZoomScope
 doHeldScroll :: HeldScroll -> Float -> Creature -> World -> World
 doHeldScroll hs = case hs of
    HeldScrollDoNothing -> const . const id
-    HeldScrollZoom -> overYourItem (const . zoomLongGun)
+    HeldScrollZoom -> overYourItem (const . setZoomScopeChange)
    HeldScrollCharMode{} -> overYourItem $ \x _ -> itUse . heldScroll . hsCharMode %~ cycleSignum x
  where
    overYourItem f x cr w = w & cWorld . lWorld . creatures . ix 0 . crInv . ix (crSel $ you w) %~ f x cr