IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Kuran, hadis veya dini bilgilerin olduğu tcl lazım ..

Selamlama

Kod:

 

# 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

Kod:

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 :...."

 
 }

.......

.......

.......

şeklinde devam edebilirsin arkadaşım.
bu özel içindi. kanalda yazılmasını istemezesen bunu kullanırsın. gelelim kanal işine

Kod:

bind msgm - sure1 msg_sure1

 

Buradaki msgm yi pub yaparsın yani :

 

bind pud - sure1 msg_sure1

sonra ek olarak

Kod:

set surekanali "#sure" en üste eklersin.

ve son işlem

Kod:

putserv "PRIVMSG $nick :Lütfen Özelime Sure mumarasını yazın "

 

buradaki 

 

PRIVMSG $nick ifadesindeki $nick yerine $surekanali yazacaksınız.

umarım başarılı bir anlatımdır.

Saygılarımla iyi çalışmalar kolay gelsin..