some update

src/Main.hs

@@ -46,7 +46,7 @@ main = do
         , windowConfigs   =
           [ ( 0
             , SDL.defaultWindow
-              { SDL.windowInitialSize     = V2 1280 720
+              { SDL.windowInitialSize     = V2 1920 1080
               , SDL.windowResizable       = True
               , SDL.windowGraphicsContext = SDL.OpenGLContext SDL.defaultOpenGL
                 { SDL.glProfile = SDL.Core SDL.Normal 3 3
@@ -65,7 +65,7 @@ pre ud = do
   threadCtx <- SDL.glCreateContext awwindow
   SDL.glMakeCurrent awwindow (acContext $ head $ glContext ad)
   let Subsystems w _ k j _ = subsystems ud
-  _ <- partSubscribe w (fitViewport (1280/720))
+  _ <- partSubscribe w (fitViewport (1920/1080))
   _ <- partSubscribe w (exitOnWindowClose ud)
   _ <- partSubscribe k toggleFullScreen
   _ <- partSubscribe k (quitGame ud)

src/MainGame/WorldMap.hs

@@ -624,7 +624,7 @@ drawMap ud = do
             then T.pack (show $ clearance $ V.head room)
             else "0"
             )
-          <> "\nFor answers call 6350"
+          -- <> "\nFor answers call 6350"
           )
 
 drawTile