BLACKLIST PSEUDOS/MASKS

;Remote de blacklist (aide/1ère utilisation => taper: !bl IMPÉRATIVEMENT),
;kick+ban d'après le mask(*!*@*) ou pseudo fourni sur les chans où l'on est @, exceptions possibles, fonctionne ON JOIN
;alt+R puis ouvrir un nouveau fichier dans son script pour la charger
;utilisable silencieusement à travers d'autres scripts avec les alias /addbl /delbl /setbl /clearbl
;les hosts/pseudos sont stockés dans le fichier configuration.ini, créé automatiquement.

#bl on
;-Partie détection:
on !@*:join:#:{ 
  if ( $readini(configuration.ini,blackliste,status) == on && $ini(configuration.ini,bliste,0) ) {
    var %k = 1
    while ( %k <= $ini(configuration.ini,bliste,0) ) { 
      if ( $ini(configuration.ini,bliste,%k) iswm $address($nick,5) ) {
        var %chansbl = $wildtok($readini(configuration.ini,bliste,$$ini(configuration.ini,bliste,%k)),[*],1,32)
        if ( $+([,$chr(35),]) isin %chansbl || ( $+(-,$chan) !isin %chansbl && $+([,-) isin %chansbl ) || ( $chan isin %chansbl && $+(-,$chan) !isin %chansbl ) ) {
          kick # $nick $gettok($readini(configuration.ini,bliste,$$ini(configuration.ini,bliste,%k)),1,91)
          mode # -e+b $$ini(configuration.ini,bliste,%k) $$ini(configuration.ini,bliste,%k)
        }
      }
      inc %k
    }
  }
}
;-Partie gestion de la liste:
on *:input:*: {
  if ( $1 == !bl ) { haltdef | bl $2 | if ( !$isfile(configuration.ini) ) { clearbl } }
  elseif ( $1 == !listbl ) { haltdef | listbl $2- }
  elseif ( $1 == !clearbl ) { haltdef | set %noticebl on | clearbl }
  elseif ( $1 == !setbl ) { haltdef | set %noticebl on | setbl $2 }
  elseif ( $1 == !addbl ) { haltdef | set %noticebl on | addbl $2- }
  elseif ( $1 == !delbl ) { haltdef | set %noticebl on | delbl $2- }
}
alias setbl {
  if ( !$istok(on off echo pv,$1,32) ) { .notice $me Syntaxe erronée, taper !bl }
  elseif ( $1 == $readini(configuration.ini,blackliste,status) || $1 == $readini(configuration.ini,blackliste,mode) ) { if ( %noticebl == on ) { .notice $me C'est déjà le cas! } } 
  elseif ( $istok(on off,$1,32) ) { writeini configuration.ini blackliste status $1 | if ( %noticebl == on ) { .notice $me blacklist $replace($readini(configuration.ini,blackliste,status),on,activée!,off,désactivée) } }
  else { writeini configuration.ini blackliste mode $1 | if ( %noticebl == on ) { .notice $me blacklist $replace($readini(configuration.ini,blackliste,mode),pv,avec liste en pv,echo,avec liste en echo) } } 
  unset %noticebl 
}
alias clearbl {
  .remini configuration.ini blackliste
  .remini configuration.ini bliste
  .fopen -on configuration configuration.ini
  .fwrite -n configuration [blackliste]
  .fwrite -n configuration status=on
  .fwrite -n configuration masks=
  .fwrite -n configuration mode=pv
  .fwrite -n configuration [bliste]
  .fclose configuration
  if ( %noticebl == on ) { .notice $me Blacklist effacée (et sur "activée", liste en "pv"), fichier réinitialisé. }
  unset %noticebl
}
alias addbl {
  if ( !$2 || $chr(35) isin $2 ) { if ( %noticebl == on ) { .notice $me il faut au moins un mask et une raison (taper !bl pour revoir la syntaxe) } }
  else {
    var %mask = $1 , %raison = $2- 
    if ( !$wildtok(%raison,[*],1,32) ) { var %raison = $+(%raison,$chr(32),[,$chr(35),]) }
    if ( $chr(33) !isin %mask && $chr(64) !isin %mask ) { var %mask = $+(%mask,!*@*) }
    if ( !$istok($readini(configuration.ini,blackliste,masks),%mask,32) ) { writeini configuration.ini blackliste masks $+($readini(configuration.ini,blackliste,masks),$chr(32),%mask) | if ( %noticebl == on ) { .notice $me Mask %mask ajouté avec succès } }
    elseif ( %noticebl == on ) { .notice $me ban modifié avec succès }
    writeini configuration.ini bliste %mask %raison $asctime(HH:nn-dd/mm/yy)
  }
  unset %noticebl
}
alias delbl { 
  var %black = 1
  while ( %black <= $numtok($1-,32) ) {
    if ( $istok($readini(configuration.ini,blackliste,masks),$gettok($1-,%black,32),32) ) { var %blackyes = $+(%blackyes,$chr(32),$gettok($1-,%black,32)), %while = on }
    elseif ( $istok($readini(configuration.ini,blackliste,masks),$+($gettok($1-,%black,32),!*@*),32) ) { var %blackyes = $+(%blackyes,$chr(32),$+($gettok($1-,%black,32),!*@*)), %while = on } 
    elseif ( $gettok($1-,%black,32) isnum $+(1-,$ini(configuration.ini,bliste,0)) ) { var %blackyes = $+(%blackyes,$chr(32),$ini(configuration.ini,bliste,$gettok($1-,%black,32))), %while = on }
    elseif ( $chr(45) isin $1 ) { 
      var %inf = $gettok($gettok($1-,%black,32),1,45)
      var %sup = $gettok($gettok($1-,%black,32),2,45)
      if ( %inf isnum $+(1-,$ini(configuration.ini,bliste,0)) && %sup isnum $+(1-,$ini(configuration.ini,bliste,0)) && %inf < %sup ) {
        var %i = %inf
        while ( %i <= %sup ) {
          var %blackyes = $+(%blackyes,$chr(32),$ini(configuration.ini,bliste,%i))
          inc %i
        }
        var %j = 1
        var %while = on
      }
    }
    else { var %blackno = $+(%blackno,$chr(32),$gettok($1-,%black,32)) }

    inc %black
  }
  if ( %while = on ) {
    var %j = 1
    while ( %j <= $numtok(%blackyes,32) ) {
      remini configuration.ini bliste $gettok(%blackyes,%j,32)
      if ( $remtok($readini(configuration.ini,blackliste,masks),$gettok(%blackyes,%j,32),1,32) ) { writeini configuration.ini blackliste masks $remtok($readini(configuration.ini,blackliste,masks),$gettok(%blackyes,%j,32),1,32) }
      else { write -wmasks=* configuration.ini masks= }
      inc %j
    }
  }
  if ( %blackno ) { var %blackno = $+(Mask(s) absent(s) de la liste:,$chr(32),%blackno) }
  if ( %blackyes ) { var %blackyes = $+(Entrée(s) supprimée(s):,$chr(32),%blackyes) }
  if ( !%blackyes && !%blackno && %noticebl == on ) { .notice $me syntaxe error / mask absent, taper !bl }
  elseif ( %noticebl == on ) { .notice $me %blackno . %blackyes }
  unset %noticebl
}  
alias -l listbl {
  var %inf = $gettok($1-,1,45), %sup = $gettok($1-,2,45)
  if ( !$1 || ( ( $chr(45) isin $1 ) && ( %inf isnum $+(1-,$ini(configuration.ini,bliste,0)) && %sup isnum $+(1-,$ini(configuration.ini,bliste,0)) && %inf < %sup ) ) ) { 
    if ( !%inf || !%sup ) { var %inf = 1 | var %sup = $ini(configuration.ini,bliste,0) }
    var %i = %inf
    if ( $readini(configuration.ini,blackliste,mode) == pv ) { 
      .notice $me $+(12,$calc( %sup - %inf + 1 ),$chr(32),entrées (en pv))
      .msg $me Blacklist: $replace($readini(configuration.ini,blackliste,status),on,10activée,off,4désactivée) avec $+(12,$calc( %sup - %inf + 1 ),$chr(32),entrées sur,$chr(32),$ini(configuration.ini,bliste,0),,:) $+([,%inf,-,%sup,])
      while ( %i <= %sup ) {
        .msg $me $+(%i,$str($chr(160),$calc( 3 - $len(%i) )),$chr(3),12,$$ini(configuration.ini,bliste,%i),$chr(160),$chr(160),$chr(3),03,$readini(configuration.ini,bliste,$$ini(configuration.ini,bliste,%i)))
        inc %i
      }
    }
    else {
      echo -a > Blacklist: $replace($readini(configuration.ini,blackliste,status),on,10activée,off,4désactivée) avec $+(12,$calc( %sup - %inf + 1 ),$chr(32),entrées sur,$chr(32),$ini(configuration.ini,bliste,0),,:) $+([,%inf,-,%sup,])
      while ( %i <= %sup ) {
        echo -a $+(%i,$str($chr(160),$calc( 3 - $len(%i) )),$chr(3),12,$$ini(configuration.ini,bliste,%i),$chr(160),$chr(160),$chr(3),03,$readini(configuration.ini,bliste,$$ini(configuration.ini,bliste,%i)))
        inc %i
      }
    }
  }
  elseif ( $istok($readini(configuration.ini,blackliste,masks),$1,32) ) { .notice $me $1 : $readini(configuration.ini,bliste,$1) }
  elseif ( $istok($readini(configuration.ini,blackliste,masks),$+($1,!*@*),32) ) { .notice $me $+($1,!*@*) : $readini(configuration.ini,bliste,$+($1,!*@*)) }
  elseif ( $1 == quick ) { .notice $me $+(12,$ini(configuration.ini,bliste,0),) entrée(s) - $readini(configuration.ini,blackliste,masks) }
  else { .notice $me syntaxe error / mask absent, taper !bl }
}
alias -l bl {
  if ( !$1 ) { .notice $me 12,00Blacklist par UtopiK $replace($readini(configuration.ini,blackliste,status),on,10activée!,off,05désactivée) $replace($readini(configuration.ini,blackliste,mode),pv,avec liste en 12pv,echo,avec liste en 12echo) | .notice $me Liste des commandes: 6!addbl !delbl 6!listbl !clearbl 6!setbl $chr(124) Pour plus d'aide: !bl commande Ex: !bl addbl (et non: !bl !addbl) $chr(124) Pour désactiver taper: 06!setbl off $chr(124) En cas de bug, faire: !clearbl } 
  elseif ( $1 == addbl ) { .notice $me Commande pour ajouter/modifier une entrée dans la blacklist: 6!addbl *bob* malpoli ! $chr(124) Autre exemple, avec une exception de chan (marchera sur les chans #chan1 et #chan2 uniquement): 6!addbl *!*@*blabla.net pas de proxy merci [#chan1,#chan2] $chr(124) Un dernier (blacklist sur tous les chans, sauf #chan1 et #chan2): 6!addbl *!grosboulet@* persona non grata [-#chan1,-#chan2] $chr(124) Eviter les crochets [] dans le motif }
  elseif ( $1 == delbl ) { .notice $me Commande pour supprimer des entrées dans la blacklist: 6!delbl *bob* $chr(124) 6!delbl *bob* *!*@*blabla.net $chr(124) Vous pouvez utiliser des numéros: 6!delbl 1 (supr la 1ère entrée de la liste) ou 6!delbl 1 14 32 ou même des plages: 6!delbl 2-12 }
  elseif ( $1 == listbl ) { .notice $me Commande pour lister les entrées dans la blacklist: 6!listbl ou pour en avoir juste une partie: 6!listbl 6-10 ou une version en une ligne sans détails: 6!listbl quick $chr(124) Pour voir si un mask est dans la blacklist: 6!listbl *bob* }
  elseif ( $1 == clearbl ) { .notice $me Commande pour effacer la blacklist et réparer le fichier de la liste en cas de bug: 6!clearbl }
  elseif ( $1 == setbl ) { .notice $me Commande pour configurer la blacklist. Activer/désactiver: 6!setbl on ou 6!setbl off (elle n'est pas effacée) $chr(124) Liste en écho ou par pv: 6!setbl pv ou 6!setbl echo }
  else { .notice $me Commande inconnue / Mauvaise syntaxe - rééssayer !bl }
}

;tant que vous toucherez avec les yeux, y'a des chances que ça marche :) - il est inutil de remplacer mon pseudo par le votre ci dessus.
#bl end