toMessage e (GameUpdate (Teleported      m p))          | isPlayer m = Just $ "You feel disoriented."
toMessage e (GameUpdate (Teleported      m p))          | isPlayer m = Just $ "You feel disoriented."
toMessage e (GameUpdate (Teleported      m p))          | isPlayer m = Just $ "You feel disoriented."