set am "#romania"
set mesaj "\002(Mesaj Automat)\002"

bind join - "$am *" proc:join

proc proc:join {nick host hand chan} {
    global am mesaj

    if {![matchattr $hand X|o $am] } {

        msguser $nick $am $mesaj
    }
}


proc msguser {nick am mesaj} {

    puthelp "PRIVMSG $nick :$mesaj"
}