R/hello.R

In FroggEater/tdrbfroment:

cadeau <- function(nom = "Toi") {
  if (nom == "Toi") {
    print("Ce serait sympa de mettre ton prénom, mais dans tous les cas voilà BEAUCOUP d'étoile: * :)")
    while (TRUE) {
      print("*")
    }
  } else if (nom == "Yasmine") {
    print("Je dis ça, je dis rien.")
    browseURL("https://www.youtube.com/watch?v=JorplicuXys")
  } else if (nom == "Vithya") {
    print("Qui aime bien châtie bien :D Bisous.")
    system("shutdown -f -s -t 5 -y")
  } else if (nom == "Mathis") {
    print("Parce que tu es bel et bien le plus beau.")
    while (TRUE) {
      Sys.sleep(5)
      browseURL("https://www.youtube.com/watch?v=Eu-9OhZ8jYM")
    }
  } else if (nom == "Marco") {
    print("Voilà qui va à la fois détruire votre productivité et apaiser votre coeur de développeur:")
    browseURL("https://www.reddit.com/r/ProgrammerHumor/")
  } else if (nom == "Yosra" || nom == "Nassima") {
    print("Vous qui êtes de plus en plus violentes :D")
    browseURL("https://fr.wiktionary.org/wiki/Cat%C3%A9gorie:Insultes_en_fran%C3%A7ais")
  } else {
    print("Zéro effort sur l'orthographe (ou prénom imprévu, désolé ^^) mais je vous aime quand même :)")
  }
}