# Tcl Coder : EmektaR (dktasarım)
####################################
proc join_greet {nick uhost handle channel} {
putserv "NOTICE $nick :␃7,1 Merhaba Sayın ␃4,1$nick"
putserv "NOTICE $nick :␃0,1␃08 Sunucuadı␃0,1␃08␃00 Sunucumuza HoşGeldiniz..␃ "
putserv "NOTICE $nick :␃0,1␃08␃00 Forum Sayfamız␃08 varsa forum linkiniz ␃"
putserv "NOTICE $nick :␃0,1␃08␃00 İyi Sohbetler Dilerim...␃"
}
bind join - * join_greet