Kod

         # 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,108 Sunucuadı0,10800 Sunucumuza HoşGeldiniz.. "
     putserv "NOTICE $nick :0,10800 Forum Sayfamız08 varsa forum linkiniz "
     putserv "NOTICE $nick :0,10800 İyi Sohbetler Dilerim..."
        }

bind join - * join_greet