Karşılama TCL

[code]proc join_greet {nick uhost handle channel } { 
putserv "privmsg $nick :4M2erhaba 3 $nick "
putserv "privmsg $nick :14irc.Sunucu.Com 4s2ohbet 4s2unucusuna 4h2oşgeldiniz."
putserv "privmsg $nick :4S2unucu 4k2urallarına4 v2e 4g2örev 4d2ağılımına 14/motd 4y2azarak 4u2laşabilirsiniz."
putserv "privmsg $nick :4S2unucu4 y2ardım 4k2analımız14: 7#Help 14~&~ 4G2enel 4s2ohbet 4k2analımız14: 7#Sohbet 14~&~ 4O2yun 4k2analımız14: 7#Oyun 14~&~ 4R2adyo 4k2analımız14: 7#Radyo