Kod: Kodu kopyalamak için üzerine çift tıklayın!
#gerekli bindler
bind pub - !yes yes
bind pub - !no no
bind pub - !istek istek
bind pub - !msg cevap
bind evnt - init-server baglan_yap
#Gerekli degiskenler
set onick ""
set opass ""
#Dj kanali
set djkanal "#DJ"
#Radyo kanali
set radyo "#Radyo"
#ELLEMEYIN (Siz Bİlirsiniz)
proc baglan_yap {type} {
global onick opass
putserv "OPER $onick $opass"
}
proc cevap {nick uhand host chan arg} {
global djkanal radyo
set nick [lindex [split $arg] 0]
if {[isop $nick $djkanal] && [onchan $nick $radyo]} {
putquick "PRIVMSG $radyo :4 [lindex [split $arg] 0] :6[join [lrange [split $arg] 1 end]]"
}
}
proc yes {nick uhand host chan arg} {
global djkanal radyo
set nick [lindex $arg 0]
if {$chan == "#DJ"} {
putquick "PRIVMSG $radyo :4 $nick 6İsteğiniz Arşivimizde Mevcut. Kısa Süre İçinde İsteginiz yayınlanacaktır."
}
}
proc no {nick uhand host chan arg} {
global djkanal radyo
set nick [lindex $arg 0]
if {$chan == "#DJ"} {
putquick "PRIVMSG $radyo :4 $nick 6Üzgünüm, İsteğiniz Arşivimizde Bulunmamaktadır. Başka Bir İstekte Bulunabilirsiniz."
}
}
proc istek {nick uhand host chan arg} {
global radyo djkanal
if {$chan == "#Radyo"} {
if {[lindex $arg 0] == ""} { return }
dj:ara $nick $arg
}
}
proc dj:ara {kim mesaj} {
global botnick djkanal radyo
set opbulundu 0
foreach opcuk [chanlist $djkanal] {
if {[isop $opcuk $djkanal] && $opcuk != $botnick} { set opbulundu "1" }
}
if {$opbulundu != "1"} {
putserv "PRIVMSG $radyo :6Üzgünüm 4 $kim 6isteginize cevap verecek dj bulunamadı! Lütfen daha sonra tekrar deneyiniz."
} {
putquick "PRIVMSG $radyo :4 $kim 6Lütfen bekleyiniz. İsteğinizi Kontrol Ediyorum."
putquick "PRIVMSG $djkanal :4 $kim 6Istegi: 12 $mesaj"
putquick "PRIVMSG $radyo :4 $kim 12 $mesaj 6 isteğiniz DJ'lerimize iletilmiştir. Bir sonraki istek isteme süreniz 4 1dk6'dir."
newignore $kim!*@* aCoustiC "Istek Ignore" 1
}
}
channel add $djkanal
channel add $radyo
putlog "yapimci : aCoustiC"
putlog "e-mail :
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"
Yukarda sorunuma care buldugum mesajdaki kodda !yes !no ve !istek komutlari hem dj hemde radyo kanalinda da calisiyordu. TCL'i calistirmak icin
if'leri silmistim. Simdi onlarida ekledim. !yes !no sadece dj kanalinda !istek ise sadece radyo kanalinda bu sekilde gayet duzgun calisiyor. Yanliz "
proc yes,
proc no ve proc istek" icinde
if'lerdeki kanal isimleri kucuk buyuk harfe duyarli. Severinizda nasilsa yazilisi ole olmasi gerekiyor.