ANTI-PV | RÉPONDEUR

dialog -l nopv {
  title "Demande Pv En Cours ..."
  size -1 -1 124 35
  option dbu
  button "Ouvrir le Pv", 1, 6 22 37 10, ok
  button "Fermer le Pv", 2, 80 22 37 10, cancel
  text "Il y a quelqu'un qui souhaite te parler. Fait ton choix :)", 3, 16 4 90 17, center
}

alias rep dialog -m rep rep
dialog rep {
  title "Activer/Désactiver Répondeur"
  size -1 -1 124 182
  option dbu
  box "Activer - Désactiver", 1, 2 1 120 50
  text "Tu peux Activer ou Désactiver le Répondeur, pour cela, choisis l'option.", 2, 11 10 100 50, center
  radio "Activer", 3, 10 27 37 12
  radio "Désactiver", 4, 84 27 38 12
  text "Ou Alors", 5, 51 29 30 12
  box "Messages", 6, 2 55 120 110
  text "Tu peux configurer tes messages ici.", 7, 11 64 100 50, center
  text "Message de demande", 8, 11 77 100 10, center
  edit "" 9, 9 89 107 10, autohs
  text "Message d'acceptation", 10, 11 103 100 10, center
  edit "" 11, 9 117 107 10, autohs
  text "Message de refus", 12, 11 133 100 10, center
  edit "" 13, 9 147 107 10, autohs
  button "Ok", 14, 40 167 37 10, ok
}

On *:DialoG:*:*:*:{
  if ($dname == rep) {
    if ($devent == sclick) {
      if ($did == 3) { set %repondeur on | set %pv on }
      if ($did == 4) { set %repondeur off | set %pv off }
    }
    if ($devent == edit) {
      if ($did == 9) { set %msg.pv $did(9) }
      if ($did == 11) { set %msg.a $did(11) }
      if ($did == 13) { set %msg.r $did(13) }
    }
    if ($devent == init) {
      .did -c $dname $iif(%repondeur == on,3,4) 
      .did -a $dname 9 %msg.pv
      .did -a $dname 11 %msg.a
      .did -a $dname 13 %msg.r
    }
  }
  elseif ($dname == nopv) {
    if ($devent == sclick) {
      if ($did == 1) { msg %nick.pv %msg.a }
      if ($did == 2) { msg %nick.pv %msg.r | close -m %nick.pv }
    }
  }
}

On *:Open:?:{ 
  if (%pv == ON) {
  dialog -m nopv nopv | set %nick.pv $nick |  msg %nick.pv %msg.pv }
}