# Указываем тут тексты приветствий в которых используем $nick и $chan. # В дальнейшем они будут заменены на ник вошедшего и канал. set realmsgs { "Hi, how are you?" "Hi $nick!" "Hello $nick, welcome to $chan" "]]] WELCOME to $chan!!!11111 ^^ ^^ [[[" "Hi [$nick], you have to pay 20$ to enter here" } bind join - * greet proc greet {nick host hand chan} { set greetmsg [lindex $::realmsgs [rand [llength $::realmsgs]]] set greetmsg [subst -nocommands $greetmsg] putserv "PRIVMSG $nick :$greetmsg" }