Allow for equipment items to set a minimum view distance

2022-06-05 01:50:18 +01:00
parent 5e144b1cd5
commit 65fcea0f50
13 changed files with 76 additions and 61 deletions
@@ -54,9 +54,7 @@ wasdWithAiming w speed cr
    isReloading = _posture (_crStance cr) == Reloading
    mouseDir = case cr ^? crInv . ix (_crInvSel cr) . itScope . scopePos of
        Just _ -> argV $ mouseWorldPos w -.- _crPos cr
--        Just p -> normalizeAngle $ argV
--             $ p +.+ 2 / _cameraZoom w *.* rotateV (_cameraRot w) (_mousePos w)
-        _ -> normalizeAngle $ argV (_mousePos w) + _cameraRot w
+        _ -> argV (_mousePos w) + _cameraRot w

 wasdM :: SDL.Scancode -> Point2
 wasdM scancode = case scancode of