#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 "opernick"
set opass "opersifre"
#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 {$chan != $djkanal} { return }
if {[isop $nick $djkanal] && [onchan $nick $radyo]} {
putquick "PRIVMSG $radyo :\002[lindex [split $arg] 0]\002 :[join [lrange [split $arg] 1 end]]"
}
}
proc yes {nick uhand host chan arg} {
global djkanal radyo
set nick [lindex $arg 0]
if {$chan != $djkanal} { return }
putquick "PRIVMSG $radyo :\002$nick\002 :\0034İ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 != $djkanal} { return }
putquick "PRIVMSG $radyo :\002$nick\002: \0034Ü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} { return }
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 $kim :Uzgunum $kim isteginize cevap verecek dj bulunamadi! lutfen daha sonra tekrar deneyiniz."
} {
putquick "PRIVMSG $radyo :\002$kim\002 \0034Lütfen bekleyiniz. İsteginizi Kontrol Ediyorum."
putquick "PRIVMSG $djkanal :\00302$kim \00306Istegi: \00302$mesaj"
putquick "PRIVMSG $kim :\002$kim\002 \00302$mesaj\00302 isteginiz DJ lerimize iletilmistir, bir sonraki istek isteme sureniz 1dk dir" 
newignore $nick!$uhost aCoustiC "Istek Ignore" 1
}
}
putlog "yapimci : aCoustiC"
putlog "e-mail : 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
"