IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Hem istek süresini sınırlandırır yani 5dk bir istek komudunu kullanmalarını sağlar hemde istediğiniz gibi !yes nick yada !no nick şeklinde uyarı verir .

Kod:

#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 BOTNİCK OPERPASS"

}

proc cevap {nick uhand host chan arg} {

global djkanal radyo

set nick [lindex [split $arg] 0]

if {$chan == "#dj"} {

if {[isop $nick $djkanal]==0 && [onchan $nick $radyo]==0} {

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]

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]

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 {[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 5dk6'dir."

newignore $kim!*@* aCoustiC "Istek Ignore" 5

}

}

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