#bad nicks
set badnicks  [list "test" "test1" "test2"]

#channel
set advchan "#test"

bind JOIN - * join:adv
proc join:adv { nick uhost hand chan } {
    if { $chan==$::advchan && [lsearch $::badnicks $nick]==-1} {
        puthelp "PRIVMSG $nick :Greet!"
    }
}