Tcl qui reconnaitrait et annoncerait les ircops entrant sur un salon précis

[Ab0miFreuX]

Je ne comprends pas le principe de ce proc, comment l'adapter à ma demande?

Code :

proc badrealname:check {from key arg} {
set realname [strlwr [ctrl:filter [string range [lindex [split $arg] end] 1 end]]]
foreach bah $::badr(list) {
    if {![string match $bah $realname]} {
      continue
    }
    newchanban $::badr(chan) "*!*@[lindex [split $arg] 3]" $::botnick $::badr(reason) $::badr(time)
    break
}
}