offerMission :: Mission -> AObject -> StateT SpaceState IO ()
offerMission mis@(MessengerMission tgt) lc = do
  state <- State.get
  let plname = playername state
  let txt = ["\"Dear " ++ plname ++ ", I welcome you to my",
            "residence. I have an important mission that",
            "needs to be taken care of by a trustworthy",
            "adventurer like yourself.", 
            "",
            "The mission requires you to deliver an",
            "important message from here to the planet",
            "of " ++ tgt ++ ".",
            "Will you accept?\" (y/n)"]
  offerMissionGeneric mis lc txt
offerMission :: Mission -> AObject -> StateT SpaceState IO ()
offerMission mis@(MessengerMission tgt) lc = do
  state <- State.get
  let plname = playername state
  let txt = ["\"Dear " ++ plname ++ ", I welcome you to my",
            "residence. I have an important mission that",
            "needs to be taken care of by a trustworthy",
            "adventurer like yourself.", 
            "",
            "The mission requires you to deliver an",
            "important message from here to the planet",
            "of " ++ tgt ++ ".",
            "Will you accept?\" (y/n)"]
  offerMissionGeneric mis lc txt
offerMission mis@(MessengerMission tgt) lc = do
  state <- State.get
  let plname = playername state
  let txt = ["\"Dear " ++ plname ++ ", I welcome you to my",
            "residence. I have an important mission that",
            "needs to be taken care of by a trustworthy",
            "adventurer like yourself.", 
            "",
            "The mission requires you to deliver an",
            "important message from here to the planet",
            "of " ++ tgt ++ ".",
            "Will you accept?\" (y/n)"]
  offerMissionGeneric mis lc txt