ANTI CTCP

on 1:load: {
  echo Bravo tu as réussit à mettre en marche mon anti-ctcp
  echo il ne te reste plus qu'à le configurer convenablement
  echo n'oublie pas que, si tu veux le reconfigurer, il faut faire /antictcp
  dialog -m anti-ctcp anti-ctcp
}
Dialog Anti-Ctcp {
  size -1 -1 500 160  
  title "Anti CTCP"
  box "Message", 1, 10 15 480 50
  text "Message de reply au CTCP:",2 ,15 35 150 50,center
  Edit "Pas de CTCP",3 ,160 30 320 25, autohs
  Box "Activation", 4, 10 70 480 50
  radio "Activer le script", 5, 25 85 150 30, pusch
  radio "Désactiver le script", 6, 250 85 150 30, pusch
  button "Valider",10 ,200 130 100 22, ok
}
menu menubar {
  Add-on
  .Anti CTCP
  ..Démarrer:/dialog -m anti-ctcp anti-ctcp
  ..arreter:/unset %Ctcp
}
on 1:dialog:anti-ctcp:sclick:*: {
  if ($did == 5) set %ctcp on 
  if ($did == 6) unset %ctcp
  set %reponse $did(3)
}
ctcp 1:*: {
  if ($1 == DCC) {
halt
}
if ($nick != $me) {  
    if (%Ctcp == on) {
      anti-ctcp
      halt
    }
  }
}
alias anti-ctcp {
  if (%reponse) {
    .timer 1 5 .notice $nick %reponse
  }  
  echo $nick à tenté de vous envoyer un CTCP à $time
}
alias antictcp {
  dialog -m anti-ctcp anti-ctcp 
}