AUTOVOICE AVEC POSSIBILITÉ DE BLACK-LISTER

on *:JOIN:*:{
  if ($chan == $readini(chanVoice.ini,$chan,avoice) && $address($nick,2) != $readini(chanVoiceBlack.ini,$address($nick,2),novoice)) mode $chan +v $nick
}

dialog avoice {
  title "Gestion de l'autovoice"
  size -1 -1 359 195
  option pixels
  tab "Gestion des salons", 1, 4 2 351 189
  button "Supprimer", 4, 148 61 66 23, tab 1
  text "Ajoutez ou supprimer un salon de la liste permet de voicer toutes les personnes qui y rentrent. N'oubliez pas de vous appliquer les modes +h, +o, +a ou +q pour que ce script fonctionne.", 5, 221 28 129 139, tab 1
  button "Ajouter", 7, 149 35 66 22, tab 1
  edit "#", 3, 14 33 127 22, tab 1
  list 13, 14 59 125 116, tab 1 size
  tab "Gestion de la liste noire", 2
  text "La liste noire permet d'empécher certaines personnes de profiter de l'avoice sur les salons configurés. Les membres listés ne seront voicés sur un aucun salon ou ce script est actif.", 8, 234 33 109 143, tab 2
  button "Ajouter", 11, 163 35 66 23, tab 2
  button "Supprimer", 12, 164 62 65 22, tab 2
  edit "*!*@", 6, 16 35 140 20, tab 2
  list 14, 16 57 140 110, tab 2 size
}

on *:dialog:avoice:init:0:{
  %i = 1
  while ( %i <= $ini(chanVoice.ini,0)) {
    did -a  $dname 13 $ini(chanVoice.ini,%i)
    inc %i
  }
  %i = 1
  while ( %i <= $ini(chanVoiceBlack.ini,0)) {
    did -a  $dname 14 $ini(chanVoiceBlack.ini,%i)
    inc %i
  }
}
on *:dialog:avoice:sclick:*:{
  if ($did == 7) { 
    //writeini -n chanVoice.ini $did(3) avoice $did(3)
    did -r  $dname 13
    did -r  $dname 3
    %i = 1
    while ( %i <= $ini(chanVoice.ini,0)) {
      did -a  $dname 13 $ini(chanVoice.ini,%i)
      inc %i
    }
  }
  if ($did == 4) { 
    //remini -n chanVoice.ini $did(13).seltext
    did -r  $dname 13
    %i = 1
    while ( %i <= $ini(chanVoice.ini,0)) {
      did -a  $dname 13 $ini(chanVoice.ini,%i)
      inc %i
    }
  }


  if ($did == 11) { 
    //writeini -n chanVoiceBlack.ini $did(6) novoice $did(6)
    did -r  $dname 14
    did -r  $dname 6
    %i = 1
    while ( %i <= $ini(chanVoiceBlack.ini,0)) {
      did -a  $dname 14 $ini(chanVoiceBlack.ini,%i)
      inc %i
    }
  }
  if ($did == 12) { 
    //remini -n chanVoiceBlack.ini $did(14).seltext
    did -r  $dname 14
    %i = 1
    while ( %i <= $ini(chanVoiceBlack.ini,0)) {
      did -a  $dname 14 $ini(chanVoiceBlack.ini,%i)
      inc %i
    }
  }
}