Pour bannir un pseudo sur son "extension" (par exemple, [ZZZzzzZz] dans MenzAgitat[ZZZzzzZz]), tu peux utiliser ceci :
Bien sur, il faut que les variables $chan et $nick existent et soient définies pour que cela fonctionne
Edit: Ah par contre, sans le set au début, le script renverra une erreur si il n'est pas possible de trouver l' "extension" (car la regexp n'est pas matchée)
NOTE 2: Le truc affiché dans les balises TCL est faux !
Apparament un des carractères passe mal, entrainant l'apparition de ce \
tcl
set resultat ""
regexp -nocase {^(.*?)([\^\]'`\[_\-\\\{\}]+.*)$} $nick truc truc resultat
newchanban $chan "*[set resultat]!*@*" $::botnick "message de ban"
Bien sur, il faut que les variables $chan et $nick existent et soient définies pour que cela fonctionne
Edit: Ah par contre, sans le set au début, le script renverra une erreur si il n'est pas possible de trouver l' "extension" (car la regexp n'est pas matchée)
NOTE 2: Le truc affiché dans les balises TCL est faux !
Apparament un des carractères passe mal, entrainant l'apparition de ce \