ANTI PV

alias pv {
  dialog -m antipv antipv
}

dialog antipv {
  title "Répondeur"
  size -1 -1 87 86
  option dbu
  box "Anti Pv", 1, 3 1 82 70
  text "[-Quand vous recevez un Pv-]", 2, 8 9 110 8
  check "Fermer le Pv", 3, 8 17 50 10
  check "Envoyer un message", 4, 8 26 67 10
  text "[-Message à envoyé-]", 5, 8 37 110 8
  edit %antipvmsg, 6, 8 47 71 10, autohs
  radio "Activer", 7, 8 59 30 10
  radio "Désactiver", 8, 44 59 33 10
  button "[-OK-]", 9, 3 73 81 10, multi ok
}


on *:dialog:antipv:sclick:9:{ set %antipv $did(6) }
on *:dialog:antipv:*:*:{
  if ($devent == sclick) && ($did(3).state == 1) { set %antipvclose on }
  if ($devent == sclick) && ($did(3).state == 0) { set %antipvclose off }
  if ($devent == sclick) && ($did(7).state == 1) { .enable #antipv }
  if ($devent == sclick) && ($did(8).state == 1) { .disable #antipv }
  if ($devent == sclick) && ($did(4).state == 1) { .set %antipvmess on }
  if ($devent == sclick) && ($did(4).state == 0) { .set %antipvmess off }
  if ($devent == init) && ($group(#antipv) == on) { did -c antipv 7 }
  if ($devent == init) && ($group(#antipv) == off) { did -c antipv 8 }
  if ($devent == init) && (%antipvmess == on) { did -c antipv 4 }
  if ($devent == init) && (%antipv != $null) { did -ra antipv 6 %antipv }
  if ($devent == init) && (%antipvclose == on) { did -c antipv 3 }
}

#antipv on
On 1:OPEN:?:{
  if (%antipvclose == on) { close -m $nick }
  if (%antipvmess == on) { msg $nick %antipv }
  halt
}
#antipv end