Proxy - Clones

[CrazyCat]

Tu peux modifier mon script que fedora a copié ici:

tclcopier

bind join - * flooder:join
 
proc flooder:join {nick uhost handle channel} {
   set ident [lindex [split $uhost @] 0]
   if {[regexp "^\[A-Za-z\]\[\\d]\{4\}\$" $ident]} {
      putquick "mode $channel +b [maskhost [lindex [split $uhost @] 1]]"
      newchanban $channel [maskhost [lindex [split $uhost @] 1]] Flooder "Pas de flooders ici!!!" 60
   }
}