16 Ağustos 2011, 20:14 | #1 | |
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0) | istek tcl yardim.. #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 "Eggdrop" set opass "şifre" #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] 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 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. " TCL SORUNSUZ calişiyor.. hatta radyo kanalındaki userler bile !yes nick !no nick komutunu kullanabiliyor.. bunu sadece dj kanalı ile nasıl sınırlarım.. Radyo Conf ta... } channel add #Radyo { need-op { putserv "MODE #Radyo +v Radyo " } } channel add #DJ { need-op { putserv "MODE #DJ +v Radyo " } } şeklinde ekli dj kanalı. | |
|
17 Ağustos 2011, 21:28 | #2 |
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0) | Cevap: istek tcl yardim.. PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!
Yes ve No proc'larini verdigim proc'lar ile degistirip dene. |
|
Etiketler |
istek, tcl, yardim |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| |
Benzer Konular | ||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
özele !yardim yazildiginda yardim kanalına sajoinlemek | BunaLim | mIRC Scripting Sorunları | 2 | 15 Eylül 2009 15:36 |
!radyo , !istek istek parçasi | Yunus | mIRC Scripting Sorunları | 2 | 21 Temmuz 2008 21:11 |