onActualArrival :: String -> Int -> [String] -> StateT SpaceState IO ()
onActualArrival alleg pts str = do
  state <- State.get
  let txt = intercalate "\n" str
  modify $ modAvailMission (const Nothing)
  modify $ modAllegAttitudes $ modAttitude (+pts) alleg
  modify $ modPlMissions $ removeMission alleg
  pressKeyScreen 
    (liftIO $ makeTextScreen (100, 500) 
        [(gamefont state, Color4 1.0 0.2 0.2 1.0, txt)]
        (return ())) SDLK_RETURN
onActualArrival :: String -> Int -> [String] -> StateT SpaceState IO ()
onActualArrival alleg pts str = do
  state <- State.get
  let txt = intercalate "\n" str
  modify $ modAvailMission (const Nothing)
  modify $ modAllegAttitudes $ modAttitude (+pts) alleg
  modify $ modPlMissions $ removeMission alleg
  pressKeyScreen 
    (liftIO $ makeTextScreen (100, 500) 
        [(gamefont state, Color4 1.0 0.2 0.2 1.0, txt)]
        (return ())) SDLK_RETURN
onActualArrival alleg pts str = do
  state <- State.get
  let txt = intercalate "\n" str
  modify $ modAvailMission (const Nothing)
  modify $ modAllegAttitudes $ modAttitude (+pts) alleg
  modify $ modPlMissions $ removeMission alleg
  pressKeyScreen 
    (liftIO $ makeTextScreen (100, 500) 
        [(gamefont state, Color4 1.0 0.2 0.2 1.0, txt)]
        (return ())) SDLK_RETURN