Selamlama
Kod: Kodu kopyalamak için üzerine çift tıklayın!
# 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: Kodu kopyalamak için üzerine çift tıklayın!
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: Kodu kopyalamak için üzerine çift tıklayın!
bind msgm - sure1 msg_sure1
Buradaki msgm yi pub yaparsın yani :
bind pud - sure1 msg_sure1
sonra ek olarak
Kod: Kodu kopyalamak için üzerine çift tıklayın!
set surekanali "#sure" en üste eklersin.
ve son işlem
Kod: Kodu kopyalamak için üzerine çift tıklayın!
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..