31/05/2010, 09:06
Sur un join, il te suffit de faire une proc du genre:
tcl
proc scan:pseudo {nick uhost handle chan} {
foreach user [chanlist $chan] {
if {$user == $::botnick} { continue; }
if {[regexp -- {pseudo\d+} $user]} {
putserv "PRIVMSG $user :ton message"
}
}
}