Detecter Flood texte

[CrazyCat]

Déjà, il te manque le \ avant le 1.
Et la solution est:

tclcopier

set NFD "50"
 
bind pubm - "*" repet_test
proc repet_test { nick uhost hande chan text } {
   if { [regexp -all -- "\(.\)\(\\1\{$::NFD\,\}\)" $text] } {
      putserv "PRIVMSG $chan :Dis donc $nick, tu as bloqué ta touche ?"
   }
   return
}