Renkli Hoş Bir Karsilama.tcl

[Ahmet]

################################################## ##############
# [Only Registered Users Can See Links] IRCD SheLL & Web Hosting & Radyo Hosting #
# TcL By AzraiL #
# Destek@KralShell.Net & Satis@KralShell.Net #
################################################## ##############

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