# Tcl Coder : SohbetTC By RaNK Süre kode deneme
####################################
proc join_sure {nick uhost handle channel} {
putserv "NOTICE $nick :Merhaba 12$nick"
putserv "NOTICE $nick :/msg sure sureler yazarak sureleri göre bilirsiniz."
}
bind join - * join_sure

bind msgm - sure1 msg_sure1
bind msgm - sure2 msg_sure2
bind msgm - sure3 msg_sure3
.....
.....
.....
 
proc msg_help { nick uhost handle text } {
putserv "PRIVMSG $nick :Lütfen Özelime Sure mumarasını yazın "
putserv "PRIVMSG $nick :Sure1 : Fatiha Suresi "
putserv "PRIVMSG $nick :Sure2 : Bakara Suresi"
putserv "PRIVMSG $nick :Sure3 : Al-i İmran Suresi" 
......
.....
}
 
proc msg_sure1 { nick uhost handle text } {
putserv "PRIVMSG $nick : Bismillahirrahmânirrahîm "    
putserv "PRIVMSG $nick :Hamd, Âlemlerin Rabbi, Rahmân, Rahîm, hesap ve ceza gününün (ahiret gününün) maliki Allah'a mahsustur."      
putserv "PRIVMSG $nick :(Allahım!) Yalnız sana ibadet ederiz ve yalnız senden yardım dileriz."
putserv "PRIVMSG $nick :Bizi doğru yola, kendilerine nimet verdiklerinin yoluna ilet; gazaba uğrayanlarınkine ve sapıklarınkine değil."
 
}
 
 
proc msg_sure2 { nick uhost handle text } {
putserv "PRIVMSG $nick :... "
 
}
 
proc msg_sure3 { nick uhost handle text } {
putserv "PRIVMSG $nick :...."
 
}
.......
.......
.......

bind msgm - sure1 msg_sure1
 
Buradaki msgm yi pub yaparsın yani :
 
bind pud - sure1 msg_sure1

set surekanali "#sure" en üste eklersin.

putserv "PRIVMSG $nick :Lütfen Özelime Sure mumarasını yazın "
 
buradaki 
 
PRIVMSG $nick ifadesindeki $nick yerine $surekanali yazacaksınız.