Cleanup

2022-02-21 22:42:19 +00:00
parent f626fce105
commit ff84363a13
11 changed files with 79 additions and 99 deletions
@@ -58,8 +58,8 @@ wasdWithAiming w speed i cr
    isAiming = _posture (_crStance cr) == Aiming
    isReloading = _posture (_crStance cr) == Reloading
    mouseDir = case w ^? creatures . ix i . crInv . ix (_crInvSel (_creatures w IM.! i))
-                              . itAttachment of
-        Just ItScope{_scopePos = p} -> normalizeAngle $ argV
+                              . itScope . scopePos of
+        Just p -> normalizeAngle $ argV
                                $ p +.+ 2 / _cameraZoom w 
                                    *.* rotateV (_cameraRot w) (_mousePos w)
        _ -> normalizeAngle $ argV (_mousePos w) + _cameraRot w