proc join_greet {nick uhost handle channel } {  
 putserv "privmsg $nick :4M2erhaba 3 $nick " 
 putserv "privmsg $nick :14irc.AlemTR.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 14'4d2ur." 
 putserv "privmsg $nick :4W2eb 4c2hat 4a2dresimiz14: 3
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
14'4d2ur." 
 putserv "privmsg $nick :4D2ilek4 v2e 4ş2ikayetlerinizi, 7admin@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]TR.Com 4a2dresine 4e14-2mail4 y2oluyla 4i2letebilirsininiz." 
 putserv "privmsg $nick :3S6izlere 3e7n 3g4üzel14, 3e7n 3s2eviyeli 3s10ohbet 3o13rtamı 3d12ileriz.3 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 14~&~ 3irc.AlemTR.Com"  
 putserv "NOTICE  $nick : 0,4Ş0,2iir 0,4b0,2otumuzdan 0,4g0,2üzel 0,4s0,2öz 0,4o0,2kumak 0,4i0,2sterseniz 0,4l0,2ütfen 0,4g0,2enel 0,4s0,2ohbet 0,4k0,2analımızda0,3 !soz 0,4y0,2azınız."   
} 
bind join - * join_greet