GESTIONNAIRE DE PRIVÉ

alias prive {
  dialog -m prive prive
}
dialog prive {
  title "Gestionnaire de privé"
  size -1 -1 148 90
  option dbu
  text "A l'ouverture d'un privé, que faire ?", 1, 0 3 147 8, center
  radio "Anti-Privé", 2, 3 15 39 10
  radio "Répondeur", 3, 53 15 41 10
  radio "Rien du tout", 4, 103 15 50 10
  text "Message de l'anti-pv:", 5, 3 27 63 8
  edit %gprive.anti , 6, 3 37 143 10 , autohs
  text "Message du répondeur :", 7, 4 49 65 8
  edit %gprive.repondeur , 8, 4 58 142 10 , autohs
  button "Valider", 12, 57 75 37 12, flat , ok
  menu "?", 13
  item "Aide sur les fonctions", 14, 13
  item "A propos", 15, 13
}
On *:dialog:prive:menu:*:{
  if ($did == 14) { dialog -m aide_fonctions aide_fonctions }
  elseif ($did == 15) { dialog -m apropos apropos }
}
On *:dialog:prive:sclick:*:{
  if ($did == 2) { set %gprive anti }
  elseif ($did == 3) { set %gprive repondeur }
  elseif ($did == 4) { set %gprive off }
  elseif ($did == 12) { set %gprive.anti $did(6) | set %gprive.repondeur $did(8) }
}
On *:dialog:prive:init:0:{
  if (%gprive == anti) { did -c prive 2 }
  elseif (%gprive == repondeur) { did -c prive 3 }
  elseif (%gprive == off) { did -c prive 4 }
}
dialog aide_fonctions {
  title "Aide sur les fonctions"
  size -1 -1 152 115
  option dbu
  text "Voici les explications des fonctions du gestionnaire de privé :", 1, 3 3 146 10
  text "Anti-Privé: A l'ouverture d'un privé un message (que vous pouvez configurer)  est envoyé a l'user concerné , le privé est automatiquement fermé et un message vous informe dans la fenêtre de statut de la réception du privé", 2, 3 17 147 28
  text "Répondeur: A l'ouverture d'un privé un message (que vous pouvez configurer) est envoyé à l'user concerné et un message vous informe sur la fenêtre active de la réception d'un privé", 3, 4 51 147 28
  text "Rien du tout: Rien du tout, le privé s'ouvre et rien ne se passe", 4, 4 84 140 15
  button "Fermer", 5, 57 101 37 12, flat , cancel
}
dialog apropos {
  title "A propos"
  size -1 -1 152 48
  option dbu
  text "Gestionnaire de privé creer par [Xee]", 1, 4 3 146 11
  text "Contact: xee@alien-irc.org ou sur le serveur irc.alien-irc.org", 2, 4 16 145 11
  button "Fermer", 3, 58 30 37 12, flat cancel
}
On *:open:?:{
  if (%gprive == anti) {
    msg $nick $replace(%gprive.anti,@nick,$nick)
    closemsg $nick
    echo 4--> $nick te parle en privé: " $+ $1- $+ "
  }
  elseif (%gprive == repondeur) {
    msg $nick $replace(%gprive.repondeur,@nick,$nick)
    echo -a 4--> $nick te parle en privé: " $+ $1 $+ "
}
}