Kod:
# Tcl Coder : Services
####################################
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