proc join_greet {nick uhost handle channel } { 
 putserv "privmsg $nick :2Merhaba 4 $nick 13"
 putserv "privmsg $nick :6Sana sunucumuz hakkında birascık bilgi vercem"
 putserv "privmsg $nick :4Oyun da kapışalım ;) 2#Oyun << 5gerçi senin için pek iyi oyuncu demiyolar ama neyse.:P"
 putserv "privmsg $nick :2Radyoda var unutma sakınnnnnnDinLemek için 4#Radyo << 5Radyomuzu Acıp ßeni KırmıcandanEminim :)."
 putserv "privmsg $nick :2Web Sitemizide Ziyaret EdebiLirsiniz"
 putserv "privmsg $nick :10 Bol bol sohbet etmeyi hiç unutmaaaa !"
 putserv "privmsg $nick :5 Daha bitmediiiiiiiii :P"
 putserv "privmsg $nick :2Güzel sözler duymak istiyorsan  #Sohbet Kanalında 3!soz 2yaz"
 putserv "privmsg $nick :2Sohbet Kanalında !soz5 komutunu 6 kulanarak bütün herseyin tadını çıkarabilirsin :)" 
 putserv "privmsg $nick :7Umarım yeteri kadar tanıtabilmişimdir. 6Iyi eğlenceler , hoş sohbetler ... "
 putserv "privmsg $nick :5ŞimdiLik ßye - 13Görüşmek üzere Mjuks :) "
 putserv "privmsg $nick :2SizLere en güzel, en seviyeli sohbet ortamı dileriz. " }
bind join - * join_greet  

 
bind join - * kanal:karsilama
proc kanal:karsilama {nick uhost handle chan} {
global botnick
    if {$nick == $botnick} { return 0 }
    if {[string match -nocase "#Sohbet" $chan]} {
         putquick "PRIVMSG $chan :#Sohbet kanali MESAJ 1"
         putquick "PRIVMSG $chan :#Sohbet kanali MESAJ 2"
         putquick "PRIVMSG $chan :#Sohbet kanali MESAJ 3"
     }
    if {[string match -nocase "#Oyun" $chan]} {
        putquick "PRIVMSG $chan :#Oyun kanali MESAJ 1"
        putquick "PRIVMSG $chan :#Oyun kanali MESAJ 2"
        putquick "PRIVMSG $chan :#Oyun kanali MESAJ 3"
    }
    if {[string match -nocase "#Radyo" $chan]} {
         putquick "PRIVMSG $chan :#Radyo kanali MESAJ 1"
         putquick "PRIVMSG $chan :#Radyo kanali MESAJ 2"
         putquick "PRIVMSG $chan :#Radyo kanali MESAJ 3"
     }
}