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
@@ -9,15 +9,16 @@ import qualified Data.Sequence as Seq

 data ItAttachment 
    = ItScope 
-        {_scopePos        :: Point2
+        {_scopePos        :: Point2 -- ^ a camera offset
        ,_scopeZoomChange :: Int
        ,_scopeZoom       :: Float 
-        ,_scopeIsCamera   :: Bool
+        ,_scopeIsCamera   :: Bool   -- ^ if the camera offset is also the center of vision
        }
    | ItFuse {_itFuseTime :: Int}
    | ItMode {_itMode :: Int}
    | ItCharMode {_itCharMode :: Seq.Seq Char }
    | ItTargetPos { _itTargetPos :: Point2 }
    | ItInt { _itInt :: Int }
+    | NoItAttachment

 makeLenses ''ItAttachment