ban sur sur message de quit

[CrazyCat]

Je pense qu'il existe des TCL d'anti-spam qui font ça, mais sinon c'est assez facile à réaliser, par exemple:

tclcopier

set nospam(delay) 60
bind part - "#% *" nospam:check
proc nospam:check {nick uhost handle chan {msg ""}} {
   if { $nick == $::botnick } { return 0; }
   if { [string first "http" [string tolower $msg]] >= 0 } {
      newchanban $chan $uhost $::botnick "Part spam" $::nospam(delay)
   }
   return 0
}

Voila le principe, à toi de voir si ça peut t'aider :)