Add concept of GameRoom, check viewing distance based on rooms

2021-09-02 23:24:29 +01:00
parent 9d2f42dbc9
commit c69af7a5f4
30 changed files with 295 additions and 151 deletions
@@ -50,7 +50,7 @@ wasdWithAiming w speed i cr
    isAiming = _posture (_crStance cr) == Aiming
    mouseDir = case w ^? creatures . ix i . crInv . ix (_crInvSel (_creatures w IM.! i))
                              . itAttachment of
-        Just (Just ItScope{_scopePos = p}) -> normalizeAngle $ argV
+        Just ItScope{_scopePos = p} -> normalizeAngle $ argV
                                $ p +.+ 2 / _cameraZoom w 
                                    *.* rotateV (_cameraRot w) (_mousePos w)
        _ -> normalizeAngle $ argV (_mousePos w) + _cameraRot w