noMissionsScreen :: StateT SpaceState IO ()
noMissionsScreen = do
  state <- State.get
  let plname = playername state
  pressAnyKeyScreen 
    (liftIO $ makeTextScreen (100, 500) 
        [(gamefont state, Color4 1.0 0.2 0.2 1.0, 
           intercalate "\n" ["\"Dear " ++ plname ++ ", we currently have",
                             "no tasks for you.\"",
                             "",
                             "",
                             "Press any key to continue"])]
        (return ()))
noMissionsScreen :: StateT SpaceState IO ()
noMissionsScreen = do
  state <- State.get
  let plname = playername state
  pressAnyKeyScreen 
    (liftIO $ makeTextScreen (100, 500) 
        [(gamefont state, Color4 1.0 0.2 0.2 1.0, 
           intercalate "\n" ["\"Dear " ++ plname ++ ", we currently have",
                             "no tasks for you.\"",
                             "",
                             "",
                             "Press any key to continue"])]
        (return ()))
noMissionsScreen = do
  state <- State.get
  let plname = playername state
  pressAnyKeyScreen 
    (liftIO $ makeTextScreen (100, 500) 
        [(gamefont state, Color4 1.0 0.2 0.2 1.0, 
           intercalate "\n" ["\"Dear " ++ plname ++ ", we currently have",
                             "no tasks for you.\"",
                             "",
                             "",
                             "Press any key to continue"])]
        (return ()))