Fix aiming creature direction when zooming

2022-06-05 00:51:53 +01:00
parent 8e73203db3
commit 5e144b1cd5
3 changed files with 14 additions and 9 deletions
@@ -4,7 +4,7 @@ import LensHelp

 zoomLongGun :: Float -> Creature -> Item -> Item
 zoomLongGun x _
-    | x > 0 = itScope . scopeZoomChange %~ (max 10 . (+3))
-    | x < 0 = itScope . scopeZoomChange %~ (min (-10) . subtract 3)
+    | x > 0 = itScope . scopeZoomChange %~ (max 15 . (+4))
+    | x < 0 = itScope . scopeZoomChange %~ (min (-15) . subtract 4)
    | otherwise = id
 --zoomLongGun x _ = itScope . scopeZoomChange .~ round (signum x)