Improve scope zooming

2022-06-05 00:19:44 +01:00
parent 512bc4c1ab
commit 8e73203db3
9 changed files with 41 additions and 77 deletions
@@ -132,8 +132,9 @@ sniperRifle = elephantGun
    & itParams . gunBarrels .~ SingleBarrel 0
    & itUse . useAim . aimZoom .~ defaultItZoom {_itZoomMax = 0.5, _itZoomMin = 0.5}
    & itUse . heldScroll  .~ zoomLongGun
-    & itScope   .~ ZoomScope (V2 0 0) 0 1 False
+    & itScope   .~ ZoomScope (V2 0 0) 0 1 0.5 False
    & itTargeting .~ targetLaser
+    & itUse . useAim . aimZoom .~ defaultItZoom {_itZoomFac = 1}
 machineGun :: Item
 machineGun = bangRod
    & itName .~ "MACHINEGUN"